The Game
--------------------------------------------------------------------------------------------
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.
Program start
--------------
How do I load the game?
Tape: Type LOAD "space prospector" and press Return
Disk: Type Dload "space prospector" and press Return
Emulator: Select the file "space prospector.prg"
then type RUN
Variables
--------------
a = auxiliary variable
d = spaceship position
h = high score
o = time bonus counter
p = current score
ti = timer
u = current timer reading
x(x) = x position of nugget x
y(x) = y position of nugget x
z = timer
a$ = keyboard query
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
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
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
Set points back to zero, draw a hole and play sound.
3 fOa=.to4:x(a)=x(a)-1:ifx(a)=0tHgoS8
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
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 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
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
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
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
End, sound, again? | Das Spiel
--------------------------------------------------------------------------------------------
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.
Programm starten
--------------
Wie Lade ich das Spiel
Tape: type LOAD"space prospector" und drücke Return
Disk: type Dload"space prospector" und drücke Return
Emulator: Wähle die Datei "space prospector.prg" aus
anschließend RUN eintippen
Variablen
--------------
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.
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.
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.
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.
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.
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.
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.
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.
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.
9 char,9,22,"{green}again y/n":fOs=.to500step5:sO1,s,1:nE:pO239,0:gEkEa$:ifa$="y"tHgO0
Ende, Sound, nochmal? |
