#include <lib.h>
#include <armor_types.h>
#include <damage_types.h>
inherit LIB_BANE;
inherit LIB_WORN_STORAGE;
object scoutshadow;
int active = 1;
int charge = 2000;
int maxcharge = 2000;
int disguised = 0;

int GetSuitHelp();

static void create(){
    ::create();
    SetKeyName("scout suit");
    SetId(({"suit", "armor"}));
    SetAdjectives(({"scout","suit of","powered","formidable", "formidable looking"}));
    SetShort("a suit of powered scout armor");
    SetLong("A formidable looking suit of powered armor used by "+
      "forces of the Extant Authority. This one appears to be one of "+
      "the scout variety.");
    SetMass(700);
    SetMatching(0);
    SetBaseCost("silver",100000);
    SetArmorType(A_CUSTOM);
    SetRestrictLimbs( ({ 
        "torso", "head", "neck",
        "right arm", "left arm",
        "right leg", "left leg",
        "right hand", "left hand",
        "right foot", "left foot",
      }) );
    AddSave( ({ "charge", "disguised" }) );
    SetMaxCarry(500);
    SetWear((: GetSuitHelp :));
}

void init(){
    ::init();
    add_action("GetSuitHelp", "help");
}

mixed GetSuitHelp(string str){
    string ret;
    if(!str) return 0;
    if(!stringp(str)) str = GetKeyName();
    if(query_verb() == "wear" || (str && answers_to(str, this_object()))){
        if(environment() == this_player() && charge){
            ret = "The suit's Heads Up Display crackles to life and reads:\n ";
            ret += "%^GREEN%^This suit allows you, honorable Scout, to travel in hazardous terrain "+
            "with a minimum of inconvenience. In the interest of fulfilling the exigencies "+
            "of your duties to the Extant Authority, this suit provides the following "+
            "improvements to your abilities:\n\n"+
            "* Good vision in all light conditions.\n"+
            "* A constant supply of breathable air.\n"+
            "* Substantial enhancement of strength, coordination, agility, and durability.\n"+
            "* Substantial enhancement of unarmed combat capability.\n"+
            "* Heads Up Display of key environmental information.\n"+
            "* Grid coordinate information where available.\n"+
            "* Protection from all forms of external damage.\n"+
            "* Immunity from disease.\n\n"+
            "Note that once the power level of the suit reaches zero, all enhancements "+
            "become unavailable. Please note that as a Scout, your Arbiter relies on your "+
            "most excellent judgment in disengaging from disharmonies and reporting such "+
            "situations for referral to the Negotiations Corps.%^RESET%^";
            write(ret);
            return 1;
        }
    }
    return 0;
}

mixed eventEquip(object who, string array limbs){
    mixed success = ::eventEquip(who, limbs);
    scoutshadow = new("/shadows/scout");
    if(scoutshadow) scoutshadow->SetDisguised(disguised);
    if(success){
        if(scoutshadow) scoutshadow->eventShadow(who);
    }
    else if(scoutshadow) destruct(scoutshadow);
    return success;
}

varargs mixed eventUnequip(object who) {
    mixed success;
    if(!who) who = this_player();
    success = ::eventUnequip(who);
    if(success){
        if(scoutshadow) who->unscoutshadow();
    }
    return success;
}

int GetActive(){
    if(!charge) return 0;
    return active;
}

int SetActive(int i){
    if(i) active = 1;
    else active = 0;
    return active;
}

int eventDecrementCharge(int i){
    int perc;
    object env = environment();
    if(!env) return 0;

    if(!GetWorn()) return 0;
    if(previous_object() != scoutshadow) return 0;
    if(charge < 1) charge = 0;
    else { 
        if(!i) charge--;
        else charge -= i;
        if(charge < 0) charge = 0;
    }

    perc = to_int(percent(charge, maxcharge));
    if(perc < 10){
        if(living(env) && creatorp(env)){
            env->eventPrint("Your creator powers magically recharge the "+
              remove_article(GetShort())+".");
            charge = maxcharge;
            return charge;
        }
        tell_object(env,"The "+remove_article(GetShort())+" beeps loudly!");
        return charge;
    }

    if(perc < 20){
        if(living(env) && creatorp(env)){
            env->eventPrint("Your creator powers magically recharge the "+
              remove_article(GetShort())+".");
            charge = maxcharge;
            return charge;
        }
        tell_object(env,"The "+remove_article(GetShort())+" beeps softly.");
        return charge;
    }

    return charge;
}

int GetRemainingCharge(){
    if(!charge || !GetWorn()){
        if(scoutshadow) scoutshadow->eventUnshadow();
        return 0;
    }
    return charge;
}

int GetMaxCharge(){
    return maxcharge;
}

int SetCharge(int i){
    charge = i;
    return charge;
}

int SetMaxCharge(int i){
    maxcharge = i;
    return maxcharge;
}

string array GetBane(){
    if(GetActive()) return ({ "all" });
    else return ({});
}

string array QueryBane(){
    if(GetActive()) return ({ "all" });
    else return ({});
}