[AutoIt]frogiih's World

.Moskito · 04/02/2011, 18:05

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 .
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############################################################

finaldown97 · 04/02/2011, 19:20

sieht ganz gut aus

Braveness · 04/02/2011, 19:55

Sehr gut

Danke.

.Moskito · 04/03/2011, 11:07

Danke.

Achja, falls sich jemand etwas überlegt hat, was man daraus machen könnte, wäre es gut, wenn er es hier mitteilen könnte.

.Marcel' · 04/03/2011, 14:27

Gut Gut, du autoit hekkz0r
Überleg dir ein gutes Konzept, und verkauf die rechte => Win

.Moskito · 04/05/2011, 15:14

Quote:

Originally Posted by ჩanana :3

Gut Gut, du autoit hekkz0r
Überleg dir ein gutes Konzept, und verkauf die rechte => Win

Haha, den Vorschlag merk ich mir

Am besten an die Gameforge vkfen.

~~Algaten™~~ · 04/06/2011, 20:02

Quote:

Originally Posted by .Moskito

#up

&reported

Und irgendwie funzt das bei mir nicht nachdem ichs installiert habe

Lg Algaten

.Moskito · 04/06/2011, 20:21

Quote:

Originally Posted by Algaten™

&reported

Und irgendwie funzt das bei mir nicht nachdem ichs installiert habe

Lg Algaten

was fürn Fehler kommt?
& weshalb reported? oO

SergeantPleXuS · 04/06/2011, 20:26

Kannte es ja vorher auch schon zur Hälfte. Aber echt nice work, Moski.

~~Algaten™~~ · 04/06/2011, 20:30

Quote:

Originally Posted by .Moskito

was fürn Fehler kommt?
& weshalb reported? oO

Eskommt kein fehler wenn ichs geöffnet habe register und dann lagon macht es nichts mehr..

Reported da Pushen nur im Trading bereich erlaubt ist...

Lg

.Moskito · 04/07/2011, 17:15

Quote:

Originally Posted by Algaten™

Eskommt kein fehler wenn ichs geöffnet habe register und dann lagon macht es nichts mehr..

Reported da Pushen nur im Trading bereich erlaubt ist...

Lg

Hm... hast du win7?

~~Algaten™~~ · 04/07/2011, 17:35

Quote:

Originally Posted by .Moskito

Hm... hast du win7?

Ja habe win 7

HardCore.1337 · 04/07/2011, 17:47

Sieht sehr gut aus

Frage: Warum hast du immer einen Ladebalken gemacht? Der wäre doch gar nicht nötig gewesen

omer36 · 04/07/2011, 18:43

da hatt sich aber nicht sehr viel geändert

dachte du überlegst dir noch was ^^

.Moskito · 04/07/2011, 20:04

Quote:

Originally Posted by omer36

da hatt sich aber nicht sehr viel geändert

dachte du überlegst dir noch was ^^

nja, dachte ich auch <.<
Nur hatte in letzter Zeit viel zu tun, wegen Schule usw..
Naja, & eingefallen ist mir auch nicht wirklich viel^^

& bevor das "Spiel" bei mir vergammelt, dacht ich mir, könnten die andern was drauß machen

@ Algaten, könnte daran liegen.
Ich hab Vista, und hab den Pfad auch darauf angepasst.
Dachte, der wäre bei win7 gleich, aber evtl müsstest du diese nocheinmal anpassen

@Hardcore, das war reine Deko xD
Im Installer z.B., sieht nen bisschen doof aus, wenn nen Installer nach 1 Sekunde durch ist :P