Recursive map generator

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

Pakz	Created : 10 January 2022 Edited : 10 January 2022 System : Ipados Language : Lua (codea) Recursive map generator
-- Recursiveprocgen -- Use this function to perform your initial setup function setup() print("Hello World!") mw = 40 mh = 40 tw = WIDTH/mw th = HEIGHT/mh createmap() end -- This function gets called once every frame function draw() -- This sets a dark background color background(40, 40, 50) -- This sets the line thickness strokeWidth(5) -- Do your drawing here drawmap() if CurrentTouch.state == BEGAN then createmap() end end function createmap() map = {} for x=0,mw do map[x]={} for y=0,mh do map[x][y]=0 end end don = {} linemap(math.floor(mw/2),math.floor(mh/2),0,4,mw112) linemap(math.floor(mw/2),math.floor(mh/2),0,-4,mh112) linemap(math.floor(mw/2),math.floor(mh/2),4,0,mw112) linemap(math.floor(mw/2),math.floor(mh/2),-4,0,mh112) end function linemap(x,y,incx,incy,cnt) cnt = cnt - 1 if cnt < 0 then return end for i=0,math.abs(incx+incy) do if setmap(x,y,1)==false then break end if incx>0 then x=x+1 end if incy>0 then y=y+1 end if incx<0 then x=x-1 end if incy<0 then y=y-1 end end table.insert(don,vec2(x,y)) incx = 0 incy = 0 z = math.random(-4,4) if math.random()<.5 then incx = z else incy = z end if math.random()<.5 then n = math.random(1,#don) x = don[n].x y = don[n].y end linemap(x,y,incx,incy,cnt) end function setmap(x,y,val) if x<4 or y<4 or x>mw-4 or y>mh-4 then return false end cnt=0 for y1=y-1,y+1 do for x1=x-1,x+1 do if map[x1][y1]==1 then cnt=cnt+1 end end end if cnt>4 then return false end map[x][y]=val return true end function drawmap() for y = 0,mh,1 do for x = 0,mw,1 do if map[x][y]==1 then fill(255) stroke(255) rect(xtw,yth,tw,th) end end end end --v
Latest Update In a book I got last week there was a chapter on how great! Recursive functions are. One thing I learned from the book is called a Base Case. This is that logic part that exits a recursive function and stops it from calling itself again. This when a counter has gotten to low or a coordinate is outside of a region. This code here is a sort of maze like map generator. Simply drawing vertical and horizontal lines in a random walk style method. Every line the end coordinates are stored and these wil be used to sometimes start a new line from(crossways) The setmap function return false if there was a rule broken. Rules like outside map or to many walkable terrain on and around the current placement(this causes it to not go over itself) The code is short but uncommented. Lua and typed on the ipad.

Comments
Monday, 10 January 2022, 02:19
rockford	I like that. Clean and clear. Nice
Monday, 10 January 2022, 04:06
Jayenkai	Cool. I do like making maze generators. There's TONS of ways you can do it, and at the end of the day it's just how you use it that makes it good or bad. Every maze style seems to create a vastly different game as a result, and it can be a great starting point for making a unique kind of game. Do you have any games in mind for this one?
Monday, 10 January 2022, 04:41
Pakz	I just wanted to test out this recursive method of doing it. I also made another generator and added/copied out a wall tracer from a game ai book. I have been thinking of what kind of ai to put in my current project. I was thinking of drawing a space snail or/and a walking machine that patrols the inside tunnels of a big asteroid/planetoid. But I want to read more in the new design books I gotten over the last weeks first.

Latest Update

Comments