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

inherit LIB_DAEMON;

int eventConsider(object whom, object opponent){
    int score = 0;
    int tmp = 0;
    int protection = 0;
    string *attack_types = ({});
    object *dam_types = ({});
    object *weapons = filter(all_inventory(whom), (: $1->GetWielded() :));
    object *enemy_armor = filter(all_inventory(opponent), (: $1->GetWorn() :));
    enemy_armor = filter(enemy_armor, (: !($1->GetWielded()) :) );

    if(sizeof(weapons)){
	foreach(object weapon in weapons){
	    if(weapon->GetWeaponType() && whom->GetSkill(weapon->GetWeaponType()+" attack")){
		attack_types += ({ weapon->GetWeaponType() });
		score += ( whom->GetSkill(weapon->GetWeaponType()+" attack")["level"] ) * 3;
	    }
	    if(weapon->GetClass())
		score += ( weapon->GetClass() ) * 6;
	    if(weapon->GetHands() > 1) {
		if(!(whom->GetSkill("multi-hand"))) score /= 3;
	    }
	}
	if(sizeof(weapons) >1) {
	    if(!(whom->GetSkill("multi-weapon"))) score /= 3;
	}
    }

    else if((whom->GetMelee())) {
	if(whom->GetSkill("melee attack"))
	    score += (((whom->GetSkill("melee attack")["level"]) * 3)); 
    }
    if(!sizeof(attack_types)) attack_types = ({"blunt"});
    foreach(string Type in attack_types){
	int DamType = 0;
	int tmp_prot = 0;
	object *qual_armor = ({});

	switch(Type){
	case "blade" : DamType = BLADE; break;
	case "blunt" : DamType = BLUNT; break;
	case "knife" : DamType = KNIFE; break;
	case "water" : DamType = WATER; break;
	case "shock" : DamType = SHOCK; break;
	case "cold" : DamType = COLD; break;
	case "heat" : DamType = HEAT; break;
	case "gas" : DamType = GAS; break;
	case "acid" : DamType = ACID; break;
	case "magic" : DamType = MAGIC; break;
	case "poison" : DamType = POISON; break;
	case "disease" : DamType = DISEASE; break;
	case "trauma" : DamType = TRAUMA; break;
	default : DamType = BLUNT; break;
	}

	foreach(object armor in enemy_armor){
	    tmp_prot += armor->GetProtection(DamType);
	    if(armor->GetProtection(DamType)) qual_armor += ({ armor });
	}
	if(sizeof(qual_armor)) protection += tmp_prot / sizeof(qual_armor);
	tmp_prot = 0;
	DamType = 0;
    }



    score += whom->GetStatLevel("speed") * 2;
    score += whom->GetStatLevel("strength") * 3;
    score += whom->GetMaxHealthPoints() / 15;
    score += protection;

    return score;
}

mixed cmd(string str) {
    object thing;
    int totalscore, myscore, theirscore;

    if(!str){
	write("Consider what?");
	return 1;
    }
    if(!(thing = present(str,environment(this_player())))){
	write("That isn't here.");
	return 1;
    }
    if(!living(thing)){
	write("That isn't a living thing.");
	return 1;
    }

    theirscore = eventConsider(thing, this_player());
    myscore = eventConsider(this_player(), thing);

    totalscore = myscore - theirscore;
    if(totalscore > 100) write("Piece of cake.");
    else if(totalscore > 80) write("No problem.");
    else if(totalscore > 60) write("Very easy.");
    else if(totalscore > 40) write("Fairly easy.");
    else if(totalscore > 20) write("You'd probably do fine");
    else if(totalscore > 0) write("A fair match.");
    else if(totalscore > -20) write("A workout.");
    else if(totalscore > -40) write("A serious match.");
    else if(totalscore > -60) write("A major challenge.");
    else if(totalscore > -80) write("An unwise choice.");
    else if(totalscore > -100) write("Really a bad idea.");
    else write("Suicide.");
    return 1;
}


void help() {
    message("help",
      "Syntax: consider <creature>\n"
      "Gives you an idea of how tough a creature would be to defeat "
      "in combat. Gauges relative strengths, skills, weapons, "
      "armor, levels, health, and so on. The resulting comparison "
      "may not be very useful, because a change during combat (such "
      "as the opponent changing weapons) or items of unusual class "
      "or protection (such as magical armor) may not be taken into "
      "account."
      "\n",
      this_player() );
}