Graphics 640,480
SetBuffer BackBuffer()
Dim Level(1000,1000,2)
Dim tiles(0)
tiles(0)=LoadImage("tiles1.bmp")
Repeat
 Cls
 For lx=0 To 19
  For ly=0 To 14
   tilemap=Level(lx+sx,ly+sy,0)
   tileframex=Level(lx+sx,ly+sy,1)
   tielframey=Level(lx+sx,ly+sy,2)
   DrawImageRect tiles(tilemap),lx*32,ly*32,tileframex*32,tileframey*32,32,32  ;///
  Next
 Next

 If KeyHit(57) Then auswahl=Not auswahl
 If auswahl Then
  If KeyHit(200) And ay>0 Then ay=ay-1
  If KeyHit(208) And ay<10 Then ay=ay+1
  If KeyHit(203) And ax>0 Then ax=ax-1
  If KeyHit(205) And ax<10 Then ax=ax+1
  Level(auswahl+sx,auswahly+sy,0)=atiles
  Level(auswahl+sx,auswahly+sy,1)=ax
  Level(auswahl+sx,auswahly+sy,2)=ay
 Else
  If KeyHit(200) Then
   If auswahly<11 Then
    If sy>0 Then
     sy=sy-1
    ElseIf auswahly>0 Then
     auswahly=auswahly-1
    End If
   Else
   End If
  End If
  If KeyHit(208) Then
   If auswahly<9 Then
    auswahly=auswahly+1
   Else
    sy=sy+1
   End If
  End If
  If KeyHit(203) Then
   If auswahlx<11 Then
    If sx>0 Then
     sx=sx-1
    ElseIf auswahlx>0 Then
     auswahlx=auswahlx-1
    End If
   Else
   End If
  End If
  If KeyHit(205) Then
   If auswahlx<9 Then
    auswahlx=auswahlx+1
   Else
    sx=sx+1
   End If
  End If
 End If
 Color 255,0,0
 Rect auswahlx*32,auswahly*32,32,32,0
 Flip
Until KeyHit(1)
End