mache gerade ein spiel aber wenn ich bei der 2.form auf ein bild klicke pasiert nichts.
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$i = 200
$du = 200
$d = 0
$xpvon = IniRead("Level1","123","1","")
$xp = IniRead("xp","123","1","0")
$Credits = IniRead("Credits","123","1","0")
$Uridium = IniRead("Uridium","123","1","0")
$a = $xp + "/" + $xpvon
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 773, 148, 194, 119)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\Waffen Symbol fur Rechnungen.gif", 0, 48, 100, 100)
$Pic2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\schild.jpg", 96, 48, 76, 100)
$Label4 = GUICtrlCreateLabel("Credits:" & $Credits, 8, 8, 190, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Old English Text MT")
$Label2 = GUICtrlCreateLabel("Uridium:" & $Uridium, 199, 8, 252, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Old English Text MT")
$Label3 = GUICtrlCreateLabel("Erfahrung:" & $xp, 452, 5, 320, 36)
GUICtrlSetFont(-1, 20, 400, 0, "Old English Text MT")
$Pic3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\Fimo Schmuck.jpg", 168, 48, 100, 100)
$Pic4 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\a_Schwerter2.gif", 264, 48, 100, 100)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 623, 442, 192, 124)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; auf den klassischen Style umschalten
$Progress1 = GUICtrlCreateProgress(40, 240, 150, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Progress2 = GUICtrlCreateProgress(264, 240, 150, 17)
GUICtrlSetColor(-1, 0x3D95FF)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; zurück zum Standard-Windowsstyle
$Pic11 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\sniper.jpg", 56, 72, 116, 164)
$Pic21 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\snipers.jpg", 264, 72, 116, 164)
$Label1 = GUICtrlCreateLabel($xp & "/" & $xpvon, 488, 8, 111, 27)
GUICtrlSetFont(-1, 16, 400, 0, "Niagara Engraved")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Form3", 621, 61, 192, 124)
$Pic66 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\waffenKampfpistolerechts.jpg", 0, 0, 92, 60)
$Pic6 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\barrett_punt_50.jpg", 88, 0, 180, 60)
$Pic7 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\1.JPG", 264, 0, 124, 60)
$Pic8 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Andrea\Desktop\-- ----\mossberg-s.jpg", 384, 0, 236, 60)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
$nMsg = GUIGetMsg()
Case $Pic1
GUISetState(@SW_HIDE,$Form2)
GUISetState(@SW_SHOW,$Form3)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic66
MsgBox(4,"Waffe","Willst du diese Waffe wirklich für 5000 Kaufen?")
If $Credits >= 5000 Then
$Credits = $Credits -5000
MsgBox(0,"Waffe","Die Waffe wurde erfolgreich gekauft.")
Else
MsgBox(0,"Waffe","Sie haben zu wenig Geld!")
EndIf
EndSwitch
Case $Pic2
Case $Pic3
Case $Pic4
$c = 0
GUISetState(@SW_HIDE,$Form2)
GUISetState(@SW_SHOW,$Form1)
While $c < 1
$c = $c +0
$a = (Chr(Random(97, 122, 1)))
$b = (Chr(Random(97, 122, 1)))
If $a = "w" Or $a = "a" Then
If $du <= 0 Then
MsgBox(0, "", "Gewonnen")
$xp = $xp +20
$Credits = $Credits +400
$Uridium = $Uridium +1
GUICtrlSetData($Label1,$xp & "/" & $xpvon)
IniWrite("xp","123","1",$xp)
$i = 100
$du = 100
$c = 1
GUISetState(@SW_HIDE,$Form1)
GUISetState(@SW_SHOW,$Form2)
GUICtrlSetData($Label4, "Credits:" & $Credits )
GUICtrlSetData($Label2, "Uridium:" & $Uridium)
GUICtrlSetData($Label3, "Erfahrung:" & $xp)
EndIf
If $i <=0 Then
MsgBox(0, "", "Game Over")
If Not($xp <=0) Or Not($xp = 0) Then
$xp = $xp -10
GUICtrlSetData($Label1,$xp & "/" & $xpvon)
IniWrite("xp","123","1",$xp)
EndIf
$c = 1
$i = 100
$du = 100
GUISetState(@SW_HIDE,$Form1)
GUISetState(@SW_SHOW,$Form2)
$Credits = $Credits -200
GUICtrlSetData($Label4, "Credits:" & $Credits )
GUICtrlSetData($Label3,"Erfahrung:" & $xp)
EndIf
If $d = 2 Then $i = $i - 0.5
If $d = 1 Then $du = $du - 0.5
If Not ($du >= 0) Then MsgBox(0, "", "Gewonnen")
EndIf
If $d = 2 Then
$d = -1
EndIf
$d = $d + 1
GUICtrlSetData($Progress1, $i)
GUICtrlSetData($Progress2, $du)
WEnd
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
EndSwitch
WEnd
hoffe ihr könnt mir helfen