Kennerhoj SuperBall Bot Guid.exe

EXAMPLE1()
Func EXAMPLE1()
    GUICreate("Kennerhoj - Menu")
    $FILEMENU = GUICtrlCreateMenu("&File")
    $FILEITEM = GUICtrlCreateMenuItem("Open", $FILEMENU)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $HELPMENU = GUICtrlCreateMenu("?")
    GUICtrlCreateMenuItem("Save", $FILEMENU)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $INFOITEM = GUICtrlCreateMenuItem("Info", $HELPMENU)
    $EXITITEM = GUICtrlCreateMenuItem("Exit", $FILEMENU)
    $RECENTFILESMENU = GUICtrlCreateMenu("Recent Files", $FILEMENU, 1)
    GUICtrlCreateMenuItem("", $FILEMENU, 2)
    GUISetState()
    $MSG = GUIGetMsg()
    If $MSG = $FILEITEM Then
        $FILE = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
        If @error <> 1 Then GUICtrlCreateMenuItem($FILE, $RECENTFILESMENU)
    EndIf
    Opt("GUICoordMode", 2)
    $BUTTON_1 = GUICtrlCreateButton("Info", 10, 30, 100)
    GUICtrlSetBkColor(-1, 2838646)
    $BUTTON_2 = GUICtrlCreateButton("Help", 0, -1)
    GUICtrlSetBkColor(-1, 2838646)
    $BUTTON_3 = GUICtrlCreateButton("Kontakt", 0, -1)
    GUICtrlSetBkColor(-1, 2838646)
    $BUTTON_4 = GUICtrlCreateButton("More Bots", 0, -1, 87)
    GUICtrlSetBkColor(-1, 2838646)
    GUISetState()
    While 1
        $MSG = GUIGetMsg()
        Select
            Case $MSG = $GUI_EVENT_CLOSE
                ExitLoop
            Case $MSG = $BUTTON_1
                FileOpen("Info.txt", 0)
            Case $MSG = $BUTTON_2
                MsgBox(0, "Help", "Bot virker ikke korrekt? Svar= Husk fuld skærm og ungå grønne ting som fx. musemakøre. Hvordan starter jeg bot? Svar= Efter du har trykket på den er den automatisk started og du kan slukke den ved at trykke F8")
            Case $MSG = $BUTTON_3
                MsgBox(0, "Kontakt", "Patrick.Neerhoj@gmail.com")
            Case $MSG = $BUTTON_4
                MsgBox(0, "Andet", "Lige pt. er der ikke andre bots. Har i andre gode simple spil som i gerne gad have en bot til? Skriv endlig til mig ")
        EndSelect
    WEnd
EndFunc