/* -*- LPC -*- */ /* * $Locker: $ * $Id: con.c,v 1.1 1998/01/06 04:21:18 ceres Exp $ * $Log: con.c,v $ * Revision 1.1 1998/01/06 04:21:18 ceres * Initial revision * */ /** * This is the effect skelton docs. This effect * has a classification of "poison.addictive". * <p> * Describe the arguments in here. * @classification poison.addictive * @see help::effects */ inherit "/std/effects/basic"; /* background constitution poison */ void create() { set_boundaries( ({ -20, 40 }), ({ 20, 80 }) ); } int backdrop() { return 1; } mixed *query_attrs( int *coord ) { int total, intens; total = distance_within_region(coord); intens = total * 3; if (intens > 100) intens = 100; return ({ 5, 95, ({ }), ({ ({ "burnt orange", intens }) }), ({ ({ "rubber", intens / 2 }) }), ({ ({ "charcoal", intens }), ({ "rubber", intens/2 }) }) }); } void action_drunk( object ob, int *coord, int quantity ) { int total, condam; string obmess, roommess; total = distance_within_region(coord); condam = total * quantity / 500; switch (condam) { case 0: obmess = "You briefly feel like you have been punched in the stomach.\n"; roommess = ob->one_short() + " looks slightly winded.\n"; break; case 1: case 2: obmess = "You feel like someone has just punched you in the stomach.\n"; roommess = ob->one_short() + " doubles over looking out of breath.\n"; break; case 3: obmess = "You feel like someone has punched you viciously in the stomach.\n"; roommess = ob->one_short() + " nearly collapses.\n"; break; case 4: case 5: obmess = "You collapse with a feeling of your life being drained.\n"; roommess = ob->one_short() + " collapses with a look of having the "+ "stuffing knocked out of them.\n"; break; default: obmess = "You reel and collapse with all your health fleeing your body.\n"; roommess = ob->one_short() + " collapses with a face palid as the "+ "face death would have if death had a face.\n"; break; } tell_object(ob, obmess); tell_room(environment(ob), roommess, ob); ob->adjust_tmp_con(-condam); ob->reset_all(); return; } void action_taste( object ob, int *coord, int quantity ) { if (quantity >= 1) tell_object(ob, "Your tongue feels numb.\n" ); }