Dungeon Generator- Rougelike games

Community Forums/Showcase/Dungeon Generator- Rougelike games

Ryan Burnside

(Posted 2008) [#1]

I made a typo should read "Roguelike games" in the title. Could a Moderator please fix this?

This project has been a labor of love and should prove useful when complete.

This program generates random dungeons that you can seed with treasure for your hero.

I'm now fairly happy with a bug free first release. Please try the source code provided. This is a fairly simple and open-ended engine so you can take this where you want to go in your project.

Here is a rough demo, please hit spacebar for new dungeon.

http://storeandserve.com/download/842177/Burnside_Dungeons.rar.html

alternate mirror

http://www.mediafire.com/?4bu8xsjnucn

An image from the source. (demo is now a bit outdated)

Here is the first release of the source. I think it is pretty well documented! I would like credit if you use this. This is to be released for free as a service.


'.........................................................................................................
' Ryan Burnside Dungeon Engine Release 1.0
' ***Please credit "Ryan Burnside" if possible.***
' This dungeon generator is meant to do just that, nothing more and nothing less
' a dungeon holds an array and rooms that overlay spaces in the array
' the dungeon array is simply called "array"
' this array holds values for walls floor and will eventually hold special data for tiles
' it is up to the programmer to defing meaningful conventions for special values
' rooms can be seeded with special values using the "add_value" command
' it is important to note that the add_value command will overwrite values if the random room spot is taken
' because of this you will want to make your stairs last and items and monster values first
' once an item is obtained you will want to set the square back to 0 in the dungeon array
'.........................................................................................................

Strict
SeedRnd(MilliSecs()) 

' A wrapper object for an array and holder object for room instances
Type dungeon
	Field array:Byte[,] , rooms:TList = New TList, rooms_maxed:Byte = False, room_count:Int = 0
	
	Method add_room(min_width:Int, min_height:Int, max_width:Int, max_height:Int) 
		Local array_width:Int = array.dimensions()[0] 
		Local array_height:Int = array.dimensions()[1] 
		' first ensure that the room is not larger than the array
		If max_width > array_width
			max_width = array_width
		End If
		
		If max_height > array_height
			max_height = array_height
		End If
		
		' ensure that the min values are larger than 0
		If min_width < 2 min_width = 2
		If min_height < 2 min_height = 2
		' now set the size of this room
		Local width:Int = Rand(min_width, max_width) 
		Local height:Int = Rand(min_height, max_height) 
		Local search_width:Int = array_width - width
		Local search_height:Int = array_height - height
		Local search_x:Int = Rand(0, search_width) 
		Local search_y:Int = Rand(0, search_height) 
		Local max_checks:Int = search_width * search_height
		Local checked:Int = 0
		Local finished:Int = 0
		While Not finished
			If room_count > 0
				Local r:room = New room
				r.x = search_x
				r.y = search_y
				r.x2 = search_x + width - 1
				r.y2 = search_y + height - 1
				Local collisions:Int = 0
				For Local b:room = EachIn(rooms) 
					If rooms_collide(b, r) = True
						collisions:+1
					End If
				Next
				If Not collisions
					carve_room(r) 
					ListAddFirst(rooms, r) 
					room_count:+1
					finished = True
				Else
				End If
			EndIf
			
			If room_count = 0
				Local r:room = New room
				r.x = search_x
				r.y = search_y
				r.x2 = search_x + width - 1
				r.y2 = search_y + height - 1
				carve_room(r) 
				ListAddFirst(rooms, r) 
				room_count:+1
				finished = True
				Exit
			EndIf
			
			' add to the index
			search_x:+1
			If search_x > search_width
				search_x = 0
				search_y:+1
			End If
			If search_y > search_height
				search_y = 0
			End If
			checked:+1
			If checked = max_checks
				finished = True
			End If
		Wend
	End Method
	
	Method carve_room(r:room) 
		' take a room and carve out the space needed set squares to 0's
		For Local x = r.x To r.x2
			For Local y = r.y To r.y2
				array[x, y] = 0
			Next
		Next
	End Method
	
	Method ready_array(length:Int, height:Int) 
		' sets all indexes to 1 and readys the array for writing
		Local a:Byte[length, height] 
		array = a
		For Local x:Int = 0 To length - 1
			For Local y:Int = 0 To height - 1
				array[x, y] = 1
			Next
		Next
	End Method
	
	End Type

' A rectangular field that serves as a storage house for seeded values
Type room
	Field x:Int, y:Int, x2:Int, y2:Int
End Type

' return if rooms collide (used in create_dungeon)
Function rooms_collide:Int(room1:room, room2:room) 
	If room1.y2 + 3 < room2.y Return 0
	If room1.y - 3 > room2.y2 Return 0
	If room1.x2 + 3 < room2.x Return 0
	If room1.x - 3 > room2.x2 Return 0

	Return 1
End Function

' connect 2 rooms (used in create_dungeon)
Function connect_rooms(room1:room, room2:room, d:dungeon) 
	' first pick between 2 connection styles
	' we always draw from left to right so we must choose what order to process the rooms
	
	Local x1:Int = (room1.x + room1.x2) / 2.0
	Local y1:Int = (room1.y + room1.y2) / 2.0
	Local x2:Int = (room2.x + room2.x2) / 2.0
	Local y2:Int = (room2.y + room2.y2) / 2.0
	' make sure the values for each of the x's and y's are EVEN so no corridors touch
	If Float(x1 Mod 2.0) 
		x1:+1
	End If
	If Float(x2 Mod 2) 
		x2:+1
	End If
	If Float(y1 Mod 2) 
		y1:+1
	End If
	If Float(y2 Mod 2) 
		y2:+1
	End If
	draw_hori(y1, x1, x2, d) 
	draw_vert(x2, y1, y2, d) 
End Function

' draw a verticle line on the array (used in create_dungeon)
Function draw_vert(x1:Int, y1:Int, y2:Int, d:dungeon) 
	' see if step multiplier is negative
	Local dist:Int = Abs(y1 - y2) 
	Local mult:Int = 1
		If y1 > y2
			mult = -1
		End If
		' draw 
		For Local i = 0 To dist
			d.array[x1, y1 + (i * mult)] = 0
		Next
	EndFunction

' draw a horizontal line on the array (used in create_dungeon)
Function draw_hori(y1:Int, x1:Int, x2:Int, d:dungeon) 
	' see if step multiplier is negative
	Local dist:Int = Abs(x1 - x2) 
	Local mult:Int = 1
		If x1 > x2
			mult = -1
		End If
		' draw 
		For Local i = 0 To dist
			d.array[x1 + (i * mult), y1] = 0
		Next
EndFunction

' *IMPORTANT* lets a programmer seed the dungeon with item, monster and exit values as needed
Function add_value(d:dungeon, value:Int, attempts:Int) 
	For Local i:Int = 0 To attempts - 1
	Local r:room = room(d.rooms.ValueAtIndex(Rand(0, CountList(d.rooms) - 1))) 
	d.array[Rand(r.x, r.x2), Rand(r.y, r.y2)] = value
	Next
End Function

' *IMPORTANT* returns a freshly made dungeon, the workhorse of the program!
Function create_dungeon:dungeon(width:Int, height:Int, room_count:Int, room_min_height:Int, room_max_height:Int, room_min_width:Int, room_max_width:Int) 
	Local d:dungeon = New dungeon
	'ready the array
	d.ready_array(width, height) 
	'add rooms
	For Local i = 0 To room_count - 1
		d.add_room(room_min_width, room_min_height, room_max_width, room_max_height) 
	Next
	'connect rooms in a loop
	Local length:Int = CountList(d.rooms) 
 
	For Local j:Int = 0 To length
		If j + 1 < length
			connect_rooms(room(d.rooms.ValueAtIndex(j)) , room(d.rooms.ValueAtIndex(j + 1)) , d) 
		EndIf
	Next
	connect_rooms(room(d.rooms.ValueAtIndex(0)) , room(d.rooms.ValueAtIndex(length - 1)) , d) 
	
	Return d
End Function


'ENGINE ENDS!

	
'test here------DELETE THE FOLLOWING TO JUST HAVE THE BASE ENGINE!---------------
Local t:Float = MilliSecs() 
' make a new dungeon with our create_dungeon command 
Local d:dungeon = create_dungeon(40, 40, 6, 3, 12, 3, 12) 
' seed the rooms with about 5 "2", these could be treasure chests if you wanted 
add_value(d, 2, 5) 
' seed the rooms with 1 stairway, we will call this value "3"
add_value(d, 3, 1) 
Notify("Generated in :" + String((MilliSecs() - t) *.001) + " seconds") 

' test draw dungeon please
AppTitle = "Ryan Burnside Dungeon Engine"
Graphics(640, 480) 


While Not KeyHit(KEY_ESCAPE) 
' draw the dungeon values as tiles 
For Local i = 0 To d.array.dimensions()[0] - 1
	For Local j = 0 To d.array.dimensions()[1] - 1
		If d.array[i, j] 
		 	Select d.array[i, j] 
			Case 1
			SetColor 128, 128, 128
			DrawRect(i * 8, j * 8, 7, 7) 
			Case 2
			SetColor 255, 128, 0
			DrawRect(i * 8, j * 8, 7, 7) 
			Case 3
			SetColor 0, 128, 255
			DrawRect(i * 8, j * 8, 7, 7) 
			EndSelect
		End If
		
		If Not d.array[i, j] 
			SetColor 200, 200, 200
			DrawRect(i * 8, j * 8, 7, 7)
		End If
	Next
Next

If KeyHit(KEY_SPACE)  ' new dungeon! 
Cls
d = create_dungeon(40, 40, 6, 3, 12, 3, 12) 
add_value(d, 2, 5) 
add_value(d, 3, 1) 
End If
Flip
Wend

Retimer

(Posted 2008) [#2]

Link isn't working for me =(

Matty

(Posted 2008) [#3]

Looks very useful to myself actually...

deps	(Posted 2008) [#4]

Will it place items and monsters for you too?
Would be nice. People could feed the generator with strings and the probability of it showing up on the map.

map = new TMap
map.set_rooms( 10 )
map.add_entity( "Ogre", 10 ) ' 10% chance that one will be added
map.add_entity( "Pile o gold", 75 )
map.add_entity( "The one ring (fake)", 50, 10 ) ' 50% chance, no more than 10 rings allowed
map.add_entity( "The one ring (fo real!)", 1, 1 ) ' 1% chance of it being added, and an upper limit of 1

Or something. I'm just brainstorming a bit while coffee #2 sinks down.

Ryan Burnside

(Posted 2008) [#5]

Actually there is a function to seed a room with a value. With this tile value you provide the number that would fit your system. I used a single random room seeding of the value 3 to denote my stairs here. (The orange square)

Lets say that value 3 is a treasure chest. You simply call the function and give it the parameter 3.

One might do something like:

seed_room(d:dungeon,n:int,r:room)

If the room parameter is -1, ALL rooms are possible to contain the value.

Let me tell you a bit more about the structure of the dungeon generator.

The basic type is the Dungeon. These are objects that contain an array and also rooms. The array inside holds values for the map. The empty rooms and passages have the value 0. The walls have a value of 1. The dungeons are made of rooms. Rooms are there to act like containers for your random items. They can also be accessed directly within the dungeon because they are held in a list. There is no global dungeon list to store dungeons, I left the storage and maintenance up to the programmer.

I'm not really sure that I want to code an entire game engine. This may just provide you with the dungeon and some placeable values. It would be up to the programmer to code battle systems and GUI''s.

Why0Why

(Posted 2008) [#6]

Looks nice. I am looking forward to seeing the code.

deps	(Posted 2008) [#7]

Sounds nice, and keeping it simple is probably a good idea. I'm too looking forward to hack around with the code when it's released. :)

Ryan Burnside

(Posted 2008) [#8]

If people are having trouble downloading from the crappy host please try this mirror.

http://www.mediafire.com/?4bu8xsjnucn

*First Source released. Expect more in the future if there is interest!

Ryan Burnside

(Posted 2008) [#9]

Hmm I'm a bit surprised to see that interest has fizzled out. Was the engine a bit of a letdown for everyone? I wanted to have a dungeon generator that was powerful yet very flexable.

Retimer

(Posted 2008) [#10]

Actually, i've been extremely interested in this. I just haven't had the time to open the hood on this new release.

I've been watching since the beginning of your last topic:
http://blitzmax.com/Community/posts.php?topic=77574

Which I really appreciate you sharing the code. I do plan on using it to generate full maps (with tiles/scene variation) for my engine.

*	(Posted 2008) [#11]

Its a very interesting project for me too, I too intend to use it to make a dungeon crawl like Diablo but full 3d at a later date. Thanks for sharing the code :)

slenkar

(Posted 2008) [#12]

thanks for the code!

Matty

(Posted 2008) [#13]

Haven't been near the Internet since early last week, so haven't had a chance to download the source code to try it. Still very interested, will have a look now.

deps	(Posted 2008) [#14]

Very much interested in it, but have been really busy with real life stuff this weekend. And my little project. Will have a look at the code and play around with it when time permits.

Thanks for sharing! :)

Why0Why

(Posted 2008) [#15]

I have spent more time with this and it is very nice. It is very clean and the dungeons have a nice feel. Thanks again for posting.

caff_

(Posted 2008) [#16]

Neat - I like roguelike games.

Can you submit this to the code archives? Quite a useful intro to map generation.

Ryan Burnside

(Posted 2008) [#17]

Sure I'll put it into the code archives. I don't know how much more I'll work on this. I have a game and some other projects in the works.

Thanks for all of the support.

Retimer

(Posted 2008) [#18]

Any chance for an option to set min/max cooridor widths? That would really top off this tool for me =p

Love the code, it's a lot easier to work with.

Axel Wheeler

(Posted 2008) [#19]

Hey, you're the same guy doing the "Infinite Maps" thing. Our minds are definitely on the same wavelength. Except I work in Blitz3d, so your code frightens and confuses me :)

I used to do dungeon generators in C64 and Amiga when I played Dungeons and Dragons. I used to love designing the political and social climate in the dungeon, but not the actual rooms. I wanted to be able to take a dungeon and say, "Ok, this whole side is controlled by gnolls, with the lead gnoll in this chamber attended by the elite guard. All the treasure in that area is in that room. But at the entrances to their territory there are periodic incursions by the Kobolds in room 4a, who are now mostly injured and will try to enlist the party to do a diversionary..." You get the idea. That way there is a back story that the players can discover and have a lot more fun than just killing monster A in room B with treasure C.

The point is, when you see the floor plan you start to imagine the regional territories that might develop within it.

You might want to consider an app that does this for those who still play role-plaing games.

Anyway, keep up the great work!