TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 18th Nov 2013 00:31

Modified: 1st Jan 1970 01:00

Author: Draglan

Summary

Generates a randomized maze.

Full Description

Generates a randomized maze using the depth-first search algorithm. Use the arrow keys to move the camera, and the + and - keys to control the zoom level. Press the space bar to reset the camera and zoom level. Press the shift key to generate a new maze.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

randomize timer()

set window size 1024, 768

sync on

sync rate 60

global MazeWidth as integer

global MazeHeight as integer

MazeWidth = 49

MazeHeight = 49

global TileWidth as integer

global TileHeight as integer

TileWidth = 10

TileHeight = 10

global dim Maze(MazeWidth+1, MazeHeight+1)

global dim directions(3)

global camX as integer

global camY as integer

global zoom as float

camX = 0

camY = 0

zoom = 1.0

local startTime as integer

local endTime as integer

local genTime as integer

local keyPressed as boolean

keyPressed = 0

// Generate a maze

startTime = timer()

clearMaze()

generateMaze(1, 1)

Maze(1, 0) = 0

Maze(MazeWidth, MazeHeight+1) = 0

endTime = timer()

genTime = endTime - startTime

// Main loop; controls the camera, zoom level, new maze generation, and rendering

cls

// Generate a new maze

if shiftkey()=1 and keyPressed = 0

keyPressed = 1

startTime = timer()

clearMaze()

generateMaze(1, 1)

Maze(1, 0) = 0

Maze(MazeWidth, MazeHeight+1) = 0

endTime = timer()

genTime = endTime - startTime

endif

if shiftkey()=0 and keyPressed = 1 then keyPressed = 0

if upkey()=1 then camY = camY - 7

if downkey()=1 then camY = camY + 7

if leftkey()=1 then camX = camX - 7

if rightkey()=1 then camX = camX + 7

if inkey$()="=" then zoom = zoom + 0.5

if inkey$()="-" then zoom = zoom - 0.5

if spacekey()=1

zoom = 1.0

camX = 0

camY = 0

endif

if zoom <= 0.0 then zoom = 0.5

drawMaze()

ink rgb(185, 122, 87), 0

box 0, 0, 180, 52

ink rgb(255, 255, 255), 0

text 0, 0, "CamX = "+str$(camX)

text 0, 12, "CamY = "+str$(camY)

text 0, 22, "Zoom = "+str$(zoom*100)+"%"

text 0, 32, "Generation time = "+str$(genTime)+" ms"

sync

loop

end

// Clears the maze grid; turn every cell into a "wall" cell (1).

function clearMaze()

for x=0 to MazeWidth+1

for y=0 to MazeHeight+1

Maze(x, y) = 1

next y

next x

endfunction

// Recursively generate a maze using depth-first search.

function generateMaze(nodeX as integer, nodeY as integer)

// Mark the current cell as a path (0).

Maze(nodeX, nodeY) = 0

// Get a randomized list of directions our node will take.

getDirections()

// Clear the walls of the maze in the order of the list of directions.

// Then use recursion to change the position of the node to the new

// position.

for x=0 to 3

// 0 = North; 1 = South; 2 = West; 3 = East

if directions(x) = 0

if nodeY-2 >= 0

if Maze(nodeX, nodeY-2) = 1

Maze(nodeX, nodeY-2) = 0

Maze(nodeX, nodeY-1) = 0

generateMaze(nodeX, nodeY-2)

endif

if directions(x) = 1

if nodeY+2 <= MazeHeight+1

if Maze(nodeX, nodeY+2) = 1

Maze(nodeX, nodeY+2) = 0

Maze(nodeX, nodeY+1) = 0

generateMaze(nodeX, nodeY+2)

endif

if directions(x) = 2

if nodeX-2 >= 0

if Maze(nodeX-2, nodeY) = 1

Maze(nodeX-2, nodeY) = 0

Maze(nodeX-1, nodeY) = 0

generateMaze(nodeX-2, nodeY)

endif

if directions(x) = 3

if nodeX+2 <= MazeWidth+1

if Maze(nodeX+2, nodeY) = 1

Maze(nodeX+2, nodeY) = 0

Maze(nodeX+1, nodeY) = 0

generateMaze(nodeX+2, nodeY)

endif

next x

endfunction

// Render the maze

function drawMaze()

for y=0 to MazeHeight+1

for x=0 to MazeWidth+1

if Maze(x, y) = 1 then box x*(TileWidth*zoom)-camX, y*(TileHeight*zoom)-camY, (x*(TileWidth*zoom))+(TileWidth*zoom)-camX, (y*(TileHeight*zoom))+(TileHeight*zoom)-camY

next x

next y

`sync

endfunction

// Get a randomized list of directions

function getDirections()

length = array count(directions(0))

// Assign the array as { 0, 1, 2, 3 }.

for x=0 to length

directions(x) = x

next x

// Randomly shuffle the array around

for x=0 to length

change = x + rnd(length - x)

helper = directions(x)

directions(x) = directions(change)

directions(change) = helper

next x

endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Maze Generator

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Draglan
CodeBase Entries:	4