/* /lib/poison.c
* from the Dead Souls Library
* Poisoning functions to be inherited *with* other objects that
* are meant to poison things.
* created by Blitz@Dead Souls 951120
*/
#include "include/poison.h"
private int PoisonUses, PoisonStrength;
static void create(){
PoisonStrength = 0;
PoisonUses = 0;
this_object()->AddSave( ({ "PoisonUses" }) );
}
mixed indirect_poison_obj_with_obj(){
if( environment() != this_player() ) return 0;
if( PoisonStrength < 1 ) return "The poison is all used up.";
return 1;
}
mixed eventSpreadPoison(object who, object target){
if( !who || !target || !PoisonUses ) return 0;
PoisonUses--;
if( random(50) > (int)who->GetStatLevel("coordination") ){
this_player()->eventPrint("You fumble around with the poison, "
"spilling it on yourself.");
environment(this_player())->eventPrint((string)who->GetName() +
" fumbles around with some "
"poison, spilling it on " +
reflexive(who) + ".",
this_player());
who->AddPoison(random(10));
return 1;
}
target->eventPoison(who, this_object(), PoisonStrength);
return 1;
}
int SetPoisonStrength(int x){ return (PoisonStrength = x); }
mixed GetPoisonStrength(){ return PoisonStrength; }
int SetPoisonUses(int x){ return (PoisonUses = x); }
int GetPoisonUses(){ return PoisonUses; }
