atoz (VIC 20) by Masterware Entertainment

Atoz von Rainer Kappler (Masterware Entertainment)

fuer Commodore VC-20 Grundversion

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

Januar 2024

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

Spielbeschreibung:

Du bist Atoz und isst fuer dein Leben gern Buchstaben. Vertragen kannst du sie aber nur, wenn du sie in alphabetischer Reihenfolge zu dir nimmst. Von daher ist das Spiel zu Ende, wenn du die alphabetische Reihenfolge nicht einhältst, oder einen Mauerstein isst. 

Hast du alle Buchstaben gegessen, geht es im nächsten Level etwas schneller weiter.

Steuerung:

W -> oben

A -> links

D -> rechts

X -> unten

Listing:

1 fori=0to7:poke7424+i,0:next:print"{clear}{home}{black}<{cm v}{reverse on}{sh +}{cm b}=C{reverse off}{cm +}<@{reverse on}{cm f*3}{reverse off}@{reverse on}{?*3}{cm b}{reverse off}":fori=0to15:poke7168+i,peek(7680+i):next:l=1::g=100
2 poke36869,255:poke36878,15:poke36879,8:print"{clear}{down}{red}aaaaaaaaaaaaaaaaaaaaaa";:fori=0to18:print"a"spc(20)"a";:next
3 print"{red}aaaaaaaaaaaaaaaaaaaaaa{home}":pl=7725:f=30720:pokepl,0:pokepl+f,3:p=0:d=0:k=0:s=36876:fori=0to25
4 a=int(rnd(1)*417):ifpeek(7724+a)<>32then4
5 poke7724+f+a,1:poke7724+a,129+i:next
6 a(0)=17:r(0)=-1:a(1)=18:r(1)=1:a(2)=9:r(2)=-22:a(3)=26:r(3)=22:print"{home}{reverse on}{white}l:"l;" sc:"sc
7 fori=0to3:ifpeek(197)=a(i)thend=r(i):rem atoz (c) 2024 by rainer kappler
8 next:iflc=1orlc>k+129thenprint"{home}{reverse on}{yellow}"tab(28)"game over":poke198,0:wait198,1:run
9 iflc=k+129thensc=sc+1:k=k+1:pokes,180:ifk=26theng=g-10:l=l+1:fort=0to600:next:pokes,0:lc=0:goto2
10 lc=peek(pl+p+d):pokepl+p,32:pl=pl+d:pokes,0:pokepl+f,3:pokepl+p,0:fort=0tog:next:goto6

Programmbeschreibung:

1. Bildschirm loeschen und Grafikzeichen einlesen. Level und Geschwindigkeit setzen.

2. Grafikmodus und Bildschirmfarbe festlegen. Bildschirm loeschen und Rahmen 

3. aus Mauersteinen setzen. Variablen setzen. Per Zufallsgenerator

4. die Buchstaben von A bis Z 

5. auf dem Spielfeld verteilen.

6. Variablen fuer Tastaturbelegung und Richtungen setzen. Level und Score anzeigen.

7. Tasten abfragen. Credits.

8. Wenn falschen Buchstaben oder Mauerstein gegessen, Game Over anzeigen. Wenn Taste gedrueckt, Programm neu starten.

9. Ist der richtige Buchstabe gegessen worden, Score und Counter um eins erhoehen.  Wenn alle gegessen wurden, Geschwindigkeit erhoehen. Warteschleife, Ton ausgeben und naechsten Level starten.

10. Letztes Zeichen speichern, Spielfigur loeschen und bewegen. Ton ausgeben, Warteschleife und zurueck zur Hauptschleife.