/* Plik z funkcjami wyliczajacymi moc specjali
 * gildii Klan Tygrysa
 *
 *
 *
 * Autor: Lisev
 */
#include "defs.h"
int
query_klan_pen(object me, object enemy)
{
	int dex, str, weapon1_pen, weapon2_pen, gskill, sword_skill, wis;
	int suma;
	
	dex = me->query_stat(SS_DEX);
	str = me->query_stat(SS_STR);
	wis = me->query_stat(SS_WIS);
	sword_skill = me->query_skill(SS_WEP_SWORD);
	gskill = me->query_skill(PIRUET);
	weapon1_pen = me->query_weapon(W_LEFT)->query_pen();
	weapon2_pen = me->query_weapon(W_RIGHT)->query_pen();
	
	/* Gracz o sredniej 100 z 2 broniami o statach 50/50 i sword_skillu 90 i skillu gildiowym 90
	 * robi damage:
	 * 
	 * 100*2 + 100*3/2 + 100/2 + 90*3 + 90*4 + 9 * (50 + 50) = 980
	 * 200   + 150     +  50   + 270  + 360  + 900           = 1930
	 * Gracz o sredniej 150 z broniami o statch 5-/5- i sword skillu 100 i skillu gildiowym 100
	 * 150*2 + 150*3/2 + 150/2 + 100*3+ 100*4 + 10* ( 50 + 50) = 
	 * 300   + 225     +  75   + 300  +  400  +  1000 = 2300
	 */
	
	       str * 3/2 +
	       wis / 2 +
	       sword_skill * 3 +
	       gskill * 4 +
	       (sword_skill / 10 ) * (weapon1_pen + weapon2_pen);
	return suma;
}
int
query_klan_hit(object me, object enemy)
{
    object combat;
    int tohit;
    mixed result;
    combat = enemy->query_combat_object();
    tohit = ((me->query_skill(PIRUET) +
             me->query_skill(SS_WEP_SWORD)+
             MIN(160, me->query_stat(SS_DEX))+
             MIN(100, me->query_stat(SS_STR)) )/4);
    result = combat->cb_tohit(-1, tohit, 1000, enemy);
    if(intp(result)) return result;
    if(objectp(result)) return 0;
    if(result[0] > 0) return result[0];
    return 0;	
}