Pluto LoadtyPluto Adventure program 2of3 - Loader by David Knight from ZX Computing Oct/Nov'85 !"Stop The Tape!!!!!":0: ba=211-1:c=110 :c:0,0;" The Pluto Adventure."(a) a ia=211-1:c=110 :c:2,a-1;" By David Peter Knight."(a):a (20,1;1;"____________________" 242,1;1;"_ ________________ ___" <75,0;"Do you want instructions?":0 F="n"9990' P"y"60< ZR:0,4;"Pluto Adventure";0,4;1;"_______________" d3,0;" The year is 2066; a settlement has been discovered below the surface. The Mekon is known to have personally visitedthe settlement in his personal craft. His craft is the latest in spaceship design. You, as thescientist from Earth, cannot pilot any spaceships, except theMekon's deluxe ship. Your mission is to transport to Plutoand come back in the Mekon's ship, leaving the Mekon, stranded in the planet." n'" In the adventure, there are other characters which are either friendly or unfriendly toyou. If you attack someone, he will become unfriendly. If he isfriendly, he will give you a clue. An unfriendly person will attack you on sight." xP0::0,0;"Vocabulary";0,0;1;"_________" !'"NORTH, SOUTH, EAST and WEST." B'"VOCABULARY ...Print up the vocabulary." A'"TAKE, DROP ...Take or Drop an object." $'"QUIT ...Quit program." D'"LOAD, SAVE ...Load or Save present game." %'"EXAMINE ...Examine object" %'"ATTACK ...Attack someone" #'"DRINK ...Drink potion" %'"LOOK ...Describe place" $#0;"Press a key.":0: ' "Pluto" +Pluto 2 2x2yPluto Adventure program 3of3 - Main Program by David Knight from ZX Computing Oct/Nov'85 s$="Data ":6570:ferdo=1000:bill=2000:bill1=0:gasher=3000 :gasher1=0:toronto=4000:toronto1=0:pharto=5000:pharto1=0:mekon=6000p:mekon1=0:ilko=7000X:ilko1=0 23658j\,8 3mekon:ilko:pharto:toronto:gasher:bill:ferdo  23692\,255 (c(1,3)09990'  20  VOCABULARY ''"Vocabulary"''  '"NORTH, SOUTH, EAST and WEST" /'"SAVE, LOAD ...Save or Load the positions." ,'"TAKE, DROP ...Take or Drop an object." &%'"EXAMINE ...Examine an object." 0#'"VOCABULARY ...Print this page." :%'"ATTACK ...Attack a character" D '"DRINK ...Drink potion." N'"QUIT ...Quit game." X2'"INVENTORY ...Print up what you are carrying." b/'"DATA ...Gives data on a character." ''"Press a Key.":0   EXAMINE %x=1̱z$:z$(x)=" "800  x  "Examine WHAT???"   z$=z$(x+1) *=z$(1)="R"o(1,4)=0o$(1)'': 4=z$(1)="K"o(2,4)=0o$(2)'': >Pz$(12)="SC"o(3,4)=0o$(3)'':3750 H=z$(1)="B"o(4,4)=0o$(4)'': R=z$(1)="T"o(5,4)=0o$(5)'': \=z$(1)="P"o(6,4)=0o$(6)'': fFz$(12)="SW"o(7,4)=0o$(7)'': p''"Sorry, can't examine ";z$ z  Ferdo Xq=c(1,5):p=c(1,6):d$(a(q,p,1))'"You see:";:yy=0 fx=17:o(x,4)=qo(x,5)=p10 ;c$(1,o(x,1));:yy=yy+1 x fx=27:c(x,5)=qc(x,6)=p10 ;c$(2,c(x,1));:yy=yy+1 =x:yy=0r=18:8;:r:" "  '"Exits:" *a(q,p,2)=16;"North" *a(q,p,3)=16;"South" )a(q,p,4)=16;"East" )a(q,p,5)=16;"West"  !q=6p=59990' $.gasher1=1gasher1=0:8000@ .,mekon1=1mekon1=0:9000(# 4kq=7p=1"You have Finished!!!"'"Now you can go off in the Mekon's ship!!!":9991' 8*ilko1=1ilko1=0:85004! B*bill1=1bill1=0:9250"$ L0toronto1=1toronto1=0:9500% V.pharto1=1pharto1=0:9750& '"What Now? "; z$ z$'' *z$=z$+" " }I changed the movement checks to: include "cannot"; handle 1-char directions; alter the p/q +/- assignment. [JimG] Xz$(1)="N"''"You";(" cannot"a(q,p,2));" go North"'':p=p-a(q,p,2) (z$(12)="SO"z$(12)="S ")''"You";(" cannot"a(q,p,3));" go South"'':p=p+a(q,p,3): Changed to check 2 chars, as SOUTH & SAVE were being confused. [JimG] {(z$(12)="EA"z$(12)="E ")''"You";(" cannot"a(q,p,4));" go East"'':q=q+a(q,p,4) Wz$(1)="W"''"You";(" cannot"a(q,p,5));" go West"'':q=q-a(q,p,5) z$(1)="T"1500  z$(1)="V"500 'z$(13)="DRO"1750 z$(2)="X"750 (-z$(1)="K"z$(1)="A"2500 2'z$(13)="DRI"3500 <o(1,4)=5o(1,5)=4"As you drop the ring, the statuecomes to life."'"It is the King. He summons his people."'"As a reward, he gives you the Mekon's ship, which was in his room."'"You can escape!!!":9991' ELines 1350/1380/1390/ 1400 had to be changed to use (4) otherwise the spaces puton the end of Z$ at line 1235 stopped the simple comparisons ever being true. [JimG] F!z$(4)="LOOK"4500 Pq=4p=1o(2,4)0'"But you bump into the door, which is locked. You need the key."':p=2 Z'z$(13)="INV"7500L d!z$(4)="QUIT"9991' n!z$(4)="SAVE"5500| x!z$(4)="LOAD"6500d (z$(14)="DATA"2750 ,c(1,5)=q:c(1,6)=p  TAKE &x=1̱z$:z$(x)=" "1600@ x '"Can't take nothing!"'' ? @z$=z$(x+1) Jz$(1)="R"o(1,4)=qo(1,5)=po(1,4)=0:o(1,5)=0:'"Got the Ring"': Tz$(1)="K"o(2,4)=qo(2,5)=po(2,4)=0:o(2,5)=0:'"Got the Key"': ^z$(12)="SC"o(3,4)=qo(3,5)=po(3,4)=0:o(3,5)=0:'"Got the Scroll"': hz$(1)="B"o(4,4)=qo(4,5)=po(4,4)=0:o(4,5)=0:'"Got the Boat"': rz$(1)="T"o(5,4)=qo(5,5)=po(5,4)=0:o(5,5)=0:'"Got the Torch"': |z$(1)="P"o(6,4)=qo(6,5)=po(6,4)=0:o(6,5)=0:'"Got the Potion"': z$(12)="SW"o(7,4)=qo(7,5)=pc(1,4)=c(1,4)+2:o(7,4)=0:o(7,5)=0:'"Got the Sword"': '"Sorry, can't take that."''  DROP &x=1̱z$:z$(x)=" "1800 x "Drop WHAT???"  z$=z$(x+1) Zz$(1)="R"o(1,4)=0o(1,4)=q:o(1,5)=p: &cz$(12)="SC"o(3,4)=0o(3,4)=q:o(3,5)=p: 0Zz$(1)="B"o(4,4)=0o(4,4)=q:o(4,5)=p: :Zz$(1)="T"o(5,4)=0o(5,4)=q:o(5,5)=p: DZz$(1)="P"o(6,4)=0o(6,4)=q:o(6,5)=p: Nz$(12)="SW"o(7,4)=0c(1,4)=c(1,4)-2:o(7,4)=q:o(7,5)=p:  Bill Dq=c(2,5):p=c(2,6):x=(*4)+2 a(q,p,x)=0 fq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(2,5)=q:c(2,6)=p :q=c(1,5)p=c(1,6)bill1=1  ATTACK &x=1̱z$:z$(x)=" "2550 x  z$=z$(x+1) k=0 z$(1)="B"k=2 z$(1)="G"k=3 z$(1)="T"k=4 (z$(1)="P"k=5 2z$(1)="M"k=6 <z$(1)="I"k=7 F*k=0''"I do not understand!!"'': Kbc(k,5)c(1,5)c(k,6)c(1,6)c$(2,k);" is not here!": P#''"You attack ";c$(2,k);"." Zdr=(*12 )+c(1,4):r1=(*13 )+c(k,4):r1>r''"He defends your blow!" dr>r1''"You injure him."'':c(k,3)=c(k,3)-3:c(k,3)<0''c$(2,k);" is dead.":c(k,5)=6:c(k,6)=7 nc(k,7)=-1  &x=1̱z$:z$(x)=" "2800 x  z$=z$(x+1) x=0 z$(1)="B"x=2 z$(1)="G"x=3 z$(1)="T"x=4 z$(1)="P"x=5 "z$(1)="M"x=6 ,z$(1)="I"x=7 6'x=0''"No data available."'': @!'c$(2,x)''h$(x-1)'' J  Gasher Dq=c(3,5):p=c(3,6):x=(*4)+2 a(q,p,x)=0 fq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(3,5)=q:c(3,6)=p <q=c(1,5)p=c(1,6)gasher1=1  DRINK &x=1̱z$:z$(x)=" "3600 x  0z$(x+1)"P"o(6,4)0 ^c(1,3)=c(1,3)+5:c(1,4)=c(1,4)+5 $  Fa=110 :a,0;" ":a 61=,96`:3,0:0,32 :32 ,0:0,-32 :32 ,0:0,32 :32 ,0:0,32 :-160,0:0,-32 :32 ,0:0,-32 :3,0 z32 ,160:0,-6:32 ,134:0,-6:o(2,4)032 ,0 64@,128:0,6:64@,160:0,-6:96`,160:0,-6:96`,134:0,-6:6,0:122z,128:6,0:0,6:128,160:0,-6 22,0;1;"Din HallSta CorrKing" 23,0;1;"Room irs idorRoom" *6,4;1;"Door Bath" #7,12 ;1;"Room" 21,31;" "  0   Toronto Dq=c(4,5):p=c(4,6):x=(*4)+2 a(q,p,x)=0 fq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(4,5)=q:c(4,6)=p =q=c(1,5)p=c(1,6)toronto1=1  LOOK  Pharto Dq=c(5,5):p=c(5,6):x=(*4)+2 a(q,p,x)=0 fq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(5,5)=q:c(5,6)=p <q=c(1,5)p=c(1,6)pharto1=1 { |SAVE 9s$=" ":"Filename to SAVE?";s$(19 ) s$a():s$+"1"o() s$+"2"c():s$+"3"c$() s$+"4"d$():s$+"5"h$()  s$+"6"o$() ''"Data SAVEd " o pMekon zDq=c(6,5):p=c(6,6):x=(*4)+2 a(q,p,x)=0 fq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(6,5)=q:c(6,6)=p ;q=c(1,5)p=c(1,6)mekon1=1 c dLOAD n:s$=" ":"Filename to LOAD? ";s$(19 ) s$a():s$+"1"o() s$+"2"c():s$+"3"c$() s$+"4"d$():s$+"5"h$()  s$+"6"o$() W XIlko bDq=c(7,5):p=c(7,6):x=(*4)+2 la(q,p,x)=0 vfq=q+(x=4)-(x=5):p=p+(x=3)-(x=2):c(7,5)=q:c(7,6)=p :q=c(1,5)p=c(1,6)ilko1=1 K L INVENTORY V''"You are carrying :" `8x=17:o(x,4)=0c$(1,x) jx ? @ MEET GASHER J''"Gasher attacks you." Tr=(*12 )+c(1,4):r1=(*13 )+c(3,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." ^ r>r1''"You defend his blow." h !4 MEET ILKO !>''"Ilko attacks you." !Hr=(*12 )+c(1,4):r1=(*13 )+c(7,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." !R r>r1''"You defend his blow." !\ #( MEET MEKON #2''"The Mekon attacks you." #<r=(*12 )+c(1,4):r1=(*13 )+c(6,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." #F r>r1''"You defend his blow." #P $" MEET BILL $,Zc(2,7)=1''"Bill says: ""You need the key to enter the castle""."'': $6''"Bill attacks you." $@r=(*12 )+c(1,4):r1=(*13 )+c(2,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." $J r>r1''"You defend his blow." $T %MEET TORONTO %&Xc(4,7)=1''"Toronto says:""Drop the ring at the King's feet""."'': %0''"Toronto attacks you." %:r=(*12 )+c(1,4):r1=(*13 )+c(4,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." %D r>r1''"You defend his blow." %N & MEET PHARTO & Yc(5,7)=1''"Pharto says: ""Go to the King's bedroom to escape"".": &*''"Pharto attacks you." &4r=(*12 )+c(1,4):r1=(*13 )+c(5,4):r1>rc(1,3)=c(1,3)-5:''"You are injured." &> r>r1''"You defend his blow." &H '''"You are DEAD!!!" 'a=1100d:a:0:,,,,,,,,,,,,,,,,,,,,,,,,:"Another go?";a$: FOR without NEXT, so I added"NEXT a". [JimG] 'a$="Y"10 ' "Sure?";a$:a$="N"10 '  Data  !2 !&&)-)3!')))%3  "!!!!!!4.5  #%(0 $$$*,,,1 $$$+,/,Data 1       Data 2          Data 3i +kRing Key Scroll Boat Torch Potion Sword Ferdo Bill Gasher TorontoPharto Mekon Ilko Data 4E G 5@You are in the ruins. All around you, buildings collapse. You are in the dining room. You see Ilko's rocket. It is empty. You're in the hall. A door is to the south. There is a table. You are on a staircase. There are walls to the north andsouth. You are in a corridor. Open doors are to the East and South. You are in the King's bedroom. The Mekon's ship is here. You're in the castle gardens. There are neat hedges everywhere. You're in a grassy clearing. There are high walls surroundingyouYou are at the Castle Door. There is a gold lock on the door. You are in a bathroom. There's a corridor to the North. You are in the gatehouse. Doors to the West and South. You are in a clearing with a pond. You are on the castle drive. The entrance is to the North. You are on a pile of rubble. This place stinks! You are in a clearing with a tent. It is empty! You have arrived at a clearing with a tree in it. You are at the castle gate. To the North is the castle. You are at a statue. It is of the king. You find a cauldron here. It is of no use to you. You are in a clearing. You are in a clearing. You see Bill's rocket. It is empty. You are in a clearing with a filled up pond in it. You are on a grassy hill. You are at a T-junction in a path. This clearing contains a large pillar. It holds up the sky! Fool!!! You have walked into a DEATH-TRAP!!! In this clearing, there is a bent tree. You are in a clearing with a ruined house in it. You are in a stinking swamp. You are in a ditch, dug into theground. You are on a path. In this clearing there is a deadtree. You are walking along on a riverbank. You are on a bridge, crossing the river. In this clearing there is a treetrunk. You are walking by a dark, oily lake. In this clearing there is a hut. You are in an enclosed field. There is a cow here. You are in a picnic place. There are tables and benches. You are in a clearing. You see Pharto's rocket. It is empty. You are in a wood. Paths are everywhere. You are at a high altar. There is a temple to the East. You are at a temple. There is an altar to the West. You are in a garden surrounding a small house. You are in a woody clearing. There are trees everywhere. You're in a clearing with two trees. There's a river to the WestYou are in a small house. You see Toronto's ship. It is empty. You are in a clearing with threetrees in it. You are in a clearing with a hollow log in it. You are in an open pasture. You are in a farmyard. No animalor bird stirs. You are at a farmhouse. It is locked and barred. In this clearing, there is Gasher's rocket. Data 5G I human android Korzaxian Noxian Treen SubteraneanData 6  A ring for a King A gold key for a gold lock The map of the castle This boat has a large hole in itTo light the way Recovery potion Extremely rusty Pluto Data<)g*)>)yPluto Adventure program 1of3 - Data by David Knight from ZX Computing Oct/Nov'85 a(8,15,5) o(7,5) c(7,7) (c$(2,7,7) 2d$(535,64@) <h$(6,11 ) Fo$(7,32 ) PMa=115:b=18:c=15:a(b,a,c):c:b:a Z.a=17:b=15:o(a,b) db:a n4a=17:b=17:c(a,b):b:a x5a=12:b=17:c$(a,b):b:a a=1535:d$(a):a a=16:h$(a):a a=17:o$(a):a =The SAVE line wasn't inthe listing, but is necessary.  Ɂ"Data "a():"Data 1"o():"Data 2"c():"Data 3"c$():"Data 4"d$():"Data 5"h$():"Data 6"o$() a 1,0,1,1,0,1,0,0,0,1,2,0,0,1,0,3,0,1,1,1,4,0,0,1,1,5,0,1,1,1,6,0,0,0,1,7,0,1,0,0,1,1,1,0,0,8,0,1,0,0,7,0,1,0,0,9 ,1,1,0,0,7,0,1,0,0,10 ,1,0,0,0,7,0,1,1,0,7,1,1,0,1,11 ,1,1,1,0,12 ,1,1,0,1,7,1,0,1,0,13 ,1,1,1,1,7,1,0,1,1,7,0,0,1,1,7,1,0,1,1,7,1,0,0,1 ^14,1,1,1,0,15,1,1,1,1,16,0,1,1,1,17,1,1,1,1,18,1,1,1,1,14,0,1,1,1,19,0,1,1,1,20,0,1,0,1,21,1,1,1,0,22,1,1,1,1,23,1,1,1,1,24,1,1,1,1,25,1,1,1,1,26,0,0,0,0,27,1,1,1,1,28,1,1,0,1,29,1,0,1,0,29,1,0,1,1,30,1,0,1,1,31,1,1,1,1,31,1,1,1,1 r32 ,1,1,1,1,29,1,1,1,1,29,1,1,0,1,33!,0,1,1,0,33!,0,1,1,1,33!,0,1,1,1,34",1,1,0,0,31,1,1,1,0,35#,1,1,1,1 36$,1,1,1,1,36$,1,1,0,1,31,1,1,1,0,31,1,1,1,1,31,1,0,1,1,31,1,1,0,1,25,1,1,1,0,37%,1,1,1,1,36$,1,1,0,1,36$,1,1,0,0,31,1,1,0,0,38&,1,0,0,0,39',0,1,1,0,33!,1,1,0,1,31,1,1,1,0,40(,1,1,1,1,36$,1,1,1,1,36$,1,1,0,1 31,1,1,0,0,38&,0,0,1,0,41),1,1,1,1,33!,1,1,0,1,31,1,1,1,0,31,1,1,1,1,42*,1,0,1,1,43+,1,0,0,1,31,1,1,0,0,41),0,1,1,0,41),1,1,1,1,33!,1,1,0,1 $25,1,1,1,0,31,1,1,0,1,44,,0,1,1,0,44,,0,0,0,1,16,1,0,1,0,45-,1,1,1,1,41),1,1,1,1,33!,1,1,0,1,46.,1,1,1,0,31,1,1,1,1,44,,1,1,1,1,47/,0,0,0,1 .27,0,1,1,0,41),1,1,1,1,37%,1,1,1,1,33!,1,1,0,1,20,1,1,1,0,480,1,1,0,1,44,,1,0,1,0,44,,0,0,0,1,29,1,1,1,0,16,1,1,1,1 820,1,1,1,1,33!,1,1,0,1,25,1,1,1,0,16,1,1,1,1,491,0,1,1,1,16,0,1,0,1,502,1,0,1,0,513,1,0,1,1,513,1,0,1,1,524,1,0,0,1,535,1,0,1,0 B|12 ,1,0,1,1,12 ,1,0,1,1,20,1,0,0,1 o !1,1,2,1,10 ,2,2,2,8,15,3,3,3,1,15,4,4,30,4,13 ,5,5,9 ,8,10 ,6,6,11 ,4,13 ,7,7,8,1,1 c •1,1,10 ,15,4,9 ,1,2,1,8,10 ,1,5,1,3,2,14,4,5,15,-1,4,3,5,9 ,8,12 ,1,5,4,10 ,17,6,9 ,1,6,5,7,16,7,1,-1,7,6,9 ,5,3,1,-1 c$ q"Ring","Key","Scroll","Boat","Torch","Potion","Sword","Ferdo","Bill","Gasher","Toronto","Pharto","Mekon","Ilko" d$ U"You are in the ruins."+13 +"All around you, buildings"+13 +"collapse." ["You are in the dining room."+13 +"You see Ilko's rocket."+13 +"It is empty." Y"You're in the hall."+13 +"A door is to the south."+13 +"There is a table." N"You are on a staircase."+13 +"There are walls to the north andsouth." X"You are in a corridor."+13 +"Open doors are to the East and"+13 +"South." H"You are in the King's bedroom."+13 +"The Mekon's ship is here." ["You're in the castle gardens."+13 +"There are neat hedges"+13 +"everywhere." Q"You're in a grassy clearing."+13 +"There are high walls surroundingyou." Y"You are at the Castle Door."+13 +"There is a gold lock on the"+13 +"door." G"You are in a bathroom."+13 +"There's a corridor to the North." F"You are in the gatehouse."+13 +"Doors to the West and South." 2"You are in a clearing with a"+13 +"pond." J"You are on the castle drive."+13 +"The entrance is to the North." ?"You are on a pile of rubble."+13 +"This place stinks!" ?"You are in a clearing with a"+13 +"tent. It is empty!" A"You have arrived at a clearing"+13 +"with a tree in it." G"You are at the castle gate."+13 +"To the North is the castle." 7"You are at a statue."+13 +"It is of the king." A"You find a cauldron here."+13 +"It is of no use to you." "You are in a clearing." V"You are in a clearing."+13 +"You see Bill's rocket."+13 +"It is empty." B"You are in a clearing with a"+13 +"filled up pond in it." "You are on a grassy hill." 2"You are at a T-junction in a"+13 +"path."  K"This clearing contains a large"+13 +"pillar. It holds up the sky!" <"Fool!!! You have walked into a"+13 +"DEATH-TRAP!!!" 7"In this clearing, there is a"+13 +"bent tree." @"You are in a clearing with a"+13 +"ruined house in it."  "You are in a stinking swamp." #+"You are in a ditch, dug into theground." ("You are on a path." -)"In this clearing there is a deadtree." 2)"You are walking along on a riverbank." 78"You are on a bridge, crossing"+13 +"the river." <*"In this clearing there is a treetrunk." A)"You are walking by a dark, oily lake." F$"In this clearing there is a hut." KB"You are in an enclosed field."+13 +"There is a cow here." PH"You are in a picnic place."+13 +"There are tables and benches." UX"You are in a clearing."+13 +"You see Pharto's rocket."+13 +"It is empty." Z8"You are in a wood."+13 +"Paths are everywhere." _G"You are at a high altar."+13 +"There is a temple to the East." dC"You are at a temple."+13 +"There is an altar to the West." i2"You are in a garden surrounding a small house." nH"You are in a woody clearing."+13 +"There are trees everywhere." s]"You're in a clearing with two"+13 +"trees. There's a river to the"+13 +"West." xZ"You are in a small house."+13 +"You see Toronto's ship."+13 +"It is empty." }0"You are in a clearing with threetrees in it." >"You are in a clearing with a"+13 +"hollow log in it." "You are in an open pasture." 2"You are in a farmyard. No animalor bird stirs." @"You are at a farmhouse. It is"+13 +"locked and barred." ;"In this clearing, there is"+13 +"Gasher's rocket." ph$ z"human","android","Korzaxian","Noxian","Treen","Subteranean":Have to keep the in-correct spelling as the array items are only 11 chars. [JimG] Xo$ b"A ring for a King","A gold key for a gold lock","The map of the castle","This boat has a large hole in it","To light the way","Recovery potion","Extremely rusty" ro\in,