Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <ButtonConstants.au3>
- #include <StaticConstants.au3>
- #include <WinAPI.au3>
- GUICreate("Yellowspark's lil chest //credits to who knows for GUI//", 250, 250, -1, -1)
- HotKeySet("9", "wk_leavegame")
- HotKeySet("x", "Kill_Bot")
- $Movement = GUICtrlCreateButton("Chest Farm!", 50, 65, 105, 30)
- GUISetState()
- _Main()
- Func _Main()
- While 1
- $msg = GUIGetMsg()
- Select
- Case $msg = $Movement
- _CHESTFARM()
- EndSelect
- ;If $msg = $GUI_EVENT_CLOSE Then ExitLoop
- WEnd
- EndFunc
- Func Kill_Bot()
- Exit
- EndFunc
- Func wk_leavegame()
- _LEAVEGAME_TELE()
- _CHEST_STARTGAME()
- EndFunc
- Func _LEAVEGAME_TELE()
- WinWait( "Diablo III")
- WinActivate( "Diablo III")
- Sleep(200)
- Send("{ESCAPE}") ;Open Main Menu, hits escape
- Sleep(250) ;Wait for animation
- MouseClick("left", 838, 564, 3) ;Click Leave Game
- EndFunc
- ;CHEST FARM STUFF
- Func _CHESTFARM()
- WinWait( "Diablo III")
- WinActivate( "Diablo III")
- Sleep(1200)
- AutoItSetOption("SendKeyDelay", 5)
- _CHEST_STARTGAME()
- _CHEST_1()
- EndFunc
- Func _CHEST_STARTGAME()
- WinWait( "Diablo III")
- WinActivate( "Diablo III")
- Sleep(1700)
- AutoItSetOption("SendKeyDelay", 5)
- MouseMove(824, 506, 5);Move mouse to center of screen
- MouseClick("left", 227, 409, 8) ;Click START GAME
- ;Launch Movement Testing
- Sleep(6000) ;Wait for load screen
- EndFunc
- Func _CHEST_1()
- MouseClick("left",348,384,1,5)
- Sleep(2000)
- MouseClick("left",301,454,3,5)
- Sleep(2000)
- MouseClick("left",796,468,4,6)
- Sleep(2000)
- MouseClick("left",866,548,2,6)
- Sleep(1000)
- _LEAVEGAME_TELE()
- Sleep(2160)
- _CHESTFARM()
- EndFunc
- ;ENDCHESTFARM
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement