/* -*- LPC -*- */ /* * $Id: wet.c,v 1.7 2001/12/15 21:13:53 presto Exp $ */ inherit "/cmds/base"; #include <dirs.h> #define THRESHOLDS ({ 10, 30, 200, 300 }) #define OBJECT_WET_EFFECT "/std/effects/object/wet" #define BODY_WET_EFFECT "/std/effects/other/wetness" mixed cmd(object *things) { string results; string no_wet_results; object thing; object* not_wet; string wet_mess; if (!things) { things = all_inventory(this_player()) + ({ this_player() }); } results = ""; not_wet = ({ }); no_wet_results = ""; foreach (thing in things) { //max = 200 * (int) thing->query_weight(); wet_mess = OBJECT_WET_EFFECT->wet_string(thing); if (strlen(wet_mess)) { if (thing == this_player()) { wet_mess = "are " + wet_mess; } else { wet_mess = "is " + wet_mess; } } else { wet_mess = BODY_WET_EFFECT->wet_string(thing, thing == this_player()); } if (strlen(wet_mess)) { results += "$C$" + thing->the_short(1) + " " + wet_mess + ".\n"; } else { not_wet += ({ thing }); } } if (results == "") { write(query_multiple_short(not_wet) + ((sizeof(not_wet) > 1 || not_wet[0] == this_player()) ? " are ":" is ") + "not wet.\n"); } else { write(results); } return 1; } /* cmd() */ mixed *query_patterns() { return ({ "<indirect:object>", (: cmd($1) :), "", (: cmd(0) :) }); }