ZXTape!LONDON mj Great Fire of London 1982 Phipps Associates :: d 7000X  ls=limit 8000@:8300l T#f;0,0;145;" zeigt den 1.Brand"'"Fortsetzung: Taste druecken"; ñ1030  7800x L*23672x\,0:23673y\,0 &7500L:s<1a5000 tm-s>47800x m$=:ñm$2500 dm=m-lm:lm=m :dx=(yx>1)*(m$="5")*-1+(yx<31)*(m$="8") :dy=(yy<20)*(m$="6")+(yy>1)*(m$="7")*-1 c=(yy+dy,yx+dx) *c-(c/8)*8road 2500  yy,yx;clr;clr;t;y$ yy=yy+dy:yx=yx+dx  yy,yx;clr;clr;t;y$ 4m$"f"2200 >%b=water:7600:v2500 H8y=07:y,1;water;bg;144:y R w=8 \ 2500 m$"p"2300 w=w-10-1 7-w,1;bg;" " ]b=fire:7600:vy,x;road;fg;" ":m$="GLUG.":7700:q=q+1:a=a-1 w:w=0  2500 @x=*30>dm:xww=w-1:7-w,1;clr;" " (r=(limit-s)/limit *1a=-1a=0:y=ply:x=plx:2700 ->(a-4)2000 2Tx=1+(plx-15*r+*30*r):y=1+(ply-r*10 +*20+r) <7x<0y<0x>31y>192000 F1c=(y,x):c-(c/8)*8fg2000 0y,x;fire;road;f$:m$="FEUER!!!":7700 a=a+1 2000  end game 0x=30-30-1:.005y# =,x:x >m$="OK, OK, heb den Finger auf!":7700:5005 7800x:502 a>15100 W#f;0,0;t;"BRAVO!";f;" Du hast alles geloescht!"'"London ist gerettet!"  5500| R#f;0,0;"Du hast ";q;" Feuer geloescht"'"aber ";a;" brennen lassen!" ?a<10 #f;2,0;"London wird das ueberleben!" Ka10 a20#f;2,0;"London ist voellig ruiniert!"  >a>20#f;2,0;"London? Nie gehoert davon." | 0 8m$="Noch ein Spiel?":9000(#:¯a$="J"1000  9999' X initialise bh(x=(xx)=(x/256) ll(x=x-2x)=x-256*h(x) vt=1:f=0 s=f  8100 limit=120x )6:6:2::7300 E144;f;;" Das Grossfeuer von London ";2;144  7300 ږ4,0;" Du hast ";limit;" Sekunden Zeit, um"'"das Feuer zu loeschen, das in"'"Pudding Lane ausgebrochen ist."'"Aber es greift um sich..." ~"Benutze zur Bewegung die Kursor-"'"Tasten, ""f"", um den Eimer zu"'"fuellen, und ""p"", um ihm am"'"Brandherd auszuleeren." "Ungluecklicherweise schwappt"'"desto mehr Wasser aus dem Eimer,"'"je schneller Du laeufst. Die"'"Anzeige oben links zeigt Dir,"'"wieviel Wasser Du noch hast." "Du kannst den Eimer nur fuellen,"'"wenn Du direkt an der Themse"'"stehst, und nur Feuer in Dei="'"ner unmittelbaren Umgebung"'"loeschen." .m$="Fortsetzung: Taste druecken":9000(#  _:"Ein Eimer kann bis zu acht"'"Feuer loeschen. Achte darauf,"'"wieviel Wasser Du noch hast." s"Du kannst nur auf den Strassen"'"und der Asche der verbrannten"'"Haeuser laufen, darfst aber"'"Ecken schneiden."  l"Die Geschichte geht ihren eige="'"nen Gang - aber hier hast Du"'"eine reelle Chance, sie zu"'"aendern..." * 9000(# 4 2:6: $x=132 :144;:x  L show time Q'm=23672x\+256*23673y\ Vs=limit-(m/502) `'21,28;clr;fg;t;s;" "; j sls.10}L,-8:ls=s t check for object  7500L 2x=yx-1yx+1:y=yy-1yy+1 :yyyxyxc=(y,x):v=(b=(c-(c/8)*8)):v y:x:v=0   messages  7800x (#f;1,0;m$; 2tm=s < xclear message #f;0,0,,,,  @ draw map EPbg=4:fg=0:road=6:water=5:clr=8:fire=2 Jbg:fg:bg: T<water:y=023:0,y:255,0:y ^ road:bg h6x=32 47/:x,0:0,175:x r6y=2439':0,y:255,0:y |;y=120x135:255,y:-208,0:y :x=168183:x,175:0,-96`:x 7x=96`111o:x,40(:0,80P:x x=015:x+240,40(:-196-x,64@+x:x:y=015:480,y+104h:207,-64@:y  special characters  3 Q"a",170,85U,170,85U,170,85U,170,85U S"b",195,231,126~,60<,60<,126~,231,195 P"c",24,36$,66B,255,255,126~,60<,60< n 6x=1n:c$:y=07:r:c$+y,r:y:x  l tidy screen qplx=11 :ply=13 vply,plx;2;145 y$=146:f$=144 yx=22:yy=0 yy,yx;t;y$ )21,23;clr;fg;t;"Time:"; /0,0;fg;">";7,0;">" 2dm=f:lm=f:tm=f:w=f:s=f:q=0:a=0 a=-1  #(input #2(m$);" ";a$:end=ña$ #<8x=1̱a$:a$(x)=(a$(x)-32 *(a$(x)"a")):x #F ' tfsn<#r}Ccimixnoaatelirl l qamc bvYFMNoch ein Spiel?AN