Mein Beitrag zum Basic- 10- liner Wettbewerb 2020. Kategorie: Pur- 120.
Alle Wettbewerbsbeiträge: Offizielle Seite
Für interessierte gibt es einen Artikel auf meinem Blog in dem ich mich mit der Frage beschäftigt habe, wie das Spiel den einzuordnen sei. Wer jetzt denkt, ganz klar, das ist doch ein Rennspiel, falsch gedacht......Ausserdem findet man dort noch ein paar technische Informationen und Vergleiche zu ähnlichen Projekten aus der guten alten Zeit.
Den Blog Eintrag gibt es da: RetroZock 10Liner 2020
Getestet mit Atari800MacX v5.0.1 und auf der original Hardware, einem Atari800XL.
Disk- Image mit eingeschaltetem Basic booten. Das Spiel starten: RUN "D:RACER2.BAS"
Im Emulator unter den Einstellungen den USB- Joytick als "Joystick 2" anmelden. Am originalen Atari 800XL/ XE den Joystick an Port 2 anschließen.
Die Rennbahn scrollt von unten nach oben, halten Sie ihre Rennwagen auf der Straße. Wenn die Straßenbegrenzug berührt wird, dann ist das Spiel aus. Versuchen Sie die weiteste Strecke zurückzulegen. Ihr Ergebniss wird ihnen nach jedem Rennen auf dem Startbildschirm angezeigt. Mein Rekort liegt bei 774 Meilen.
Viel Spass!
Zeile 33: Dort wird die Breite der Rennstrecke im Spielverlauf verkleinert. Der Ausdruck B=B-((B>8))*0.05 bestimmt die minimale Bereite der Strecke.Der Faktor 0.05 legt den Änderungsfaktor fest, der bestimmt, wie schnell die minimale Breite erreicht wird. Die Variable B wird in Zeile 0 auf ihren Startwert festgelegt.
x=x+(Stick(1)=7) Schlägt zwei Fliegen mit einer Klappe. Stickabfrage und gleichzeitige Änderung der Spieler Koordinaten.
x=((Q>0)) Wenn die Aussage in der Klammer wahr ist, dann entspricht das dem Zahlenwert 1. Wenn nicht, dann 0....
Data- Zeilen Man kann dem DATA- Befehl beliebig BASIC- Befehle voranstellen. Umgekehrt geht es nicht! Also:
9 RESTORE 10
10 Print "Hallo": POKE 34,255:data 3,4,5,3
Funktioniert.
Berthold Fritz, berthold.fritz@hotmail.com