[spiritwrak.git] / src / FUBLIO.INF

! ******************************************************************
! FUBLIO.INF
! ----------
! Add-on file for SPIRITWRAK
! -- Contains South Fublio Valley locations, items and creatures
! ******************************************************************

Object FUBLIO_GUSStop "Southern Fublio Valley"
   with description "You are in a southern region of Fublio \
Valley, where someone apparently decided to start \
a city. So far, a couple huts and farmhouses are the \
result. A rather run-down farmhouse lies to the \
southwest, a trail runs through grasslands to \
the south and a smaller trail runs along the hills to the \
southeast. To the north, you see a decrepit old \
building. There is also a stairway into the ground here.",
        name "huts" "farmhouses" "farmhouse" "trail" "grasslands"
"hills" "stairway",
        d_to FUBLIO_GUSStation,
        sw_to Farm,
        s_to Grasslands,
        se_to Fublio_forest,
        n_to Fublio_bank,
        cant_go "You amble around the local area a bit, and return here.",
   has light;
   
Object Fublio_bank "Abandoned Bank"
   with description "You're inside what must have once been a \
small branch office of the once indestructible Bank of Zork. \
However, the place has clearly been abandoned, and age has not \
been kind. Even the required portrait of J. Pierpont Flathead \
has been pilfered. An exit lies south.",
   s_to [;
! first case, r & (!p & !q & !s)
      if ((children(r_vault) == 20) &&
          (children(p_vault) == 0) &&
          (children(q_vault) == 0) &&
          (children(s_vault) == 0)) return FUBLIO_GUSStop;
! second case, (p & s) & (q & !r)
      if (((children(s_vault) > 0) && 
           (children(p_vault) == children(s_vault))) &&
          ((children(q_vault) == (children(p_vault) + 5)) &&
           (children(r_vault) ~= 20))) 
         return FUBLIO_GUSStop;
      "A buzzer sounds, and some mysterious force \
prevents you from leaving!";
   ],   
   has light;

Class vault_class
   with name "vault",
   description "Basically a hollow rectangular hole cut \
into the wall.",
   before [;
      Receive:
if (noun hasnt is_coin)
   "A strange force pushes your hand away.";
   ],
   capacity 100,
   size 10,
has static container open transparent;      

Object p_vault "interest vault" Fublio_bank
   class vault_class,
   with name "interest",
        initial [;
          print "An vault labeled ~INTEREST PAID~ is \
open in the wall";
if (children(self) > 0) {
   print ". Inside";
   WriteListFrom(child(self), FULLINV_BIT + ENGLISH_BIT + ISARE_BIT);
}
".";
        ],
;
Object q_vault "overhead vault" Fublio_bank
   class vault_class,
   with name "overhead",
        initial [;
print "An vault labeled ~OVERHEAD~ is \
open in the wall";
if (children(self) > 0) {
   print ". Inside";
   WriteListFrom(child(self), FULLINV_BIT + ENGLISH_BIT + ISARE_BIT);
}
".";
        ],
;
Object r_vault "basis vault" Fublio_bank
   class vault_class,
   with name "basis",
        initial [;
print "An vault labeled ~BASIS~ is \
open in the wall";
if (children(self) > 0) {
   print ". Inside";
   WriteListFrom(child(self), FULLINV_BIT + ENGLISH_BIT + ISARE_BIT);
}
".";
        ],
;
Object s_vault "loans vault" Fublio_bank
   class vault_class,
   with name "loans",
        initial [;
print "An vault labeled ~LOANS~ is \
open in the wall";
if (children(self) > 0) {
   print ". Inside";
   WriteListFrom(child(self), FULLINV_BIT + ENGLISH_BIT + ISARE_BIT);
}
".";
        ],
;


Object bank_memo "bank memo" Fublio_bank
    with name "memo",
description "BANK WORKER GUIDELINES^^\
If at any point, account activity has been suspended \
(i.e. all regular account vaults have no funds) then \
it must be ensured that 20 zorkmids remain in basis, \
for potential loan requests.^^\
Otherwise, vaults must be maintained as follows:^^\
For interest waiting to be paid, the amount must \
equal the amount held in the loan payments vault. \
If this amount goes over the loan payments, talk \
to your local gnome manager to see about getting \
some outstanding loans paid back.^^\
Overhead should be kept at the amount in interest,
plus five.^^\
Loan payments should be kept at a positive amount.^^\
Make sure that both the loan and interest vaults \
are maintained properly, and at the same time, the \
overhead vault is maintained while the basis vault \
is kept at a non-suspended bank amount. If this \
is not the case, you may need to put some overtime \
in to straighten out the bank funds.",
   size 15;

Object c30 "coin" r_vault class coin_class;
Object c31 "coin" r_vault class coin_class;
Object c32 "coin" r_vault class coin_class;
Object c33 "coin" r_vault class coin_class;
Object c34 "coin" r_vault class coin_class;
Object c35 "coin" r_vault class coin_class;
Object c36 "coin" r_vault class coin_class;
Object c37 "coin" r_vault class coin_class;
Object c38 "coin" r_vault class coin_class;
Object c39 "coin" r_vault class coin_class;
Object c40 "coin" r_vault class coin_class;
Object c41 "coin" r_vault class coin_class;
Object c42 "coin" r_vault class coin_class;
Object c43 "coin" r_vault class coin_class;
Object c44 "coin" r_vault class coin_class;
Object c45 "coin" r_vault class coin_class;
Object c46 "coin" r_vault class coin_class;
Object c47 "coin" r_vault class coin_class;
Object c48 "coin" r_vault class coin_class;
Object c49 "coin" r_vault class coin_class;

Object Farm "Farm"
   with description "You're standing in front of a small farmhouse. \
A trail leads northeast, a sand bar lies to the southwest, \
and another trail heads east.",
        name "trail",
        ne_to FUBLIO_GUSStop,
        sw_to Veg_fields,
        e_to Grasslands,
   has light;
   
Nearby farmhouse "farmhouse"
   with name "farmhouse" "house",
        description "A small farmhouse, barely a shack.",
        before [;
           Enter: "The farmhouse is run-down enough already without you \
                  stomping around in it.";
        ],
   has scenery;   
   
Object Veg_fields "Oyster Farm"
   with description [;
           print "A coastline sand bar curves west a short distance \
here, ending in a shoal of large rocks. Nearby, \
someone has dug some shallow holes in the \
sand, probably farming for live Rotund Oysters, a popular \
Eastland delicacy.";
           if (self hasnt general)
"Unfortunately, the oyster \
beds are too far inland, and they appear to be \
empty. A bit to the west you can see a small \
shoreline cave in the rocks.";
           else
"The oyster \
beds are filled with water (similar to a good portion \
of the shoal) and look well stocked!";
             ],
             name "sand" "bar" "shoal" "rocks" "cave",
             before [;
Fill: "Seawater is hardly a rare commodity these days.";
             ],
             ne_to Farm,
             w_to [;
               if (self hasnt general) {
                  print "You try to head towards the cave, but \
the unstable rocks and sea waves make it "; 
                  if (FUBLIO_Cave hasnt general) {
                  give FUBLIO_Cave general;
                  print "difficult \
to get there from here. Suddenly, a rock slips from underfoot! \
You fall...^";
                  return FUBLIO_Cave;
                  }
                  else 
                  print "impossible \
to get there from here.^"; return 1;
               } 
               else
                  "Any remainder of the sand bar west is \
now submerged by a high tide or rise in the sea.";
             ],
   has light;
   
Nearby oyster_beds "oyster beds"
   with name "beds" "holes" "hole",
        description [; 
          print "Some shallow";
          if (Veg_fields hasnt general)
            ", mostly empty holes in the sand.";
            " holes in the sand, filled with sea water.";
        ],
        before [;
           Search:
              if (Veg_fields has general)
                 "You find a couple immature oysters, and throw \
them back."; 
           Receive:
              "Someone is obviously trying to use these holes \
for oyster farming. Best to leave them as you found them.";
        ],
   has scenery;

Object FUBLIO_Cave "Dark Damp Cave"
   with description [;
        print "You seem to be in some underground cave. ";
        if (FUBLIO_Cave.number == 1)
"There are no visible exits. You feel rather claustrophobic. \
You also hear some unexpected noises.";
        else 
"There is a small dark tunnel leading south. \
You hear the sounds of rushing water from somewhere nearby.";
        ],
        number 1,
        name "tunnel",
        s_to [;
           if (FUBLIO_Cave.number == 1)
              "You can't go that way.";
           if (FUBLIO_Cave.number == 3)
              "The dark tunnel becomes blocked after a short distance \
by a great tidal swell! The sea has risen above the entrance!";              
           else {
              print "^You crawl through the dark tunnel, which \
seems to snake back and forth. After what seems like an \
eternity, you see daylight, and stumble forward. You find \
yourself on the sand bar again! Looking back, you can't \
locate the tunnel you just left at all!^";
              FUBLIO_Cave.number = 3;
              return Veg_fields;
           } 
        ],
        before [;
          Listen: "You hear the sounds of the sea all around you.";
          Smell: "You smell the musty odor of the sea.";
        ],
;



Object Grasslands "Grassland Beach"
   with description [;
        if (self hasnt general)
          print "A nice beach with lots of tall grasses hides \
behind a short dune here. The Great Sea stretches out \
to the south.";
        else 
           print "A deep marsh hides behind a short dune here. The Great Sea \
        is making some inroads here, apparently. That volcano in \
        the water to the south may have had something to do with it.";
        " From here, you can go north, west or east. \
        You can just glimpse some sort of tower-like structure \ 
        far across the bay in the east.";
        ],
        name "beach" "grasses" "dune" "marsh" "sea" "tower",
        w_to [;
             if (player in sailboat)
                "You'll have to get out of the sailboat first.";
             else return Farm;
             ],
        e_to [;
             if (player in sailboat)
                "You'll have to get out of the sailboat first.";
             else return Fublio_forest;
             ],
        n_to [;
             if (player in sailboat)
                "You'll have to get out of the sailboat first.";
             else return FUBLIO_GUSStop;
             ],
        s_to [;
             if (player in sailboat) return On_Fublio_bay;
             else
                "The tides here make swimming unadvisable.";
             ],
        before [;
             Swim:  
                "The tides here make swimming unadvisable.";
        ],
  has light;
  
Nearby sailboat "small sailboat"
   with name "sailboat" "boat",
        description [; 
           if (self hasnt general)
              "A nice little sailboat that looks pretty sea-worthy. \
The word ~MINIRVA~ is painted on one side.";
           "A badly damaged sailboat. Several places bear deep \
cracks, as though the boat had been tossed in a violent storm.";
        ],
        before [;
           Go:
              if (self has general) {
                 print "In it's current condition, this boat is lucky to \
                 be floating.^";
                 return 2;  ! disallow movement but say nothing
                 }
              else rtrue;
           Cast:
              if (the_spell_was == fiznav_spell) {
                 print "You perform a nice liturgy to the Sea Gods,";
                 if (self has general) {
                 give self ~general;
                 Achieved(6);
                 " and before your very eyes, the sailboat repairs itself!";
                 }
                 else " however the boat seems unchanged.";
              }
           Take: 
              "That's too cumbersome to carry.";
        ],
        capacity 15,                                                          
        size 30,
   has enterable static container open;
   
! Object c6 "coin" sailboat class coin_class;

Object On_Fublio_bay "On Fublio Bay"
   with description [;
        print "You are sailing on Fublio Bay. A shoreline lies \
to the north. You could probably sail out of the bay \
to the south, but I'd advise against it, \
the winds aren't very strong. To the northeast \
you can see ";
        if (self hasnt general)
           "the tip \
           of a peninsula where a lighthouse tower is standing.";
        else 
           "a partially submerged lighthouse tower. \
           Also, to the southeast is a small volcanic island where \
           you could probably land.";
        ],
        name "shoreline" "bay" "peninsula" "tower" "lighthouse"
"island",
        n_to Grasslands,
        s_to Lost_at_sea,
        ne_to [;
           if (self hasnt general)
              "The winds blow the wrong way, and you end up back here.";
           else return Lighthouse2;
        ],
        se_to [;
           if (self hasnt general)
              "You can't go that way.";
           else return Volcano_island;
        ],
        before [;
           Go:
              if (noun==s_obj)
                 print "^A sudden gust of wind sends your small craft \
                   skimming out of control!^";
           Swim, Exit:
              if (player in sailboat)
                 "The water's pretty deep here. I'd stay in the boat.";
           Fill: "Seawater is hardly a rare commodity these days.";
        ],
        each_turn [;
           if (seawater.number == 5) {
              seawater.number = 10;
              "^Many large bubbles are coming from somewhere deep in the \
              seawater near you, as though the water was boiling! Also, \
              you see some dark shape in the depths below rising!";
           }
           if (seawater.number == 4) {
              seawater.number = 5;
              "^There appears to be a steady stream of bubbles coming from \
              somewhere deep in the water near you! Also, you see something \
              dark rising from the depths below you!";
           }
           if (seawater.number == 3) {
              seawater.number = 4;
              "^You notice a few small bubbles rise to the surface of the sea.";
           }
           if (seawater.number == 2)
              seawater.number = 3;
        ],
        
   has light;

Object Lost_at_sea "Lost at Sea"
   with description [;
          print "You're lost at sea. The winds are completely dead. \
They managed to take you quite a ways out before they died, \
however, and it's currently hard to tell which way land was \
from here";
         if (self has general)
           ". Oddly, there's a volcano far out to the south, \
           still smoldering from a recent eruption.";      
         else ".";
        ],
        name "sea" "winds" "land",
           cant_go "The winds are dead, and you're not going anywhere.",
        before [;
           Swim, Exit:
              if (player in sailboat)
                 "The water's pretty deep here. I'd stay in the boat.";
           Fill: "Seawater is hardly a rare commodity these days.";
        ],
        each_turn [;
           if (seawater.number == 9) {
              seawater.number = 11;
              "^Many large bubbles are coming from somewhere deep in the \
              seawater near you, as though the water was boiling! Also, \
              you see some dark shape in the depths below rising!";
           }
           if (seawater.number == 8) {
              seawater.number = 9;
              "^There appears to be a steady stream of bubbles coming from \
              somewhere deep in the water near you.";
           }
           if (seawater.number == 7) {
              seawater.number = 8;
              "^You notice a small bubble rise to the surface of the sea.";
           }
           if (seawater.number == 6)
              seawater.number = 7;
        ],
   has light;
   
Object Fublio_forest "On Peninsula"
   with description [;
        print "You stand ";
        if (self hasnt general)
         "in a clearing on a grassland peninsula. A \
          trail leads northwest from here, and another leads west. \
          Off to the \
          southeast, there's an entrance into what looks like an old \
          abandoned lighthouse, just at the tip of the peninsula.";
        if (self has general)
         "on the southeast tip of a grassland peninsula. A \
          trail leads northwest from here, and another leads west. Off to the \
          southeast, you can see the top of what looks like a \
          lighthouse, partially submerged in the Great Sea.";
        ],
        name "clearing" "grassland" "peninsula" "trail" 
"tower" "lighthouse" "sea",
        nw_to FUBLIO_GUSStop,
        w_to Grasslands,
        se_to [;
              if (self has general)
              "Looks like you'd need a boat to get out to that \
              lighthouse now."; 
              else return Lighthouse1;
              ],
   has light;
  
Object Lighthouse1 "Bottom of Lighthouse"
   with description [;
        print "You're inside an ancient lighthouse. The place \
           must have been deserted quite a long time ago, and \
           is now a mess of broken stone, cobwebs and seabird \
           droppings. The rest of the peninsula is back \
           northwest. You can see a hole above where a stairway \
           probably entered an upper floor of the place, but \
           the stairway itself crumbled into dust long ago";
           if ((self hasnt general) && (amulet has worn)) {
              give self general;
           ".^^Your amulet suddenly gives off a bright purple flash, then \
           returns to normal!";
           }
           else ".";
       ],
       name "stone" "cobwebs" "droppings" "hole",
       nw_to Fublio_forest,
       u_to "The hole is too far above you.",
   has light;
 
! more scenery stuff.  This one's key though
! (Sidenote:  Here's an example of a situation where one would probably
! want an object that could be both a supporter and a container --
! i.e. objects that float or sink could be handled easily.) 
Object seawater "water"
   with name "water" "sea" "ocean",
        description "Salty blue-green water surrounds you.",
        time_left 0,
        number 1,
        weight 0,
        size 100,
        before [;
           ThrownAt, Receive:
              if (noun == toy_volcano) {
                 if (location == On_Fublio_bay)  {
                    seawater.number = 2;
                    seawater.weight = 1;
                 }
                 else {
                    seawater.number = 6;
                    seawater.weight = 2;
                 }
                 StartTimer(self,3);
                 remove toy_volcano;
                 "The toy volcano drops into the water and sinks like a stone.";
              }                            
              else {
                 remove noun;
                 if (noun == umbrella && umbrella has open)
                    "The umbrella seems to float on the water like a \
cloth dome for a short bit, but eventually sinks into the water.";
                 CDefArt(noun); " sinks into the water and is soon out of sight.";
              }              
           Push, Pull, Turn, Take, Attack, Rub, Squeeze: "The sea water runs through your fingers.";
           Taste, Drink: "It's just salty sea water.";
           Search, LookUnder:
              if (seawater.weight > 0 && seawater.number < 12)
                 "There's something down there all right!";
              else {
                 if (random(10) < 2)
                    "You glimpse a large grouper swimming under the \
water, and watch it swim away.";
                 else
                    "The water seems choppy and deep. You notice \
nothing beneath the waves at the moment.";
              }
        ],
        found_in On_Fublio_bay Lost_at_sea,
        time_out [ ;
           ! a fairly simple event here, but nonetheless dramatic...
           ! -- 1st, if we dropped the volcano in the bay (correct)
           ! set water descriptions so that player won't see bubbles
           seawater.number = 12;           
           ! set CAVE number for endgame
           FUBLIO_Cave.number = 3;
           if (seawater.weight == 1) {
           ! first, set up all room generals so that descriptions are 
           ! changed.
           give Grasslands general;
           give Veg_fields general;
           give Fublio_forest general;
           give farmer general;  ! he'll give player sphere next encounter
           give sailboat general;  ! damages sailboat, regardless of where it is
           move sailboat to Grasslands;
           ! Modify On_Fublio_bay paths, new one to island, new one to tower.
           give On_Fublio_bay general;
           ! Now, check location.  Certain areas will kill player in 
           ! tidalwave.  Certain areas will cause an audible explosion.
           ! Remainder do nothing (but shouldn't happen)
           if (location == Veg_fields or Grasslands or Lighthouse1) {
              deadflag = 1;
              "^There's a massive explosion from the south! You turn \
              and rub your eyes in disbelief. There's a \
              volcano rising out of the sea! Unfortunately, \
              there's also a large tidalwave headed your way \
              (caused by volcanic eruption at sea, no doubt) which \
              engulfs you as you try to scramble for higher ground! \
              You struggle valiantly, but drown in deep water.";              
           }
           if (location == FUBLIO_GUSStop or Farm or Fublio_forest) {
              "^You hear a massive explosion from the south! \
              It sounded pretty far off, but whatever it was, it \
              was loud.";           
           }
           if (location == On_Fublio_bay) {
              deadflag = 1;
                    "^Suddenly, the water around you literally lifts you into \
                    the sky in an enormous explosion! The last thing you \
                    see is the emerging mouth of an active and hungry volcano!";
                          }        
           if (location == Lost_at_sea) {
              deadflag = 1;
              "^You hear a large explosion off to the north! \
A massive tidal swell rushes by and tosses your small craft violently, \
knocking you into the water. As you watch the waves carry the boat
away, a giant grouper swims up and swallows you."; 
           }             
           }
           ! -- else, we dropped it in the sea (bummer)
           ! (this implies that 1) only the sea descrp will change, 
           ! 2) the player is still stuck at sea, and will be killed 
           ! for his trouble.
          else {
             give sailboat general;  ! just keeping with the story...
             give Lost_at_sea general;
             move sailboat to Grasslands;  ! made it back to shore somehow...
             deadflag = 1;
             "^Suddenly, the water around you literally lifts you into \
             the sky in an enormous explosion! The last thing you \
             see is the emerging mouth of an active and hungry volcano!";
          }        
        ],
   has scenery container open;


Object Lighthouse2 "Near Submerged Lighthouse"
   with description [;
          print "You're on the outside of what looks like the upper \
           part of a lighthouse, sticking straight out of the sea. \
           The lighthouse is broken in many places, and several areas \
           provide ledge-space to stand on. In fact, you could probably \
           climb into the lighthouse through one of many large \
           cracks in the walls to the east. The rest of Fublio bay \
           is back southwest";
          if ((self has general) || (Lighthouse1 has general) || 
              (amulet hasnt worn))
           ".";
           else {
              give self general;
           ".^^Your amulet suddenly gives off a bright purple flash, then \
           returns to normal!";
          }                             
        ],
        name "lighthouse" "cracks",
        e_to [;
           if (player in sailboat) 
              "You'll need to get out of the boat first.";
           else return In_lighthouse;
        ],
     !   in_to [;
     !      if (player in sailboat) 
     !         "You'll need to get out of the boat first.";
     !      else return In_lighthouse;
     !   ],
        sw_to [;
           if (player notin sailboat)
              "The water looks pretty choppy. I'd suggest you use a \
              sea-going vessel of some sort.";
           else return On_Fublio_bay;
        ],
    has light;
    
    
Object Volcano_island "Volcanic Island"
   with description "You're on the north shore of a small volcanic \
         island in the middle of Fublio bay. A little more \
         shore lies to the south. The bay spreads out before \
         you to the northwest.",
        name "bay",
        nw_to [;
           if (player notin sailboat)
              "The water looks pretty choppy. I'd suggest you use a \
              sea-going vessel of some sort.";
           else return On_Fublio_bay;
        ],
        s_to [;
           if (player in sailboat) 
              "You'll need to get out of the boat first.";
           else return Island2;
        ],
        before [;
           Swim:  "Near a still-active volcano? Not wise.";
        ],
   has light;                    

Object Island2 "South Part of Island"
   with description "You're on a southern section of a small \
          volcanic island in the middle of Fublio bay. Most \
          of the area here is lava-rock, still warm. You can \
          see a more open shore to the north.",
        name "bay" "rock" "lava" "shore",
        n_to Volcano_island,
        before [;
           Swim:  "Near a still-active volcano? Not wise.";
        ],
   has light; 

Nearby shipwreck "old shipwreck"
   with name "shipwreck" "wreck" "ship",
        initial "An old shipwreck is almost embedded in the lava \
             here.",
        description "It looks like an old navy vessel, \
             stuck fast in the surrounding rock. Its obviously \
             been underwater for some time, as it is covered in \
             barnacles and seaweed. The hull has partially rotted apart \
             in many places.",
        before [;
           Enter:
              "You find that anything left to enter in the wreck \
              has pretty much decayed away.";
           Cast:
              if (the_spell_was == fiznav_spell) 
                 "You perform a nice ritual to the Sea Gods, and \
                 before your very eyes, the ship attempts to repair \
                 itself! But there's too much damage, and not \
                 even the aid of the Sea Gods can fix this craft. \
                 The chant fails.";
           Search: 
              if (self has general) {
                 move green_rod_piece to parent(self);
                 give self ~general;
                 Achieved(7);
                 "Something about the old boat rings a familiar tune. \
You check near something that might have once been a mast, and \
uncover a familiar green rod!";
              }
        ],
   has static;   

Object In_lighthouse "Lighthouse, upper level"
   with description "You're inside an abandoned lighthouse, on what \
          must be an upper floor. The whole interior is lifeless and \
          barren. There's a large broken crack in the western wall. \
          You also notice a hole in the floor nearby, which might \
          have been an exitway a long, long time ago.",
       name "crack" "hole",
       w_to [;
          if (water_spirit in self)
             "The water spirit buffets you with water and \
             prevents you from leaving.";
          else return Lighthouse2;
       ],
       d_to [;
          deadflag = 1;
          "You drop through the hole, and land in cold dark water! \
          Trapped in an enclosed pool of seawater, with the hole \
          too far above you, you drown shortly afterwards.";
       ],   
       before [;
          Listen:  "You hear some sloshing noises from below the floor.";
       ],
has light;



! ************
! creatures
! ************

Object farmer "farmer" Farm
   with name "farmer",
        initial "There's a tired-looking farmer here.",
        description "It looks like he's been working pretty hard \
                     in the sun.",
        each_turn [;
           if (self hasnt general) {
              if (random(10) == 1)
                 "^~'Forget zucchini,' they told me, 'Go into oyster \
                 farming. You'll make a fortune.' Ha!~";
           }
           else {
              remove farmer;
              move silver_sphere to player;
              "^The farmer sees you approach and rushes to \
              greet you. ~I saw what you did, sir, yes indeed. \
              A mighty crazy thing to do, calling a volcano outa \
              the water like that. But you did it! And \
              my oyster beds thank you kindly! I'd like to \
              repay the favor, but I'm only a poor farmer.~ He \
              pauses, then searches his pockets. ~Here,~ he says, \
              putting something in your hand. ~Found it digging in \
              the sand. Don't know what it is, but I'll bet you \
              can use it.~ He smiles and disappears into the \
              farmhouse.";
           }
        ], 
        life [;
           Attack, ThrowAt:
              "Something about attacking a down-on-his-luck \
farmer just doesn't seem right, so you stop.";
           Answer:
              if (special_word == 'hello')
                 "The farmer nods in your direction. \
~How do, stranger?~";
           Ask:
              if (second == 'oyster' or 'farm' or 'oysters')
                 "~Did a foolish thing, sir, tried my luck with \
                 oyster farming this year. The place is too far \
                 from the sea, and I can't get any oysters in my \
                 beds, 'cause there's no water to grow 'em in.~";
           Show:
              if (noun has is_sphere)
                 "~Hey, I seen something like that once.~";
           Give, Tell:
              "The farmer smiles, but shakes his head.";
           default:  "The farmer is preoccupied with something as \
he squints into the sun.";
        ],             
        before [;
           Cast:
             if (the_spell_was == foblub_spell or espnis_spell)
"~I'm just a simple farmer, sir. I'm afraid you're losing me \
with your fancy words.~"; 
        ],
   has animate;

Object water_spirit "water spirit" In_Lighthouse
  with name "spirit",
       description "It looks like a large moving mass of seawater, \
                  in a somewhat man-like shape.",
       each_turn [ i ;
       ! spirit attack
       ! (in general, the 4 spirits are _very_ dangerous.
       ! There's a 1/5 chance of killing outright, and 2
       ! chances of doing 10 and 5 points of damage respectively.
       ! In short, the player needs to realize it's time to swanko,
       ! and do so, quickly)
       if (self hasnt general) {
            give self general ~concealed;    
            "^Suddenly, water seeps in from the west, and forms \
            into a large vaguely-humanoid shape before your very \
            eyes!";
       }
       i = random(5);
       if (i == 1) {
          deadflag = 1;
          "^The water creature moves quickly, and smothers you \
          in water! You try to escape, but the creature has \
          amazing strength and weight! The spirit soon \
          envelopes your head, and you drown...";
       }
       if (i == 2) 
          Player_HP_CUR = Player_HP_CUR - 10;
       if (i==3) 
          Player_HP_CUR = Player_HP_CUR - 5;
       if (Player_HP_CUR <= 0) {
          deadflag = 1;
          "^The last blow from the water spirit was too much for \
          you, I'm afraid to say. You sink to the ground, to \
          weak to defend yourself, as the spirit slowly oozes \
          towards you for the final blow...";
       } 
       print "^The water spirit ";
       if (i==2)
          "blasts you with a jet of seawater! \
          It feels like a battering ram just used you for a \
          practice drawbridge!";
       if (i==3)
          "buffets you with small jets of water! \
          You feel exposed areas of skin getting rubbed raw by \
          the force of the water!";
       "forms into a small wave and tries to \
       crush you, but you evade just in time!";
       ],
       before [;
          Cast:
            if (the_spell_was == swanko_spell) {
               remove self;
               "As you speak the chant, the water spirit falls back \
               in fear! You finish the chant, and the water spirit \
               makes one last attempt to smother you, but dissipates \
               with a splash!";
            }
            print "The creature makes a banshee-howl as you chant.^"; 
       ],
       life [ ;
          Attack: 
            print "You ";
            if (random(20) >= 8)
            "strike the water creature, but your attack passes \
            harmlessly through it! You hear a strange noise from \
            the creature -- akin to a drowning man laughing.";
            "attack the water spirit, but miss!";
          default: "It's too busy trying to kill you.";
       ],
   has animate concealed;

Object mad_hermit "mad hermit" FUBLIO_Cave
   with name "hermit" "madman" "mad",
        description "He looks quite crazed -- his wild eyes \
are almost unbearable to watch. His clothes are complete \
tatters, and he looks rather emaciated.",
        each_turn [ i ;
        i = random(10);
        switch(i) {
        1: "^The hermit stares at you and screams. \
~Demon, trickster -- you'll not fool me again!~";
        2: "^The hermit smiles at you. ~Come to pay \
your respects to an old man, Humboz? I know it's you.~";
        3: "^The hermit shrinks into a corner and weeps. ~No more, no more. I \
can help you no more.~"; 
        4: "^The hermit hums a little tune.";
        5: "^The hermit talks to someone or thing unseen. \
~Closer, closer, nary a sound betray...~";
        6: "^The hermit grabs your shoulder. ~I am hampered,~ \
he pleads with you, ~by the lack of an algebraic solution! \
That was where I went wrong!~";
        7: "^The hermit babbles something about a shining \
tower on a hill.";
        8: "^The hermit pauses. ~Listen, do you hear them? \
The voices -- everywhere!~";
        default: "^The hermit giggles for no reason.";
        }  
        ],
        life [;
          Answer:
            if (special_word=='hello')
               "~We meet again, do we not?~";
          Ask:
            switch (second) {
            'exit', 'outside':  "The hermit laughs. \
~You want to leave already? Very well, you'll find \
the exit where you came in.~";
            'entrance': 
               print "The hermit chuckles. ~Forgotten where \
you came in? It hasn't gone anywhere.";  
               if (FUBLIO_Cave.number == 1) {
                  FUBLIO_Cave.number = 2;
                  "~ He points at a space in the south wall, which \
you realize is actually a well-hidden tunnel.";  
               }
               else "~";
          !  'sack': "~A fine pet, mine and mine forever.~";
            'food', 'fish': "~My friends of the deep, they \
sacrifice themselves for me, as I will some day for them.~";
            default: "~Many are the secrets you keep.~";
            }
          Give:
            if (noun has edible) {
               print "The hermit greedily takes ", (the) noun, " and \
gobbles it quickly";
               remove noun;
               if (p1 in self) {
                  move p1 to player;
                  print ". ~Good, yes. \
I have something for you -- something you will treasure as I have.~ He \
gives you a piece of parchment.";
               }
               "."; 
            }
            "~No, no, I already have many of those.~";
          Attack, ThrowAt, Order:
            "The hermit cowers in one corner of \
the cave, screaming. You stop, and reconsider.";
          Kiss:
            "Tears run down the hermit's cheek.";
          Show, Tell:
            if (noun has edible)
               "The hermit visibly salivates.";
            "The hermit gibbers maniacally."; 
        ],
        before [;
           Cast:
       "The hermit joins in with your chanting, and \
twists the meaning of the words! You quickly stop.";
        ],
        time_left 0,
        time_out [;
           deadflag = 1;
           "^The hermit seems to recognize you through his madness! \
~You have returned! The Big Man! Biggest of them all! \
Returned to deliver me from my prison. I had never forsaken \
you!~^^\
~Wait,~ you protest, ~stop this madness!~^^\
But the crazed hermit continues. He prostrates in front \
of you and babbles incoherently. ~I put all my faith \
in you -- I have to leave here, before I go insane! \
The others, they abandoned hope. But not me. No! \
You have always had our best interests in mind.~^^\
He begins an eerie, frenetic song that jars your very soul. \
You watch the water level start to rise near the southern \
entrance, and wait for the end.";
        ],           
   has animate transparent;


 
! ************
! spells/scrolls
! ************

Object spotted_scroll "spotted scroll" FUBLIO_Cave
  class scroll_class,
  with name "spotted",
;

Object bekdab_spell "turn iron to rust" spotted_scroll
  class spell_class,
  with name "bekdab",
       magic [;
             "Your chant goes unanswered. I guess you need pure iron.";
       ],
;

! ************
! Misc objects
! ************


Object sack "fur sack" sailboat
   with name "sack" "fur",
        description "A fairly large sack made of furs and animal \
hides.",
        ! weight 20, 
        size 24,
        ! capacity 20,
   has container openable;

! (wet -- Anabais is one of four evil elemental powers)
Object p1 "wet parchment" mad_hermit
   class parchment_class,
   with name "wet",
description "~...evidence that there are more demons like \
the evil Anabais! In fact, I suspect that four demons, not \
one, faced the Ancient Ones in spiritual battle at the \
dawn of time! To suspect this is...~";


! 1st rod piece -- GRAY
Object gray_rod_piece "gray rod piece" In_Lighthouse
  class rod_class,
  with name "gray",
       initial "In the center of the room is a short gray rod.",
       description "It's a short section of a rod made of some \
undeterminable hard substance, \
colored gray like murky water. A piece of the Rod of \
the Ancients, no doubt!",
;

! 1st sphere - SILVER
Object silver_sphere "silver sphere"
   class sphere_class,
   with name "silver",
        description "A tiny perfect silver sphere, made of some strange \
           unknown metal.",
;