Space Prospector (C16 / Plus/4) by Haegar of Synergy

Space Prospector Haegar of Synergy 2025

Commodore Basic 3.5 - Commodore C16/C116/plus4

Programmed in CBM prg Studio

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

Das Spiel / The Game

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

Clint ist ein hartgesottener Raumpilot und gleichzeitig Goldschürfer. Dafür muss er in einer Meteroiten Hölhe mit seinem Raumschiff die Goldnuggets einsammeln. Die Zeit in der Hölhe ist aber begrenzt. Wieviel Nuggets schaffts du aus der Hölhe? Solltes du es schaffen 15, 30, 45,.. Nuggets einzusammeln, bekommst du nochmal extra Zeit vom Boss um noch mehr zu sammeln. 

Aber hüte dich von den Hölhenwänden, wenn du diese berührst zieht der Boss dir einen Nugget vom Lohn für die Reparatur des Raumschiffes ab.

English

=======

Clint is a hardened space pilot and gold prospector. To do this, he has to collect gold nuggets in a meteorite cave with his spaceship. The time in the cave is limited, however. 

How many nuggets can you get out of the cave? If you manage to collect 15, 30, 45,... nuggets, you get extra time from the boss to collect even more. But beware of the cave walls, if you touch them, the boss will deduct a nugget from your wages for repairing  the spaceship.

Variables

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

a = Hilfsvariabele

d = Position Spaceship

h = Highscore

o = Zäher für Zeitbonus

p = aktuelle Punktzahl

ti = Timer

u = aktueller Timerstand

x(x) = x Position Nugget x

y(x) = y position Nugget x

z       = Timer

a$ = Tastaturabfrage

Lines

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

0 fOa=.to4:x(a)=int(rN(1)*15)+20:y(a)=int(rN(1)*10+10):c$(a)="Q":nE:ifp>htHh=p

Zufällige Startposition der ersten Goldnuggets, Zeit auf 60 Sekunde und Highscore check.

Random Starting position of the first gold nuggets, time set to 60 seconds and high score check.

1 o=1:?"{clear}{reverse on}{blue-green} space prospector/haegar {reverse off}":?:?" {red}hi: ",h:vO6:d=15:u=ti:coL0,1:coL4,1

Bonuszähler setzen, Überschrift, Highscore anzeigen und Lautstärke auf 6, Position Raumschiff, Timer kalibrieren, Rahmen und Hintergrund schwarz.

Set bonus counter, Headline, show high score and volume to 6, position spaceship, calibrate timer, frame and background black.

2 p=0:fOa=1to36stE3:chA,a,8,"{brown}{162}{162}{162}{down}{left}{left}{left}{orange}{184}{163}{183}":sO1,a,6:char,a,20,"{orange}{175}{162}{185}{down}{left}{left}{left}{brown}{184}{184}{184}":next

Punkte wieder auf Null, Hölhe zeichnen und Sound spielen.

Set points back to zero, draw a hole and play sound.

3 fOa=.to4:x(a)=x(a)-1:ifx(a)=0tHgoS8

Neue x Position Nugget und prüfen ob am Ende der Höle angekommen. Wenn ja zur Unterroutine in Zeile 8.

New x position nugget and check if it has reached the end of the cave. If so, go to the subroutine in line 8.

4 char,x(a),y(a),"":?"{yellow}";c$(a);" ":nE:j=joy(1):ifj=1tHd=d-1:eLifj=5tHd=d+1

Setzt Nuggets an neuer Position, Joystickabfrage für das Raumschiff.

Places nuggets at new position, joystick query for the spaceship.

5 ifd=8tHd=9:p=p-1:eLifd=19tHd=18:p=p-1:eLchar,4,d,"  {down}{left}{left}{dark-blue}{191}{blue}{162}{down}{left}{left}  "

Check Position Raumschiff und setzt dies. Wenn Hölenwand, dann Punkte -1.

Check position of spaceship and set this. If cave wall, then points -1.

6 ifpeek(3072+40*(d+1)+6)=81tHp=p+1:sO3,500,10:ifp=15*otHu=u+1800:o=o+1:sO1,1,10

Prüfen ob ein Nugget vor dem Raumschiff ist, wenn ja Punktzahl um eins erhöhen und Sooouuund abspielen :-), Genug Nugget für Zusatzzeit? Wenn Ja Zusatztzeit und nochmal SOUUUUNND.

Check if there is a nugget in front of the spaceship, if so, increase your score by one and play SOOOOOUND :-), Enough nuggets for extra time? If so, add extra time and play again SOOOOOUND.

7 char,1,5,"":?"poi:",p:?" ti:  ",60-int((ti-u)/60);"{left} ":if(ti-u)<3600gO3:eLgO9

Gibt aktuelle Punktzahl und Stand Timer aus. Ist die Zeit abgelaufen Sprung zum Ende.

Displays current score and timer status. When time is up, jump to the end.

8 char,x(a)+1,y(a)," ":x(a)=int(rN(1)*3)+34:y(a)=int(rN(1)*10)+10:reT

Unterroutine, altes Nuggel löschen, neue Position für ein Nugget.

Subroutine, clear old nugget, new position for a nugget.

9 char,9,22,"{green}again y/n":fOs=.to500step5:sO1,s,1:nE:pO239,0:gEkEa$:ifa$="y"tHgO0

Ende, Sound, nochmal?

End, sound, again?