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