#NoTrayIcon
#Region
#AutoIt3Wrapper_Icon=Icon.ico
#AutoIt3Wrapper_Outfile=Launcher.exe
#EndRegion
; ================================;
; Minecraft Launcher
; Made by Kazu
; © 2011 Kingdom Sieger Networks
; ================================;

;====Includes====;
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;=====FileInstall=====;
FileInstall("logo.jpg", "logo.jpg")

;====GUI====;
$GUI = GUICreate("Legendary-Network.eu Minecraft", 415, 181, 262, 208)
$GUI_OPT = GUICtrlCreateMenu("&Optionen")
$GUI_NAME = GUICtrlCreateMenuItem("Name bearbeiten", $GUI_OPT)
$GUI_HP = GUICtrlCreateMenuItem("Homepage", $GUI_OPT)
$GUI_EXI = GUICtrlCreateMenuItem("Beenden", $GUI_OPT)
$GUI_UPDATE = GUICtrlCreateButton("Auf Updates prüfen", 8, 88, 125, 33, $WS_GROUP)
$GUI_START = GUICtrlCreateButton("Spiel starten", 144, 88, 125, 33, $WS_GROUP)
$GUI_EXIT = GUICtrlCreateButton("Beenden", 280, 88, 125, 33, $WS_GROUP)
$GUI_UPD_BAR = GUICtrlCreateProgress(8, 128, 400, 25)
$GUI_IMG = GUICtrlCreatePic(@ScriptDir & "\logo.jpg", 16, 8, 390, 80, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)

;===Variable===;
$ServerINI = @ScriptDir & "\serverversion.ini"
$Ini1 = IniRead(@ScriptDir & "\serverversion.ini", "Update", "Version", "0.0")
$Ini2 = IniRead(@ScriptDir & "\localversion.ini", "Update", "Version", "0.0")
$dl = IniReadSection($ServerINI, "Client")
$url = "http://46.4.146.40/minecraft/updates/"
$sString = BinaryToString(InetRead('http://46.4.146.40/minecraft/updates/serverversion.ini', 1), 4)
$hFile = FileOpen(@ScriptDir & "\serverversion.ini", 2)

;====Funktionen====;
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EXIT
            Exit
        Case $GUI_EXI
            Exit
        Case $GUI_NAME
            ShellExecute("namechanger.exe", "/noSound", @AppDataDir & "\.minecraft\bin\")
        Case $GUI_HP
            ShellExecute("http://46.4.146.40/minecraft/index.html")
        Case $GUI_UPDATE
            _updatecheck()
        Case $GUI_START
            ShellExecute("Minecraft.exe", "", @AppDataDir & "\.minecraft\")
            If Not @error Then Exit
    EndSwitch
WEnd

;===Funktionen===;
Func _updatecheck()
    FileWrite($hFile, $sString)
    FileClose($hFile)
    If $Ini1 <> $Ini2 Then
        $iMsgBoxAnswer = MsgBox(52, "Aktualisierung gefunden!", "Es wurde eine Aktualisierung gefunden." & @CRLF & "Möchten Sie diese herunterladen?")
        Select
            Case $iMsgBoxAnswer = 6
                InetGet($dl, "test.au3", 1)
            Case $iMsgBoxAnswer = 7
                Exit
        EndSelect
    EndIf
EndFunc   ;==>_updatecheck