NeoPets-Destruct-O-Match II [Bot Source]

[£åߥ®Ñth]

Nothing real special here, just a bot to win pretty fast by clicking every square.
--------------------------------------------------------------------------------------
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 2)
Opt("WinDetectHiddenText", 1)
Opt("MouseCoordMode", 2)
WinWait("Destruct-O-Match II", "")
If Not WinActive("Destruct-O-Match II", "") Then WinActivate("Destruct-O-Match II", "")
WinWaitActive("Destruct-O-Match II", "")
HotKeySet("{END}", "killthebot")

$bot = 0
Call("tip")

While $bot = 0
$x = Random(40, 586)
$y = Random(40, 550)
MouseClick("left", $x, $y, 4, 1)
WEnd

Func tip()
; This will create a tooltip in the upper left of the screen
ToolTip(" Thank you for using Lab's Destruct-O-Match II Bot v.1.0", 300, 40)
Sleep(2000)
ToolTip("To turn off your bot press END on your keyboard.", 300, 40)
Sleep(1000)
EndFunc   ;==>tip

Func killthebot()
Exit 0
EndFunc   ;==>killthebot