A downloadable game

Desert Race von Rainer Kappler (Masterware Entertainment)

für Commodore VC-20 Grundversion

https://www.facebook.com/rainer.kappler.5

Februar 2023

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


Spielbeschreibung:

Du fährst mit deinem Rennwagen durch die Wüste und musst eine Kollision mit den Kakteen vermeiden.

Mit der Zeit wird das Auto immer schneller.

Steuerung: A <- links, D -> rechts

Listing:

1 print"{clear}{black}wait...":cs=6144:fori=csto7678step2:z=peek(32768+(i-cs)/2):pokei,z:pokei+1,z:next
2 poke36879,255:poke36867,(peek(36867))or23:poke36869,254:poke36881,24:fori=0to47step2:reada
3 poke6144+i,a:poke6144+i+1,a:next:data16,186,254,186,56,170,254,186,0,216,219,219,123,30,24,24
4 data42,0,160,5,0,144,1,36:print"{clear}":f=30720:c=7702:au=7954:sp=0:sc=0:poke36878,15
5 pokeau+f,6:pokeau,0:poke36874,128+int(sp/10):sp=sp+.3:ifsp=>100thensp=100
6 a=int(rnd(1)*22):pokec+f+a,5:pokec+a,1:fort=0to100-sp:next:pokeau,32:print"{home}{down}{left}"chr$(148)
7 poke218,peek(218)or128:ifpeek(197)=17thenau=au-1:ifau<7944thenau=7944
8 ifpeek(197)=18thenau=au+1:ifau>7965thenau=7965
9 ifpeek(au)<>32thenpokeau+f,2:pokeau,2:fort=15to0step-.1:poke36878,t:next:poke198,0:wait198,1:goto4
10 print"{home}{black}score"sc:sc=sc+1:goto5:rem desert race (c) 2023 by rainer kappler

Programmbeschreibung:

1. Bildschirm löschen und "wait..." anzeigen, Zeichensatz kopieren.

2. Bildschirmfarbe festlegen, Grafikmodus einschalten und Daten für neue Zeichen einlesen.

3. Daten für neue Zeichen.

4. Daten für neue Zeichen. Bildschirm löschen und Variablen festlegen. Lautstärke auf 15.

5. Auto zeichnen, Motorengeräusch nach Geschwindigkeit festlegen und erhöhen. Wenn Maximum erreicht, dann Wert halten.

6. Kaktus an zufälliger Position zeichnen, warten, Auto löschen und nach unten scrollen.

7. Taste "A" abfragen und wenn erste Spalte erreicht, dann Position halten.

8. Taste "D" abfragen und wenn Spalte 22 erreicht, dann Position halten.

9. Prüfen ob das Auto mit einem Kaktus kollidiert ist. Wenn ja, langsam die Lautstärke auf null heruntersetzen, danach bei Tastendruck das Spiel neu starten.

10. Score anzeigen und um eins erhöhen. Sprung zurück zu Zeile 5. Credits.

StatusReleased
Rating
Rated 4.0 out of 5 stars
(1 total ratings)
AuthorBASIC 10Liner
GenreRacing
Tagsbasic, basic10liner, Commodore 64, VIC-20

Download

Download
desert race.d64 170 kB
Download
desert race.prg 671 bytes
Download
Desert Race.txt 2.5 kB

Install instructions

Programm laden mit WinVice (VC-20 Emulator xvic):

Einstellungen -> VIC20-Einstellungen -> Keine Speichererweiterung

Datei -> Disk Image einlegen -> Drive 8 -> desert race.d64

Tippe “LOAD “DESERT RACE”,8 ein und Return druecken.

Wenn das Programm geladen wurde, "RUN" eintippen und Return druecken.

Leave a comment

Log in with itch.io to leave a comment.