ZXTape! ALIEN CITYNGcNHprogrammed by:- Pirate Computing 1.4.87 7alien city adventure BIG K, NO.2, MAY 1984 locations 4a$(13 ,8):a=113 :a$(a):a "sinister","smallish","big,blue","low,dark","freezing","torchlit","spacious","wet,dank","greenish","red-hued","cavelike","standby","teleport"  6: directions 2b$(7,5):a=17:b$(a):a (1"out","up","down","west","east","north","south" 0 5: 1 objects 25c$(21,13 ):a=121:c$(a):a <}"guard","cyclops","sign","transmat","bag of canvas","ticket","goblin","video unit","digital watch","aardvark","can of coke" F"mars bar","space manual","ring of gold","key of bronze","pile of bones","broken video","wrecked watch","heap of bones","empty can","sweet wrapper" K 4: Odescriptions P5d$(15,32 ):a=115:d$(a):a Z"a dark tunnel, stretching away.","a pass between high rocky crags.","a dusty trail,leading to a bend.","thick dust,undisturbed for years","footprints. Someone's been here!","stalagtites & snow. It's chilly!" c 3: d"a sign. 'BEWARE OF THE CYCLOPS!'","a narrow path over a sheer drop.","an unused area,thick in cobwebs.","an eerie glow from the next room","a message: 'KILROY WAS HERE!'","an armed guard at the exit." if"a transmat device operating here","some rickety-looking stairs here","a mean-looking cyclops here." mje ne comprends pas n3e$(6,32 ):a=16:e$(a):a x"I beg your pardon?","What ARE you talking about?","I don't understand what you mean","What? Sorry, I don't know that.","I can't make any sense of this!","Want to try that again?" } 2: set up colours *p(13 ):a=113 :p(a):a i0,1,5,0,5,0,6,1,4,3,0,6,2 *i(13 ):a=113 :i(a):a i7,7,1,4,1,3,0,5,0,6,5,3,6 1: verbs 4v$(23,3):a=123:v$(a):a "get","go ","loo","inv","put","dro","des","dri","exa","ent","hel","ope","run","eat","bac","tal","qui","fig","kil","att","rea","giv","wea" cyclops graphic a=07 b:"a"+a,b b:"b"+a,b b:"c"+a,b b:"d"+a,b b:"e"+a,b b:"f"+a,b b:"g"+a,b b:"h"+a,b a 7,192,32 ,8,167,199,72H,36$,4,64@,65A,132,168,37%,80P,20,5,64@,146,18,16,16,80P,20 4,64@,169,169,19,144,80P,20,4,64@,40(,37%,36$,72H,80P,20,7,192,164,69E,36$,72H,112p,28 2,128,228,71G,40(,40(,144,18,31,240,244,79O,40(,40(,240,30 set up arrays etc &i$(30):236099\,40( *hisco=0:z(z)=(*z)+1 introduction N1:1::5:7;" WELCOME TO ALIEN CITY":502 Ҡ'"INSTRUCTIONS":502:"We're lost in a series of rooms and must find a way to escape. Give me instructions and I'll domy best to help, but be as brief" ܄"as possible (mostly, one or two word orders). I found some itemslying around you may want to collect. Some look more valuable" "than others. I also found that going back the way I came won't normally return me to the room Iexpected.It's an endless warren." d150:"SCORING":502:"Notice how the score changes as you investigate.HISCORE is total" a"score divided by total moves, sobuild the score up as quickly aspossible for maximum HISCORE." /200:6;"I'm Eddie. Who are you?" [p$:p$>10 6;21,0;"No more than 10 letters please":270 p$=""p$="Mega-Idiot" E6;21,0;"OK, ";p$;", let's go! ":502 !initial values "Oh=0:sco=0:m=0:w=0:r=0:f=0:s=1 'h(24):cm=z(30) +location set up ,5z=z(12 ):z=12 sco<200300, 6z=wr=1:400 ;s=1-s*(z<12 ) @If(4):d(7):b(2):w=z:f>30f(4)=1 Jm=cmf(3)=1 T3y=13:d(z(5)+1)=1 ^?sd(2)=0:d(3)=0:d(6)=1 h#y:w>11 d(1)=1 m+d(2)d(3)f(1)=1 rf(2)=0+12 *(w=12 )+13 *(w=13 )+14*(f(1)-f(3))+15*f(3):f(2)=f(2)-w*(f(2)>15):f(2)390 |f(2)=z(11 ) Ab(1)=z(15):b(1)<5b(1)=0 4000:7:0 Er11 ,0;"Still in the ";a$(w);" room, with":430 611 ,0;"I'm in a ";a$(w);" room. There's" .d$(f(2)):g=0+1*d(1) E"Exits are":c=10 :y=17:d(y)=0460 13 ,c;b$(y) ‹c=c+5*(y=1)+4*(y=2)+6*(y>2y<6)+7*(y>5):c>10 13 ,c-2;",":c=c-g "y:"Looking around me I can see" Yl=15:b(1)=0b(2)=0l,0;" nothing else " ,x=12:b(x)=0510 b=0:y=b(x):680 +bl,2;"another ";c$(y):505 :y=10 y=20l,4;"an ";c$(y):505 l,4;"a ";c$(y) l=l+1:22;" " x:530 "What's next then, ";p$;"?" S18,0;"What shall I do now, ";p$;"?":.03{u\,20:f=f+1 input routine i$:b=0:n=0 &2l=1921:l,0;31;" ":l 0$2;19,0;"> ";i$ :%i$(23)=" "600X ?Kf(3)f(3)=f(3)+1:f(3)>32420t D?x=123:i$(3)=v$(x)900+x*100d I%x:i$(5)="eddie"2560 Ne$(z(6)):520 Xi$(1)="i"1300 bDy=17:i$(1)=b$(y,1)n$=b$(y):1140t ly:1280 uobject trap ve=d20 *i$(e)=" "n$=i$(de-1):660 e object verification 0y=121:n$=c$(y,(e-d))670 y:n=1: x=1b=1: object held? )o=124:h(o)=yb=1: o: get %d=5:630v:b1020 y=221280 )y<5"Don't be silly!":520 Qf(4)h>20"I'm worn out.I must rest a while":40(:1050  1060$ jc=0:o=127:20,c;"z":c=c+1:10 :o:20,c;" ":100d $'x=13:b(x)=y10808 .8x:20,0;"I don't see a ";c$(y):520 8o=124:h(o)=0h(o)=y:20,0;"I now have the ";c$(y):"What do you want to do now?":3050 B?o:20,0;"I can't carry anything else":520 Kgo Ln$=i$(48) V)y=17:n$=b$(y)1140t `Gy:i$(47)="back""I'm going back":502:1170 j-"Go where? I can't go that way!":520 td(y)1155 ~&"There is no exit ";b$(y):520 "w=12 y=11630^ >"I'm going ";b$(y):r=0:f(3)cm=z(30)+m Rx=18:.03{u\,-30:2:.03{u\,-40(:2:x $m=m+1:y=11190  300, #w=12 z=13 :315;  3800 look Gd=6:i$(67)="at"d=9 :630v:1220  1280 b1250 n1280  1290  !"I am examining the object and" -y>4y<11 2160p+y*10 ("it is definately a ";c$(y):530 +"Do what? Please be specific.":520  I"I can't find that. I don't thinkI picked that up.What now?":530  inventory 4:4::0 4h>15'"I am weighed down with:":1320( )'" I have with me:"''" nothing at all" (6l=3:c=0:p=20:o=124 2h(o)=01370Z <0h(o)=10 l,c;"an ";c$(h(o)):1360P Fl,c;"a ";c$(h(o)) P.02{# =,p:p=p-1 Z0c=0o=o+1:c=16:13302 dc=0:l=l+1:o i2h>15''"..and my arms are getting tired!" nQ21,0;"Press any key to continue...":0:r=1:400 wput x%d=5:630v:b1430 n1280  1290  9c=e+327:i$(cc+2)="bag"1450 )c:"Put it in what, ";p$;"?":530 2"With pleasure, ";p$;"!":h=h+1:520 drop 6i$(4)="p"d=6:630v:b1530 n1280  1290  t=0:x=120 .005y# =,t:t=t-1:x %y=8y=9 h(o)=y+9 Tx=12:b(x)=0b(x)=h(o):"OK, ";p$;". What's next?":3070 "$x:1570"+z(2)*10 ,M"Oh dear, it's gone down a deep hole, out of reach! What now?":3070 6P"It's disappeared! An invisible gremlin has stolen it! What now?":3070 ? describe @@i$(45)="cr"d=10 :630v:b1250 Jn1280 T 1290  ^H"The way is barred by the guard.":y=6:680:b1650r h."He won't let me pass. What now?":530 rN100d:20,0;"The guard takes my ticket and lets me pass." |Qh(o)=0:sco=sco-y*2:h=h-1:y=1:4140,:1165  drink @i$(45)="nk"y=11 :680:b1720 )"I'm not carrying any thing":520 Of=0:f(4)=0:"Mmm! I feel better now!":"Ready to move on?"  3080  examine Ai$(47)="mine"d=9 :630v:b1250 n1280  1290  k enter l1i$(45)="er"w=13 3800 v?i$(710 )="exit"w=12 y=1:1170 8i$(5);" what? I don't see anything.":520 help 5:5:1: Ol=0:c=2:y=16:6;l,c;"HELP":c=c+5:y 8'"Here are some of the words I canunderstand, ";p$;":" '"north (n)";15;"go";21;"drop":'"south (s)";15;"get";21;"look":'"west (w)";15;"put";21;"open" '"east (e)";15;"eat";21;"help":'"up (u)";15;"run";21;"drink":'"down (d)";15;"inventory (i)" )'"...and plenty more besides!":7 Isco<502m>5'"Remember! A map won't help here!":2095/  ?sco<200'"Keep collecting items of value!":2095/ %y=6:680:b2090*  1'"There's still something to find!":2095/ *#'"Keep on looking. You're close!" /K'1;" Press any key to continue...":0:r=1:400 3open 46i$(4)="n"d=6:630v:b2130R >%i$(d11 )="sesame"2650Z Cn1280 H1290  REy=4y=11 "The ";c$(y,(e-d));" is now open":520 \!y=8y=9 2160p f"I can't do that!":520 pP"The ";c$(y,(e-d));" is open."'"I have a pile of junk. What now?":3080 run *x=17:d(x)y=x:1160 x  examine +"There's a lot of room inside":530 /"It's a teleport ticket to Earth!":530 '"He says 'LEAVE ME ALONE'":530 ,"Top of the Pops is on! Great!":530 /"The time is apparently ";w;".0";x:530 ."It squeals. It isn't very happy":530 eat %d=5:630v:b2330 n1280  1290  qy=7y=10 "The ";c$(y,(e-d));" is not very tasty.":"It would be better cooked. Next?":3080 $y=12 1720 ."Don't be silly!":520 _back ` 1170 j'"I don't have any weapons":520 t#f(3)y=2:2440 ~y=1:f(3)=5 +f(3)>4x=2:2460 x=0 >l=021:x;l,0;31;" ":10 :l 1x:x::7:f(3)<52810 Q12 ,10 ;"The ";c$(y);13 ,2;"strikes back and kills you!" 3830 talk @i$(4)="k"d=9 :630v:by<32530 *i$(9 13 )="eddie"2560 n1280 1290  Oy=1y=7y=10 "I don't think he understands me.":520 Uy=2f(3)=f(3)+1:"He looks pretty threatening!":520 E"You'll have me talking to trees next! Be serious, now.":530 E.01z# =,30:.01z# =,30:"Huh? What? Sorry, ";p$;"," ""I wasn't listening. What's up?"  530 'quit (&i$(45)="t "2620< 2 1280 <;l=10 21:2;l,0;31;" ":l F62:6:13 ,8;"Replay option:" P#3820+20*(sco=0) Z1;" OPEN SESAME! " dy=114 n-z(8)-1:.01z# =,z(30) xy:0:7 @20,0;"Nice try, but nothing happened.":520 fight %i$(45)="ht"d=7 630v:b2750 n1280 y<32420t 1290  ;"I'm not ";i$(e-1);"ing this poor mite":520 kill 2410j S12 ,10 ;"The ";c$(y);13 ,2;"knocks you unconscious with a" 9 ;"single blow!" -h(24):sco=0:cm=z(30)+m R100d:16,3;"It's sometimes before you":10 ;"recover..." -100d:" ...and you have been robbed!" "*100d:r=1:f(3)=0 ,Cf(2)=0+14*f(1)+w*(f(1)):400 S attack Td=8:2710 read 6i$(4)="d"d=6:630v:b3020 1280 y13 1250 L"It's a travel catalogue.It seemsthere is a teleporter nearby!":530 score updates :h=h+1:b(x)=0:y<16sco=sco+y*2 4140,:470 /h(o)=y:h(o)=0:h=h-1:3090 h(o)=y+9 y<16sco=sco-y*2 4140,:470 give %d=6:630v:b3130: &n1280 0 1290  :]i$((e+4)(e+8))=c$((1+1*(f(3)>1)),5)3150N D 1280 N"y=6w=12 1650r X'"You give him the ";c$(y):3070 wear 6i$(4)="r"d=6:630v:b3230 n1280 1290  ,y=5y=9 y=143250 "Don't be silly!":520 5"OK. What shall we do now?":h=h-1:530 ;l=10 21:2;l,0;31;" ":l F2:6:1;13 ,6;" WE'RE GOING HOME! ": kT=.5:P=-30:y=160<:t,p:t=t-.005y# =:p=p+1:y:0:3830 [sco=(sco/m):15,4;"Your final score is: ";sco:.05|L,20:502 6sco>hisco" A new HISCORE! Well done!":hisco=sco  ,502:'" Another go, ";p$;"? (y/n)" =""3860 ="y"3900< ( ="n" 2 3860 <" Same player? (y/n)" A""3905A F=""3910F P="y"290" Z="n"3950n d 3910F n#" Do you want instructions?(y/n)" s""3955s x=""3960x ="y"200 ="n"260  3960x  screen set up 1:7:7: Wl=09 :p(w);l,0;" ";2;" ":l {2;6;1,26;"HISCO";3,26;"SCORE";5,26;"MOVES";7,26;"PANIC" xi(w):63?,156:73I,0:0,-40(:-73I,0:0,40(:-557,18 136,156:557,19:63?,116t:-557,-19:136,116t:557,-19:4030+z(2)*7 34",97a:39',18:60<,97a:23,18:86V,97a:8,18:112p,97a:-8,18:139,97a:-24,18:165,97a:-39',18 0y=17:d(y)4050+y*10  4120 2p(w);i(w);3,10 ;"EXIT":4120 3p(w);i(w);3,9 ;"STAIRS":4115 k23,102f:0,47/:25,-4:0,-34":-25,0:4120 l176,102f:0,47/:-25,-4:0,-34":25,0:4120 cf(1)87W,120x:0,15:16,0:0,-15:4120 q79O,116t:0,26:33!,0:0,-26:80P,120x:32 ,0 y: "xf(3)p(w);2;4,15;""'5,15;""'6,15;""'7,15;"" ,n2;6;2,27;hisco;4,27;sco;6,27;m;8,26;"OVER" 1Kf(3)2;6;1;8,26;"NOW!!":0 6 ',enter'GO TO 9999'to auto-save program 'W:"Alien City"10 :"REWIND AND PLAY TO VERIFY":"Alien City":'"VERIFIED OK.": m sinistersmallishbig,bluelow,darkfreezingtorchlitspaciouswet,dankgreenishred-huedcavelikestandby teleport(out up down west east northsouth guard cyclops sign transmat bag of canvasticket goblin video unit digital watchaardvark can of coke mars bar space manual ring of gold key of bronzepile of bonesbroken video wrecked watchheap of bonesempty can sweet wrapper a dark tunnel, stretching away. a pass between high rocky crags.a dusty trail,leading to a bend.thick dust,undisturbed for yearsfootprints. Someone's been here!stalagtites & snow. It's chilly!a sign. 'BEWARE OF THE CYCLOPS!'a narrow path over a sheer drop.an unused area,thick in cobwebs.an eerie glow from the next rooma message: 'KILROY WAS HERE!' an armed guard at the exit. a transmat device operating heresome rickety-looking stairs herea mean-looking cyclops here.  I beg your pardon? What ARE you talking about? I don't understand what you meanWhat? Sorry, I don't know that. I can't make any sense of this! Want to try that again? D D Jgetgo looinvputdrodesdriexaentheloperuneatbactalquifigkilattreagivweab! ischcmwrfs z gcnPdon{ & o