Evoker Bot v1---cheers to Ispanika for the original code, you should
DONATE to him for his hard work---
NOTES:
The timings aren't EVER perfect, I find with the walking, so it can be hit or miss.
I would like some help w/ loading screen recognition or reset button recognition or area recognition
Timings on portal entering and exiting can change, I change them and it's ALWAYS too much or too little, even with the same times; it can cause the bot to walk back into SH, which essentially breaks the loop
If you have a ton of splash damage %, it will pull the mobs too early when it destroys the pots in the first room, just remove the code:
Keybinds:
Left Click = Demonspine or Flameshards
Right Click = Hellfire
Middleclick = Arcane Shield
Code
;### Tidy Error: next line creates a negative tablevel.
;### Tidy Error: next line creates a negative tablevel for the line after it.
#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region
$Form1 = GUICreate("Hellgate Bot", 268, 257, 637, 331)
$Form1 = GUISetBkColor(0xb83f5d)
$Form1 = GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans Ms")
$Form1 = GUISetState()
$Button1 = GUICtrlCreateButton("GO GO > START", 20, 40, 190, 50, 0)
$Button2 = GUICtrlCreateButton("Pause Button = Pause / ESC = Quit", 20, 120, 190, 50, 0)
$Button3 = GUICtrlCreateButton("USE 1024x768 RESOLUTION - FULLSCREEN", 20, 180, 250, 50, 0)
GUISetState(@SW_SHOW)
$Mouse = MouseGetPos()
#endregion
_WinWaitActivate("Hellgate (x86 DX9)", "")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
Func _move($loop, $key)
For $i = $loop To 1 Step -1
ControlSend("Hellgate (x86 DX9)", "", "", $key)
Next
EndFunc;==>_move
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('BOT IS PAUSED ATM',0,0)
WEnd
ToolTip("Use 1024x768")
EndFunc
Func Terminate()
Exit 0
EndFunc
While 1
$nMsg = GUIGetMsg()
Select
Case $Button1
While 1
Sleep(5000); TO PORTAL
_move(260, "s"); I NEED HELP LETTING THE BOT KNOW TO STOP USING THIS KEY IF IT HAS ENTERED THE INSTANCE
Sleep(5)
_move(14, "w")
Sleep(5)
_move(14, "s")
Sleep(10000); INSIDE BELOW THIS LINE
MouseClick("right"); DESTROYS POTS WITH HELLFIRE TO LOOT
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(1000)
_move(50, "w")
Sleep(5)
_move(60, "a")
_move(60, "w")
Sleep(10)
_move(40, "a")
Sleep(10)
_move(60, "w")
Sleep(10)
_move(30, "a")
Sleep(10)
_move(120, "w")
Sleep(10)
_move(60, "a")
Sleep(10)
_move(200, "w")
Sleep(10)
_move(50, "a")
Sleep(1000)
MouseClick("middle")
Sleep(500)
_move(200, "w")
Sleep(500)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(1000); 2ND ATTACK PLUS LOOTING BELOW THIS LINE
_move(500, "w")
Sleep(1000)
MouseClick("right")
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(1000)
MouseClick("middle"); BEFORE /UNSTUCK CASTS ARCANE SHIELD
Sleep(1000)
Send("{ENTER}")
Sleep(500)
Send("/unstuck")
Sleep(500)
Send("{ENTER}")
Sleep(16000)
_move(260, "s"); I NEED HELP LETTING THE BOT KNOW TO STOP USING THIS KEY IF IT HAS EXITED THE INSTANCE
Sleep(50)
_move(14, "w")
Sleep(50)
_move(14, "s")
Sleep(50)
_move(14, "w")
Sleep(50)
_move(14, "s")
Sleep(12000)
Send("{ALTDOWN}"); RESET
Sleep(1000)
MouseClick("primary", "834", "63", 10)
Sleep(1400)
MouseClick("primary", "445", "426", 10)
Sleep(1400)
MouseClick("primary", "508", "410", 10)
Sleep(1400)
Send("{ALTUP}")
Sleep(250)
WEnd
Case $Button2
GUIDelete()
ExitLoop
EndSelect
WEnd
This post was edited by chumly on Oct 15 2011 09:44pm