me is bad person

HotKeySet ("{F2}", "kill")
Func kill ()
    While 1
        Exit
    WEnd
EndFunc


MsgBox (0, "Title", "Preparing")
$target = InputBox ("Title", "Define target", "cares")
$Delay = InputBox ("Title", "Define delay", "3000")
MouseClick ("Left", 1868, 972)
While 1
Sleep ($Delay)
Send ("/ping " & $target)
Send ("{enter}")
WEnd