/*
** Heaven was written by Martyr.
*/
#include "undef.h"
#include "special.h"
Zone = heaven
Author = "Martyr"
Quest = Mjolnir
EndZone = heaven
Mobile = Peter
Name = "Peter"
Location = Heaven1@heaven
PFlags = NoSummon
Strength = 500
Damage = 8
Armor = 0
Aggression = 0
Speed = 0
Desc = "Saint Peter observes you peacefully."
Trap = death
@
int save_mynum = mynum;
sendf(ploc(THIS_PLAYER),"Saint Peter says &+W'I'll condemn you to hell for this!'&*\n");
setup_globals(THIS_PLAYER);
trapch(LOC_WASTE_BEFORE);
setup_globals(save_mynum);
@
EndTrap
EndMobile = Peter
Mobile = Thor
Name = "Thor"
Location = Heaven25@heaven
PFlags = NoSummon
MFlags = PickStuff
Strength = 320
Damage = 20
Armor = 10
Aggression = 0
Speed = 0
Desc = "Thor stands here glaring at Agnes."
EndMobile = Thor
Mobile = Agnes
Name = "Agnes"
Location = Heaven25@heaven
MFlags = PickStuff
SFlags = Female
Strength = 150
Damage = 15
Armor = 0
Aggression = 0
Speed = 0
Desc = "Agnes laughs, prepared to meet all of Thor's needs."
EndMobile = Agnes
Mobile = Odin
Name = "Odin"
Location = Heaven25@heaven
MFlags = PickStuff
Strength = 350
Damage = 22
Armor = 10
Aggression = 0
Speed = 0
Desc = "Odin glares at you with his one eye."
EndMobile = Odin
Mobile = Valkyrie
Name = "Valkyrie"
Location = Heaven20@heaven
SFlags = Female
Strength = 175
Damage = 18
Armor = 0
Aggression = 0
Speed = 0
Desc = "Valkyrie glances around for a rabbit."
EndMobile = Valkyrie
Mobile = Terrance
Name = "Terrance"
Location = Heaven23@heaven
Strength = 140
Damage = 14
Armor = 0
Aggression = 1
Speed = 0
Desc = "
Terrance the ugly troll sits here preparing his dinner. He looks hungry."
EndMobile = Terrance
Mobile = Giant
Name = "The Giant"
Location = Heaven22@heaven
Strength = 150
Damage = 14
Armor = 0
Aggression = 2
Speed = 0
Desc = "A giant was relaxing here until you walked in."
EndMobile = Giant
Mobile = Great
Name = "The Great"
Location = Heaven32@heaven
Strength = 170
Damage = 12
Armor = 0
Aggression = 0
Speed = 0
Desc = "The Great Bear is here eating honey."
EndMobile = Great
Mobile = Bison
Name = "The Bison"
Location = Heaven29@heaven
Strength = 130
Damage = 12
Armor = 0
Aggression = 0
Speed = 0
Desc = "A bison grazes upon the land here."
EndMobile = Bison
Mobile = Coyote
Name = "The Coyote"
Location = Heaven34@heaven
Strength = 80
Damage = 10
Armor = 0
Aggression = 0
Speed = 0
Desc = "A small coyote threatens to nip your ankles."
EndMobile = Coyote
Mobile = Snake
Name = "Snake"
Location = limbo@limbo
Strength = 60
Damage = 10
Armor = 0
Aggression = 3
Speed = 5
Desc = "
An snake with very narrow slits for eyes swishes around on the ground."
EndMobile = Snake
Object = mjolnir
Name = "mjolnir"
Altname = "hammer"
Location = WIELDED_BY:Thor@heaven
OFlags = Weapon, NoDonate
BaseValue = 1600
Size = 100
Damage = 30
Desc0 = "Mjolnir, the sacred hammer of Thor, has been left here."
Trap = all
@
switch (event) {
case E_ONGET:
if (param_s.misc == BEFORE_GET)
if (alive(max_players + MOB_HEAVEN_THOR) == -1 &&
pscore(max_players + MOB_HEAVEN_THOR) == param_s.plx)
{
set_quest(Q_MJOLNIR,param_s.plx);
}
break;
default: break;
}
@
EndTrap
EndObject = mjolnir
Object = vase
Altname = "vase"
Location = IN_ROOM:Shrine@icecave
OFlags = GetFlips
State = 1
MaxState = 1
BaseValue = 100
Size = 3
Desc0 = "A vase made of ice has been set on a pedestal."
Desc1 = "A vase made of ice has been set on a pedestal."
Examine = "
The vase is made of a cloudy ice and is inscripted with images of great
glaciers. Turning the vase over, you see the inscription:
Jiffy Script, Incorporated
'Converse with us, We talk better.'"
Trap = all
@
switch (event) {
case E_ONGET:
if(state(param_s.ob) && param_s.misc == BEFORE_GET)
{ bprintf("The vase slips from your hands and crashes to the floor.\n");
bprintf("The reverberations caused by the crash cause the ceiling to "
"cave in!\n");
destroy(param_s.ob);
send_msg(ploc(param_s.plx), 0, pvis(param_s.plx), LVL_MAX, param_s.plx, NOBODY,
"%s has left.",pname(param_s.plx));
setploc(param_s.plx,LOC_HEAVEN_HEAVEN1);
lookin(ploc(param_s.plx),0);
broad("You hear ambulance sirens in the distance.\n");
param_s.ret = -1;
}
break;
default: break;
}
@
EndTrap
EndObject = vase
Object = ark
Name = "ark"
Altname = "ark"
Location = IN_ROOM:Heaven3@heaven
OFlags = Openable, Container, NoGet
BaseValue = 1000
Size = 40
State = 1
MaxState = 1
Desc0 = "The Ark of the Covenant is open."
Desc1 = "The Ark of the Covenant is here."
Examine = "
The ark is two and a half cubits long, one and a half cubits wide, one and
a half cubits high, and is made made of shittim wood covered with pure
gold, with a crown of gold around it. A ring of gold is set on each
corner, with two rings of shittim wood (overlay ed with gold, of course)
passing through them."
EndObject = ark
Object = tablet
Name = "tablet"
Altname = "tablets"
Location = IN_CONTAINER:ark@heaven
BaseValue = 80
Size = 1
Desc0 = "Two stone tablets are here."
Examine = "
Carved into the stones are ten commandments. At the very bottom of each is
written:
Jiffy Script, Incorporated
'Converse with us, We talk better.'"
EndObject = tablet
Object = staff1
Name = "staff"
Altname = "staff"
Location = IN_ROOM:Heaven4@heaven
BaseValue = 100
Size = 1
Desc0 = "The Staff of Moses rests against the wall."
Desc1 = "The Staff of Moses rests against the wall."
Examine = "You notice that the staff feels faintly like a snake."
Trap = all
@
if (event == E_ONDROP && param_s.misc == D_NORMAL)
{ bprintf("As you drop the staff it turns into a viscous snake!\n");
send_msg(ploc(param_s.plx),0,LVL_MIN,LVL_MAX,param_s.plx, NOBODY,
"\001p%s\003 drops a staff. The staff turns into a snake an starts to attack!\n",
pname(param_s.plx));
destroy(param_s.ob);
setploc(MOB_HEAVEN_SNAKE+max_players,ploc(param_s.plx));
setpfighting(MOB_HEAVEN_SNAKE+max_players,param_s.plx);
param_s.ret = -1;
return;
}
@
EndTrap
EndObject = staff1
Object = headdress
Name = "headdress"
Altname = "headdress"
Location = IN_ROOM:Heaven29@heaven
OFlags = WearOnHead, ExcludeWear
BaseValue = 50
Size = 1
Desc0 = "A headdress has been left here."
Desc1 = "A headdress has been left here."
Examine = "It appears to belong to a chieftain."
EndObject = headdress
Object = eagle
Name = "eagle"
Altname = "feather"
Location = IN_ROOM:Heaven30@heaven
OFlags = WearOnBody, GetFlips
BaseValue = 80
Size = 1
State = 1
MaxState = 1
Desc0 = "An eagle feather has been left here."
Desc1 = "An eagle feather is drifting down from the sky."
EndObject = eagle
Object = medicine
Name = "medicine"
Altname = "bag"
Location = IN_ROOM:Heaven34@heaven
OFlags = GetFlips, FastHeal
BaseValue = 50
Size = 1
State = 1
MaxState = 1
Desc0 = "A medicine bag has been dropped here."
Desc1 = "A medicine bag hangs suspended from a tree."
EndObject = medicine
Object = bow
Name = "bow"
Altname = "bow"
Location = IN_ROOM:Heaven32@heaven
BaseValue = 100
Size = 1
Desc0 = "A silver bow rests here"
Desc1 = "A silver bow rests here"
EndObject = bow
Object = arrow
Name = "arrow"
Altname = "arrow"
Location = IN_ROOM:Heaven31@heaven
BaseValue = 100
Size = 1
Desc0 = "A silver arrow sticks up out of the ground."
Desc1 = "A silver arrow sticks up out of the ground."
EndObject = arrow
Object = rainbow
Name = "rainbow"
Location = IN_ROOM:Heaven7@heaven
OFlags = NoGet
BaseValue = 0
Size = 0
Desc0 = "A rainbow wraps around the room."
EndObject = rainbow
Object = watermelon
Name = "watermelon"
Altname = "watermelon"
Location = IN_ROOM:Heaven6@heaven
OFlags = Food, GetFlips
BaseValue = 50
Size = 1
Desc0 = "A watermelon lies before you."
Desc1 = "A watermelon hangs temptingly from the Tree of Knowledge."
EndObject = watermelon
Object = staff2
Name = "staff"
Altname = "staff"
Location = IN_ROOM:Heaven11@heaven
OFlags = Armor
BaseValue = 90
Size = 1
Armor = 15
Desc0 = "A shepherd's staff leans against the wall."
EndObject = staff2
Location = "Heaven1"
East = Heaven2@heaven
LFlags = Private
Title = "&+WThe Pearly Gates&*"
Desc = ^
You seem to be standing on a cloud. Before you stand a pair of huge
gates, which seem to be made of pearl. The air about you is peaceful,
yet a tinge of expectancy can also be felt.
^
EndLocation = "Heaven1"
Location = "Heaven2"
North = Heaven19@heaven
East = Heaven3@heaven
South = Heaven28@heaven
West = Heaven1@heaven
Up = Heaven3@heaven
LFlags = Private
Title = "&+WParadise Crossroads&*"
Desc = ^
You are standing at the place where the heavens meet. Other than the
fact that you are standing on a cloud, this place seems rather ordinary.
To the north, you see a land of mountains and fjords, with a sign at the
beginning of the road which reads "Valhalla." To the south you see a great
and varied land with a sign reading "The Happy Hunting Grounds." To the
east you see you see a large tent with a firey cloud above it.
^
EndLocation = "Heaven2"
Location = "Heaven3"
East = Heaven4@heaven
Up = Heaven4@heaven
LFlags = Private
Title = "&+WThe Tabernacle&*"
Desc = ^
You are standing within a large tent. To the east is a plain, while to
the west you can see the gates of pearl.
^
EndLocation = "Heaven3"
Location = "Heaven4"
North = Heaven9@heaven
East = Heaven5@heaven
South = Heaven15@heaven
West = Heaven3@heaven
Up = Heaven5@heaven
Down = Heaven3@heaven
LFlags = Private
Title = "&+WPlains&*"
Desc = ^
You are on the plains. To the west is a tent, to the east an untouched
wilderness, to north is a cloud bank, and to the south you can see the
ruins of a walled city.
^
EndLocation = "Heaven4"
Location = "Heaven5"
East = Heaven6@heaven
West = Heaven4@heaven
Up = Heaven3@heaven
Down = Heaven4@heaven
LFlags = Private
Title = "&+WWilderness&*"
Desc = ^
You are wandering in the wilderness. You have been here for so long
that you have lost track of the years.
^
EndLocation = "Heaven5"
Location = "Heaven6"
East = Heaven7@heaven
South = Heaven16@heaven
West = Heaven5@heaven
Up = Heaven7@heaven
Down = Heaven5@heaven
LFlags = Private, Peaceful
Title = "&+WThe Garden&*"
Desc = ^
You are in a lush garden. All forms of trees, flowers, and shrubbery
surround you. All the creatures of the land and air approach you
innocently, and the creatures of the water leap out of a near-by lake to
give you their greetings. You feel peaceful.
To the south you see the glimmer of gold.
^
EndLocation = "Heaven6"
Location = "Heaven7"
East = Heaven8@heaven
Up = Heaven8@heaven
Down = Heaven6@heaven
LFlags = Private
Title = "&+WCloud 6&*"
Desc = ^
The soft, fluffy surface of the cloud is slightly strange to walk on,
and you notice for the first time that you do not have wings.
^
EndLocation = "Heaven7"
Location = "Heaven8"
North = Heaven12@heaven
West = Heaven7@heaven
Up = Heaven12@heaven
Down = Heaven7@heaven
LFlags = Private
Title = "&+WSeventh Heaven&*"
Desc = ^
Streams of milk and honey roll down the sides of the purple and white
mountains to water the green plains. The blue sky plays host to a blue
moon and a golden sun, which is setting in magnificent splendor.
To the west you spy a rainbow. To the north you see a palace.
^
EndLocation = "Heaven8"
Location = "Heaven9"
East = Heaven10@heaven
Up = Heaven10@heaven
LFlags = Private
Title = "&+WCloud 8&*"
Desc = ^
The entire landscape is made of white, fluffy clouds. You feel slightly
uneasy about the situation, as the thought of falling to the earth below
does not want to leave your mind.
^
EndLocation = "Heaven9"
Location = "Heaven10"
North = Heaven17@heaven
West = Heaven9@heaven
Up = Heaven11@heaven
Down = Heaven9@heaven
LFlags = Private, Peaceful
Title = "&+WCloud 9&*"
Desc = ^
All is peaceful. All around you flit angels with harps, singing
beautiful melodies full of joy and love. Folds of the cloud form chairs
and couches to rest on.
^
EndLocation = "Heaven10"
Location = "Heaven11"
Up = Heaven12@heaven
Down = Heaven10@heaven
LFlags = Private
Title = "&+WEntrance to Heaven's Forest&*"
Desc = ^
You stand just within a vast forest. The trees grow so close together
that you have no choice but to walk the path, either to go down to Cloud 9
or to go deeper into the forest to the east.
^
EndLocation = "Heaven11"
Location = "Heaven12"
East = Heaven18@heaven
Up = Heaven13@heaven
Down = Heaven8@heaven
LFlags = Private
Title = "&+WHeaven's Forest&*"
Desc = ^
You on a path in a vast forest. Above you is a palace seemingly made
of diamond. To the east is a silver sea. Below you you spy a land of
milk and honey.
^
EndLocation = "Heaven12"
Location = "Heaven13"
Up = Heaven14@heaven
Down = Heaven12@heaven
LFlags = Private
Title = "&+WDiamond Palace&*"
Desc = ^
The entire palace is made of diamond. The light from above is broken
into rainbows, and their glitterings seem to enchant you.
^
EndLocation = "Heaven13"
Location = "Heaven14"
Trap = all
@
switch(event) {
case E_ONENTRY:
param_s.loc = LOC_VILLAGE_HOSPITAL;
bprintf ("You faintly hear voices, then feel an irresistable tugging.\n");
setploc (param_s.plx, LOC_VILLAGE_HOSPITAL);
lookin (param_s.loc, 0);
bprintf ("A nurse tells you they almost didn't pull you through.\n");
param_s.ret = 0;
break;
default: break;
}
@
EndTrap
LFlags = Private
Title = "&+WCloud 13&*"
Desc = ^
You are in a simply furnished room which stands in stark contrast to the
diamond palace which contains it.
^
EndLocation = "Heaven14"
Location = "Heaven15"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WRuins of a walled city&*"
Desc = ^
You are standing in the ruins of a walled city. One building stands,
with a rope hanging from an upper-story window. It seems as if a battle
has taken place here.
^
EndLocation = "Heaven15"
Location = "Heaven16"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WThe Land of Gold&*"
Desc = ^
The entire landscape is coated with gold.
^
EndLocation = "Heaven16"
Location = "Heaven17"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WThe Place of Martyrs&*"
Desc = ^
Strewn about this room are discarded crosses, gibbets, and stakes.
^
EndLocation = "Heaven17"
Location = "Heaven18"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WThe Silver Sea&*"
Desc = ^
You are floating on a silver sea.
^
EndLocation = "Heaven18"
Location = "Heaven19"
North = Heaven20@heaven
LFlags = Private
Title = "&+WYdalir&*"
Desc = ^
You are standing in series of dales. Yews are growing here, and you
can see signs of Ull roaming about nearby.
^
EndLocation = "Heaven19"
Location = "Heaven20"
North = Heaven21@heaven
South = Heaven19@heaven
LFlags = Private
Title = "&+WAlfheim&*"
Desc = ^
You stand in the god's gift to Freyr when he cut his first tooth. The
light elves dance around you.
^
EndLocation = "Heaven20"
Location = "Heaven21"
East = Heaven23@heaven
South = Heaven20@heaven
West = Heaven22@heaven
LFlags = Private
Title = "&+WValaskjalf&*"
Desc = ^
You stand in the Hall of the Slain. The roof is thatched with silver.
Below you, you see the spirits of all the slain creatures of the land.
^
EndLocation = "Heaven21"
Location = "Heaven22"
North = Heaven26@heaven
East = Heaven21@heaven
LFlags = Private
Title = "&+WSokkvabekk&*"
Desc = ^
The floor seems to be sinking. All around you, cool murmuring water
laps the sides. Two great chairs are here, seemingly for Odin and Saga to
sit in while they drink joyfully from gold goblets.
^
EndLocation = "Heaven22"
Location = "Heaven23"
North = Heaven24@heaven
West = Heaven21@heaven
LFlags = Private
Title = "&+WThrymheim&*"
Desc = ^
Mountains surround you. A loud roar fills the air, though you can not
locate the source. This hall once belonged to the great giant Thiazi, but
is now owned by his daughter, fair Skadi-- who was Njord's bride.
^
EndLocation = "Heaven23"
Location = "Heaven24"
South = Heaven23@heaven
West = Heaven25@heaven
LFlags = Private
Title = "&+WGladsheim&*"
Desc = ^
You heart suddenly feels lighter, filled with gladness. Nearby, you can
see Valhalla, vast and gold-bright.
^
EndLocation = "Heaven24"
Location = "Heaven25"
North = Heaven27@heaven
East = Heaven24@heaven
West = Heaven26@heaven
LFlags = Private
Title = "&+WValhalla&*"
Desc = ^
Looking up, you notice that the roof is made of shields, and the rafters
are spears. Breast-plates litter the benches. A wolf lurks at the western
door, and an eagle hovers over it. A deep and wild looking river, Thund,
roars beside Valgrind, the outer gate. Five hundred and forty doors lead
off in different directions, but you suspect that eight hundred warriors
stand behind each one, so you opt not to open any of them.
^
EndLocation = "Heaven25"
Location = "Heaven26"
East = Heaven25@heaven
South = Heaven22@heaven
LFlags = Private
Title = "&+WBreidablik&*"
Desc = ^
You stand in Broad Splendour, Balder's hall. The country around you is
beautiful, blessed and untainted by any evil.
^
EndLocation = "Heaven26"
Location = "Heaven27"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WVidi&*"
Desc = ^
This is a land of long grass and saplings.
^
EndLocation = "Heaven27"
Location = "Heaven28"
South = Heaven29@heaven
LFlags = Private
Title = "&+WNorthern Tundra&*"
Desc = ^
You are travelling in a land of ice and snow. The sun and the
reflections from the brilliant white snow conspire to blind you, but
through squinted eyes you can catch sight of the stark, raw beauty. Though
the wind howls about you, the cold does not seem to have any affect.
^
EndLocation = "Heaven28"
Location = "Heaven29"
North = Heaven28@heaven
South = Heaven30@heaven
LFlags = Private
Title = "&+WHardwood Forest&*"
Desc = ^
You stand under a canopy of leaves and intertwined branches. Through
the trees, you can glimpse deep blue lakes, which you imagine to have been
created by the northern glaciers thousands of years ago.
^
EndLocation = "Heaven29"
Location = "Heaven30"
North = Heaven29@heaven
East = Heaven32@heaven
West = Heaven31@heaven
LFlags = Private
Title = "&+WNorthern Plains&*"
Desc = ^
Golden grass stretches as far as you can see in all directions.
^
EndLocation = "Heaven30"
Location = "Heaven31"
East = Heaven30@heaven
South = Heaven35@heaven
LFlags = Private
Title = "&+WNorthwestern Rainforest&*"
Desc = ^
Far to the west you can spy the blue of the ocean. The abundant
vegetation causes you to believe that you are standing in a rainforest.
Dark clouds gather to the west.
^
EndLocation = "Heaven31"
Location = "Heaven32"
South = Heaven33@heaven
West = Heaven30@heaven
LFlags = Private
Title = "&+WNortheastern Forest&*"
Desc = ^
You are standing in a grove of maple trees. To the east you spy the
ocean, upon which waves are breaking.
^
EndLocation = "Heaven32"
Location = "Heaven33"
North = Heaven32@heaven
West = Heaven34@heaven
LFlags = Private
Title = "&+WSwamp&*"
Desc = ^
The earth sucks at your feet as you walk. Off in the trees you can
hear the sounds of alligators in search of food. It is getting dark. The
alligators are hungry.
^
EndLocation = "Heaven33"
Location = "Heaven34"
East = Heaven33@heaven
South = Heaven36@heaven
West = Heaven35@heaven
LFlags = Private
Title = "&+WThe Southern Plains&*"
Desc = ^
You stand in an arid land. Tumbleweeds blow in the wind about you.
^
EndLocation = "Heaven34"
Location = "Heaven35"
North = Heaven31@heaven
East = Heaven34@heaven
LFlags = Private
Title = "&+WLand of Giants&*"
Desc = ^
All around you are huge redwoods and sequoias.
^
EndLocation = "Heaven35"
Location = "Heaven36"
UseTrap = all:Heaven14
LFlags = Private
Title = "&+WHome of the Great Spirit&*"
Desc = ^
The Great Spirit is not in right now, and there does not seem to be any
place to leave a message.
^
EndLocation = "Heaven36"