das gelbe will net -.-
das grüne geht^^
PHP Code:
Global $Title = "Metin"
Global $Ini = @ScriptDir & "\game.ini"
Global $RankUpTime = 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
$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")
GUICtrlSetOnEvent($gui_Baden,"_Baden")
While 1
Sleep(1)
WEnd
[COLOR="Yellow"]Func _essen()
$vit = $vit +22
_Setvit($vit)
GUICtrlSetState($gui_essen,$GUI_DISABLE)
Global $iCounter = 0
Global $_essenUpTime = $_essenUpTime
Do
$_essenUpTime = $_essenUpTime -1
GUICtrlSetData($gui_essen,"Bitte Warten...")
Sleep(10)
Until $iCounter = $_essenUpTime
GUICtrlSetState($gui_essen,$GUI_ENABLE)
GUICtrlSetData($gui_essen,"Essen geben")
EndFunc[/COLOR]
[COLOR="Lime"]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[/COLOR]
Func _Setvit($ivit)
GUICtrlSetData($gui_vit,$ivit)
_IniWrite("vit",$ivit)
_SetPic($ivit)
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