Angel Online [Open Source Bot]

[£åߥ®Ñth]

Here is a very basic script to use to gain levels in Angel Online by targeting Slirms. "The green Hershey kiss mob lol"
---------------------------------------------------------------------------------------
Usage: 800x600 Window Mode
---------------------------------------
The source can go a long way with other people working on it.
Things it would need would be more targeted mobs , reading from ini or what ever and having a selection from a GUI.
Auto heal would be needed to improve it as well.

So all this bot code does is attack and kill slirms to gain levels.
I may continue to work on this and make it better, But for now I would like to release this part of it so others can work on making their own.

#Include <Misc.au3>
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
;~ Below is how it targets only the game window
WinWait("Angels", "")
If Not WinActive("Angels", "") Then WinActivate("Angels", "")
WinWaitActive("Angels", "")
;~ Hold END To stop the bot
HotKeySet("{END}", "KillBot")

$bot = 1
$mob = 0x6BC331 ;Slirm

While $bot = 1
;~ PixelSearch ( left, top, right, bottom, color [, shade-variation] [, step]] )
$coord = PixelSearch(59, 100, 757, 525, $mob, 5)
If Not @error Then
;~ MouseClick ( "button" [, x, y [, clicks [, speed ]]] )
MouseClick("left", $coord[0], $coord[1], 1, 1)
Sleep(9000)
EndIf
WEnd


Func KillBot()
$MB_MsgBoxButtons = 5 ;What buttons that show in messagebox 5 = Retry and Cancel
$MB_Cancel = 2 ;What button is pressed to exit the script 2 = Cancel, If Cancel buton is pushed the script stops.
If MsgBox($MB_MsgBoxButtons, "You Stopped the Bot!", "Retry or Cancel the bot?") == $MB_Cancel Then
Exit
EndIf
EndFunc   ;==>KillBot