Custom Fire Macro

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<misc.au3>

Opt("MouseClickDownDelay", 2)
Opt("MouseClickDelay", 2)
Opt("SendKeyDelay", 2)
Opt("SendKeyDownDelay", 2)

HotKeySet("{End}", "Click")
HotKeySet("{Del}", "EndApp")
HotKeySet("{Ins}", "Gui")

Global $Alive
GLOBAL $Macro = 50


While 1
   Sleep(100)
   WEnd
   



    func Gui()


$Title = GUICreate("Serges Fail Macro", 150, 150, 400, 400)
$Macro = GUICtrlCreateInput($Macro, 40, 50, 75, 0)
$SetMacro = GUICtrlCreateButton("Set", 40, 75, 75, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
Sleep(10)




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $SetMacro
$Macro = GUICtrlRead($Macro)
GUIDelete($Title)
EndSwitch
WEnd
EndFunc 





   Func Click()
        $Alive = Not $Alive
      
      While $Alive
         
    If _IsPressed("01") Then
        Sleep(1)
        MouseDown("Middle")
        Sleep(1)
        MouseUp("Middle")
        Sleep($Macro)
EndIf
WEnd
 EndFunc


 

 
  func EndApp()
      Exit 0
   EndFunc