/**
* This is a sink inheritable. It will wash stuff off, basically.
* @author Rue - modified from Triana's bathtub inherit
*/
#include <effect.h>
inherit "/std/room/furniture/surface";
/* #include "path.h"; */
#define WET_EFFECT "/std/effects/other/wetness"
#define SOAP_EFFECT "/std/effects/healing/antiseptic_soap"
/* Is it full of water? */
int water = 0;
int dirt = 0;
string* dirt_messages = ({
"clear",
"almost clear",
"soapy",
"foamy",
"slightly dirty",
"fairly dirty",
"dirty",
"very dirty",
"muddy"
});
void zap_bad_effects( object who );
int do_wash(object *indirect_obs );
void create(){
::create();
add_property( "no recycling", 1 );
this_object()->add_extra_look( this_object() );
//add_help_file("bath");
}
/* setup() */
/** @ignore yes */
string extra_look() {
object *stuff;
string answer = "";
stuff = all_inventory( this_object() );
if (water) {
if (dirt >= sizeof(dirt_messages)) {
dirt = sizeof(dirt_messages) - 1;
}
answer = answer + "It's about three quarters full of " +
dirt_messages[dirt] + " water.\n";
}
if( sizeof( stuff ) ) {
answer = answer + "It has "+ query_multiple_short( stuff ) +" in it.\n";
}
return answer;
}
/* extra_look */
/** @ignore yes */
string long_status() {
return "";
}
/** @ignore yes */
void init(){
::init();
add_command( "fill", "<direct:object>");
add_command( "empty", "<direct:object>");
add_command( "splash", "<indirect:living:here>");
add_command( "wash", "<indirect:living:here>");
} /* init() */
/** @ignore yes */
void wet_everyone_in() {
object *victims;
if (!water) {
return;
}
victims = filter(all_inventory(environment(this_object())),
(: living($1) :) );
foreach( object victim in victims ) {
if (victim -> query_position_type() == "in" &&
victim -> query_position_on() == "the "+this_object()->short()) {
victim->add_effect( WET_EFFECT, 500 );
}
}
}
/** @ignore yes */
void reset() {
wet_everyone_in();
}
/** @ignore yes */
int do_fill() {
object player;
player=this_player();
if (water) {
player->add_failed_mess(this_object(), "The " + this_object()->short() + " is "
"already full of water.\n");
return 0;
}
add_succeeded_mess( "", ({ }) );
tell_object(player, "You fill the " + this_object()->short() + " with clean water.\n" );
tell_room(environment(player), player->short()+" fills "
"the " + this_object()->short() + " with clean water.\n", player );
water=1;
dirt=0;
wet_everyone_in();
return 1;
}
/** @ignore yes */
int do_empty() {
object player;
player=this_player();
if (!water) {
player->add_failed_mess(this_object(), "The " + this_object()->short() + " is "
"already as empty as it gets.\n");
return 0;
}
add_succeeded_mess( "", ({ }) );
tell_object(player, "You reach into the " + this_object()->short() + " and "
"pull the plug, allowing the water to drain away.\n" );
tell_room(environment(player), player->short()+" reaches into "
"the " + this_object()->short() + " and pulls the plug, allowing "
"the water to flow away.\n", player );
water=0;
dirt=0;
return 1;
}
/** @ignore yes */
int do_splash( object *indirect_obs ) {
if (!water) {
this_player()->add_failed_mess(this_object(), "It's not a bad idea, "
"but maybe you'd need some water in the " + this_object()->short() +
"before you can splash.\n");
return 0;
}
if ( sizeof( indirect_obs ) ) {
add_succeeded_mess( "$N splash$es $I.\n", indirect_obs );
return 1;
}
this_player()->add_succeeded_mess( this_object(),
"$N splash$es $oself.\n", ({ }) );
return 1;
}
int do_wash( object *indirect_obs ) {
if (!water) {
this_player()->add_failed_mess(this_object(), "It's not a bad idea, "
"but maybe you'd need some water in the " + this_object()->short() +
"before you can wash.\n");
return 0;
}
if (dirt >= sizeof(dirt_messages) - 1) {
this_player()->add_failed_mess(this_object(), "The water in the " +
this_object()->short() +
" looks so muddy, it probably would just soil anyone. Maybe " +
" it would be a better idea to empty it and fill it again " +
" with fresh water.\n");
return 0;
}
if ( sizeof( indirect_obs ) ) {
foreach( object victim in indirect_obs ) {
call_out( (: zap_bad_effects( $1 ) :), 0, victim );
}
add_succeeded_mess( "$N wash$es $I using a bar of pleasant smelling soap.\n", indirect_obs );
return 1;
}
call_out( (: zap_bad_effects( $1 ) :), 0, this_player() );
this_player()->add_succeeded_mess( this_object(),
"$N wash$es $oself using a bar of pleasant smelling soap.\n", ({ }) );
return 1;
} /* wash_self() */
/**
* Since we have a limited quantity of water here, it may wash an effect
* right away, or it may need more washing. It also means the water
* itself will become dirty in the process. The dirtier the water is,
* the less likely it is to wash anything out. Fresh water has about
* 50% chance of washing anything out.
*/
void zap_bad_effects( object who ) {
int i, flag, *enums;
class effect *effs;
dirt++;
effs = (class effect *)who->query_effs();
enums = (int *)who->effects_matching( "body.smell" );
i = sizeof( enums );
if ( !random(dirt) && i ) {
i = random( i );
flag = 1;
write( "The antiseptic power of the soap defeats "+
(string)effs[ enums[ i ] ]->ob_name->smell_string( who,
effs[ enums[ i ] ]->arg ) +".\n" );
who->delete_effect( enums[ i ] );
dirt ++;
}
enums = who->effects_matching("pie.cream");
if (!random(dirt) && sizeof(enums)) {
tell_object(who, "The cream washes right off your body.\n");
who->delete_effect(enums[0]);
dirt ++;
}
enums = (int *)who->effects_matching( "misc.ketchup" );
i = sizeof( enums );
if ( !random(dirt) && i ) {
i = random( i );
flag = 1;
write( "The soap rinses the ketchup off your face.\n" );
who->delete_effect( enums[ i ] );
dirt ++;
}
enums = who->effects_matching("exploded.apples");
if (!random(dirt) && sizeof(enums)) {
tell_object(who, "The apples wash right off your body.\n");
who->delete_effect(enums[0]);
dirt ++;
}
enums = (int *)who->effects_matching("object.label");
if (!random(dirt) && sizeof(enums)) {
// They cannot have this effect if they have no labels...
tell_object(who, "The labels stuck on you peel off in "
"the water.\n");
who->delete_effect(enums[0]);
dirt ++;
}
enums = who->effects_matching("body.frog-adhesive");
if (!random(dirt) && sizeof(enums)) {
tell_object(who, "The frog adhesive washes off in the water.\n");
who->delete_effect(enums[0]);
dirt ++;
}
if (!random(dirt)) {
/* cure the fleas */
who->add_effect( SOAP_EFFECT, 10000 );
}
who->add_effect( WET_EFFECT, 250 );
} /* zap_bad_effects() */
