Global chipset,x,y,mx,my,richtung,file,bewegung,ort,orty
Dim map(39,29)

Graphics 640,480,32,1

;vorbereiten des Spiels
chipset=LoadAnimImage(\"tile.bmp\",16,16,0,16)
file=ReadFile(\"map.txt\")
For y=0 To 29
 For x=0 To 39
  map(x,y)=ReadLine(file)
 Next
Next
mx=1
ort=16
my=13
orty=208
richtung=4

;spielstart
Repeat
 SetBuffer BackBuffer()
 Cls
 If KeyHit(1) Then End
 If KeyDown(203) And MilliSecs()>=z+50 And (map(mx-1,my)>0 Or (map(mx-1,my+1)>0 Or map(mx-1,my-1)>0))
  bewegung=bewegung-4
  ort=ort-4
  If bewegung<=0
   mx=mx-1
   bewegung=16
  EndIf
  richtung=5
  z=MilliSecs()
  If map(mx,my-1)=2
   my=my-1
  EndIf
  If map(mx,my)=1
   richtung=6
  EndIf
  If map(mx,my)=3
   richtung=7
  EndIf
  If map(mx,my-1)=1
   my=my-1
   richtung=6
  EndIf
  If map(mx,my+1)=3
   my=my+1
   richtung=7
  EndIf
 EndIf
 If KeyDown(205) And MilliSecs()>=z+50 And (map(mx+1,my)>0 Or (map(mx+1,my-1)>0 Or map(mx+1,my+1)>0))
  bewegung=bewegung+4
  ort=ort+4
  If bewegung>=16
   mx=mx+1
   bewegung=0
  EndIf
  richtung=4
  z=MilliSecs()
  If map(mx,my+1)=2
   my=my+1
  EndIf
  If map(mx,my-1)=2
   my=my-1
  EndIf
  If map(mx,my)=3
   richtung=8
  EndIf
  If map(mx+1,my+1)=1 And (mx+1)*16-8=ort
   my=my+1
   orty=orty+8
   ort=ort+8
   richtung=9
  EndIf
  If map(mx,my-1)=3
   my=my-1
   richtung=8
  EndIf
 EndIf
 DrawImage chipset,ort,orty,richtung
 For y=0 To 29
  For x=0 To 39
   DrawImage chipset,x*16,y*16,map(x,y)
  Next
 Next
 Flip
Forever

X = X + Geschwindigkeit * Cos(Winkel)
Y = Y + Geschwindigkeit * Sin(Winkel)