Random Map Gen

Monkey Forums/Monkey Programming/Random Map Gen

FBEpyon

(Posted 2011) [#1]

Hello All,

For the last few days I have been trying to make a random map generator for a game for multiple platforms, but anyways.

I have been trying to figure out a good method of doing this using tiles, but have been not very successful at it..

Any suggestions of what the best way of doing this would be..?

Thanks,

William Mc.

code so far... removed the code for the map generation.. see Method GenMap()

Strict

Import mojo

Global tileset:Image
Const WALK:Int = 1000
Const SOLID:Int = 1001

Class Game Extends App
	
	Field map:TMap
	
	Method OnCreate:Int()
		Seed = Millisecs()
		SetUpdateRate 60
		tileset = LoadImage("tile_set.png",16,16,255)		
		map = TMap.Create(50,30)
	End
	
	Method OnUpdate:Int()
	
	
	End
	
	Method OnRender:Int()
		Cls 0, 0, 0
		map.Draw()
	End

End

Class TMap

	Field map:TTile[][]
	Field width:Int, height:Int
	Field water:Float, land:Float

	Function Create:TMap(w:Int, h:Int)
		Local tmp:TMap = New TMap
		tmp.width = w
		tmp.height = h
		tmp.water = .75
		tmp.land = .25
		
		tmp.map = New TTile[w][]
		For Local ind:Int = 0 Until w
			tmp.map[ind] = New TTile[h]
		Next
		
		For Local xx:Int = 0 To tmp.width - 1
		For Local yy:Int = 0 To tmp.height - 1
			tmp.map[xx][yy] = TTile.Create(xx,yy)
			tmp.SetTileCol(xx,yy,255,255,255)
		Next
		Next
		
		tmp.GenMap(5)
		
		Return tmp
	End
	
	Method Draw:TMap()
		For Local x:Int = 0 To width - 1
		For Local y:Int = 0 To height - 1
			map[x][y].Draw()
		Next
		Next
	End
	
	Method GenMap:TMap(stp:Int)
		For Local xx:Int = 0 To width-1
		For Local yy:Int = 0 To height-1
			SetTile(xx,yy,130)
		Next
		Next
	End
	
	Method SetTile:TMap(x:Int,y:Int,cur:Int)
		map[x][y].SetCurrent(cur)
	End
	
	Method SetTileCol:TMap(x:Int,y:Int,r:Int,g:Int,b:Int)
		map[x][y].TileColor(r,g,b)
	End
	
	Method GetTile:Int(x:Int,y:Int)
		Return map[x][y].current
	End

End

Class TTile

	Field x:Int, y:Int
	Field r:Int, g:Int, b:Int
	Field st:Int
	Field current:Int
	
	Function Create:TTile(tx:Int,ty:Int)
		Local tmp:TTile = New TTile
		tmp.SetPos tx,ty
		Return tmp	
	End
	
	Method Draw:TTile()
		SetColor r,g,b
		DrawImage tileset,x*16,y*16,current
		SetColor 255,255,255
	End
	
	Method SetState:TTile(ts:Int)
		st = ts
	End
	
	Method SetPos:TTile(tx:Int,ty:Int)
		x = tx
		y = ty
	End Method
	
	Method SetCurrent:TTile(cur:Int)
		current = cur
	End
	
	Method TileColor:TTile(tr:Int,tg:Int,tb:Int)
		r = tr
		g = tg
		b = tb
	End
		
End

Function Main:Int()

	New Game

End

muddy_shoes

(Posted 2011) [#2]

It sort of depends on what result you're looking for and your post doesn't give many clues as to what you're trying to do. The map generator for Civilization is going to be very different to the one for X-Com or Dwarf Fortress or Spelunky or a Rogue-like etc.

Here's some reading: http://pcg.wikidot.com/

FBEpyon

(Posted 2011) [#3]

I was looking for something more like DF, if you have any suggestions that would be great..

Thanks,

William Mc.

Samah

(Posted 2011) [#4]

Here's a nasty article I wrote on the level generation for Left150Dead:
http://www.indiecodez.com/forum/index.php/topic,79.0.html

Bladko

(Posted 2011) [#5]

check my code samples for perlin noise

slenkar

(Posted 2011) [#6]

nice little game there Left150Dead

FBEpyon

(Posted 2011) [#7]

Okay I have looked almost everywhere for more information on random map generation and I can't seem to find anything.. :( I was using a perlin noise function, but it wasn't giving me the result I was looking for..

Thanks anyways..

muddy_shoes

(Posted 2011) [#8]

I can't seem to find anything

Huh? http://pcg.wikidot.com/pcg-algorithm:map-generation

And again: "it wasn't giving me the result I was looking for"

What _are_ you looking for and in what way did the Perlin noise fail to provide it?

The closest you've come to explaining what you want is "something more like DF". What does that mean? DF generates a world on many different levels from continent-sized geography with weather, rivers, climate zones and wildlife through to specific placement of individual trees, resources, and terrain types. It also generates in 3D. Beyond the physical map generation, it also generates characters and populations with "history". You surely don't mean that you want all that, so what do you mean?

FBEpyon

(Posted 2011) [#9]

Well I have manage to get it to work for the most part.. It gives a nice random looking world.. now I just need to add in steps into the world when selecting an area and add more options other than just water/land..

Code Below (let me know if there is anything I can improve on)

Strict

Import mojo

Global tileset:Image
Const WALK:Int = 1000
Const SOLID:Int = 1001

Class Game Extends App
	
	Field map:TMap
	
	Method OnCreate:Int()
		Seed = Millisecs()
		SetUpdateRate 60
		tileset = LoadImage("tile_set.png",16,16,255)		
		map = TMap.Create(50,30)
	End
	
	Method OnUpdate:Int()
		
		If KeyHit(KEY_R) Then map.GenMap(4)
	
	End
	
	Method OnRender:Int()
		Cls 0, 0, 0
		map.Draw()
	End

End

Class TMap

	Field map:TTile[][]
	Field width:Int, height:Int
	Field water:Float, land:Float

	Function Create:TMap(w:Int, h:Int)
		Local tmp:TMap = New TMap
		tmp.width = w
		tmp.height = h
		tmp.water = 0
		tmp.land = 0
		
		tmp.map = New TTile[w][]
		For Local ind:Int = 0 Until w
			tmp.map[ind] = New TTile[h]
		Next
		
		For Local xx:Int = 0 To tmp.width - 1
		For Local yy:Int = 0 To tmp.height - 1
			tmp.map[xx][yy] = TTile.Create(xx,yy)
			tmp.SetTileCol(xx,yy,255,255,255)
		Next
		Next
		
		tmp.GenMap(1)
		'tmp.Build(20)
		
		Return tmp
	End
	
	Method Draw:TMap()
		For Local x:Int = 0 To width - 1
		For Local y:Int = 0 To height - 1
			map[x][y].Draw()
		Next
		Next
	End
	
	Method GenMap:TMap(i:Int)
		For Local x:Int = 0 To width-1
		For Local y:Int = 0 To height-1
			'Test State
			Local t:Int = Rnd(0,2)
			If t = 0 Then SetTileCol(x,y,0,255,0) ; SetTile(x,y,129)
			If t = 1 Then SetTileCol(x,y,0,0,255) ; SetTile(x,y,130)						
		Next
		Next		
		Build(i)	
	End 
	
	Method Build:TMap(i:Int)
		For Local a:Int = 0 To i
		For Local x:Int = 0 To width-1
		For Local y:Int = 0 To height-1
			'If GetTile(x,y)=129 ' Land
				'Check Right
				If x<width-1 
					If GetTile(x+1,y)=129 Then land+=1 Else water+=1
				Endif
				'Check Left
				If x>0
					If GetTile(x-1,y)=129 Then land+=1 Else water+=1
				Endif
				'Check Up
				If y<height-1
					If GetTile(x,y+1)=129 Then land+=1 Else water+=1
				Endif
				'Check Down
				If y>0
					If GetTile(x,y-1)=129 Then land+=1 Else water+=1
				Endif
			'Endif 
			If land>water 
				SetTile(x,y,129) ; SetTileCol(x,y,0,255,0)
			Elseif water>land
				SetTile(x,y,130) ; SetTileCol(x,y,0,0,255)
			Endif
			land = 0
			water = 0
		Next
		Next
		Next
	End
	
	Method SetTile:TMap(x:Int,y:Int,cur:Int)
		map[x][y].SetCurrent(cur)
	End
	
	Method SetTileCol:TMap(x:Int,y:Int,r:Int,g:Int,b:Int)
		map[x][y].TileColor(r,g,b)
	End
	
	Method GetTile:Int(x:Int,y:Int)
		Return map[x][y].current
	End
	
End

Class TTile

	Field x:Int, y:Int
	Field r:Int, g:Int, b:Int
	Field st:Int
	Field current:Int
	
	Function Create:TTile(tx:Int,ty:Int)
		Local tmp:TTile = New TTile
		tmp.SetPos tx,ty
		Return tmp	
	End
	
	Method Draw:TTile()
		SetColor r,g,b
		DrawImage tileset,x*16,y*16,current
		SetColor 255,255,255
	End
	
	Method SetState:TTile(ts:Int)
		st = ts
	End
	
	Method SetPos:TTile(tx:Int,ty:Int)
		x = tx
		y = ty
	End Method
	
	Method SetCurrent:TTile(cur:Int)
		current = cur
	End
	
	Method TileColor:TTile(tr:Int,tg:Int,tb:Int)
		r = tr
		g = tg
		b = tb
	End
		
End

Function Main:Int()

	New Game

End

Image -

Jesse

(Posted 2011) [#10]

if you know Blitzmax there is a good example in the code archives of what you are doing that include tile transitions :
http://www.blitzmax.com/codearcs/codearcs.php?code=1999
I might just convert it to monkey and post here.

FBEpyon

(Posted 2011) [#11]

Yeh I know Blitzmax, I looked at that code and looks like something that might be good to follow along with..

Thanks,

William Mc.