SuperStrict

Framework brl.max2d

Import brl.glmax2d
Import brl.bmploader

Graphics(800,600,32)
SetBlend ALPHABLEND

Const TILE_WIDTH:Int   = 64
Const TILE_HEIGHT:Int   = 80

Local tile:TImage         = LoadAnimImage("it.bmp", TILE_WIDTH, TILE_HEIGHT, 0, 2)
Local maus:TImage         = LoadImage("m.bmp")

Global map_w:Int         = 20
Global map_h:Int         = 20
Global map:Int[,]       = New Int[map_w, map_h]

Local fx:Int               = 400
Local fy:Int               = 0

Local off_x:Int            = 32
Local off_y:Int            = 16

Local s:Int                = 0
Local z:Int                = 0

Init()

Repeat
   Cls
   
   Local mx:Int = MouseX()
   Local my:Int = MouseY()
   
   s                     = 0
   z                     = 0
   Local sx:Int   = fx
   Local sy:Int   = fy
   Local x:Int      = sx
   Local y:Int      = sy
   Repeat      
      DrawImage(tile, x, y, map[s, z])
      
      If ImagesCollide(maus, mx, my, 0, tile, x, y, map[s, z])         
         If MouseDown(1) Then map[s, z] = 1
         If MouseDown(2) Then map[s, z] = 0
         SetAlpha 0.5
         DrawImage(tile, x, y, 1)
         SetAlpha 1.0
      End If
      
      x:-off_x
      y:+off_y
      s:+1
      If s = map_w
         s = 0
         
         sx:+off_x
         sy:+off_y
         
         x = sx
         y = sy
         
         z:+1
         
      End If
   Until z = map_h

   DrawImage(maus, mx, my)
   
   Flip
Until KeyHit(KEY_ESCAPE)

End

Function Init()
   Local s:Int                = 0
   Local z:Int                = 0
   Repeat
      map[s, z] = 0

      s:+1
      If s = map_w
         s = 0; z:+1
      End If
   Until z = map_h
End Function