Implement per-file license notices

[spiritwrak.git] / src / anthar.inf

! ****************************************************************
! ANTHAR.INF
! -- Add-on for SPIRITWRAK
! (Do not use alone!)
!
! SPIRITWRAK is free software; you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation; either version 3 of the License, or
! (at your option) any later version.
!
! SPIRITWRAK is distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
! General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with SPIRITWRAK. If not, see <https://www.gnu.org/licenses/>.
! ****************************************************************

Object ANTHAR_GUSStop "Entrance to Greater Anthar"
   with description "You're just west of Greater Anthar on the \
island nation of Antharia. The bright sunlight \
seems to make the city streets east of here glitter. \
A stairway leads down.",
        name "sunlight" "streets" "glitter" "stairway",
        d_to ANTHAR_GUSStation,
        e_to ANTHAR_West, 
   has light;

Object ANTHAR_West "Anthar West"
   with description "You are standing in a busy section of \
West Greater Anthar City. The city seems to thin \
out to the west. A roadway heads east, \
the ever-popular Flathead \
Stadium lies to the northeast, and a pub lies to the \
south.",
        name "roadway" "stadium" "pub",
        w_to ANTHAR_GUSStop,
        e_to ANTHAR_East,
        s_to Delbins,
        in_to Delbins,
        ne_to Stadium_entrance,
        cant_go "You walk around the area, take in the local scene, and \
                 find yourself back here.",
        before [;
           Smell:  "You can smell scents of local cooking coming \
                   from the south.";
        ],
   has light;

Object ANTHAR_East "Anthar East"
   with description "You are standing in a busy section of \
East Greater Anthar City. The city continues to \
the west. There is a large odd structure to the \
east, made mostly of glass. The ever-popular Flathead \
Stadium lies to the northwest. A short walk down \
to a waterfront area is to the south.",
        name "structure" "glass" "stadium" "waterfront",
        w_to ANTHAR_West,
        e_to Conservatory_entrance, 
        s_to ANTHAR_Waterfront,
        nw_to Stadium_entrance,
        cant_go "You walk around the area, take in the local scene, and \
                 find yourself back here.",
        before [;
           Smell:  "You smell rather nice floral scents coming \
                   from the east.";
        ],
   has light;


Object ANTHAR_Waterfront "Swank Waterfront"
   with description "A pleasant waterfront walk is your current \
location. You can see the Great Sea stretching out \
before you to the south, a breath-taking sight. \
A rail runs along the south end, preventing \
an untimely fall into the rock shore below. The \
city is back to the north.",
        name "waterfront" "sea" "great" "railing" "rail" "rock" "shore",
        n_to ANTHAR_East,
   has light;

Object telescope "viewing telescope" ANTHAR_Waterfront
   with name "telescope" "viewing" "scope",
        capacity 1,
        when_closed "There's a viewing telescope here, attached to the railing.",
        when_open [ x ;
              print "There's a viewing telescope here, attached to the \
railing. One of the lenses seems loose";
              if (children(self) == 0) ".";
              else {
                 print ". Inside you see:^";
                 x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
                 WriteListFrom (child(telescope), x, 1); rtrue;
              }
        ],
        description "A nice tourist toy. Perfect for getting a good view.",
        before [;
           Open:  print "You pry loose a lens. ";
           Close: print "You push the lens back in place. ";
           Search: 
              if (self hasnt open) {
                 print "You take a peak through the telescope";
                 if (children(self) ~= 0)
                    " but oddly, there's something blocking your \
                    view.";
                 else {
                 if (random(40)==1)
                    " and see a ship in the distance! Wait, perhaps not. \
It's gone.";
                 " and see a nice expanse of the Great Sea.";
                 }
              }
        ],
        size 10,
   has static container openable;

! (Conservatory gardens)

Object Conservatory_entrance "Conservatory Entrance"
   with description "You stand before the entrance to a large public \
conservatory. You can enter the greenhouses to the northeast \
and southeast, or walk back to Anthar to the \
west.",
        name "greenhouse" "greenhouses",
        w_to ANTHAR_East,
        ne_to Con_Desert_garden,
        se_to Con_Flower_garden,
        before [;
           Smell: "You can smell floral scents from the southeast.";
        ],
   has light;

Object Con_Desert_garden "Desert Garden"
   with description "A nicely arranged collection of desert plants \
is here in the ~Desert Garden~. Bright sunlight \
and a sandy ground enhance the overall effect. \
The conservatory entrance is to the southwest, or \
more gardens lie to the south and east.",
        name "sunlight" "plants" "sand" "gardens",
        sw_to Conservatory_entrance,
        e_to Con_Forest_garden,
        s_to Con_Decor_garden, 
   has light;


Object Con_Flower_garden "Flower Garden"
   with description "A rather lovely flower garden lies before you. \
The multi-colored flowers are turning the air into \ 
perfume. The conservatory entrance is northwest, \
or more greenhouse gardens lie to the north and \
east. A tiny trail leads south past the flower \
beds.",
        name "perfume" "entrance" "trail" "greenhouse",
        nw_to Conservatory_entrance,
        e_to Con_Jungle_garden,
        n_to Con_Decor_garden,
        s_to Con_storehouse,
        before [;
          Smell:  "The bouquet of flowers is quite intoxicating.";
        ],
   has light;

Nearby flowers "flowers"
   with name "flowers" "flower" "garden",
        description "A lovely assortment of flowers.",
        before [;
          Take: "Don't pick the flowers.";
          Cast: 
             if (the_spell_was == throck_spell)
                "Suddenly, a few more flowers spring out of the \
                ground!";
        ],
   has scenery;

Object Con_storehouse "Gardener's Storehouse"
   with description "This must be a storehouse for the conservatory \
gardeners. There are soil stains and plant debris all over. \
The only exit is north.",
        name "soil" "stains" "debris" "plant",
        n_to Con_Flower_garden,
   has light;

Nearby toolshed "toolshed"
   with name "toolshed" "shed",
        description "A plain toolshed.",
        with_key shed_key,
        capacity 10,
        size 20,
        when_closed "A toolshed stands closed against the wall.",
        when_open [ x;
         print "The toolshed is open. ";
         x = children(self);
         if (x == 0) "It is empty.";
         print "Inside ";
         if (x == 1) print "is: "; else print "are: ^";
         x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
         WriteListFrom (child(self), x, 1); 
         rtrue;
       ],
   has static container openable lockable locked;

! (contents of shed)
Object gardeners_cap "cap" toolshed
   with name "cap",
        description "A cap with an odd green emblem stitched on \
the front that looks like a clover.",
        size 10,
   has clothing;
Object hedge_clipper "hedge clipper" toolshed
   with name "clipper" "clippers",
        description "Basically a long pair of scissors.",
        size 15,
;
Object rubber_gloves "rubber gloves" toolshed
  with name "gloves" "pair" "rubber",
       article "a pair of",
       description "A pair of yellow rubber gloves, slightly \
worn. Good for gardening, or washing dishes, I suppose.",
       size 10,
has clothing;

! (cracked -- magic has questionable source, doesn't always work)
Object p3 "cracked parchment" toolshed
   class parchment_class,
   with name "cracked",
description "~...is true that those who go by the title of \
'Enchanters' need not wear any holy symbol through which \
to draw magical power. Indeed, it seems as though the very \
amulets we must wear are our only link to magical powers \
at all. Worse yet, the powers are indeed granted from \
powers above, but the Ancient Ones? I think not. For indeed, \
I have found places where magic powers will not work, with or \
without the amulet. Likewise, I have found places where \
magic works, but praying to the Ancient Ones goes unanswered! \
What this all...~";

Object Con_Decor_garden "Decorative Plants Garden"
  with description "\ 
You are standing in a small well-kept garden. The plots surrounding the \
paths are filled with a variety of general ground-cover plants, all \
appropriate for most discerning homeowners. Exits lie north and south.",
       name "ground-cover" "plots" "flamingo" "tinsel" "ornament",
       n_to Con_Desert_garden,
       s_to Con_Flower_Garden,
  has light;

Object Con_Forest_garden "Forest Garden"
   with description "A garden path winds through this narrow \
greenhouse, which is stocked with various forest plants. \
The path winds back to the west and south.",
        name "path",
        w_to Con_Desert_garden,
        s_to Con_Fountain,
   has light;

Nearby plants1 "plants"
   with name "plants" "plant" "tree" "forest",
        description "You are reminded of a hiking trip you took once.",
        before [;
           Cast: 
              if (the_spell_was == throck_spell)
                 "The forest seems a bit livelier now.";
        ],
   has scenery;

Object Con_Jungle_garden "Jungle Garden"
   with description "A garden path winds through this \
long greenhouse, which is filled with plants native to \
jungle settings. The environment is somewhat \
humid. The path heads west and north from here.", 
        name "path" "humid",
        w_to Con_Flower_garden,
        n_to Con_Fountain,
        e_to [;
          if (waterfall hasnt general)
             "You can't go that way.";
          else return Con_Nursery;
        ],
        before [;
           Smell: "You smell flowers to the west.";
        ],
   has light;

Nearby plants2 "plants"
   with name "plants" "plant" "tree" "jungle",
        description "Reminds you of a picture you once saw of \
the Miznia jungles.",
        before [;
           Cast: 
              if (the_spell_was == throck_spell)
                 "The jungle seems a bit livelier now.";
        ],
   has scenery;

Object waterfall "small waterfall" Con_Jungle_garden
   with name "waterfall" "fall" "falls",
        initial [;
            if (self hasnt general)
               print "A nice little waterfall enhances the jungle \
setting";
            else 
               print "A fake waterfall hides a passage";
            " to the east.";
        ],
        description [;
            print "A small";
            if (self has general) print " fake";
            " waterfall drops out of a mock-stucco \
wall to the east.";
        ],
        before [;
           Pull, Push, Touch, Search, Rub:
              give self general;
              "You reach out, expecting to get your hands wet, but \
              to your surprise, you feel a cloth-like substance. \
              On closer examination, you realize that the waterfall \
              is a clever realistic-looking fake, made of cloth \
              and wood. Stepping around some low plants, you also \
              notice the waterfall covers a passage east!";
           ThrownAt:
              move noun to Con_Jungle_garden;
              CDefArt(noun); ", to your surprise, literally \
              bounces off the waterfall, and lands with a thump \
              nearby.";
        ],
   has static;

Object Con_Nursery "Nursery"
   with description "This small back room is apparently the \
conservatory nursery. Bits of soil and plant \
debris are everywhere, along with immature \
seedling plants. A exit lies west, partially \
covered by some cloth.",
         name "soil" "plant" "debris" "seedling" "cloth", 
        w_to Con_Jungle_garden,
   has light;

Object smallpot "small flower pot" Con_Nursery
   with name "pot",
        description "A small red-ceramic flower pot, \
ideal for small plants, I suppose.",
        before [;
           Push, Take:
              if ((location == Con_Nursery) && (self hasnt general))  {
                 give self general;
                 move shed_key to Con_Nursery;
                 print "Moving the pot uncovers a small key hidden \
underneath it.^";
                 if (action==##Push) rtrue; else rfalse;
              }
           LookUnder:
              if ((location == Con_Nursery) && (self hasnt general))  {
                 "The pot does appear to be sitting crooked. But \
                 you can't see whatever is under it.";
              }
           Cast:
              if ((the_spell_was == huncho_spell or luncho_spell) &&
                  (self hasnt general)) {
                     give self general;
                     move shed_key to Con_Nursery;
                     rfalse;
                  }                 
        ],
        size 15,
   has container open transparent;


Object Con_Fountain "Fountain"
   with description "A tasteful fountain intercepts a north-south \
garden trail here.",
        name "trail",
        n_to Con_Forest_garden,
        s_to Con_Jungle_garden,
        each_turn [;
          if (random(20) == 1)
             "^You hear someone whistling nearby, but there doesn't \
seem to be anyone around.";
        ],
   has light;

Nearby fountain "fountain"
   with name "fountain", 
        description "A stone basin with a central fountain spout \
shaped like a fish. There's no water running currently.",
        before 
        [ x;
           Search: 
              if (self hasnt general) {
                  give self general;
              move c3 to self;
              "You fish in the fountain for a bit and find a coin!";
              }
              else {
                 print "Mostly wet plant debris";
                 x = children(self);
                 if (x == 0) 
                    ", nothing interesting.";
                 print ". You also notice:^";
         x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
         WriteListFrom (child(self), x, 1); rtrue;
              }
           Receive:
              if (noun has is_coin)
                 print "Hoping for a little luck, I presume?";
        ],
        capacity 10,
        size 25,
   has scenery container open;

Object glasses "pair of glasses" Con_Fountain
   with name "glasses",
        initial "It looks like someone left their glasses here.",
        description "Thick lenses and a heavy frame.",
        before [;
           Wear: "You put the glasses on for a moment, and it's like \
                 looking through a fishtank. Deciding \
                 against continuing your quest without adequate \
                 vision, you take them off.";
        ],
        size 5,
   has clothing;

Object c3 "coin" class coin_class;

Object shed_key "small key" 
   with name "key" "small",
        description "A small metal key.",
        size 4,
; 


! (Delbin's Pub)

Object Delbins "Delbin's Pub"
   with description [;
           print "Delbin's Pub has been a popular food and drink spot in \
           South Anthar for quite a while. ";
           if (self hasnt general)
           print "Usually, you need to \
           fight off barbarians to find a place to sit. At the moment, \
           however, the place is unusually quiet. A group of \
           barbarians seem paralyzed with fear near the back wall, \
           glancing nervously at the front of the bar.";
           else print "A group of barbarians \
           are making a lot of noise nearby.";
           " The exit is to the north.";
        ],
        name "back" "front",
        number 0,
        before [;
          Listen:
             if (self has general)
                "The barbarians are a rather noisy bunch.";
          Go:
            if ((noun == n_obj) || (noun==out_obj))
print "Delbin calls out ~Visit us again!~ as you leave.^";
        ],
        n_to ANTHAR_West,
        out_to ANTHAR_West,
        each_turn [ i ;
           if (Morgan in Delbins) {
              i = random(3);
              if ((i==1) && (Delbins.number == 0)) {
                Delbins.number = 1;
                 "^The man in black makes a lightning fast move for the \
glass of ale, but is countered by an equally fast move by the warrior. \
~Lose something, thief?~ the woman says. ~No need to get violent, Morgan,~ \
the thief says.";
              }
              if ((i==1) && (Delbins.number == 1)) {
                Delbins.number = 2;
                 "^The wizard looks at his companions. ~Say, did I ever \
show any of you my famous disappearing glass trick?~ He starts to take \
off his wizard's hat, but the gentleman and ranger stop him. ~Don't \
even try it, Frobar.~ the woman warrior says.";
              }
              if ((i==1) && (Delbins.number == 2)) {
                Delbins.number = 3;
                 "^The female ranger fixates on the glass of ale. \
~Look you two, some of us have better things to do, like fight wars.~ \
The wizard scowls. ~Oh save it, Morgan.~ he says.";
              }
            }
          ], 
   has light;
 
Nearby barbarians "barbarians"
   with name "barbarians" "group",
        description "A group of dirty barbarians. One of them \
           sees you staring at them, and gives you a dirty look.",
        life [;
           default:
 if (Morgan in Delbins)
    "The barbarians are somewhat paralyzed with fear at the moment.";
 else 
    "The barbarians are far too busy telling rude jokes \
at the moment.";
        ],
   has animate concealed;

Object headdress "headdress" Delbins
   with name "headdress",
        initial "A gaudy headdress of some kind is \
hanging on a nearby wall.",
        description "A large headdress made of animal fur and colorful \
bird feathers.",
        size 15,
   has clothing;

Object bar "bar" Delbins
   with name "bar",
        description "A long flat wood bar that could probably use a \
washing.",
        before [;
           Cast:
             if (the_spell_was == egdelp_spell) {
                print "The bar is covered with a waxy film. \
Delbin notices this and shrugs.";
             }
           LetGo:
             if (noun==ale_glass) {
                <Take ale_glass>; rtrue; }
        ],
   has scenery supporter;

Object ale_glass "glass of ale" bar
   with name "glass" "ale",
        description "A small glass filled with an amber liquid.",
        before [;
           Take:
              "You receive cold stares from the three individuals \
              at the bar. ~Get your own,~ the Ranger says and \
              pushes you back.";
           Drink:
              "You receive cold stares from the three individuals \
              at the bar. ~Get your own,~ the Thief says and \
              takes the glass from you before you can bring it \
              to your lips.";
           Turn, Push, Pull, Shake:
              "You receive cold stares from the three individuals \
              at the bar. ~Get your own,~ the Wizard says and \
              prevents you."; 
           ThrownAt:
              deadflag = 1;
              CDefArt(noun); " hits the glass and nearly topples it! \
              A voice from the back of the room says ~Garn! He \
              nearly ruined a perfectly good glass of ale, he did.~ \
              The three individuals at the bar turn to you with \
              angry stares, but before you can respond, some \
              barbarians pummel you to death for poor bar manners.";
          Cast:
             if (the_spell_was == zemdor_spell) {
                give Delbins general;
                remove self;
                Achieved(8);
                ! set up three NPCs
                ! -- Morgan, fairly easy
                move Morgan to Ravine_pass;
                ! -- Frobar, a little tougher
                move Frobar to FROBAR_Study;
                if (Ench_mag in Frobar_mailbox)
                   move Ench_mag to Frobar;
                StartDaemon(Frobar);
                ! -- Thief, trickiest
                remove Thief;  ! he'll be back
                if ((Painting_REAL in Museum_north) &&
                    (glass_wall notin Museum_north))
                    move Painting_REAL to THIEF_Storeroom;
                    ! Thief steals painting (no door left behind!)             
                "You quickly make the zemdor chant and watch the glass \
of ale start to shimmer! In short time, there are three glasses filled \
with ale on the bar!^^\
Morgan the Ranger looks suspiciously at Frobar the Enchanter. \
~Is this your doing, wizard?~ Frobar shakes his head. ~Surely not, \
you know I can't do magic anymore.~ He glances briefly in your \
direction. ~No matter,~ the thief says, and raises a glass. \
~To the spirit of adventure!~ The three down their glasses quickly. \
Morgan smiles. ~Now, that's good ale.~ She adjusts her broadsword. \
~I'm off to the Egreth front. Want to help end a war, Frobar?~ \
Frobar chuckles. ~Thank you, no. I've got, err, something to do \
at home,~ he says and quickly leaves. ~Well, then, what about you, \
thief?~ Morgan asks, and notices that the thief has already slipped \
away. She shrugs and leaves the bar as well. ~Good hunting!~ Delbin \
calls after her.";                
             }
             if (the_spell_was == huncho_spell or luncho_spell) 
"You begin the chant, but something about it gets the \
Enchanter's attention. ~If you have something to say, \
why don't you share it?~ With a subtle gesture, the Enchanter \
dispels the chant.";
        ],
;

Object rag "dirty rag" bar
   with name "rag" "dirty",
        description "A slightly dirty cleaning rag.",
        !weight 5,
;


! (Flathead stadium)

Object Stadium_entrance "Entrance to Flathead Stadium"
   with description "Here stands the entrance into the still \
           popular Flathead Stadium, home to esoteric \
           sports activities you never fully understood. \
           Walkways lie southeast and southwest from here, or \
           you can enter the stadium to the north.",
        name "stadium" "walkways" "entrance",
        sw_to ANTHAR_West,
        se_to ANTHAR_East,
        n_to Stadium_top,
        in_to Stadium_top,
        before [;
           Listen:  
        "You can hear the roars of a good crowd from \
   inside the stadium. Must be playoff season.";
           Go:
              if ((noun==n_obj) || (noun==in_obj))
                print "You walk right into the stadium. The ticket-takers \
                must be on strike or something.^";
        ],
   has light;

! (fake stadium entrance, for "past")

Object Stadium_entrance2 "Entrance to Flathead Stadium"
   with description "You appear to be in front of Flathead Stadium once \
again, however something seems different. Even the stadium itself seems \
dissimilar, newer. Walkways lie southeast and southwest from here, or \
you can enter the stadium to the north.",
        name "stadium" "walkways" "entrance",
        sw_to "A strange feeling compels you to stay.",
        se_to "A strange feeling compels you to stay.",
        n_to [;
            deadflag = 1;
            "As you head towards the entrance, a mob of crazed fans \
rushes out of the stadium (~Isn't that Babe Flathead?~ you hear someone \
scream) and tramples you to death.";
        ],
        before [;
           Listen:  
              "The place is surprisingly quiet.";
        ],
   has light;


Object stadium_sign "stadium sign" Stadium_entrance
   with name "sign",
        initial "A stadium event sign is pasted to one of the stadium walls here.",
        description  
                    "~Today's event:^\
                        GOLEM FIGHTS!!!^^\
                        ALL CHALLENGERS WELCOME!!!^\
                        THREE ROUNDS, THREE BOUTS!^\
                        BIG CASH FOR THE WINNER!^^\
                    (All Golems have undefeated records, so^\
                    only trained golem-wrestlers need apply!)~",
   has static;

Object stadium_statue "stadium statue" Stadium_entrance
   with name "statue",
        initial "A statue depicting the legendary Babe \
Flathead greets all visitors in front of the stadium.",
        description 
           "According to the inscription, this statue honors the legendary Babe Flathead.",
        before [;
           LookUnder:
                if (self has general) 
                   "Oddly, the statue seems to sit slightly tilted.";
           Push:
              if (self has general) {
                 remove self;
                 move statue_base to Stadium_entrance;
                 Achieved(9);
                 "You give the statue a shove, and it wobbles and falls, \
breaking into useless dust! A passing sportsfan notices your act \
of vandalism, and says to a friend, ~Look at that. The guy wins one \
bout of Golem wrestling, and he thinks he's better than Babe \
Flathead.~";  
              }
              else "The statue seems to be firmly fixed in place.";
        ],
   has static;

Object statue_base "square hole" Stadium_entrance2
   with name "hole" "square",
        describe "In front of the stadium is a square hole.",
        description "There's a large square hole in the ground near \
the front of the stadium.",
        time_left 0,
        time_out [;
!          move stadium_sign to Stadium_entrance;
!          move stadium_statue to Stadium_entrance;
          print "^You hear voices behind you, and suddenly, a \
small crowd of people pass by, pushing a statue.^^\
~Right there,~ someone shouts, and a few people position the \
statue into the square hole.";
          if (children(self) == 0) {
             print " It fits neatly in place.";
             remove red_rod_piece;
          }
          else {
             give stadium_statue general;
             print " It fits, but seems just slightly \
tilted.";
          }
!          remove statue_base;
!          give Stadium_entrance ~general;
          Mystical_Cave.number = Mystical_Cave.number + 1;  
          print "^^~That's perfect,~ you hear a voice say, and \
the crowd murmurs in agreement. Why, it's Babe Flathead himself! \
He saunters up towards the statue, which is indeed a good \
likeness, and starts handing out cigars. ~We'll get to \
autographs later,~ he says while lighting your cigar as you \
try to protest. Seconds later, the cigar explodes! You see \
sparkling stars, which seem to change to purple flashes. You \
blink.^";
          PlayerTo(Mystical_Cave);
        ], 
        capacity 1,
        size 15,
has static container open;     

Object Stadium_top "In Flathead Stadium, upper seats"
   with description "\
You are near the top cheap seats of Flathead Stadium. \
The crowd is busy cheering whatever is going on down on the \
field. Looking at the field, you see two small dots. The Stadium exit \
is back south, or you can walk down to the front seats to \
the north.",
   name "seats" "crowd" "field" "dots" "fans",
   s_to Stadium_entrance,
   n_to Stadium_bottom,
   d_to Stadium_bottom,
   e_to "You try to push your way through the fans, but fail.",
   w_to "You climb over a few seats, but the crowd blocks any \
         further progress west.",
   before [;
       Listen:  "The crowd is deafening.";
   ],
has light;


Object Stadium_bottom "In Flathead Stadium, lower seats"
   with description "\
You are near the good seats in Flathead Stadium. \
The crowd is busy cheering for the current event on the \
field. Looking at the field, you see two large dots. The \
seats continue up and south, or you can walk down to the \
field below.",
  name "seats" "crowd" "field" "dots" "fans",
  s_to Stadium_top,
  u_to Stadium_top,
  d_to [;
     if (burly_man hasnt general)
"The burly man jumps out of his seat as you try to pass. \ 
~Hey buddy, I'm saving those seats.~ He points to an entire \
row of seats below you. ~I've been waiting all season, and \
I don't want an obstructed view, so look for somewhere else to \
sit.~ He sits back in his seat.";
     else return Near_locker_room;
  ],
  n_to [;
     if (burly_man hasnt general)
"The burly man jumps out of his seat as you try to pass. \ 
~Hey buddy, I'm saving those seats.~ He points to an entire \
row of seats below you. ~I've been waiting all season, and \
I don't want an obstructed view, so look for somewhere else to \
sit.~ He sits back in his seat.";
     else return Near_locker_room;
  ],
  w_to "You try to push past a couple fans, but the angry looks make you stop.",
  e_to "You try to push past a couple fans, but the rude looks make you stop.",
   before [;
       Listen:  "The crowd is deafening.";
   ],
has light;

Object Near_locker_room "Near Locker Room"
   with description "\
You are near a locker room under Flathead field. \
You can enter the locker room to the north, or start the climb back into \
the roaring crowd to the south.",
   name "crowd" "field" "fans",
   s_to Stadium_bottom,
   u_to Stadium_bottom,
   n_to Locker_room,
   each_turn [;
      if (self hasnt general) {
         give self general;
         move pale_scroll to Near_locker_room;
         "^A couple front row fans are getting a bit boisterous. \
Several of them throw garbage and paper debris towards the field. \
You notice something flutter down by your feet.";
      }
   ],
   before [;
       Listen:  "The crowd is deafening.";
   ],
   has light;

Object Locker_room "Locker Room"
   with description "\
You are inside a locker room under Flathead field. You can hear the \
crowds outside. The room is empty. There is an exit \
to the south, and the entrance to the field is to the north.",
   name "field" "locker" "lockers",
   n_to Flathead_field,
   s_to Near_locker_room,
   before [;
       Listen:  "You can hear the crowd outside.";
   ],
   has light;

Object Flathead_field "Flathead Field"
   with description "You're on Flathead field, in front of millions of zany \
fans, a lifetime dream. Or not. Well, anyway, \
there's a locker room to the south.",
   name "field" "fans",
   s_to [;
       if (self has general)
"You head for the showers, but the coach springs out and blocks \
your way. ~Come on kid, keep your head in the game.~";
       else return Locker_room;
   ],
   each_turn [ i;
      if (self has general) {
         i = random(20);
         if (i == 1) 
            "^Someone in the crowd yells out, ~Get him a body bag!~ \
            We assume he was referring to the golem, not you.";
         if (i == 5)
            "^The crowd does 'the wave'.";
         if (i == 7)
            "^The crowd waves some strange colorful objects. \
Rather distracting.";
         if (i == 10)
            "^Someone in the crowd screams ~Flathead that golem!~";
      }
   ],
   before [;
       Listen:  "The crowd is deafening.";
   ],
   has light;




! ****************
! People/creatures
! ****************

Object Christmas_tree_monster "Christmas tree monster" Con_Decor_garden
   with name "tree" "monster" "Christmas",
        initial "A Christmas Tree stands in one plot, swaying back and forth.",
        description "\
The Christmas Tree monster has obviously seen some good years. It towers \
above you, wrapped with tinsel that sparkles marvelously. The \
plastic flamingo ornaments are a rather gaudy touch. Surprisingly, it seems to \
have taken root in the soil.",
        each_turn [ i ;
           i = random(10);
           if (i==1) 
"^The Christmas Tree Monster belts out a few bars of 'I'm dreaming \
of a Black Cavern' arranged by Bing Frozby.";
           if (i==2)
"^The Christmas Tree Monster sings a few measures from Berknip's own \
rendition of 'Silent Night', a rather morbid version.";
           if (i==3)
"^The Christmas Tree Monster hums a few notes from 'Dornbeasts \
Roasting on an Open Pyre'.";
           if (i==4)
"^The Christmas Tree Monster whistles a part of 'Frosty the Snow Wight'.";
           if (i==6)
"^The Christmas Tree Monster sways in time to 'Let it snow, let it snow, \
let it snow'.";
           if (i==8)
"^The Christmas Tree Monster treats you to an abridged version of \
Handel's 'Messiah'.";
        "^The Christmas Tree Monster hums to itself.";  
        ],
        before [;
           Cut:
              if (hedge_clipper notin player)
                 "You'll need a gardening implement to do that.";
              if (self has general)
                 "The gardener said he'd make you dig for slugs, and \
                 that doesn't sound too exciting, so let's leave the tree \
                 alone.";
              if (self hasnt general) {
print "You being to clip a few of the lower branches of the Christmas Tree \
Monster, who bellows in pain!^^\
Out of nowhere, a short old man appears, wearing full gardener \
regalia. He drags your hand away from the tree.^^\
~What are ya trying to do there, kill the thing?~ he says. ";
                 if ((glasses hasnt moved) || (glasses in Con_Fountain)) {
                    remove glasses;
                    remove hedge_clipper;
"He pulls \
out a pair of glasses and puts it on. ~Say, I don't know you,~ \
he says. ~If you want to practice introductory horticulture, do \
it in someone else's garden!~ He grabs the clippers from your hands \
and stalks off.";
                 }
                 else {
print "He seems \
to be squinting at you. ~Who are you sonny?~ he asks. He starts 
searching his pockets. ~Confound it, lost my glasses again.~ ";
                    if (gardeners_cap hasnt worn) {
                       remove hedge_clipper;
"He squints again, and says, ~Well, whoever you are, the gardens are \
for looking at, not practicing landscape design!~ He grabs the \
clippers out of your hands and stalks off.";
                    }
                    if (gardeners_cap has worn) {
                       give self general;
                       Achieved(10);
"He looks at you again, and notices your cap. ~You must be one of the \
new boys. Here, look, I'm not going to show you twice.~ He takes \
the clippers and delicately clips away several lower branches, all \
the while singing ~It's beginning to look a lot like Christmas~. \
He finishes trimming the tree, leaving a nice opening exposing the \
shrub next to it, and stops singing. ~I'm starting to hate \
that tune,~ he says under his breath. He hands the clippers back \
to you and says, ~Now if I catch you doing this wrong again, I'm \
going to make you dig for slugs, understand?~ He disappears as \
quickly as he appeared.";
                   }
                 }
              }
           Cast:
              "You start chanting, but the tree starts singing \
              ~Plover the river and frotz the woods~ and you \
              can't help joining in, ruining your chant.";
        ],
        react_before [;
           Sing:
              "You song is drowned out by a boisterous chorus \
              by the tree.";
        ],
        life [;
          Show: 
             if (noun==toy_volcano)
                "The tree abruptly stops singing, and seems \
a trifle flustered for some reason. Moments later, it \
resumes its chorus.";
          default: "The tree just keeps on singing.";
        ],
   has animate;

! (ok, the bush isn't defined as alive.  But it is...)
Object dornberry_bush "Dornberry bush" Con_Decor_garden
   with name "shrub" "bush",
        initial [; 
          print "A small shrub sits near and under the Christmas Tree";
          if (Christmas_tree_monster hasnt general)     
             ", almost covered by it.";
          else
             ".";
        ],
        description [;
                if (self hasnt general)
"The small shrub looks rather poorly tended. Just a few green leaves \
distinguish it from the surrounding soil."; 
                else
"The small shrub looks quite healthy. A cluster of green leaves and \
branches make a nice plant. It's still smaller than the tree, though.";
                ],
        capacity 1,
        before [;
            Cast:
             if (the_spell_was == throck_spell) {
                if (Christmas_tree_monster hasnt general)       
"The shrub seems to shake suddenly! A new leaf grows, searchs for the \
sunlight, fails, and withers.";
                if ((Christmas_tree_monster has general) &&
                    (self hasnt general)) {
                  give self general;
                  move dornberries to self;
"The shrub seems to shake suddenly! A new leaf grows, searchs for the \
sunlight, and finds it! Another leaf follows, and soon the shrub is \
sprouting new branches. In the sunlight, flowers appear, and a cycle \
of missed-out seasons is made-up for in minutes! The shrub is now \
quite a thriving plant, covered with tiny red fruit.";
                }
                if (self has general) 
                   "The shrub shakes a bit, but the plant remains the \
                   same. For a Dornberry bush, it's already probably \
                   the healthiest one you've ever seen.";
              }
              Receive:
                 if (noun ~= dornberries)
                    "I don't think the shrub can support that.";
           ],
   has static supporter;

Object dornberries "bunch of dornberries"
   with name "dornberries" "berries",
        description "A bunch of tasty-looking red berries.",
        !weight 5,
        size 5,
   has edible scored;

! (moved here so that it shows up 'last' in room descr)
Object plaque "plaque" Con_Decor_garden
   with name "plaque",
        initial "A small plaque sticks out of the soil near the two plants.",
        description [;
        print "The plaque reads:^^";
        font off;
print "~CHRISTMAS TREE MONSTER               DORNBERRY BUSH^";
print "<Jinglebellus Adnauseam>              <Smallus Shrubus>~^";
        font on;
        ],
!          ~CHRISTMAS TREE MONSTER               DORNBERRY BUSH^\
!          <Jinglebellus Adnauseous>            <Smallus Shrubus>~",
   has static;


! (Characters in Flathead Stadium)


Object burly_man "burly man" Stadium_bottom
   with name "man" "burly",
        description "A big man who's apparently into sports.",
        before [;
  Cast:
     if ((the_spell_was == foblub_spell) && (self hasnt general)) {
        give self general;
        Achieved(11);
"You begin your sermon. The man starts to tell you to knock \
it off, but starts to listen with awe. As you finish, the man \
tries to get up to shake your hand, but realizes he is stuck \
fast. ~They gotta start cleaning these seats,~ he says.";
     }
      if (the_spell_was == espnis_spell) 
         "You begin a description of the 1700 different kinds of \
          holy water, but the man seems so enthralled with the \
          game below, he just isn't paying attention.";
      ],
      life [;
          Show:
           if (noun==trophy)
              "~You were amazing pal. Ever think of going pro?~";
          Ask:
            if (second=='fight' or 'game' or 'fights')
               "~It's the three-golem special. One contestant \
               versus three golems, one after the other. Great \
               stuff.~";
          default:
            "~Give it a rest pal, I'm watching the game.~";
      ],
   has animate;

Object coach "tough-looking coach" Locker_room
   with name "coach",
        description [;
print "An old fellow with bushy eyebrows and \
a gruff demeanor. He's dressed like a sports coach";
if (trophy in self)
". You also notice he's holding some sort of trophy.";
else ".";
        ],
        number 1,
        each_turn [;
            if (self hasnt general) {
              if (Flathead_field hasnt general) {
                 give Flathead_field general;
print "^The coach looks up and notices you. ~Oh, you must be the \
replacement,~ he says. He drags you over to the field entrance. \
~Well, I hoped you're warmed up, cuz you're up.~ He shoves you \
north. ~Remember, these guys are tough, so give 'em your \
best stuff.~^";
                 PlayerTo(Flathead_field);
              }
              else {
                 print "^The coach looks up and notices you. \
~Where have you been? The ref was about to default \
it to the golems!~ He shoves you north. ~Now get in there and \
make me proud.~^";
                 PlayerTo(Flathead_field);
              }
            }
            if ((self has general) && (coach.number == 1)) {
               move win_bag to player;
               coach.number = 2;
               "^The coach gives you a slap on the back that \
knocks the wind out of you. ~You did it! I didn't think \
you had it in you!~ He hands you a small bag. ~Here's the \
winnings. I went ahead and took out my cut, of course.~^";
            }  
        ],
        life [;
           ! essentially, the only chances to do 'life' things
           ! will occur when the coach is lingering around 
           ! the lockerroom after the match.
           Attack:
               "~You want a couple rounds with the old man \
too? Well, I'm ready.~ For an old coach, he still looks \
like he's in pretty good shape. You decide against violent \
action.";
           Answer: 
               "The coach merely nods.";
           Ask:
               if (second == 'trophy')
                  "~It's a beauty all right.~";
               if (second == 'winnings' or 'cut') 
                  "~It's all there, count it if you want.~";
               if (second == 'life' or 'game' or 'sport')
                  "The coach looks momentarily reflective. \
~Life is all about getting into the game,~ he says. \
~Remember that, it's not about winning or losing, but \
giving it your best shot.~";
           Show:
             if (noun == cereal1 || 
                 noun == cereal2 ||
                 noun == cereal3 ||
                 noun == cerealbox1 ||
                 noun == cerealbox2 ||
                 noun == cerealbox3)
           "~A bowlful of that each morning is bound to make a \
champion out of you.~";
           Order:  
! *** note2: this seems to contradict documentation,
! i.e. 'ask coach for trophy' results in noun==trophy and
!       second==(?)coach or player, not the other way
!       around.
               if ((action==##Give) && (noun==trophy) && 
                   (trophy in self)) {
                  move trophy to player;
                  remove self;
"The coach looks lovingly at the trophy, and then at you. \
~Fair enough kid, you earned it.~ he says, and gives it \
to you. ~I've seen a lot of golem-wrestlers in my time, \
but I gotta say, you're the best golem-wrestler I've ever \
seen.~ He leaves the locker room to greet his fans.";
               }
           default:  "At the moment, it looks like the coach is too busy \
               writing a Hall of Fame acceptance speech to \
               pay you much attention.";
         ],
         react_before [;
            Cast:
              "~What's that you're saying? Speak up, I'm your \
coach, I'm hear to listen.~";
         ],
   has animate transparent;

Object referee "referee" Flathead_field
   with name "referee" "ref",
        description "A stout looking man in a funny striped shirt.",
        each_turn [;
           if (self hasnt general) {
              give self general;
"^The ref blows his whistle and says ~Round 1~. The golem, not \
needing any encouragement, jumps into the fray.";
           }
        ],
        life [;
           Attack:
             "Your opponent is the golem, not the referee.";
           Ask:
             if (second == 'time' or 'timeout')
                "~Sorry, no timeouts!~ the ref says.";
             if (second == 'foul')
                "~It looked good to me.~";
             if (second == 'round') {
                if (wood_golem in Flathead_field)
                   "~You're in round 1.~";
                if (stone_golem in Flathead_field)
                   "~You're in round 2.~";
                if (iron_golem in Flathead_field)
                   "~You're in round 3, the final round.~";
             }
           default: "The ref makes some completely \
bewildering hand signal, that could be an insult, for \
all you know about wrestling. In any event, nothing happens.";
        ], 
        before [;
           Cast:
if (the_spell_was == espnis_spell) {
   deadflag = 1;
   "You start to relate the advantages of Bingo over Double \
Fanucci to the ref, and sooner that you can say ~Zounds~, the \
ref is fast asleep! Unfortunately, the golem takes advantage of \
this opportunity and breathes poison gas at you! You reflect \
on this display of poor sportsmanship as you slowly lose \
consciousness.";
}
        ],
   has animate;

! -- the golems...
!    In general: To be fair, the golems only have a 1 in 30 chance
!    of actually hitting.  When they do hit, however, it's pretty
!    painful.  They also tend to have high HP, although I guess 
!    theoretically, they could be beaten without spells.
!    (note: I've tried this with the iron golem and never
!     succeeded.  The odds are definitely not in the players favor)
Object wood_golem "dangerous-looking wood golem" Flathead_field
   with name "golem" "wood",
        number 20,
        description "\
The wood golem stands at about twice your height, an animated statue \
made completely of wood. He may move like an old cabinet, but \
watch those hands!",
        each_turn [ i ;
           i = random(13);
           if (i == 13)
              Player_HP_CUR = Player_HP_CUR - 15;
           if (Player_HP_CUR <= 0) {
              deadflag = 1;
              "^The wood golem jumps forward and flattens you, \
              which feels similar to getting hit by a falling \
              redwood tree.";
           }
           if (i == 13)
              "^The golem staggers you with a punch that sends you \
              reeling!";
           if (i == 20)  
"^The wood golem tries to move in for a clinch, and you dance \
away.";
           if (i == 10)
"^The wood golem makes a lumbering swing at your head, and misses!";
"^The wood golem makes a swipe for you, and misses.";
        ],
        before [;
          Cast:
            if (the_spell_was == egdelp_spell) {
               remove self;
               move stone_golem to Flathead_field;
"The wood golem is suddenly covered with a waxy buildup! \
Greatly embarrassed, he turns to call foul, and slips! \
With a great thud, the golem hits the turf, and knocks \
himself out cold!^^\
The ref says ~Knockout!~. The crowd cheers in approval.^^\
Several dwarves appear and cart the wood golem off. \ 
Unfortunately, a stone golem soon walks into view!^^\
The coach yells from the doorway ~You're doing great kid, \
just hang in there.~^^\
The ref says ~Round 2!~";
            }
        ],
        life [ i ;
          Attack:
            i = random(20);
            if (i > 10) {
               wood_golem.number = wood_golem.number - 1;
               if (wood_golem.number <= 0) {
               remove self;
               move stone_golem to Flathead_field;
"With a thundering blow, you smash the golem into \
kindling!^^\
The ref says ~Knockout!~. The crowd cheers in approval.^^\
Several dwarves appear and cart the wood golem off. \ 
Unfortunately, a stone golem soon walks into view!^^\
The coach yells from the doorway ~You're doing great kid, \
just hang in there.~^^\
The ref says ~Round 2!~";
               }
               else {
                 print "Good shot! You whack the golem, and splinters fly";
                 if (wood_golem.number > 10)
                    ". It didn't seem to slow him down, though.";
                 else ".";
               }
            }
            "You swing, but miss.";
        ],      
   has animate;

Object stone_golem "fierce-looking stone golem" 
   with name "golem" "stone",
        number 40,
        description "\
The stone golem is quite a towering piece of work. He looks like a crude \
statue made of animated granite. He probably has all the \
finesse of a giant boulder, so don't let him pin ya!",
        each_turn [ i ;
           i = random(13);
           if (i == 13)
              Player_HP_CUR = Player_HP_CUR - 20;
           if (Player_HP_CUR <= 0) {
              deadflag = 1;
              "^The stone golem jumps forward and flattens you, \
              which feels similar to getting crushed by a giant \
              boulder.";
           }
           if (i == 13)
              "^The golem hits you with a punch that sends you \
              reeling!";
           if (i == 20)  
              "^The golem jabs with his left, and misses!";
           "^The golem tries to close, and misses.";
        ],
        before [;
          Cast:
            if (the_spell_was == tossio_spell) {
               remove self;
               move iron_golem to Flathead_field;
"The golem is suddenly replaced with a pile of steaming \
linguini alfredo!^^\
The ref yells ~Takeout!~ The crowd goes wild! \
Several dwarves appear and serve the pasta to the crowd \
on platters. Unfortunately, an iron golem soon \
walks into view! ^^\
The coach yells out from the safety of the locker room ~Okay kid, drop \
this golem, and we can celebrate.~^^\
The ref yells ~Round 3!~";
            }
        ],
        life [ i ;
          Attack:
            i = random(20);
            if (i > 10) {
               stone_golem.number = stone_golem.number - 1;
               if (stone_golem.number <= 0) {
               remove self;
               move iron_golem to Flathead_field;
"With a thundering blow, you smash the golem into \
gravel!^^\
The ref says ~Knockout!~. The crowd cheers in approval.^^\
Several dwarves appear and cart the stone golem off. \ 
Unfortunately, an iron golem soon walks into view!^^\
The coach yells out from the safety of the locker room ~Okay kid, drop \
this golem, and we can celebrate.~^^\
The ref yells ~Round 3!~";
               }
               else {
                 print "Solid blow! Stone chips fly.";
                 if (stone_golem.number > 10)
                    ". It didn't seem to slow him down, though.";
                 else ".";
               }
            }
            "You swing, but miss.";
        ],      
   has animate;

Object iron_golem "deadly-looking iron golem" 
   with name "golem" "iron",
        number 50,
        description "\
The iron golem resembles a huge nightmare made out of iron. \
Towering at least 30 feet high, this animated iron statue isn't \
something you'd want to meet in a dark alley, much less \
in an arena filled with screaming fans.",
        each_turn [ i ;
           i = random(13);
           if (i == 13)
              Player_HP_CUR = Player_HP_CUR - 30;
           if (Player_HP_CUR <= 0) {
              deadflag = 1;
              "^The iron golem jumps forward and flattens you, \
              which feels similar to getting mashed by a giant \
              block of iron. Oww.";
           }
           if (i == 13)
              "^The golem staggers you with a punch that sends you \
              reeling! That felt quite painful.";
           if (i == 20)  
             "^The golem tries to flatten you, and you evade just in time!";
           "^The golem tries to step on you, and you dodge.";
        ],
        before [;
          Cast:
            if (the_spell_was == bekdab_spell) {
               remove self;
               remove referee;
               give Flathead_field ~general;
               give coach general;
               move trophy to coach;
               Achieved(12);
"The golem suddenly develops many unsightly patches of rust. \
Mortified, the golem calls for his oil trainer, but to no \
avail! It soon falls apart into several rusty metal pieces!^^\
The ref calls out ~The winner!~ and holds your hand aloft. \
The crowd is on its feet! They'd probably be chanting your \
name, if they knew it.^^\
Several dwarves appear and drag off the rusty metal plates. \
The ref explains that the prize money and a championship \
trophy will be awarded in the \
locker room, and exits.";
            }
        ],
        life [ i ;
          Attack:
            i = random(20);
            if (i > 10) {
               iron_golem.number = iron_golem.number - 1;
               if (iron_golem.number <= 0) {
               remove self;
               remove referee;
               give Flathead_field ~general;
               give coach general;
               move trophy to coach;
               Achieved(12);
"With a thundering blow, you smash the golem into \
ball-bearings.^^\
The ref calls out ~The winner!~ and holds your hand aloft. \
The crowd is on its feet! They'd probably be chanting your \
name, if they knew it.^^\
Several dwarves appear and collect the ball-bearings. \
The ref explains that the trophy will be awarded in the \
locker room, and exits.";
               }
               else {
                 print "Solid blow! You make a small dent.";
                 if (iron_golem.number > 10)
                    ". It didn't seem to slow him down, though.";
                 else ".";
               }
            }
            "You swing, but miss.";
        ],      
   has animate;

! (Three important NPCs)

Object Morgan "Morgan the Ranger" Delbins
   with name "ranger" "warrior" "Morgan" "captain" "maiden",
        number 1,
        initial [;
             if (self in Delbins)
                "There's a warrior-maiden sitting at the bar, her \
eyes riveted to the glass of ale.";
             else 
             "Morgan the Ranger is here.";
        ],
        description "She's nearly twice your height, and \
probably twice your strength too. She's armed and armored in \
typical military Ranger gear. She gives you the impression of \
being the type who'd hunt dragons as a hobby -- assuming there were \
any dragons left to hunt, of course.",
        each_turn [;
           if ((self in Ravine_pass) && (Morgan.number == 1)) {
              Morgan.number = 2;
              "^The Ranger sees you approach and recognizes you. \
              ~Well met again, Priest. I have need of your \
        assistance to end the kobold border war that has been going \
        on far too long.~ She pauses. ~To the \
        west and east are two of my lieutenants and their \
        soldiers, cut off from the rest of us by previous kobold \
        raids. I have the power to end this war and call a truce, \
        but to do so, I need \
        to inform both of my lieutenants to \
        stop fighting via \
        windcat message carriers.~ She points to the two windcats \
        in the wicker cage and the pile of colored flags. \
        ~The 'red' flags indicate 'attack', the \
        'blue', truce. When my lieutenants receive the instructions, \
        they will verify my commands by sending additional messengers \
        with 'attack' or 'truce' instructions to each other. \
        Based on the two \
        received messages, each lieutenant will act accordingly.~ \
        She slaps you on the back, jolting you to attention. \
        ~Herein lies my problem, Priest. I know for a fact, that \
        one of my lieutenants is a traitor, who will \
        disobey my orders. Any instruction I send to the traitor, \
        the opposite will be sent by the traitor to my remaining \
        good lieutenant. The traitor will also take the two orders \
        he receives and do the opposite, if there is a majority, or \
        attack outright, if there are messages of 'truce' and 'attack'. \
        Thankfully, my good lieutenant will faithfully copy my \
        instructions to the other lieutenant, and will follow orders \
        received, if there is a majority, or follow a 'truce' if \
        there are mixed messages. My greatest problem, Priest, is that \
        I do not know which lieutenant is the traitor! If you \
        can bring peace once and for all to Southern Egreth, many \
        will remember your good deeds.~";
         } 
        ],
        life [;
            Answer:
               if (special_word == 'hello') {
                  print "~Hello";
                  if (Morgan.number == 2)
                     print " again";
                  ", priest.~";
               }
            Attack, ThrowAt:
               "She's well-armed and probably dangerous.";
            Give, Show:
               "A gracious gesture, perhaps, but she isn't \
interested.";
            Kiss:
               "She nearly splits your skull with the flat of \
a huge broadsword before you even get close. ~For a man of \
the cloth, you've got a lot of nerve,~ she says.";
            Ask:
               if (((second == 'cat') || (second=='cats') ||
                    (second == 'windcat') || (second=='windcats')) &&
                   (Morgan.number == 2))
                "~Right, the windcats. \
                The speckled cat will find the lieutenant to the east. \
                The spotted cat will find the lieutenant to the west.";
               if (second == 'frobar' or 'wizard' or 'enchanter') {
                  print "She laughs. ~You've never heard of \
Frobar, the dullest Enchanter? The Enchanter who was so dull \
that his fellow wizards forgot to invite him to the last \
great meeting? This saved him from becoming an amphibian, so \
perhaps dullness has its virtues";
                  if (self in Delbins)
                     ".~ The wizard looks rather insulted. \
~Oh hush up, Morgan.~ the wizard says.";
                  else ".~";
               }
               if (second == 'thief' or 'gentleman') {
                  print "She smiles. ~I can't say as I know \
much about ";
                  if (self in Delbins)
                     "this fellow over here,~ she says and \
gives the gentleman a whack on the back that nearly knocks his \
teeth out. ~But I hear he's something of a thief.~ ~Nothing \
of the sort!~ the gentleman protests.";
                  else 
                     "that thief fellow. I've been told \
he has a hideout somewhere, nearly impossible to find.~";
               }
               if (second=='kobold' or 'war')
"~The war wages on, priest, even though the battle was lost \
long ago, and there were no winners, kobold or man.~";
               if (second=='dragon' or 'dragons')
"Morgan becomes momentarily thoughtful. ~Some of the best \
dragon-hunting I ever did was up in Frostham long ago. \
Those white frost dragons are quite a vicious lot. Best not \
to wake a sleeping white dragon unless you have a weapon handy \
and know how to use it!~";
            else "~Sorry, I'm not sure about that.~";
            default: "Morgan the Ranger appears to be \
thinking important thoughts at the moment.";
        ],
        before [;
            Cast:
               "~What's that you're mumbling there priest?~";
        ],
   has animate female proper;

Object  Frobar "Frobar" Delbins
 with   name "Frobar" "wizard" "sorcerer" "enchanter",
        initial [;
           if (self in Delbins)
           "There's an old wizard sitting at the bar, his \
eyes riveted to the glass of ale.";
           else "Frobar the Enchanter is here.";
        ],
        description "A wizardly old figure of a man.",
        life [;
         Attack, ThrowAt:
         "You make a threatening move. The wizard practically yawns! \
~Just what the world needs, another violent Priest.~ You stop, \
somewhat embarrassed.";
         Answer:
            if (special_word=='hello')
               "The wizard nods. ~Hello, hello, and all that rubbish.~";
         Ask:
            if (self in Delbins)
               "The wizard is somewhat occupied at the moment.";
            else {
               if (second=='magic' or 'mystic') {
                  print "Frobar scowls. ~Magic? We've seen the last \
of magic, let me tell you. Does anyone remember what it did \
for us? Does anyone mention the Enchanters that saved Quendor \
from certain ruin many a time? Of course not. A bunch of \
ingrates";
if (term_paper notin self)
". I just hope they're teaching the kids at Tech what magic \
was all about, before we got all this 'new science' stuff everyone's \
blabbering about.~";                     
else ".~";
               }
               if (second=='golem' or 'golems')
"Frobar sighs. ~Golems used to be useful, you know. But now, \
without magic to control them, they go off and get into all \
sorts of mischief.~";               
               if (second == 'thief' or 'gentleman') 
                  "~Some fellow I've had some dealings with \
in the past. Not a bad chap, but he does like to \
supplement his income, if you know what I mean. Far \
too risky a profession for my taste.~";
               if (second == 'morgan' or 'ranger' or 'warrior')
                  "~Morgan Grueslayer, top military Ranger \
in her graduating class, I hear. If she asks you to join \
her on one of her campaigns, just walk away. All that \
fighting -- too stressful if you ask me.~";
               if (second == 'barsap' or 'snaboz')
!"~I don't even want to talk about it.~";
"~Don't even get me started.~";
            }
         Show:
            if (self in Delbins)
               "The wizard is somewhat occupied at the moment.";
            if (noun == Ench_mag) {
               move Ench_mag to Frobar;
               "Frobar snatches the magazine out of your hands. \
               ~What are you doing with my mail?~ he says, irritated.";
               }
            if (noun has is_scroll) 
               "~A magic scroll, eh? Doesn't do me a lot of good \
these days.~";
            if ((noun has is_rod) || (noun has is_sphere)) {
               print "Frobar looks at ", (the) noun;
               " for a moment. ~Something \
more than meets the eye here. Couldn't tell you what, though.~";  
               } 
            if (noun==wood_book)
               "~So, you're a carpenter too?~ Frobar says, somewhat \
               sarcasticly.";
            if ((noun==term_paper) && (glossy_scroll in self))
            {
               FrobarGetsPaper();
            }            
            "~Hmm. Not very interesting.~";                

         Give:
            if ((noun==term_paper) && (glossy_scroll in self))
            {
               if (self notin Delbins)
               FrobarGetsPaper();
               else "The wizard pushes your offering aside. \
~I'm somewhat busy at the moment,~ he says, his eyes glued to \
the glass of ale.";
            }            
            if (noun == Ench_mag) {
               move Ench_mag to Frobar;
               "Frobar grabs the magazine. \
               ~What are you doing with my mail?~ he says, irritated.";
               }
            "~No, thank you.~";
            
         default: "~I'm rather busy at the moment.~";
        ],
        each_turn [ i ;
            ! Handle Frobar's actions here...ALWAYS CHECK PARENT AND LOCATION
            
            if ((self in location) && (player in FROBAR_Bed)) {
               print "Frobar seems annoyed. ~Get out of my bed!~ he says, \
               and drags you to your feet. ";
               <<Exit>>;
            }
                         
            ! Misc housekeeping actions...
            if (random(3) < 3) {
            if ((frobar_plant in parent(self)) && (self in location)) 
                print "^Frobar tends to the plant.^";
            if (FROBAR_Bed in parent(self) && self in location) 
                print "^Frobar arranges some quilts on the bed.^";            
            if (FROBAR_shelves in parent(self) && self in location) 
                print "^Frobar pulls a book off the shelves, glances through it, and puts it back.^";
            if (parent(self) == FROBAR_Lounge && self in location) 
                print "^Frobar dusts the furniture a bit.^";
            }
            
           ! Random self mutterings...
           i = random(5); 
           if (self in location && self notin Delbins) {
              switch(i) {
              1 : "^Frobar mutters to himself, ~They didn't even invite \
           me to the Last Enchanter's Guild Meeting.~";
              2 : "^Frobar mutters to himself, ~Good old dependable Frobar. Bah!~";
              3 : if (Ench_mag in self)
                  "^Frobar leafs through a magazine he holds. ~What happened to \
                  Barsap? Hah! Did they ask me? No, of course not.~";
                  else
                  "^Frobar checks his pockets. ~What did I do with this \
                  month's 'Enchanter Monthly'?~ he muses outloud.";
              default: rtrue;
              }
           }
        ],
        daemon [ i j k Mdest Mdir;
            ! This daemon will only deal with NPC movement...
            ! (no doors either)
            if (random(3) ~= 1) rfalse;  ! doesn't always immed. move
            
            ! Count the available exits quickly
            objectloop(i in Compass)
                if (ZRegion(parent(self).(i.door_dir)) == 1)
                    k ++;
            if (k == 0) rtrue;  ! no exits...
            
            ! Pick a place to move to.
            ! In Frobar's case, most of the time he only has one exit.
            ! Also, we can block the sw exit of home here.
            if (parent(self) == FROBAR_Foyer) {
               Mdir = n_obj;
               Mdest = FROBAR_Parlor;
               MovePrintNPC(Frobar,Mdest,Mdir);                 
               rtrue;
            }   
                        
            ! Pick an exit at random and attempt to travel that way
            j = random(k); k = 0;
            objectloop(i in Compass) {
                if (ZRegion(parent(self).(i.door_dir)) == 1) {
                    k ++;
                    if (k == j) {              
                        Mdir = i;          
                        Mdest = parent(self).(i.door_dir);
                        MovePrintNPC(Frobar,Mdest,Mdir);  
                        rtrue;                      
                    }
                }
            }
        ],
  has animate proper;

[ FrobarGetsPaper ;
    Achieved(24);
    move term_paper to self;
    move glossy_scroll to player;
    "Frobar glances over the term paper and his eyes widen. \
~Wilbur -- why, that's my great nephew!~ He takes the paper and \
reads. ~So true, so true,~ he mumbles and smiles. ~A fine boy, \
perhaps he'll become a great man someday, if he stops skipping class. \
He reminds me of my days at Tech -- all filled with dreams and hopes.~ \
He pauses, and searches his pockets. ~I even perfected a spell, did \
you know? Good old loyal, boring Frobar perfected a spell, and, \
if it hadn't been for that Snaboz show-off who had to go and perfect the \
izyuk spell, I might have even tried to publish mine.~ He finds a \
scroll amongst his robes and hands it to you. ~You don't believe me? Here, \
see for yourself.~";            
];

Object Thief "thief" Delbins
   with name "thief" "character" "gentleman",
        number 1,
        initial [;
            if (self in Delbins)
               "There's a gentleman dressed in black sitting at the \
bar, his eyes riveted to the glass of ale.";
        ],
        description "A lean crafty-looking individual, dressed mostly \
in black. He seems a bit too scruffy to be a nobleman, but also \
a bit too distinguished to be a common thug. Probably a thief, I'd \
guess.",
        life [;
         Attack, ThrowAt:
         "You make a threatening move, but the thief seems to \
move twice as fast! You find yourself looking at the sharp end \
of a stiletto. ~I'm too much of a gentleman to harm a Priest,~ \
the thief says, ~so don't force me to make an exception.~";
         Answer:
           if (special_word == 'hello')
              "The gentleman gives a sharp nod in your direction.";
         Ask:
           if (second == 'magistrate')
"The thief gives you a knowing nod. ~The Aragain magistrate? \
A honorless cur, if I ever saw one.~";
           if (second == 'painting')
"The thief shrugs. ~I hear there's a nice new painting on \
exhibit at the royal museum. You might want to check it out.~";
           if (second == 'lock' or 'locks')
"The thief shrugs. ~Do I look like a locksmith?~";

         Give:
           if (noun has is_coin || noun==trophy) {
              move noun to Thief;
              "Confused, the thief pockets your offering. \
~Quite generous of you, sir.~ he says.";
           } 

          default: "The gentleman glances at you with \
dark suspicious eyes.";
        ],
        before [;
            Cast:
               "You speak the chant perfectly, but nothing \
seems to happen! The gentleman smiles and pats his dark cloak, \
which seems to glow briefly with mystic energy, then fade!";
        ],
   has animate;

Object thief_cloak "dark cloak" Thief
   with name "dark" "cloak",
        description "A coal-black cloak, which blends into \
the surrounding shadows.",
before [;
            Cast:
               "You speak the chant perfectly, but nothing \
seems to happen! The gentleman smiles and pats his dark cloak, \
which seems to glow briefly with mystic energy, then fade!";
        ],
has clothing;        

Object Delbin "Delbin" Delbins
   with name "Delbin" "bartender" "owner",
        number 1,
        initial "Delbin himself is standing behind the bar.",
        description "Delbin is a stout bald fellow with laughing eyes and \
a heavy beard. He somehow seems both young and old at the same \
time.",
        each_turn [ ;
           if (random(20) == 1)
              "^Delbin cleans some glasses behind the bar.";
        ],
        react_after [;
           Take:
              if (noun == headdress)
                "~You're welcome to that unsightly thing, sir. \
Been trying to get rid of it for sometime.~";
              if (noun == rag)
                "Delbin give you a curious look, \
but says nothing.";
        ],
        life  
        [ i ;
           Attack, Kiss, ThrowAt:  "Leave good old Delbin alone.";
           Answer:
              if (special_word == 'hello')
                 "~Welcome to Delbin's, good sir.~";
           Give:
              if (noun has is_coin) {
                 print "Delbin refuses your offering. \
~Keep your change, sir. If you're looking for a good tip, \
I can tell you what I hear.~^^";
                 <<Ask Delbin 'rumor'>>;
              }
              if (noun == rag) {
move rag to bar;
"Delbin takes the rag and cleans a spot on the bar, leaving \
it in a familiar place.";
              }
              "Delbin politely refuses.";
           Show:
              if (noun == headdress)
"~There's a good story behind that ugly thing. Maybe if you \
keep reminding me, I'll remember it.~";
           print "~A nice ", (name) noun;
           " you've got yourself there.~";
           Ask:
              if (second == 'ale' or 'situation') {
                 if (Morgan in Delbins) 
                    "~Quite a situation we've got sir. Those three at \
the front of the bar all ordered a glass of Special Borphee Ale. Well, \
with the shutdown of the Brewers Guild in Borphee since the Great \
Change, I can't keep that particular beverage in stock, but I've got \
that one left there. Seems none of them's leaving until they decide \
who gets the ale -- and let me tell you, those three are folks who \
don't like to be disappointed!~";
                 "Delbin smiles. ~All out of ale sir. But I suppose \
ye already knew that?~";
              }
              if (second == 'rod')
                 "Delbin shrugs. ~Sounds vaguely familiar sir, \
maybe I heard a rumor about it once. Can't really say, though.~";
              if (second == 'headdress')
"~There's a good story behind that ugly thing. Maybe if you \
keep reminding me, I'll remember it.~";
              if (second == 'rag')
"~Not much more than a rag, sir.~";
              if (second == 'minirva')
                 "~I think that's the name of some old \
Antharian Sea Goddess. Like a patron saint to sailors, in \
the old days.~";
              if (second == 'morgan' or 'warrior' or 'ranger')
                 "~Morgan Grueslayer's a skilled ranger.~";
              if (second == 'frobar' or 'wizard' or 'enchanter')
                 "~Frobar's probably one of the last \
enchanters around. He's a regular here.~";
              if (second == 'thief' or 'gentleman')
                 "~Don't really know that fellow's name. \
He tips well, though.~";
              if (second == 'rumor' or 'rumors' or 'story') {
                 i = random(7);
                 print "Delbin scratches his ear and says, \
~Yes, now, what did I hear...~^^";
                 if (i==1)
                    "~People tell me this new Flathead king is \
a fake, plain and simple. Hasn't stopped people from trying to \
get on his good side, though. Now, I haven't seen the fellow \
myself, but if you ask me, somebody somewhere is up to no good.~";
                 if (i==2)
                    "~They say the kobold war up north is gonna \
end real soon. I'll believe that when it happens.~";
                 if (i==3) {
                    print "~Oh, this one's a good one.";
                    if (headdress in Delbins)
                       print " You see that headdress over there? \
Well, this explorer fellow left it here, along with quite a story. \
He";
else print " Some explorer fellow";
" claimed he found some lost ancient city in the Miznia \
jungles. Said he made a map to the place, but lost it when bargaining \
for his life with some jungle natives. I just nodded and let \
the poor man talk.~";
                 }
                 if (i==4)
                    "~This crazy-looking old fellow stops in \
the other day. Said that he was a professor, at GUE Tech, but \
that he was giving that all up! Something about his \
research going bad, on something he called 'an ethereal gate'. \
What all of that means, I can't say.~";
                 if (i==5)
                    "~Say, you sorta remind me of this other Priest \
fellow who stopped by here a long long time ago. Delbin \
never forgets, you know? This fellow, who didn't give a name, \
told me he was on an important \
quest for something called -- now what was it -- 'The \
Rod of the Ancients', or something like that. That \
mean anything to you?~";
                 if (i==6) {
                    print "~An artist friend of mine tells me that \
this new Leonardo Flathead painting they've recently discovered \
on display at the Royal Museum has a special secret. They \
say that Leonardo painted over something else under the canvas, but no one's \
saying what. They're keeping a watchful eye on it too, just \
in case curiosity gets the better of some folk. In fact, \
I hear they've already had a few people trying to steal the \
thing";
   if (Thief in Delbins)
      "!~ The thief suddenly starts to cough, and controls himself.";
   else "!~";
                 }
             ! Add further rumors here...
                 "Delbin shrugs. ~Guess I'm getting old, \
nothing comes to mind at the moment. Maybe if you \
give me a moment, I'll think of something.~";
              }
        ],
        before [;
           Cast:
if (the_spell_was == foblub_spell)
   "You relate a fine sermon to Delbin about spirits -- \
both the liquid kind and the not-so-liquid kind. Were \
Delbin sitting rather than standing behind the bar, \
he might even be glued to his seat by now. ~A fine \
speech there, reverend.~";
if (the_spell_was == espnis_spell)
   "You relate a dull sermon to Delbin about the various \
types of wood casks used in brewing Mithicus beer. \
Delbin, being a bartender, is a good listener, and \
manages to stay awake.";
        ],
   has animate proper;

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

Object musty_scroll "musty scroll" telescope
  class scroll_class,
  with name "musty",
;

Object fiznav_spell "make boat sea-worthy" musty_scroll
  class spell_class,
  with name "fiznav",
       magic [;
          if (second has animate)
             "Your chant goes unanswered. It's not intended for \
              living creatures.";
          else 
             "Your chant goes unanswered. It's intended for boats apparently.";
       ],
;

Object pale_scroll "pale scroll" 
  class scroll_class,
  with name "pale",
;

Object shazok_spell "call lightning from storm" pale_scroll
  class spell_class,
  with name "shazok",
       magic [;
             if (second==0 && location==GURTH_Forest) {
                <<Cast shazok_spell storm1>>;
             }
             "Your chant goes unanswered. You need a genuine \
natural storm, I suppose.";
       ],
;

Object glossy_scroll "glossy scroll" Frobar
   class scroll_class,
   with name "glossy"
;

Object feeyuk_spell "allow creature to resist gravity" glossy_scroll
   class spell_class
   with name "feeyuk",
        magic [;
           if ((second == 0) || (second hasnt animate))
              "The chant backfires, and your feet feel numb!";
           if (second == player) {
              has_resist_gravity = 1;
              StartTimer(self,75);
              "You speak the chant in clear tones. Initially, you \
feel no different. And then, strangely, your back feels better \
than it has in years, and your step seems lighter!";
           }
           CDefArt(second);
           " is no doubt thankful for the power to resist gravity.";
        ],
        time_left 0,
        time_out [;
            has_resist_gravity = 0;
            "You feet feel heavy again."; 
        ],
; 

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

Object trophy "trophy"
   with name "trophy",
        description "A lovely gold and platinum grail-like trophy that looks \
          very antique. The letter ~D~ is inscribed on the side. \
          You notice three odd bumps on the bottom of the circular base.",
        !weight 20,
        size 8,
!        capacity 1,
!        before [;
!           Receive:
!              if (noun hasnt is_sphere)
!                 "That doesn't seem to fit.";
!              ! else fancy light tricks
!        ],
   has scored;
! container open transparent;

Object win_bag "bag"
   with name "bag",
        description "A small cloth bag.",
        capacity 50,
        !weight 10,
        size 15, 
   has container open;

Object c20 "coin" win_bag class coin_class;
Object c21 "coin" win_bag class coin_class;
Object c22 "coin" win_bag class coin_class;
Object c23 "coin" win_bag class coin_class;
Object c24 "coin" win_bag class coin_class;
Object c25 "coin" win_bag class coin_class;
Object c26 "coin" win_bag class coin_class;
Object c27 "coin" win_bag class coin_class;
Object c28 "coin" win_bag class coin_class;
Object c29 "coin" win_bag class coin_class;
!Object c30 "coin" win_bag class coin_class;