Abenteuerspiel

Page 2 of 4

10/14/2010 23:37 lolkop#16

also die idee ist ganz nett... nur w�re es viel lustiger, wenn man nicht nur 2 r�ume h�tte.

das ganze kann man recht sch�n in ein array packen, und sich so eine einfache 2d welt aufbauen.
zb w�rde ein $raum[3][3] array schon diese struktur bilden:

Code:

< Raum > < Raum > < Raum>
< Raum > < Raum > < Raum>
< Raum > < Raum > < Raum>

hier k�nnte mann sich dann per vor, zur�ck, links, rechts durchzappen...
das ganze w�re dann auch deutlich leichter aufzubauen. man k�nnte alles in einer for schleife laufen lassen, und h�tte quasi ein 7-8 zeilen tool :P

desweiteren ist zb das level noch bugged. dadurch das man gegner mehrmals besiegen kann, kann man deutlich h�here level erreichen, es wird aber immer nur level 3 angezeigt.

10/14/2010 23:43 rexfox#17

ich habe von den arrays keine ahnung 0.o und des mit dem level 3 ist absicht , damit man sich ebn net beliebig hoch lvlt .. ausserdem h�tte des in dem spiel null sinn XD du musst einfach zuerst zur spinne und dann zum ork XD uh mist spiell�sung gegebn XD

k�nnteste des mit den arrays mir mal per pn erkl�ren oder vllt gleich ein TUT machen f�r alle? XD nein will dich zu nix zwingen �berlegs dir^^

10/14/2010 23:57 lolkop#18

naja das was ich dir gegeben habe, ist ein einfaches 2d array.
du denkst dir halt ne gegner struktur aus, und �bertr�gst die ins array...
nochmal am 3er quadrat beispiel

Code:

<gegner1><gegner2><gegner3>
<gegner4><gegner5><gegner6>
<gegner7><gegner8><gegner9>

stell dir das ganze wie ein koordinatensystem vor mit x und y achse...
das ganze k�nnte man so umsetzn:

Code:

;y = 0
$array[0][0] = "gegner1"
$array[0][1] = "gegner2"
$array[0][2] = "gegner3"
;y = 1
$array[1][0] = "gegner4"
$array[1][1] = "gegner5"
$array[1][2] = "gegner6"
;y = 2
$array[2][0] = "gegner7"
$array[2][1] = "gegner8"
$array[2][2] = "gegner9"

wenn du jetzt sagst du hast $y und $x als werte in deinem $array[$y][$x], kannst du den buttons dann einfache funktionen wie runter ($y+=1), hoch ($y-=1), rechts ($x+=1) oder links ($x-=1) zuweisen.

im hintergrund l�sst du dann einfach eine funktion laufen, die $x und $y checkt, und so den aktuellen raum darstellt.

10/15/2010 00:04 rexfox#19

uff aba da die ganzen gegner reinzumachn ist ordentlich arbeit XD
kp ob ich da bock zu hab XD des wird dann aber 3 mal so lang wie mein momentaner script oder?

10/15/2010 00:06 lolkop#20

Quote:

Originally Posted by rexfox

uff aba da die ganzen gegner reinzumachn ist ordentlich arbeit XD
kp ob ich da bock zu hab XD des wird dann aber 3 mal so lang wie mein momentaner script oder?

dein script w�re so etwa 10zeilen lang...
der vorteil an der nutzung von arrays ist, das man sich sehr viel schreibarbeit erspart.

10/15/2010 00:15 rexfox#21

wie nur 10 zeilen? die ganzen infos.. wie willste des 10 zeilen machen?? alles hintereinanderschrieben oder was?

bin grad dabei es auszuprobiren so wie ich es denke, und zwar dass ich einzelne gegner hinter das = eines $array

also den ganzen gui dahinterstellen..

verbesser mich ^^ habe wie gsagt noch nie mit arrays gearbeitet

10/15/2010 00:33 lolkop#22

habe doch eig schon gesagt wies aussehn m�sste...
hier mal an nem kleinen beispiel, wie mans aufbauen k�nnte:

Code:

Dim $map[3][3]
For $y=0 To 2
	For $x=0 To 2
		$map[$y][$x] = 'Gegner'&$y*3+$x+1
	Next
Next

GUICreate('Map')
$label = GUICtrlCreateLabel('Du befindest dich im Moment'&@CRLF&'      im Raum von Gegner1', 130 , 150)
$up = GUICtrlCreateButton('Hoch', 150, 50, 100)
$down = GUICtrlCreateButton('Runter', 150, 260, 100)
$right = GUICtrlCreateButton('Rechts', 280, 150, 100)
$left = GUICtrlCreateButton('Links', 20, 150, 100)
GUISetState()

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 Else
			SetButtons()
			SetText($label, 'Du befindest dich im Moment'&@CRLF&'      im Raum von '&$map[$y][$x])
	EndSwitch
WEnd

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

habe mal noch eine funktion eingebaut, die daf�r sorgt, das man nicht aus dem array hinaus schie�en kann...

jetzt m�sste man nat�rlich noch ein gleichgro�es array f�r die level der gegner einbauen, und das eigene level mit angeben, und schon w�re das ganze realisiert auf einer einfachen 2d map...

10/15/2010 00:47 rexfox#23

okay.. also zuerst �berblicke ich einige sachn net XD
also ich wollte es jetzt so l�sen das es zu jedem "raum" ein gui , indem man ein bild des monsters , level und kampf, fliehen sieht ,gibt und der rest imma gehidet wird und eine variable die anzeigt , ob der raum schon betreten wurde und dann den raum anders darstellt ..
dieses

PHP Code:


			
Case Else

            SetButtons()

            SetText($label, 'Du befindest dich im Moment'&@CRLF&'      im Raum von '&$map[$y][$x])

wann wird des denn ausgel�st ? immer oder wann^^
und ich glaub ich �bernehm gr��tenteils deine struktur und baue meine elemente ein XD

10/15/2010 00:53 lolkop#24

Quote:

Originally Posted by rexfox

okay.. also zuerst �berblicke ich einige sachn net XD
also ich wollte es jetzt so l�sen das es zu jedem "raum" ein gui , indem man ein bild des monsters , level und kampf, fliehen sieht ,gibt und der rest imma gehidet wird und eine variable die anzeigt , ob der raum schon betreten wurde und dann den raum anders darstellt ..
dieses

PHP Code:

Case Else SetButtons() SetText($label, 'Du befindest dich im Moment'&@CRLF&' im Raum von '&$map[$y][$x])

wann wird des denn ausgel�st ? immer oder wann^^
und ich glaub ich �bernehm gr��tenteils deine struktur und baue meine elemente ein XD

wozu soviele guis?
die bilder der gegner kannst du doch auch in einem 2d array speichern...
genau wie die controls wenns sein muss. musst halt immer nur das anzeigen, was gerade aktiv ist...

nun zum Else Case... du hast ja eine switch abfrage auf GuiGetMsg() gesetzt.
dh jedes mal wenn die main While schleife durchlaufen wird, guckt GuiGetMsg() ob eines der in den Cases aufgef�hrten handles aktiv geworden ist. ist das f�r eines der fall, so wird die aktion des Cases ausgef�hrt. wenn keiner der F�lle aktiv war, wird der Else Case ausgef�hrt.

dh das ganze wird immer aktiv, wenn kein button gedr�ckt wurde. mit anderen worten ist das die funktion von der ich gesprochen hatte, die im hintergrund immer guckt wo befinde ich mich gerade, und das im gui anzeigt.

10/15/2010 01:13 rexfox#25

okay.. sollte ich das mit den gegnern auch da rein schreibn in else?
und dann imma die bilder und das level ersetzen..

10/15/2010 01:18 lolkop#26

Quote:

Originally Posted by rexfox

okay.. sollte ich das mit den gegnern auch da rein schreibn in else?
und dann imma die bilder und das level ersetzen..

in den else case kommt alles, womit die buttons nichts zu tun haben...

10/15/2010 01:39 rexfox#27

also.. ^^
komem net ganz zurecht mit dem bilder und text tauschen
und deine variable $text, die bei deinem script net deklariert war , wollte er bei meinem fortgesetzten script auf einmal deklariert ham.. is wahrscheinlich alles falsch was ich bisher gmacht hab ich poste es trotzdem mal XD

PHP Code:


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

$text="1"
$level=1
$pic=1
$monsterlevel=1
$monstername=1
Dim $map[3][3]
For $y=0 To 2
    For $x=0 To 2
        $map[$y][$x] = 'Raum'&$y*3+$x+1
    Next
Next



#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("C:\Users\Jan\Pictures\abenteuerbilder\ork.jpg", 24, 64, 193, 257, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Ork Level1", 184, 16, 132, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
$Bkampf = GUICtrlCreateButton("Kampf", 288, 80, 169, 57, $WS_GROUP)
$Bfliehen = GUICtrlCreateButton("Fliehen", 288, 200, 169, 65, $WS_GROUP)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###





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 Else
            SetButtons()
            SetText($Lraum, 'Du befindest dich im Moment'&@CRLF&'      im  '&$map[$y][$x])
            Setpicandtxt($pic,$monsterlevel,$monstername)
    EndSwitch
WEnd

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"
        EndIf
EndFunc

10/15/2010 11:53 lolkop#28

ich verstehe weder warum du jetzt schonwieder mit 2 guis arbeitest, noch warum du schonwieder ohne arrays arbeitest... wollte dir eig nur zeigen, das man das ganze mit arrays deutlich einfacher, �bersichtlicher, eleganter und vorallem effizienter l�sen kann, als so wie du das da versuchst.

naja wenn du lieber ohne arbeiten willst dann tuh das. ich hab eigentlich schon mehr als notwendig gezeigt wie man das ganze umsetzn kann. sry aber du wirst von mir nicht wie von den anderen dein vorgekautes tool bekommen -.-

bin schon der ansicht, das es reichen sollte, die idee zu erkl�ren. f�r die umsetzung sollte immer der coder selbst verantwortlich sein.

10/15/2010 12:02 rexfox#29

okay sry^^ aber guis muss ich doch einsetzten wenn ich eine grafische oberfl�che haben will^^? ich wollte jetzt mit 2 guis arbeiten, einer, in dem immer das jeweilige monster gezeigt wird oder gesagt wird und einer , indem die buttons zum bewegen sind.. und mit guictrlsetdata halt immer den monstergui ersetzten mit anderen bildern und text..
sind 2 guis^^ naja ich schlag mich mal weiter durch^^ i-wann kann ich es so gut wie der rest XD

10/15/2010 15:06 rexfox#30

h�tte eine frage : wie speichere ich ein bild in einer variable ? ich speichere einfach immer den pfad mit "", also zb

PHP Code:


			
$pic="C:\Users\Jan\Pictures\abenteuerbilder\goblin_officer.jpg"

aber dann hab ich immer ein leeres bildfenster.. also i-was stimmt da net
in der autoithilfe steht gar nix �ber bilder als variable speichern und google hat auch net geholfen..
@lolkop ich hoffe so etwas geh�rt zu den fragen, die man als reativ selbst�ndiger coder fragen darf ^^

hoffe auf antwort und sry wegn doppelpost aber wenn ich nur edite liest es niemand XD

Page 2 of 4