Advertisement
Guest User

Untitled

a guest
Sep 26th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. '''''''''''''''''''
  2.    ' Generation Loop '
  3.    '''''''''''''''''''
  4.    Do While (MapGenerated = False)
  5.         ' Randoms
  6.        Rnd = RAND(2, 8)
  7.         RndX = RAND(Rnd, Map(mapNum).MaxX)
  8.         RndY = RAND(Rnd, Map(mapNum).MaxY)
  9.         RndDoor = RAND(1, 4)
  10.        
  11.         ' Check Random Coords
  12.        If RndX <= Map(mapNum).MaxX Then
  13.             If RndY <= Map(mapNum).MaxY Then
  14.                 ' Loop Through Random Coords
  15.                For y = Rnd To RndY
  16.                     For x = Rnd To RndX
  17.                         ' Place floors
  18.                        Call placeFloors(mapNum, x, y, FloorAx, FloorAy, BasicSet, GroundLayer)
  19.                     Next
  20.                 Next
  21.                
  22.                 ' Loop Through Random Coords
  23.                For y = Rnd To RndY
  24.                     For x = Rnd To RndX
  25.                         ' Place walls
  26.                        Call placeWalls(mapNum, x, y, WallAx, WallAy, BasicSet, GroundLayer)
  27.                     Next
  28.                 Next
  29.                
  30.                 ' Door
  31.                Call placeDoors(mapNum, RndDoor, RndX, RndY, x, y, WallAx, WallAy, DoorAx, DoorAy, BasicSet, GroundLayer)
  32.                
  33.             End If
  34.         End If
  35.        
  36.         MapGenerated = True
  37.        
  38.     Loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement