#define CREATOR "Ceres"
/*
Replacement consider command. This one takes weapons, skills, armour and hit
points into account whereas the old one only compared their overall fighting
skill
*/
#include <weapon.h>
#include <cmr.h>
inherit COMMAND_BASE;
int calc_danger(object ob);
string do_compare(int dif);
mixed cmd(object *obs) {
object ob;
int level, ok, dif, total, them;
string out;
if (sizeof(obs) > 1) obs -= ({ this_player() });
if (sizeof(obs) > 5) {
add_failed_mess("You can only consider 5 things at once.\n");
return 0;
}
if (this_player()->query_property("dead")) {
add_failed_mess( "You're dead. You could just about kill a "
"conversation.\n" );
return 0;
}
if(previous_object()->check_dark((int)environment(previous_object())->query_light()) < 0) {
add_failed_mess("It's too dark to consider anyone.\n");
return 0;
}
if(previous_object()->check_dark((int)environment(previous_object())->query_light()) > 0) {
add_failed_mess("It's too bright to consider anyone.\n");
return 0;
}
level = calc_danger(previous_object());
foreach (ob in obs) {
if (!living(ob)) {
continue;
}
if (ob == previous_object()) {
if (sizeof(obs) == 1) {
write("You are exactly equal to yourself, you had better go and "
"arm yourself with more spikey things and try to not arm "
"your reflection at the same time. No problems?\n");
ok++;
}
continue;
}
ok++;
them = calc_danger(ob);
total += them;
// percentage difference.
dif = ((level - them) * 100) / level;
if ( userp( ob ) && this_player()->query_property( "player_killer" ) &&
!ob->query_property( "player_killer" ) ) {
out = replace( do_compare( dif ), "$who$", (string)ob->the_short() +
" [not a killer]" );
} else {
out = replace( do_compare( dif ), "$who$", (string)ob->the_short() );
}
if (userp(ob)) {
tell_object(ob, this_player()->the_short() + " looks you up and down "
"carefully checking out your weapons and armour.\n");
}
write( out +"\n" );
}
if(!ok) {
add_failed_mess("You need to consider someone.\n");
return 0;
}
return 1;
}
string do_compare(int dif) {
string ret;
ret = "$C$$who$";
if(dif > 320)
ret = "%^BOLD%^GREEN%^"+ret+" is too weak to bother attacking";
else
switch(dif) {
case 161..320:
ret = "%^BOLD%^%^GREEN%^"+ret+" is someone you look down on";
break;
case 81..160:
ret = "%^GREEN%^"+ret+" would be an easy target";
break;
case 41..80:
ret = "%^GREEN%^"+ret+" is a lot weaker than you are";
break;
case 21..40:
ret = "%^GREEN%^"+ret+" is weaker than you are";
break;
case 11..20:
ret = "%^CYAN%^"+ret+" is slightly weaker than you are";
break;
case -10..10:
ret = "%^CYAN%^"+ret+" is about equal with you";
break;
case -20..-11:
ret = "%^CYAN%^"+ret+" is slightly tougher than you are";
break;
case -40..-21:
ret = "%^RED%^"+ret+" is tougher than you";
break;
case -80..-41:
ret = "%^RED%^"+ret+" is a lot tougher than you";
break;
case -160..-81:
ret = "%^RED%^"+ret+" looks pretty nasty";
break;
case -320..-161:
ret = "%^BOLD%^%^RED%^"+ret+" is into the don't-think-about-it region";
break;
default:
ret = "%^BOLD%^%^RED%^You would have to be utterly insane to attack $who$";
break;
}
return ret + ".%^RESET%^";
}
int calc_weapon_damage(object weapon) {
mixed *data;
int wdam, *damage, i;
data = (mixed *)weapon->query_attack_data();
if(sizeof(data)) {
wdam = 0;
for ( i = 0; i < sizeof( data ); i += W_ARRAY_SIZE ) {
if (member_array( data[ i + W_TYPE ], ({ "blunt", "unarmed",
"sharp", "pierce" }) ) == -1 )
continue;
damage = data[ i + W_DAMAGE ];
wdam += ( data[ i + W_CHANCE ] * ( damage[ F_FIXED ] +
( damage[ F_NUM ] * damage[ F_DIE ] ) / 2 ) ) / 100;
wdam += damage[ F_FIXED ] + damage[ F_NUM ] * damage[ F_DIE ];
}
}
return wdam;
}
int calc_value(mixed arr) {
if (intp(arr))
return arr;
if (!pointerp(arr))
return 0;
if (sizeof(arr) == 1)
return arr[F_FIXED];
if (sizeof(arr) == 2)
return arr[F_FIXED]+arr[F_NUM];
return arr[F_FIXED]+(arr[F_NUM] * arr[F_DIE]);
}
int calc_armour_protection(object armour) {
int ac, i;
mapping data;
mixed *stuff;
if(!armour->query_armour())
return 0;
data = armour->query_armour_class();
if(!sizeof(data))
return 0;
stuff = keys(data);
for(i=0; i<sizeof(stuff); i++)
ac += calc_value(data[stuff[i]][0]);
return ac;
}
// calculate how dangerous ob is. Factors used include: weapon damage, weapon
// skill, defensive skill, armour worn and hit points.
int calc_danger(object ob) {
object weapon;
object *weapons;
object armour;
object rider;
int wdam;
int wskill;
int dskill;
int ac;
int hp;
int trans;
if (ob->query_transport()) {
foreach (rider in ob->query_riders()) {
trans += calc_danger(rider);
}
}
// decide which weapon to use for the consider
weapons = ob->query_holding();
if(weapons && sizeof(weapons) > 0 && (weapons[0] != 0) && (weapons[0]->query_weapon())) {
weapon = weapons[0];
dskill = ob->query_skill_bonus("fighting.combat.parry.melee");
} else if(weapons && sizeof(weapons) > 1 && (weapons[1] != 0) && (weapons[1]->query_weapon())) {
weapon = weapons[1];
dskill = ob->query_skill_bonus("fighting.combat.parry.melee");
} else {
weapon = ob;
dskill = ob->query_skill_bonus("fighting.combat.parry.melee");
}
// count parry *and* dodge skill because they might change tactics
// partway through any combat.
dskill += ob->query_skill_bonus("fighting.combat.dodging.melee");
wdam = calc_weapon_damage(weapon);
if(!sizeof(weapon->query_attack_data()))
wskill += ob->query_skill_bonus("fighting.combat.melee.unarmed");
else
wskill += ob->query_skill_bonus("fighting.combat.melee."+
(string)weapon->query_attack_data()[W_SKILL]);
hp = ob->query_hp();
if(ob->query_wearing())
foreach(armour in ob->query_wearing())
if(armour)
ac += calc_armour_protection(armour);
// weighting of the different statistics
wdam /= 3;
hp /= 3;
dskill /= 2;
ac /= 6;
return trans + wdam + wskill + dskill + ac + hp;
}
mixed* query_patterns() {
return ({ "<indirect:living:here>", (: cmd($1) :) });
} /* query_patterns() */
