ich suche jemanden der mir mit mein programm helfen könnte es müsste gemahct werden das alle buttons gleichzeitig gedrückt werden können und das die ini datei verschlüsselt werden...
und ambesten wenn es geht das man den namen nur 1mal eintippen muss^^
script:
PHP Code:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
Opt("GUIOnEventMode", 1)
Global $Title = "Metin"
Global $Ini = @ScriptDir & "\game.ini"
Global $RankUpTime = 60 ;secoudns
Global $vitUpTime = 60 ;secoudns
Global $intUpTime = 60;secoudns
Global $strgUpTime = 60 ;secoudns
Global $dexUpTime = 60 ;secoudns
Global $Name = _IniRead("Name")
Global $Rank = _IniRead("Level")
Global $vit = _IniRead("vit")
Global $int = _IniRead("int")
Global $strg = _IniRead("strg")
Global $dex = _IniRead("dex")
Global $PicDir = @TempDir & "\"
FileInstall(".\Bilder\1.jpg",$PicDir & "1.jpg",1)
FileInstall(".\Bilder\2.jpg",$PicDir & "2.jpg")
FileInstall(".\Bilder\3.jpg",$PicDir & "3.jpg")
FileInstall(".\Bilder\4.jpg",$PicDir & "4.jpg")
FileInstall(".\Bilder\5.jpg",$PicDir & "5.jpg")
FileInstall(".\Bilder\6.jpg",$PicDir & "6.jpg")
FileInstall(".\Bilder\7.jpg",$PicDir & "7.jpg")
FileInstall(".\Bilder\8.jpg",$PicDir & "8.jpg")
FileInstall(".\Bilder\9.jpg",$PicDir & "9.jpg")
FileInstall(".\Bilder\10.jpg",$PicDir & "10.jpg")
FileInstall(".\Bilder\11.jpg",$PicDir & "11.jpg")
#Region ### START Koda GUI section ### Form=C:\Users\Andi\Desktop\desktop\Projekte\AppyGotchi\GUI.kxf
$Namesave =IniRead("game.ini","Name","Name","")
if $namesave = "" Then
$Name=InputBox("Gib dein Name an","Gib dein Name an","","*")
$Namesave = _StringEncrypt ( true , $Name, 1 )
IniWrite("Login.ini","Name","Name",$Namesave)
endif
$GUI = GUICreate($Title & " - " & $Name, 305, 242, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
GUISetBkColor(0xffffff)
GUICtrlCreateLabel("Name:", 8, 8)
GUICtrlCreateLabel("Level:", 8, 32)
GUICtrlCreateLabel("Vitalität:", 150, 20)
GUICtrlCreateLabel("Magie:", 150, 50)
GUICtrlCreateLabel("Stärke:", 150, 80)
GUICtrlCreateLabel("Verteidigung:", 150, 110)
Global $gui_Name = GUICtrlCreateInput($Name, 48, 8, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
Global $gui_Rank = GUICtrlCreateInput($Rank, 48, 32, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
Global $gui_vit = GUICtrlCreateInput($vit, 210, 30, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
Global $gui_int = GUICtrlCreateInput($int, 210, 60, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
Global $gui_strg = GUICtrlCreateInput($strg, 210, 90, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
Global $gui_dex = GUICtrlCreateInput($dex, 210, 130, 81, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY), 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("Status", 145, 6, 155,150)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("Dein Monster ", 8, 56, 129, 97)
$Pic = GUICtrlCreatePic("", 30, 70, 90, 80)
_SetPic($Rank)
$gui_Feed = GUICtrlCreateButton("Leveln", 0, 160, 137, 25, 0)
GUISetState(@SW_SHOW)
$gui_essen = GUICtrlCreateButton ("Essen", 0, 200, 137, 25, 0)
GUISetState(@SW_SHOW)
$gui_quest = GUICtrlCreateButton("Trainieren", 160, 160, 137, 25, 0)
GUISetState(@SW_SHOW)
$gui_Baden = GUICtrlCreateButton("Baden", 160, 200, 137, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($gui_Feed,"_Feed")
GUICtrlSetOnEvent($gui_essen,"_essen")
GUICtrlSetOnEvent($gui_quest,"_quest") ;training
GUICtrlSetOnEvent($gui_Baden,"_Baden")
While 1
Sleep(1)
WEnd
Func _baden()
$int = $int +8
_Setint($int)
GUICtrlSetState($gui_baden,$GUI_DISABLE)
Global $iCounter = 0
Global $_intUpTime = $intUpTime
Do
$iCounter = $iCounter +1
$_intUpTime = $_intUpTime -1
GUICtrlSetData($gui_baden,"Bitte Warten...(" & $_intUpTime & ") ")
Sleep(1000)
Until $iCounter = $_intUpTime
GUICtrlSetState($gui_baden,$GUI_ENABLE)
GUICtrlSetData($gui_baden,"Wird gebadet....")
EndFunc
Func _essen()
$vit = $vit +22
_Setvit($vit)
GUICtrlSetState($gui_essen,$GUI_DISABLE)
Global $iCounter = 0
Global $_vitUpTime = $vitUpTime
Do
$iCounter = $iCounter +1
$_vitUpTime = $_vitUpTime -1
GUICtrlSetData($gui_essen,"Bitte Warten...(" & $_vitUpTime & ") ")
Sleep(1000)
Until $iCounter = $_vitUpTime
GUICtrlSetState($gui_essen,$GUI_ENABLE)
GUICtrlSetData($gui_essen,"Essen geben")
EndFunc
Func _quest()
$strg = $strg +8
_Setstrg($strg)
GUICtrlSetState($gui_quest,$GUI_DISABLE)
Global $iCounter = 0
Global $_strgUpTime = $strgUpTime
Do
$iCounter = $iCounter +1
$_strgUpTime = $_strgUpTime -1
GUICtrlSetData($gui_quest,"Bitte Warten...(" & $_strgUpTime & ") ")
Sleep(1000)
Until $iCounter = $_strgUpTime
GUICtrlSetState($gui_quest,$GUI_ENABLE)
GUICtrlSetData($gui_Quest,"Trainiert....")
EndFunc
Func _feed()
$Rank = $Rank +1
_SetRank($Rank)
GUICtrlSetState($gui_Feed,$GUI_DISABLE)
Global $iCounter = 0
Global $_RankUpTime = $RankUpTime
Do
$iCounter = $iCounter +1
$_RankUpTime = $_RankUpTime -1
GUICtrlSetData($gui_Feed,"Bitte Warten...(" & $_RankUpTime & ")")
Sleep(1000)
Until $iCounter = $RankUpTime
GUICtrlSetState($gui_Feed,$GUI_ENABLE)
GUICtrlSetData($gui_Feed,"Leveln")
EndFunc
Func _SetRank($iRank)
GUICtrlSetData($gui_Rank,$iRank)
_IniWrite("Level",$iRank)
_SetPic($iRank)
EndFunc
Func _Setstrg($istrg)
GUICtrlSetData($gui_strg,$istrg)
_IniWrite("strg",$istrg)
EndFunc
Func _Setvit($ivit)
GUICtrlSetData($gui_vit,$ivit)
_IniWrite("vit",$ivit)
EndFunc
Func _Setdex($idex)
GUICtrlSetData($gui_dex,$idex)
_IniWrite("dex",$idex)
EndFunc
Func _Setint($iint)
GUICtrlSetData($gui_int,$iint)
_IniWrite("int",$iint)
EndFunc
Func _SetPic($dRank)
GUICtrlDelete($Pic)
Dim $Load_gui_Pic
If $dRank <3 Then
$Pic = GUICtrlCreatePic($PicDir & "1.tmp", 30, 70, 90, 80)
ElseIf $dRank < 6 Then
$Pic = GUICtrlCreatePic($PicDir & "2.jpg", 30, 70, 90, 80)
ElseIf $dRank < 10 Then
$Pic = GUICtrlCreatePic($PicDir & "3.jpg", 30, 70, 90, 80)
ElseIf $dRank < 15 Then
$Pic = GUICtrlCreatePic($PicDir & "4.jpg", 30, 70, 90, 80)
ElseIf $dRank < 21 Then
$Pic = GUICtrlCreatePic($PicDir & "5.jpg", 30, 70, 90, 80)
ElseIf $dRank < 27 Then
$Pic = GUICtrlCreatePic($PicDir & "6.jpg", 30, 70, 90, 80)
ElseIf $dRank < 34 Then
$Pic = GUICtrlCreatePic($PicDir & "7.jpg", 30, 70, 90, 80)
ElseIf $dRank < 41 Then
$Pic = GUICtrlCreatePic($PicDir & "8.jpg", 30, 70, 90, 80)
ElseIf $dRank < 56 Then
$Pic = GUICtrlCreatePic($PicDir & "9.jpg", 30, 70, 90, 80)
ElseIf $dRank < 65 Then
$Pic = GUICtrlCreatePic($PicDir & "10.jpg", 30, 70, 90, 80)
ElseIf $dRank < 85 Then
$Pic = GUICtrlCreatePic($PicDir & "10.jpg", 30, 70, 90, 80)
ElseIf $dRank < 98 Then
$Pic = GUICtrlCreatePic($PicDir & "12.jpg", 30, 70, 90, 80)
ElseIf $dRank < 120 Then
$Pic = GUICtrlCreatePic($PicDir & "13.jpg", 30, 70, 90, 80)
ElseIf $dRank > 120 Then
$Pic = GUICtrlCreatePic($PicDir & "13.jpg", 30, 70, 90, 80)
EndIf
EndFunc
Func _IniRead($sVar)
$iGetIni = IniRead($Ini,"load",$sVar,"ERROR")
Return $iGetIni
EndFunc
Func _IniWrite($uVar,$uVal)
$iSetIni = IniWrite($Ini,"load",$uVar,$uVal)
EndFunc
Func _Exit()
Exit
EndFunc
thx schonmal
MFG
