Abenteuerspiel

rexfox · 10/15/2010, 17:25

Und noch eine andere frage:

ich habe in meinem script die variablen
$monstername
$monsterlevel
$pic

diese 3 variablen sollen eig, wenn ein monster aufgerufen wird, den variablen des monsters entsprechn.. komischerweise klappt das soweit dass der gui anders aussieht(ausser den bildern :siehe ein post drüber)
aber wenn dieses monster dann bekämpft wird hat es als level nur 1 ,wie am anfang deklariert, soll aber den neuen wert haben
ich weis nicht warum ist wahrscheinlich nur ein kleiner aber bedeutender fehler..

PHP Code:



#include <ButtonConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <WindowsConstants.au3> 
#include <StaticConstants.au3> 
 
$text="1" 
$level=1 
$pic="C:\Users\Jan\Pictures\abenteuerbilder\goblin_officer.jpg" 
$monstername="" 
$monsterlevel=1 
$dagob=0 
$daspin=0 
$daork=0 
$damag=0 
$dazyk=0 
$daskel=0 
$datro=0 
$dadaem=0 
$ende=0 
Global $x=0 
Global $y=0 
Dim $map[3][3] 
For $y=0 To 2 
    For $x=0 To 2 
        $map[$y][$x] = 'Raum'&$y*3+$x+1 
    Next 
Next 
Global $x=0 
Global $y=0 
 
 
#Region ### START Koda GUI section ### Form= 
$karte = GUICreate("Karte", 558, 396, 196, 124) 
$Lraum = GUICtrlCreateLabel("Du befindest dich im Raum 1", 360, 280, 140, 30) 
$up= GUICtrlCreateButton("Hoch", 232, 16, 73, 145, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinhoch.bmp", -1) 
$down = GUICtrlCreateButton("Runter", 232, 224, 73, 153, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinrunter.bmp", -1) 
$left = GUICtrlCreateButton("Links", 96, 160, 137, 65, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinlinks.bmp", -1) 
$right = GUICtrlCreateButton("Rechts", 304, 160, 161, 65, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinrechts.bmp", -1) 
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 
 
 
#Region ### START Koda GUI section ### Form= 
$gegner = GUICreate("Gegner", 554, 387, 197, 126) 
$Pgegner = GUICtrlCreatePic($pic, 24, 64, 193, 257) 
$Lname = GUICtrlCreateLabel( $monstername , 50, 16, 132, 36) 
GUICtrlSetFont($Lname,15) 
$Lmlevel=GUICtrlCreateLabel( $monsterlevel , 300, 20, 20, 36) 
GUICtrlSetFont($Lmlevel,15) 
$Llevel=GUICtrlCreateLabel( "Level" , 220, 16, 60, 36) 
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") 
$Bkampf = GUICtrlCreateButton("Kampf", 288, 80, 169, 57, $WS_GROUP) 
 
GUISetState(@SW_HIDE) 
#EndRegion ### END Koda GUI section ### 
 
 
 
 
 
 
Func SetText($cid, $text) 
    If GUICtrlRead($cid) <> $text Then GUICtrlSetData($cid, $text) 
EndFunc 
 
Func Disable($cid) 
    If GUICtrlGetState($cid) <> 144 Then GUICtrlSetState($cid, 128) 
EndFunc 
 
Func Enable($cid) 
    If GUICtrlGetState($cid) = 144 Then GUICtrlSetState($cid, 64) 
EndFunc 
 
Func SetButtons() 
    If $x=0 Then 
        Disable($left) 
    Else 
        Enable($left) 
    EndIf 
    If $x=2 Then 
        Disable($right) 
    Else 
        Enable($right) 
    EndIf 
    If $y=0 Then 
        Disable($up) 
    Else 
        Enable($up) 
    EndIf 
    If $y=2 Then 
        Disable($down) 
    Else 
        Enable($down) 
    EndIf 
EndFunc 
 
Func Setpicandtxt($pic, $monsterlevel, $monstername) 
    If $y=0 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\goblin_officer.jpg" 
        $monsterlevel=1 
        $monstername="Goblin" 
If $dagob=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\ork.jpg" 
        $monsterlevel=3 
        $monstername="Ork" 
If $daork=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
 
If $y=0 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\spinne.jpg" 
        $monsterlevel=2 
        $monstername="Spinne" 
If $daspin=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\troll.jpg" 
        $monsterlevel=5 
        $monstername="Troll" 
If $datro=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\skelettkrieger.jpg" 
        $monsterlevel=4 
        $monstername="Skelettkrieger" 
If $daskel=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=0 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\mage.jpg" 
        $monsterlevel=6 
        $monstername="Magier" 
If $damag=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\niederer_daemon.jpg" 
        $monsterlevel=7 
        $monstername="Dämon" 
If $dadaem=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\zyklop.jpg" 
        $monsterlevel=8 
        $monstername="Zyklop" 
If $dazyk=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
GUICtrlSetData ( $Pgegner,"") 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
        $pic="C:\Users\Jan\Pictures\abenteuerbilder\drache.jpg" 
        $monsterlevel=9 
        $monstername="Drache" 
If $ende=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
        If $pic <> GUICtrlRead($Pgegner) Then GUICtrlSetData ( $Pgegner, $pic ) 
SplashOff() 
Else 
MsgBox(1,"Ende","Du hast das Spiel durchgespielt! Es schließt von selbst") 
Exit 
EndIf 
EndIf 
EndFunc 
 
Global $x=0 
Global $y=0 
 
While 1 
    Switch GUIGetMsg() 
        Case -3 
            Exit 
        Case $up 
            $y-=1 
        Case $down 
            $y+=1 
        Case $right 
            $x+=1 
        Case $left 
            $x-=1 
        Case $Bkampf 
            If $level>$monsterlevel Or $level=$monsterlevel Then 
            $level+=1 
            MsgBox(1,"Geschafft","Du hast das Monster besiegt und bist ein Level up!!") 
            If $y=0 And $x=0 Then 
                $dagob=1 
                EndIf 
                If $y=0 And $x=1 Then 
                $daspin=1 
                EndIf 
                If $y=1 And $x=0 Then 
                $daork=1 
                EndIf 
                If $y=2 And $x=1 Then 
                $daskel=1 
                EndIf 
                If $y=2 And $x=0 Then 
                $datro=1 
                EndIf 
                If $y=0 And $x=2 Then 
                $damag=1 
                EndIf 
                If $y=1 And $x=1 Then 
                $dadaem=1 
                EndIf 
                If $y=1 And $x=2 Then 
                $dazyk=1 
                EndIf 
                If $y=2 And $x=2 Then 
                $ende=1 
 
                EndIf 
            Else 
            MsgBox(1,"Tot","Du bist tot!Das Spiel endet hier!") 
            Exit 
            EndIf 
 
        Case Else 
            SetButtons() 
            SetText($Lraum, 'Du befindest dich im Moment'&@CRLF&'      im  '&$map[$y][$x]) 
            Setpicandtxt($pic,$monsterlevel,$monstername) 
            ToolTip($level,0,0) 
 
 
 
    EndSwitch 
WEnd

rexfox · 10/15/2010, 20:40

#push
will meine beiden fragen beantwortet haben-.-
mfg
rexfox

eagly200 · 10/15/2010, 21:04

OMG!! hab das skript so wie es ist mal kopiert und getestet und der PC hing dann.
kannst du den Fehler beheben?

omer36 · 10/15/2010, 21:08

um ein bild in die gui zu machen, machste es mit guictrlcreatepic()

$Pic1 = GUICtrlCreatePic("C:\Users\Pictures\***.jpg", 88, 56, 257, 177, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

zu deinem 2. problem...
ist es mir zu durcheinander...

rexfox · 10/15/2010, 21:11

ähhm wtf?? XD
warum hing der ... also bei mir hängt da nix
und wodurch das hervorgerufen wurde weis ich auch net also kann ichs auch net beheben..

aber suche immer noch antworten auf meine beiden fragen!^^
post 30 und 31... biitttee sonst komm ich net weiter.. werde die zweite version natürlich als fertige auch wieder posten^^

€ post 30 frage hat sich erledigt thx omer^^

€2 omer für dich werde ich gleich mal den script übersichtlicher posten aber dauert noch

rexfox · 10/15/2010, 21:53

Die bunten abschnitte sind die wichtigen^^ und @omer ich habe jetzt darin das guictrlcreatepic und eig auch ,das das alte gelöscht wird, aber die bilder überlagern sich immer und flackern weis net wie ich die bilder ersetzte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>

$text="1"

$level=1

PHP Code:



$monstername="";die anfangs deklarierten variablen 
$monsterlevel=1

$dagob=0
$daspin=0
$daork=0
$damag=0
$dazyk=0
$daskel=0
$datro=0
$dadaem=0
$ende=0
Global $x=0
Global $y=0
Dim $map[3][3]
For $y=0 To 2
For $x=0 To 2
$map[$y][$x] = 'Raum'&$y*3+$x+1
Next
Next
Global $x=0
Global $y=0

#Region ### START Koda GUI section ### Form=
$karte = GUICreate("Karte", 558, 396, 196, 124)
$Lraum = GUICtrlCreateLabel("Du befindest dich im Raum 1", 360, 280, 140, 30)
$up= GUICtrlCreateButton("Hoch", 232, 16, 73, 145, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinh och.bmp", -1)
$down = GUICtrlCreateButton("Runter", 232, 224, 73, 153, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinr unter.bmp", -1)
$left = GUICtrlCreateButton("Links", 96, 160, 137, 65, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinl inks.bmp", -1)
$right = GUICtrlCreateButton("Rechts", 304, 160, 161, 65, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinr echts.bmp", -1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

#Region ### START Koda GUI section ### Form=
$gegner = GUICreate("Gegner", 554, 387, 197, 126)
$pic = GUICtrlCreatePic("", 24, 64, 193, 257)

PHP Code:



$Lname = GUICtrlCreateLabel( $monstername , 50, 16, 132, 36);hier klappts mit den jeweils neu deklarierten variablen 
GUICtrlSetFont($Lname,15) 
$Lmlevel=GUICtrlCreateLabel( $monsterlevel , 300, 20, 20, 36) 
GUICtrlSetFont($Lmlevel,15)

$Llevel=GUICtrlCreateLabel( "Level" , 220, 16, 60, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Bkampf = GUICtrlCreateButton("Kampf", 288, 80, 169, 57, $WS_GROUP)

GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

Func SetText($cid, $text)
If GUICtrlRead($cid) <> $text Then GUICtrlSetData($cid, $text)
EndFunc

Func Disable($cid)
If GUICtrlGetState($cid) <> 144 Then GUICtrlSetState($cid, 128)
EndFunc

Func Enable($cid)
If GUICtrlGetState($cid) = 144 Then GUICtrlSetState($cid, 64)
EndFunc

Func SetButtons()
If $x=0 Then
Disable($left)
Else
Enable($left)
EndIf
If $x=2 Then
Disable($right)
Else
Enable($right)
EndIf
If $y=0 Then
Disable($up)
Else
Enable($up)
EndIf
If $y=2 Then
Disable($down)
Else
Enable($down)
EndIf
EndFunc

Func Setpicandtxt( $monsterlevel, $monstername)
If $y=0 And $x=0 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\goblin_officer.jpg", 24, 64, 193, 257)

$monsterlevel=1
$monstername="Goblin"
If $dagob=0 Then

If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )

If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=1 And $x=0 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\ork.jpg", 24, 64, 193, 257)
$monsterlevel=3
$monstername="Ork"
If $daork=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf

If $y=0 And $x=1 Then

GUISetState(@SW_SHOW,$gegner)
$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\spider.jpg", 24, 64, 193, 257)
$monsterlevel=2
$monstername="Spinne"
If $daspin=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=2 And $x=0 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\troll.jpg", 24, 64, 193, 257)
$monsterlevel=5
$monstername="Troll"
If $datro=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=2 And $x=1 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\skelettkrieger.jpg", 24, 64, 193, 257)
$monsterlevel=4
$monstername="Skelettkrieger"
If $daskel=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=0 And $x=2 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\mage.jpg", 24, 64, 193, 257)
$monsterlevel=6
$monstername="Magier"
If $damag=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=1 And $x=1 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\niederer_daemon.jpg", 24, 64, 193, 257)
$monsterlevel=7
$monstername="Dämon"
If $dadaem=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=1 And $x=2 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\zyklop.jpg", 24, 64, 193, 257)
$monsterlevel=8
$monstername="Zyklop"
If $dazyk=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100)
GUICtrlSetData ( $Lmlevel, "")
GUICtrlSetData ( $Lname, "")
GUICtrlSetData ( $pic,"")
GUICtrlSetData($Llevel,"")
EndIf
EndIf
If $y=2 And $x=2 Then

GUISetState(@SW_SHOW,$gegner)

$pic = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerb ilder\drache.jpg", 24, 64, 193, 257)
$monsterlevel=9
$monstername="Drache"
If $ende=0 Then
If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel )
If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername)

SplashOff()
Else
MsgBox(1,"Ende","Du hast das Spiel durchgespielt! Es schließt von selbst")
Exit
EndIf
EndIf
EndFunc

Global $x=0
Global $y=0

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $up
$y-=1
GUICtrlDelete($pic)
Case $down
$y+=1
GUICtrlDelete($pic)
Case $right
$x+=1
GUICtrlDelete($pic)
Case $left
$x-=1
GUICtrlDelete($pic)

PHP Code:



Case $Bkampf 
            If $level>$monsterlevel Or $level=$monsterlevel Then; hier jedoch wird die am anfang deklarierte 1 für das monsterlevel genommen.. sehr schlecht... 
            $level+=1 
            MsgBox(1,"Geschafft","Du hast das Monster besiegt und bist ein Level up!!")

If $y=0 And $x=0 Then
$dagob=1
EndIf
If $y=0 And $x=1 Then
$daspin=1
EndIf
If $y=1 And $x=0 Then
$daork=1
EndIf
If $y=2 And $x=1 Then
$daskel=1
EndIf
If $y=2 And $x=0 Then
$datro=1
EndIf
If $y=0 And $x=2 Then
$damag=1
EndIf
If $y=1 And $x=1 Then
$dadaem=1
EndIf
If $y=1 And $x=2 Then
$dazyk=1
EndIf
If $y=2 And $x=2 Then
$ende=1

EndIf
Else
MsgBox(1,"Tot","Du bist tot!Das Spiel endet hier!")
Exit
EndIf

Case Else
SetButtons()
SetText($Lraum, 'Du befindest dich im Moment'&@CRLF&' im '&$map[$y][$x])
Setpicandtxt($monsterlevel,$monstername)
ToolTip($level,0,0)

EndSwitch
WEnd
[/PHP]

lolkop · 10/15/2010, 21:57

mh also ich weis nicht, ob du das mit den arrays nicht verstanden hast, aber hier mal ein beispiel mit verschiedenen mobs, und zwei raumtypen (mob-raum und weg-wahl)...

Code:

Global $x=0, $y=0
Dim $mob[3][3], $lvl[3][3], $mob_room = True, $player_lvl = 1
;y = 0
$mob[0][0] = 'einen Goblin'
$lvl[0][0] = 1
$mob[0][1] = 'eine Spinne'
$lvl[0][1] = 2
$mob[0][2] = 'einen Ork'
$lvl[0][2] = 5
;y = 1
$mob[1][0] = 'einen Troll'
$lvl[1][0] = 7
$mob[1][1] = 'eine Fledermaus'
$lvl[1][1] = 3
$mob[1][2] = 'einen Dieb'
$lvl[1][2] = 6
;y = 2
$mob[2][0] = 'einen Zauberer'
$lvl[2][0] = 9
$mob[2][1] = 'einen Vogel'
$lvl[2][1] = 4
$mob[2][2] = 'einen T-Rex'
$lvl[2][2] = 20

GUICreate('Map')
$mob_label = GUICtrlCreateLabel('            Du betrittst einen Raum,'&@CRLF&'in dem du '&$mob[$y][$x]&' (Level '&$lvl[$y][$x]&')  findest'&@CRLF&'          Was möchtest du nun tun?', 110 , 150, 300)
$room_label = GUICtrlCreateLabel('     Nun wird es spannend.'&@CRLF&'du musst du dich entscheiden,'&@CRLF&'       wohin du gehen willst', 128 , 140)
$up = GUICtrlCreateButton('Hoch', 150, 50, 100)
$down = GUICtrlCreateButton('Runter', 150, 260, 100)
$right = GUICtrlCreateButton('Rechts', 280, 150, 100)
$left = GUICtrlCreateButton('Links', 20, 150, 100)
$fight = GUICtrlCreateButton('Kämpfen', 70, 190, 100)
$escape = GUICtrlCreateButton('Fliehen', 230, 190, 100)
$lvl_label = GUICtrlCreateLabel('Dein Level: '&$player_lvl, 320, 370)
GUISetState()

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case $up
			$y-=1
			$mob_room = True
		Case $down
			$y+=1
			$mob_room = True
		Case $right
			$x+=1
			$mob_room = True
		Case $left
			$x-=1
			$mob_room = True
		Case $fight
			If $lvl[$y][$x] <= $player_lvl Then
				$player_lvl += 1
				MsgBox(64, 'Geschafft!', 'Dein Gegner ist besiegt und du fühlst dich viel stärker'&@CRLF&'Nun wird es Zeit diesen Raum wieder zu verlassen')
				$mob_room = False
			Else
				Switch MsgBox(52, 'Schlechte Entscheidung', 'Dieser Gegner war wohl zu stark für dich.'&@CRLF&'Möchtest du nocheinmal von Vorne beginnen?')
					Case 6
						$player_lvl = 1
						$x = 0
						$y = 0
						$mob_room = True
					Case 7
						Exit
				EndSwitch
			EndIf
		Case $escape
			$mob_room = False
		Case Else
			SetButtons()
			RoomDetection()
			SetText($lvl_label, 'Dein Level: '&$player_lvl)
			SetText($mob_label, '            Du betrittst einen Raum,'&@CRLF&'in dem du '&$mob[$y][$x]&' (Level '&$lvl[$y][$x]&')  findest'&@CRLF&'          Was möchtest du nun tun?')
	EndSwitch
WEnd

Func SetText($cid, $text)
	If GUICtrlRead($cid) <> $text Then GUICtrlSetData($cid, $text)
EndFunc

Func Disable($cid)
	If Not BitAND(GUICtrlGetState($cid), 128) Then GUICtrlSetState($cid, 128)
EndFunc

Func Enable($cid)
	If BitAND(GUICtrlGetState($cid), 128) Then GUICtrlSetState($cid, 64)
EndFunc

Func Show($cid)
	If Not BitAND(GUICtrlGetState($cid), 16) Then GUICtrlSetState($cid, 16)
EndFunc

Func Hide($cid)
	If BitAND(GUICtrlGetState($cid), 16) Then GUICtrlSetState($cid, 32)
EndFunc

Func SetButtons()
	If $x=0 Then
		Disable($left)
	Else
		Enable($left)
	EndIf
	If $x=2 Then
		Disable($right)
	Else
		Enable($right)
	EndIf
	If $y=0 Then
		Disable($up)
	Else
		Enable($up)
	EndIf
	If $y=2 Then
		Disable($down)
	Else
		Enable($down)
	EndIf
EndFunc

Func RoomDetection()
	If $mob_room Then
		Hide($up)
		Hide($down)
		Hide($right)
		Hide($left)
		Hide($room_label)
		Show($mob_label)
		Show($fight)
		Show($escape)
	Else
		Show($up)
		Show($down)
		Show($right)
		Show($left)
		Show($room_label)
		Hide($mob_label)
		Hide($fight)
		Hide($escape)
	EndIf
EndFunc

für die bilder jetzt halt einfach noch ein drittes array einfügen, und dann nur die bilder anpassen noch im else case...

rexfox · 10/15/2010, 22:08

uff ja das wäre wahrscheinlich viel einfach gewesen , aber ich kenne mich halt net so gut mit autoit und mit arrays aus und deshalb.. ^^

lolkop · 10/15/2010, 22:17

wenn du das array auf ein 3d array erweiterst, könntest du sogar name, level und bild in einem array speichern. wollte dir das ganze eig nur am beispiel eines 2d arrays zeigen, da ich das so recht übersichtlich finde.

Edit:
übersichtlich war falsch sry :P
einfacher verständlich trifft es wohl bessa

rexfox · 10/15/2010, 22:27

weis jemand eine antwort auf meinen post 36?
und warum die bilder so flackern..

rexfox · 10/16/2010, 13:30

hey^^
ich habs zu guter letzt selbts hinbekommen mit den variablen.. jetzt funzt alles
ich poste en code und die exe als rar mit den bildern
wenn bilder net angezeigt werden ändert in code den pfad ^^

jo viel spaß thx brauch ich nicht aber ne rückmeldung wäre schön^^

PHP Code:



#Region ;**** Directives created by AutoIt3Wrapper_GUI **** 
#AutoIt3Wrapper_icon=..\..\Downloads\speech-balloon-white-a.ico 
#AutoIt3Wrapper_outfile=Abenteuerspielarray.exe 
#AutoIt3Wrapper_UseX64=n 
#AutoIt3Wrapper_Add_Constants=n 
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** 
#include <ButtonConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <WindowsConstants.au3> 
#include <StaticConstants.au3> 
 
 
Global $x=0 
Global $y=0 
Dim $map[3][3] 
For $y=0 To 2 
    For $x=0 To 2 
        $map[$y][$x] = 'Raum'&$y*3+$x+1 
    Next 
Next 
Global $x=0 
Global $y=0 
Global $text="1" 
Global $level=1 
Global $monstername="" 
Global $monsterlevel=1 
Global $dagob=0 
Global $daspin=0 
Global $daork=0 
Global $damag=0 
Global $dazyk=0 
Global $daskel=0 
Global $datro=0 
Global $dadaem=0 
Global $ende=0 
#Region ### START Koda GUI section ### Form= 
$Forientierung = GUICreate("Orientierung", 307, 306, 237, 247) 
$Pic1 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\gitter.jpg", 0, 0, 305, 305, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) 
$Label1 = GUICtrlCreateLabel("X", 40, 32, 18, 28) 
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif") 
GUISetState(@SW_SHOW) 
$Label2 = GUICtrlCreateLabel("Erforscht", 8, 72, 46, 17) 
$Label3 = GUICtrlCreateLabel("Erforscht", 112, 72, 46, 17) 
$Label4 = GUICtrlCreateLabel("Erforscht", 8, 184, 46, 17) 
$Label5 = GUICtrlCreateLabel("Erforscht", 112, 280, 46, 17) 
$Label6 = GUICtrlCreateLabel("Erforscht", 8, 280, 46, 17) 
$Label7 = GUICtrlCreateLabel("Erforscht", 208, 72, 46, 17) 
$Label8 = GUICtrlCreateLabel("Erforscht", 104, 184, 46, 17) 
$Label9 = GUICtrlCreateLabel("Erforscht", 208, 184, 46, 17) 
GUICtrlSetState ( $Label2,$GUI_HIDE ) 
GUICtrlSetState ( $Label3, $GUI_HIDE ) 
GUICtrlSetState ( $Label4, $GUI_HIDE ) 
GUICtrlSetState ( $Label5, $GUI_HIDE ) 
GUICtrlSetState ( $Label6, $GUI_HIDE ) 
GUICtrlSetState ( $Label7,$GUI_HIDE ) 
GUICtrlSetState ( $Label8, $GUI_HIDE ) 
GUICtrlSetState ( $Label9, $GUI_HIDE ) 
 
#EndRegion ### END Koda GUI section ### 
 
 
 
#Region ### START Koda GUI section ### Form= 
$karte = GUICreate("Karte", 558, 396, 196, 124) 
$Lraum = GUICtrlCreateLabel("Du befindest dich im Raum 1", 360, 280, 140, 30) 
$up= GUICtrlCreateButton("Hoch", 232, 16, 73, 145, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinhoch.bmp", -1) 
$down = GUICtrlCreateButton("Runter", 232, 224, 73, 153, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinrunter.bmp", -1) 
$left = GUICtrlCreateButton("Links", 96, 160, 137, 65, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinlinks.bmp", -1) 
$right = GUICtrlCreateButton("Rechts", 304, 160, 161, 65, BitOR($BS_BITMAP,$WS_GROUP)) 
GUICtrlSetImage(-1, "C:\Users\Jan\Pictures\abenteuerbilder\pfeilkleinrechts.bmp", -1) 
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 
 
 
#Region ### START Koda GUI section ### Form= 
$gegner = GUICreate("Gegner", 554, 387, 197, 126) 
 
$Lname = GUICtrlCreateLabel( $monstername , 50, 16, 132, 36) 
GUICtrlSetFont($Lname,15) 
$Lmlevel=GUICtrlCreateLabel( $monsterlevel , 300, 20, 20, 36) 
GUICtrlSetFont($Lmlevel,15) 
$Llevel=GUICtrlCreateLabel( "Level" , 220, 16, 60, 36) 
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") 
$Bkampf = GUICtrlCreateButton("Kampf", 288, 80, 169, 57, $WS_GROUP) 
GUISetState(@SW_SHOW) 
$pic1= GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\goblin_officer.jpg", 24, 64, 193, 257) 
$pic2 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\ork.jpg", 24, 64, 193, 257) 
$pic3 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\spider.jpg", 24, 64, 193, 257) 
$pic4= GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\troll.jpg", 24, 64, 193, 257) 
$pic5 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\skelettkrieger.jpg", 24, 64, 193, 257) 
$pic6= GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\mage.jpg", 24, 64, 193, 257) 
$pic7 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\niederer_daemon.jpg", 24, 64, 193, 257) 
$pic8 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\zyklop.jpg", 24, 64, 193, 257) 
$pic9 = GUICtrlCreatePic("C:\Users\Jan\Pictures\abenteuerbilder\drache.jpg", 24, 64, 193, 257) 
#EndRegion ### END Koda GUI section ### 
 
 
 
 
 
 
 
Func SetText($cid, $text) 
    If GUICtrlRead($cid) <> $text Then GUICtrlSetData($cid, $text) 
EndFunc 
 
Func Disable($cid) 
    If GUICtrlGetState($cid) <> 144 Then GUICtrlSetState($cid, 128) 
EndFunc 
 
Func Enable($cid) 
    If GUICtrlGetState($cid) = 144 Then GUICtrlSetState($cid, 64) 
EndFunc 
 
Func SetButtons() 
    If $x=0 Then 
        Disable($left) 
    Else 
        Enable($left) 
    EndIf 
    If $x=2 Then 
        Disable($right) 
    Else 
        Enable($right) 
    EndIf 
    If $y=0 Then 
        Disable($up) 
    Else 
        Enable($up) 
    EndIf 
    If $y=2 Then 
        Disable($down) 
    Else 
        Enable($down) 
    EndIf 
EndFunc 
 
Func Setpicandtxt() 
    If $y=0 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
 
        $monsterlevel=1 
        $monstername="Goblin" 
If $dagob=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=3 
        $monstername="Ork" 
If $daork=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
 
If $y=0 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
        $monsterlevel=2 
        $monstername="Spinne" 
If $daspin=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=0 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=5 
        $monstername="Troll" 
If $datro=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=4 
        $monstername="Skelettkrieger" 
If $daskel=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=0 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=6 
        $monstername="Magier" 
If $damag=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=1 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=7 
        $monstername="Dämon" 
If $dadaem=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=1 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=8 
        $monstername="Zyklop" 
If $dazyk=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
SplashTextOn("Leer","Dieser Raum ist leer",100,100,100,100) 
GUICtrlSetData ( $Lmlevel, "") 
GUICtrlSetData ( $Lname, "") 
 
GUICtrlSetData($Llevel,"") 
EndIf 
EndIf 
If $y=2 And $x=2 Then 
 
        GUISetState(@SW_SHOW,$gegner) 
 
 
        $monsterlevel=9 
        $monstername="Drache" 
If $ende=0 Then 
        If $monsterlevel <> GUICtrlRead($Lmlevel) Then GUICtrlSetData ( $Lmlevel, $monsterlevel ) 
        If $monstername <> GUICtrlRead($Lname) Then GUICtrlSetData ( $Lname, $monstername) 
 
SplashOff() 
Else 
MsgBox(1,"Ende","Du hast das Spiel durchgespielt! Es schließt von selbst") 
Exit 
EndIf 
EndIf 
EndFunc 
 
Func Raum() 
                If $y=0 And $x=0 Then 
                If $dagob=1 Then 
 
                GUICtrlSetState ( $Label2, $GUI_SHOW ) 
 
 
 
                EndIf 
                GUICtrlSetPos ( $Label1, 40, 32 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_SHOW) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=0 And $x=1 Then 
                If $daspin=1 Then 
 
                GUICtrlSetState ( $Label3, $GUI_SHOW) 
 
                EndIf 
                GUICtrlSetPos ( $Label1, 144, 32 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_SHOW) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=1 And $x=0 Then 
                If $daork=1 Then 
 
                GUICtrlSetState ( $Label4, $GUI_SHOW ) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 40, 136 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_SHOW) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=2 And $x=1 Then 
                If $daskel=1 Then 
 
                GUICtrlSetState ( $Label5, $GUI_SHOW) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 144, 240 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_SHOW) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=2 And $x=0 Then 
                If $datro=1 Then 
 
                GUICtrlSetState ( $Label6,$GUI_SHOW) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 40, 240 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_SHOW) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=0 And $x=2 Then 
                If $damag=1 Then 
 
                GUICtrlSetState ( $Label7, $GUI_SHOW ) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 240, 32 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_SHOW) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=1 And $x=1 Then 
                If $dadaem=1 Then 
 
                GUICtrlSetState ( $Label8, $GUI_SHOW ) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 144, 136 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_SHOW) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=1 And $x=2 Then 
                If $dazyk=1 Then 
 
                GUICtrlSetState ( $Label9, $GUI_SHOW ) 
 
                EndIf 
 
                GUICtrlSetPos ( $Label1, 248, 136 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_SHOW) 
                GUICtrlSetState($pic9,$GUI_HIDE) 
                EndIf 
                If $y=2 And $x=2 Then 
                GUICtrlSetPos ( $Label1, 248, 240 , 18, 28 ) 
                GUICtrlSetState($pic1,$GUI_HIDE) 
                GUICtrlSetState($pic2,$GUI_HIDE) 
                GUICtrlSetState($pic3,$GUI_HIDE) 
                GUICtrlSetState($pic4,$GUI_HIDE) 
                GUICtrlSetState($pic5,$GUI_HIDE) 
                GUICtrlSetState($pic6,$GUI_HIDE) 
                GUICtrlSetState($pic7,$GUI_HIDE) 
                GUICtrlSetState($pic8,$GUI_HIDE) 
                GUICtrlSetState($pic9,$GUI_SHOW) 
                EndIf 
EndFunc 
Global $x=0 
Global $y=0 
 
While 1 
    Switch GUIGetMsg() 
        Case -3 
            Exit 
        Case $up 
            $y-=1 
 
        Case $down 
            $y+=1 
 
        Case $right 
            $x+=1 
 
        Case $left 
            $x-=1 
 
        Case $Bkampf 
            If $level>$monsterlevel Or $level=$monsterlevel Then 
            $level+=1 
            MsgBox(1,"Geschafft","Du hast das Monster besiegt und bist ein Level up!!") 
            If $y=0 And $x=0 Then 
                $dagob=1 
                EndIf 
                If $y=0 And $x=1 Then 
                $daspin=1 
                EndIf 
                If $y=1 And $x=0 Then 
                $daork=1 
                EndIf 
                If $y=2 And $x=1 Then 
                $daskel=1 
                EndIf 
                If $y=2 And $x=0 Then 
                $datro=1 
                EndIf 
                If $y=0 And $x=2 Then 
                $damag=1 
                EndIf 
                If $y=1 And $x=1 Then 
                $dadaem=1 
                EndIf 
                If $y=1 And $x=2 Then 
                $dazyk=1 
                EndIf 
                If $y=2 And $x=2 Then 
                $ende=1 
 
                EndIf 
            Else 
            MsgBox(1,"Tot","Du bist tot!Das Spiel endet hier!") 
            Exit 
            EndIf 
 
        Case Else 
            SetButtons() 
            SetText($Lraum, 'Du befindest dich im Moment'&@CRLF&'      im  '&$map[$y][$x]) 
            Setpicandtxt() 
            ToolTip($level,0,0) 
            Raum() 
 
 
    EndSwitch 
WEnd

amnesi · 10/16/2010, 22:00

Is ganz gut nur das Fenster(Dieser Raum ist leer) flackert immer
ach und die pfade dr bilder könnten aus inis ausgeesen werden
und die versch. guis sollten sich nich überlagern.
Ich hab erst garnich mitbekommen das da noch andere guis waren

rexfox · 10/17/2010, 01:18

okay.. des mit den inis.. weis net wie.. das flackern liegt daran,dass des indirekt in einer endloschleife ist und so immer wieder kommt..wäre umständlich des da rauszuholen
und des mit den guis ist mir erst eingefallen, dass ich des ja noch ändern wollte, als alles upgeloadet und gepostet war^^ habs bisher noch net geändert..^^

mit den inis werd ich mir mal aneignen^^
thx für rückmeldung .. man lernt aus seinen fehlern^^

amnesi · 10/17/2010, 15:21

mit den inis kann ich dir gerne helfen

am besten du macht ein Extra Config script das die Pfade speichert

dann musst du sie in deinem Script nur noch auslesen

hier hab ich die "Config" für dein Script geschrieben hoffe ich hab geholfen
bei Problemen oder so einfach fragen ich helfe gerne

PHP Code:



#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 469, 443, 192, 124)
$Input1 = GUICtrlCreateInput("Goblin_officer", 16, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Goblin Speichern", 16, 56, 123, 25, 0)
$Input2 = GUICtrlCreateInput("Spider", 160, 32, 121, 21)
$Button2 = GUICtrlCreateButton("Spider Speichern", 160, 56, 123, 25, 0)
$Input3 = GUICtrlCreateInput("Mage", 304, 32, 121, 21)
$Button3 = GUICtrlCreateButton("Mage Speichern", 304, 56, 123, 25, 0)
$Input4 = GUICtrlCreateInput("Ork", 16, 96, 121, 21)
$Button4 = GUICtrlCreateButton("Ork Speichern", 16, 120, 123, 25, 0)
$Input5 = GUICtrlCreateInput("Troll", 160, 96, 121, 21)
$Button5 = GUICtrlCreateButton("Troll Speichern", 160, 120, 123, 25, 0)
$Input6 = GUICtrlCreateInput("zyklop", 304, 96, 121, 21)
$Button6 = GUICtrlCreateButton("zyklop speichern", 304, 120, 123, 25, 0)
$Input7 = GUICtrlCreateInput("niederer_daemon", 16, 160, 121, 21)
$Button7 = GUICtrlCreateButton("Dämon Speichern", 16, 184, 123, 25, 0)
$Input8 = GUICtrlCreateInput("Skelettkrieger", 160, 160, 121, 21)
$Button8 = GUICtrlCreateButton("Skelettkrieger Speichern", 160, 184, 123, 25, 0)
$Input9 = GUICtrlCreateInput("Drache", 304, 160, 121, 21)
$Button9 = GUICtrlCreateButton("Drache Speichern", 304, 184, 123, 25, 0)
$Group1 = GUICtrlCreateGroup("MonsterBilder Pfade Speichern", 8, 16, 433, 201)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input10 = GUICtrlCreateInput("Pfeilhoch", 8, 256, 121, 21)
$Button10 = GUICtrlCreateButton("Pfeilhoch speichern", 8, 280, 123, 25, 0)
$Input11 = GUICtrlCreateInput("Pfeilunten", 152, 256, 121, 21)
$Button11 = GUICtrlCreateButton("Pfeilunten Speichern", 152, 280, 123, 25, 0)
$Input12 = GUICtrlCreateInput("Pfeilrechts", 296, 256, 121, 21)
$Button12 = GUICtrlCreateButton("Pfeilrechts Speichern", 296, 280, 123, 25, 0)
$Input13 = GUICtrlCreateInput("Pfeillinks", 80, 320, 121, 21)
$Button13 = GUICtrlCreateButton("Pfeillinks Speichern", 80, 344, 123, 25, 0)
$Input14 = GUICtrlCreateInput("Gitter", 224, 320, 121, 21)
$Button14 = GUICtrlCreateButton("Gitter Speichern", 224, 344, 123, 25, 0)
$Group2 = GUICtrlCreateGroup("Sonstiges", 8, 232, 433, 161)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        case $Button1
            Goblin()
        case $Button2
            Spider()
        case $Button3
            Mage()
        case $Button4
            Ork()
        case $Button5
            Troll()
        case $Button6
            Zyklop()
        case $Button7
            Daemon()
        case $Button8
            Skelletkrieger()
        case $Button9
            Drache()
        case $Button10
            Pfeilhoch()
        case $Button11
            Pfeilunten()
        case $Button12
            Pfeillinks()
        case $Button13
            Pfeilrechts()
        case $Button14
            Gitter()
    EndSwitch
WEnd

Func Goblin()
    iniwrite("Config.ini","Monster","Goblin",guictrlread($Input1))
endfunc

Func Spider()
    iniwrite("Config.ini","Monster","Spider",guictrlread($Input2))
endfunc

Func Mage()
    iniwrite("Config.ini","Monster","Mage",guictrlread($Input3))
endfunc

Func Ork()
    iniwrite("Config.ini","Monster","Ork",guictrlread($Input4))
endfunc

Func Troll()
    iniwrite("Config.ini","Monster","Troll",guictrlread($Input5))
EndFunc

Func Zyklop()
    iniwrite("Config.ini","Monster","Zyklop",guictrlread($Input6))
endfunc

Func Daemon()
    iniwrite("Config.ini","Monster","Dämon",guictrlread($Input7))
endfunc

Func Skelletkrieger()
    iniwrite("Config.ini","Monster","Skelletkrieger",guictrlread($Input8))
endfunc

Func Drache()
    iniwrite("Config.ini","Monster","Drache",guictrlread($Input9))
endfunc

Func Pfeilhoch()
    iniwrite("Config.ini","Sonstiges","Pfeilhoch",guictrlread($Input10))
EndFunc

Func Pfeilunten()
    iniwrite("Config.ini","Sonstiges","Pfeilunten",guictrlread($Input11))
endfunc

Func Pfeillinks()
    iniwrite("Config.ini","Sonstiges","Pfeillinks",guictrlread($Input12))
EndFunc

Func Pfeilrechts()
    iniwrite("Config.ini","Sonstiges","Pfeilrechts",guictrlread($Input13))
endfunc

Func Gitter()
    iniwrite("Config.ini","Sonstiges","Gitter",guictrlread($Input14))
endfunc

Du musst dann nur die Pfade in die inputboxen schreiben und es wird in einer Ini gespeicherrt(Die Ini hat den Namen Config

)

~~2good4you111~~ · 10/19/2010, 10:10

Hab nen bug entdeckt

Wenn man ein monnster ca 9x killt, kann man nicht mehr sterben...
Also 9x auf kämfen klicken so meine ich^^