API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 13th, 2012
70
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 17.38 KB | None | 0 0
raw download clone embed print report diff
  1. Global $Paused
  2. HotKeySet("=","Leave") ;script started by pressing =
  3. HotKeySet("-", "Pause") ;script paused by pressing -
  4. HotKeySet("x", "Stop") ;script stopped by pressing x
  5.  
  6. $walktime = 3000 ; time in ms the script waits for you to enter and load the cellar. Slow this down for slower move speeds and loading times
  7. $loadtime = 3200 ; time in ms the script waits for the game to load before it starts pathfinding. Slow this down for slower hard drives
  8. $tptime = 6900 ; time in ms the script waits for teleport before exiting the game
  9. $yellow = 0xFFF000 ; yellow color code (repair icon)
  10. $red = 0xD90000 ; red color code (repair icon)
  11.  
  12. $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)
  13. $LootGems = False ; Change this to true if you want to pick up gems (messy, can fill up bag with whites/blues)
  14. $Amethyst = 0xAC7FFF
  15. $Ruby = 0xB01D2D
  16. $Emerald = 0x58EE33
  17. $Topaz = 0xFFFF59
  18.  
  19. $go = True
  20. $Leave = False
  21. $Dead = False
  22. $Logout = False
  23. $Window = False
  24. $default_resolutionX = 1920
  25. $default_resolutionY = 1080
  26. $x_ratio = @Desktopwidth / $default_resolutionX
  27. $y_ratio = @Desktopheight / $default_resolutionY
  28. $i = 0
  29.  
  30. Call("RestartRun")
  31.  
  32. Func RestartRun()
  33. While $go
  34. if($Leave) Then
  35. $i = 0
  36. Sleep(1000) ;had to add this since the icon doesn't show up RIGHT away in game
  37. Call("CheckDead")
  38. Call("CheckRepair")
  39. If $Window Then
  40. Call("MainMenu")
  41. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  42. Sleep($loadtime)
  43. $Window = False
  44. ExitLoop
  45. ElseIf $Dead or $Logout Then
  46. ExitLoop
  47. EndIf
  48. MouseClick("left", Round(0 * $x_ratio),Round(250 * $y_ratio)) ;starts the main run
  49. Send("4")
  50. Sleep(140)
  51. Send("4")
  52. Sleep(140)
  53. Send("4")
  54. Sleep(140)
  55. Send("4")
  56. Sleep(80)
  57. Send("4")
  58. Sleep(80)
  59. Send("4")
  60. Sleep(80)
  61. Send("4")
  62. Sleep(80)
  63. Send("4")
  64. Sleep(80)
  65. Send("1")
  66. Send("3")
  67. Sleep(800)
  68. MouseMove(Round(290*$x_ratio),Round(270*$y_ratio),1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted
  69. Sleep(700)
  70. Call("CheckDead")
  71. If $Window Then
  72. Call("MainMenu")
  73. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  74. Sleep($loadtime)
  75. $Window = False
  76. ExitLoop
  77. ElseIf $Dead or $Logout Then
  78. ExitLoop
  79. EndIf
  80. $Pixel2 = PixelSearch(0,0, Round(600*$x_ratio), Round(600*$y_ratio),0x334FB7,3) ;checks for open cellar (in a 600x400 box from the top left - where it should always be)
  81. If Not @error Then
  82. MouseClick("left",Round(290*$x_ratio),Round(270*$y_ratio)) ;Entrance to cellar
  83. Sleep(400)
  84.  
  85. Sleep($walktime)
  86. MouseClick("middle",Round(110*$x_ratio),Round(1000*$y_ratio)) ;moves to doorway leading to rare inside cellar
  87. Sleep(2500)
  88. MouseMove(Round(440*$x_ratio),Round(80*$y_ratio),1) ;hovers over the rare Sarkoth
  89. Sleep(10)
  90. Send("{SHIFTDOWN}")
  91. MouseClick("left",Round(440*$x_ratio),Round(80*$y_ratio),2)
  92. MouseDown("right") ;attack middle
  93. Sleep(7800)
  94. MouseClick("right",Round(620*$x_ratio),Round(20*$y_ratio),2) ;break the table & chair
  95. Sleep(10)
  96. Send("{SHIFTUP}")
  97. Sleep(400)
  98. MouseClick("middle",Round(530*$x_ratio),Round(170*$y_ratio)) ;location of sarkoth after death
  99. Sleep(2100)
  100.  
  101. Call("CheckLoot")
  102. Send("t")
  103. Sleep($tptime)
  104. Call("CheckDead")
  105. If Not $Logout And Not $Dead And Not $Window Then
  106. Sleep(300)
  107. Send("{ESCAPE}") ;menu
  108. Sleep(200)
  109. MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
  110. Sleep($loadtime)
  111. Call("CheckDead")
  112. If Not $Logout Then
  113. Call("MainMenu")
  114. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  115. Sleep($loadtime)
  116. EndIf
  117. Else
  118. Call("MainMenu")
  119. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  120. Sleep($loadtime)
  121. $Window = False ; reset the flag so it doesn't think a window is always up
  122. EndIf
  123. Else
  124. Send("2")
  125. Sleep(700)
  126. Send("t")
  127. Sleep($tptime)
  128. Call("CheckDead")
  129. If Not $Logout And Not $Dead And Not $Window Then
  130. Sleep(300)
  131. Send("{ESCAPE}") ;menu
  132. Sleep(200)
  133. MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
  134. Sleep($loadtime)
  135. Call("CheckDead")
  136. If Not $Logout Then
  137. Call("MainMenu")
  138. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  139. Sleep($loadtime)
  140. EndIf
  141. Else
  142. Call("MainMenu:)
  143. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  144. Sleep($loadtime)
  145. $Window = False ; reset the flag so it doesn't think a window is always up
  146. EndIf
  147. EndIf
  148. EndIf
  149. WEnd
  150. Call("RestartRun")
  151. EndFunc
  152.  
  153. Func CheckDead()
  154. Call("CheckWindow")
  155. $YouHaveDied = PixelSearch(Round(620*$x_ratio), Round(325*$y_ratio), Round(625*$x_ratio), Round(330*$y_ratio), 0xFFFFFF) ; checks for white text "YOU HAVE DIED"
  156. If Not @error Then
  157. If Not $Window Then
  158. $Dead = True
  159. Sleep(100)
  160. Send("{Escape}")
  161. Sleep(10)
  162. MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
  163. Sleep(11000)
  164. Sleep($loadtime)
  165. Call("MainMenu")
  166. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  167. Sleep($loadtime)
  168. Else
  169. Call("MainMenu")
  170. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  171. Sleep($loadtime)
  172. $Dead = False
  173. EndIf
  174. Else
  175. $Dead = False
  176. EndIf
  177. $LogoutTimerCancel = PixelSearch(Round(900*$x_ratio), Round(240*$y_ratio), Round(1010*$x_ratio), Round(290*$y_ratio), 0x993827) ; checks for cancel button on logout timer
  178. If Not @error Then
  179. Sleep(11000)
  180. Sleep($loadtime)
  181. If Not $Window Then
  182. $Dead = True
  183. $Logout = True
  184. Sleep($loadtime)
  185. Call("MainMenu)
  186. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  187. Sleep($loadtime)
  188. Else
  189. Call("MainMenu)
  190. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  191. Sleep($loadtime)
  192. $Logout = False
  193. EndIf
  194. Else
  195. $Logout = False
  196. EndIf
  197. EndFunc
  198.  
  199. Func CheckWindow()
  200. $CloseButton = PixelSearch(Round(1570*$x_ratio), Round(110*$y_ratio), Round(1590*$x_ratio), Round(120*$y_ratio), 0x8C2300) ; checks for the red color of the "X" on an open window
  201. If Not @error Then
  202. Sleep(200)
  203. Send("{SPACE}") ;close any open windows
  204. $Window = True
  205. Else
  206. $Window = False
  207. EndIf
  208. EndFunc
  209.  
  210. Func CheckRepair()
  211. $RepairArea = PixelSearch(Round(1480*$x_ratio), 0, Round(1570*$x_ratio), Round(100*$y_ratio), $yellow)
  212. If Not @error Then
  213. Call("DoRepair")
  214. EndIf
  215. $RepairAreaRed = PixelSearch(Round(1480*$x_ratio), 0, Round(1570*$x_ratio), Round(100*$y_ratio), $red)
  216. If Not @error Then
  217. Call("DoRepair")
  218. EndIf
  219. EndFunc
  220.  
  221. Func DoRepair()
  222. Sleep(100)
  223. Send("t")
  224. Sleep($tptime)
  225. MouseClick("left", Round(1480*$x_ratio),Round(281*$y_ratio)) ;begin movement towards merchant
  226. Sleep(1500)
  227. MouseClick("left", Round(1316*$x_ratio),Round(206*$y_ratio)) ;moves to get merchant in screen
  228. Sleep(1500)
  229. MouseClick("left", Round(845*$x_ratio),Round(225*$y_ratio)) ;NPC Merchant to the right of cain's home
  230. Sleep(1200)
  231. MouseClick("left", Round(521*$x_ratio),Round(506*$y_ratio)) ;button to open up repair menu
  232. Sleep(400)
  233. MouseClick("left", Round(260*$x_ratio),Round(595*$y_ratio)) ;button to pay for repairs
  234. Sleep(200)
  235. Call("CheckDead")
  236. If Not $Dead and Not $Logout Then
  237. Send("{ESCAPE}") ;closes repair tab
  238. Sleep(100)
  239. Send("{ESCAPE}") ;menu
  240. Sleep(10)
  241. MouseClick("left", Round(956*$x_ratio),Round(579*$y_ratio)) ;button to leave game
  242. Sleep($loadtime)
  243. Call("MainMenu)
  244. MouseClick("left", Round(230*$x_ratio),Round(416*$y_ratio)) ;button to resume game from main menu
  245. Sleep($loadtime)
  246. EndIf
  247. EndFunc
  248.  
  249. Func CheckLoot()
  250. Sleep(Random(500,2000))
  251. $SetLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0x02CE01, 2) ; set loot
  252. If Not @error Then
  253. MouseClick ('left', $SetLoot[0], $SetLoot[1])
  254. Sleep(Random(800,1200))
  255. $i+= 1
  256. If $i <= 6 Then
  257. Call("CheckLoot")
  258. EndIf
  259. EndIf
  260. $LegendaryLoot= PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0xBF642F, 2) ; legendary loot
  261. If Not @error Then
  262. MouseClick ('left', $LegendaryLoot[0], $LegendaryLoot[1])
  263. Sleep(Random(800,1200))
  264. $i+= 1
  265. If $i <= 6 Then
  266. Call("CheckLoot")
  267. EndIf
  268. EndIf
  269. If $LootRares Then
  270. $RareLoot = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), 0xBBBB00, 2) ; rare loot (darker for compatibility)
  271. If Not @error Then
  272. MouseClick ('left', $RareLoot[0], $RareLoot[1])
  273. Sleep(Random(700,900))
  274. $i+= 1
  275. If $i <= 6 Then
  276. Call("CheckLoot")
  277. EndIf
  278. EndIf
  279. EndIf
  280. If $LootGems Then
  281. $AmethystDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Amethyst,8)
  282. If Not @error Then
  283. MouseClick("left", $AmethystDrop[0], $AmethystDrop[1])
  284. Sleep(Random(900,1400))
  285. $i+= 1
  286. If $i <= 10 Then
  287. Call("CheckLoot")
  288. EndIf
  289. EndIf
  290. $RubyDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Ruby,6)
  291. If Not @error Then
  292. MouseClick("left", $RubyDrop[0], $RubyDrop[1])
  293. Sleep(Random(900,1400))
  294. $i+= 1
  295. If $i <= 10 Then
  296. Call("CheckLoot")
  297. EndIf
  298. EndIf
  299. $EmeraldDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Emerald,11)
  300. If Not @error Then
  301. MouseClick("left", $EmeraldDrop[0], $EmeraldDrop[1])
  302. Sleep(Random(900,1400))
  303. $i+= 1
  304. If $i <= 10 Then
  305. Call("CheckLoot")
  306. EndIf
  307. EndIf
  308. $TopazDrop = PixelSearch(Round(400*$x_ratio), 0, Round(1690*$x_ratio), Round(900*$y_ratio), $Topaz,2)
  309. If Not 1 = 1 Then ; change to 'If Not @error Then' if you want to search for topazes
  310. MouseClick("left", $TopazDrop[0], $TopazDrop[1])
  311. Sleep(Random(900,1400))
  312. $i+= 1
  313. If $i <= 10 Then
  314. Call("CheckLoot")
  315. EndIf
  316. EndIf
  317. EndIf
  318. EndFunc
  319.  
  320. Func MainMenu() ;verifies the screen is at the main menu before attempting to start the next game to avoid getting trapped in menus.
  321. Local $Menu = False
  322. While $Menu = False
  323. $Pixeltestmm = PixelGetColor(Round(251*$x_ratio), Round(284*$y_ratio)) ;tests for main menu
  324. If Hex($Pixeltestmm, 6) == "683C02" Then
  325. $Menu = True
  326. Else
  327. $Pixeltestgm = PixelGetColor(Round(937*$x_ratio), Round(246*$y_ratio)) ;checks if game menu is open
  328. If Hex($Pixeltestgm, 6) == "621610" Then
  329. Send("{Escape}") ;return to main menu
  330. $Menu = True
  331. Else
  332. $Pixeltestgmexit = PixelGetColor(Round(975*$x_ratio), Round(428*$y_ratio)) ;checks if exit game menu is open
  333. If Hex($Pixeltestgmexit, 6) == "FFA300" Then
  334. Send("{Escape}")
  335. Send("{Escape}")
  336. $Menu = True
  337. Else
  338. $Pixeltestbm = PixelGetColor(Round(958*$x_ratio), Round(150*$y_ratio)) ;checks if banner customization window is open
  339. If Hex($Pixeltestbm, 6) == "933618" Then
  340. Send("{Escape}")
  341. $Menu = True
  342. Else
  343. $Pixeltestpm = PixelGetColor(Round(1506*$x_ratio), Round(138*$y_ratio)) ;checks if player window is open
  344. If Hex($Pixeltestpm, 6) == "320c08" Then
  345. Send("{Escape}")
  346. $Menu = True
  347. EndIf
  348. EndIf
  349. EndIf
  350. EndIf
  351. EndIf
  352. WEnd
  353. EndFunc
  354.  
  355. Func Pause()
  356. $Leave = False
  357. EndFunc
  358.  
  359. Func Stop() ;to allow the script to stop
  360. Exit
  361. EndFunc
  362.  
  363. Func Leave()
  364. $Leave = True
  365. 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!