Remember 20 by Masterware Entertainment

Remember 20 von Rainer Kappler (Masterware Entertainment)
fuer Commodore VC-20 Grundversion

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

Februar 2021

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

Spielbeschreibung:

Remember 20 ist eine Variante des Spiel "Senso", daß im englischen Sprachraum unter dem Namen "Simon" bekannt ist.
Das Spielfeld besteht aus den vier Farben cyan, lila, gruen und blau. Jeder Farbflaeche ist eine Nummer zugeordnet, die in der Mitte
der Farbflaeche steht, die kurz verschwindet, waehrend ein Ton wiedergegeben wird. Ziel ist es, sich die Reihenfolge der Toene 
zu merken und mit der jeweiligen Nummerntaste nachzuspielen. Mit jeder Runde kommt ein weiterer Ton dazu, den du dir merken musst. 
Oben links, wird die Runde angezeigt in der du dich gerade befindest. 
Kannst du das Spiel gewinnen, indem du alle 20 Tonfolgen nachspielst?

Listing:

1 print"{clear}{white}":s=36876:pokes+3,8:bi(0)=7688:bi(1)=7835:bi(2)=7849:bi(3)=7996:f=30720:dimk(19):ma=19
2 pokes+2,15:pokes,0:forx=0to3:fort=0to6:fori=0to6:pokebi(x)+i+f+t*22,3+x:pokebi(x)+i+t*22,160:next
3 next:pokebi(x)+69,177+x:next:ru=0:x=rnd(-ti):fori=0toma:x=int(rnd(1)*4):k(i)=x:next:pl=0
4 forg=0topl:pokes,130+10*k(g):pokebi(k(g))+69,160:fort=0to500:next:pokes,0:pokebi(k(g))+69,177+k(g):next
5 print"{home}{white}"pl+1:geta$:ifa{{ APP_CONTENT }}lt;"1"ora{{ APP_CONTENT }}gt;"4"then5
6 y=val(a$)-1:ify<>k(ru)thenpokes-2,140:fort=0to500:next:pokes-2,0:print"{home}{white}lost":poke198,0:wait198,1:run
7 pokes,130+10*k(ru):pokebi(k(ru))+69,160:fort=0to500:next:pokes,0:pokebi(k(ru))+69,177+k(ru)
8 fort=0to1000:next:ifru=mathenprint"{home}{white}won!":poke198,0:wait198,1:run
9 ifru=plthenru=0:pl=pl+1:goto4
10 ru=ru+1:goto5:remember 20 (c) 2021 by rainer kappler

Programmbeschreibung:

1. Bildschirm loeschen, Bildschirm schwarz. Variablen festlegen.
2. Lautstaerke auf 15. Spielfeld zeichnen.
3. Reihenfolge der nachzuspielenden Toene festlegen und speichern. Variablen fuer das Spiel zuruecksetzen.
4. Bisherige Anzahl der Toene abspielen und visuell darstellen.
5. Runde anzeigen und Tastatur abfragen.
6. Ueberpruefen ob der aktuell nachgespielte Ton falsch ist und wenn ja, Verlierertext anzeigen. bei Tastendruck, Neustart des Spiels.
7. Aktuellen Ton nachspielen und visuell darstellen.
8. Warteschleife und wenn alle Runden erfolgreich bewaeltigt wurden, dann Gewinnertext anzeigen. bei Tastendruck, Neustart des Spiels.
9. Wenn letzter Ton der jeweiligen Runde erreicht, den Rundenzaehler auf null setzen und Counter fuer Anzahl der zu spielenden Toene erhoehen.
10. Runde um eins erhoehen und zurueck, damit der naechste Ton abgefragt werden kann. Credits.