[H@NON]

ну что просил, то и получил.
А на счет курсора, то можно привязать позицию тайла на экране с его позицией в массиве, например так :
center_x = 5
center_y = 5
step = 20
Dim massiv

For x = 0 to 4
for y = 0 to 4
DrawImage massiv(x,y), center_x + x*Step, center_y + y*Step
Next
Next
;---- получение ячейки массива под курсором
sector_mouse_x = Floor( (MouseX() - center_x) / step )
sector_mouse_y = Floor( (MouseY() - center_y) / step )