You last visited: Today at 18:36
Advertisement
[AutoIt]frogiih's World
Discussion on [AutoIt]frogiih's World within the Coding Releases forum part of the Coders Den category.
04/02/2011, 18:05
#1
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
[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
.
Dieser installiert euch alle benötigten Dateien & Grafiken.
Auf Wunsch mache ich auch einen Virustest.
Hier dann nocheinmal der Script.
Installer:
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:
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############################################################
04/02/2011, 19:20
#2
elite*gold: 6
Join Date: Mar 2010
Posts: 416
Received Thanks: 221
sieht ganz gut aus
04/02/2011, 19:55
#3
elite*gold: 10
Join Date: Aug 2010
Posts: 647
Received Thanks: 214
Sehr gut
Danke.
04/03/2011, 11:07
#4
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
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.
04/03/2011, 14:27
#5
elite*gold: 100
Join Date: Sep 2009
Posts: 8,143
Received Thanks: 2,763
Gut Gut, du autoit hekkz0r
Überleg dir ein gutes Konzept, und verkauf die rechte => Win
04/05/2011, 15:14
#6
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
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.
04/06/2011, 20:02
#7
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by
.Moskito
#up
&reported
Und irgendwie funzt das bei mir nicht nachdem ichs installiert habe
Lg Algaten
04/06/2011, 20:21
#8
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
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
04/06/2011, 20:26
#9
elite*gold: 0
Join Date: Jun 2010
Posts: 4,637
Received Thanks: 1,264
Kannte es ja vorher auch schon zur Hälfte. Aber echt nice work, Moski.
04/06/2011, 20:30
#10
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by
.Moskito
was fürn Fehler kommt?
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
04/07/2011, 17:15
#11
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
Quote:
Originally Posted by
Algaten™
Eskommt kein fehler wenn ichs geöffnet habe register und dann lagon macht es nichts mehr..
Hm... hast du win7?
04/07/2011, 17:35
#12
elite*gold: 0
Join Date: Mar 2009
Posts: 3,963
Received Thanks: 1,584
Quote:
Originally Posted by
.Moskito
Hm... hast du win7?
Ja habe win 7
04/07/2011, 17:47
#13
elite*gold: 1
Join Date: Feb 2009
Posts: 1,726
Received Thanks: 729
Sieht sehr gut aus
Frage: Warum hast du immer einen Ladebalken gemacht? Der wäre doch gar nicht nötig gewesen
04/07/2011, 18:43
#14
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
da hatt sich aber nicht sehr viel geändert
dachte du überlegst dir noch was ^^
04/07/2011, 20:04
#15
elite*gold: 0
Join Date: Aug 2010
Posts: 827
Received Thanks: 414
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
All times are GMT +2. The time now is 18:37 .
![[AutoIt]frogiih's World](https://www.elitepvpers.com/forum/iconimages/coding-releases/autoit-frogiihs-world_ltr.gif){kind=small}
.
Danke.
