hedgewars/uStats.pas
author nemo
Fri, 16 Oct 2009 19:56:23 +0000
changeset 2505 4481b1285b38
parent 2143 ad05f6b2d1c0
child 2619 bc2786a00fb8
permissions -rw-r--r--
Minor french tweak
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
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    19
unit uStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    20
interface
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    21
uses uGears, uConsts;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    22
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    23
type TStatistics = record
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    24
                   DamageRecv,
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    25
                   DamageGiven: Longword;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    26
                   StepDamageRecv,
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    27
                   StepDamageGiven,
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    28
                   StepKills: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    29
                   MaxStepDamageRecv,
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    30
                   MaxStepDamageGiven,
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    31
                   MaxStepKills: Longword;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    32
                   FinishedTurns: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    33
                   end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    34
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    35
procedure AmmoUsed(am: TAmmoType);
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    36
procedure HedgehogDamaged(Gear: PGear);
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    37
procedure Skipped;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    38
procedure TurnReaction;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    39
procedure SendStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    40
1058
c53c5c4e7b48 - Proper turns counting, split SwitchHedgehog into two functions
unc0rr
parents: 1054
diff changeset
    41
var
1070
6371ecc10806 Fix warning
unc0rr
parents: 1066
diff changeset
    42
	TotalRounds: LongInt = -1;
1058
c53c5c4e7b48 - Proper turns counting, split SwitchHedgehog into two functions
unc0rr
parents: 1054
diff changeset
    43
	FinishedTurnsTotal: LongInt = -1;
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    44
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    45
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
    46
uses uTeams, uSound, uMisc, uLocale, uWorld;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    47
var DamageGiven : Longword = 0;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    48
	DamageClan  : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    49
	DamageTotal : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    50
	KillsClan   : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    51
	Kills       : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    52
	KillsTotal  : LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    53
	AmmoUsedCount : Longword = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    54
	AmmoDamagingUsed : boolean = false;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    55
	SkippedTurns: LongWord = 0;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    56
	isTurnSkipped: boolean = false;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    57
	vpHurtSameClan: PVoicepack = nil;
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    58
	vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    59
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    60
procedure HedgehogDamaged(Gear: PGear);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    61
begin
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    62
if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    63
	vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    64
else
1723
430064bafa18 Fix 'youll regret that' voicepack
unc0rr
parents: 1678
diff changeset
    65
	vpHurtEnemy:= PHedgehog(Gear^.Hedgehog)^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    66
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    67
if bBetweenTurns then exit;
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    68
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    69
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    70
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    71
if Gear <> CurrentHedgehog^.Gear then
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    72
	inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    73
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    74
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
    75
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    76
if Gear^.Health <= Gear^.Damage then
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    77
	begin
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
    78
	inc(CurrentHedgehog^.stats.StepKills);
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    79
	inc(Kills);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    80
	inc(KillsTotal);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    81
	if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(KillsClan);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    82
	end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    83
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    84
inc(PHedgehog(Gear^.Hedgehog)^.stats.StepDamageRecv, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    85
inc(DamageGiven, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    86
inc(DamageTotal, Gear^.Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    87
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    88
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    89
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    90
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    91
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    92
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    93
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    94
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    95
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
    96
var i, t: LongInt;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    97
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    98
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    99
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   100
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   101
if FinishedTurnsTotal <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   102
	begin
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   103
	inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   104
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   105
	if (DamageGiven = DamageTotal) and (DamageTotal > 0) then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   106
		PlaySound(sndFirstBlood, false, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   107
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   108
	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
   109
		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
   110
		PlaySound(sndStupid, false, PreviousTeam^.voicepack);
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
		if DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), $FFFFFF, capgrpGameState);
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
		end
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   113
	else if DamageClan <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   114
		if DamageTotal > DamageClan then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   115
			if random(2) = 0 then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   116
				PlaySound(sndNutter, false, CurrentTeam^.voicepack)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   117
			else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   118
				PlaySound(sndWatchIt, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   119
		else
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   120
			if random(2) = 0 then
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   121
				PlaySound(sndSameTeam, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   122
			else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   123
				PlaySound(sndTraitor, false, vpHurtSameClan)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   124
	else if DamageGiven <> 0 then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   125
		if Kills > 0 then
1669
b709e061577e Mostly fix voicepack usage
unc0rr
parents: 1625
diff changeset
   126
			PlaySound(sndEnemyDown, false, CurrentTeam^.voicepack)
873
9bec5af9b23c One more sound
unc0rr
parents: 871
diff changeset
   127
		else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   128
			PlaySound(sndRegret, false, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   129
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   130
	else if AmmoDamagingUsed then
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   131
		PlaySound(sndMissed, false, PreviousTeam^.voicepack)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   132
	else if (AmmoUsedCount > 0) and not isTurnSkipped then
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   133
		// nothing ?
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   134
	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
   135
		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
   136
		PlaySound(sndBoring, false, PreviousTeam^.voicepack);
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
		AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), $FFFFFF, capgrpGameState);
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
		end
864
024369e09a53 Use some more sounds
unc0rr
parents: 858
diff changeset
   139
	else
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   140
		PlaySound(sndCoward, false, PreviousTeam^.voicepack);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   141
	end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   142
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   143
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   144
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   145
	with TeamsArray[t]^ do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   146
		for i:= 0 to cMaxHHIndex do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   147
			with Hedgehogs[i].stats do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   148
				begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   149
				inc(DamageRecv, StepDamageRecv);
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   150
				inc(DamageGiven, StepDamageGiven);
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   151
				if StepDamageRecv > MaxStepDamageRecv then MaxStepDamageRecv:= StepDamageRecv;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   152
				if StepDamageGiven > MaxStepDamageGiven then MaxStepDamageGiven:= StepDamageGiven;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   153
				if StepKills > MaxStepKills then MaxStepKills:= StepKills;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   154
				StepKills:= 0;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   155
				StepDamageRecv:= 0;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   156
				StepDamageGiven:= 0
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   157
				end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   158
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   159
for t:= 0 to Pred(ClansCount) do
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   160
	with ClansArray[t]^ do
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   161
		begin
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   162
		SendStat(siClanHealth, inttostr(Color) + ' ' + inttostr(ClanHealth));
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   163
		end;
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   164
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   165
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   166
KillsClan:= 0;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   167
DamageGiven:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   168
DamageClan:= 0;
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   169
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   170
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   171
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   172
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   173
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   174
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   175
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   176
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   177
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   178
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   179
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   180
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   181
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   182
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   183
    mskcnt: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   184
begin
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   185
msd:= 0; msdhh:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   186
msk:= 0; mskhh:= nil;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   187
mskcnt:= 0;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   188
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   189
for t:= 0 to Pred(TeamsCount) do
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   190
	with TeamsArray[t]^ do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   191
		begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   192
		for i:= 0 to cMaxHHIndex do
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   193
			begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   194
			if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   195
				begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   196
				msdhh:= @Hedgehogs[i];
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   197
				msd:= Hedgehogs[i].stats.MaxStepDamageGiven
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   198
				end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   199
			if Hedgehogs[i].stats.MaxStepKills >= msk then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   200
				if Hedgehogs[i].stats.MaxStepKills = msk then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   201
					inc(mskcnt)
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   202
				else
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   203
					begin
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   204
					mskcnt:= 1;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   205
					mskhh:= @Hedgehogs[i];
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   206
					msk:= Hedgehogs[i].stats.MaxStepKills
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   207
					end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   208
			end
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   209
		end;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   210
if msdhh <> nil then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   211
	SendStat(siMaxStepDamage, inttostr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   212
if mskcnt = 1 then
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   213
	SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   214
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   215
if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   216
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   217
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   218
end.