#include <position.h>
#include <lib.h>
#include ROOMS_H

inherit LIB_SENTIENT;
object *enemies = ({});
object quarry;
int draining;
string qname;

int eventDrain(mixed args...){
    int avoid;
    if(!environment()) return 1;
    enemies = this_object()->GetEnemies();
    if(quarry && draining) enemies += ({ quarry });
    if(!sizeof(enemies)) return 1;
    enemies = filter(enemies, (: $1 && environment($1) :));
    enemies = filter(enemies, (: environment($1) == environment() :));
    if(!sizeof(enemies)) return 1;
    if(sizeof(enemies) > 5) enemies = scramble_array(enemies)[0..4];
    foreach(object enemy in enemies){
        int which, level;
        string what;
        mixed *skills = enemy->GetSkills();
        mixed *stats = enemy->GetStats();
        if(quarry && enemy == quarry && random(100) > draining) avoid = 100;
        switch(which = random(8)+avoid){
            case 0 : 
                if(!skills) break;
                what = skills[random(sizeof(skills)-1)];
                if(enemy) level = enemy->GetSkillLevel(what);
                level = level/2;
                if(level) enemy->SetSkill(what,level);
                break;
            case 1 : 
                if(!stats) break;
                what = stats[random(sizeof(stats)-1)];
                if(enemy) level = enemy->GetStatLevel(what);
                level = level/2;
                if(level) enemy->SetStat(what,level);
                break;
            case 2 : 
                what = "level";
                if(enemy) level = enemy->GetLevel();
                level = level/2;
                if(level) enemy->ChangeLevel(level);
                break;
            case 3 :
                what = "health";
                if(enemy) level = enemy->GetHealthPoints();
                level = level/2;
                if(level) enemy->AddHP(-level);
                break;
            case 4 :
                what = "stamina";
                if(enemy) level = enemy->GetStaminaPoints();
                level = level/2;
                if(level) enemy->AddStaminaPoints(-level);
                break;
            case 5 :
                what = "stamina";
                if(enemy) level = enemy->GetMagicPoints();
                level = level/2;
                if(level) enemy->AddMagicPoints(-level);
                break;
            case 6 :
                what = "experience";
                if(enemy) level = enemy->GetExperiencePoints();
                level = level/2;
                if(level) enemy->AddExperiencePoints(-level);
                break;
            case 7 :
                what = "quest";
                if(enemy) level = enemy->GetQuestPoints();
                level = level/2;
                if(level) enemy->AddQuestPoints(-level);
                break;
            default: break;
        }
        if(enemy && which < 100){
            tell_object(enemy,"The wraith drains your vital essence!");
            tell_room(environment(this_object()), "The wraith drains "+
                    enemy->GetName()+" of precious bodily essence!", ({ enemy }));
        }
    }
    return 0;
}

static void create() {
    sentient::create();
    SetKeyName("archwraith");
    SetAdjectives( ({"arch", "shadowy", "undead", "unholy", "malevolent", "spiteful"}) );
    SetId( ({"archwraith", "wraith", "specter", "ghost", "apparition", "manifestation"}) );
    SetShort("an archwraith");
    SetLong("This shadowy manifestation is an undead, unholy apparition, oozing malevolence and spite.");
    SetPosition(POSITION_FLYING);
    SetRace("wraith");
    SetClass("fighter");
    SetLevel(20);
    SetMelee(1);
    SetInvis(1);
    SetGender("neuter");
    SetUndead(1);
    SetUndeadType("wraith");
    SetAttackable(0);
    SetCombatAction(100, (: eventDrain :));
}

varargs int eventReceiveDamage(mixed args...){
    return 0;
}

void init(){
    ::init();
    add_action("add_target","wraithseek");
    add_action("track_target","wraithtrack");
}

void heart_beat(){
    int here;
    mixed *dest;
    ::heart_beat();
    if(!this_object()) return;
    if(!quarry && qname) quarry = find_player(qname);
    if(quarry && environment(quarry) && environment(quarry) == environment()){
        eventDrain(quarry);
    }
    if(environment() && (sizeof(enemies) || quarry)){
        foreach(object enemy in enemies + ({ quarry })){
            if(!enemy) continue;
            if(environment(enemy) && environment(enemy) == environment()){
                here = 1;
            }
        }
        if(!here){
            dest = filter(enemies, (: $1 && environment($1) :));
            if(quarry) dest = (environment(quarry) ? ({ quarry }) : dest );
            if(sizeof(dest)){
                eventMove(environment(dest[random(sizeof(dest)-1)]));
            }
            else {
                this_object()->eventMove(load_object(ROOM_DEATH));
            }
        }
    }
}

int add_target(string str){
    object target = find_player(str);
    if(!this_player() || (this_player() && !adminp(this_player()))){
        return 0;
    }
    if(target){
        write("seeking "+str);
        if(environment(target)){
            this_object()->eventMove(environment(target));
            this_object()->AddEnemy(target);
        }
    }
    return 1;
}

int track_target(string str){
    object target = find_player(str);
    if(!this_player() || (this_player() && !adminp(this_player()))){
        return 0;
    }
    qname = str;
    if(target){
        write("tracking "+str);
        if(environment(target)){
            quarry = target;
            this_object()->eventMove(environment(target));
        }
    }
    return 1;
}

int eventDestruct(){
    if(this_player() && !adminp(this_player())) return 0;
    return ::eventDestruct();
}

int SetDraining(int i){
    if(!this_player() || (this_player() && !adminp(this_player()))){
        return 0;
    }
    draining = i;
    return draining;
}