/*    /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;
function MealAction;

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

int SetMealAction(function f){
    MealAction = f;
}

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 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 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 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 = 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", who->GetName());
        who->eventPrint( capitalize(mymsg) );
        environment(who)->eventPrint( capitalize(othermsg), who );
    }

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

    if( x = GetPoison() ){
        if( random(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 = 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", who->GetName());
        who->eventPrint( capitalize(mymsg) );
        environment(who)->eventPrint( capitalize(othermsg), who );
    }
    if( x = GetPoison() ){
        if( random(who->GetStatLevel("luck")) > 35 )
            who->eventPrint("You notice a strange aftertaste.");
        who->AddPoison(x);
    }
    if( (x = functionp(MealAction)) && !(x & FP_OWNER_DESTED) ){
        evaluate(MealAction, who);
    }
    Destruct();
    return 1;
}

int eventPoison(object who, object agent, int x){
    who->eventPrint("You put some poison "
            "in " + add_article(GetShort()) + ".");
    environment(who)->eventPrint( 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;
    if(x = this_object()->GetBaseCost("silver")) return x;
    x = GetStrength();
    return (x * (6 + x)) / 10 + 10;
}