CrystalSkyCity()
End

Function CrystalSkyCity()


Graphics 640,480,16,2
SetBuffer BackBuffer()
;nochmal laden




x=200
y=200

csc=LoadImage("csc.png")
marsboden=LoadImage("marsboden.png")
schule=LoadImage("7/Schule.PNG")
players=LoadImage("7/player1.png")
schuletür=LoadImage("7/schuletür.png")
wasser=LoadImage("wasser.png")
eigeneshaus=LoadImage("7/Haus.png")
haustür=LoadImage("7/haustür.png")
MaskImage players,0,0,255
MaskImage schule,0,0,255
MaskImage eigeneshaus,0,0,255


Repeat

If KeyDown(200) Then y=y-1    ;Oben
   If KeyDown(208) Then y=y+1   ;Unten
   If KeyDown(203) Then x=x-1   ;Links
   If KeyDown(205) Then x=x+1    ;Rechts


;karte zeichnen


DrawImage csc,0,0

If ImagesCollide(players,x,y,0,haustür,376,66,0)And KeyHit(57)Then End
If ImagesCollide (players,x,y,0,schuletür,139,50,0)And KeyHit(57)Then End

DrawImage schule,42,1
DrawImage schuletür,139,50
DrawImage eigeneshaus,300,1
DrawImage haustür,376,66
DrawImage players,x,y




Flip
Cls

Until KeyHit(1)
End Function

KeyHitSpace = KeyHit(57)

If ImagesCollide(players,x,y,0,haustür,376,66,0)And KeyHitSpace Then End
If ImagesCollide (players,x,y,0,schuletür,139,50,0)And KeyHitSpace Then End