#include <lib.h>

inherit LIB_STORAGE;

static int maxlevel = 5;

string ReadSign(){
    string ret = "Only players of level "+cardinal(maxlevel)+" and below "+
        "may take from this bin with impunity.";
    return ret;
}

void create() {
    ::create();
    SetKeyName("charity bin");
    SetId(({"bin"}));
    SetAdjectives(({"large","charity"}));
    SetShort("a large bin");
    SetLong("This a very large bin for holding donations to the "
            "needy. Since it is in a church, and for charity, it is "
            "reasonable to guess that folks above a certain level will "
            "receive a minor bonus for donating valuable things, and a "
            "severe penalty for taking them. There is a sign on "
            "the charity bin that you can read.");
    SetItems( ([
                ({ "sign" }) : "A sign on the bin you can read.",
                ]) );
    SetReads( ([
                "default" : "Try 'read label on bin'",
                ({"sign"}) : (: ReadSign :),
                ]) );
    SetPreventGet("It's bolted down you filthy scum.");
    SetMass(5000);
    SetBaseCost("silver",500);
    SetMaxCarry(15000);
    SetCanClose(0);
    SetClosed(0);
    SetPersistent(1);
    RestoreObject();
}

void init(){
    ::init();
}

varargs int eventCalculateBonus(object ob, int take){
    int value, cls, sum, bonus, duration;
    object thingy, who = this_player();
    if(!ob || !this_player()) return 0;
    if(this_player()->GetLevel() <= maxlevel) return 0;
    value = ob->GetBaseCost();
    cls = (ob->GetClass() || 1);
    sum = (value + (cls * 1000) || 1);
    bonus = (sum/10000 || 1);
    duration = bonus * 10;
    if(bonus > 10) bonus = 10;
    if(duration > 1000) duration = 1000;
    if(take && bonus > 0) bonus = -bonus - (to_float(bonus) * 0.1);
    if(bonus > 0 && take) duration = -duration - (to_float(duration) * 0.1);
    if(sum >= 10000 || take){
        thingy = present_bonus("charity_bonus", who);
        if(thingy){
            bonus += thingy->GetStats()["luck"];
            duration += thingy->GetDuration();
            if(bonus > 33) bonus = 33;
            if(duration > 5000) duration = 5000;
        }
        else thingy = new(LIB_BONUS);
        thingy->SetBonusName("charity_bonus");
        thingy->SetStats( ([
                    "luck" : bonus,
                    ]) );
        thingy->SetBonusDuration(duration);
        if(present(thingy, who) || thingy->eventMove(who)){
            object env = environment(this_object());
            object wenv = environment(who);
            if(env && wenv && env == wenv){
                if(!take){
                    write("You experience a pleasant sense of kinship "+
                            " with the rest of the world.");
                }
                else {
                    write("You feel cheap and petty.");
                }
            }
        }
    }
    return 1;
}

int eventReceiveObject(object ob){
    int ret = ::eventReceiveObject(ob);
    if(ret) eventCalculateBonus(ob);
    return ret;
}

int eventReleaseObject(object ob){
    int ret = ::eventReleaseObject(ob);
    if(ret) eventCalculateBonus(ob, 1);
    return ret;
}