/* -*- LPC -*- */
/*
* $Locker: $
* $Id: single_shoulder.c,v 1.4 2001/09/16 14:28:12 wodan Exp $
* $Log: single_shoulder.c,v $
* Revision 1.4 2001/09/16 14:28:12 wodan
* fixed type error
*
* Revision 1.3 2000/05/08 03:56:57 pinkfish
* Fix up a problem caused by adding thin the object as the arg to
* wear effects.
*
* Revision 1.2 1998/09/30 09:37:00 pinkfish
* Changed to handle only satchetls and backppacks as possible things for
* increasing the dexterity handicap.
*
* Revision 1.1 1998/01/06 04:35:11 ceres
* Initial revision
*
*/
#include "path.h"
inherit "/std/effect_shadow";
/**
* This method makes sure that we are opnly picking up backpacks and
* satchels etc.
* @return true if they are a satchel
*/
private int test_sash( object thing ) {
return (string)thing->query_type() == "sash" &&
sizeof(thing->query_pockets());
} /* test_sash() */
/**
* This method checks to make sure the item has the effect on it.
*/
private int test_for_effect( object thing ) {
return member_array( EFFECTS +"single_shoulder",
(string *)thing->query_wear_effects() ) != -1;
} /* test_for_effect() */
/**
* This method checks the current handicap and sets it up nicely to
* the correct value.
*/
void check_handicap() {
int new_arg;
mixed old_arg;
object *things;
things = (object *)player->query_wearing() - ({ 0 });
old_arg = arg();
if (objectp(old_arg)) {
old_arg = 0;
}
new_arg = sizeof( filter_array( things, (: test_sash :), this_object() ) ) *
sizeof( filter_array( things, (: test_for_effect :), this_object() ) );
if ( !new_arg ) {
remove_this_effect();
return;
}
new_arg /= 2;
if ( old_arg == new_arg ) {
return;
}
player->adjust_bonus_dex( old_arg - new_arg );
set_arg( new_arg );
} /* check_handicap() */
void now_worn( object thing ) {
player->now_worn( thing );
if ( find_call_out( "check_handicap" ) == -1 ) {
call_out( "check_handicap", 0 );
}
} /* now_worn() */
void now_removed( object thing ) {
player->now_removed( thing );
if ( find_call_out( "check_handicap" ) == -1 ) {
call_out( "check_handicap", 0 );
}
} /* now_removed() */
