Silo by Masterware Entertainment

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

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

Januar 2021

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

Programm laden mit WinVice (VC-20 Emulator xvic):

Einstellungen -> VIC20-Einstellungen -> Keine Speichererweiterung

Datei -> Disk Image einlegen -> Drive 8 -> silo.d64

Tippe “LOAD “SILO”,8 ein und Return druecken.

Wenn das Programm geladen wurde, "RUN" eintippen und Return druecken.

Spielbeschreibung:

Kolonisten wollen einen Planeten besiedeln und haben Silos mit Getreide errichtet. Gefraessige Monster wollen jedoch an das Getreide heran und greifen unentwegt die Silos an. Du bist zum Schutz eines dieser Silos beauftragt worden, und musst die Monster daran hindern, indem du sie mit einem kleinen Ein-Mann-Abfangjaeger angreifst. Per Tastendruck startest du, und mit einem weiteren, wird eine Bombe abgeworfen. Bei jedem Treffer, bekommst du einen Punkt gutgeschrieben. Hat ein Monster das Getreide erreicht, endet das Spiel.

Listing:

1 clr:px=7:print"{clear}{black}@{reverse on}{cm f*3}{reverse off}@{reverse on}{?*3}{cm b}{cm y}={cm p};{cm b}U{cm b}{reverse off}>{cm y}{reverse on}{cm b}{reverse on}/{reverse off}g{reverse on}/{cm b}{reverse off}{cm v}{cm u}{sh asterisk}{reverse on}{cm a}{reverse off}{cm v}{reverse on}{cm a}{reverse off}{sh asterisk}{cm u}@{cm d}8(8(8p@":f=30720:fori=0to39
2 poke7168+i,peek(7680+i):next:fori=0to7:poke7424+i,0:next:b$="{yellow}{a*5}{red}@":s=75:v=36876:pokev+2,15
3 print"{clear}{down}":poke36879,8:poke36869,255:print"{red {@*6}":fori=0to17:printb$:next:fori=0to21:print"@";:next
4 print"{home}{white}{reverse on}sc"sc:y=int(rnd(1)*18):z=y*22:x=21:b=7745+x+z:pokeb,2:pokeb+f,3:p=7708:pokep,3:pokep+f,1:g=0
5 c=peek(b-1):pokeb,32:b=b-1:pokeb+f,3:pokeb,2:fort=0tos:next:x=x-1:ifc=0thenpokeb,32:pokep,32:px=7:goto4
6 ifc=1thenprint"{home}{reverse on}game over      ":fort=255to0step-.1:pokev,t:next:poke198,0:wait198,1:run
7 ifg=1andpx>7andpeek(197)<>64then9:rem silo (c) 2021 by rainer kappler
8 pokep,32:p=p+g:px=px+g:pokep+f,1:pokep,3:get a$:on-(a$="")goto5:g=1:goto5
9 ifpx<>xthenfort=22to420step22:pokep+f+t,1:pokep+t,4:fori=0to25:next:pokep+t,32:next:goto5
10 fort=1toy+2:pokep+f+t*22,1:pokep+t*22,4:fori=0to25:next:pokep+t*22,32:next:sc=sc+1:pokep,32:px=7:goto4

Programmbeschreibung:

1. Grafikdaten. Variable fuer Farbspeicher. Einlesen der Daten.
2. Einlesen der Daten. String fuer Silo. Variablen festlegen und Lautstaerke auf 15 setzen.
3. Bildschirm loeschen. Bildschirm schwarz und Grafikmodus einschalten. Silo und Boden zeichnen.
4. Score anzeigen. Zeile fuer das naechste Monster per Zufallszahl ermitteln.
5. Hintergrund abfragen und Monster bewegen. Warteschleife.
6. Wenn Monster das Getreide beruehrt "Game Over" anzeigen und Spiel beenden. Ton ausgeben und bei Tastendruck das Spiel erneut starten.
7. Pruefen ob Bombe bereits geworfen, wenn ja dann Sprung zu Zeile 9
8. Abfangjaeger bewegen oder nicht und auf Tastendruck warten. Zurueck zur Hauptschleife.
9. Die Bombe faellt auf den Boden, ins Leere.
10. Die Bombe trifft das Monster und Score wird um eins erhoeht. Variablen setzen und zurueck zu Zeile 4.