Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 1st, 2012  |  syntax: AutoIt  |  size: 1.60 KB  |  hits: 676  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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
create a new version of this paste RAW Paste Data