/*    /lib/meal.c
 *    from the Dead Souls LPC Library
 *    standard food and drink code
 *    created by descartes of Borg 950603
 *    Version: @(#) meal.c 1.3@(#)
 *    Last modified: 97/01/03
 */

#include <lib.h>
#include <function.h>
#include <meal_types.h>
#include <rounds.h>
#include <vendor_types.h>
#include "include/meal.h"

inherit LIB_BAIT_WITH;
inherit LIB_ITEM;

private int MealStrength, MealType;
private string EmptyItem, EmptyName, OtherMessage;
private mixed EmptyShort, EmptyLong, MyMessage;

static void create() {
    item::create();
    MealType = MEAL_ALCOHOL;
    EmptyItem = 0;
    EmptyName = "bottle";
    EmptyShort = "an empty bottle";
    EmptyLong = "This empty bottle once contained some alcohol.";
    MyMessage = "You drink your drink.";
    OtherMessage = "$N drinks $P drink.";
    SetVendorType(VT_DRINK);
    AddSave( ({ "MealStrength", "MealType", "BaitStrength" }) );
}

mixed direct_drink_obj() { 
    if( environment() != this_player() ) return "#You don't have that!";
    if( MealType & MEAL_FOOD ) return "Wouldn't you rather eat it?";
    return (int)this_player()->CanDrink(this_object());
}

mixed direct_drink_from_obj() {
    if( MealType & MEAL_FOOD ) return 0;
    if( environment() != this_player() ) return "#You don't have that!";
    return (int)this_player()->CanDrink(this_object());
}

mixed direct_eat_obj() {
    if( environment() != this_player() ) return "#You don't have that!";
    if( !(MealType & MEAL_FOOD) ) return "Wouldn't you rather drink it?";
    return (int)this_player()->CanEat(this_object());
}

static mixed AddSave(mixed *vars) { return item::AddSave(vars); }

string GetShort() { return item::GetShort(); }

int eventDestruct() { return item::eventDestruct(); }

mixed eventDrink(object who) {
    mixed tmp;
    int x;
    object ob;

    if( (tmp = (mixed)who->eventDrink(this_object())) != 1 ) return tmp;
    if( (x = functionp(MyMessage)) && !(x & FP_OWNER_DESTED) ) {
	evaluate(MyMessage, who);
    }
    else {
	string mymsg, othermsg;

	mymsg = replace_string(MyMessage, "$P", "your");
	othermsg = replace_string(OtherMessage, "$P", possessive(who));
	mymsg = replace_string(mymsg, "$N", "you");
	othermsg = replace_string(othermsg, "$N", (string)who->GetName());
	who->eventPrint( capitalize(mymsg) );
	environment(who)->eventPrint( capitalize(othermsg), who );
    }

    ob = new(GetEmptyItem() || LIB_ITEM);
    if( base_name(ob) == LIB_ITEM ) {
	ob->SetKeyName(GetEmptyName());
	ob->SetId( ({ GetEmptyName(), "container", "empty container" }) );
	ob->SetShort(GetEmptyShort());
	ob->SetLong(GetEmptyLong());
	ob->SetBaseCost(1);
	ob->SetMass(10);
	ob->SetDestroyOnSell();
    }
    if( !((int)ob->eventMove(who)) ) {
	who->eventPrint("You drop " + (string)ob->GetShort() + ".");
	environment(who)->eventPrint((string)who->GetName() +
	  " drops " + (string)ob->GetShort() + ".", who);
	ob->eventMove(environment(who));
    }

    if( x = GetPoison() ) {
	if( random((int)who->GetStatLevel("luck")) > 35 )
	    who->eventPrint("That didn't seem to taste quite right.");
	who->AddPoison(x);
    }
    Destruct();
    return 1;
}

mixed eventEat(object who) {
    mixed tmp;
    int x;

    if( (tmp = (mixed)who->eventEat(this_object())) != 1 ) return tmp;
    if( (x = functionp(MyMessage)) && !(x & FP_OWNER_DESTED) ) {
	evaluate(MyMessage, who);
    }
    else {
	string mymsg, othermsg;

	mymsg = replace_string(MyMessage, "$P", "your");
	othermsg = replace_string(OtherMessage, "$P",
	  possessive(who));
	mymsg = replace_string(mymsg, "$N", "you");
	othermsg = replace_string(othermsg, "$N", (string)who->GetName());
	who->eventPrint( capitalize(mymsg) );
	environment(who)->eventPrint( capitalize(othermsg), who );
    }
    if( x = GetPoison() ) {
	if( random((int)who->GetStatLevel("luck")) > 35 )
	    who->eventPrint("You notice a strange aftertaste.");
	who->AddPoison(x);
    }
    Destruct();
    return 1;
}

int eventPoison(object who, object agent, int x) {
    who->eventPrint("You put some poison "
      "in " + add_article(GetShort()) + ".");
    environment(who)->eventPrint( (string)who->GetName()+" puts something "
      "in " + add_article(GetShort()) + ".", who);
    AddPoison(x);
    return 1;
}

string SetEmptyItem(string file) { return (EmptyItem = file); }

string GetEmptyItem() { return EmptyItem; }

string SetEmptyName(string str) { return (EmptyName = str); }

string GetEmptyName() { return EmptyName; }

mixed SetEmptyShort(mixed val) { return (EmptyShort = val); }

mixed GetEmptyShort() { return EmptyShort; }

mixed SetEmptyLong(mixed val) { return (EmptyLong = val); }

mixed GetEmptyLong() { return EmptyLong; }

int SetMealType(int x) {
    int vt = 0;

    if( x & MEAL_FOOD ) {
	vt |= VT_FOOD;
	MyMessage = "You eat your food.";
	OtherMessage = "$N eats $P food.";
    }
    if( x & MEAL_DRINK ) vt |= VT_DRINK;
    SetVendorType(vt);
    return (MealType = x);
}

int GetMealType() { return MealType; }

int SetStrength(int x) { return (MealStrength = x); }

int GetStrength() { return MealStrength; }

varargs void SetMealMessages(mixed array val...) {
    if( !arrayp(val) ) {
	error(sprintf("Bad argument 1 to SetMealMessages(): %O\n", val));
    }
    if( sizeof(val) == 1 ) {
	if( arrayp(val[0]) ) SetMealMessages(val[0]...);
	else if( stringp(val[0]) || functionp(val[0]) ) MyMessage = val[0];
	else error(sprintf("Bad argument 1 to SetMealMessages(): %O\n",
		val[0]));
	return;
    }
    if( !stringp(val[0]) )
	error(sprintf("Bad argument 1 to SetMealMessages(): %O\n", val[0]));
    else if( !stringp(val[1]) ) 
	error(sprintf("Bad argument 2 to SetMealMessages(): %O\n", val[1]));
    MyMessage = val[0];
    OtherMessage = val[1];
}

mixed *GetMealMessages() { return ({ MyMessage, OtherMessage }); }

int GetValue() {
    int x;

    x = GetStrength();
    return (x * (6 + x)) / 10 + 10;
}