#include <lib.h>
#include <rooms.h>
#include <vendor_types.h>
#include <damage_types.h>
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)) {
	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%^");
    if(!interactive(ob)) {
	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(50);
    SetLifeSpan(-1);
    SetType("viral");
    SetInfect((: InfectMess :));
}

void bonuses(){
    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(){
    germ::init();
    bonuses();
}

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

int eventMove(mixed dest){
    ::eventMove(dest);
    bonuses();
}

int eventSuffer(){
    int x;
    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->GetHealthPoints() < 2) return 100;
    return 1;
}

int FatigueLevel() {
    if(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(){
    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(){
    tell_object(victim,"%^BOLD%^RED%^You feel your body exploding with rage!%^RESET%^");
    tell_room(environment(victim),victimname+" is shaking with fury.", ({victim}) );
    victim->eventReceiveDamage(this_object(),DISEASE,random(50)+20,0,"torso");
    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);
    return 1;
}

int damage3(){
    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->eventReceiveDamage(this_object(),DISEASE,random(60)+30,0,"torso");
    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);
    return 1;
}

int damage4(){
    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->eventReceiveDamage(this_object(),DISEASE,random(70)+40,0,"torso");
    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);
    foreach(object bystander in get_livings(environment(victim))){
	if(random(100) > 50) this_object()->eventInfect(bystander);
    }
    return 1;
}

int damage5(){
    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.");
    victim->eventReceiveDamage(this_object(),DISEASE,random(80)+50,0,"torso");
    victim->AddStatBonus("strength", 50);
    victim->AddStatBonus("durability", 50);
    victim->AddStatBonus("agility", 50);
    victim->AddStatBonus("coordination", 50);
    victim->AddStatBonus("speed", 50);
    MakeHostile(victim);
    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.";}