treasure c7:3Oe7qFrom the book 'Instant Arcade Game For The Sinclair ZX Spectrum' by Jean Frost for PAN BOOKS.  1983 ********************** * TREASURE TRAIL * ********************** # (*********************** 2* INITIALISE SPECTRUM * <*********************** FJv$(8,2,8):n$(11 ,10 ):o$(3,20) P@r$(36$,6):a$(5,2,10 ):p(5) Zbfood=0:batteries=0:mn=0:key=0:crystal=0:md=0:k=0 _lost=0:won=0 d********************** 1200 1000 1400x:nr=1 2000 " 2500 J3000 :quit rlegal4000  5000 lostwon250 lost6000p won6100 !"Do you want another game ?";u$ &#u$(1)"n"u$(1)"N" 0  INSTRUCTIONS  6:0:7: 00,3;"T R E A S U R E T R A I L" '2,7;" 1983, Jean Frost" A,,"YOU ARE IN THE DUNGEONS OF GORM,AND YOU ARE SEARCHING FOR A" $08;4;1;"CROWN OF EMERALDS" .7" THE COMPUTER UNDERSTANDS THE FOLLOWING VERBS:-",, 8N=18 B(12 );V$(N,1):N L"PRESS 'ENTER' TO START";U$ V `M"THERE ARE HIDDEN HAZARDS IN THE DUNGEONS WHICH YOU WILL HAVE TO OVERCOME." j!"THERE IS AN EVIL FORCE IN THE" o "DUNGEONS, AND IT DRAINS YOUR" t""STRENGTH, BUT IF YOU ARE LUCKY" y!"ENOUGH TO FIND THE MAGIC FOOD" ~!"YOU MAY SURVIVE":food=1 !'" ALSO ONLY YOUR TORCHLIGHT" !"STOPS THE GOBLINS FROM EATING" #"YOU, AND BATTERIES ONLY LAST 15" *"MINUTES! GOOD LUCK!":batteries=1 "PRESS 'ENTER' TO START";U$   Assign inventories  n=18 v$(n,1),v$(n,2) n n=111 n$(n) n n=13 o$(n) n n=15 a$(n,1),a$(n,2) n j"GO","1234","TAKE","6789AB","OPEN","5","EAT","6789AB","RUN","","FIGHT","","TELEPORT","","THROW","6789AB" `"NORTH","SOUTH","EAST","WEST","DOOR","KEY","EMERALD","FOOD","BATTERIES","MAGIC DUST","CRYSTAL" ("TROLL","MONSTER","SHIMMERING CURTAIN"  ["DAMP","MISERABLE","COLD","DARK","SCARY","OPPRESSIVE","SMALL","GLOOMY","LARGE","DRAUGHTY"  x y Create Maze z -:10 ,10 ;1;"PLEASE WAIT" strength=100d time=0 crown=(*36$)+1 (player=(*36$)+1:x=player crown=player1430 'r=(*4):r<21455 r=21550 r=31650r  l$="O":key>0l$=l$+"D" crystall$=l$+"S" #l=l$:r=(*l)+1:p$=l$(r) p$="D"key=key-1 !p$="S"crystal=crystal-1  y=crown-x Hy>5r$(x,4)=p$:x=x+6:r$(x,3)=p$:1540 Iy<-5r$(x,3)=p$:x=x-6:r$(x,4)=p$:1540 _y>0x/6ɺ(x/6)r$(x,5)=p$:x=x+1:r$(x,6)=p$:1540 Hy>0r$(x,4)=p$:x=x+6:r$(x,3)=p$:1540 sy<0(x-1)/6ɺ((x-1)/6)r$(x,6)=p$:x=x-1:r$(x,5)=p$:1540 Hy<0r$(x,3)=p$:x=x-6:r$(x,4)=p$:1540 xcrown1440  #1800:r$(crown,1)="E"  r$(crown,2)="M"  7:0::  Deposit object  l$="N" >.5l$=l$+"K" >.6l$=l$+"C" ">.6l$=l$+"M" '>.73333l$=l$+"F" ,#l=l$:r=(*l)+1:p$=l$(r) 6p$="K"key=key+1 @!p$="C"crystal=crystal+1 Jp$="M"md=md+1 Tr$(x,1)=p$ ^ r sDeposit hazard t |l$="N" >.5l$=l$+"T" #md>0>.8Ll$=l$+"M" #l=l$:r=(*l)+1:p$=l$(r) p$="M"md=md-1 r$(x,2)=p$    Finish maze   'b$="NFKNKCMFBN":h$="NTMN":l$="ODSW" n=136$ m=36 !@r$(n,m)=" "r=(*4)+1:r$(n,m)=l$(r):1900l &m +n<7r$(n,3)="W" 0n>30r$(n,4)="W" 5+n/6ɺ(n/6)r$(n,5)="W" :?(n-1)/6ɺ((n-1)/6)r$(n,6)="W" ?Ar$(n,1)=" "r=(*10 )+1:r$(n,1)=b$(r) D@r$(n,2)=" "r=(*4)+1:r$(n,2)=h$(r) In N l mComplementary Doors n v4m=3n>6r$(n-6,4)=l$(r): 5m=4n<31r$(n+6,3)=l$(r): Am=5n/6ɺ(n/6)r$(n+1,6)=l$(r): Um=6(n-1)/6ɺ((n-1)/6)r$(n-1,5)=l$(r):   Describe room  nr2050 !rk=(*4)*6+1 0n=(*5)+1:m=(*5)+1 -"YOU ENTER A ";a$(n,1)'a$(m,2); )l$=" CAVE.":>.5l$=" PASSAGE." l$ Hnr=0:"YOU SEE: ";:l$=r$(player,1):m$=r$(player,2) l$="N"m$="N""NOTHING"  $l$="C"9 ;"A SHINY CRYSTAL" *l$="E"9 ;"THE CROWN OF EMERALDS" $l$="M"9 ;"SOME MAGIC DUST" l$="F"9 ;"SOME FOOD"  #l$="B"9 ;"SOME BATTERIES" %Jl$="K"9 ;"A ";:"LARGE RUSTY GOLDENWOODEN"(rkrk+5);" KEY" */m$="T"9 ;"A SMELLY TROLL":mn=1 /2m$="M"9 ;"A HIDEOUS MONSTER":mn=1 4m=36 >l$=r$(player,m) MQl$="S""THERE IS A SHIMMERING CURTAIN OFENERGY TO THE ";n$(m-2,6) QAl$="O"l$="D""THERE IS A DOOR TO THE ";n$(m-2,6) Rm \  Player input  "WHAT NEXT ?";u$ u$=""2510 A6;"WHAT NEXT ?";u$,:u$22űu$46,  ( )Search for string * ,.q$(q$)=" "q$=q$(̱q$-1):2604, -q$>s$2635K 2q=1:q1=q$ <#s$(qq+q1-1)=q$2640P F#q+q1DZs$q=q+1:2620< K q=0 P  Legal input?  v=0:rf=0 legal=0:quit=0 1s$=u$:q$="QUIT":2600( :qquit=1: n=1 *u$(n)" "n4v<8legal=1: N   t=0 .dir=1player>6t=player-6 /dir=2player<31t=player+6 @dir=3ƺ(player/6)player/6t=player+1 Tdir=4ƺ((player-1)/6)(player-1)/6t=player-1   Convert $ to number  c$"A"c=c$-557: c$=" "c=0:  c=c$: t uReverse direction v ~*dir=2dir=4d=dir-1: d=dir+1:  Perform instruction  rf=0:ok=0 4000+100d*v okrf=15 1mn=1rf11 rf<16rf=16   Go   mn=1 dir=n Lr$(player,dir+2)="O"ok=1:3500 :player=t:nr=1: 4rf=3:r$(player,dir+2)="D"rf=4  h iTake j mmn=1 r0r$(player,1)n$(n,1)rf=5: |1ok=1:n=9 time=0:4240 %i=n-5:i>3i=i-1 p(i)=p(i)+1 r$(player,1)="N"   Open  mn=1 "p(1)<1rf=7:  s$=z$:ld=0:dir=0 i=14:q$=n$(i) 2600( :q>0dir=i &r$(player,i+2)="D"ld=1 i dirrf=13 :  ldrf=8: +r$(player,dir+2)"D"rf=15: r$(player,dir+2)="O" -3500 :3700t:r$(t,d+2)="O" !7p(1)=p(1)-1:k=-1:ok=1 & 0********************** 1* EAT FOOD * 2********************** 5mn=1 :%y=n-5:y>3y=y-1 Dp(y)<1rf=9 : Nn8rf=10 : X4ok=1:p(y)=p(y)-1:strength=1000 b ********************** * Run * **********************  dir=0 &r$(player,2)="N"rf=0: 4d=25:r$(player,d)="O"dir=d-2 d dir=0rf=19: 3500 :player=t rf=17: ********************** * FIGHT * ********************** mnrf=0: :r$(player,2)="N":strength=strength-(*100d)  rf=18: \********************** ]* TELEPORT * ^********************** a*nr=1:player=(*36$)+1 fstrength=strength-200 prf=15: ********************** * THROW * ********************** %y=n-5:y>3y=y-1 p(y)<1rf=9 : p(y)=p(y)-1 LOOK FOR TARGET  m=1 %q$=o$(m):2600( :q4840 $m=m+1:m34825 m=4m=0 o=m:p(y)=p(y)-1 0md=1:n<10 md=0:4860 =o<3r$(player,2)="N":ok=1:mn=0: 'rf=13 :o<3rf=12 : s$=z$:dir=1 q$=n$(dir):2600(  5q=0dir=dir+1:dir<54870 dir=5rf=14: Wr$(player,dir+2)="O":3500 :3700t:r$(t,d+2)="O":ok=1:  ********************** * Response section * ********************** g=5200P+10 *rf:g #p(2)=1won=1: lost food5100 <strength=strength-30:strength>5005100 ;strength>400"YOUR STRENGTH IS FADING":5100 =strength>300,"YOU ARE GETTING VERY WEAK":5100 _strength>200"YOUR STRENGTH IS EBBING FAST - YOU CAN'T GO ON MUCH LONGER":5100 Kstrength>100d"IF YOU DON'T EAT SOON, YOU'VE HAD IT!":5100 Cstrength>0"YOU'RE ON YOUR LAST LEGS, MATE!!";:5100 /"YOU HAVE DIED OF EXHAUSTION":lost=1: batteries time=time+1 xtime>150"YOUR TORCH HAS GONE OUT","THE GOBLINS EAT YOU AND PICK","THEIR TEETH WITH YOUR BONES":lost=1:  ^time>100d"YOUR BATTERIES WILL ONLY LAST",((150-time)/10 );" MINUTES MORE"  P "WHAT?!!": Z "I DO NOT KNOW THE VERB ";s$: d"YOU CANNOT ";w$;"THE";z$: n"YOU CANNOT GO ";z$: x"THE DOOR IS LOCKED": "I SEE NO ";z$;" HERE": "BUT YOU DO NOT HAVE A KEY": *"THERE IS NO LOCKED DOOR TO OPEN HERE":   "YOU DO NOT HAVE THE ";n$(n): >"YOU EAT THE ";n$(n)'"YOU CHOKE TO DEATH!!!":lost=1: L"YOU THROW THE ";n$(n)'"AT THE ";o$(o)'"HE EATS IT AND LAUGHS, HA HA HA": >"YOU THROW THE ";n$(n)'"I HOPE THAT MADE YOU FEEL BETTER";: "WHICH DIRECTION?": <"THERE IS NO SHIMMERING CURTAIN TO THE ";n$(n,6): 5500|: 5600: "YOU RUN BLINDLY": Z"YOU FIGHT THE BEAST, YOU SMASH IN HIS SKULL. HE VANISHES IN A PUFF OF GREASY SMOKE": 4"YOU CANNOT RUN - THE ENTRANCES ARE ALL CLOSED": | "YOU ";u$ !k"BUT THE KEY ";:r=*2 kr1"BREAKS" 4kr<1"GETS STUCK, YOU MUSTLEAVE IT BEHIND"  K=0  md"THE ";o$(o);" DISAPPEARS"  md=0  1"YOU TRY TO ";u$;'"BUT YOU ARE ATTACKED BY THE" r=(*5) tr$(player,2)="M""GHASTLY HORRIBLEBIBULOUSHIDEOUS SADISTIC"(r*8+1r*8+8);" MONSTER" r$(player,2)="T""OBNOXIOUS STINKING DISGUSTINGFLATULENT LOATHSOME "(R*10 +1R*10 +10 );" TROLL" 1r=(*100d)+100d:strength=strength-r $r$(player,2)="N":mn=0 Zstrength<1"YOU ARE TOO WEAK TO KILL HIM, HERENDS YOU TO MINCEMEAT":lost=1 &Ostrength>0"YOU SMASH HIM TO A SMEAR - HIS BLOOD SOAKS INTO THE DUST" 0 p********************** q* YOU LOST * r********************** zB2;7;" YOU HAVE LOST THE GAME BAD LUCK!!!"  ********************** * YOU WIN * ********************** ގ4;0;1;,," CONGRATULATIONS - YOU HAVE"," RECOVERED THE FABULOUS"," CROWN OF EMERALDS"," WELL DONE!!!",,, &n=-10 30:.05|L,n:n  ooatterieerystakoso 8trengt4imrowlaye#xri!lyPOB NFKNKCMFBNHNTMN4vegauiqc gZit#dWTAKE C9SLIGHTZTQTHROWMNLWևGO 1234 TAKE 6789AB OPEN 5 EAT 6789AB RUN FIGHT TELEPORT THROW 6789AB s NORTH SOUTH EAST WEST DOOR KEY EMERALD FOOD BATTERIES MAGIC DUSTCRYSTAL ATROLL MONSTER SHIMMERING CURTAIN $ k DAMP MISERABLE COLD DARK SCARY OPPRESSIVESMALL GLOOMY LARGE DRAUGHTY U