#include <lib.h>
#include <vendor_types.h>
inherit LIB_STORAGE;
inherit LIB_TURN;

void SetLightLevel(int i);
int eventRadiate(int i);

object player,env,fl;
string me,name, celltype, baseshort;
int noflicker,Lit,lightlevel,drainrate,powered,level;
int mincells, maxcells;

void create(){
    ::create();
    SetKeyName("generic flashlight");
    SetId( ({"fl","flashlight","light","torch","flashlite"}) );
    SetAdjectives( ({"generic","simple","cheap"}) );
    SetShort( "a flashlight" );
    SetLong("This is a cheap, simple light source.");
    SetMass(20);
    SetBaseCost(10);
    SetLightLevel(6);
    Lit=0;
    mincells = 2;
    maxcells = 2;
    celltype = "D";
    SetVendorType(VT_TREASURE);
    baseshort=GetShort();
}

string GetShort(){
    string ret, str, article;
    string litstr = "%^BOLD%^YELLOW%^(lit)%^RESET%^ ";
    if(!Lit || query_verb() == "activate" || query_verb() == "turn"){
        return ::GetShort();
    }
    if(!(str = ::GetShort()) || str == "") return str;
    article = (replace_string(str, remove_article(str), "") || "");
    str = remove_article(str);
    ret = (sizeof(article) ? article : "") + litstr + str;
    return ret;
}

void init(){
    ::init();
    fl=this_object();
    me=this_object()->GetKeyName();
}

int SetHB(int i){
    set_heart_beat(i);
    return query_heart_beat();
}
int GetHB(){
    return query_heart_beat();
}

int SetMaxCells(int i){ maxcells = i; return i; }
int GetMaxCells(){ return maxcells; }
int SetMinCells(int i){ mincells = i; return i; }
int GetMinCells(){ return mincells; }
int SetCellType(string str){celltype=str; return 1; }
string GetCellType(){ return celltype; }

int SetDrainRate(int i){
    drainrate = i;
    return i;
}

int eventUse(int i){
    Lit = i;
    foreach(object ob in all_inventory(this_object())){
        ob->eventUse(i);
    }
    return i;
}

int eventDie(){
    if(!Lit || Lit == 0) return 1;
    Lit=0;
    eventRadiate(0);
    foreach(object ob in all_inventory(this_object())){
        ob->eventUse(0);
    }
    //SetShort(baseshort);
    tell_object(environment(this_object()),"The "+me+" flickers and dies.");
    if(living(environment())){
        tell_room(environment(environment()),environment()->GetName()+"'s "+me+
                " flickers and dies.",({ environment() }) );
    }
    set_heart_beat(0);
    return 1;
}

int flicker(){
    if(noflicker ==1) return 0;
    if(!living(environment())){
        tell_object(environment(),capitalize(baseshort)+" flickers and shines less brightly than before.");
        return 1;
    }
    tell_room(environment(environment()),environment()->GetName()+"'s "+me+
            " flickers and shines less brightly than before.",({ environment() }) );
    tell_object(environment(),"The "+me+" flickers and shines less brightly.");
    return 1;
}

int CheckPower(){
    object *batts;
    powered = 1;
    if( sizeof(all_inventory(this_object())) < mincells ) powered = 0;
    batts = all_inventory(this_object());
    foreach(object batt in batts){
        batt->Spent();
        level = batt->GetCharge();
        if(level == 10 || level == 30 || level == 50 ) flicker();
        noflicker = 1;
        if( level < 1) powered = 0; 
    }
    noflicker = 0;
    return powered;
}

int CanReceive(object ob){
    if(ob->GetCellType() != celltype){
        return 0;
    }
    if(sizeof(all_inventory(this_object())) >= maxcells ){

        return 0;
    }
    return 1;
}

int eventRadiate(int i){
    SetRadiantLight(i);
}

void SetLightLevel(int i){
    if(i) lightlevel = i;
}

int GetLightLevel(){
    if(lightlevel) return lightlevel;
    return 0;
}

void regetID(){
    player=this_player();
    name=this_player()->GetName();
    env=environment(this_object());
}

varargs mixed eventTurn(string str){
    regetID();
    if( player != env ){ write("You don't have that."); return 0; }
    write("You turn the "+me+" over in your hands.");
    say(name+" turns over a "+me+" in "+possessive(player)+" hands.");
    return 1;
}

int eventTurnOn(object ob){
    regetID();
    CheckPower();

    if(powered != 1){
        write("It isn't powered.");
        return 1;
    }

    if(player != env  && environment(player) !=env){
        write("It isn't within reach.");
        return 1;
    }
    if(Lit < 1){
        write("You turn on the "+me+".");
        say(name+" turns on a "+me+".");
        if(drainrate && drainrate > 0) eventUse(drainrate);
        else eventUse(1);
        eventRadiate(lightlevel);
        set_heart_beat(1);
        //SetShort(baseshort+" (%^BOLD%^YELLOW%^lit%^RESET%^)");
        return 1;
    }
    if(Lit >= 1){
        write("It is already lit.");
        return 1;
    }
}

varargs mixed eventTurnOff(string str){
    regetID();
    if(player != env  && environment(player) !=env){ write("It isn't within reach."); return 1; }
    if(Lit > 0){
        write("You turn off the "+me+".");
        say(name+" turns off a "+me+".");
        eventRadiate(0);
        eventUse(0);
        set_heart_beat(0);
        //SetShort(baseshort);
        return 1;
    }
    if(Lit < 1){
        write("It is already off.");
        return 1;
    }
}

mixed eventExtinguish(){
    return eventTurnOff("foo");
}

mixed eventLight(){
    return eventTurnOn(this_object());
}

void heart_beat(){
    CheckPower();

    if(powered != 1){
        eventDie();
    }
}