Inchizator

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $Form1 = GUICreate("Inchizator", 256, 132, 192, 124)
Global $playhd = GUICtrlCreateLabel("PlayHD", 40, 8, 167, 37)
GUICtrlSetFont(-1, 28, 800, 0, "! PEPSI !")
GUICtrlSetColor(-1, 0xCDCDCD)
Global $Input1 = GUICtrlCreateInput("1", 144, 48, 81, 21)
Global $Label1 = GUICtrlCreateLabel("Timp", 112, 48, 27, 17)
Global $Label2 = GUICtrlCreateLabel("min", 232, 48, 20, 17)
Global $Button1 = GUICtrlCreateButton("OK", 104, 72, 145, 57)
Global $Label3 = GUICtrlCreateLabel("o ora - 60 min", 16, 64, 68, 17)
Global $Label4 = GUICtrlCreateLabel("3 ore - 180 min", 16, 85, 74, 17)
Global $Label5 = GUICtrlCreateLabel("6 ore - 360 min", 16, 104, 74, 17)
Global $Group1 = GUICtrlCreateGroup("INFO", 8, 48, 89, 81)
Global $timp
Global $test = 1
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

While $test=1
    $timp = GUICtrlRead($Input1)
    $timp_s = $timp * 60
    $timp_ms = $timp_s * 1000
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If $timp = 0 Then
                $yorn = MsgBox(36,"WTF!?! 0 Min:-?","Vrei sa inchizi calculatorul acum?")
                If $yorn = 6 Then
                    MsgBox(64,"END OF THE WORLD","Calculatorul se inchide in acum",5)
                    $test=2
                Else
                    $test=1
                EndIf
            Else
                MsgBox(64,"END OF THE WORLD","Calculatorul se inchide in "&$timp&" de minute ("&$timp_s&" sec).",5)
                $test=2
            EndIf
    EndSwitch
WEnd
    If $test=2 Then
        GUIDelete($form1)
    If $timp>0 Then
        TrayTip("Citeste-ma, Citeste-ma!!!","Daca vrei sa anulezi inchiderea"&@lf&"Dai click dreata pe iconita, si dai EXIT",7,1)
    EndIf
        Sleep($timp_ms)
        MsgBox(0,"We are all die >:)","BOOOOOOOOOOM",5)
        Shutdown(5)
    EndIf