Ты имеешь в виду типы или массивы?
Вот что я сделал (не нуждается в ресурсах)
Graphics 800,600,32,0
SetBuffer BackBuffer()
SeedRnd MilliSecs()
Font=LoadFont("",32,0,0,0)
SetFont Font
;===========================
Dim Map_Grid(8,8)
Dim Map(8,8)
For I=1 To 8
For J=1 To 8
Map_Grid(I,J)=Rnd(1,4)
Next
Next
;===========================
;===========================
Dim img(5)
For im = 1 To 4
Next
;===========================
While KeyDown(1)=0
Cls
For I=1 To 8
For J=1 To 8
Color 200,0,0
If Map_Grid(i,j)=1 Then Color 0,200,200
If Map_Grid(i,j)=2 Then Color 200,200,0
If Map_Grid(i,j)=3 Then Color 200,0,200
If Map_Grid(i,j)=3 Then Color 0,200,0
Rect 50+I*51,50+J*51,50,50
Next
Next
i = (MouseX())/52-1
j = (MouseY())/52-1
If (i > 0) And (i<9) And (j > 0) And (j < 9) Then
Color 100,100,100
Rect 50+I*51,50+J*51,50,50
Color 200,200,200
Text 0,0,"Image - "+Map_Grid(I,J)
If MouseHit(1) Then
EndIf
EndIf
Text 110,55,i
Text 75,110,j
Flip 1
Wend
End
Может попробуешь добавить сюда то что ты написал.