Road node code - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|528\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Mini Challenges -> Road node code
Sun, 19 Nov 2017, 04:37
rockford	Road node code Has anyone here created a simple road node code to create something similar to the image below? I figured that Pakz and Jay, and maybe others, might have done this already. I want to do something similar and have a few ideas, eg - 1. Have a recursive road where it spawns a path in a number of random number of directions from the left to the right. 2. Create a series of randomly plced nodes and create random direction paths from those. 3. Fill the gaps (between the roads) with blocks and then create roads around them 4. Create the nodes randomly then check if there's a node in any direction around them and create road to join. I'm sure that 2 and 3 are very inefficient and 1 could be improved on. Any tips or code?
Sun, 19 Nov 2017, 05:28
Jayenkai	Like in SuperMario3?.. Never attempted such a thing, but I'm willing to give it a whirl. Gimme an hour or so. -=-=- ''Load, Next List!''
Sun, 19 Nov 2017, 05:46
rockford	It's OK Jay, I think #4 is the best route. Create the nodes randomly, then check if there is another node within 2 spaces - if so, draw road to it. If not check 2 spaces in another direction. Then if the ends aren't connected just make a road to the nearest road/node. That should work. In theory. I didn't want for anyone to rush out and create the code for me, just if you'd already done something similar.
Sun, 19 Nov 2017, 06:25
Jayenkai	Graphics 800,600,0 SetClsColor(180,150,120) ' OK, lets assume a grid of 8x6 (so the resolution is a 100x100 match) ' 8610, where ' 0 = The type of point that is here. 1 to 5 for levels, 10 for a bonus round, 11 for a monkey or something.. Who knows. ' 99 will be "Nothing is here but we need a grid point" ' 1 = Joins upwards ' 2 = and is unlocked ' then again for 3,4 right, 5,6 down, 7,8 left. Global GridWide=8 Global GridHigh=6 SeedRnd MilliSecs() Global MapPoint[GridWideGridHigh10] CreateGrid() SetScale(2,2) Repeat Cls If KeyDown(KEY_SPACE) Then CreateGrid() ' Draw current map For x=0 To GridWide For y=0 To GridHigh SetColor(0,0,0) n=Get(x,y,0) If n=0 Then SetColor(0,80,0);SetRotation(-45);DrawText("Tree",x100+50,y100+50);SetRotation(0) If n>0 If n<6 Then SetColor(0,0,80);DrawText("["+n+"]",x100+50,y100+50) If n=10 Then SetColor(80,0,0);DrawText("**",x100+50,y100+50) If n=11 Then SetColor(120,60,0);DrawText("&",x100+50,y100+50) If n=99 Then SetColor(50,80,180);DrawText("()",x100+50,y100+50) EndIf If Get(x,y,1)=1 Then DrawText("\|",x100+50,y100+25) If Get(x,y,3)=1 Then DrawText("-",x100+75,y100+50) If Get(x,y,5)=1 Then DrawText("\|",x100+50,y100+75) If Get(x,y,7)=1 Then DrawText("-",x100+25,y100+50) Next Next DrawText(MilliSecs(),0,0) Flip Until KeyDown(KEY_ESCAPE) End Function CreateGrid() ' Flush grid For x=0 To GridWide-1 For y=0 To GridHigh-1 For n=0 To 9 Put(x,y,n,0) Next Next Next failure=9999 ' First, find a start point. Repeat pointx=Rand(0,gridwide-1) pointy=Rand(0,gridhigh-1) Until pointx=0 Or pointy=0 Or pointx=gridwide-1 Or pointy=gridhigh-1 ' We can mark that off as a 99 Put(pointx,pointy,0,99) ' Place a 99 planted=0 Repeat ' Now we simply need to work through a bunch of steps, find a direction, plant a point, and repeat until bored. ' First, find a random direction tries=0 Repeat found=0;tries=tries+1 dr=Rand(1,4) If dr=1 Then gotox=pointx;gotoy=pointy-1 If dr=2 Then gotox=pointx+1;gotoy=pointy If dr=3 Then gotox=pointx;gotoy=pointy+1 If dr=4 Then gotox=pointx-1;gotoy=pointy If gotox>-1 And gotoy>-1 And gotox<GridWide And gotoy<GridHigh Then found=1 If tries>500 Then found=1 Until found=1 ' Score the chosen point, based on what it is/isn't there. pos=0 If Get(gotox,gotoy,0)=0 Then pos=pos+5 If Get(gotox,gotoy,0)=99 Then pos=pos+5 If Get(gotox,gotoy,0)>0 And Get(gotox,gotoy,0)<10 Then pos=pos+1 ' Then, if random, move there. If Rnd(0,20)<pos Put(pointx,pointy,(dr2)-1,1) revdr=((dr+1) Mod 4)+1 Put(gotox,gotoy,(revdr2)-1,1) ' Set the point to 99 If Get(gotox,gotoy,0)=0 Then Put(gotox,gotoy,0,99) If Get(gotox,gotoy,0)=99 And Rnd(0,GridWide+GridHigh)<2 And planted<5 Then planted=planted+1;put(gotox,gotoy,0,planted) If Get(gotox,gotoy,0)=99 And Rnd(0,GridWide+GridHigh)<1 Then put(gotox,gotoy,0,10) If Get(gotox,gotoy,0)=99 And Rnd(0,GridWide+GridHigh)<1 Then put(gotox,gotoy,0,11) pointx=gotox pointy=gotoy EndIf failure=failure-1 If failure<0 Then planted=5 Until planted=5 End Function Function Put(fx,fy,fref,fput) If fx>=0 And fy>=0 And fx<GridWide And fy<GridHigh MapPoint[(((fyGridWide)+fx)10)+fref]=fput EndIf End Function Function Get(fx,fy,fref) If fx>=0 And fy>=0 And fx<GridWide And fy<GridHigh Return MapPoint[(((fyGridWide)+fx)*10)+fref] EndIf Return -1 End Function --v It's not perfect. It keeps planting "levels" in between other levels, so that you'd end up blocked.. Unless you don't specify numbers, and instead just have the world be roamable..!? \|update\| BlitzMax code, btw.. Be sure to run with DebugMode as it often gets stuck in a never ending loop!! \|update\| \|update\| Added "Failure" so it doesn't get stuck in an endless loop \|update\| -=-=- ''Load, Next List!''
Sun, 19 Nov 2017, 07:37
rockford	Cheers Jay I managed to create something a lot simpler that is ideal for my needs, although I still have to put in error checking for stray nodes, but I like your example too. GLOBAL room%[], road%[] rooms() // Random room positions FUNCTION rooms: DIM room[20][20] DIM road[20][20][5] LOCAL rm%=1, x%, y%, quit%, press%=20 // Create random node points WHILE rm<15 x=RND(6)+2 y=RND(3)+2 IF room[x][y]=0 room[x][y]=rm INC rm ENDIF WEND /// Use value from nodes to create roads FOR y=2 TO 5 FOR x=2 TO 8 IF room[x][y]>0 IF room[x+2][y]>0 road[x][y][1]=1 road[x+1][y][1]=1 ENDIF IF room[x+1][y]>0 road[x][y][1]=1 ENDIF IF room[x][y+2]>0 road[x][y+1][2]=2 road[x][y][2]=2 ENDIF IF room[x][y+1]>0 road[x][y][2]=2 ENDIF ENDIF NEXT NEXT // Main loop WHILE quit=0 FOR y=2 TO 6 FOR x=2 TO 8 FOR n=1 TO 4 IF road[x][y][1]=1 THEN DRAWRECT x32+100,y32+100,32,4,RGB(255,255,255) IF road[x][y][2]=2 THEN DRAWRECT x32+100,y32+100,4,32,RGB(255,255,255) IF room[x][y]>0 THEN DRAWRECT x32+100,y32+98,8,8,RGB(255,0,0) NEXT NEXT NEXT SHOWSCREEN IF KEY(57) AND press=0 THEN quit=1 IF press>0 THEN DEC press WEND rooms() ENDFUNCTION --v Here's the GLBasic .EXE for anyone that might want to see it in action. Press SPACE to redo map. road_node (.zip) Creates maps like this - \|edit\| And yes, I know I could reduce the IF/THEN calls down a bit too (by using WHILE/WEND or FOR/NEXT) when creating the roads
Sun, 19 Nov 2017, 08:07
Jayenkai	Kewly! There are many roads to a road node!!! -=-=- ''Load, Next List!''
Sun, 19 Nov 2017, 08:11
rockford	Indeed There are only so many ways to skin a cat, but if the cat is made of code then it's infinite. Seriously, who wants to skin a cat nowadays, other than some sicko?
Sun, 19 Nov 2017, 08:43
Pakz	That is a lot simpler then what I would've been able to come up with