Desert Race (VIC20) by Masterware Entertainment
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.