#include <lib.h>
#include ROOMS_H
#include <vendor_types.h>
#include <damage_types.h>

#define PLAYER_INFECTABLE 0

inherit LIB_GERM;
int damage1();
int damage2();
int damage3();
int damage4();
int damage5();
int DangerLevel();
object global_ob,victim,where;
string victimname;

int MakeHostile(object ob){
    object *meat = get_livings(environment(ob));
    global_ob = ob;
    meat = filter(meat, (: !(base_name($1) == base_name(global_ob)) :));
    meat = filter(meat, (: !($1->GetInvis()) :));
    foreach(object new_meat in meat){
        ob->AddEnemy(new_meat);
    }
    return 1;
}

int InfectMess(object ob){
    victim=ob;
    victimname=victim->GetName();
    if(interactive(victim) && !PLAYER_INFECTABLE) {
        eventDestruct();
        return 1;
    }
    tell_room(environment(victim), "%^BOLD%^RED%^"+victimname+" suddenly lets out a bloodcurdling scream!%^RESET%^",({victim}) );
    tell_object(victim, "%^BOLD%^RED%^You scream as you are suddenly possessed by an uncontrollable rage!%^RESET%^");
    ob->SetEncounter(100);
    ob->SetMelee(1);
    if(ob->GetRace() != "human" && ob->GetRace() != "orc") MakeHostile(ob);
    return 1;
}

void create(){
    germ::create();
    SetKeyName("rage virus");
    SetGermName("rage virus");
    SetId(({"rv2"}));
    SetLong("Rage Virus v2");
    SetCure(20);
    SetCommunicable(30);
    SetLifeSpan(999);
    SetType("viral");
    SetInfect((: InfectMess :));
}

void bonuses(){
    if(!this_object()) return;
    if(victim && environment(this_object()) == victim){
        victim->AddStatBonus("intelligence", -25);
        victim->AddStatBonus("strength", 35);
        victim->AddStatBonus("charisma", -35);
        victim->AddStatBonus("durability", 35);
        victim->AddStatBonus("agility", 35);
        victim->AddStatBonus("coordination", 35);
        victim->AddStatBonus("speed", 35);
        victim->AddStatBonus("wisdom", -25);
    }
    else if(victim) {
        foreach( string stat in ({"intelligence", "strength",
                    "charisma", "durability", "agility", "coordination", "speed", "wisdom"})){
            victim->RemoveStatBonus(stat);
        }
    }
    return;
}


void init(){
    if(!this_object()) return;
    germ::init();
    bonuses();
}

int eventDestruct(){
    this_object()->eventMove(ROOM_FURNACE);
    return ::eventDestruct();
}

int eventMove(mixed dest){
    int ret = germ::eventMove(dest);
    if(this_object() && environment() && !living(environment())) victim = 0;
    bonuses();
    return ret;
}

int eventSuffer(object ob){
    int x;
    if(!ob) return;
    x=random(50);
    if(x < 5) damage1();
    else if(x < 10) damage2();
    else if(x < 15) damage3();
    else if(x < 20) damage4();
    else if(x < 2) damage5();
    return 1; 
}

int DangerLevel(){
    if(victim && victim->GetHealthPoints() < 2) return 100;
    return 1;
}

int FatigueLevel() {
    if(victim && victim->GetStaminaPoints() < 11) return 10;
    return 11;
}

string GetAffectLong(object ob) {
    if(!ob || !living(ob)) return 0;
    return "%^BOLD%^RED%^"+ob->GetName() + " looks crazed and violently insane!%^RESET%^";
}

int damage1(){
    if(victim){
        tell_object(victim,"%^BOLD%^RED%^You feel blinded by hatred and madness!%^RESET%^");
        tell_room(environment(victim),victimname+" looks maniacally insane and drools uncontrollably.", ({victim}) );
        victim->AddStaminaPoints(random(50)+10);
        victim->AddStatBonus("strength", 10);
        victim->AddStatBonus("durability", 10);
        victim->AddStatBonus("agility", 10);
        victim->AddStatBonus("coordination", 10);
        victim->AddStatBonus("speed", 10);
        MakeHostile(victim);
    }
    return 1;
}

int damage2(){
    if(victim){
        tell_object(victim,"%^BOLD%^RED%^You feel your body exploding with rage!%^RESET%^");
        tell_room(environment(victim),victimname+" is shaking with fury.", ({victim}) );
        victim->AddStaminaPoints(random(50)+20);
        victim->AddStatBonus("strength", 20);
        victim->AddStatBonus("durability", 20);
        victim->AddStatBonus("agility", 20);
        victim->AddStatBonus("coordination", 20);
        victim->AddStatBonus("speed", 20);
        MakeHostile(victim);
        victim->AddHP(-(random(50)+10));
    }
    return 1;
}

int damage3(){
    if(victim){
        tell_room(environment(victim),victimname+" lets out a horrific roar!", ({victim}) );
        tell_object(victim,"%^BOLD%^RED%^You let out a horrific roar as a spasm of fury rips through you!%^RESET%^");
        victim->AddStaminaPoints(random(60)+30);
        victim->AddStatBonus("strength", 30);
        victim->AddStatBonus("durability", 30);
        victim->AddStatBonus("agility", 30);
        victim->AddStatBonus("coordination", 30);
        victim->AddStatBonus("speed", 30);
        MakeHostile(victim);
        victim->AddHP(-(random(60)+30));
    }
    return 1;
}

int damage4(){
    if(victim){
        tell_room(environment(victim),victimname+"'s entire body vibrates madly, throwing off hot blood drops, sweat, and saliva.", ({victim}) );
        tell_object(victim,"%^BOLD%^RED%^Your entire body vibrates uncontrollably, spraying blood, sweat, and spit everywhere.%^RESET%^");
        victim->AddStaminaPoints(random(70)+40);
        victim->AddStatBonus("strength", 40);
        victim->AddStatBonus("durability", 40);
        victim->AddStatBonus("agility", 40);
        victim->AddStatBonus("coordination", 40);
        victim->AddStatBonus("speed", 40);
        MakeHostile(victim);
        victim->AddHP(-(random(70)+40));

        foreach(object bystander in get_livings(environment(victim))){
            if(bystander && random(100) > 50 && this_object()) 
                eventInfect(bystander);
        }
    }
    return 1;
}

int damage5(){
    if(victim){
        tell_room(environment(victim),victimname+" makes a horrible, gurgling, coughing noise and hacks up "+
                "a huge glob of phlegm.", ({victim}) );
        tell_object(victim,"You cough up a huge glob of phlegm, accidentally inhale it, and choke while coughing it "+
                "back up.");
        //Fix below courtesy of Jonez
        victim->AddStaminaPoints(random(80)+50);
        victim->AddStatBonus("strength", 50);
        victim->AddStatBonus("durability", 50);
        victim->AddStatBonus("agility", 50);
        victim->AddStatBonus("coordination", 50);
        victim->AddStatBonus("speed", 50);
        MakeHostile(victim);
        victim->AddHP(-(random(80)+50));
    }
    return 1;
}


mixed CanGet(object ob) { return "Your fingers slip on your runny snot.";}
mixed CanDrop(object ob) { return "Your fingers slip on your runny snot.";}