Slitherine

Code: Select all

lossFactor = RemoveCasualties(me, enemy, enemyDamageInflicted, 1, red);
	moraleDamage = ConvertLossFactorToMoraleDamage(me, lossFactor); // Remove part of the moraleDamage diluting effect of very large units
	SetAttribArray(me, "MoraleDamageFromCloseCombat", notional_turn, GetAttribArray(me, "MoraleDamageFromCloseCombat", notional_turn) + moraleDamage);

Code: Select all

// Removes losses and returns 100 times the % of current strength just lost. Any randomization of damage needs to be done before calling this function.
// Note that it returns 100 x % lost so as to minimise rounding errors.
// if combatLog = 1 then also writes to combat log
// Uses Work Array 0. Note that it calls GetCloseCombatFacingsAndRank() which uses Work Arrays 0 and 1, but this function does not use Work Array 0 till after that function has resolved.
FUNCTION RemoveCasualties(me, enemy, damage, combatLog, red)
{
	int current_strength;
	int men_lost;
	int lossFactor;
	int new_strength;
	int id;
	int impact;

	current_strength = GetAttrib(me, "TotalMen");

	men_lost = GetLosses(me, damage);

	DisplayCasualties(me, men_lost, combatLog, red);

        lossFactor = GetLossFactor(me, damage); // Avoid 0 casualties on elephants reducing lossFactor to 0.

	Log ("Unit, Damage Factor, Men Lost, lossFactor (100 times % damage)", me, damage, men_lost, lossFactor);

	new_strength = current_strength - men_lost;

	//DebugLogX("unit, base man count, men_lost, killed", me, manCount, men_lost, killed);

	SetAttrib(me, "TotalMen", new_strength);
	
	impact = 0;	
	if (GetAttrib(me, "AnimSituation") == 1)
		{
			impact = 1;
		}
	if (enemy != -1)
		{
			if (GetAttrib(enemy, "AnimSituation") == 1)
				{
					impact = 1;
				}
		}

	if (impact == 1)
		{
			AddVizFunctionCall("CasualtiesDie", me); // Called in VizQ so that (hopefully) it won't get enacted before units move
		}
	else
		{
			CasualtiesDie(me);
		}

	SetUnitStatusFlag(me);

	// Also apply proportional losses to carried unit - currently none in FOG2. 
	id = GetLoadedUnit(me);
	if (id != -1)
		{
			current_strength = GetAttrib(id, "TotalMen");
			men_lost = GetLosses(id, damage);
			new_strength = current_strength - men_lost;
			SetAttrib(id, "TotalMen", new_strength);
			
			AddVizFunctionCall("CasualtiesDie", id); // Uncertain whether this code will have the correct result.
			
			SetUnitStatusFlag(id);
		}

	return lossFactor;
}

Code: Select all

FUNCTION GetLossFactor(me, damage)
{
	int lossFactor;
	int unitSize;

	unitSize = GetAttrib(me, "UnitSize");

	// lossFactor is calculated from original strength of unit, as incoming fire/close combat damage is not reduced by unit's losses,
	// and the divisor is based on the unitSize of the unit - with a minimum unitSize of 300 (or double actual unitSize if lower) to stop small units being too vulnerable.
	lossFactor = StartingStrength(me) * damage * 100;
	lossFactor /= Max(unitSize, Min(300, unitSize * 2));
	lossFactor *= 100;
	lossFactor /= GetAttrib(me, "TotalMen");
	

	return lossFactor;
}

Code: Select all

// Calculate 100 x % morale damage from 100 x % actual damage to unit. (Ignore rear ranks of very big units). (Use 100 x to avoid rounding errors).
FUNCTION ConvertLossFactorToMoraleDamage(me, damage)
{
	damage = damage * GetAttrib(me, "UnitSize");
	damage /= Min(GetAttrib(me, "UnitSize"), 900);

	return damage;
}

Code: Select all

//	lossFactor = men_lost * 10000;
//	lossFactor /= current_strength;
  lossFactor = GetLossFactor(me, damage); // Avoid 0 casualties on elephants reducing lossFactor to 0.//

Code: Select all

// FUNCTION GetLossFactor(me, damage)
{
	int lossFactor;
	int unitSize;

	unitSize = GetAttrib(me, "UnitSize");

	// lossFactor is calculated from original strength of unit, as incoming fire/close combat damage is not reduced by unit's losses,
	// and the divisor is based on the unitSize of the unit - with a minimum unitSize of 300 (or double actual unitSize if lower) to stop small units being too vulnerable.
	lossFactor = StartingStrength(me) * damage * 100;
	lossFactor /= Max(unitSize, Min(300, unitSize * 2));
	lossFactor *= 100;
	lossFactor /= GetAttrib(me, "TotalMen");
	

	return lossFactor;
}

Code: Select all

// Modifier if significant melee morale damage received
			if (GetAttribArray(me, "MoraleDamageFromCloseCombat", notional_turn) > FIRST_CT_THRESHOLD) //

Code: Select all

// Calculate 100 x % morale damage from 100 x % actual damage to unit. (Ignore rear ranks of very big units). (Use 100 x to avoid rounding errors).
FUNCTION ConvertLossFactorToMoraleDamage(me, damage)
{
	damage = damage * GetAttrib(me, "UnitSize");
	damage /= Min(GetAttrib(me, "UnitSize"), 900);

	return damage;
}

Code: Select all

moraleDamage = ConvertLossFactorToMoraleDamage(me, lossFactor); // Remove part of the moraleDamage diluting effect of very large units
	SetAttribArray(me, "MoraleDamageFromCloseCombat", notional_turn, GetAttribArray(me, "MoraleDamageFromCloseCombat", notional_turn) + moraleDamage);