10Maze (Commodore Plus/4) by Haegar of Synergy

10Maze Haegar of Synergy 2026

Commodore Basic 3.5 - Commodore C16/C116/plus4

Programmed in CBM prg Studio

15. BASIC 10Liner Contest, Category "PUR-80"

Das Spiel / The Game

--------------------------------------------------------------------------------------------

Du bis ein Schatzsucher und hast gerade eine Falle im Schutzlabyrinth in der Pyramide von Pharao Ramboses des II ausgelöst. Finde den Weg zum Ausgang innerhalb der vorgegebenen Zeit (Voreingestellt sind 20 Sekunden).

Wenn du ein Labyrinth geschafft hast darfst du noch einen Versuch wagen. Sollte du es nicht schaffen in der Zeit den Ausgang zu erreichen, dann ist da Spiel vorbei und du bleibst für immer im Labyrinth eingeschlossen.

English

=======

You are a treasure hunter and have just triggered a trap in the protective labyrinth inside the pyramid of Pharaoh Ramboses II. Find your way to the exit within the given time (20 seconds by default).

If you successfully complete a labyrinth, you may attempt another. If you fail to reach the exit within the time limit, the game is over and you will remain trapped in the labyrinth forever.

Variables

--------------

a = 

b =

c = Start, x Position Player 

d = Start, y Position Player

e =

f =

g = x Position Player 

h = Höhe des Labyrinthes

i = y Position Player 

j =

k = Ziel, x Position

l = Ziel, y Position

m (,) = Labyrinth Daten

n = Restzeit

r = Hilfsvariable zum Erstellen des Labyrinthes

t = Zeit für das Labyrinth (1 Sekunde = 60)

w = Breite des Labyrinthes

x = Hilfsvariablen 

y = Hilfsvariablen

Lines

-----------------------

0 clr:sC:coL0,8,6:coL4,8,6:w=38:h=24:DIMm(39,25):FORy=0TOH:FORx=0TOw:m(x,y)=1
Löscht alles, Farben einstelle, Area für das Labyrinth festlegen: Beginnen den Bildschirm komplett mit Mauern zu füllen.
Delete everything, set colors, define the area for the maze: Begin to completely fill the screen with walls.
1 chA1,x,y,"{brown}{reverse on} {reverse off}":nEx,y:fOy=1TOH-1stE2:fOx=1TOw-1stE2:M(x,y)=0:chA1,x,y," "
Beginnen Wege in die Mauern zu schaffen
Begin to create pathways through the walls.
2 r=INT(rN(1)*2):b=0:a=0:IFr=0ANDX>1tHb=-1:eLIFr=1ANDY>1tHa=-1
3 fOp=0too:nE:IFX=1ANDY>1tHa=-1:b=0:eLIFY=1ANDX>1tHb=-1:a=0
4 M(X+b,Y+a)=0:chA1,X+b,Y+a," ":nEX,Y:d=int(rN(1)*24)+1:l=int(rN(1)*(h-9))+9:c=1
Wenn alle Weg geschaffen sind, dann Ziel und Start setzen.
Once all the paths are cleared, then set the goal and the starting point.
5 k=int(rN(1)*(w-11))+11:M(c,d)=0:M(k,l)=0:chA1,k,l,"{reverse on}{green}e{black}{reverse off}":g=c:i=d:t=ti+1200
Start und Ziel werden relativ zufällig gesetzt. Timer auf 20 Sekunfen (20 * 60 = 1200)
Start and finish are set relatively randomly. Timer set to 20 seconds (20 * 60 = 1200)
6 chA1,g,i,"*":j=joy(1):e=g:f=i:f=i+(j=1)-(j=5):e=g+(j=7)-(j=3):IFM(e,f)=1tH6
Spieler setzen, Joystickabfrage und neue Position. Schauen ob eine Mauer im Weg ist.
Players are positioned, joystick input is requested, and a new position is determined. It's then necessary to check if there's a wall in the way.
7 chA1,g,i," ":g=e:i=f:chA,g,i,"*":n=int((t-ti)/60):chA,0,0,"{reverse on}":?n"{left} {reverse off}":ifn<0tH9
keine Mauer, dann alte Position löschen,  Spieler neu setzten, Restzeit anzeigen und prüfen.
If there is no wall, then delete the old position, reset the player, display the remaining time and check.
8 IFg=kANDi=ltHchA,10,10,"you win - again (y/n)?":gEkEa$:ifa$="y"tH0:end
Wenn Ziel erreicht dann hast du gewonnen, noch eine Runde?
If you reach the goal, then you've won, one more round?
9 ifn>0tH6:eLchA,12,12,"":?"{flash on}{reverse on}{red}you run ot of time{reverse off}{flash off}{black}":end
Zeit ist um du bis eingeschlossen.
Time is up, you are locked in.