Global $UnPaused
Global $MousePos
HotKeySet("{F1}", "MousePosition")
HotKeySet("{w}", "Kamikaze")
HotKeySet("{s}", "Repair")
HotKeySet("{a}", "Pause")
HotKeySet("{q}", "Quick")
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("{w}")
    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)
        MouseMove($pos[0] , $pos[1], 0)
        Sleep(500 + Random(100, 300))
    SplashOff()
    Send("{a}")
    WEnd
EndFunc

Func Pause()
While 1
    $text = '[w]  - activate PET; ' & @CR & '[s]  -  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)
        MouseMove($pos[0] , $pos[1], 0)
    Send("{a}")
WEnd
EndFunc

Func Quick()
While 1
    $pos = MouseGetPos()
        MouseClick("left", $MousePos[0] , $MousePos[1], 1, 0)
        MouseMove($pos[0] , $pos[1], 0)
        Sleep(50 + Random(100, 300))
    Send("{w}")
WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc