SuperStrict 

Framework brl.glmax2d
Import brl.random
Global ScrollX:Int=1,ScrollY:Int=1

Global PlayerX:Int=5*32,PlayerY:Int=5*32

Global TileSize:Int=32

Global map:Byte[50,50]

SeedRnd MilliSecs()
For Local x:Int=0 Until 50
	For Local y:Int=0 Until 50
		map[x,y]=Rand(0,255)
	Next
Next


AppTitle = "TileTest"
Graphics 800,600,0,60
Repeat
	If KeyHit(KEY_ESCAPE) Or AppTerminate() End
	
	playerx:+(KeyDown(KEY_D)-KeyDown(KEY_A))*2
	playery:+(KeyDown(KEY_S)-KeyDown(KEY_W))*2
	ScrollTo(playerx,playery)
	Cls
	SetOrigin -ScrollX,-ScrollY
	Local TileX:Int=(playerx/TILESIZE),TileY:Int=(playery/TILESIZE)
	
	Local DrawX:Int=Scrollx/TILESIZE
	Local DrawY:Int=SCrollY/TILESIZE
	For Local x:Int=drawx Until drawx+26
		For Local y:Int=drawy Until drawy+20
			If x<0 Or y<0 Or x>=50 Or y>=50 Continue	
			SetColor map[x,y]-50,map[x,y]-50,map[x,y]-50
			If x=tilex And y=tiley SetColor 0,255,0
			DrawRect x*TILESIZE,y*TILESIZE,TILESIZE,TILESIZE
		Next
	Next
	
	SetColor 255,0,0
	DrawRect playerx-4,playery-4,8,8
	
	SetOrigin 0,0
	DrawText "PixelPos: "+Playerx+":"+PlayerY,10,10
	DrawText "TilePos: "+TileX+":"+TileY,10,30
	Flip 1
Forever

Function ScrollTo(x:Int,y:Int)
	Scrollx=x-GraphicsWidth()/2
	scrolly=y-GraphicsHeight()/2
End Function