/*  /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; }