Sorry your browser is not supported!

sync on : sync rate 0

sw = Screen Width()
sh = Screen Height()

Do : CLS 0

   Ink RGB( 255, 255, 255 ), 0
   GridID = 0
   For x = 1 To SW Step 30
      For y = 1 To SH Step 30
         Inc GridID, 1
         Line x, y, x+30, y         : ` -   : top
         Line x+30, y, x+30, y+30   : `  |  : right
         Line x, y, x, y+30         : `|    : left
         Line x, y+30, x+30, y+30   : ` -   : bottom
         If MouseX() >= x And MouseX() <= x+30
            If MouseY() >= y And MouseY() <= y+30
               InsideGrid = GridID
            EndIf
         EndIf
      Next y
   Next x

   Ink RGB( 255, 000, 000 ), 0
   Text 100, 100, str$( InsideGrid )

Sync : Loop

sync on : sync rate 0

`Set ink
ink rgb(255, 255, 255), 0

`Draw grid
xcells = 10 : xspace# = 40.0
ycells = 10 : yspace# = 20.0
for x = 0 to xcells
	line x*xspace#, 0, x*xspace#, yspace#*ycells
next x
for y = 0 to ycells
	line 0, y*yspace#, xspace#*xcells, y*yspace#
next y

`Let get the grid as an image to not slow down the speed
get image 1, 0, 0, xspace#*10 + 1, yspace#*10 + 1, 1

do

	`Clear screen
	cls

	`Paste background
	paste image 1, 0, 0

	`Calculate current cell
	cellX = int(mousex() * xcells / (xcells*xspace#)) + 1
	cellY = int(mousey() * ycells / (ycells*yspace#)) + 1

	`Draw information (only if the mouse is in the table
	if cellX > 0 and cellY > 0
		if cellX <= xcells and cellY <= ycells
			text 0, 400, "Current cell " + str$(cellX) + " : " + str$(cellY)
		endif
	endif

	sync
loop