#include <GUIConstantsEx.au3>
#include <File.au3>
#include <WinAPIFiles.au3>
#include <Array.au3>

Global $version = 1
Global $vDir = ("data\loot_tables\minecraft\entities\")
Global $verAr = _FileListToArray($vDir, "*.v")
Global $AllFunctions = ["_checkInet", "_CheckUpdate", "_setHotkeys", "_removeHotkeys", "_Exit", "_openWebExit", "_openWeb", "_EasterSel", "_Easter", "_DebugWindow", "_CloseEaster", "_CloseDebug", "_ShowVersionArray", "_execFunc", "_resetIni", "_updateFound", "_checkIni", "_listFunc"]
Global $funcCount = Ubound($AllFunctions)

call("_checkIni")

If $bypassInternet=1 Then
    call("_checkInet")
Else
    call("_updateFound")
EndIf

Func _checkInet()
    Opt("GUIOnEventMode", 1)
    $GUIInet = GUICreate("UpdateCheck", 300, 130)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $LookUpdate = GUICtrlCreateLabel("Looking for Updates...", 85, 20)
    GUISetState()
    sleep(2000)
    $var = Ping("www.google.de")
    If $var Then;
        GUIDelete($GUIInet)
        call("_CheckUpdate")
    Else
        GUICtrlDelete($LookUpdate)
        GUICtrlCreateLabel("No Internet Connection found.", 85, -1)
        GUICtrlCreateButton("Ok", 100, 50, 100, 30)
        GUICtrlSetOnEvent(-1, "_Exit")
        GUISetState()
        While 1
            Sleep(100)
        WEnd
    EndIf
EndFunc

Func _CheckUpdate()
    call("_checkIni")
    $bin = InetRead("http://exobite.jimdo.com/update-zsv0" & $version)
    If Not @error Then
        call("_updateFound")
    Else
        ConsoleWrite(@error & @CRLF)
        MsgBox(0, 'UpdateCheck', 'No Update found.')
    EndIf
 EndFunc

Func _checkIni()
    Global $openDebug = IniRead("data\scores.ini", "MAIN", "openDebug", 0)
    Global $bypassInternet = IniRead("data\scores.ini", "MAIN", "checkInternet", 0)
EndFunc

Func _updateFound()
    call("_setHotkeys")
    Opt("GUIOnEventMode", 1)
    Global $UpdateFoundGUI = GUICreate("UpdateCheck", 300, 130)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    if $bypassInternet=0 Then
        GUICtrlCreateButton("No Update", 10, 40, 135, 50)
        GUICtrlSetOnEvent(-1, "")
    Else
        GUICtrlCreateButton("Yes", 10, 40, 135, 50)
        GUICtrlSetOnEvent(-1, "_openWebExit")
    EndIf
    GUICtrlCreateLabel("Update found! Version 0." & $version, 85, 5)
    GUICtrlCreateLabel("Open Download?", 100, 20)
    GUICtrlCreateButton("No", 155, 40, 135, 50)
    GUICtrlSetOnEvent(-1, "_Exit")
    if $openDebug=1 Then
        GUICtrlCreateButton("Debug", 85, 95, 135, 30)
        GUICtrlSetOnEvent(-1, "_DebugWindow")
    EndIf
    GUISetState()
    While 1
        Sleep(100)
    WEnd
EndFunc

Func _setHotkeys()
    HotKeySet("{F3}", "_EasterSel")
    HotKeySet("{F4}", "_DebugWindow")
EndFunc

Func _removeHotkeys()
    HotKeySet("{F3}")
    HotKeySet("{F4}")
EndFunc

Func _Exit()
    Exit
 EndFunc

Func _openWebExit()
   ShellExecute("http://www.minecraftforum.net/forums/mapping-and-modding/maps/wip-maps/2614632-1-9-wip-open-alpha-dl-90-donezombieslaughteryour")
   Exit
EndFunc

Func _openWeb()
   ShellExecute("http://www.minecraftforum.net/forums/mapping-and-modding/maps/wip-maps/2614632-1-9-wip-open-alpha-dl-90-donezombieslaughteryour")
EndFunc

Func _EasterSel()
    If $version>4 Then
        call("_Easter")
    Else
        MsgBox(0, 'UpdateCheck', 'Placeholder.')
    EndIf
EndFunc

Func _Easter()
        HotKeySet("{F3}")
        Opt("GUIOnEventMode", 1)
        Global $EasterGUI = GUICreate("UpdateCheck", 300, 100)
        GUISetOnEvent($GUI_EVENT_CLOSE, "_CloseEaster")
        GUICtrlCreateLabel("Easteregg!", 125, 10)
        GUICtrlCreateButton("Yes", 10, 40, 135, 50)
        GUICtrlSetOnEvent(-1, "_CloseEaster")
        GUICtrlCreateButton("No", 155, 40, 135, 50)
        GUICtrlSetOnEvent(-1, "_CloseEaster")
        GUISetState()
 EndFunc

 Func _DebugWindow()
        HotKeySet("{F4}")
        Opt("GUIOnEventMode", 1)
        Global $DebugGUI = GUICreate("Debug Window", 510, 300)
        GUISetOnEvent($GUI_EVENT_CLOSE, "_CloseDebug")
        GUICtrlCreateLabel("VersionChecker for Zombieslaughter coded by ExoBite/Streetkillah.", 180, 285)
        GUICtrlCreateLabel("The newest Version found is Version " & int(_ArrayMax($verAr)) & "." & @LF & int($verAr[0]) & " Versions were found totally.", 170, 15)
        ;Line 1
        GUICtrlCreateButton("Open Web", 10, 50, 90, 50)
        GUICtrlSetOnEvent(-1, "_openWeb")
        GUICtrlCreateButton("Show Versions", 110, 50, 90, 50)
        GUICtrlSetOnEvent(-1, "_ShowVersionArray")
        GUICtrlCreateButton("Open Easter", 210, 50, 90, 50)
        GUICtrlSetOnEvent(-1, "_Easter")
        GUICtrlCreateButton("Reset ini", 310, 50, 90, 50)
        GUICtrlSetOnEvent(-1, "_resetIni")
        GUICtrlCreateButton("Exit Debug", 410, 50, 90, 50)
        GUICtrlSetOnEvent(-1, "_CloseDebug")
        ;Line 2
        GUICtrlCreateButton("Toggle conCheck", 10, 110, 90, 50)
        GUICtrlSetOnEvent(-1, "_toggleConnectionCheck")
        ;Line 3
        GUICtrlCreateButton("", 10, 170, 90, 50)
        GUICtrlSetOnEvent(-1, "")
        ;Line 4
        Global $doFunc = GUICtrlCreateInput("_Exit", 10, 230, 90, 50)
        GUICtrlCreateButton("Exec Func", 110, 230, 90, 50)
        GUICtrlSetOnEvent(-1, "_execFunc")
        GUICtrlCreateButton("List Func", 210, 230, 90, 50)
        GUICtrlSetOnEvent(-1, "_listFunc")
        GUISetState()
        if $openDebug=0 Then
            IniWrite("data\scores.ini", "MAIN", "openDebug", 1)
            MsgBox(0, 'UpdateCheck', 'You can now access the Debug Menu over a Button.' & @LF & "Restarting...")
            call("_CloseDebug")
            GUIDelete($UpdateFoundGUI)
            call("_CheckUpdate")
        EndIf
 EndFunc

Func _CloseEaster()
    GUIDelete($EasterGUI)
    HotKeySet("{F3}", "_EasterSel")
EndFunc

Func _CloseDebug()
    GUIDelete($DebugGUI)
    HotKeySet("{F4}", "_DebugWindow")
EndFunc

Func _ShowVersionArray()
    _ArrayDisplay($verAr)
EndFunc

Func _toggleConnectionCheck()
    call("_checkIni")
    If $bypassInternet=0 Then
        IniWrite("data\scores.ini", "MAIN", "checkInternet", 1)
        MsgBox(0, 'UpdateCheck', "The Program will check for an Update.")
    Else
        IniWrite("data\scores.ini", "MAIN", "checkInternet", 0)
        MsgBox(0, 'UpdateCheck', "The Program wont check any longer for an Update")
    EndIf
EndFunc

Func _execFunc()
    call(GUICtrlRead($doFunc))
    if @error Then
        MsgBox(0, 'UpdateCheck', "Couldnt find the Function " & GUICtrlRead($doFunc))
    EndIf
EndFunc

Func _resetIni()
    IniWrite("data\scores.ini", "MAIN", "openDebug", 0)
    IniWrite("data\scores.ini", "MAIN", "checkInternet", 1)
    MsgBox(0, 'UpdateCheck', 'Ini resetted.' & @LF & "The Manager closes now." & @LF & "Please restart it.")
    Exit
EndFunc

Func _listFunc()
    MsgBox(0, 'UpdateCheck', "Found " & $funcCount & " functions.")
    _ArrayDisplay($AllFunctions)
endFunc