;CODE BY ROB 05
;
Graphics 320,240,32,2
SetBuffer BackBuffer()

	;GFX LADEN
	Global player = LoadImage(\"player.png\")
	Global hintergrund_zimmer_01 = LoadImage(\"hintergrund_zimmer_01.png\")
	Global vordergrund_zimmer_01 = LoadImage(\"vordergrund_zimmer_01.png\")
	Global hintergrund_zimmer_02 = LoadImage(\"hintergrund_zimmer_02.png\")
	Global vordergrund_zimmer_02 = LoadImage(\"vordergrund_zimmer_02.png\")
		
		;GFX MASKIEREN
		MaskImage player,255,255,255
		MaskImage vordergrund_zimmer_01,255,0,255
		MaskImage vordergrund_zimmer_02,255,0,255

;GLOBALE VARIABLEN GLOBALISIEREN 
Global aktuelleszimmer = 0 ; DAS AKUTELLE ZIMMER IST 0 ALSO ZIMMERBILD NR. 1
Global x,y

;MAINLOOP
While Not KeyHit(1)
Cls

hintergründe() ; GFX HINTER DEM SPIELER
player()       ; GFX SPIELER
vordergründe() ; GFX VOR DEM SPIELER

Text 0,0,\"Zimmer: \"+aktuelleszimmer ;ZIMMER ANZEIGE
Flip
Wend
End
;END

Function hintergründe()

	If x > 240 Then x = 0 aktuelleszimmer= aktuelleszimmer + 1 ; GLAUB DAS IST KLAR 
	If x < 0 Then x = 240 aktuelleszimmer= aktuelleszimmer - 1 ;

		If aktuelleszimmer = 0 Then DrawImage hintergrund_zimmer_01,0,0 ; HIER ZIMMER ODER LOCATIONS 
		If aktuelleszimmer = 1 Then DrawImage hintergrund_zimmer_02,0,0 ; ZEICHNEN UND DENNEN NUMMERN GEBEN

End Function 


Function vordergründe()

		If aktuelleszimmer = 0 Then DrawImage vordergrund_zimmer_01,0,0 ; HIER DAS GLEICHE
		If aktuelleszimmer = 1 Then DrawImage vordergrund_zimmer_02,0,0 ;

End Function


Function PLAYER() ; HIER MUSS ICH JA NICHTS ERLÄUTERN ^^

	DrawImage player,x,y

		If KeyDown(205) Then x=x+1
		If KeyDown(203) Then x=x-1

End Function 

;ENDE

; Die variable aktuelleszimmer ist 0 man kann auch 4,5 oder 4432 am anfang stehen haben, die zahl
; ist dann auch gleich das erste bild das erscheinen wird. Dann in der function hintergründe()
; prüft man welche zahl die variable \"aktuelleszimmer\" hat und malt dementsprechent das hintergrund bild.
; Das ist meine methode, ich kenne andere nicht, oder weiß nicht wie man es anders machen könnte.