Kleinen Bot hiddenmachen

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$input = InputBox ("Seeli Reader ^^", "Wort zum Trainieren")
sleep (5000)
While 1=1
$coord = PixelSearch( 640, 270, 790, 550, 0xE4D273 ,2 )
if @error Then Exit
If Not @error Then
MouseMove ($coord[0], $coord[1])
MouseClick ("Right")
sleep (2000)
MouseClick ("Left", 400, 280)
sleep (2000)
MouseClick ("Left", 400, 265)
sleep (3500)
MouseClick ("Left", 400, 345)
sleep (4000)
Send ($input)
sleep (500)
Send ("{Enter}")
sleep (3000)
MouseClick ("Right", 400, 289)
sleep (500)
MouseClick ("Left", 400, 295)
sleep (2000)
MouseClick ("Right", 480, 600)
sleep (100)
MouseClick ("Right", 515, 600)
sleep (100)
MouseClick ("Right", 545, 600)
sleep (100)
MouseClick ("Right", 545, 600)
sleep (100)
MouseClick ("Right", 545, 600)
sleep (2000)

EndIf
WEnd

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc