How woul i go about creating a random tilebased map
Posted: Wed Oct 28, 2015 8:11 pm
So what's the basic idea to do it.
Game Making Should Be Easy...
https://www.coolbasic.com/phpBB3/
Code: Select all
EDITMAP map, layer, x, y, tile
Code: Select all
FrameLimit 40
'Create a map from Blank
map=MakeMap(32,32,32,32)
u=LoadObject("Media\guy.bmp",72)
'Apply some graphics on it
tileset=LoadImage("Media\tileset.bmp")
PaintObject map,tileset
'Randomly fill the map
For y=1 To MapHeight()
For x=1 To MapWidth()
If Rand(1,5)=5 Then
EditMap map,0,x,y,2 'drawing
EditMap map,2,x,y,1 'collision
Else
EditMap map,0,x,y,145
EndIf
Next x
Next y
'The game loop-itself
Repeat
If UpKey() Then MoveObject u,2
If DownKey() Then MoveObject u, -2
If LeftKey() Then TurnObject u,5
If RightKey() Then TurnObject u, -5
'Glue camera to object position
CloneCameraPosition u
DrawScreen
Forever