Suche hilfe ...

08/19/2010 19:29 KingZuck#1
Hi,

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 :D

MFG