API tools faq
paste
Advertisement
Guest User

Diablo 3 Auction House bot

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