/* -*- LPC -*- */
/*
* $Locker: $
* $Id: pegleg.c,v 1.1 1998/01/06 04:19:27 ceres Exp $
* $Log: pegleg.c,v $
* Revision 1.1 1998/01/06 04:19:27 ceres
* Initial revision
*
*/
/**
* This is the effect skelton docs. This effect
* has a classification of "mudlib.owned.weapon".
* <p>
* Describe the arguments in here.
* <p>
* This effect has a shadow associated with it.
* @classification mudlib.owned.weapon
* @see help::effects
*/
#include "path.h"
#include <effect.h>
#define CLASS "object.pegleg"
/** @ignore yes */
string query_classification() { return CLASS; }
int query_indefinite() { return 1; }
/** @ignore yes */
string query_shadow_ob() { return SHADOWS "pegleg"; }
/** @ignore yes */
void beginning( object player, int amount, int id )
{
player->add_extra_look( this_object() );
tell_object(player, "You settle comfortably into the pegleg, and "
"immediately feel some of the piratic "
"mystique.\n");
} /* beginning() */
void restart( object player, int amount, int id )
{
/** @ignore yes */
beginning(player, amount, id);
} /* restart() */
/** @ignore yes */
void merge_effect(object player, mixed oldarg, mixed newarg, int id)
{
return;
}
/** @ignore yes */
void end( object player, int amount, int id )
{
player->remove_extra_look( this_object() );
tell_object(player, "Upon removing the pegleg, you feel as if "
"some fleeting and proud essence has "
"fled.\n");
} /* end() */
string extra_look( object player )
{
int *enums;
enums = (int *)player->effects_matching( CLASS );
if ( !sizeof( enums ) )
return "";
return(capitalize((string )player->query_pronoun()) +
" stands proudly on " + player->query_possessive() +
" wooden pegleg.\n");
} /* extra_look() */
