Graphics 1024, 768, 1
SetMaskColor 255, 0, 255

Global tileset:TImage = LoadAnimImage("isomap.png", 32, 16, 0, 3)
Global MAP:Int[300, 300]
Global Map_X:Int = 0
Global Map_y:Int = 0


For x = 0 To 299
   For y = 0 To 299
      MAP[x, y] = 1
   Next
Next

Repeat
   Cls
   xd:Int = 0
   yd:Int = 0
   For y = 0 To 299
      For x = 0 To 299
         If xd + Map_X > cam_x - 32 And xd + Map_X < cam_x + 1024 + 32 And yd + Map_y > cam_y - 16 And yd + Map_y < cam_y + 768 + 16 Then DrawImage tileset, Map_X + xd, Map_y + yd, MAP[x, y]
         xd:Int = xd:Int + 16
         yd:Int = yd:Int + 8
      Next
      yd:Int = y * 8
      xd:Int = -y * 16
   Next
   
   If KeyDown (KEY_LEFT) Then Map_X = Map_X + 8
   If KeyDown (KEY_RIGHT) Then Map_X = Map_X - 8
   If KeyDown (KEY_UP) Then Map_y = Map_y + 8
   If KeyDown (KEY_DOWN) Then Map_y = Map_y - 8
   Flip
Until KeyDown(KEY_ESCAPE)
End