Alzan - c-ZX SPECTRUM ADVENTURE : Die Stadt Alzan : *********************** : J7:7:9 ::7500L:7500L:23658j\,8 Bs(10 ):c(5):room=1:p$(2,2):o(o) x=1o:o(x)=q(x):x  ds(2)200 n+c(2)c(2)=c(2)-1 xs(3)200 m;"Es ist dunkel. Sie sollten bes- ser fr etwas Licht sorgen,","sonst knnte es Schwierigkeiten geben." +c(3)c(3)=c(3)-1 1000 Raumbeschreibung  8000@+room*10 , f=0 6 x=1o @o(x)room500 Jf400 T,,"Ferner gibt es hier:" ^ f=1  " ";o$(x) x Befehls-Verarbeitung  t=1  2000 L+c(1)c(1)=c(1)-1 V+c(4)c(4)=c(4)-1 ` ,,">" jy$ t ~ y=0  ">";y$ p$(2)="00" w=12  6000p yȱy$1300 p$(w)="00"1210 w p$(1)"00"1600@  "Pardon?" ( 100d @7Feststellen, ob Stand- ortsnderung erfolgen muss J z=1 Tt$=m$(room,zz+1) ^t$="00"1900l ht$p$(1)1700 r&room=(m$(room,z+2z+3)) | 100d  z=z+4  1620T l t=0 vmatch=0 9Feststellen, ob Beding-ungen erfllt werden muessen  cp=0 4cp=cp+1 >t2300 H e$=c$(cp) R 2600( cpa2400` match1000 "Sie knnen nicht"; 1(p$(1))<13 " diesen Weg","gehen"; $"." . 100d `)a$(cp,2)p$(1)21004 jy$=a$(cp,34) t$y$"00"y$p$(2)21004 ~e$=a$(cp,5) ($Abfragen der Bedingungstabelle 2 e=1 e$(e)="."3000 type=(e$(e))-65A n=(e$(e+1e+2)) 2900T +type*10 ok21004  e=e+3  2700 Tok=(n=room): ^ok=(o(n)=roomo(n)<0): hok=(o(n)roomo(n)0): rok=(o(n)<0): | ok=s(n): ok=(s(n)): ok=(c(n)=1): #ok=(((*100d)+1)n): "Durchfhren der Aktio- nen match=1 e=e+1 e$(e)="."21004 &type=(e$(e))-65A 01e$(e+1)"."n=(e$(e+1e+2)) break=0 4000+type*100d breakbreak e=e+3 3100  "Sie tragen:"  F=1  x=1o o(x)04070  " ";o$(x)  F=0 X f" nichts." break=100d:  s(1)<54140, !"Sie knnen nicht mehr tragen!" break=100d: ,o(n)=-14180T 60o(n)=-1:s(1)=s(1)+1: T"Sie haben es bereits." ^ 4120 ho(n)=-14240 r"Sie haben es nicht" |break=100d:  o(n)=room s(1)=s(1)-1   7000X+n*10  0s(n)=1: s(n)=0: !c(n)=(e$(e+3e+4)) e=e+2: \-x=o(n):o(n)=o(n+1):o(n+1)=x:  o(n)=room: $-o(n)<0s(1)=s(1)-1 .o(n)=0:  room=n: " Okay.":break=1000: Pbreak=1000: break=1100L: break=100d: |"Sind sie sicher?" w$:w$ ¯w$"J"5400  9999' p$Schlsselwort abtren-  nen z w$(4) p$(w)="00":6600 end  q=14:w$(q)=y$(y)  6500d end6100 q  6500d end6080  w$=" "  q=1v w$=v$(q,3)62008 q  8p$(w)=v$(q,2): d y=y+1 n end=(y>y$) xend end=(y$(y)=" ")   y=y+1  end=(y>y$) end y$(y)=" "6600  XAktionsmeldungen b~1:7::"Ach du liebe Gte. Sie mssen","die Pest im Grab bekommen haben.Sie sind vermutlich schon tot.": l10 ;1;1;"---WHOOSH---":"El Grabbo, der Dieb der Stadt","schnappt sich ihr Geld und","verschwindet im dichten Nebel!": vP"""Haltet den Dieb"" ruft der","Platzanweiser, aber sie knnen","entkommen.": #"Der Deckel ist bereits offen.": 4"Es kostet mehr, als sie auf-","bringen knnen.": "Sehr wohl, mein Herr.": *"Der Kanaldeckel lsst sich","ffnen.": &"Der Kanaldeckel ist verschlossen": 0"Der Ladenbesitzer ist grsser","als sie...": @"Sie brauchen eine Leiter, um","ber diese Mauer zu kommen.": "Was fr ein Geistesblitz!": ڦ"Sie berwltigen heimlich","die Wachen und knnen sich","noch ein Bndel Banknoten","schnappen. Keiner hat etwas","gemerkt (Lustiges Vlkchen,","diese Alzaner).": /"Sie haben alles genommen, was","hier war.": "Ich sehe keine Lampe...?": 7"Das Kino ist fr einen privaten","Zweck gemietet.": L#x=07:y:""+x,y:x V#x=07:y:""+x,y:x `#x=07:y:""+x,y:x q00100100$,0,001110008,00000100,00111100<,01000100D,00111100<,0 u00100100$,0,001110008,01000100D,01000100D,01000100D,001110008,0 (]00101000(,0,68D,68D,68D,68D,001110008,0 ? @Standortsbeschreibungen J7;1;1;1;6;"Willkommen in Alzan":,,"Sie mssen die Mauern berwindenum aus dieser Stadt von Dieben","und Halsabschneidern zu entkom-","men.": T"Sie sind in der Hauptstrasse","vor einem Kurzwarenladen. Die","Hauptstrasse verluft in Ost-","West-Richtung. Eine kleine","Gasse fhrt neben dem Laden","nach Norden.": ^y"Sie sind im Laden. Der Laden-","besitzer sieht verschlagen aus,","aber er hat viele schne Waren","im Schaufenster.": h"Sie sind in einer schmalen Gas-","se hinter den grossen Husern.","unter einer Feuerleiter stehen","viele volle Mlltonnen.": rN"Sie sind auf der Feuerleiter,","sie fhrt zu einer Tr in den","Husern.": |B"Sie sind ber eine versteckte","Treppe in den Laden gelangt.": C"Sie befinden sich auf Schleich-","wegen zwischen den Husern.": ^"Jetzt sind an der Stadt-","mauer. Hier befindet sich eine","unbenutzte Tr in der Mauer.": !"Sie sind an einer Kreuzung.": ^"Sie sind an der Stadtmauer. Der","Nebel ist so dick, dass sie","nicht weit sehen knnen.": "Sie strzen von der Mauer -","genau auf die See-Klippen 100","Meter tief unten. Macht nichts!","vielleicht haben sie nchstes","Mal mehr Glck.": !"Sie sind an der Stadt-Bank.": ["In der Bank befinden sich viele","Wchter, die ziemlich gelang-","weilt dreinschauen.": j"Sie sind in einer Sackgasse","angelangt, doch da befindet","sich ein Kanaldeckel in der","Strasse...": i"Sie sind in einer kleinen","Nische unterhalb der Einstiegs-","ffnung. Ein Gang fhrt nach","Sden.": b"Der Gang fhrt zu einer alten","Grabsttte, in der viele Ske-","lette verstreut herumliegen.": "Der Platzanweiser will sie","nicht hineinlassen, da das Pro-","gramm bereits angefangen hat.","Er versperrt ihnen den Weg mit","seiner Taschenlampe.": N"Sie sind vor dem Kino. Der","Lrm von Schssen dringt aus","dem Inneren.": 6:6::1;1;2''"*** HERZLICHEN GLUECKWUNSCH ****":''"Sie konnten aus der Stadt","fliehen. Das ist wirklich ein","seltener Fall. Gut gemacht!": #' #( Adventure-Ladeprogramm #2 #<"Zahl der Objekte:" #Fo:q(o):o$(o,24) #x x=1o #"Nr. ";x;" in Raum: "; # q(x):q(x) #"Beschreibung:", #o$(x):o$(x) #x # #S:"Zahl der Schlu";8;1;"""";"sselwo";8;1;"""";"rter:" #v:v$(v,6) $x=1v:v$(x):v$(x):x $S $T/:"Zahl der Ra";8;1;"""";"ume:" $^r:m$(r,32 ) $hx=1r:m$(x):m$(x):x $ $:"Zahl der Bedingungen:":C $c=c+1:c$(c,21) $&x=1c-1:c$(x):c$(x):x $ c$(c)=".N." % %+:"Zahl der Aktionen:":a:a$(a,31) %&x=1a:a$(x):a$(x):x % o 6:   Eine brennende Fackel Eine Fackel Eine Leiter Ein Hammer Ein Hammer Ein Buendel Banknoten Kanaldeckel Ein Sack Naegel Eine Eintrittskarte Eine ungehobelte Leiter Etwas Holz  v++01N 01NORD02O 02OSTE03S 03SUED04W 04WEST05H 05HINA06T 06HINU13NEHM14STEL14WERF15HINE15EINT16RAUS16WEGG16VERL17FACK18LEIT19HAMM20BANK20GELD22SACK22NAGE23KART05DURC05DRUE29OEFF29HOCH30MACH30BAUE31ZUEN31EINS32KAUF33HOLZ34STEH34RAUB35LIST36AUFH37SCHAre 00 01040209041800 00 0202050500 0604010700 00 0108030500 030700 011202100314040200 040900 00 0209041800 00 010900 031600 011500 00 0112020200 00 c oofteypnatcreayn +z//1317B01.B01E03L. 1317A17C01C02.I02B02D03K18E10O.3218B03.D05N. 1319B05.B05L. 1320B06.B06L. 2900A14E07.D04N. 2900A14.E07M. 1322B08.B08L. 1323B09.B09L. 1417B01.C01F03L. 1417B02.C02L. 1419B05.C05L. 1420B06.C06L. 1422B08.C08L. 1423B09.C09L. 0500A10C10.D10M. 0500A08C10.D10M. 0500A10.K11O. 0500A08.K19O. 0500A15.F02K14O. 0600A14.E02K15O. 3100D02.H01E03L. 3100B01.D11N. 3219B04B06.H04J06B05L. 3219B04B09.H04D06B05M. 3000B05B11B08.D12I10J08J11M. 1333B11.B11L. 1433B11.C11L. 1500A02.K03O. 1500A12.K13O. 1500A18F10.K17O. 1600A03.K02O. 1600A13.K12O. 1600A17.K18O. 1500A05.K06O. 3400A03.D09M. 3400A13E08.D14M. 3400A13.E08D13I06B06M. 1500A18E10.D16M. 1318B10.B10L. 1418B10.C10L. 1318B03.D09M. 1317B02.B02L. 3500.A. 3600.P. 3700.O. 5000.N.  A01.K02O. A16H30.G0121. G01.D01Q. B06H10.D02J06. A14E07.D07N. A14F07.D08N. A11.Q. A19.Q. A06.K03O. .N. 5  0500: HINAT00Y00EA19.Q.