Attack on Titan Hotkey

#include <Constants.au3>
$has = 0
$newDMG = 0
$startHealth = 0
$newHealth = 0
$Health = 0


Call("main")

Func main()
   ToolTip("")
   Sleep(2000)
   HotKeySet("{ESC}", "esc")
   HotKeySet("{;}", "gm")
   HotKeySet("{y}", "flare")
   HotKeySet("{z}", "reel")
   HotKeySet("{\}", "sendgm")
   While 1
    Sleep(100)
   WEnd
EndFunc

Func esc()
      ToolTip("Exiting...",0,0)
      Sleep(1500)
      Exit
EndFunc

Func gm()
   Switch @HotKeyPressed
   Case "{;}"
      ToolTip("GM"&$has,0,0)
      $active = WinGetTitle("[ACTIVE]")
            if $has == 0 Then
               $Health = InputBox("GM Bot", "Input starting Health."&@LF&@LF&"Colossal I - Normal: 2000"&@LF&"Colossal I - Hard: 3500"&@LF&"Colossal I - Abnormal: 5000"&@LF&@LF&"Colossal II - Normal: 5000"&@LF&"Colossal II - Hard: 8000"&@LF&"Colossal II - Abnormal: 12000"&@LF&@LF&"Annie I - Normal: 1000"&@LF&"Annie I - Hard: 2500"&@LF&"Annie I - Abnormal: 4000"&@LF&@LF&"Annie II - Normal: 1000"&@LF&"Annie II - Hard: 3000"&@LF&"Annie II - Abnormal: 6000","","","","350")
               ToolTip("Starting with "&$Health&" health.",0,0)
               Sleep(1500)
               ToolTip("Press ';' again for DMG Counter",0,0)
               Sleep(2000)
               WinActivate($active)
               $has = 1
               Call("main")
            elseif $has == 1 Then
               $newDMG = InputBox("GM Bot", "Input Damage dealt.")
               $Health = $Health - $newDMG
               ToolTip($Health,0,0)
               Sleep(2000)
               WinActivate($active)
               Call("main")
               EndIf
   EndSwitch
EndFunc

Func sendgm()
   Switch @HotKeyPressed
      Case "{\}"
      ToolTip("Sending current health...",0,0)
      Send('{ENTER}')
      Sleep(500)
      Send("Objective has "&$Health&" health.")
      Sleep(2000)
      Send('{ENTER}')
      Sleep(2000)
      Call("main")
   EndSwitch
EndFunc

Func flare()
   Switch @HotKeyPressed
   Case "{y}"
      Call("main")
   EndSwitch
EndFunc

Func reel()
   Switch @HotKeyPressed
   Case "{z}"
      Call("main")
   EndSwitch
EndFunc