Munchy (VIC20) by Masterware Entertainment

Munchy von Rainer Kappler (Masterware Entertainment)

fuer Commodore VC-20 Grundversion

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

Januar 2025

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

Spielbeschreibung:

Munchy liebt es Pilze zu fressen. Daher versucht er auf seinem Weg durch den Pilzwald, so viele weisse Pilze wie moeglich zu erwischen.

Doch es gibt auch viele giftige, rote Fliegenilze die er nicht fressen darf, weil sonst das Spiel beendet ist.

Der Bildschirm scrollt stetig von rechts nach links, bei dem die Geschwindigkeit mit fortschreitender Spieldauer, immer schneller wird.

Steuerung:

W -> oben

X -> unten

Listing:

1 poke36879,8:f=30720:print"{clear}{black}8{cm c}{reverse on}{cm v}{cm v}{reverse off}888@8{cm d}{reverse on}:{cm s}{reverse off}888@<{cm u}{reverse on}{cm a}{sh space}{cm a}{reverse off}{cm u}<@<{cm v}{reverse on}{cm b*3}{reverse off}{cm v}<@*@{reverse on} {reverse off}e@{reverse on}p{reverse off}a$"
2 fori=0to39:poke7168+i,peek(7680+i):next:fori=0to7:poke7424+i,0:next:poke36878,15:poke36869,255:goto10
3 print"{clear}":fori=0to21:poke38444+i,3:poke38664+i,3:poke7724+i,230:poke7944+i,230:next:p=7834
4 print"{home}{reverse on}{white}score"sc:a=int(rnd(1)*9):b=int(rnd(1)*2):c=7767:pokec+f+22*a,1+b:pokec+22*a,b:ifsp<0thensp=0
5 fort=0tosp:next:ifpeek(197)=9thenp=p-22
6 ifpeek(197)=26thenp=p+22:rem munchy (c) 2025 by rainer kappler
7 print"{home}{down*3}";:fori=0to8:printtab(1)chr$(20):next:poke36875,0:ifpeek(p)=1orpeek(p)=230thenpokep+f,7:pokep,4:goto10
8 ifpeek(p)=0thensc=sc+1:poke36874,180:fort=0to20:next:poke36874,0
9 a=rnd(.)*2:pokep+f,7:pokep,2+int(a):sp=sp-.3:goto4
10 print"{home}{reverse on}{white}"tab(13)"game over":poke198,0:wait198,1:sc=0:sp=100:goto3

Programmbeschreibung:

1. Bildschirm schwarz und Zeichen fuer Grafikdaten nach Bildschirm loeschen darstellen.

2. Grafikdaten einlesen, Laustaerke auf maximum, Grafikmodus einschalten und zu Zeile 10 springen. 

3. Bildschirm loeschen und Spielfeldbegrenzung zeichnen. Variable fuer Bildschirmposition von Munchy setzen.

4. Aktuellen Score in erster Zeile anzeigen und einen geniessbaren oder Fliegenpilz, in der 22. Spalte zeichnen.

5. Warteschleife und Taste "W" fuer Bewegung nach oben abfragen.

6. Taste "X" fuer Bewegung nach unten abfragen. Credits.

7. Neun Zeilen von rechts nach links scrollen und Abfrage ob roter Fliegenpilz oder Wand gefressen wurde, dann Spielende.

8. Wenn ein geniessbarer Pilz gefressen wurde, Score um eins erhoehen und Fressgeraeusch ausgeben.

9. Animation von Munchy. Geschwindigkeit erhoehen.

10. "Game Over" anzeigen, warten auf Tastendruck, Score auf null und Geschwindigkeit auf 100 setzen, Sprung zu Zeile 3.