Kamikaze PET10 Script (Source Co

Global $UnPaused
Global $MousePos
HotKeySet("{F1}", "MousePosition")
HotKeySet("{F2}", "Kamikaze")
HotKeySet("{F3}", "Repair")
HotKeySet("{F4}", "Pause")
HotKeySet("{ESC}", "Terminate")

While 1
	SplashTextOn("","Step #1: Press F1 to setup your PET for Kamikaze Mode!", 450, 35, -1, 0, 1, "", 9, 900)
	Sleep(10000)
	SplashOff()
WEnd

Func MousePosition()
    $UnPaused = NOT $UnPaused
    While $UnPaused
	SplashTextOn("","Step #2: Hold your mouse pointer over the repair/activate PET10 button. A countdown will start shortly!", 700, 35, -1, 0, 1, "", 9, 900)
	sleep(10000)
	SplashOff()
        SplashTextOn("","Waiting: 5", 90, 35, -1, 20, 1, "", 9, 900)
	sleep(1000)
	SplashOff()
        SplashTextOn("","Waiting: 4", 90, 35, -1, 20, 1, "", 9, 900)
	sleep(1000)
	SplashOff()
        SplashTextOn("","Waiting: 3", 90, 35, -1, 20, 1, "", 9, 900)
	sleep(1000)
	SplashOff()
        SplashTextOn("","Waiting: 2", 90, 35, -1, 20, 1, "", 9, 900)
	sleep(1000)
	SplashOff()
        SplashTextOn("","Waiting: 1", 90, 35, -1, 20, 1, "", 9, 900)
	sleep(900)
	SplashOff()
	$MousePos = MouseGetPos()
	SplashTextOn("","Step #3: Saving PET repair/activate button coordinates.", 400, 35, -1, 0, 1, "", 9, 900)
	sleep(5000)
	Send("{F2}")
    WEnd
    $UnPaused = $UnPaused
EndFunc

Func Kamikaze()
    While 1
	SplashTextOn("","BANZAI !!!", 90, 35, -1, 0, 1, "", 9, 900)
	$pos = MouseGetPos()
	$posx = ($MousePos[0] + 180)
	$posy = ($MousePos[1] + 92)
	$posz = ($MousePos[1] + 3)

        MouseClick("left", $MousePos[0] , $MousePos[1], 1, 0)
	sleep(500)
        MouseClick("left", $posx , $posz, 1, 0)
	sleep(500)
        MouseClick("left", $posx , $posy, 1, 0)
	sleep(500)
        MouseClick("left", $pos[0] , $pos[1], 1, 0)
        Sleep(500 + Random(100, 300))
	SplashOff()
	Send("{F4}")
    WEnd
EndFunc

Func Pause()
While 1
	$text = '[F2]  - activate PET; ' & @CR & '[F3]  -  repair  PET;   ' & @CR & '[ESC] - Exit Program.'
        SplashTextOn("", $text, 150, 65, -1, 0, 1, "", 9, 400)
    Sleep(100)
WEnd
EndFunc

Func Repair()
While 1
	$pos = MouseGetPos()
        MouseClick("left", $MousePos[0] , $MousePos[1], 1, 0)
        MouseClick("left", $pos[0] , $pos[1], 1, 0)
	Send("{F4}")
WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc