Map Generator Lines and Zones(grow)

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|655\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Generators

Pakz	Created : 20 June 2018 Edited : 20 June 2018 Language : Monkey-X Map Generator Lines and Zones(grow) 2d Maps
Screenshots
' ' Map generator using lines and zones. ' The generator first creates lines on a map. It starts with one ' line somewhere in the middle of the map and while drawing this line it ' sometimes starts a new line into a random direction from ' this line its place. They all are connected to each other ' ' Then A fill is done. Here a random point is chosen and if this is a ' line value of filled value it fills nearby (-1,1xy) This a certain amount ' of times so that a landmass is created. ' ' After that a second zones fill is done. Here a number of land values ' are changed into new values and these are grown creating biomes. ' Import mojo Class map ' screen width and height and map width and height. Field sw:Int,sh:Int,mw:Int,mh:Int ' tilewidth and height Field tw:Float,th:Float ' map data array Field map:Int[][] ' Method New(sw:Int,sh:Int,mw:Int,mh:Int) Self.sw = sw Self.sh = sh Self.mw = mw Self.mh = mh tw = Float(sw)/Float(mw) th = Float(sh)/Float(mh) ' set up the map array map = New Int[mw][] For Local i:Int=0 Until mw map[i] = New Int[mh] Next ' generate the map generatemap() End Method Method generatemap() ' Create Lines ' x and y and angle and length of lines Local xp:Stack<Float> = New Stack<Float> Local yp:Stack<Float> = New Stack<Float> Local ap:Stack<Int> = New Stack<Int> Local lp:Stack<Int> = New Stack<Int> 'push the first line on the stack xp.Push(mw/3+Rnd(mw/4)) yp.Push(mh/3+Rnd(mh/4)) ap.Push(Rnd(360)) lp.Push(Rnd(20,30)) ' maximum number of lines Local maxl:Int=Rnd(5,15) ' current amount of lines Local curl:Int=0 ' while the stack is not empty While xp.Length>0 ' loop through the x stack For Local i:Int=0 Until xp.Length ' if length of line is not zero yet If lp.Get(i) > 0 Then ' decrease line length lp.Set(i,lp.Get(i)-1) ' set local values Local a:Int=ap.Get(i) Local x:Float=xp.Get(i) Local y:Float=yp.Get(i) ' update the line x+=Cos(a)1 y+=Sin(a)1 ' if the line is near edge then end line If x<1 Then lp.Set(i,0) ; Continue If x>=mw Then lp.Set(i,0) ; Continue If y<1 Then lp.Set(i,0) ; Continue If y>=mh Then lp.Set(i,0) ; Continue ' set the new x and y value in stack xp.Set(i,x) yp.Set(i,y) ' update the map array map[x][y] = 1 ' every now and then create new line if possible If Rnd(10)<1 And curl<maxl ' current amount of lines curl+=1 ' create new line in stack xp.Insert(0,x) yp.Insert(0,y) ap.Insert(0,Rnd(360)) ' angle lp.Insert(0,Rnd(15,40)) ' line length End If ' if the line length is 0 then remove it from the stack Else xp.Remove(i) yp.Remove(i) ap.Remove(i) lp.Remove(i) End If Next Wend ' ' Zones fill ' ' Loop x amount of times For Local i:Int=0 Until mwmh5 ' get random x and y Local x:Int=Rnd(3,mw-3) Local y:Int=Rnd(3,mh-3) ' if the value there in the map is 1 If map[x][y] = 1 ' put another 1 near that x and y map[x+Rnd(-1,2)][y+Rnd(-1,2)] = 1 End If Next ' ' Second zones fill ' ' first add zone numbers (biomes) Local numzones:Int=Rnd(5,15) ' current zone variable Local cd:Int=numzones ' while not all zones have been added While cd>0 ' get x and y random coordinates Local x:Int=Rnd(1,mw-1) Local y:Int=Rnd(1,mh-1) ' if the x and y in map is 1 If map[x][y] = 1 ' add zone(biome) map[x][y] = cd ' decrease biomes cd-=1 End If Wend ' then increase zones size ' certain zones may grow larger then the current landmass Local zonegrow:Bool[] = New Bool[numzones+1] For Local i:Int=0 Until numzones+1 If Rnd(1)<.5 Then zonegrow[i] = False Else zonegrow[i] = True Next ' loop x amount of times For Local i:Int=0 Until mwmh20 ' create random x and y Local x:Int=Rnd(1,mw-1) Local y:Int=Rnd(1,mh-1) ' if this map coordinate is a biome number If map[x][y] > 1 ' near that biome(zone) number grow that zone Local zn:Int=map[x][y] Local nx:Int=x+Rnd(-1,2) Local ny:Int=y+Rnd(-1,2) ' if the current zone is enlargable If zonegrow[zn] = True Then map[nx][ny] = zn ' stay on the original landmass Else If map[nx][ny] > 0 map[nx][ny] = zn End If End If End If Next End Method ' draw the map array on the screen Method draw() For Local y:Int=0 Until mh For Local x:Int=0 Until mw If map[x][y] = 0 'water SetColor 5,5,155 DrawRect xtw,yth,tw+1,th+1 End If If map[x][y] = 1'rock/mountain SetColor 155,155,155 DrawRect xtw,yth,tw+1,th+1 End If If map[x][y] = 2'desert/sand SetColor 155,155,5 DrawRect xtw,yth,tw+1,th+1 End If If map[x][y] > 2'trees/grass Local c:Int=map[x][y]13 SetColor c,255,c DrawRect xtw,y*th,tw+1,th+1 End If Next Next End Method End Class Class MyGame Extends App Field mymap:map Method OnCreate() SetUpdateRate(60) Seed = GetDate[4]+GetDate[5] mymap = New map(640,480,80,80) End Method Method OnUpdate() If MouseHit(MOUSE_LEFT) mymap = New map(640,480,80,80) Endif End Method Method OnRender() Cls 0,0,0 SetColor 255,255,255 mymap.draw() End Method End Class Function Main() New MyGame() End Function --v
Latest Update This code(commented) creates maps by creating lines in a stack and drawing these on a map. Each line has a length and a angle. It starts with one line and at random new lines can be added at the current line position each with a new random length and direction. When the lines have been drawn the generator function grows the lines so they turn into landmasses. Becourse the lines are all connected a single land mass is formed. Then another zone(grow) set is done. A number of zone numbers are put onto land coordinates and they are also grown creating those biomes.

Comments
Wednesday, 20 June 2018, 14:15
Jayenkai	A lovely little island generator. Couple this with a nice set of tiles, and you could make a lovely large scale tilemapped island of sorts. .. Would probably need a lot of tiles, though, or some rather clever alpha blending.

Map Generator Lines and Zones(grow)

Latest Update

Comments