[AutoIt]frogiih's World

Da ich in letzter Zeit nicht soviel Zeit habe um weiterzuscripten und mir auch die Ideen fehlen, wollte ich den Script hier einmal Pub machen, eventuell k�nnt ihr etwas damit anfangen, oder auch einfach nur einige Ideen posten. ;)

An dieser Stelle auch ein Dank an omer36 <3

Es handelt sich hier um ein 2D-Spiel, welches noch nicht fertig ist, bzw ein Konzept fehlt...

Aber schaut selbst.

Den Installer, f�r alle Dateien gibt es [Only registered and activated users can see links. Click Here To Register...].
Dieser installiert euch alle ben�tigten Dateien & Grafiken.
Auf Wunsch mache ich auch einen Virustest.

Hier dann nocheinmal der Script.
Installer:

Spoiler

Code:

#include <GUIConstants.au3>
#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#include <Sound.au3>
#Include <Misc.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#RequireAdmin



DirCreate("C:\Program Files\Frogiih's World")
DirCreate("C:\Program Files\Frogiih's World\Bilder")
FileInstall("C:\Program Files\Frogiih's World\frogiih.mp3", "C:\Program Files\Frogiih's World\frogiih.mp3", 1)
FileInstall("C:\Program Files\Frogiih's World\box.jpg", "C:\Program Files\Frogiih's World\box.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\frogiih's World.exe", "C:\Program Files\Frogiih's World\frogiih's World", 1)
FileInstall("C:\Program Files\Frogiih's World\frogiih's World.exe", @DesktopDir & "\frogiih's World.exe", 1) 
;#Bilder####
;Rasse 1
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse1.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse1.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse1_l.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse1_l.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse1_r.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse1_r.jpg", 1)
;Rasse 2
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse2.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse2.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse2_l.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse2_l.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse2_r.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse2_r.jpg", 1)
;Rasse 3
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse3.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse3.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse3_l.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse3_l.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse3_r.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse3_r.jpg", 1)
;Rasse 4
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse4.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse4.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse4_l.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse4_l.jpg", 1)
FileInstall("C:\Program Files\Frogiih's World\Bilder\Rasse4_r.jpg", "C:\Program Files\Frogiih's World\Bilder\Rasse4_r.jpg", 1)


$Form1 = GUICreate("frogiih's World - Installation", 499, 302, 278, 155)
GUISetFont(6, 400, 0, "MS Sans Serif")
GUISetBkColor(0xABABAB)
$Progress1 = GUICtrlCreateProgress(8, 240, 486, 25)
$button_cancel = GUICtrlCreateButton("Abbrechen", 400, 272, 91, 25)
$button_confirm = GUICtrlCreateButton("Installation beenden", 272, 272, 107, 25)
$txt_copyright = GUICtrlCreateLabel("Copyright� by Moskito. Alle Rechte Vorbehalten.", 8, 280, 235, 17)
$Pic1 = GUICtrlCreatePic("unbenannt.jpg", 8, 16, 476, 188)
$Checkbox = GUICtrlCreateCheckbox("frogiih's World nach der Installation ausf�hren?", 8, 216, 249, 17)
GUISetState(@SW_SHOW)
                   
GUICtrlSetState($button_confirm, $GUI_DISABLE)

For $iP = 1 To 100
    GUICtrlSetData($Progress1, $iP)
	Sleep(50)
Next
Sleep(1000)
GUICtrlSetState($button_confirm, $GUI_ENABLE)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $button_confirm
			If GUICtrlRead($checkbox) = 1 Then
				Run("C:\Program Files\Frogiih's World\frogiih's World.exe")
				Exit
			Else 
				Exit
			EndIf
		Case $button_cancel
			Exit

	EndSwitch
WEnd

Game:

Spoiler

Code:

#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
#include <Array.au3>
#include <Date.au3>
#include <Sound.au3>
#Include <Misc.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
;#RequireAdmin

$Form1 = GUICreate("frogiih's World - by .Moskito", 818, 559, 0, 0)
GUISetBkColor(0x844D18)
$Progress1 = GUICtrlCreateProgress(0, 528, 814, 9)

$button_gesinnung = GUICtrlCreateButton("Gesinnung", 736, 120, 75, 25)
$button_fertigkeiten = GUICtrlCreateButton("Fertigkeiten", 736, 96, 75, 25)
$button_option = GUICtrlCreateButton("Optionen", 736, 72, 75, 25)
GUICtrlSetState($button_gesinnung, $GUI_DISABLE)
GUICtrlSetState($button_option, $GUI_DISABLE)
GUICtrlSetState($button_fertigkeiten, $GUI_DISABLE)

$Group_action = GUICtrlCreateGroup("Aktivit�t", 8, 160, 540, 361);############################################################SPIEL

Local $varleft = 260, $vartop = 340
$figur = GUICtrlCreatePic("", $varleft, $vartop, 26, 26)
GUICtrlSetState($figur, $GUI_HIDE)

For $i=20 To 500 Step 25
$unten = GUICtrlCreatePic("C:\Program Files\Frogiih's World\box.jpg", $i, 470, 25, 25)
$oben = GUICtrlCreatePic("C:\Program Files\Frogiih's World\box.jpg", $i, 184, 25, 25)
Next

For $ii= 184 To 483 Step 25
$links = GUICtrlCreatePic("C:\Program Files\Frogiih's World\box.jpg", 20, $ii, 30, 30)
$rechts = GUICtrlCreatePic("C:\Program Files\Frogiih's World\box.jpg", 495, $ii, 30, 30)
Next
$rechts_unten = GUICtrlCreatePic("C:\Program Files\frogiih's World\box.jpg", 500, 470, 25, 25)

GUICtrlCreateGroup("", -99, -99, 1, 1);#################################################################################SPIEL END

$Group_ava = GUICtrlCreateGroup("Avatar", 8, 8, 185, 145)
$pic_ava = GUICtrlCreatePic("", 16, 32, 164, 108)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group_welt = GUICtrlCreateGroup("Welt", 200, 8, 345, 145)
$pic_welt = GUICtrlCreatePic("", 208, 32, 324, 108)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group_auswahl = GUICtrlCreateGroup("Auswahl", 552, 160, 265, 361)

$MenuItem_acc = GUICtrlCreateMenu("Account")
$MenuItem_help = GUICtrlCreateMenu("Help")
$MenuItem_how = GUICtrlCreateMenuItem("How To Play", $MenuItem_help)
$MenuItem_support = GUICtrlCreateMenuItem("Support", $MenuItem_help)

$txt_name = GUICtrlCreateLabel("Name:", 560, 80, 35, 17)
$txt_Rasse = GUICtrlCreateLabel("Rasse:", 560, 100, 37, 17)
$txt_geschlecht = GUICtrlCreateLabel("Geschlecht", 560, 120, 58, 17)

$input_name = GUICtrlCreateInput("-", 624, 80, 105, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY), 0)
GUICtrlSetBkColor(-1, 0x844D18)
$input_rasse = GUICtrlCreateInput("-", 624, 100, 105, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY), 0)
GUICtrlSetBkColor(-1, 0x844D18)
$input_geschlecht = GUICtrlCreateInput("-", 624, 120, 105, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL, $ES_READONLY), 0)
GUICtrlSetBkColor(-1, 0x844D18)

$txt_pw_neu_e = GUICtrlCreateLabel("Passwort wurde Erfolgreich ge�ndert.", 568, 432, 225, 17)
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetState($txt_pw_neu_e, $GUI_HIDE)

$txt_login_fail = GUICtrlCreateLabel("Fehler beim Einloggen. �berpr�fe deine Daten!", 568, 432, 225, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState($txt_login_fail, $GUI_HIDE)

$txt_pw_fail = GUICtrlCreateLabel("�berpr�fe deine Angaben!", 568, 432, 225, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetState($txt_pw_fail, $GUI_HIDE)


; Controls#########################Optionen#################################
$button_exit = GUICtrlCreateButton("Spiel Verlassen", 704, 440, 99, 25)
$button_account_del = GUICtrlCreateButton("Account L�schen", 600, 440, 99, 25)
$slider_music = GUICtrlCreateSlider(600, 400, 198, 29)
GUICtrlSetLimit(-1, 50, 0)
$txt_music = GUICtrlCreateLabel("Musik:", 608, 376, 42, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$button_option_confirm = GUICtrlCreateButton("Best�tigen", 600, 480, 203, 25)
$time = GUICtrlCreateLabel("", 600, 192, 196, 17)
$musik_w = GUICtrlCreateButton("Eigene Musik w�hlen", 664, 368, 139, 25)

Global $gOption[7] = [$button_exit, $button_account_del, $slider_music, $txt_music, $button_option_confirm, $time, $musik_w]

For $gOp = 0 To 6
    GUICtrlSetState($gOption[$gOp], $GUI_HIDE)
Next
; Controls##########################Optionen#############################End

; Controls##########################nach Einloggen##########################
$txt_login_e = GUICtrlCreateLabel("Einloggen Erfolgreich...", 600, 264, 167, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Progress2 = GUICtrlCreateProgress(584, 304, 206, 17)

Global $gNlogin[2] = [$txt_login_e, $Progress2]

For $gNli = 0 To 1
    GUICtrlSetState($gNlogin[$gNli], $GUI_HIDE)
Next
; Controls#########################nach Einloggen########################End

; Controls ########################Menu#################### cre_acc und login
$MenuItem_cre_acc = GUICtrlCreateMenuItem("Create Account", $MenuItem_acc)
$MenuItem_login = GUICtrlCreateMenuItem("Log In", $MenuItem_acc)

Global $gMenu2[2] = [$MenuItem_cre_acc, $MenuItem_login]

For $gM2i = 0 To 1
    GUICtrlSetState($gMenu2[$gM2i], $GUI_ENABLE)
Next
;########################################################## pw_new und logout
$MenuItem_Pw_new = GUICtrlCreateMenuItem("Passwort �ndern", $MenuItem_acc)
$MenuItem_logout = GUICtrlCreateMenuItem("Log Out", $MenuItem_acc)

Global $gMenu[2] = [$MenuItem_logout, $MenuItem_Pw_new]

For $gMi = 0 To 1
    GUICtrlSetState($gMenu[$gMi], $GUI_DISABLE)
Next
; Controls #######################Menu##################End

; Controls #########################Login###################
$txt_login = GUICtrlCreateLabel("Join the Game!", 616, 192, 139, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$input_id = GUICtrlCreateInput("ID", 584, 248, 209, 21)
$input_pw = GUICtrlCreateInput("Passwort", 584, 280, 209, 21, $ES_PASSWORD)
$checkbox_save = GUICtrlCreateCheckbox("Save ID and Passwort", 664, 312, 137, 17)
$button_cancel2 = GUICtrlCreateButton("Cancel", 712, 352, 75, 25)
$button_join = GUICtrlCreateButton("Join", 592, 352, 75, 25)

Global $gLogin[6] = [$txt_login, $input_id, $input_pw, $checkbox_save, $button_cancel2, $button_join]

For $gLi = 0 To 5; verstecken
    GUICtrlSetState($gLogin[$gLi], $GUI_HIDE)
Next
; Controls ########################Login##################End

; Controls ########################Cre_acc################
$cre_input_id = GUICtrlCreateInput("ID", 584, 232, 209, 21)
$cre_input_pw = GUICtrlCreateInput("Passwort", 584, 264, 209, 21, $ES_PASSWORD)
$txt_cre_acc = GUICtrlCreateLabel("Create Account", 616, 192, 139, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$button_cancel = GUICtrlCreateButton("Cancel", 712, 464, 75, 25)
$button_confirm = GUICtrlCreateButton("Confirm", 592, 464, 75, 25)
$geschlecht_M = GUICtrlCreateRadio("M�nnlich", 584, 290, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$geschlecht_W = GUICtrlCreateRadio("Weiblich", 704, 290, 113, 17)
$Group2 = GUICtrlCreateGroup("Rasse", 584, 312, 209, 129)
$radio_rasse1 = GUICtrlCreateRadio("Rasse1", 600, 335, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$radio_rasse2 = GUICtrlCreateRadio("Rasse2", 600, 359, 113, 17)
$radio_rasse3 = GUICtrlCreateRadio("Rasse3", 600, 383, 113, 17)
$radio_rasse4 = GUICtrlCreateRadio("Rasse4", 600, 407, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $gAcc[12] = [$Group2, $cre_input_id, $cre_input_pw, $txt_cre_acc, $button_cancel, $button_confirm, $geschlecht_M, $geschlecht_W, $radio_rasse1, $radio_rasse2, $radio_rasse3, $radio_rasse4]

For $gAi = 0 To 11; verstecken
    GUICtrlSetState($gAcc[$gAi], $GUI_HIDE)
Next
; Controls #######################Cre_acc#################End

; Controls #######################Pw �ndern#################
$txt_pw_new = GUICtrlCreateLabel("Passwort �ndern", 616, 192, 144, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$input_pw_alt = GUICtrlCreateInput("Passwort", 584, 304, 209, 21, $ES_PASSWORD)
$input_pw_neu = GUICtrlCreateInput("Passwort", 584, 392, 209, 21, $ES_PASSWORD)
$txt_pw_alt = GUICtrlCreateLabel("Altes Passwort", 584, 280, 73, 17)
$txt_pw_neu = GUICtrlCreateLabel("Neues Passwort", 584, 368, 81, 17)
$button_cancel3 = GUICtrlCreateButton("Cancel", 712, 488, 75, 25)
$button_confirm_pw_neu = GUICtrlCreateButton("Confirm", 592, 488, 75, 25)

Global $gNPw[7] = [$txt_pw_new, $input_pw_alt, $input_pw_neu, $txt_pw_alt, $txt_pw_neu, $button_cancel3, $button_confirm_pw_neu]

For $gPi = 0 To 6; verstecken
    GUICtrlSetState($gNPw[$gPi], $GUI_HIDE)
Next
; Controls #####################Pw �ndern#################End

GUISetState(@SW_SHOW)

; Global###########################################################
Global $id1 = _StringEncrypt(1, GUICtrlRead($cre_input_id), "ERROR")
Global $pw1 = _StringEncrypt(1, GUICtrlRead($cre_input_pw), "ERROR")
Global $id2 = IniRead("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "id", "")
Global $pw2 = IniRead("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "pw", "")
Global $id3 = _StringEncrypt(0, $id2, "ERROR")
Global $pw3 = _StringEncrypt(0, $pw2, "ERROR")
$iR = IniRead("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "")
$iG = IniRead("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Geschlecht", "")

Global $iOld = 0, $sDir = ""
; ###################################################################

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $MenuItem_cre_acc ;Account erstellen-----------------------------------------------------------------------------------
            For $gAi = 0 To 11 ; cre_acc zeigen
                GUICtrlSetState($gAcc[$gAi], $GUI_SHOW)
            Next
            For $gLi = 0 To 5 ; login verstecken
                GUICtrlSetState($gLogin[$gLi], $GUI_HIDE)
            Next
            GUICtrlSetState($MenuItem_cre_acc, $GUI_DISABLE)

        Case $slider_music
            $iNew = Number(GUICtrlRead($slider_music))
            If $iNew > $iOld Then $sDir = "UP"
            If $iNew < $iOld Then $sDir = "DOWN"
            Send("{VOLUME_" & $sDir & " " & Abs($iNew - $iOld) & "}")
            $iOld = $iNew


        Case $MenuItem_login ; Einloggen--------------------------------------------------------------------------------------------
            For $gLi = 0 To 5
                GUICtrlSetState($gLogin[$gLi], $GUI_SHOW) ;login zeigen
            Next
            For $gAi = 0 To 11
                GUICtrlSetState($gAcc[$gAi], $GUI_HIDE) ; cre_acc verstecken
            Next

            If IniRead("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "Daten Speichern", "") = "ja" Then
                GUICtrlSetData($input_id, $id3) ;lie�t Daten / Checkbox ja
                GUICtrlSetData($input_pw, $pw3) ;lie�t Daten / checkbox ja
            EndIf

        Case $button_join;----------------------------------------------------------------------------------------------------------
            If Not FileExists("C:\Program Files\Frogiih's World\Daten.ini") Then
                TrayTip("frogiih's World", "Fehler! Bitte erst einen Account erstellen!", 10000)
            Else

                $pw2 = IniRead("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "pw", "")
                $pw3 = _StringEncrypt(0, $pw2, "ERROR")
                $id2 = IniRead("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "id", "")
                $id3 = _StringEncrypt(0, $id2, "ERROR")
                If GUICtrlRead($input_pw) = $pw3 And GUICtrlRead($input_id) = $id3 Then
                    For $gM2i = 0 To 1;###################
                        GUICtrlSetState($gMenu2[$gM2i], $GUI_DISABLE)
                    Next
                    TrayTip("frogiih's World", "Einloggen Erfolgreich. Daten werden geladen...", 10000)
                    For $gLi = 0 To 5; verstecken
                        GUICtrlSetState($gLogin[$gLi], $GUI_HIDE)
                    Next
                    GUICtrlSetState($txt_login_fail, $GUI_HIDE)
                    For $gNli = 0 To 1
                        GUICtrlSetState($gNlogin[$gNli], $GUI_SHOW)
                    Next
                    For $iP = 1 To 100
                        GUICtrlSetData($Progress2, $iP)
                        Sleep(1)
                    Next
                    GUICtrlSetData($input_name, $id3);name
                    $iG = IniRead("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Geschlecht", "")
                    GUICtrlSetData($input_geschlecht, $iG);Geschlecht
                    $iR = IniRead("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "")
                    GUICtrlSetData($input_rasse, $iR);Rasse
                    For $gMi = 0 To 1
                        GUICtrlSetState($gMenu[$gMi], $GUI_ENABLE)
                    Next;##################################
                    Sleep(900)
                    For $gNli = 0 To 1
                        GUICtrlSetState($gNlogin[$gNli], $GUI_HIDE)
                    Next
                    For $gOp = 0 To 6
                        GUICtrlSetState($gOption[$gOp], $GUI_SHOW)
                    Next
                    ;#######################################################Figur anpassen
                    If $iR = "Rasse1" Then
                        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse1.jpg")
                    ElseIf $iR = "Rasse2" Then
                        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse2.jpg")
                    ElseIf $iR = "Rasse3" Then
                        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse3.jpg")
                    ElseIf $iR = "Rasse4" Then
                        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse4.jpg")
                    EndIf
                    GUICtrlSetState($figur, $GUI_SHOW)
                    ;######################################################Firgur anpassen End
                    For $x=0 To 100
                    $sound = _SoundPlay("C:\Program Files\Frogiih's World\frogiih.mp3")
                    Next
                Else
                    GUICtrlSetState($txt_login_fail, $GUI_SHOW)
                    TrayTip("frogiih's World", "Achtung! Deine Angegebenen Daten stimmen nicht �berein. Bitte �berpr�fe diese.", 10000)
                EndIf
            EndIf

                If GUICtrlRead($checkbox_save) = 1 Then
                    IniWrite("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "Daten Speichern", "ja")
                EndIf
                GUICtrlSetState($button_gesinnung, $GUI_ENABLE)
                GUICtrlSetState($button_option, $GUI_ENABLE)
                GUICtrlSetState($button_fertigkeiten, $GUI_ENABLE)

        Case $MenuItem_Pw_new;------------------------------------------------------------------------------------------------------
            For $gNli = 0 To 1
                GUICtrlSetState($gNlogin[$gNli], $GUI_HIDE)
            Next
            For $gOp = 0 To 6
                GUICtrlSetState($gOption[$gOp], $GUI_HIDE)
            Next
            For $gPi = 0 To 6; zeigen
                GUICtrlSetState($gNPw[$gPi], $GUI_SHOW)
            Next
        Case $button_confirm_pw_neu
            If GUICtrlRead($input_pw_alt) = $pw3 Then;-----------------------------------------------------------------------------
                $pw11 = _StringEncrypt(1, GUICtrlRead($input_pw_neu), "ERROR")
                IniWrite("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "pw", $pw11)
                GUICtrlSetState($txt_pw_fail, $GUI_HIDE)
                GUICtrlSetState($txt_pw_neu_e, $GUI_SHOW)
                TrayTip("frogiih's World", "Dein Passwort wurde Erfolgreich ge�ndert.", 10000)
            Else
                GUICtrlSetState($txt_pw_fail, $GUI_SHOW)
            EndIf
        Case $button_cancel2;-----------------------------------------------------------------------------------------------------
            For $gLi = 0 To 5 ;login verstecken
                GUICtrlSetState($gLogin[$gLi], $GUI_HIDE)
            Next
        Case $button_confirm;------------------------------------------------------------------------------------------------------
            ; ##�berpr�fung ob name und pw mindestens 3 zeichen lang sind ##
            If StringLen(GUICtrlRead($cre_input_id)) < 3 Or StringLen(GUICtrlRead($cre_input_pw)) < 3 Then
                TrayTip("frogiih's World", "Fehler! Bitte mindestens 3 Zeichen eingeben!", 10000)
            Else

            ; ## Rasse und Geschlecht ##
            If GUICtrlRead($radio_rasse1) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "Rasse1")
            ElseIf GUICtrlRead($radio_rasse2) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "Rasse2")
            ElseIf GUICtrlRead($radio_rasse3) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "Rasse3")
            ElseIf GUICtrlRead($radio_rasse4) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Rasse", "Rasse4")
            EndIf
            ;-------------------------------
            If GUICtrlRead($geschlecht_M) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Geschlecht", "M�nnlich")
            ElseIf GUICtrlRead($geschlecht_W) = 1 Then
                IniWrite("C:\Program Files\Frogiih's World\Game.ini", "Spieldaten", "Geschlecht", "Weiblich")
            EndIf
            ;-------------------------------
            GUICtrlSetState($button_gesinnung, $GUI_ENABLE)
            GUICtrlSetState($button_option, $GUI_ENABLE)
            GUICtrlSetState($button_fertigkeiten, $GUI_ENABLE)
            $id1 = _StringEncrypt(1, GUICtrlRead($cre_input_id), "ERROR")
            IniWrite("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "id", $id1)
            $pw1 = _StringEncrypt(1, GUICtrlRead($cre_input_pw), "ERROR")
            IniWrite("C:\Program Files\Frogiih's World\Daten.ini", "Daten", "pw", $pw1)

            TrayTip("frogiih's World", "Account Erfolgreich erstellt. Bereit zum Einloggen...", 10000)


            For $gAi = 0 To 11; cre_acc verstecken
                GUICtrlSetState($gAcc[$gAi], $GUI_HIDE)
            Next
            For $gLi = 0 To 5; Login zeigen
                GUICtrlSetState($gLogin[$gLi], $GUI_SHOW)
            Next

            ; ## Rasse und Geschlecht ## End
        EndIf

        Case $button_cancel;------------------------------------------------------------------------------------------------------
            For $gAi = 0 To 11
                GUICtrlSetState($gAcc[$gAi], $GUI_HIDE) ; cre_acc verstecken
            Next
            GUICtrlSetState($MenuItem_cre_acc, $GUI_ENABLE)
        Case $button_cancel3
            For $gPi = 0 To 6; verstecken
                GUICtrlSetState($gNPw[$gPi], $GUI_HIDE)
            Next
            GUICtrlSetState($txt_pw_fail, $GUI_HIDE)
            GUICtrlSetState($txt_pw_neu_e, $GUI_HIDE)
            For $gOp = 0 To 6
                GUICtrlSetState($gOption[$gOp], $GUI_SHOW)
            Next
        Case $button_gesinnung;--------------------------------------------------------------------------------------------------
        Case $button_fertigkeiten;-----------------------------------------------------------------------------------------------
        Case $button_option;-----------------------------------------------------------------------------------------------------
            For $gNli = 0 To 1
                GUICtrlSetState($gNlogin[$gNli], $GUI_HIDE)
            Next
            For $gPi = 0 To 6; zeigen
                GUICtrlSetState($gNPw[$gPi], $GUI_HIDE)
            Next
            GUICtrlSetState($txt_pw_fail, $GUI_HIDE)
            GUICtrlSetState($txt_pw_neu_e, $GUI_HIDE)
            For $gOp = 0 To 6
                GUICtrlSetState($gOption[$gOp], $GUI_SHOW)
            Next
        Case $button_account_del
            $msgbox = MsgBox(1, "Account L�schen", "M�chtest du dein Account wirklich L�schen?")
                If $msgbox = 1 Then
                FileDelete("C:\program files\frogiih's World\Daten.ini")
                FileDelete("C:\program files\frogiih's World\Game.ini")
                TrayTip("frogiih's World", "Account wurde Erfolgreich gel�scht.", 10000)

                GUICtrlSetData($input_name, "-")
                GUICtrlSetData($input_rasse, "-")
                GUICtrlSetData($input_geschlecht, "-")

                For $gM2i = 0 To 1
                    GUICtrlSetState($gMenu2[$gM2i], $GUI_ENABLE)
                Next
                For $gMi = 0 To 1
                    GUICtrlSetState($gMenu[$gMi], $GUI_DISABLE)
                Next
                For $gOp = 0 To 6
                    GUICtrlSetState($gOption[$gOp], $GUI_HIDE)
                Next
                GUICtrlSetState($button_gesinnung, $GUI_DISABLE)
                GUICtrlSetState($button_option, $GUI_DISABLE)
                GUICtrlSetState($button_fertigkeiten, $GUI_DISABLE)
            EndIf
            $sound = _Soundstop("C:\Program Files\Frogiih's World\frogiih.mp3")
            GUICtrlSetState($figur, $GUI_HIDE)
        Case $MenuItem_logout
            GUICtrlSetData($input_name, "-")
            GUICtrlSetData($input_rasse, "-")
            GUICtrlSetData($input_geschlecht, "-")

            For $gM2i = 0 To 1
                GUICtrlSetState($gMenu2[$gM2i], $GUI_ENABLE)
            Next
            For $gOp = 0 To 6
                GUICtrlSetState($gOption[$gOp], $GUI_HIDE)
            Next
            For $gPi = 0 To 6
                GUICtrlSetState($gNPw[$gPi], $GUI_HIDE)
            Next
            GUICtrlSetState($txt_pw_fail, $GUI_HIDE)
            GUICtrlSetState($txt_pw_neu_e, $GUI_HIDE)
            GUICtrlSetState($button_gesinnung, $GUI_DISABLE)
            GUICtrlSetState($button_option, $GUI_DISABLE)
            GUICtrlSetState($button_fertigkeiten, $GUI_DISABLE)
            GUICtrlSetState($MenuItem_logout, $GUI_DISABLE)
            GUICtrlSetState($MenuItem_pw_new, $GUI_DISABLE)
			GUICtrlSetState($figur, $GUI_HIDE)
            $sound = _Soundstop("C:\Program Files\Frogiih's World\frogiih.mp3")
            TrayTip("frogiih's World", "Du wurdest Erfolgreich ausgeloggt.", 10000)
        Case $button_exit
            Exit
        Case $button_option_confirm
            TrayTip("frogiih's World", "Einstellungen wurden Erfolgreich �bernommen.", 10000)
        Case $musik_w
            $eigene_musik = FileOpenDialog("Hintergrundmusik ausw�hlen", @DesktopDir, "Musikdateien (*.mp3)", 1)
            If @error Then
                MsgBox(0, "frogiih's World", "Keine Datei wurde ausgew�hlt.", 3)
            ELse
                For $x=0 To 100
                $sound = _Soundstop("C:\Program Files\Frogiih's World\frogiih.mp3")
                        _SoundOpen($eigene_musik)
                        _SoundPlay($eigene_musik)
                Next
            EndIf
    EndSwitch
    If GUICtrlRead($time) <> _Now() Then GUICtrlSetData($time, _Now())

    If _IsPressed(25) Then Call("rechts")
    If _IsPressed(26) Then Call("rauf")
    If _IsPressed(27) Then Call("links")
    If _IsPressed(28) Then Call("runter")
    GUICtrlSetPos($figur, $varleft, $vartop)
    Sleep(10)
WEnd

;############################################SPIEL FUNC#############################################################

Func rechts();links
    If $iR = "Rasse1" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse1_l.jpg")
    ElseIf $iR = "Rasse2" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse2_l.jpg")
    ElseIf $iR = "Rasse3" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse3_l.jpg")
    ElseIf $iR = "Rasse4" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse4_l.jpg")
    EndIf
Sleep(50) 
$varleft -= 26
If $varleft < 27 Then
    $varleft += 26
EndIf
EndFunc

Func rauf();oben
    If $iR = "Rasse1" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse1.jpg")
    ElseIf $iR = "Rasse2" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse2.jpg")
    ElseIf $iR = "Rasse3" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse3.jpg")
    ElseIf $iR = "Rasse4" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse4.jpg")
    EndIf
Sleep(50) 
$vartop -= 26
If $vartop < 195   Then
    $vartop += 26
EndIf
EndFunc

Func links();rechts
    If $iR = "Rasse1" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse1_r.jpg")
    ElseIf $iR = "Rasse2" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse2_r.jpg")
    ElseIf $iR = "Rasse3" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse3_r.jpg")
    ElseIf $iR = "Rasse4" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse4_r.jpg")
    EndIf
Sleep(50) 
$varleft += 26
If $varleft > 485 Then
    $varleft -= 26
EndIf
EndFunc

Func runter();unten
    If $iR = "Rasse1" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse1.jpg")
    ElseIf $iR = "Rasse2" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse2.jpg")
    ElseIf $iR = "Rasse3" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse3.jpg")
    ElseIf $iR = "Rasse4" Then
        GUICtrlSetImage($figur, "C:\Program Files\Frogiih's World\Bilder\Rasse4.jpg")
    EndIf
Sleep(50) 
$vartop += 26
If $vartop > 465 Then
    $vartop -= 26
EndIf
EndFunc
;############################################SPIEL FUNC END############################################################