Horizontal Hall with Rooms Generator

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

Pakz	Created : 28 January 2018 Edited : 28 January 2018 Language : Monkey2 Horizontal Hall with Rooms Generator Hall with Rooms generator Emscripten page
Screenshots
#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class tile Field tilewidth:Int Field tileheight:Int Field wallim:Image[] Field wallcan:Canvas[] Field floorim:Image Field floorcan:Canvas Method New(tw:Int,th:Int) floorim = New Image(tw,th) floorcan = New Canvas(floorim) wallim = New Image[17] wallcan = New Canvas[17] For Local i:Int=0 Until 17 wallim[i] = New Image(tw,th) wallcan[i] = New Canvas(wallim[i]) Next tilewidth = tw tileheight = th createfloor(floorcan) createwalls() End Method ' Here we create the wall images (uses bitwise) Method createwalls() ' Paste 16 floorimages inside wall canvasses For Local i:Int=0 Until 17 wallcan[i].DrawImage(floorim,0,0) Next ' Create our bitwise counter Local bitwise:Int[] = New Int[4] Local exitloop:Bool=False Local cnt:Int=1 ' Here we create every wall image While exitloop = False ' We add up a binary number 4 in length ' Each bit is one direction of the wall For Local i:Int=3 to 0 Step -1 If bitwise[i] = 0 Then bitwise[i] = 1 Exit End If bitwise[i] = 0 Next ' Top=1,right=2,bottom=4,left=8 ' If one bit is flagged then we draw the wall there If bitwise[3] = 1 Then addtopwall(wallcan[cnt]) If bitwise[2] = 1 Then addrightwall(wallcan[cnt]) If bitwise[1] = 1 Then addbottomwall(wallcan[cnt]) If bitwise[0] = 1 Then addleftwall(wallcan[cnt]) wallcan[cnt].Flush() cnt+=1 ' If we are done then exit If cnt>16 Then exitloop=True Wend End Method ' Draw our walls Method addtopwall(canvas:Canvas) canvas.Color = Color.White drawnoiserect(canvas,0,0,tilewidth,tileheight/8,Color.Copper) canvas.Flush() End Method Method addbottomwall(canvas:Canvas) canvas.Color = Color.White drawnoiserect(canvas,0,tileheight-tileheight/8,tilewidth,tileheight/8,Color.Copper) canvas.Flush() End Method Method addleftwall(canvas:Canvas) canvas.Color = Color.White drawnoiserect(canvas,0,0,tilewidth/8,tileheight,Color.Copper) canvas.Flush() End Method Method addrightwall(canvas:Canvas) canvas.Color = Color.White drawnoiserect(canvas,tilewidth-tilewidth/8,0,tilewidth/8,tileheight,Color.Copper) canvas.Flush() End Method ' This draws a noisy rectangle Method drawnoiserect(canvas:Canvas,x1:Int,y1:Int,w:Int,h:Int,col:Color) For Local x:Int=x1 Until x1+w For Local y:Int=y1 Until y1+h If Rnd()<.8 canvas.Color = col.Blend(Color.Black,Rnd(.5)) Else canvas.Color = col.Blend(Color.White,Rnd(1)) End If canvas.DrawPoint(x,y) Next Next End Method ' Here we create a procedural floor tile Method createfloor(canvas:Canvas) canvas.Clear(Color.Gold.Blend(Color.Black,.6)) ' Create a array Local t:Int[,] = New Int[tilewidth,tileheight] ' Create a set of numbers in the floor array For Local i:Int=0 Until tilewidth/2 t[Rnd(tilewidth),Rnd(tileheight)] = 1 Next ' Loop a number of times For Local i:Int=0 Until tilewidthtileheight5 ' Get a random x and y position Local x:Int=Rnd(tilewidth) Local y:Int=Rnd(tileheight) ' If this position is a number If t[x,y] = 1 ' next to this location pick a location Local x2:Int=x+Rnd(-1,2) Local y2:Int=y+Rnd(-1,2) ' Is it outside of the tile then skip If x2<0 Or y2<0 Or x2>=tilewidth Or y2>=tileheight Then Continue ' New position is now also a number t[x2,y2] = 1 ' If the location is top or left of the tile ' then copy it to the other side of the tile ' to create a tileable effect If y2=0 Then t[x2,tileheight-1] = 1 If x2=0 Then t[tilewidth-1,y2] = 1 If y2=tileheight-1 Then t[x2,0] = 1 If x2=tilewidth-1 Then t[0,y2] = 1 End If Next ' Draw the array into the tile For Local y:Int=0 Until tileheight For Local x:Int=0 Until tilewidth If t[x,y] = 1 Then ' Create a color from brown with a random black blend canvas.Color = Color.Gold.Blend(Color.Black,Rnd(.3,.8)) canvas.DrawPoint(x,y) End If Next Next ' Create noise For Local i:Int = 0 Until tilewidthtileheight/2 canvas.Color = New Color(0,0,0,Rnd(0,0.5)) canvas.DrawPoint(Rnd(tilewidth),Rnd(tileheight)) Next canvas.Flush() End Method Method drawback(canvas:Canvas,x:Int,y:Int) Local v1:Float=(1.0/1000.0)distance(0,240,0,y) canvas.Color=Color.White.Blend(Color.Black,1.0-v1) canvas.DrawImage(floorim,x,y) End Method 'Draw the walls 0-top clockwise 1=topandtoprightdown Method drawwall(canvas:Canvas,x:Int,y:Int,n:Int) 'Local v1:Float=(1.0/240.0)distance(0,240,0,y) 'canvas.Color = Color.White.Blend(Color.Black,v1) canvas.Color = Color.White canvas.DrawImage(wallim[n],x,y) End Method ' Draw the floor Method drawfloor(canvas:Canvas,x:Int,y:Int) 'Local v1:Float=(1.0/240.0)distance(0,240,0,y) 'canvas.Color=Color.White.Blend(Color.Black,v1) canvas.Color = Color.White canvas.DrawImage(floorim,x,y) End Method Function distance:Float(x1:Int,y1:Int,x2:Int,y2:Int) Return Abs(x2-x1)+Abs(y2-y1) End Function End Class ' Here we have the map class, this generates a new map ' when (re)created and holds the data in map[] Class map Field map:Int[,] Field width:Int,height:Int Field mapwidth:Int,mapheight:Int Field tilewidth:Int,tileheight:Int Method New(w:Int,h:Int,mw:Int,mh:Int) Self.width = w Self.height = h Self.mapwidth = mw Self.mapheight = mh map = New Int[mw,mh] tilewidth = Float(width) / Float(mapwidth) tileheight = Float(height) / Float(mapheight) generatemap() End Method Method generatemap() createmidsection() createrooms("up") createrooms("down") mapfindwalls() End Method ' Create using the bitwise system the tiles for the walls Method mapfindwalls() ' We use a temp map Local tempmap:Int[,] = New Int[mapwidth,mapheight] ' Loop through the entire map For Local y:Int=1 Until mapheight-1 For Local x:Int=1 Until mapwidth-1 ' If we find a floor tile If map[x,y] = 1 ' Create a variable that will hold the wall tile Local n:Int=0 ' If top/right/bottom/left then add bitwise If map[x,y-1] = 0 Then n+=1 If map[x+1,y] = 0 Then n+=2 If map[x,y+1] = 0 Then n+=4 If map[x-1,y] = 0 Then n+=8 ' If we have a wall here If n>0 Then ' The walls start at 2 so add 1 n+=1 ' Put this value in the tempmap array tempmap[x,y] = n End If End If Next Next ' Copy the values from the tempmap into the main map that ' hold our tiles For Local y:Int=0 Until mapheight For Local x:Int=0 Until mapwidth If tempmap[x,y] > 1 Then map[x,y] = tempmap[x,y] Next Next End Method Method createrooms(sec:String) ' Create our rooms in the map in this list ' the list will contain the room width's Local l:List<Int> = New List<Int> l.AddFirst(3) While listcnt(l) < mapwidth-1 l.AddFirst(Rnd(3,6)) If listcnt(l)+8>=mapwidth-1 Then l.AddFirst(mapwidth-listcnt(l)-1) Wend 'our start and center vvariables Local s:Int=1 Local dy:Int ' are we making rooms for the upper halve ' or the bottom halfe If sec="up" dy=mapheight/2-1 Else dy=mapheight/2+1 End If ' Loop through each room in the list For Local i:=Eachin l 'Draw the room from either up or bottom towards ' the center For Local x:Int=s Until s+i-1 If sec="up" For Local y:Int=mapheight/4 Until mapheight/2 map[x,y] = 1 Next Else For Local y:Int=mapheight-mapheight/4 Until mapheight/2 Step -1 map[x,y] = 1 Next End If Next ' Create the corridors/rooms ' if the room is size 3 If i=3 Then Local sw:Int=Rnd(0,2) map[s+sw,dy] = 0 End If 'if the room is size 4 If i=4 Then For Local z:Int=0 Until 3 If Rnd(2)<1 Then map[s+z,dy] = 0 Next map[s+Rnd(3),dy] = 1 End If 'if the room is greater then width 4 If i>4 Select Int(Rnd(10)) Case 0,1,2'make only one door For Local z:Int=0 Until i map[s+z,dy] = 0 Next map[s+Rnd(i-1),dy] = 1 Case 3,4,5'half of the room is door/open Local sz:Int Local ez:Int If Rnd(2)<1 Then sz=0 ez=i/2 Else sz=i/2 ez=i End if For Local z:Int=sz Until ez-1 map[s+z,dy] = 0 Next End Select End If s+=i Next End Method 'count up the size of the list Method listcnt:int(l:List<Int>) Local cnt:Int=0 For Local i:=Eachin l cnt+=i Next Return cnt End Method ' Create the center of the map (One line of tiles (1) Method createmidsection() For Local x:Int=1 Until mapwidth-1 map[x,mapheight/2] = 1 Next End Method ' Draw the entire map Method draw(canvas:Canvas) canvas.Color = Color.Black Local cnt:Int=0 For Local y:Int=0 Until mapheight For Local x:Int=0 Until mapwidth Local x2:Int=xtilewidth Local y2:Int=ytileheight ' Draw the background If map[x,y] = 0 mytile.drawback(canvas,x2,y2) End If 'Draw the floors If map[x,y] = 1 mytile.drawfloor(canvas,x2,y2) End If ' Draw the walls If map[x,y] > 1 And map[x,y] < 17 mytile.drawwall(canvas,x2,y2,map[x,y]-1) End If Next Next End Method End Class Global mymap:map Global mytile:tile Class MyWindow Extends Window Field ms:Int = Millisecs()+2000 Method New() mymap = New map(Width,Height,20,20) mytile = New tile(Width/20,Height/20) End method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method canvas.Clear(Color.Black) mymap.draw(canvas) If Keyboard.KeyReleased(Key.Space) Or ms<Millisecs() Then ms = Millisecs()+2000 SeedRnd(Millisecs()) Local ts:Int=Rnd(10,20) mymap = New map(Width,Height,ts,ts) mytile = New tile(Width/ts,Height/ts) End If canvas.Color = Color.Red canvas.DrawText("Press space to create new map",0,0) ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function --v
Latest Update Creates Procedural tiles Creates Procedural hall and Rooms Uses Bitwise system for the walls I found a screenshot of a game level in my twitter feed and noticed I would be able to turn that into code. I spend a night thinking and tweaking it.

Comments
Monday, 29 January 2018, 03:01
Jayenkai

Horizontal Hall with Rooms Generator

Latest Update

Comments