Graphics 640,480
SetBuffer BackBuffer()
a = 608
b = 0
z = 1
Spieler1 = LoadImage("Spieler.bmp")
Spieler2 = LoadImage("Spieler2.bmp")
gfxGameover=LoadAnimImage("Game over.bmp",32,32,0,7)
Tileset=LoadAnimImage("Tileset.bmp",32,32,0,15)
MaskImage gfxGameover,255,0,255
MaskImage Spieler2,255,0,255
MaskImage Spieler1,255,0,255
Cls
Dim map(4,4)
Restore Level_1
For q = 0 To 4
For p = 0 To 4
Read map(q,p)
Next
Next
Repeat
DrawImage Spieler1, x, y   
   If KeyDown(200) Then y = y - 2
   If KeyDown(205) Then x = x + 2
   If KeyDown(203) Then x = x - 2
   If KeyDown(208) Then y = y + 2
DrawImage Spieler2, a, b
;   If KeyDown(18) Then b = b - 1
;   If KeyDown(33) Then a = a + 1
;   If KeyDown(31) Then a = a - 1
;   If KeyDown(32) Then b = b + 1
      If x > a Then a = a + 1        
      If x < a Then a = a - 1
      If y > b Then b = b + 1
      If y < b Then b = b - 1
Flip
Cls
Until ImagesCollide(Spieler1, x, y, frame1, Spieler2, a, b, frame2) Or KeyHit(1)
Repeat
If MilliSecs() > tmrGameover + 150 Then
tmrGameover=MilliSecs()
frmGameover=(frmGameover + 1) Mod 7
End If
DrawImage gfxGameover,x,y,frmGameover
z = z + 1
Flip
Cls
Until z = 60
End
.Level_1
Data 1,4,4,3,7
Data 1,2,4,5,7
Data 1,4,4,6,7
Data 1,4,2,1,7
Data 1,6,4,3,7

for q=0 to 4
for p=0 to 4
drawimage tileset, q*35+1, p*35+1, map(q,p)
next
next