@dig Violet Stardisc, in the Pulsar System
@field #9475 = exit_0 : 9534
@field #9475 = exit_1 : 10883
@field #9475 = nexits : 4
@field #9475 = exit_2 : 11321
@field #9475 = exit_3 : 11322
@zone #9475 = #10719
@desc #9475 = @tell("%#","This part of the violet stardisc appears
to be a gentlewoman's sitting room, dressed in shades of violet and
ivory. Draperies billow and fall against the walls in an endless quiet
stream, framing the portholes with slow waterfalls of cloth. An open
passage west leads to the system's \"Q'Booth\", and gates to shuttles
can be found to the north, northeast, and southeast.");
@call(10633,"each_turn");
@open northeast;ne;white gate = #9075
@odrop #9534 = arrives from the Pulsar System.
@field #9534 = exitto : white gate to Spaceport Eon
@osucc #9534 = exits through the white gate to the northeast.
@succe #9534 = You catch the next shuttle back to the spaceport...
@odrop #9534 = arrives from the Pulsar System.
@desc #9534 = @tell("%#","The white gate to the northeast has an animated
hologram of Spaceport Eon floating above its archway.");
@call(10633,"each_turn");
@create sign
@lock #10408 = #8796
@zone #10408 = #10719
@desc #10408 = @tell("%#"," Jun 13/01: The Pulsar system begun.
%c Nov 11/01: Violet Stardisc finally gets a description.
%c Mar 18/02: Pulsar Two and Pulsar Three are christened Jubilation
and Tsingy, and given descriptions and landscape objects.");
@call(10633,"each_turn");
---
@desc #10408 = @tell("%#"," Jun 13/01: The Pulsar system begun.%c Nov 11/01: Violet Stardisc finally gets a description.%c Mar 18/02: Pulsar Two and Pulsar Three are christened Jubilation and Tsingy, and given descriptions and landscape objects."); @call(10633,"each_turn");
===
@create Power Pack comic book;comic book;book;ppcb
@zone #10789 = #10719
@field #10789 = reset : @move(10789,9475);
@drop #10789 = @tell("%#","You drop the Power Pack comic book."); @call(10633,"each_turn");
@odrop #10789 = drops a Power Pack comic book.
@succ #10789 = @tell("%#","You pick up the Power Pack comic book."); @call(10633,"each_turn");
@osucc #10789 = picks up the Power Pack comic book.
@desc #10789 = @tell("%#","It's issue #47 of Power Pack, a comic book by
Marvel Comics. This is the one where five-year-old Katie Power fell through
her costume's pocket to Elsewhere, a dimension where the physical laws were
different. Lost, and with her powers strangely altered, Katie traveled with
her new friend Bosko to the capital of Elsewhere, where its queen, the
Oracle, was able to send her home."); @call(10633,"each_turn");
@open west;w = #10882 @odrop #10883 = enters from the east portal. @field #10883 = exitto : to Q'Booth @osucc #10883 = walks west into the Q'Booth. @succe #10883 = You walk west into the Q'Booth. @desc #10883 =
@open north;n;red gate = #9231
@odrop #11321 = arrives from the Pulsar System.
@field #11321 = exitto : red gate to Gas Giant
@osucc #11321 = exits north through the red gate.
@succe #11321 = You catch a shuttle to...
@desc #11321 = @tell("%#","The red gate to the north has an animated
hologram of the Gas Giant system floating above its archway.");
@call(10633,"each_turn");
@open southeast;se;blue gate = #9474
@odrop #11322 = arrives from the Pulsar System.
@field #11322 = exitto : blue gate to Spiral
@osucc #11322 = exits southeast through the blue gate.
@succe #11322 = You catch a shuttle to...
@desc #11322 = @tell("%#","The blue gate to the southeast has an animated
hologram of the Spiral system floating above its archway.");
@call(10633,"each_turn");
@dig Q'Booth
@zone #10882 = #10719
@field #10882 = exit_0 : 10884
@field #10882 = nexits : 6
@field #10882 = exit_1 : 10885
@field #10882 = exit_2 : 10886
@field #10882 = exit_3 : 10887
@field #10882 = exit_4 : 10888
@field #10882 = exit_5 : 10889
@desc #10882 = @tell("%#","The q'booth is a cubical teleportation room that
connects all the planets of the Pulsar system together. You see a teleport
portal on every surface of the cube, except the \"east\" one, which looks
normal. There's no gravity, but since all the walls are different color,
and there's plenty of handles and hoops attached to them, you have no
problem getting around."); @call(10633,"each_turn");
@open east;e = #9475
@odrop #10884 = arrives from the Q'Booth.
@field #10884 = exitto : to Violet StarDisc
@osucc #10884 = goes east.
@succe #10884 = You go east...
@desc #10884 = @tell("%#","The east exit is violet and goes back to the Violet StarDisc."); @call(10633,"each_turn");
@open up;u = #10398 @odrop #10885 = arrives from the Q'Booth. @field #10885 = exitto : to Pulsar One @osucc #10885 = goes up. @succe #10885 = You go up... @desc #10885 =
@open north;n;jubilation = #10399
@odrop #10886 = arrives from the portal in the tree.
@field #10886 = exitto : to Pulsar Two
@osucc #10886 = goes through the north portal.
@succe #10886 = You go through the north portal...
@desc #10886 = @tell("%#","The north portal is green and goes to Pulsar Two, also known as \"Jubilation\"."); @call(10633,"each_turn");
@open west;w;tsingy = #10400
@odrop #10887 = arrives from the Q'Booth.
@field #10887 = exitto : to Pulsar Three
@osucc #10887 = goes through the west portal.
@succe #10887 = You go through the west portal...
@desc #10887 = @tell("%#","The west portal is grey and goes to Pulsar Three, also known as \"Tsingy\"."); @call(10633,"each_turn");
@open south;s = #10401 @odrop #10888 = arrives from the Q'Booth. @field #10888 = exitto : to Pulsar Four @osucc #10888 = goes south. @succe #10888 = You go south... @desc #10888 =
@open down;d = #10402 @odrop #10889 = arrives from the Q'Booth. @field #10889 = exitto : to Pulsar Five @osucc #10889 = goes down. @succe #10889 = You go down... @desc #10889 =
@dig Pulsar One
@field #10398 = exit_0 : 10409
@field #10398 = nexits : 1
@zone #10398 = #10719
@desc #10398 = @tell("%#","TODO: Room Description."); @call(10633,"each_turn");
@open down;d;out;exit = #10882 @odrop #10409 = enters from the ceiling portal. @field #10409 = exitto : to Q'Booth @osucc #10409 = goes down into the Q'Booth. @succe #10409 = You go down into the Q'Booth. @desc #10409 =
Pulsar Two will be the home of Empath and Pacifist, a gentle forest world, but weird sixties psychodelic forest. Think Boogaloos. Think H. R. Puff-n-Stuf. Think Yellow Submarine. Think Isle of Wonder.
@dig On the Bridge of Roots, Jubilation
@field #10399 = exit_0 : 10410
@field #10399 = nexits : 1
@zone #10399 = #10719
@desc #10399 = @tell("%#","You're standing on an unusual bridge
made from a gigantic tree, whose wide roots have
been hollowed into a pedestrian walkway with raised edges.
The bridge joins a lush forest to the west with a orchard to the east.
Above you is a striped strawberry sky. Below, a placid river of
blue water. And in the tree itself, to the south, is a portal.");
@call(10633,"each_turn");
---
@desc #10399 = @tell("%#","You're standing on an unusual bridge made from a gigantic tree, whose wide roots have been hollowed into a pedestrian walkway with raised edges. The bridge joins a lush forest to the west with a orchard to the east. Above you is a striped strawberry sky. Below, a placid river of blue water. And in the tree itself, to the south, is a portal."); @call(10633,"each_turn");
===
@open south;s;out;exit;portal;enter portal;enter tree = #10882
@odrop #10410 = enters from the north portal.
@field #10410 = exitto : to Q'Booth
@osucc #10410 = enters the portal in the tree.
@succe #10410 = You walk through the portal in the tree.
@desc #10410 = @tell("%#","There's a portal on the inner south wall
of the tree, but not through the tree. It must teleport you somewhere
else."); @call(10633,"each_turn");
@open west;w;forest;lush forest = nowhere
@field #624 = exitto : to forest
@succe #624 = [Sorry. This is the only location on planet Jubilation right now.]
@desc #624 = @tell("%#","A lush forest of tropical plants and vines is on the low west bank of the river."); @call(10633,"each_turn");
@open east;e;orchard = nowhere
@field #654 = exitto : to orchard
@succe #654 = [Sorry. This is the only location on planet Jublilation right now.]
@desc #654 = @tell("%#","A playful orchard is on the high east bank of the river."); @call(10633,"each_turn");
@create tree;root;roots;bridge;bridge of roots
@set #599 = dark
@lock #599 = #-1
@desc #599 = @tell("%#","The more you look at the tree, the less sense
it makes. The roots not only go across to the river's banks, but down
into the riverbed itself. How on earth (or \"Jublilation\") did anyone
manage to plant a tree a hundred metres above a river?");
@call(10633,"each_turn");
@fail #599 = @tell("%#","Nuh-uh. The tree is gigantic, very heavy,
and well-anchored. And you're standing on it."); @call(10633,"each_turn");
@create sky;strawberry sky;striped sky;stripes;pink sky;pink stripes
@set #622 = dark
@lock #622 = #-1
@desc #622 = @tell("%#","The sky is striped, north to south, in wide bands of alternating shades of pink. Strawberry candy and strawberry bubble gum pink. How, er, sweet. A magnetic field effect, perhaps? Something with iron in the sky? In any event, it won't be easy to get lost on a planet with a striped sky."); @call(10633,"each_turn");
@fail #622 = @tell("%#","The sky is out of reach."); @call(10633,"each_turn");
@create river;water;placid river;blue water;stream;creek;brook
@set #657 = dark
@field #657 = eat : @tell("%#","The water in the river looks pure and clean and delicious. Alas, it is far out of reach below you."); @call(10633,"each_turn");
@fail #657 = @tell("%#","The river is far below you, and even if it were not, you still cannot take it."); @call(10633,"each_turn");
@lock #657 = #-1
@desc #657 = @tell("%#","The river is a wide ribbon of blue that cuts between the low west bank and the high east bank. Tranquil and calm, its gentle murmur is soothing to the soul, as it flows gently southward under the bridge."); @call(10633,"each_turn");
Pulsar Three will be the home world for Sorcerer, Seeker, and Fungus.
@dig On a High Plateau, Tsingy
@field #10400 = exit_0 : 10411
@field #10400 = nexits : 1
@zone #10400 = #10719
@desc #10400 = @tell("%#","You are standing on a high plateau
overlooking a bizarre landscape: a valley of grey limestone needles,
wedged together into a complex and treacherous maze. Looking closer,
you see patches of green vegetation here and there, something blue
to the northwest, and something white to the northeast.
There's also some sort of structure to the south, and a portal
inside the rock to the east."); @call(10633,"each_turn");
@open east;e;out;exit;portal = #10882
@odrop #10411 = emerges from the western portal.
@field #10411 = exitto : to Q'Booth
@osucc #10411 = goes east into the portal in the rock.
@succe #10411 = You walk through the portal in the rock.
@desc #10411 = @tell("%#","The portal is embedded in the rock. Since it doesn't go through the rock, it must teleport you somewhere else."); @call(10633,"each_turn");
@create limestone needles;needles;grey needles;grey limestone needles;maze;tsingy;stone;rock
@set #667 = dark
@fail #667 = @tell("%#","Taking an entire valley of limestone is somewhat beyond your current skill level. Maybe you should try again later."); @call(10633,"each_turn");
@lock #667 = #-1
@desc #667 = @tell("%#","The limestone needles are wedged together pretty tightly, like a cave full of stalagmites, only outdoors. The vegetation proves that there are probably ways through this natural maze, as long as one can present a narrow enough profile."); @call(10633,"each_turn");
@open down;d;climb down = nowhere
@field #669 = exitto : into the maze
@succe #669 = [Sorry. This is the only location on Tsingy right now.]
@desc #669 = @tell("%#","Actually, it's not obvious how you'd climb down from here."); @call(10633,"each_turn");
@open northwest;nw;something blue;blue something;blue thing = nowhere
@set #670 = dark
@succe #670 = @tell("%#","You can't walk directly northwest from here. You'll have to go down into the maze or learn to fly to get there."); @call(10633,"each_turn");
@desc #670 = @tell("%#","The blue thing to the northwest looks like a large pile of marbles. Large marbles."); @call(10633,"each_turn");
@open northeast;ne;something white;white something;white thing = nowhere
@set #671 = dark
@succe #671 = @tell("%#","You can't walk directly northeast from here. You'll have to go down into the maze or learn to fly to get there."); @call(10633,"each_turn");
@desc #671 = @tell("%#","You can't really tell what the white thing to the northeast is. Could be a different type of rock. Or different vegetation. Or maybe even a city. From here it's a mottle of irregular shapes, all white and off-white."); @call(10633,"each_turn");
@open south;s;structure;nest;aerie = nowhere
@set #673 = dark
@succe #673 = @tell("%#","You can't walk directly south from here. You'll have to go down into the maze or learn to fly to get there."); @call(10633,"each_turn");
@desc #673 = @tell("%#","The structure to the south looks like a large nest. Or an aerie."); @call(10633,"each_turn");
@create vegetation;green vegetation;plants
@set #718 = dark
@fail #718 = @tell("%#","The vegetation is inside the maze. If you want a sample of it, enter the maze."); @call(10633,"each_turn");
@lock #718 = #-1
@desc #718 = @tell("%#","The vegetation springs up here and there between the limestone needles, their bright green leaves spread wide to catch the sunlight."); @call(10633,"each_turn");
@dig Pulsar Four
@field #10401 = exit_0 : 10412
@field #10401 = nexits : 1
@zone #10401 = #10719
@desc #10401 = @tell("%#","TODO: Room Description."); @call(10633,"each_turn");
@open north;n;out;exit = #10882 @odrop #10412 = enters from the south portal. @field #10412 = exitto : to Q'Booth @osucc #10412 = goes north into the Q'Booth. @succe #10412 = You go north into the Q'Booth. @desc #10412 =
@dig Pulsar Five
@field #10402 = exit_0 : 10413
@field #10402 = nexits : 1
@zone #10402 = #10719
@desc #10402 = @tell("%#","TODO: Room Description."); @call(10633,"each_turn");
@open up;u;out;exit = #10882 @odrop #10413 = enters from the floor portal. @field #10413 = exitto : to Q'Booth @osucc #10413 = goes up into the Q'Booth. @succe #10413 = You go up into the Q'Booth. @desc #10413 =