API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 16th, 2012
536
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 21.30 KB | None | 0 0
raw download clone embed print report
  1. Opt('MouseCoordMode', 0)
  2. Opt('PixelCoordMode', 0)
  3. HotKeySet('{END}', 'Quit')
  4. HotKeySet('{SPACE}', 'Pause')
  5. Global $Paused
  6. Global $Picked = False
  7. Global $DebugOn = True
  8. Global $Run = 1
  9. Global $CountSell = 0
  10. Global $selltime = 100
  11. $LootRares = True ; Change this to false if you don't want the bot to pick up rares (good for legendary/set only, recommend setting LootGems to False)
  12. $LootGems = False ; Change this to true if you want to pick up gems (messy, can fill up bag with whites/blues)
  13. $LootMagic = True
  14. $BluesPickedUp = 0
  15. $MaxBluesBeforeSell = 10
  16. $Amethyst = 0xB06DF6
  17. $Ruby = 0xFF6A75
  18. $Emerald = 0x95FF62
  19. $Topaz = 0xFFFF82
  20. $i = 0
  21.  
  22. $selltime = 100
  23. ;$j = 0
  24.  
  25. ;Global $ItemColors[5] = ["0xFFFF00", "0x6969FF", "0xBF642F", "0x00FF00", "0xFFFFFF"]
  26. ;FFFFFF-white
  27. ;FFFF00-yellow
  28. ;6969FF-blue
  29. ;0xBF642F-legendary
  30. ;0x00FF00-green set
  31.  
  32.  
  33.  
  34. $walktime = 2600 ; time in ms the script waits for you to enter and load the cellar. Slow this down for slower move speeds and loading times
  35. $tptime = 6900 ; time in ms the script waits for teleport before exiting the game
  36. $loadtime = 3200 ; time in ms the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
  37.  
  38. ;bot starts paused. press space to start.
  39. Pause()
  40.  
  41. WinActivate('Diablo III')
  42. Call("Route")
  43. Func Route()
  44. DEBUG("starting")
  45. ;$Run+= 1
  46. DEBUG($Run)
  47. If WinActive('Diablo III') Then
  48. ;start
  49. Sleep(9000)
  50. ;Click(134, 255) ;resume
  51. MouseClick('left',134, 255,1,0)
  52. ;MouseMove(330, 338) ;moves cursor over to the window so the proper red pixel becomes highlighted
  53. ;$Pixel3 = PixelSearch(310,348, 700, 300, 0x2B0E0C, 1)
  54. ;If Not @error Then
  55. ;Sleep(2000)
  56. ;MouseClick("left", 400, 380)
  57. ;Debug("Waiting 10 minutes and trying again.")
  58. ;Sleep(60000)
  59. ;Debug("Waiting 9 minutes and trying again.")
  60. ;Sleep(60000)
  61. ;Debug("Waiting 8 minutes and trying again.")
  62. ;Sleep(60000)
  63. ;Debug("Waiting 7 minutes and trying again.")
  64. ;Sleep(60000)
  65. ;Debug("Waiting 6 minutes and trying again.")
  66. ;Sleep(60000)
  67. ;Debug("Waiting 5 minutes and trying again.")
  68. ;Sleep(60000)
  69. ;Debug("Waiting 4 minutes and trying again.")
  70. ;Sleep(60000)
  71. ;Debug("Waiting 3 minutes and trying again.")
  72. ;Sleep(60000)
  73. ;Debug("Waiting 2 minutes and trying again.")
  74. ;Sleep(60000)
  75. ;Debug("Waiting 1 minute and trying again.")
  76. ;Sleep(60000)
  77. ;Else
  78. Sleep(5500) ;load
  79. If Mod($Run, 20) = 0 Then
  80. Call("GoSell")
  81. EndIf
  82. $repair = PixelSearch(569,39,597,84,0xFFF000) ;searches top right screen for yellow of broken armor
  83. If Not @error Then
  84. DEBUG("Going to repair")
  85. Send("t")
  86. Sleep($tptime)
  87. Call("CheckDead")
  88. Sleep(40)
  89. MouseClick("left", 710, 40) ;begin movement towards merchant
  90. Sleep(2400)
  91. MouseClick("left", 480, 140) ;NPC Merchant to the right of cain's home
  92. Sleep(3000)
  93. Call("Sell")
  94. Sleep(3000)
  95. MouseClick("left", 280, 275) ;button to open up repair menu
  96. Sleep(1500)
  97. MouseClick("left", 140, 330) ;button to pay for repairs
  98. Sleep(1500)
  99. Send("{ESC}") ;opens menu
  100. Sleep(1000)
  101. Send("{ESC}") ;opens menu
  102. Sleep(1000)
  103. MouseClick("left", 400, 350) ;button to leave game
  104. Sleep(2400)
  105. Call("Route")
  106. Else
  107. ;route start
  108. If $CountSell >= 20 Then
  109. Send("t")
  110. Sleep(8000)
  111. MouseClick("left", 710, 40) ;begin movement towards merchant
  112. Sleep(2400)
  113. MouseClick("left", 480, 140) ;NPC Merchant to the right of cain's home
  114. Sleep(3000)
  115. Call("Sell")
  116. Sleep(3000)
  117. MouseClick("left", 280, 275) ;button to open up repair menu
  118. Sleep(1500)
  119. MouseClick("left", 140, 330) ;button to pay for repairs
  120. Sleep(1500)
  121. Send("{ESC}") ;opens menu
  122. Sleep(1000)
  123. Send("{ESC}") ;opens menu
  124. Sleep(1000)
  125. MouseClick("left", 400, 350) ;button to leave game
  126. Sleep(2400)
  127. Call("Route")
  128. $CountSell = 0
  129. EndIf
  130. $CountSell = $CountSell + 1
  131. MouseClick("middle", 110, 145) ;starts the run [waypoint 1]
  132. Sleep(900)
  133. Send("2")
  134. Sleep(300)
  135. MouseClick("middle", 10, 320) ;waits ~1 second then [waypoint 2]
  136. Sleep(1400)
  137. MouseClick("middle", 10, 320) ;middle of courtyard [waypoint 3]
  138. Sleep(1400)
  139. MouseClick("middle", 170, 215) ;near cellar entrance[waypoint 4]
  140. Sleep(40)
  141. Send("2")
  142. Sleep(20)
  143. Send("3")
  144. Sleep(600)
  145. Send("1")
  146. Sleep(300)
  147. Call("CheckDead")
  148. Sleep(100)
  149. MouseMove(205, 135, 1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
  150. Sleep(1000)
  151. $Pixel2 = PixelSearch(0,0, 702, 302, 0x63A8EE, 3) ;checks for open cellar (in a 700x300 box from the top left - where it should always be)
  152. If Not @error Then
  153. MouseClick("left", 205, 135) ;Entrance to cellar
  154. Sleep(3000)
  155. MouseClick("middle", 10, 500) ;moves to doorway leading to rare inside cellar
  156. Sleep(1100)
  157. MouseClick("middle", 290, 270) ;moves to doorway leading to rare inside cellar
  158. Sleep(800)
  159. MouseMove(225, 140, 1) ;hovers over the rare Sarkoth
  160. Call("CheckDead")
  161. Sleep(10)
  162. Send("4")
  163. Send("{SHIFTDOWN}")
  164. MouseDown("left") ;attack middle
  165. Sleep(8000)
  166. MouseUp("left")
  167. MouseDown("right")
  168. Sleep(4000)
  169. MouseUp("right")
  170. MouseMove(80, 160, 1) ;attack left
  171. Sleep(40)
  172. MouseDown("right")
  173. Sleep(2800)
  174. MouseUp("right")
  175. MouseMove(280, 90, 1) ;attack right
  176. MouseDown("right")
  177. Sleep(1800)
  178. MouseUp("right")
  179. Send("{SHIFTUP}")
  180. Sleep(400)
  181. Send("4")
  182. Sleep(10)
  183. MouseClick("middle", 210, 190) ;location of sarkoth after death
  184. Sleep(5000)
  185. Call("CheckDead")
  186. Debug("Checkloot")
  187. Call("CheckLoot")
  188. Send("4")
  189. Sleep(1000)
  190. Send("t")
  191. $Run+= 1
  192. Sleep($tptime)
  193. Else
  194. DEBUG("starting here")
  195. Sleep(10)
  196. MouseClick("middle", 460, 380) ;moves between caltrops for safety before teleporting back to town
  197. Sleep(200)
  198. Send("1")
  199. Sleep(620)
  200. Send("2")
  201. Sleep(40)
  202. Send("t")
  203. Sleep($tptime)
  204. EndIf
  205. EndIf
  206. ;route end
  207. DEBUG("quitting")
  208. Sleep(40)
  209. Send("{ESC}") ;opens menu
  210. Sleep(1000)
  211. MouseClick("left", 400, 350) ;button to leave game
  212. $Picked = True
  213. Sleep(5000)
  214. Call("Route")
  215. EndIf
  216. EndFunc
  217.  
  218. Func Move($x, $y)
  219. If Not $Picked Then
  220. FindItems()
  221. EndIf
  222. If Not $Picked Then
  223. ;MouseClick('middle', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
  224. MouseClick('middle',$x,$y,1,0)
  225. ;Sleep(Random(2000, 2500))
  226. Sleep(2000)
  227. EndIf
  228. EndFunc ;==>Move
  229.  
  230. Func Click($x, $y)
  231. If Not $Picked Then
  232. FindItems()
  233. EndIf
  234. If Not $Picked Then
  235. ;MouseClick('left', Random($x - 3, $x + 3), Random($y - 3, $y + 3), 1, Random(0, 1))
  236. MouseClick('left',$x,$y,1,0)
  237. ;Sleep(Random(1000, 1500))
  238. Sleep(1000)
  239. EndIf
  240. EndFunc ;==>Click
  241.  
  242. Func Shoot($x, $y)
  243. If Not $Picked Then
  244. FindItems()
  245. EndIf
  246. If Not $Picked Then
  247. ;MouseClick('right', Random($x - 2, $x + 2), Random($y - 2, $y + 2), 1, 0)
  248. MouseClick('right',$x,$y,1,0)
  249. ;Sleep(Random(550, 700))
  250. Sleep(550)
  251. EndIf
  252. EndFunc ;==>Shoot
  253.  
  254. Func CheckDead()
  255. Sleep(500)
  256. ;Local $dead = PixelSearch(200, 190, 240, 230, 0xFFFFFF, 2)
  257. Local $dead = PixelSearch(220, 210, 221, 211, 0xFFFFFF, 1)
  258. If Not @error Then
  259. DEBUG("U Died Bro")
  260. Send("{ESC}")
  261. MouseClick('left', 400, 350)
  262. Sleep(13000)
  263. Call("Route")
  264. EndIf
  265. EndFunc
  266.  
  267. Func CheckLoot()
  268. ;send("{ALTDOWN}")
  269. Sleep(Random(500,2000))
  270. send("{ALT}")
  271. $SL = PixelSearch(366, 294, 456,346, 0x00FF00, 8) ; set loot
  272. If Not @error Then
  273. MouseClick ('left', $SL[0], $SL[1])
  274. Debug("Set")
  275. Sleep(Random(800,1200))
  276. $i+= 1
  277. If $i <= 8 Then
  278. EndIf
  279. EndIf
  280. ;send("{ALT}")
  281. $LL = PixelSearch(366, 294, 456,346, 0xBF642F, 2) ; legendary loot
  282. If Not @error Then
  283. MouseClick ('left', $LL[0], $LL[1])
  284. Debug("Set")
  285. Sleep(Random(800,1200))
  286. $i+= 1
  287. If $i <= 8 Then
  288. EndIf
  289. EndIf
  290. send("{ALT}")
  291. If $LootRares Then
  292. $RL = PixelSearch(366, 294, 456,346, 0xFFFF00, 2) ; rare loot (darker for compatibility)
  293. If Not @error Then
  294. MouseClick ('left', $RL[0], $RL[1])
  295. Debug("Rare")
  296. Sleep(Random(700,900))
  297. $i+= 1
  298. If $i <= 8 Then
  299. EndIf
  300. EndIf
  301. EndIf
  302. send("{ALT}")
  303. If $LootRares Then
  304. $ML = PixelSearch(366, 294, 456,346, 0x6969FF, 2) ; magic loot
  305. If Not @error Then
  306. MouseClick ('left', $ML[0], $ML[1])
  307. Debug("Magic")
  308. Sleep(Random(700,900))
  309. $i+= 1
  310. If $i <= 8 Then
  311. EndIf
  312. EndIf
  313. EndIf
  314. send("{ALTUP}")
  315.  
  316.  
  317. ;original ;send("{ALT}")
  318. ; $SetLoot = PixelSearch(150, 200, 700,400, 0x02CE01, 8) ; set loot
  319. ; If Not @error Then
  320. ; MouseClick ('left', $SetLoot[0], $SetLoot[1])
  321. ; Debug("Set")
  322. ; Sleep(Random(800,1200))
  323. ; $i+= 1
  324. ; If $i <= 8 Then
  325. ; EndIf
  326. ; EndIf
  327. ; $LegendaryLoot= PixelSearch(150, 200, 700,400, 0xAC5B2C, 8) ; legendary loot
  328. ; If Not @error Then
  329. ; MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1])
  330. ; Debug("Legendary")
  331. ; Sleep(Random(800,1200))
  332. ; $i+= 1
  333. ; If $i <= 8 Then
  334. ; EndIf
  335. ; EndIf
  336. ; If $LootRares Then
  337. ; $RareLoot = PixelSearch(150, 200, 700,400, 0xBBBB00, 2) ; rare loot (darker for compatibility)
  338. ; If Not @error Then
  339. ; MouseClick ('left', $RareLoot[0], $RareLoot[1])
  340. ; Debug("Rare")
  341. ; Sleep(Random(700,900))
  342. ; $i+= 1
  343. ; If $i <= 8 Then
  344. ; EndIf
  345. ; EndIf
  346. ; EndIf
  347. ;end of original
  348.  
  349. send("{ALT}")
  350. $SetLoot = PixelSearch(700, 400, 150,200, 0x00FF00, 8) ; set loot
  351. If Not @error Then
  352. MouseClick ('left', $SetLoot[0], $SetLoot[1])
  353. Debug("Set")
  354. Sleep(Random(800,1200))
  355. $i+= 1
  356. If $i <= 8 Then
  357. EndIf
  358. EndIf
  359. $SetLoot = PixelSearch(150, 200, 700,400, 0x00FF00, 8) ; set loot
  360. If Not @error Then
  361. MouseClick ('left', $SetLoot[0], $SetLoot[1])
  362. Debug("Set")
  363. Sleep(Random(800,1200))
  364. $i+= 1
  365. If $i <= 8 Then
  366. EndIf
  367. EndIf
  368. send("{ALT}")
  369. $LegendaryLoot= PixelSearch(700, 400, 150,200, 0xBF642F, 2) ; legendary loot
  370. If Not @error Then
  371. MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1])
  372. Debug("Legendary")
  373. Sleep(Random(800,1200))
  374. $i+= 1
  375. If $i <= 8 Then
  376. EndIf
  377. EndIf
  378. $LegendaryLoot= PixelSearch(150, 200, 700,400, 0xBF642F, 2) ; legendary loot
  379. If Not @error Then
  380. MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1])
  381. Debug("Legendary")
  382. Sleep(Random(800,1200))
  383. $i+= 1
  384. If $i <= 8 Then
  385. EndIf
  386. EndIf
  387. send("{ALT}")
  388. If $LootRares Then
  389. $RareLoot = PixelSearch(700, 400, 150,200, 0xFFFF00, 2) ; rare loot (darker for compatibility)
  390. If Not @error Then
  391. MouseClick ('left', $RareLoot[0], $RareLoot[1])
  392. Debug("Rare")
  393. Sleep(Random(700,900))
  394. $i+= 1
  395. If $i <= 8 Then
  396. EndIf
  397. EndIf
  398. EndIf
  399. If $LootRares Then
  400. $RareLoot = PixelSearch(150, 200, 700,400, 0xFFFF00, 2) ; rare loot (darker for compatibility)
  401. If Not @error Then
  402. MouseClick ('left', $RareLoot[0], $RareLoot[1])
  403. Debug("Rare")
  404. Sleep(Random(700,900))
  405. $i+= 1
  406. If $i <= 8 Then
  407. EndIf
  408. EndIf
  409. EndIf
  410. If $LootRares Then
  411. $MagicLoot = PixelSearch(700, 400, 150,200, 0x6969FF, 2) ; magic loot
  412. If Not @error Then
  413. MouseClick ('left', $MagicLoot[0], $MagicLoot[1])
  414. Debug("Magic")
  415. Sleep(Random(700,900))
  416. $i+= 1
  417. If $i <= 8 Then
  418. EndIf
  419. EndIf
  420. EndIf
  421. If $LootRares Then
  422. $MagicLoot = PixelSearch(700, 400, 150,200, 0x6969FF, 2) ; magic loot
  423. If Not @error Then
  424. MouseClick ('left', $MagicLoot[0], $MagicLoot[1])
  425. Debug("Magic")
  426. Sleep(Random(700,900))
  427. $i+= 1
  428. If $i <= 8 Then
  429. EndIf
  430. EndIf
  431. EndIf
  432. If $LootRares Then
  433. $MagicLoot = PixelSearch(150, 200, 700,400, 0x6969FF, 2) ; magic loot
  434. If Not @error Then
  435. MouseClick ('left', $MagicLoot[0], $MagicLoot[1])
  436. Debug("Magic")
  437. Sleep(Random(700,900))
  438. $i+= 1
  439. If $i <= 8 Then
  440. EndIf
  441. EndIf
  442. EndIf
  443. ;send("{ALT}")
  444. ;If $LootRares Then
  445. ; $WhiteLoot = PixelSearch(700, 400, 150,200, 0xFFFFFF, 2) ; White loot
  446. ; If Not @error Then
  447. ; MouseClick ('left', $WhiteLoot[0], $WhiteLoot[1])
  448. ; Debug("White")
  449. ; Sleep(Random(700,900))
  450. ; $i+= 1
  451. ; If $i <= 8 Then
  452. ; EndIf
  453. ; EndIf
  454. ; EndIf
  455. ;If $LootRares Then
  456. ; $WhiteLoot = PixelSearch(150, 200, 700,400, 0xFFFFFF, 2) ; White loot
  457. ; If Not @error Then
  458. ; MouseClick ('left', $WhiteLoot[0], $WhiteLoot[1])
  459. ; Debug("White")
  460. ; Sleep(Random(700,900))
  461. ; $i+= 1
  462. ; If $i <= 8 Then
  463. ; EndIf
  464. ; EndIf
  465. ; EndIf
  466. EndFunc
  467.  
  468.  
  469. Func CheckGems()
  470. If $LootGems Then
  471. $AmethystDrop = PixelSearch(150, 200, 700,700, $Amethyst,8)
  472. If Not @error Then
  473. MouseClick("left", $AmethystDrop[0], $AmethystDrop[1])
  474. Debug("Amethyst")
  475. Sleep(Random(900,1400))
  476. $i+= 1
  477. If $i <= 10 Then
  478. EndIf
  479. EndIf
  480. $RubyDrop = PixelSearch(150, 200, 700,400, $Ruby,10)
  481. If Not @error Then
  482. MouseClick("left", $RubyDrop[0], $RubyDrop[1])
  483. Debug("Ruby")
  484. Sleep(Random(900,1400))
  485. $i+= 1
  486. If $i <= 10 Then
  487. EndIf
  488. EndIf
  489. $EmeraldDrop = PixelSearch(150, 200, 700,400, $Emerald,20)
  490. If Not @error Then
  491. MouseClick("left", $EmeraldDrop[0], $EmeraldDrop[1])
  492. Debug("Emerald")
  493. Sleep(Random(900,1400))
  494. $i+= 1
  495. If $i <= 10 Then
  496. EndIf
  497. EndIf
  498. $TopazDrop = PixelSearch(150, 200, 700,400, $Topaz,20)
  499. If Not @error Then ; change to 'If Not @error Then' if you want to search for topazes
  500. MouseClick("left", $TopazDrop[0], $TopazDrop[1])
  501. Debug("Topaz")
  502. Sleep(Random(900,1400))
  503. $i+= 1
  504. If $i <= 10 Then
  505. EndIf
  506. EndIf
  507. EndIf
  508. EndFunc
  509.  
  510. Func RandomSleep()
  511. If $Timer And Random(1,20) = 20 Then
  512. Sleep(Random(30000,60000)
  513. EndIf
  514. EndFunc
  515.  
  516. Func Quit()
  517. Exit
  518. EndFunc ;==>Quit
  519.  
  520. Func Pause()
  521. $Paused = Not $Paused
  522. While $Paused
  523. Sleep(100)
  524. ToolTip('Paused...', 0, 0)
  525. WEnd
  526. ToolTip("")
  527. EndFunc ;==>Pause
  528.  
  529. Func DEBUG($MESSAGE)
  530. If $DebugOn Then
  531. ToolTip($MESSAGE, 0, 0)
  532. EndIf
  533. EndFunc ;==>Debug Info
  534.  
  535.  
  536. Func GoSell()
  537. DEBUG("Going to sell")
  538. $Run+= 1
  539. Send("t")
  540. Sleep(8000)
  541. MouseClick("left", 710, 40) ;begin movement towards merchant
  542. Sleep(2400)
  543. MouseClick("left", 480, 140) ;NPC Merchant to the right of cain's home
  544. Sleep(3000)
  545. Call("Sell")
  546. Sleep(3000)
  547. MouseClick("left", 280, 275) ;button to open up repair menu
  548. Sleep(1500)
  549. MouseClick("left", 140, 330) ;button to pay for repairs
  550. Sleep(1500)
  551. Send("{ESC}") ;opens menu
  552. Sleep(1000)
  553. Send("{ESC}") ;opens menu
  554. Sleep(1000)
  555. MouseClick("left", 400, 350) ;button to leave game
  556. Sleep(2400)
  557. Call("Route")
  558. EndFunc
  559.  
  560. Func Sell()
  561. ;sell first column
  562. ;MouseClick ("right", 538, 370) ;row 1
  563. ;Sleep($selltime)
  564. ;MouseClick ("right", 538, 395) ;row 2
  565. ;Sleep($selltime)
  566. ;MouseClick ("right", 538, 423) ;row 3
  567. ;Sleep($selltime)
  568. ;MouseClick ("right", 538, 448) ;row 4
  569. ;Sleep($selltime)
  570. ;MouseClick ("right", 538, 475) ;row 5
  571. ;Sleep($selltime)
  572. ;MouseClick ("right", 538, 501) ;row 6
  573. ;Sleep($selltime)
  574.  
  575. ;this part may be for future development to cut out tons of lines
  576. ;now sell the other 9 columns
  577. ;$j = 0
  578. ;while $j < 10
  579. ;$j += 1
  580. ;sell column 2
  581. MouseClick ("right", 565, 370) ;row 1
  582. Sleep($selltime)
  583. MouseClick ("right", 565, 395) ;row 2
  584. Sleep($selltime)
  585. MouseClick ("right", 565, 423) ;row 3
  586. Sleep($selltime)
  587. MouseClick ("right", 565, 448) ;row 4
  588. Sleep($selltime)
  589. MouseClick ("right", 565, 475) ;row 5
  590. Sleep($selltime)
  591. MouseClick ("right", 565, 501) ;row 6
  592. Sleep($selltime)
  593. ;sell column 3
  594. MouseClick ("right", 592, 370) ;row 1
  595. Sleep($selltime)
  596. MouseClick ("right", 592, 395) ;row 2
  597. Sleep($selltime)
  598. MouseClick ("right", 592, 423) ;row 3
  599. Sleep($selltime)
  600. MouseClick ("right", 592, 448) ;row 4
  601. Sleep($selltime)
  602. MouseClick ("right", 592, 475) ;row 5
  603. Sleep($selltime)
  604. MouseClick ("right", 592, 501) ;row 6
  605. Sleep($selltime)
  606. ;sell column 4
  607. MouseClick ("right", 619, 370) ;row 1
  608. Sleep($selltime)
  609. MouseClick ("right", 619, 395) ;row 2
  610. Sleep($selltime)
  611. MouseClick ("right", 619, 423) ;row 3
  612. Sleep($selltime)
  613. MouseClick ("right", 619, 448) ;row 4
  614. Sleep($selltime)
  615. MouseClick ("right", 619, 475) ;row 5
  616. Sleep($selltime)
  617. MouseClick ("right", 619, 501) ;row 6
  618. Sleep($selltime)
  619. ;sell column 5
  620. MouseClick ("right", 646, 370) ;row 1
  621. Sleep($selltime)
  622. MouseClick ("right", 646, 395) ;row 2
  623. Sleep($selltime)
  624. MouseClick ("right", 646, 423) ;row 3
  625. Sleep($selltime)
  626. MouseClick ("right", 646, 448) ;row 4
  627. Sleep($selltime)
  628. MouseClick ("right", 646, 475) ;row 5
  629. Sleep($selltime)
  630. MouseClick ("right", 646, 501) ;row 6
  631. Sleep($selltime)
  632. ;sell column 6
  633. MouseClick ("right", 673, 370) ;row 1
  634. Sleep($selltime)
  635. MouseClick ("right", 673, 395) ;row 2
  636. Sleep($selltime)
  637. MouseClick ("right", 673, 423) ;row 3
  638. Sleep($selltime)
  639. MouseClick ("right", 673, 448) ;row 4
  640. Sleep($selltime)
  641. MouseClick ("right", 673, 475) ;row 5
  642. Sleep($selltime)
  643. MouseClick ("right", 673, 501) ;row 6
  644. Sleep($selltime)
  645. ;sell column 7
  646. MouseClick ("right", 700, 370) ;row 1
  647. Sleep($selltime)
  648. MouseClick ("right", 700, 395) ;row 2
  649. Sleep($selltime)
  650. MouseClick ("right", 700, 423) ;row 3
  651. Sleep($selltime)
  652. MouseClick ("right", 700, 448) ;row 4
  653. Sleep($selltime)
  654. MouseClick ("right", 700, 475) ;row 5
  655. Sleep($selltime)
  656. MouseClick ("right", 700, 501) ;row 6
  657. Sleep($selltime)
  658. ;sell column 8
  659. MouseClick ("right", 727, 370) ;row 1
  660. Sleep($selltime)
  661. MouseClick ("right", 727, 395) ;row 2
  662. Sleep($selltime)
  663. MouseClick ("right", 727, 423) ;row 3
  664. Sleep($selltime)
  665. MouseClick ("right", 727, 448) ;row 4
  666. Sleep($selltime)
  667. MouseClick ("right", 727, 475) ;row 5
  668. Sleep($selltime)
  669. MouseClick ("right", 727, 501) ;row 6
  670. Sleep($selltime)
  671. ;sell column 9
  672. MouseClick ("right", 754, 370) ;row 1
  673. Sleep($selltime)
  674. MouseClick ("right", 754, 395) ;row 2
  675. Sleep($selltime)
  676. MouseClick ("right", 754, 423) ;row 3
  677. Sleep($selltime)
  678. MouseClick ("right", 754, 448) ;row 4
  679. Sleep($selltime)
  680. MouseClick ("right", 754, 475) ;row 5
  681. Sleep($selltime)
  682. MouseClick ("right", 754, 501) ;row 6
  683. Sleep($selltime)
  684. ;sell column 10
  685. MouseClick ("right", 781, 370) ;row 1
  686. Sleep($selltime)
  687. MouseClick ("right", 781, 395) ;row 2
  688. Sleep($selltime)
  689. MouseClick ("right", 781, 423) ;row 3
  690. Sleep($selltime)
  691. MouseClick ("right", 781, 448) ;row 4
  692. Sleep($selltime)
  693. MouseClick ("right", 781, 475) ;row 5
  694. Sleep($selltime)
  695. MouseClick ("right", 781, 501) ;row 6
  696. Sleep($selltime)
  697. ;WEnd
  698. EndFunc
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!