Advertisement
Guest User

Untitled

a guest
Jun 1st, 2012
763
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.60 KB | None | 0 0
  1. #include <GUIConstantsEx.au3>
  2. #include <ButtonConstants.au3>
  3. #include <StaticConstants.au3>
  4. #include <WinAPI.au3>
  5.  
  6.  
  7. GUICreate("Yellowspark's lil chest //credits to who knows for GUI//", 250, 250, -1, -1)
  8. HotKeySet("9", "wk_leavegame")
  9. HotKeySet("x", "Kill_Bot")
  10. $Movement = GUICtrlCreateButton("Chest Farm!", 50, 65, 105, 30)
  11. GUISetState()
  12. _Main()
  13.  
  14. Func _Main()
  15.  
  16.    
  17.     While 1
  18.         $msg = GUIGetMsg()
  19.     Select
  20.             Case $msg = $Movement
  21.                 _CHESTFARM()
  22.     EndSelect
  23.         ;If $msg = $GUI_EVENT_CLOSE Then ExitLoop
  24.     WEnd
  25. EndFunc
  26. Func Kill_Bot()
  27. Exit
  28. EndFunc
  29. Func wk_leavegame()
  30. _LEAVEGAME_TELE()
  31. _CHEST_STARTGAME()
  32. EndFunc
  33. Func _LEAVEGAME_TELE()
  34. WinWait( "Diablo III")
  35. WinActivate( "Diablo III")
  36. Sleep(200)
  37. Send("{ESCAPE}")                    ;Open Main Menu, hits escape
  38. Sleep(250)                      ;Wait for animation
  39. MouseClick("left", 838, 564, 3) ;Click Leave Game
  40. EndFunc
  41.  
  42. ;CHEST FARM STUFF
  43. Func _CHESTFARM()
  44. WinWait( "Diablo III")
  45. WinActivate( "Diablo III")
  46. Sleep(1200)
  47. AutoItSetOption("SendKeyDelay", 5)
  48. _CHEST_STARTGAME()
  49. _CHEST_1()
  50. EndFunc
  51.  
  52. Func _CHEST_STARTGAME()
  53. WinWait( "Diablo III")
  54. WinActivate( "Diablo III")
  55. Sleep(1700)
  56. AutoItSetOption("SendKeyDelay", 5)
  57.  
  58. MouseMove(824, 506, 5);Move mouse to center of screen
  59. MouseClick("left", 227, 409, 8) ;Click START GAME
  60. ;Launch Movement Testing
  61. Sleep(6000) ;Wait for load screen
  62. EndFunc
  63. Func _CHEST_1()
  64.     MouseClick("left",348,384,1,5)
  65.     Sleep(2000)
  66.     MouseClick("left",301,454,3,5)
  67.     Sleep(2000)
  68.     MouseClick("left",796,468,4,6)
  69.     Sleep(2000)
  70.     MouseClick("left",866,548,2,6)
  71.     Sleep(1000)
  72.     _LEAVEGAME_TELE()
  73.     Sleep(2160)
  74.     _CHESTFARM()
  75. EndFunc
  76. ;ENDCHESTFARM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement