/*  /verbs/items/poison.c
 *  from the Dead Souls  Library
 *  poison
 *  poison OBJ with OBJ
 *  created by Blitz@Dead Souls 951020
 *  a check for poison uses put in by BillGates 961202
 */
 
#pragma save_binary

#include <lib.h>
#include <rounds.h>
#include "include/poison.h"

inherit LIB_VERB;
 
static void create() {
    verb::create();
    SetVerb("poison");
    SetRules("OBJ with OBJ");
    SetErrorMessage("Poison what with what?");
    SetHelp("Syntax: <poison ITEM with POISON>\n\n"
           "This command allows you to poison items, provided you "
           "have a poisoning agent, and something to poison.  The "
           "ITEM is the item which you want to poison.  The "
           "POISON is what you wish to use to poison it with.");
}
 
mixed can_poison_obj_with_obj(string verb) { return 1; }
 
mixed do_poison_obj_with_obj(object target, object agent) {
    if( (int)this_player()->GetInCombat() )
      this_player()->SetAttack(0, (: eventPoison, this_player(), target,
				   agent :), ROUND_OTHER);
    else eventPoison(this_player(), target, agent);
    return 1;
}

void eventPoison(object who, object target, object agent) {
    if( !who ) return;
    if( environment(agent) != this_player() ) {
        who->eventPrint("You no longer have your poison.");
	return;
    }
    if( !(agent->GetPoisonUses()) ) {
	  who->eventPrint("Your poison is all used up.");
	  return;
    }
    agent->eventSpreadPoison(who, target);
}