Graphics 640,480,32,1
image=LoadAnimImage(\"tile.bmp\",16,16,0,8)
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Dim spieler(15,15),pc(15,15)
For y=0 To 15
 For x=0 To 15
  spieler(x,y)=4
  pc(x,y)=4
 Next
Next
MoveMouse(48,112)
Color 255,0,0
bootsetzen=1
While Not KeyHit(1)
 Cls
 For y=0 To 15
  For x=0 To 15
   DrawImage image,48+x*16,112+y*16,spieler(x,y)
   DrawImage image,336+x*16,112+y*16,pc(x,y)
  Next
 Next
 If MouseX()<48
  MoveMouse(48,MouseY())
 EndIf
 If MouseX()>303
  MoveMouse(303,MouseY())
 EndIf
 If MouseY()<112
  MoveMouse(MouseX(),112)
 EndIf
 If MouseY()>367
  MoveMouse(MouseX(),367)
 EndIf
 mx=MouseX()
 my=MouseY()
 If bootsetzen=0
  Line mx-5,my,mx+5,my
  Line mx,my-5,mx,my+5
 Else
  DrawImage image,mx-8,my-8,5
  If rechtsrum=1
   DrawImage image,mx+8,my-8,5
  Else
   DrawImage image,mx-8,my+8,5
  EndIf
  If MouseX()>=48 And MouseX()<=63 And MouseY()>=112 And MouseY()<=127
   If spieler(0,0)=4 And spieler(1,0)=4 And spieler(0,1)=4
    spieler(0,0)=6
    If rechtsrum=1
     spieler(0,1)=4
     spieler(1,0)=6
    Else
     spieler(0,1)=6
     spieler(1,0)=4
    EndIf
   EndIf
  Else
   If spieler(0,0)=6 Or spieler(1,0)=6 Or spieler(0,1)=6
    spieler(0,0)=4
    spieler(1,0)=4
    spieler(0,1)=4
   EndIf
  EndIf
 EndIf
 If MouseHit(1)
  If MouseX()>=48 And MouseX()<=63 And MouseY()>=112 And MouseY()<=127 And spieler(0,0)=6
   spieler(0,0)=5
   If rechtsrum=1
    spieler(1,0)=5
   Else
    spieler(0,1)=5
   EndIf
  ElseIf MouseX()>=48 And MouseX()<=63 And MouseY()>=112 And MouseY()<=127 And spieler(0,0)=5
   spieler(0,0)=4
   spieler(1,0)=4
   spieler(0,1)=4
  EndIf
 EndIf
 If MouseHit(2) And bootsetzen=1
  If rechtsrum=1
   rechtsrum=0
  Else
   rechtsrum=1
  EndIf
 EndIf
 Flip
Wend
FreeImage image
End

   ;...
   If spieler(0,0)=6 Or spieler(1,0)=6 Or spieler(0,1)=6
    spieler(0,0)=4
    spieler(1,0)=4
    spieler(0,1)=4
   EndIf
   ;...