Random maze generator ;-)

Página 2/3
1 | | 3

Por wolf_

Ambassador_ (9817)

Imagen del wolf_

24-08-2019, 11:27

Well, it could be a one-liner...

1screen1:keyoff:z=rnd(-time):fork=0to1step0:printchr$(203.5+rnd(1));:next

Por Manuel

Ascended (16972)

Imagen del Manuel

24-08-2019, 11:31

So, this is ARTRAG's from 2012:

10 screen 1:width 32: key off
20 print chr$(1)+chr$(92+rnd(1)*3);:  goto 20

Resulting in:

Then NYYRIKKI's take in 2013:

10 SCREEN1:KEYOFF:FORI=0TO0:PRINTCHR$(1);CHR$(93.5+RND(1));:I=INKEY$="":NEXT

Gives similar output as ARTRAG's, but not the same:

And ARTRAG topped it off with a C program with solution included:

Por ImATrackMan

Expert (89)

Imagen del ImATrackMan

24-08-2019, 12:41

10 PRINTCHR$(1)+CHR(25.5+64)+RND(1)*4);:GOTO10

is the closest thing I could find for Japanese computers. Since they don't have a \, you're forced to use a range of graphics characters.

Por ARTRAG

Enlighted (6443)

Imagen del ARTRAG

24-08-2019, 14:57

long time has passed. I was the first to have forgotten those old threads and the maze solver.

Por ToriHino

Hero (587)

Imagen del ToriHino

31-03-2020, 18:10

And now even a 10 PRINT RACER game is made out of it

Por hamlet

Scribe (3231)

Imagen del hamlet

31-03-2020, 19:44

This is running pretty fast on that old PET!

Por tfh

Prophet (2420)

Imagen del tfh

31-03-2020, 20:00

ToriHino wrote:

And now even a 10 PRINT RACER game is made out of it

Allthough not with a maze, the same gameconcept has been released in an MSX version for the Basic 10 Liner challenge: 10th Fall

Por ToriHino

Hero (587)

Imagen del ToriHino

31-03-2020, 20:07

Nice Big smile

Por Dolphin101546015

Champion (273)

Imagen del Dolphin101546015

31-03-2020, 21:24

Por ToriHino

Hero (587)

Imagen del ToriHino

31-03-2020, 23:34

Even better! Cool

Página 2/3
1 | | 3