CP/M/CPM_CDROM.iso/cpm/misc/game40.lbr/STAR2.SZC/STAR2.SRC

Text File | 1994-08-30 | 14.4 KB | 876 lines

# now the planet locations

l45
%"on the surface of Janus-6, in a wide canyon running east-west"
[There is a strong wind blowing up the canyon, picking up the sand
on the floor. You can see that over the years the sides of the
canyon have been smoothed out by the continuous buffeting.]
wx44
ex46
.

# a bit of local colour - locs 44 and 43 are there for show.

# move to 44
m 45 44 13
f13
i vg=0        ; if first time
    t vg=1 [50    ; mark it and print text
i vg=2        ; also a first time condition
    t vg=3 [50    ; so mark and print text
.

l44
%"at the west end of a narrow gulley, with a small crack going
further west"
wx43
ex45
.

# nice description, but doesn't do anything useful
l43
%"on a small ledge, part way up a vast cliff"
[You have a magnificent view across Janus-6. The cliff goes down
to a plain that stretches off into the distance, and all across
the plain you can see the wind whipping the dust and sand into
strange formations. Right on the horizon, you can see something
that might be a mining outpost, but from this distance it's
impossible to tell if it's deserted or not.]
ep44
nn3
sn3
.

# move to 46, also has some local colour added

m 45 46 14

f14
i vg=0        ; first time this way?
    t vg=2 [51    ; print text if so
i vg=1        ; other first time condition
    t vg=3 [51    ; print if so
.

l46
%"outside a cave that goes east into the hill"
wx45
ex47
.

l47
%"at the back of the cave"
wx46
ex48
.

# from here on in, the locations are dark. I hope he brought the torch :-)
# The obligatory maze. Only four locations, but it's enough for some fun
l48
,
%"in a maze of twisty little passages"
nx49
sx47    ; way out
ex50
wx50
ux49
dx48
.

l49
,
%48
nx48
sx50
ex50
wx48
ux49
dx51
.

l50
,
%48
nx50
sx51
ex49
wx49
ux48
dx51
.

l51
,
%48
nx50
sx49
ex51
wx52    ; way out
ux50
dx49
.

# aha! got through the maze!
l52
,
%"at the top of a very old rusty ladder"
np51
dx53
.

m 52 53 15    ; move down the ladder: this does fx 15, which puts him out
        ; of communication range of the ship
m 53 52 16    ; up the ladder does fx 16, which reverses 15
m 76 75 15    ; moving away from the volcano does 15
m 75 76 16    ; moving to the volcano does 16

f15
e        ; no option
    t ve=2    ; out of comm range
.

f16
e
    t ve=1    ; back into comm range
.

l53
,
%"in a hall at the bottom of an old ladder"
wp54
ep77
ux52
.

l54
,
%"in a large cave"
ep53
sp55
.

l55
,
%"in a long low passage running north-south, with an opening in
the west wall"
nx54
sx62
wx56
.

l56
,
%"in a small room, the floor is covered in grit"
ep55
sp57
.

# a bit nasty here - the crack is there, it has a special message for
# trying to use it, but all to no avail.
l57
,
%"in a large room with a crack high on the south wall"
{From what you can see of the crack, it doesn't seem to go anywhere}
np56
wp58
sn4
.

# by the first rockfall. Enough phaser power will get through here

l58
,
%"in an east-west passage, beside a pile of rocks in the south wall"
{You can feel a breeze blowing past the rocks, and as you push
they move slightly, but they settle back as you stop pushing}
sn5
ex57
wx59
.

# this is used when he shoots through, change south way out
l13
%58
,
{It looks as if there is just enough space to crawl over the
rocks, into the space behind them}
sx60
ex57
wx59
.

# duplicate of the original place, used if he shoots again and re-blocks
# the passage
l7
%58
,
{You can feel a breeze blowing past the rocks, and as you push
they move slightly, but they settle back as you stop pushing}
sn5
ex57
wx59
.

# second rockfall, can't get past this one
l59
%"at the end of a passage, facing a pile of rocks to the west"
,
{It looks like this pile of rocks is far to large to move. You
could probably move some of them with your phaser, but it's power
pack would run out long before the whole pile could be cleared.}
wn5
ex58
.

# just outside the bar
l60
%"in a small room with a passage leading north"
,
sd6
nx58
.

# in the bar
l6
%"in an underground bar, full of miners"
{The room is full of smoke and noise, and the miners in here are making
good use of their pay. There are several games of chug-a-lug going on,
mostly using Saurian brandy. There are several bottles lying around on
the nearby tables, both full and empty}
nd60
.

# the bottle of brandy. This is needed to get past the Andorian at 78,
# but picking it up can be an art
i12
%"A bottle of Saurian brandy"
h
a
'bott
'bran
c 10
l 6
.

p 'take 'bott 17    ; take bottle
p 'take 'bran 17    ; take brandy

f17    ; take bottle
i l-1@6 l12@6 r25    ; if he's in the bar, and the bottle is too, and
            ; a 25% chance comes off
    t [64 f        ; got it
i l-1@6 l12@6
    t [65        ; oops - didn't make it
e
    t f
.

l62
,
%"in a long low passage running north-south"
nx55
sx63
.

# need the explosive to get through the crack.
l63
,
%"in a small chamber with a tiny crack in the south wall"
{The crack is too small to get through, but looking through
it, you see that it opens up further back}
sn6
np62
ep80
.

# when the charge goes off, change to this, which allows passage
l15
,
%"in a small chamber with a narrow crack in the south wall"
{The crack is just large enough to slip through}
sx61
np62
ep80
.

l61
,
%"in a small passage that slopes up to the north, and down
to the south"
nx63
sx64
.

# if he goes south from 61 to 64, fire this
m 61 64 18

f18
e
    t [69    ; which just prints some text
.

# lands here, but can't get back. Need to get to the volcano to escape now
l64
,
%"in a cave with several holes in the north wall"
wp65
sp73
nn7
.

l65
,
%"at an intersection of a high north-south passage, and a smaller
one running east-west"
wp66
np67
ep64
sp68
.

# a couple of dead ends
l66
,
%"at a dead end"
ep65
.

l67
,
%66
sp65
.

l68
,
%"at the top of a small crack"
sp172
np65
dx69
.

l172
nd68
,
%"in a small low room"
.

l69
,
%"at the bottom of a crack"
# note - we can get up here
ux68
wp70
.

l70
,
%"standing in front of a large blue box that blocks the passage"
{The box is definitely not a natural formation, but it is not at
all obvious how it got here}
ep69
wd71
.

# huh? wait a minute - aren't we in the wrong show???
l71
%"inside the box"
[This is clearly the control center for some ship of some sort,
but the design is not at all apparent. Something else you find
very puzzling is that the ship appears much larger on the inside
than the small box outside.]
ed70
.

i13
%"A sonic screwdriver"
x102
w 10
'soni
'scre
l 71
.

p 'use 'soni 19        ; use sonic
p 'use 'scre 19        ; use screwdriver

f19
i l13!-1        ; got it?
    t [74        ; nope - so say so
i l-1!85        ; by the rusty door?
    t [71        ; nope - nothing to do
i vi=1            ; if he oiled the hinges
    t [73 c20 l85=14 vi=3    ; open the door, say something and score
i vi=3
    t [103        ; already open
e
    t [72        ; nothing happens
.

p 'use 'oil 32        ; use oil
p 'pour 'oil 32        ; pour oil

f32
i l-1@85 l16@-1        ; by the door and with the oil
    t [89 i16=59 c10 vi=1    ; pour it, say something, and loosen the door
i l16@-1        ; not by the door
    t [90 i16=57 vi=2    ; so make a small puddle
e
    t [91        ; no oil to do anything with
.

i57
%"A small puddle of oil"
l-3            ; will show up wherever he is
w-1
a
.


l73
,
%"in a curved passage, where every sound you make echos back and forth"
np64
ep74
.

l74
,
%"in a cave where the roof is covered with stalagtites"
wp73
sp75
.

# can get to here via the crack, but can't do the return trip
l75
,
%"in a small room with a crack in the east wall"
en8
np74
sp76
.

# this is the only other place (barring the outside and the cave / maze
# at the top of the ladder) where the communicator can reach the ship
l76
%"on a ledge, part way up an extinct volcano"
[The view here is incredible. As you look out, you see that all
around the inside of the volcano the lava has solidified into
odd shaped sculptures. Down at the bottom, a pool of lava is
moving slowly, as once in a while a bubble of sulphurous gas
breaks the surface and dissipates. High above, through the
smoke, you can make out the lavender coloured sky of Janus-6]
np75
c10
.
l77
,
%"at a bend in the passage"
wp53
sp78
.

l78
,
%"in a cave with a very high roof"
np77
sp84
wp79
ep81
.

# tricky going east here - the Andorian may not let you past.
m 78 81 24    ; go from 78 to 81

f24
i vj=2        ; if the Andorian is drunk
    t [80 vj=0 i14=56    ; let him through, but reset the Andorian, i.e. change
            ; the variable (j), and alter the Andorian
e
    t [81 t78    ; no way through, so teleport back to 78
.

p 'kill 'ando 33    ; trying to kill the andorian

f33
i l2!-1            ; no phaser, tell him so
    t [7
i l-1@78 vj=2        ; can't use the phaser to take out the Andorian
    t [98 b
i l-1@78        ; in either condition :-)
    t [99 b
e
    t [115        ; nothing to shoot at
.

p 'drop 'bott 25    ; give bottle
p 'give 'bott 26    ; drop bottle
p 'drop 'bran 25    ; give brandy
p 'give 'bran 26    ; drop brandy

f25        ; drop bottle
i l12@-1 l-1@78 l14@78    ; if he's got the bottle, and is at 78
    t [79 vj=1 i12=59    ; print some text, alter so the Andorian will get
            ; totally drunk,and make the bottle vanish
e
    t f        ; nothing happens
.

f26        ; give bottle
i l12@-1 l-1@78 l14@78    ; if he's got the bottle, and is at 78
    t [79 vj=1 i12=59    ; print some text, alter so the Andorian will get
i l12@-1    ; got the bottle
    t [82    ; nobody to give it to
e
    t [83    ; what bottle?
.

m -1 -1 27    ; any move does this

f27
i vj=1 r20    ; if the Andorian has the bottle and a 20% chance comes up
    t vj=2 i14=55 ; the Andorian get's very drunk
.

# original Andorian
i14
%16
w -1
l 78
.

# very drunk Andorian
i55
%"A very drunk Andorian"
l 78
w -1
.

# copy of the original, because it wakes up after we go past it.
i56
%16
w -1
l 78
.

l79
,
%"in a small cave, full of mist"
ep78
wp80
.

l80
,
%"in a small cavern, with a stream flowing through"
ep79
wp63
.

l81
,
%"in a large cave, with a big obelisk standing in the middle"
{Scratched into the surface of the obelisk, you read the following:
"No man has gone before you into here"}
ep82
wp78
.

# back down the passage to the Andorian

m 81 78 28

f28        ; can't do it .....
e
    t [84 b    ; print some text and terminate
.

# moving from 78 to 81 (past the Andorian) activates a lot of effects
# these 4 scramble the locations of the charge and oil
m 78 81 20
m 78 81 21
m 78 81 22
m 78 81 23

f20
i l11@4            ; first, if the charge is at 4
    t i11=52        ; move it to 5
.

f21
i r50 l11@5        ; now, if the charge is at 5, and a random 50%
    t i11=51        ; move it back to 4
.

# same for the oil
f22
i l16@4
    t i16=54        ; move to 5
.

f23
i r50 l16@5
    t i16=53        ; and back to 4 on a 50% chance
.


l82
,
%"at a T junction in the passage"
wp81
ep4
sp83
.

l83
,
%"beside a stream that vanishes through a hole to the west"
np82
ep5
dx98
.

# can't get back past the Andorian, so he needs to swim out of there
p 'swim 29

# down will also go for a swim
m -1 98 29

f29
i l-1@83
    t [85 t80    ; print some text, and pop him up by the other stream
i l-1@98
    t [85 t80    ; print some text, and pop him up by the other stream
e
    t [86
.

# junk room
l4
,
%"in a room full of left over mining equipment"
{The room is filled with all sorts of equipment: on closer inspection
it looks as if some of it might be useful}
wp82
sp5
.

# other junk room
l5
,
%4
{The room is filled with all sorts of equipment: on closer inspection
it looks as if some of it might be useful}
wp83
np4
.

# the explosive charge. There are two additional copies, since this
# tends to move around. Original at 4
i11
%17
x101
w 40
'expl
'char
h
l 4
.

# and a copy at 4
i51
%17
x101
w 40
'expl
'char
h
l 4
.

# and a copy at 5
i52
%17
x101
w 40
'expl
'char
h
l 5
.

# the flask of oil - also starts at 4
i16
%18
w 15
'oil
h
l 4
.

# with a second copy at 4
i53
%18
w 15
'oil
h
l 4
.

# and a copy at 5
i54
%18
w 15
'oil
h
l 5
.

l84
,
%"in a crystalline passage running north-south"
nx78
sx85
.

# beside the rusty door
l85
,
%"standing in front of a massive rusty door in the south wall of the room"
np84
sn9
.

# copy of the door: is used when the oil and sonic screwdriver get it open
l14
,
%85
np84
sx86
.

l86
,
%"at the top of a small sink hole"
np85
dx87
.

# can't get back up, but there is an exit via the maze
l87
,
%"at the bottom of a sink hole"
sp91
ep88
un10
.

l88
,
%"in a cave with a very rough floor"
wp87
ep89
.

l89
,
%"at a fork in the passage"
wp88
sp3
ep90
.

# this is where we were really headed for all the time
l3
,
%"in a small cave, lined with crystalline deposits"
np89
.

# because here are the crystals, needed to get the Enterprise going again
i10
%"Some dilithium crystals"
'crys
'dili
l 3
c 30
h
.

l90
,
%"in a crystalline cavern"
wp89
[The walls and ceiling of this cavern are spectacular: covered in
multicoloured crystals. They reflect the light from your lantern,
refracting it into myriad rainbows that dance around the room as
you move.]
c20
.

l91
,
%"in a long curving passage"
wp10
np87
.

# and another maze - this is more insidious. _ANY_ movement will at
# random move to 10, 11, or 12, with a 15% chance of escaping to 75
l10
,
%"lost in a twisting maze of little passages"
{There are passages leading in every direction, twisting and turning.
If you take any of them, you may get hopelessly lost}
nx10
sx10
ex10
wx10
ux10
dx10
.

l11
,
%10
{There are passages leading in every direction, twisting and turning.
If you take any of them, you may get hopelessly lost}
nx10
sx10
ex10
wx10
ux10
dx10
.

l12
,
%10
{There are passages leading in every direction, twisting and turning.
If you take any of them, you may get hopelessly lost}
nx10
sx10
ex10
wx10
ux10
dx10
.

# any movement to 10 (i.e. moving in the maze above) does this
m 10 10 31
m 11 10 31
m 12 10 31

f31
i r15        ; 15% chance
    t t75 [97    ; print some text and escape
i r33        ; 1 in 3
    t t10    ; go to 10
i r50        ; 1 in 2
    t t11    ; to 11
e
    t t12    ; else to 12
.
; now chain to rest of source
<star3.src