API tools faq
paste
Advertisement
Guest User

AHBot updated v1.1

a guest
Jun 11th, 2012
666
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.12 KB | None | 0 0
raw download clone embed print report
  1. #include <ImageSearch.au3>
  2. ;#include <Logging1024x768.au3>
  3.  
  4. $Title = 'Diablo III' ; The Name Of The Game...
  5. $Full = WinGetTitle ($Title) ; Get The Full Title..
  6. $HWnD = WinGetHandle ($Full) ; Get The Handle
  7.  
  8. HotKeySet("{PAUSE}", "Terminate") ; Exit bot
  9. HotKeySet("n", "TogglePause") ; Pause bot
  10. $itemsCount=IniRead("AHOptions.ini", "general", "HowManyItems","")
  11. $timeStart=0
  12. $timeEnd=0
  13. ;$aaa="item"&$itemsCount
  14. ;$type=IniRead("AHOptions.ini",$aaa,"Type","")
  15. ;MsgBox(1,"",$type)
  16.  
  17. ;While 1
  18. ; $log=logging() ;This is my logging script.
  19. ; If $log=1 Then
  20. ; Sleep(1000)
  21. ; leaveChat()
  22. ; ExitLoop
  23. ; EndIf
  24. ;WEnd
  25.  
  26. While 1
  27. logStart()
  28. $abc=0
  29. Do
  30. $abc=$abc+1
  31. If ProcessExists("Diablo III.exe") Then
  32. CheckItem($abc)
  33. Else
  34. Exit 0
  35. EndIf
  36. Until $abc=$itemsCount
  37. logEnd()
  38. Sleep(Random(10000,60000)) ;Random time to sleep between checking
  39. WEnd
  40.  
  41. Func CheckItem($numberOfItem)
  42. WinActivate("Diablo III")
  43. Sleep(200)
  44. checkIfWeInMenu()
  45. Sleep(200)
  46. enterEquipAH()
  47. $itemNumber="item"&$numberOfItem
  48. $class=IniRead("AHOptions.ini",$itemNumber,"Class","") ;Get all from the .ini file
  49. $type=IniRead("AHOptions.ini",$itemNumber,"Type","")
  50. $item=IniRead("AHOptions.ini",$itemNumber,"Item","")
  51. $stat1=IniRead("AHOptions.ini",$itemNumber,"Stat1","")
  52. $minValueStat1=IniRead("AHOptions.ini",$itemNumber,"MinValueStat1","")
  53. $stat2=IniRead("AHOptions.ini",$itemNumber,"Stat2","")
  54. $minValueStat2=IniRead("AHOptions.ini",$itemNumber,"MinValueStat2","")
  55. $stat3=IniRead("AHOptions.ini",$itemNumber,"Stat3","")
  56. $minValueStat3=IniRead("AHOptions.ini",$itemNumber,"MinValueStat3","")
  57. $maxBuyout=IniRead("AHOptions.ini",$itemNumber,"MaxBuyOut","")
  58. $delayBetweenChecks=IniRead("AHOptions.ini",$itemNumber,"DelaybetweenChecks","")
  59. $increaseBuyout=IniRead("AHOptions.ini",$itemNumber,"IncreaseBuyout","")
  60. $increaseAmount=IniRead("AHOptions.ini",$itemNumber,"IncreaseAmount","")
  61. $newBuyOut=IniRead("AHOptions.ini",$itemNumber,"NewBuyout","")
  62. If $class <> "All" Then
  63. putClass($class)
  64. EndIf
  65. Sleep(Random(50,200))
  66. putType($type)
  67. Sleep(Random(100,250))
  68. If $item <> "All" Then
  69. putItem($item)
  70. EndIf
  71. Sleep(Random(100,250))
  72. putStatAndValue1($stat1,$minValueStat1,$type,$item)
  73. MouseMove(640,24,0);
  74. Sleep(Random(10,250))
  75. If $stat2 <> "" Then
  76. putStatAndValue2($stat2,$minValueStat2,$type,$item)
  77. EndIf
  78. MouseMove(640,24,0);
  79. Sleep(Random(100,300))
  80. If $stat3 <> "" Then
  81. putStatAndValue3($stat3,$minValueStat3,$type,$item)
  82. EndIf
  83. MouseMove(640,24,0);
  84. ;putBuyOut($maxBuyout)
  85. Sleep(Random(100,300))
  86. $succ=doWeHaveItems($maxBuyout,$delayBetweenChecks,$increaseBuyout,$increaseAmount,$newBuyOut)
  87. If $succ=1 Then
  88. buyoutItem($numberOfItem)
  89. Else
  90. ;logItem($itemNumber)
  91. EndIf
  92. return 1
  93. EndFunc
  94.  
  95. Func logging()
  96. While 1
  97. $logged=login()
  98. If $logged=1 Then
  99. return 1
  100. ElseIf $logged=0 Then
  101. Sleep(30000)
  102. EndIf
  103. WEnd
  104. EndFunc
  105.  
  106. Func leaveChat()
  107. ControlClick ($HWnD, '','', "left", 1, 37, 614)
  108. Sleep(100)
  109. ControlClick ($HWnD, '','', "left", 1, 103,672)
  110. Sleep(100)
  111. EndFunc
  112.  
  113. Func logItem($itemNumber)
  114. $file=FileOpen("AHLog.txt",1)
  115. FileWrite($file,"Item: " & $itemNumber & @CRLF)
  116. FileClose($file)
  117. EndFunc
  118.  
  119. Func logItemBought($itemNumber)
  120. $file=FileOpen("AHLog.txt",1)
  121. FileWrite($file,"Item: " & $itemNumber & " bought!"& @CRLF)
  122. FileClose($file)
  123. EndFunc
  124.  
  125. Func logStart()
  126. $file=FileOpen("AHLog.txt",1)
  127. $timeStart=0
  128. $min=@MIN
  129. $sec=@SEC
  130. $timeStart=$min*60+$sec
  131. FileWrite($file,"====================" & @CRLF)
  132. FileClose($file)
  133. EndFunc
  134.  
  135. Func logEnd()
  136. $timeEnd=0
  137. $file=FileOpen("AHLog.txt",1)
  138. $min=@MIN
  139. $sec=@SEC
  140. $timeEnd=$min*60+$sec
  141. FileWrite($file,"Full loop length: "&($timeEnd-$timeStart) & @CRLF)
  142. FileWrite($file,"====================" & @CRLF)
  143. FileWrite($file,@CRLF)
  144. FileClose($file)
  145. EndFunc
  146.  
  147. Func putItem($name)
  148. ControlClick ($HWnD, '','', "left", 1,271+(Random(-2,2)), 303+(Random(-2,2)))
  149. Sleep(Random(200,500))
  150. $picture="D3AHImages\Items\"&$name&".JPG"
  151. $x=0
  152. $y=0
  153. $a=0
  154. Do
  155. $res= _ImageSearch($picture,0,$x,$y,100)
  156. If $res=1 Then
  157. ControlClick ($HWnD, '','', "left", 1, $x+10+(Random(-1,3)), $y+Random(1,2))
  158. Sleep(Random(50,200))
  159. ExitLoop
  160. EndIf
  161. $a=$a+1
  162. Sleep(50)
  163. Until $a=10
  164. If $a=10 Then
  165. exit 0
  166. EndIf
  167. EndFunc
  168.  
  169. Func putClass($className)
  170. ControlClick ($HWnD, '','', "left", 1, 272+(Random(-2,2)), 217+(Random(-2,2)))
  171. Sleep(Random(200,500))
  172. $picture="D3AHImages\"&$className&".JPG"
  173. $x=0
  174. $y=0
  175. $a=0
  176. Do
  177. $res= _ImageSearch($picture,0,$x,$y,110)
  178. If $res=1 Then
  179. ControlClick ($HWnD, '','', "left", 1, $x+10+(Random(-1,3)), $y+Random(1,2))
  180. Sleep(Random(50,200))
  181. ExitLoop
  182. Else
  183. MouseClick("left",272, 440,"1","0")
  184. EndIf
  185. $a=$a+1
  186. Sleep(50)
  187. Until $a=10
  188. If $a=10 Then
  189. exit 0
  190. EndIf
  191. EndFunc
  192.  
  193. Func doWeHaveItems($maxBuyout,$delayBetweenChecks,$increaseBuyout,$increaseAmount,$newBuyOut)
  194. $x=0
  195. $y=0
  196. $a=0
  197. $buyOut=$maxBuyout
  198. If $increaseBuyout=1 Then
  199. Do
  200. putBuyout($buyOut)
  201. Sleep(Random(50,150))
  202. ControlClick ($HWnD, '','', "left", 1, 200+Random(-60,60), 595+Random(-5,5))
  203. Sleep(Random(1500,2500))
  204. $res= _ImageSearch("D3AHImages\NoItemsFound.JPG",0,$x,$y,50)
  205. If $res=0 Then
  206. return 1
  207. Else
  208. $buyOut=$buyOut+$increaseAmount
  209. EndIf
  210. Until $buyOut=$newBuyOut+$increaseAmount
  211. ElseIf $increaseBuyout=0 Then
  212. putBuyout($buyOut)
  213. Sleep(Random(50,150))
  214. ControlClick ($HWnD, '','', "left", 1, 200+Random(-60,60), 595+Random(-5,5))
  215. Sleep(Random(1500,2500))
  216. $res= _ImageSearch("D3AHImages\NoItemsFound.JPG",0,$x,$y,50)
  217. If $res=0 Then
  218. return 1
  219. EndIf
  220. EndIf
  221. Sleep(Random(200,400))
  222. Send("{ESC}")
  223. return 0
  224. EndFunc
  225.  
  226. Func checkIfWeInMenu()
  227. WinActivate("Diablo III")
  228. Sleep(200)
  229. $x=0
  230. $y=0
  231. While 1
  232. $res= _ImageSearch("D3AHImages\AuctionHouse.jpg",0,$x,$y,100)
  233. If $res=1 Then
  234. ExitLoop
  235. Else
  236. Send("{ESC}")
  237. Sleep(200)
  238. EndIf
  239. WEnd
  240.  
  241. EndFunc
  242.  
  243. Func putStatAndValue1($stat1,$minValue1,$type,$item)
  244. $x=0
  245. $y=0
  246. $statPictureName=giveStatPictureName($stat1)
  247. ControlClick ($HWnD, '','', "left", 1, 239, 423)
  248. Sleep(200)
  249. While 1
  250. $res= _ImageSearch("D3AHImages\"&$statPictureName,0,$x,$y,110)
  251. if $res=1 Then
  252. ControlClick ($HWnD, '','', "left", 1, $x+10, $y)
  253. Sleep(50)
  254. ExitLoop
  255. Else
  256. $b=0
  257. Do
  258. If $type="armor" Then
  259. ;MouseClick("left",362, 646,"1","0")
  260. If $item="Amulet" Then
  261. MouseClick("left",308+Random(-1,2), 646+Random(-1,2),"1","0")
  262. ElseIf $item="All" Then
  263. MouseClick("left",362+Random(-1,2), 646+Random(-1,2),"1","0")
  264. ElseIf $item="Belt" Then
  265. MouseClick("left",312+Random(-1,2), 645+Random(-1,2),"1","0")
  266. ElseIf $item="Boots" Then
  267. MouseClick("left",265+Random(-1,2), 646+Random(-1,2),"1","0")
  268. ElseIf $item="Bracers" Then
  269. MouseClick("left",311+Random(-1,2), 646+Random(-1,2),"1","0")
  270. ElseIf $item="ChestArmor" Then
  271. MouseClick("left",319+Random(-1,2), 646+Random(-1,2),"1","0")
  272. ElseIf $item="Cloak" Then
  273. MouseClick("left",317+Random(-1,2), 646+Random(-1,2),"1","0")
  274. ElseIf $item="Gloves" Then
  275. MouseClick("left",262+Random(-1,2), 646+Random(-1,2),"1","0")
  276. ElseIF $item="Helm" Then
  277. MouseClick("left",361+Random(-1,2), 646+Random(-1,2),"1","0")
  278. ElseIf $item="Pants" Then
  279. MouseClick("left",263+Random(-1,2), 646+Random(-1,2),"1","0")
  280. ElseIf $item="MightyBelt" Then
  281. MouseClick("left",312+Random(-1,2), 646+Random(-1,2),"1","0")
  282. ElseIf $item="Ring" Then
  283. MouseClick("left",288+Random(-1,2), 646+Random(-1,2),"1","0")
  284. ElseIf $item="Shoulders" Then
  285. MouseClick("left",263+Random(-1,2), 646+Random(-1,2),"1","0")
  286. ElseIf $item="SpiritStone" Then
  287. MouseClick("left",341+Random(-1,2), 646+Random(-1,2),"1","0")
  288. ElseIf $item="VodooMask" Then
  289. MouseClick("left",363+Random(-1,2), 646+Random(-1,2),"1","0")
  290. ElseIf $item="WizardHat" Then
  291. MouseClick("left",297+Random(-1,2), 646+Random(-1,2),"1","0")
  292. EndIf
  293. Sleep(5)
  294. $b=$b+1
  295. ElseIf $type="1h" Then
  296. MouseClick("left",340, 646,"1","0")
  297. Sleep(5)
  298. $b=$b+1
  299. ElseIf $type="2h" Then
  300. ;MouseClick("left",353, 645,"1","0")
  301. If $item="TwoHandedAxe" OR $item="TwoHandedMace" Or $item="TwoHandedMightyWeapon" OR $item="TwoHandedSword" OR $item="Polearm" Then
  302. MouseClick("left",354+Random(-1,2), 646+Random(-1,2),"1","0")
  303. Sleep(5)
  304. ElseIf $item="Bow" OR $item="Crossbow" OR $item="Daibo" OR $item="Staff" Then
  305. MouseClick("left",339+Random(-1,2), 646+Random(-1,2),"1","0")
  306. Sleep(5)
  307. ElseIf $item="All" Then
  308. MouseClick("left",353+Random(-1,2), 646+Random(-1,2),"1","0")
  309. Sleep(5)
  310. EndIf
  311. $b=$b+1
  312. ElseIf $type="offhand" Then
  313. ;MouseClick("left",353, 646,"1","0")
  314. If $item="Source" Then
  315. MouseClick("left",290+Random(-1,2), 646+Random(-1,2),"1","0")
  316. Sleep(5)
  317. ElseIf $item="Shield" Then
  318. MouseClick("left",352+Random(-1,2), 646+Random(-1,2),"1","0")
  319. Sleep(5)
  320. ElseIf $item="Mojo" Then
  321. MouseClick("left",335+Random(-1,2), 646+Random(-1,2),"1","0")
  322. Sleep(5)
  323. ElseIf $item="Quiver" Then
  324. MouseClick("left",345+Random(-1,2), 646+Random(-1,2),"1","0")
  325. Sleep(5)
  326. ElseIf $item="All" Then
  327. MouseClick("left",353+Random(-1,2), 646+Random(-1,2),"1","0")
  328. Sleep(5)
  329. EndIf
  330. $b=$b+1
  331. ElseIf $type="follower" Then
  332. ;MouseClick("left",236, 646,"1","0")
  333. If $item="EnchantressFocus" OR $item="TemplarRelic" Then
  334. MouseClick("left",240+Random(-1,2), 646+Random(-1,2),"1","0")
  335. Sleep(5)
  336. ElseIf $item="ScoundrelToken" Then
  337. MouseClick("left",237+Random(-1,2), 646+Random(-1,2),"1","0")
  338. Sleep(5)
  339. ElseIf $item="All" Then
  340. MouseClick("left",236+Random(-1,2), 646+Random(-1,2),"1","0")
  341. Sleep(5)
  342. EndIf
  343. $b=$b+1
  344. EndIf
  345. Until $b=6
  346. EndIf
  347. WEnd
  348. Sleep(300)
  349. ControlClick ($HWnD, '','', "left", 1, 279, 424)
  350. $a=0
  351. Do
  352. Send("{BACKSPACE}")
  353. Sleep(10)
  354. $a=$a+1
  355. Until $a=10
  356. Sleep(300)
  357. Send($minValue1)
  358. EndFunc
  359.  
  360. Func putStatAndValue2($stat2,$minValue2,$type,$item)
  361. $x=0
  362. $y=0
  363. $statPictureName=giveStatPictureName($stat2)
  364. ControlClick ($HWnD, '','', "left", 1, 240, 452)
  365. Sleep(200)
  366. While 1
  367. $res= _ImageSearch("D3AHImages\"&$statPictureName,0,$x,$y,110)
  368. if $res=1 Then
  369. ControlClick ($HWnD, '','', "left", 1, $x+10, $y)
  370. Sleep(50)
  371. ExitLoop
  372. Else
  373. $b=0
  374. Do
  375. If $type="armor" Then
  376. If $item="All" Then
  377. MouseClick("left",364+Random(-1,2), 672+Random(-1,2),"1","0")
  378. ElseIf $item="Amulet" OR $item="Belt" OR $item="Bracers" OR $item="MightyBelt" Then
  379. MouseClick("left",311+Random(-1,2), 672+Random(-1,2),"1","0")
  380. ElseIf $item="Boots" OR $item="Pants" OR $item="Shoulders" OR $item="Gloves" Then
  381. MouseClick("left",263+Random(-1,2), 672+Random(-1,2),"1","0")
  382. ElseIf $item="ChestArmor" OR $item="Cloak" Then
  383. MouseClick("left",318+Random(-1,2), 672+Random(-1,2),"1","0")
  384. ElseIf $item="Helm" Then
  385. MouseClick("left",363+Random(-1,2), 672+Random(-1,2),"1","0")
  386. ElseIf $item="Ring" Then
  387. MouseClick("left",288+Random(-1,2), 672+Random(-1,2),"1","0")
  388. ElseIf $item="SpiritStone" Then
  389. MouseClick("left",341+Random(-1,2), 672+Random(-1,2),"1","0")
  390. ElseIf $item="VodooMask" Then
  391. MouseClick("left",362+Random(-1,2), 672+Random(-1,2),"1","0")
  392. ElseIf $item="WizardHat" Then
  393. MouseClick("left",297+Random(-1,2), 672+Random(-1,2),"1","0")
  394. EndIf
  395. Sleep(5)
  396. $b=$b+1
  397. ElseIf $type="1h" Then
  398. MouseClick("left",340+Random(-1,2), 675+Random(-1,2),"1","0")
  399. Sleep(5)
  400. $b=$b+1
  401. ElseIf $type="2h" Then
  402. If $item="All" Then
  403. MouseClick("left",352+Random(-1,2), 675+Random(-1,2),"1","0")
  404. ElseIf $item="TwoHandedAxe" OR $item="TwoHandedMace" OR $item="TwoHandedMightyWeapon" OR $item="TwoHandedSword" OR $item="Polearm" Then
  405. MouseClick("left",352+Random(-1,2), 675+Random(-1,2),"1","0")
  406. ElseIf $item="Bow" OR $item="Crossbow" OR $item="Daibo" OR $item="Staff" Then
  407. MouseClick("left",339+Random(-1,2), 674+Random(-1,2),"1","0")
  408. EndIf
  409. Sleep(5)
  410. $b=$b+1
  411. ElseIf $type="offhand" Then
  412. If $item="All" Then
  413. MouseClick("left",352+Random(-1,2), 670+Random(-1,2),"1","0")
  414. ElseIf $item="Source" Then
  415. MouseClick("left",290+Random(-1,2), 670+Random(-1,2),"1","0")
  416. ElseIf $item="Shield" Then
  417. MouseClick("left",354+Random(-1,2), 670+Random(-1,2),"1","0")
  418. ElseIf $item="Mojo" Then
  419. MouseClick("left",335+Random(-1,2), 670+Random(-1,2),"1","0")
  420. ElseIf $item="Quiver" Then
  421. MouseClick("left",345+Random(-1,2), 670+Random(-1,2),"1","0")
  422. EndIf
  423. Sleep(5)
  424. $b=$b+1
  425. ElseIf $type="follower" Then
  426. MouseClick("left",237+Random(-1,2), 674+Random(-1,2),"1","0")
  427. Sleep(5)
  428. $b=$b+1
  429. EndIf
  430. Until $b=6
  431. EndIf
  432. WEnd
  433. Sleep(300)
  434. ControlClick ($HWnD, '','', "left", 1, 279, 450)
  435. $a=0
  436. Do
  437. Send("{BACKSPACE}")
  438. Sleep(10)
  439. $a=$a+1
  440. Until $a=10
  441. Sleep(300)
  442. Send($minValue2)
  443. EndFunc
  444.  
  445. Func putStatAndValue3($stat3,$minValue3,$type,$item)
  446. $x=0
  447. $y=0
  448. $statPictureName=giveStatPictureName($stat3)
  449. ControlClick ($HWnD, '','', "left", 1, 240, 479)
  450. Sleep(200)
  451. While 1
  452. $res= _ImageSearch("D3AHImages\"&$statPictureName,0,$x,$y,110)
  453. if $res=1 Then
  454. ControlClick ($HWnD, '','', "left", 1, $x+10, $y)
  455. Sleep(50)
  456. ExitLoop
  457. Else
  458. $b=0
  459. Do
  460. If $type="armor" Then
  461. If $item="All" Then
  462. MouseClick("left",364+Random(-1,2), 700+Random(-1,2),"1","0")
  463. ElseIf $item="Amulet" OR $item="Belt" OR $item="Bracers" OR $item="MightyBelt" Then
  464. MouseClick("left",311+Random(-1,2), 700+Random(-1,2),"1","0")
  465. ElseIf $item="Boots" OR $item="Pants" OR $item="Shoulders" OR $item="Gloves" Then
  466. MouseClick("left",263+Random(-1,2), 700+Random(-1,2),"1","0")
  467. ElseIf $item="ChestArmor" OR $item="Cloak" Then
  468. MouseClick("left",318+Random(-1,2), 700+Random(-1,2),"1","0")
  469. ElseIf $item="Helm" Then
  470. MouseClick("left",363+Random(-1,2), 700+Random(-1,2),"1","0")
  471. ElseIf $item="Ring" Then
  472. MouseClick("left",288+Random(-1,2), 700+Random(-1,2),"1","0")
  473. ElseIf $item="SpiritStone" Then
  474. MouseClick("left",341+Random(-1,2), 700+Random(-1,2),"1","0")
  475. ElseIf $item="VodooMask" Then
  476. MouseClick("left",362+Random(-1,2), 700+Random(-1,2),"1","0")
  477. ElseIf $item="WizardHat" Then
  478. MouseClick("left",297+Random(-1,2), 700+Random(-1,2),"1","0")
  479. EndIf
  480. Sleep(5)
  481. $b=$b+1
  482. ElseIf $type="1h" Then
  483. MouseClick("left",340+Random(-1,2), 700+Random(-1,2),"1","0")
  484. Sleep(5)
  485. $b=$b+1
  486. ElseIf $type="2h" Then
  487. If $item="All" Then
  488. MouseClick("left",352+Random(-1,2), 700+Random(-1,2),"1","0")
  489. ElseIf $item="TwoHandedAxe" OR $item="TwoHandedMace" OR $item="TwoHandedMightyWeapon" OR $item="TwoHandedSword" OR $item="Polearm" Then
  490. MouseClick("left",352+Random(-1,2), 700+Random(-1,2),"1","0")
  491. ElseIf $item="Bow" OR $item="Crossbow" OR $item="Daibo" OR $item="Staff" Then
  492. MouseClick("left",339+Random(-1,2), 700+Random(-1,2),"1","0")
  493. EndIf
  494. Sleep(5)
  495. $b=$b+1
  496. ElseIf $type="offhand" Then
  497. If $item="All" Then
  498. MouseClick("left",352+Random(-1,2), 700+Random(-1,2),"1","0")
  499. ElseIf $item="Source" Then
  500. MouseClick("left",290+Random(-1,2), 700+Random(-1,2),"1","0")
  501. ElseIf $item="Shield" Then
  502. MouseClick("left",354+Random(-1,2), 700+Random(-1,2),"1","0")
  503. ElseIf $item="Mojo" Then
  504. MouseClick("left",335+Random(-1,2), 700+Random(-1,2),"1","0")
  505. ElseIf $item="Quiver" Then
  506. MouseClick("left",345+Random(-1,2), 700+Random(-1,2),"1","0")
  507. EndIf
  508. Sleep(5)
  509. $b=$b+1
  510. ElseIf $type="follower" Then
  511. MouseClick("left",239+Random(-1,2), 700+Random(-1,2),"1","0")
  512. Sleep(5)
  513. $b=$b+1
  514. EndIf
  515. Until $b=6
  516. EndIf
  517. WEnd
  518. Sleep(300)
  519. ControlClick ($HWnD, '','', "left", 1, 279, 478)
  520. $a=0
  521. Do
  522. Send("{BACKSPACE}")
  523. Sleep(10)
  524. $a=$a+1
  525. Until $a=10
  526. Sleep(300)
  527. Send($minValue3)
  528. EndFunc
  529.  
  530. Func giveStatPictureName($Stat)
  531. If $Stat="GF" Then
  532. return "GoldFind.jpg"
  533. Elseif $Stat="MF" Then
  534. return "MagicFind.jpg"
  535. ElseIf $Stat="Dex" Then
  536. return "Dexterity.JPG"
  537. ElseIf $Stat="Vita" Then
  538. return "Vitality.jpg"
  539. ElseIf $Stat="Int" Then
  540. return "Intelligence.jpg"
  541. ElseIf $Stat="Str" Then
  542. return "Strength.jpg"
  543. ElseIf $Stat="Socket" Then
  544. return "Socket.jpg"
  545. ElseIf $Stat="AllRes" Then
  546. return "AllRes.jpg"
  547. ElseIf $Stat="AttackSpeed" Then
  548. return "AttackSpeed.jpg"
  549. ElseIf $Stat="Block" Then
  550. return "Block.jpg"
  551. ElseIf $Stat="CritChance" Then
  552. return "CritHitChance.jpg"
  553. ElseIf $Stat="CritDamage" Then
  554. return "CritHitDamage.jpg"
  555. ElseIf $Stat="MoveSpeed" Then
  556. return "MovementSpeed.jpg"
  557. ElseIf $Stat="PickupRadius" Then
  558. return "PickupRadius.jpg"
  559. ElseIf $Stat="WeaponDamage" Then
  560. return "WeaponDamage.jpg"
  561. EndIf
  562. EndFunc
  563.  
  564. Func putType($typeName)
  565. If $typeName="armor" Then
  566. putArmor()
  567. ElseIf $typeName="1h" Then
  568. put1H()
  569. ElseIf $typeName="2h" Then
  570. put2H()
  571. ElseIf $typeName="offhand" Then
  572. putOffhand()
  573. ElseIf $typeName="follower" Then
  574. putFollower()
  575. EndIf
  576. EndFunc
  577.  
  578. Func buyoutItem($numberOfItem)
  579. WinActivate("Diablo III")
  580. Sleep(200)
  581. ControlClick ($HWnD, '','', "left", 1, 614, 228)
  582. Sleep(200)
  583. ControlClick ($HWnD, '','', "left", 1, 866, 622)
  584. Sleep(300)
  585. ControlClick ($HWnD, '','', "left", 1, 431, 508)
  586. Sleep(2000)
  587. ControlClick ($HWnD, '','', "left", 1, 509, 325)
  588. Sleep(1000)
  589. logItemBought($numberOfItem)
  590. EndFunc
  591.  
  592. Func putBuyOut($gold)
  593. WinActivate("Diablo III")
  594. Sleep(200)
  595. ControlClick ($HWnD, '','', "left", 1, 288, 540)
  596. for $a=0 To 10 Step 1
  597. Send("{BACKSPACE}")
  598. Sleep(5)
  599. Next
  600. Sleep(50)
  601. Send($gold)
  602. EndFunc
  603.  
  604. Func putFollower()
  605. WinActivate("Diablo III")
  606. Sleep(200)
  607. ControlClick ($HWnD, '','', "left", 1, 273, 272)
  608. Sleep(400)
  609. ControlClick ($HWnD, '','', "left", 1,217,391)
  610. Sleep(500)
  611. EndFunc
  612.  
  613. Func putOffhand()
  614. WinActivate("Diablo III")
  615. Sleep(200)
  616. ControlClick ($HWnD, '','', "left", 1, 273, 272)
  617. Sleep(400)
  618. ControlClick ($HWnD, '','', "left", 1, 201,350)
  619. Sleep(500)
  620. EndFunc
  621.  
  622. Func put2H()
  623. WinActivate("Diablo III")
  624. Sleep(200)
  625. ControlClick ($HWnD, '','', "left", 1, 273, 272)
  626. Sleep(400)
  627. ControlClick ($HWnD, '','', "left", 1, 198,323)
  628. Sleep(500)
  629. EndFunc
  630.  
  631. Func put1H()
  632. WinActivate("Diablo III")
  633. Sleep(200)
  634. ControlClick ($HWnD, '','', "left", 1, 273, 272)
  635. Sleep(400)
  636. ControlClick ($HWnD, '','', "left", 1, 208,301)
  637. Sleep(500)
  638. EndFunc
  639.  
  640. Func putArmor()
  641. WinActivate("Diablo III")
  642. Sleep(400)
  643. ControlClick ($HWnD, '','', "left", 1, 273, 272)
  644. Sleep(500)
  645. ControlClick ($HWnD, '','', "left", 1, 150, 370)
  646. Sleep(200)
  647. EndFunc
  648.  
  649. Func enterEquipAH()
  650. WinActivate("Diablo III")
  651. Sleep(200)
  652. ControlClick ($HWnD, '','', "left", 1, 166, 454)
  653. Sleep(500)
  654. ControlClick ($HWnD, '','', "left", 1, 186, 163)
  655. Sleep(500)
  656. $x=0
  657. $y=0
  658. $succ=0
  659. $a=0
  660. Do
  661. $res= _ImageSearch("D3AHImages\AHGold.JPG",0,$x,$y,100)
  662. If $res=1 Then
  663. ExitLoop
  664. EndIf
  665. $a=$a+1
  666. Until $a=15
  667. If $a=15 Then
  668. KillProc("Diablo III.exe")
  669. Sleep(100)
  670. Exit 0
  671. EndIf
  672. EndFunc
  673.  
  674. Func TogglePause()
  675. $Paused = NOT $Paused
  676. While $Paused
  677. sleep(100)
  678. WEnd
  679. EndFunc
  680.  
  681. Func KillProc($name)
  682. $sPID=$name
  683. $sPID = ProcessExists($sPID)
  684. ;If Not $sPID Then Return SetError(1, 0, 0)
  685. Run(@ComSpec & " /c taskkill /F /PID " & $sPID & " /T", @SystemDir, @SW_HIDE)
  686. EndFunc
  687.  
  688. Func Terminate()
  689. Exit 0
  690. EndFunc ;==>Terminate
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!