hedgewars/uStats.pas
author nemo
Thu, 07 Jan 2010 16:12:26 +0000
changeset 2679 b61d25fa6c53
parent 2630 079ef82eac75
child 2712 8f4527c9137c
permissions -rw-r--r--
bit of a short circuit to reduce a few pointless tests on most text strings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1058
diff changeset
     2
 * Hedgewars, a free turn based strategy game
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     3
 * Copyright (c) 2008 Andrey Korotaev <unC0Rr@gmail.com>
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     4
 *
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     8
 *
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    12
 * GNU General Public License for more details.
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    13
 *
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    14
 * You should have received a copy of the GNU General Public License
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    15
 * along with this program; if not, write to the Free Software
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    17
 *)
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    18
2630
079ef82eac75 revamped file access and debug display
koda
parents: 2619
diff changeset
    19
{$INCLUDE "options.inc"}
079ef82eac75 revamped file access and debug display
koda
parents: 2619
diff changeset
    20
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    21
unit uStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    22
interface
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    23
uses uGears, uConsts;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    24
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    25
type TStatistics = record
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    26
                   DamageRecv,
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    27
                   DamageGiven: Longword;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    28
                   StepDamageRecv,
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    29
                   StepDamageGiven,
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    30
                   StepKills: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    31
                   MaxStepDamageRecv,
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    32
                   MaxStepDamageGiven,
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    33
                   MaxStepKills: Longword;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    34
                   FinishedTurns: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    35
                   end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    36
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    37
procedure AmmoUsed(am: TAmmoType);
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    38
procedure HedgehogDamaged(Gear: PGear);
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    39
procedure Skipped;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    40
procedure TurnReaction;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    41
procedure SendStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    42
1058
c53c5c4e7b48 - Proper turns counting, split SwitchHedgehog into two functions
unc0rr
parents: 1054
diff changeset
    43
var
1070
6371ecc10806 Fix warning
unc0rr
parents: 1066
diff changeset
    44
	TotalRounds: LongInt = -1;
1058
c53c5c4e7b48 - Proper turns counting, split SwitchHedgehog into two functions
unc0rr
parents: 1054
diff changeset
    45
	FinishedTurnsTotal: LongInt = -1;
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    46
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    47
implementation
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
    48
uses uTeams, uSound, uMisc, uLocale, uWorld;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    49
var DamageGiven : Longword = 0;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    50
	DamageClan  : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    51
	DamageTotal : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    52
	KillsClan   : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    53
	Kills       : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    54
	KillsTotal  : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    55
	AmmoUsedCount : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    56
	AmmoDamagingUsed : boolean = false;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    57
	SkippedTurns: LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    58
	isTurnSkipped: boolean = false;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    59
	vpHurtSameClan: PVoicepack = nil;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    60
	vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    61
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    62
procedure HedgehogDamaged(Gear: PGear);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    63
begin
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    64
if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    65
	vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    66
else
1723
430064bafa18 Fix 'youll regret that' voicepack
unc0rr
parents: 1678
diff changeset
    67
	vpHurtEnemy:= PHedgehog(Gear^.Hedgehog)^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    68
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    69
if bBetweenTurns then exit;
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    70
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    71
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    72
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    73
if Gear <> CurrentHedgehog^.Gear then
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    74
	inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    75
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    76
if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(DamageClan, Gear^.Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    77
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    78
if Gear^.Health <= Gear^.Damage then
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    79
	begin
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    80
	inc(CurrentHedgehog^.stats.StepKills);
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    81
	inc(Kills);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    82
	inc(KillsTotal);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    83
	if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(KillsClan);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    84
	end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    85
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    86
inc(PHedgehog(Gear^.Hedgehog)^.stats.StepDamageRecv, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    87
inc(DamageGiven, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    88
inc(DamageTotal, Gear^.Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    89
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    90
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    91
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    92
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    93
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    94
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    95
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    96
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    97
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
    98
var i, t: LongInt;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    99
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   100
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   101
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   102
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   103
if FinishedTurnsTotal <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   104
	begin
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   105
	inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   106
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   107
	if (DamageGiven = DamageTotal) and (DamageTotal > 0) then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   108
		PlaySound(sndFirstBlood, false, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   109
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   110
	else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   111
		begin
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   112
		PlaySound(sndStupid, false, PreviousTeam^.voicepack);
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   113
		if DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpGameState);
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   114
		end
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   115
	else if DamageClan <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   116
		if DamageTotal > DamageClan then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   117
			if random(2) = 0 then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   118
				PlaySound(sndNutter, false, CurrentTeam^.voicepack)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   119
			else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   120
				PlaySound(sndWatchIt, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   121
		else
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   122
			if random(2) = 0 then
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   123
				PlaySound(sndSameTeam, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   124
			else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   125
				PlaySound(sndTraitor, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   126
	else if DamageGiven <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   127
		if Kills > 0 then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   128
			PlaySound(sndEnemyDown, false, CurrentTeam^.voicepack)
873
9bec5af9b23c One more sound
unc0rr
parents: 871
diff changeset
   129
		else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   130
			PlaySound(sndRegret, false, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   131
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   132
	else if AmmoDamagingUsed then
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   133
		PlaySound(sndMissed, false, PreviousTeam^.voicepack)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   134
	else if (AmmoUsedCount > 0) and not isTurnSkipped then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   135
		// nothing ?
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   136
	else if isTurnSkipped then
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   137
		begin
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   138
		PlaySound(sndBoring, false, PreviousTeam^.voicepack);
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   139
		AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpGameState);
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 1723
diff changeset
   140
		end
864
024369e09a53 Use some more sounds
unc0rr
parents: 858
diff changeset
   141
	else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   142
		PlaySound(sndCoward, false, PreviousTeam^.voicepack);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   143
	end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   144
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   145
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   146
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   147
	with TeamsArray[t]^ do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   148
		for i:= 0 to cMaxHHIndex do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   149
			with Hedgehogs[i].stats do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   150
				begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   151
				inc(DamageRecv, StepDamageRecv);
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   152
				inc(DamageGiven, StepDamageGiven);
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   153
				if StepDamageRecv > MaxStepDamageRecv then MaxStepDamageRecv:= StepDamageRecv;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   154
				if StepDamageGiven > MaxStepDamageGiven then MaxStepDamageGiven:= StepDamageGiven;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   155
				if StepKills > MaxStepKills then MaxStepKills:= StepKills;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   156
				StepKills:= 0;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   157
				StepDamageRecv:= 0;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   158
				StepDamageGiven:= 0
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   159
				end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   160
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   161
for t:= 0 to Pred(ClansCount) do
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   162
	with ClansArray[t]^ do
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   163
		begin
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   164
		SendStat(siClanHealth, inttostr(Color) + ' ' + inttostr(ClanHealth));
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   165
		end;
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   166
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   167
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   168
KillsClan:= 0;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   169
DamageGiven:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   170
DamageClan:= 0;
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   171
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   172
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   173
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   174
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   175
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   176
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   177
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   178
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   179
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   180
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   181
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   182
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   183
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   184
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   185
    mskcnt: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   186
begin
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   187
msd:= 0; msdhh:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   188
msk:= 0; mskhh:= nil;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   189
mskcnt:= 0;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   190
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   191
for t:= 0 to Pred(TeamsCount) do
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   192
	with TeamsArray[t]^ do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   193
		begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   194
		for i:= 0 to cMaxHHIndex do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   195
			begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   196
			if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   197
				begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   198
				msdhh:= @Hedgehogs[i];
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   199
				msd:= Hedgehogs[i].stats.MaxStepDamageGiven
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   200
				end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   201
			if Hedgehogs[i].stats.MaxStepKills >= msk then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   202
				if Hedgehogs[i].stats.MaxStepKills = msk then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   203
					inc(mskcnt)
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   204
				else
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   205
					begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   206
					mskcnt:= 1;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   207
					mskhh:= @Hedgehogs[i];
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   208
					msk:= Hedgehogs[i].stats.MaxStepKills
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   209
					end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   210
			end
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   211
		end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   212
if msdhh <> nil then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   213
	SendStat(siMaxStepDamage, inttostr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   214
if mskcnt = 1 then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   215
	SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   216
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   217
if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   218
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   219
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   220
end.