hedgewars: comparison hedgewars/uStats.pas

equal deleted inserted replaced

-:01f88c3b7b66
+:1b2b84315d27
 interface
 uses uConsts, uTypes;
 var TotalRounds: LongInt;
 FinishedTurnsTotal: LongInt;
+SendGameResultOn : boolean = true;
+SendRankingStatsOn : boolean = true;
+SendAchievementsStatsOn : boolean = true;
 SendHealthStatsOn : boolean = true;
 procedure initModule;
 procedure freeModule;
 procedure AmmoUsed(am: TAmmoType);
+procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);
+procedure HedgehogSacrificed(Hedgehog: PHedgehog);
 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
+procedure TargetHit;
 procedure Skipped;
 procedure TurnReaction;
 procedure SendStats;
 procedure hedgehogFlight(Gear: PGear; time: Longword);
 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript;
 var DamageClan  : Longword = 0;
 DamageTotal : Longword = 0;
 DamageTurn  : Longword = 0;
+PoisonTurn  : Longword = 0; // Poisoned enemies per turn
+PoisonClan  : Longword = 0; // Poisoned own clan members in turn
+PoisonTotal : Longword = 0; // Poisoned hogs in whole round
 KillsClan   : LongWord = 0;
 Kills       : LongWord = 0;
 KillsTotal  : LongWord = 0;
+HitTargets  : LongWord = 0; // Target (gtTarget) hits per turn
 AmmoUsedCount : Longword = 0;
 AmmoDamagingUsed : boolean = false;
 SkippedTurns: LongWord = 0;
 isTurnSkipped: boolean = false;
 vpHurtSameClan: PVoicepack = nil;
 vpHurtEnemy: PVoicepack = nil;
+procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);
+begin
+if Attacker^.Team^.Clan = Gear^.HEdgehog^.Team^.Clan then
+begin
+vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack;
+inc(PoisonClan)
+end
+else
+begin
+vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
+inc(PoisonTurn)
+end;
+Gear^.Hedgehog^.stats.StepPoisoned:= true;
+inc(PoisonTotal)
+end;
+procedure HedgehogSacrificed(Hedgehog: PHedgehog);
+begin
+Hedgehog^.stats.Sacrificed:= true
+end;
 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
 begin
 if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
 vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
 else
 if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
 if killed then
 begin
+Gear^.Hedgehog^.stats.StepDied:= true;
 inc(Attacker^.stats.StepKills);
 inc(Kills);
 inc(KillsTotal);
 inc(Attacker^.Team^.stats.Kills);
 if (Attacker^.Team^.TeamName = Gear^.Hedgehog^.Team^.TeamName) then
 inc(DamageTotal, Damage);
 inc(DamageTurn, Damage)
 end;
+procedure TargetHit();
+begin
+inc(HitTargets)
+end;
 procedure Skipped;
 begin
 inc(SkippedTurns);
 isTurnSkipped:= true
 end;
 procedure TurnReaction;
 var i, t: LongInt;
+killsCheck: LongInt;
 s: ansistring;
 begin
 //TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
 inc(FinishedTurnsTotal);
 if FinishedTurnsTotal <> 0 then
 begin
 s:= ansistring(CurrentHedgehog^.Name);
 inc(CurrentHedgehog^.stats.FinishedTurns);
+// If the hog sacrificed (=kamikaze/piano) itself, this needs to be taken into accounts for the reactions later
-if (CurrentHedgehog^.stats.DamageGiven = DamageTotal) and (DamageTotal > 0) then
+if (CurrentHedgehog^.stats.Sacrificed) then
+killsCheck:= 1
+else
+killsCheck:= 0;
+// First blood (first damage, poison or kill)
+if ((DamageTotal > 0) or (KillsTotal > 0) or (PoisonTotal > 0)) and ((CurrentHedgehog^.stats.DamageGiven = DamageTotal) and (CurrentHedgehog^.stats.StepKills = KillsTotal) and (PoisonTotal = PoisonTurn + PoisonClan)) then
 AddVoice(sndFirstBlood, CurrentTeam^.voicepack)
-else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
+// Hog hurts, poisons or kills itself (except sacrifice)
+else if (CurrentHedgehog^.stats.Sacrificed = false) and ((CurrentHedgehog^.stats.StepDamageRecv > 0) or (CurrentHedgehog^.stats.StepPoisoned) or (CurrentHedgehog^.stats.StepDied)) then
 begin
 AddVoice(sndStupid, PreviousTeam^.voicepack);
-if CurrentHedgehog^.stats.DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then
+// Message for hurting itself only (not drowning)
+if (CurrentHedgehog^.stats.DamageGiven = CurrentHedgehog^.stats.StepDamageRecv) and (CurrentHedgehog^.stats.StepDamageRecv >= 1) then
 AddCaption(FormatA(GetEventString(eidHurtSelf), s), cWhiteColor, capgrpMessage);
 end
-else if DamageClan <> 0 then
+// Hog hurts, poisons or kills own team/clan member. Sacrifice is taken into account
-if DamageTurn > DamageClan then
+else if (DamageClan <> 0) or (KillsClan > killsCheck) or (PoisonClan <> 0) then
+if (DamageTurn > DamageClan) or (Kills > KillsClan) then
 if random(2) = 0 then
 AddVoice(sndNutter, CurrentTeam^.voicepack)
 else
 AddVoice(sndWatchIt, vpHurtSameClan)
 else
 if random(2) = 0 then
 AddVoice(sndSameTeam, vpHurtSameClan)
 else
 AddVoice(sndTraitor, vpHurtSameClan)
-else if CurrentHedgehog^.stats.StepDamageGiven <> 0 then
+// Hog hurts, kills or poisons enemy
-if Kills > 0 then
+else if (CurrentHedgehog^.stats.StepDamageGiven <> 0) or (CurrentHedgehog^.stats.StepKills > killsCheck) or (PoisonTurn <> 0) then
+if Kills > killsCheck then
 AddVoice(sndEnemyDown, CurrentTeam^.voicepack)
 else
 AddVoice(sndRegret, vpHurtEnemy)
-else if AmmoDamagingUsed then
+// Missed shot
-AddVoice(sndMissed, PreviousTeam^.voicepack)
+// A miss is defined as a shot with a damaging weapon with 0 kills, 0 damage, 0 hogs poisoned and 0 targets hit
+else if AmmoDamagingUsed and (Kills <= killsCheck) and (PoisonTurn = 0) and (PoisonClan = 0) and (DamageTurn = 0) and (HitTargets = 0) then
+// Chance to call hedgehog stupid if sacrificed for nothing
+if CurrentHedgehog^.stats.Sacrificed then
+if random(2) = 0 then
+AddVoice(sndMissed, PreviousTeam^.voicepack)
+else
+AddVoice(sndStupid, PreviousTeam^.voicepack)
+else
+AddVoice(sndMissed, PreviousTeam^.voicepack)
+// Timeout
 else if (AmmoUsedCount > 0) and (not isTurnSkipped) then
 begin end// nothing ?
-else if isTurnSkipped then
-begin
+// Turn skipped
-AddVoice(sndBoring, PreviousTeam^.voicepack);
+else if isTurnSkipped and (not PlacingHogs) then
+begin
+AddVoice(sndCoward, PreviousTeam^.voicepack);
 AddCaption(FormatA(GetEventString(eidTurnSkipped), s), cWhiteColor, capgrpMessage);
 end
-else if not PlacingHogs then
-AddVoice(sndCoward, PreviousTeam^.voicepack);
 end;
 for t:= 0 to Pred(TeamsCount) do // send even on zero turn
 with TeamsArray[t]^ do
 MaxStepDamageGiven:= StepDamageGiven;
 if StepKills > MaxStepKills then
 MaxStepKills:= StepKills;
 StepKills:= 0;
 StepDamageRecv:= 0;
-StepDamageGiven:= 0
+StepDamageGiven:= 0;
+StepPoisoned:= false;
+StepDied:= false;
 end;
 if SendHealthStatsOn then
 for t:= 0 to Pred(ClansCount) do
 with ClansArray[t]^ do
 Kills:= 0;
 KillsClan:= 0;
 DamageClan:= 0;
 DamageTurn:= 0;
+HitTargets:= 0;
+PoisonClan:= 0;
+PoisonTurn:= 0;
 AmmoUsedCount:= 0;
 AmmoDamagingUsed:= false;
 isTurnSkipped:= false
 end;
 winnersClan:= nil;
 for t:= 0 to Pred(TeamsCount) do
 with TeamsArray[t]^ do
 begin
-if not ExtDriven then
+if (not ExtDriven) and SendRankingStatsOn then
 SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
 for i:= 0 to cMaxHHIndex do
 begin
 if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
 begin
 { send player stats for winner teams }
 if Clan^.ClanHealth > 0 then
 begin
 winnersClan:= Clan;
-SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
+if SendRankingStatsOn then
-IntToStr(stats.Kills) + ' ' + TeamName);
+SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
+IntToStr(stats.Kills) + ' ' + TeamName);
 end;
 { determine maximum values of TeamKills, TurnSkips, TeamDamage }
 if stats.TeamKills > maxTeamKills then
 begin
 end;
 end;
 { now send player stats for loser teams }
-for t:= 0 to Pred(TeamsCount) do
+if SendRankingStatsOn then
-begin
+for t:= 0 to Pred(TeamsCount) do
-with TeamsArray[t]^ do
 begin
-if Clan^.ClanHealth = 0 then
+with TeamsArray[t]^ do
 begin
-SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
+if Clan^.ClanHealth = 0 then
-IntToStr(stats.Kills) + ' ' + TeamName);
+begin
+SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
+IntToStr(stats.Kills) + ' ' + TeamName);
+end;
 end;
 end;
-end;
+// “Achievements” / Details part of stats screen
-if msdhh <> nil then
+if SendAchievementsStatsOn then
-SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
+begin
-if mskcnt = 1 then
+if msdhh <> nil then
-SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
+SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
+if mskcnt = 1 then
-if maxTeamKills > 1 then
+SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
-SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
-if maxTurnSkips > 2 then
+if maxTeamKills > 1 then
-SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
+SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
-if maxTeamDamage > 30 then
+if maxTurnSkips > 2 then
-SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
+SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
+if maxTeamDamage > 30 then
-if KilledHHs > 0 then
+SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
-SendStat(siKilledHHs, IntToStr(KilledHHs));
+if KilledHHs > 0 then
+SendStat(siKilledHHs, IntToStr(KilledHHs));
+end;
 // now to console
 if winnersClan <> nil then
 begin
 WriteLnToConsole('WINNERS');
 procedure initModule;
 begin
 DamageClan  := 0;
 DamageTotal := 0;
 DamageTurn  := 0;
+PoisonClan  := 0;
+PoisonTurn  := 0;
 KillsClan   := 0;
 Kills       := 0;
 KillsTotal  := 0;
+HitTargets  := 0;
 AmmoUsedCount := 0;
 AmmoDamagingUsed := false;
 SkippedTurns:= 0;
 isTurnSkipped:= false;
 vpHurtSameClan:= nil;

branch	qmlfrontend
changeset 12855	1b2b84315d27
parent 12568	494d3e1c4810
child 12918	6deb29364723