VBGamer |
|
Better... Almar Joling (0 replies, 0 views) (2000-Sep-28) Type TileData
X as integer
Y as integer
Texture as string
LightColour(3) as long
End Type
Dim Tiles() as TileData 'Not dimensioned yet!
Dim MapWidth as long
Dim MapHeight as long
Open FileName for Binary As #1
'Maybe first get the number of tiles in the map, so that you can create different size maps?
Get #1, , MapWidth
Get #1, , MapHeight
Redim Tiles(MapWidth,MapHeight)
Get #1, , Tiles
Close #1
Everything is in your udt now...
|