Alien CityG GBGHprogrammed 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.":