10 Print Chr (maze)

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

Pakz	Created : 12 November 2017 Language : Monkey-X 10 Print Chr (maze) Commodore 64 One line Maze Generator Flash example of this code
Import mojo Class MyGame Extends App Field x:Int,y:Int Field spacing:Int=10 Field map:Int[][] Method OnCreate() SetUpdateRate(60) map = New Int[100][] For Local i:Int=0 Until 100 map[i] = New Int[100] Next makemaze() End Method Method OnUpdate() If KeyHit(KEY_SPACE) Or MouseHit(MOUSE_LEFT) makemaze() End If End Method Method OnRender() Cls 0,0,0 drawmaze() DrawText 'Press Space or Mouse for new maze',0,0 End Method Method drawmaze() For Local y:Int=0 Until 100 For Local x:Int=0 Until 100 Select map[x][y] Case 0 DrawLine x10,y10,x10+10,y10+10 Case 1 DrawLine x10+10,y10,x10,y10+10 End Select Next Next End Method Method makemaze() For Local y:Int=0 Until 100 For Local x:Int=0 Until 100 If Rnd(1)<.5 Then map[x][y] = 1 Else map[x][y] = 0 Next Next End Method End Class Function Main() New MyGame() End Function --v
Latest Update I got this from the coding train. They showed how the c64 could generate a complete maze from a single line of code back then. They used this line : 10 PRINT CHR$(205.5+RND(1)); : GOTO 10 I tried to code it so it would go from left to right and down but monkeyx seems to have a double buffering problem with my way of doing it. Here So I had to use more code here and it draws the entire maze at once. The 10 print chr also has a entire book that can be read freely online. It has more patterns described inside it.

Comments

10 Print Chr (maze)

Latest Update

Comments