Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '''''''''''''''''''
- ' Generation Loop '
- '''''''''''''''''''
- Do While (MapGenerated = False)
- ' Randoms
- Rnd = RAND(2, 8)
- RndX = RAND(Rnd, Map(mapNum).MaxX)
- RndY = RAND(Rnd, Map(mapNum).MaxY)
- RndDoor = RAND(1, 4)
- ' Check Random Coords
- If RndX <= Map(mapNum).MaxX Then
- If RndY <= Map(mapNum).MaxY Then
- ' Loop Through Random Coords
- For y = Rnd To RndY
- For x = Rnd To RndX
- ' Place floors
- Call placeFloors(mapNum, x, y, FloorAx, FloorAy, BasicSet, GroundLayer)
- Next
- Next
- ' Loop Through Random Coords
- For y = Rnd To RndY
- For x = Rnd To RndX
- ' Place walls
- Call placeWalls(mapNum, x, y, WallAx, WallAy, BasicSet, GroundLayer)
- Next
- Next
- ' Door
- Call placeDoors(mapNum, RndDoor, RndX, RndY, x, y, WallAx, WallAy, DoorAx, DoorAy, BasicSet, GroundLayer)
- End If
- End If
- MapGenerated = True
- Loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement