[dimanche13]

Type Tmap
Field RowSize :Byte = 49 ' кол-во столбцов
Field ColSize :Byte = 49 ' кол-во строк
Field Offsety :Byte = 40 ' сдвиг от верхнего левого по У
Field Offsetx :Byte = 120 ' сдвиг от верхнего левого по Х
Field SquareSize :Byte = 8 ' размер клетки

Field MMap:Byte[RowSize , ColSize]

Function Create:Tmap()
Local x : Byte, y : Byte
Local M : Tmap = New Tmap

For x = 0 To 48
For y = 0 To (Rowsize-1)
M.MMap[x,y] = Rand(1,255)
Next
Next

Return M
End Function
end type

Local GameMap:Tmap = New Tmap.Create()