#172 - The Maze Challenge - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|536\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #172 - The Maze Challenge
Tue, 07 Oct 2008, 16:35
Jayenkai	#172 - The Maze Challenge Where do we go from here?! The Challenge Make a nice simple maze game. (Yes, Pacman counts as a maze game...) The Time Wed 8th October -> 15th October, 2008 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT. The Rules You're free to reuse functions here and there, if it helps speed up your dev-time. Old art and audio, are pretty much expected, since we don't all have time to create fully working masterpieces within the space of a week! Other than that, the main coding for each week's task should be pretty much created within the time allocated. If you use other people's art/sound/functions, give credit where credit's due. To enter, post your game below. If you can't find anywhere decent to host it, send it to Jayenkai@Gmail.com Additional rules are available here. Last Week Last week, nobody entered. Everyone was still too busy watching banks go bust. -=-=- ''Load, Next List!''
Tue, 07 Oct 2008, 17:12
Forklift_Fred	Is it really a year ago that I made my Halloween maze game? Blimey, time flies! I may resurrect the maze-generation code and try something different... Or I could post it raw and let everyone else use it if they want... -=-=- Come rain or shine...
Fri, 10 Oct 2008, 12:35
Forklift_Fred	Sorry, I don't know if anyone was actually waiting for this but I forgot all about it! I've stripped it right back to a demo that will just generate a random maze. If you leave the demo variable as True then you can watch what it is doing, setting it to False will obviously be faster though! The quoted explanation at the top is what I started from and what follows is how I implemented it in Blitz. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Random Maze ;; ;; =========== ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; Originaly (24/10/07 - 31/10/07) ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "Random Maze Generator Demo" Graphics 800,600,32,2 SetBuffer BackBuffer() ;[Block] Info on maze generation at https://www.mazeworks.com/mazegen/mazetut/ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; create a CellStack (LIFO) To hold a list of cell locations ;; ;; set TotalCells = number of cells in grid ;; ;; choose a cell at random And call it CurrentCell ;; ;; set VisitedCells = 1 ;; ;; ;; ;; While VisitedCells < TotalCells ;; ;; ;; ;; find all neighbors of CurrentCell with all walls intact ;; ;; If one Or more found ;; ;; choose one at random ;; ;; knock down the wall between it And CurrentCell ;; ;; push CurrentCell location on the CellStack ;; ;; make the New cell CurrentCell ;; ;; add 1 To VisitedCells Else ;; ;; pop the most recent cell entry off the CellStack ;; ;; make it CurrentCell EndIf ;; ;; ;; ;; endWhile ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;[End Block] SeedRnd MilliSecs() Demo = True Global numbers=True ; Set the size and create arrays Global maze_width%=15 Global maze_height%=10 Global total_cells#=maze_widthmaze_height Global ch=40 ; Cell Width Global cw=40 ; Cell Height Dim cells(maze_width+1,maze_height+1) Dim walls(maze_width+1,maze_height+1) ; Set all cells to be fully closed For y=1 To maze_height For x=1 To maze_width walls(x,y)=1+2+4+8 ; Using 'binary flags' to mark the walls top + right + bottom + left ; Just the top wall would be 1, Top and bottom would be 5 (1 + 4) ; Top and left = 9 (1 + 8) ; Etc. Next Next Type cellstack Field x Field y End Type current_cell_x=1 current_cell_y=1 visited_cells#=1 cells(current_cell_x,current_cell_y)=1 step_count=1 ;[Block] Set bounderies For y=0 To maze_height+1 cells(0,y)=2 Next For y=0 To maze_height+1 cells(maze_width+1,y)=2 Next For x=0 To maze_width+1 cells(x,0)=2 Next For x=0 To maze_width+1 cells(x,maze_height+1)=2 Next ;[End Block] completed=False cellstack.cellstack=New cellstack cellstack\x=current_cell_x cellstack\y=current_cell_y ;[Block] Generate Maze While visited_cells < total_cells If cells(current_cell_x,current_cell_y+1)=0 Or cells(current_cell_x+1,current_cell_y)=0 Or cells(current_cell_x,current_cell_y-1)=0 Or cells(current_cell_x-1,current_cell_y)=0 Then empty=False While Not empty selected=Rnd(1,4) Select selected Case 1 x=0 y=-1 direction=1 reverse=4 Case 2 x=1 y=0 direction=2 reverse=8 Case 3 x=0 y=1 direction=4 reverse=1 Case 4 x=-1 y=0 direction=8 reverse=2 End Select empty=Not cells(current_cell_x+x,current_cell_y+y) If current_cell_x+x<1 Or current_cell_x+x>maze_width Or current_cell_y+y<1 Or current_cell_y+y>maze_height Then empty=0 Wend walls(current_cell_x,current_cell_y)=walls(current_cell_x,current_cell_y)-direction current_cell_x=current_cell_x+x current_cell_y=current_cell_y+y walls(current_cell_x,current_cell_y)=walls(current_cell_x,current_cell_y)-reverse visited_cells=visited_cells+1 step_count=step_count+1 If completed Then cells(current_cell_x,current_cell_y)=-1 Else cells(current_cell_x,current_cell_y)=step_count End If cellstack.cellstack=New cellstack cellstack\x=current_cell_x cellstack\y=current_cell_y Else Delete cellstack cellstack=Last cellstack current_cell_x=cellstack\x current_cell_y=cellstack\y End If If KeyHit(1) Then demo=False If demo Then Cls Text 0,0,Int(visited_cells)+" / "+Int(total_cells) Text 400,500,"Generating Maze. Please wait... Press Escape to Quit",1,1 Color 255,128,0 If KeyHit(57) Then numbers=Not numbers DrawMaze() Color 128,255,0 Oval (current_cell_xcw)+2,(current_cell_ych)+2,cw,ch,1 Color 255,128,0 Flip End If If current_cell_x=maze_width And current_cell_y=maze_height Then completed=True Wend Cls DrawMaze() Flip ;[End Block] While Not KeyHit(1) If KeyHit(57) Then numbers=Not numbers Cls DrawMaze() Flip End If Wend End Function DrawMaze() For y=1 To maze_height For x=1 To maze_width binary$=Bin$(walls(x,y)) binary$=Right$(binary$,4) If Mid$(binary$,4,1)=1 Then Line xcw,ych,(x+1)cw,ych If Mid$(binary$,3,1)=1 Then Line (x+1)cw,ych,(x+1)cw,(y+1)ch If Mid$(binary$,2,1)=1 Then Line xcw,(y+1)ch,(x+1)cw,(y+1)ch If Mid$(binary$,1,1)=1 Then Line xcw,ych,xcw,(y+1)ch If numbers Then Color 128,128,128 Text xcw+cw/2,ych+ch/3,walls(x,y),1,1 Text xcw+cw/2,(y+1)ch-ch/3,binary$,1,1 Color 255,128,0 End If Next Next End Function --v I've used binary to give 4 flags, one for each wall, with the numbers* variable set to True you'll see both binary and decimal values for each cell (press space to toggle) Study it with the numbers showing and you should get the idea... -=-=- Come rain or shine...
Fri, 10 Oct 2008, 14:46
Jayenkai	Yeay! Mazes!
Fri, 10 Oct 2008, 15:59
Pio	Here's WikiMaze, where you can surrender your thoughts to oblivion. slavijamedic.com/puzzles/maze Drawings by Lensi.
Fri, 10 Oct 2008, 16:09
HoboBen	Cool! I really liked that idea, Pio

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.096

#172 - The Maze Challenge - Socoder