/* -*- LPC -*- */ /* * $Locker: $ * $Id: fish_effect_shadow.c,v 1.1 1998/01/06 04:20:30 ceres Exp $ * $Log: fish_effect_shadow.c,v $ * Revision 1.1 1998/01/06 04:20:30 ceres * Initial revision * */ /** * This is the effect skelton docs. This effect * has a classification of "potion.alteration.female". * <p> * Describe the arguments in here. * @classification potion.alteration.female * @see help::effects */ inherit "/std/effect_shadow"; int div_factor; int move(object ob, string s1, string s2) { if (!ob || ob->query_underwater()) { remove_call_out("do_underwater_damage"); return (int)player->move(ob, s1, s2); } /* Oh dear. this is bad for them... */ call_out("do_underwater_damage", 10); } /* move() */ void do_underwater_damage() { call_out("do_underwater_damage", 10); if (!div_factor) { /* Average is 2 minutes. */ div_factor = 15+((int)player->query_con()-13)/5+random(6); if (div_factor <= 0) div_factor = 1; } tell_object(player, "You are gasping and panting, you can't breath "+ "out of the water.\n"); player->adjust_hp(-((int)player->query_max_hp())/div_factor); } /* do_underwater_damage() */ int query_water_breathing() { return 1; }