#include "undef.h"
#include "exits.h"

Zone		= forest
Author		= "Unknown"

EndZone		= forest

Mobile		= troll
Name	= "The Troll"
Location	= cave@forest
Strength	= 100
Damage		= 20
Aggression      = 30
Armor		 = 0
Desc		= "
A large hulking troll snarls at you as he prepares to do you in."
EndMobile             = troll



Object      = club
Location	= IN_ROOM:cave@forest
OFlags		= Weapon
Damage    = 4
BaseValue    = 10
Size      = 30
Weight    = 30
Desc0   = "A heavy wooden club has been dropped here."
EndObject       = club

Object      = earring
Location	= IN_ROOM:cave@forest
OFlags		= WearOnBody
BaseValue    = 100
Size      = 1
Weight    = 1
Desc0   = "
A dented and tarnished platinum earring lies discarded at your feet."
EndObject       = earring

Object      = venison
Location	= IN_ROOM:cave@forest
OFlags		= Food
BaseValue    = 10
Size      = 40
Weight    = 40
Desc0   = "A haunch of probably edible venison rests here."
EndObject       = venison

Object      = pot
Location	= IN_ROOM:cave@forest
OFlags		= Container
BaseValue    = 10
Size      = 30
Weight    = 30
Desc0   = "An old metal pot has been dumped here."
EndObject       = pot

Object      = key
Location	= IN_ROOM:cave@forest
OFlags		= Key
Size      = 2
Weight    = 1
Desc0   = "A bent metal key has been thrown here, although it seems usable."
EndObject       = key

Object      = brass
Location	= IN_ROOM:cave@forest
BaseValue    = 10
Size      = 1
Weight    = 1
Desc0   = "A glittering piece of old brass has been tossed away here."
EndObject       = brass

Object      = torch
Location	= IN_ROOM:cave@forest
OFlags		= Lightable, Extinguish
State     = 1
MaxState  = 1
BaseValue    = 10
Size      = 10
Weight    = 5
Desc0   = "
A lit torch sizzles and sparkles on the ground, making a horrible smell."
Desc1   = "A greasy animal fat torch has been dumped here."
EndObject       = torch

Object      = TreeEating
Name	= "tree"
Location	= IN_ROOM:F4@forest
OFlags		= NoGet
Trap		= all
@
   switch (event) {
   case E_ONTIMER:
   case E_AFTERENTRY:
      if (randperc () < 20)
      {   int me = real_mynum;
          sendf(param_s.plx,"You are suddenly taken into the tree!\n");
          setup_globals(param_s.plx);
          teletrap(LOC_FOREST_INTREE);
          setup_globals(me);
      }
      break;
   case E_ONOPEN:
      bprintf("You can't shift the tree!\n");
      param_s.ret = -1;
      break;
   default:
      break;
   }
@
EndTrap
EndObject       = TreeEating

Object      = InsideTree
Name	= "tree"
Location	= IN_ROOM:InTree@forest
OFlags		= NoGet
Trap		= all
@
    switch (event) {
    case E_ONLIGHT:
      bprintf("The tree screams and thrashes around.  In its dying throes you dash free!\n");
      stp = 0;
      strbuf[stp] = '\0';
      trapch(LOC_FOREST_F4);
      destroy(OBJ_FOREST_TREEEATING);
      setpscore(mynum,pscore(mynum)+100);
      param_s.ret = -1;
      break;
    case E_ONMISC:
      if (param_s.misc == VERB_TICKLE)
      {   bprintf("You tickle the tree into paroxyms of giggles and manage to escape.\n");
          trapch(LOC_FOREST_F4);
          ++oarmor(OBJ_FOREST_TREEEATING);
          param_s.ret = -1;
      }
      break;
    case E_ONOPEN:
      bprintf("You can't shift the tree!\n");
      param_s.ret = -1;
      break;
    default:
      break;
    }
@
EndTrap
EndObject       = InsideTree

Object      = pipes
Location	= IN_ROOM:F8@forest
BaseValue    = 100
Desc0   = "A set of small pipes have been left here."
Trap		= all
@
   switch (event) {
   case E_ONMISC:
     if (param_s.misc == VERB_PLAY)
     {  bprintf("Much as you try, the pipes only make nasty &=yMsqueak&*ing noises.\n");
        param_s.ret = -1;
     }
     break;
   default: break;
   }
@
EndTrap
EndObject       = pipes


Location	= "InTree"
Trap		= all
@
    switch (event) {
    case E_ONTIMER:
       if (plev(param_s.plx) < LVL_APPREN && randperc() < 10)
       {   ++odamage(OBJ_FOREST_TREEEATING);
	   sendf(DEST_ALL, "The Tree shouts 'Hahaha!  Score: Me - %d Mortals -%d!'\n",
		  odamage(OBJ_FOREST_TREEEATING), oarmor(OBJ_FOREST_TREEEATING));
	   p_crapup (param_s.plx, "You have been absorbed, and crushed to death by "
		      "the tree....", CRAP_SAVE);
	   broad ("There is a hideous scream and a grinding of bone...\n");
       }	 
       break;
       param_s.ret = -1;
    default:
      break;
    }
@
EndTrap
LFlags		= OnePerson
Title		= "&+WIn The Tree&*"
Desc		= ^
   You are trapped inside a tree, being crushed out of existence very slowly!
^
EndLocation	= "InTree"

Location	= "Path"
East		= F1@forest
South		= F3@forest
West		= F2@forest
LFlags		= Outdoors, Realtime
Title		= "&+WThe Path&*"
Desc		= ^
   You are standing on a narrow path which winds roughly southwards through the
tangled trees around you.  The forest here is mostly pines and thick layers of
pine needles cover the forest floor.
^
EndLocation	= "Path"

Location	= "F1"
North		= F3@forest
East		= F2@forest
South		= Path@forest
West		= Path@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   The forest here is thick and dark, with little light seeping through at any
point. Fortunately the darkness is only sufficient to dim your sight making you
jump at the shadows amongst the swaying trees.
^
EndLocation	= "F1"

Location	= "F2"
North		= Path@forest
East		= Path@forest
South		= F1@forest
West		= F1@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   The forest thins a little here, entering a green and fresh glade.  Shafts of
bright sunlight strike through the forest canopy from above illuminating the
maze of trails which lead in all directions from the forest glade.
^
EndLocation	= "F2"

Location	= "F3"
North		= Path@forest
East		= F4@forest
South		= F1@forest
West		= F2@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   The forest here is tangled and very thick.  Branches whip out against you
from all directions, scratching at your arms and legs.  Trails lead off through
the dense brush, although they are evidently little used.
^
EndLocation	= "F3"

Location	= "F4"
North		= F2@forest
East		= F2@forest
South		= F5@forest
West		= F3@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You would guess you are now somewhere near the center of the forest.
Certainly you can see nothing but trees around here.  Narrow tracks lead off in
all directions.
^
EndLocation	= "F4"

Location	= "F5"
North		= F6@forest
East		= F4@forest
South		= F5@forest
West		= F4@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You are lost amid the tangled trees and bushes of the forest.  Dark gloomy
trunks seem to leer down at you, as you duck between the low twisted and warped
branches.
^
EndLocation	= "F5"

Location	= "F6"
North		= F5@forest
East		= Stream@Blizzard
South		= F1@forest
West		= F7@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   The forest here is green and lively, its thick young growth tangled and
glowing with life.  A narrow stream trickles away to the east, and a path runs
down towards it.
^
EndLocation	= "F6"

Location	= "F7"
North		= F4@forest
East		= F6@forest
South		= F6@forest
West		= F8@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You are standing in a small clearing deep in the forest.  The thick trees
press inwards from all sides, searching to cover this tiny gap in their mighty
ranks.  A huge tree lies across the clearing, apparently uprooted by the wind.
Quite possibly this is what left the clearing in the first place.
^
EndLocation	= "F7"

Location	= "F8"
North		= F7@forest
East		= F9@forest
South		= F2@forest
West		= F1@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You are following a path through the trees.  The path diverges here and
paths run off in all directions, turning and twisting into the forest.
^
EndLocation	= "F8"

Location	= "F9"
North		= F10@forest
East		= F2@forest
South		= F5@forest
West		= F8@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   The forest seems friendlier here than in most places.  The tall straight
trees give plenty of room to move around and lack the annoying tangles of low
branches which scratch at you throughout the surrounding forest.  A narrow worn
path leads northwards.
^
EndLocation	= "F9"

Location	= "F10"
North		= F1@forest
East		= F11@forest
South		= F2@forest
West		= F9@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You are following a damp muddy path which runs south and east from here.
A large notice, half covered by thick tangled bushes points east and reads
"T rq /th'  |<ey".  Years of rain and wind have pounded the other letters
beyond reading.
^
EndLocation	= "F10"

Location	= "F11"
North		= F6@forest
East		= F9@forest
South		= clearing@forest
West		= F10@forest
LFlags		= Outdoors, Realtime
Title		= "&+WForest&*"
Desc		= ^
   You are following a path through the forest, which turns abruptly from the
west back southwards into a particularly dense thicket.  The trees all around
you, though dense, are not enough to deter a truly intrepid explorer.
^
EndLocation	= "F11"

Location	= "Clearing"
North		= F10@forest
East		= F4@forest
South		= Cave@forest
West		= F4@forest
LFlags		= Outdoors, Realtime
Title		= "&+WThe Clearing&*"
Desc		= ^
   You stand in a large partly shaded clearing deep in the woods.  From the
edges of the trees faint rustling disturb the eerie quietness.  All around you
are thick trees save to the south where the trees end abruptly at a low rocky
outcropping.
^
EndLocation	= "Clearing"

Location	= "Cave"
North		= Clearing@forest
Title		= "&+WThe Troll's Cave&*"
Desc		= ^
   You stand in a large very smelly cave.  The walls and floor are littered
with the remains of many an unsavory meal.  A single passage leads north out
into the sunlight.
^
EndLocation	= "Cave"