Slitherine

quote:


// calc total carnage
int totalCarnage = 0;
bool bWasSmallBattle = false;
for (p=1; p<NoNations; p++)
totalCarnage += HexWar.CarnageTakenByPlayer[p];
if (totalCarnage<SmallBattleDeathSize)
bWasSmallBattle = true;
// modify morale and glory
{
int averageCarnage = (HexWar.CarnageTakenByTeam[0] + HexWar.CarnageTakenByTeam[1])/2;
float scale = (float) averageCarnage/500.0f;
int gloryScale = 2*(1 + min(TotalTeamStrength[0], TotalTeamStrength[1])/StrengthPerGloryInBattle);
if (bWasSmallBattle)
{
scale = 0;
gloryScale = 1;
}
if (TotalTeamStrength[0]>100000 && TotalTeamStrength[1]>100000)
{
gloryScale *= 2;
scale *= 6;
}
if (averageCarnage<500)
gloryScale = 0;
{
// modify morale
for (p=1; p<NoPlayersWithTreaties; p++)
if (PlayerStrength[p])
{
// modf morale
if (HexWar.RetreatRounds[p]>=0)
{
// greater morale loss for non-france in 1792-1796
int year = StartYear+GetTurn()/12;
if (p!=France &&
(year>=1792 && year<1796))
{
Do_ModfNationalMorale(p, -6*scale, loseBattle_MoraleMod);
}
else
Do_ModfNationalMorale(p, -3*scale, loseBattle_MoraleMod);
}
else
{
Do_ModfNationalMorale(p, scale, winBattle_MoraleMod);
}
// lose ML for own casualties
Do_ModfNationalMorale(p, -HexWar.CarnageTakenByPlayer[p]/2000, casualties_MoraleMod);