You can download the bot here. I don't know if it still works.
Here's the source code (or download here):
#include <IE.au3> HotKeySet("{END}", "kill") HotKeySet("{HOME}", "_pause") Global $paused = false _init() Func _init() if WinActivate("Shadow Era - Play Now") == 0 Then MsgBox(0, "Error", "Game window not found!") Exit EndIf $cPos = ControlGetPos("Shadow Era - Play Now", "Unity Web Player", "[CLASS:Unity.WebPlayer; INSTANCE:1]") $wPos = WinGetPos("Shadow Era - Play Now") Global $POS[4] = [$cPos[0] + $wPos[0] + 8, $cPos[1] + $wPos[1] + 30, $cPos[2], $cPos[3]] _main() EndFunc Func _main() ConsoleWrite("Looking for enemy..." & @LF) moveAndClick(0x2F4460) ConsoleWrite("Clicking 'Accept' button." & @LF) ToolTip("Clicking 'Accept' button.", 0, 0) click(286, 426) ToolTip("Waiting for and clicking 'OK' button.", 0, 0) sleepAndClick(383, 586, 10395499) ConsoleWrite("End of loop..." & @LF) _main() EndFunc Func click($horizontal, $vertical) Sleep(100) MouseClick("Left", $POS[0] + $horizontal, $POS[1] + $vertical) EndFunc Func moveAndClick($color) $i = 0 Do $i = $i + 1 if $i > 75 Then ConsoleWrite("Stuck looking for enemy...") Return EndIf ToolTip("Looking for enemy... " & $i, 0, 0) Sleep(100) $mousemove = PixelSearch($POS[0], $POS[1], $POS[0] + $POS[2], $POS[1] + $POS[3], $color) Until not @error MouseClick("Left", $mousemove[0], $mousemove[1]) EndFunc Func sleepAndClick($horizontal, $vertical, $color) $i = 0 Do $i = $i + 1 if $i > 75 Then ConsoleWrite("Stuck trying to click 'OK' button...") Return EndIf ToolTip("Waiting for and clicking 'OK' button..." & $i, 0, 0) Sleep(100) ;ConsoleWrite(PixelGetColor($POS[0] + $horizontal, $POS[1] + $vertical) & @LF) Until PixelGetColor($POS[0] + $horizontal, $POS[1] + $vertical) = $color MouseClick("Left", $POS[0] + $horizontal, $POS[1] + $vertical) ConsoleWrite("'OK' button clicked" & @LF) EndFunc Func kill() Exit EndFunc Func _pause() $paused = Not $paused While $paused Sleep(100) ToolTip('Script is paused, to unpause press the HOME key', 0, 0) WEnd ToolTip("") EndFunc