#include <lib.h>
#include <vendor_types.h>
#include <vision.h>
inherit LIB_ITEM;

varargs string translate_vision(object ob){
    int vision;
    string ret = " ";
    if(!ob) vision = this_player()->GetEffectiveVision();
    else vision = ob->GetEffectiveVision();
    switch(vision){
        case 0 : ret = "level 0: blindness.";break; 
        case 1 : ret = "level 1: too dark.";break; 
        case 2 : ret = "level 2: dark.";break; 
        case 3 : ret = "level 3: dim.";break; 
        case 4 : ret = "level 4: clear.";break; 
        case 5 : ret = "level 5: light.";break; 
        case 6 : ret = "level 6: bright.";break; 
        case 7 : ret = "level 7: too bright.";break; 
        default : ret = "a mystery.";
    }
    return ret;
}

varargs mixed EvaluateRadiantLight(object ob, int report){
    int x = 0;
    string rep = "";
    string subrep = "";
    if(!ob) ob = this_player();
    foreach(object guy in get_livings(environment(ob))){
        if(guy->GetRadiantLight()) 
            rep += guy->GetName()+"'s radiant light is: "+guy->GetRadiantLight()+".\n";
        foreach(object item in all_inventory(guy)){
            x += item->GetRadiantLight();
            if(item->GetRadiantLight()){
                subrep += guy->GetName()+"'s "+item->GetName()+"'s radiant light is: "+
                    item->GetRadiantLight()+".\n";
            }
        }
    }
    if(!report) return x;
    else return "Livings: \n"+rep+"\nObjects:\n"+subrep;
}

string DefaultReading(){
    write("This small device is a portable light meter. It tells "+
            "you what the available light is.");
    write("The ambient light here is: "+environment(this_player())->GetAmbientLight());
    write("Total radiant light here is: "+EvaluateRadiantLight());
    write("Your vision range is: "+this_player()->GetEffectiveVision(environment(this_player()),1));
    write("\nYour effective vision is "+translate_vision());
    write("\nFull radiance details:\n"+EvaluateRadiantLight(this_player(),1));
    return "";
}

varargs mixed eventUse(mixed arg){
    return DefaultReading();
}

void create(){
    ::create();
    SetKeyName("light meter");
    SetAdjectives( ({"light"}) );
    SetId( ({"meter", "lightmeter"}) );
    SetShort("a light meter");
    SetLong( (: DefaultReading :) );
    SetProperties(([
                "no steal" : 1,
                ]));
    SetNoCondition(1);
    SetMass(20);
    SetVendorType(VT_TREASURE);
}
void init(){
    ::init();
}