hedgewars/uStats.pas
author koda
Sat, 06 Aug 2011 07:09:30 +0200
changeset 5505 a55aab592950
parent 5203 b77f28facca6
child 5638 e35ba2a400d8
permissions -rw-r--r--
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes. This is a major sdl1.3 update so it should be tested with care (working great on ios)
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
4976
088d40d8aba2 Happy 2011 :)
koda
parents: 4837
diff changeset
     3
 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
814
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
4370
unc0rr
parents: 4365
diff changeset
    23
uses uConsts, uTypes;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    24
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    25
var TotalRounds: LongInt;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    26
    FinishedTurnsTotal: LongInt;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    27
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    28
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    29
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    30
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    31
procedure AmmoUsed(am: TAmmoType);
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    32
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    33
procedure Skipped;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    34
procedure TurnReaction;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    35
procedure SendStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    36
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    37
implementation
4413
46caab3a8f84 uCommandHandlers
unc0rr
parents: 4403
diff changeset
    38
uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc;
4359
83ef50815535 Move variables from uMisc to uVariables
unC0Rr
parents: 4357
diff changeset
    39
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    40
var DamageClan  : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    41
    DamageTotal : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    42
    KillsClan   : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    43
    Kills       : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    44
    KillsTotal  : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    45
    AmmoUsedCount : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    46
    AmmoDamagingUsed : boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    47
    SkippedTurns: LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    48
    isTurnSkipped: boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    49
    vpHurtSameClan: PVoicepack = nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    50
    vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    51
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    52
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    53
begin
4837
2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash.
unc0rr
parents: 4824
diff changeset
    54
if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    55
    vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    56
else
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
    57
    vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    58
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    59
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    60
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    61
inc(Attacker^.stats.StepDamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    62
inc(Attacker^.stats.DamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    63
inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    64
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    65
if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    66
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    67
if killed then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    68
    begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    69
    inc(Attacker^.stats.StepKills);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    70
    inc(Kills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    71
    inc(KillsTotal);
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    72
    inc(Attacker^.Team^.stats.Kills);
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    73
    if (Attacker^.Team^.TeamName =
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
    74
            Gear^.Hedgehog^.Team^.TeamName) then begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    75
        inc(Attacker^.Team^.stats.TeamKills);
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    76
        inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    77
    end;
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    78
    if Gear = Attacker^.Gear then inc(Attacker^.Team^.stats.Suicides);
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    79
    if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(KillsClan);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    80
    end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    81
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    82
inc(DamageTotal, Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    83
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    84
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    85
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    86
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    87
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    88
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    89
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    90
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    91
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
    92
var i, t: LongInt;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    93
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    94
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    95
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
    96
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
    97
if FinishedTurnsTotal <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    98
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    99
    inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   100
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   101
    if (CurrentHedgehog^.stats.DamageGiven = DamageTotal) and (DamageTotal > 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   102
        PlaySound(sndFirstBlood, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   103
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   104
    else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   105
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   106
        PlaySound(sndStupid, PreviousTeam^.voicepack);
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   107
        if CurrentHedgehog^.stats.DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then 
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   108
            AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   109
        end
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   110
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   111
    else if DamageClan <> 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   112
        if DamageTotal > DamageClan then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   113
            if random(2) = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   114
                PlaySound(sndNutter, CurrentTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   115
            else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   116
                PlaySound(sndWatchIt, vpHurtSameClan)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   117
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   118
            if random(2) = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   119
                PlaySound(sndSameTeam, vpHurtSameClan)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   120
            else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   121
                PlaySound(sndTraitor, vpHurtSameClan)
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   122
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   123
    else if CurrentHedgehog^.stats.StepDamageGiven <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   124
        if Kills > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   125
            PlaySound(sndEnemyDown, CurrentTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   126
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   127
            PlaySound(sndRegret, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   128
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   129
    else if AmmoDamagingUsed then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   130
        PlaySound(sndMissed, PreviousTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   131
    else if (AmmoUsedCount > 0) and not isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   132
        // nothing ?
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   133
    else if isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   134
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   135
        PlaySound(sndBoring, PreviousTeam^.voicepack);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   136
        AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   137
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   138
    else if not PlacingHogs then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   139
        PlaySound(sndCoward, PreviousTeam^.voicepack);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   140
    end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   141
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   142
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   143
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   144
    with TeamsArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   145
        for i:= 0 to cMaxHHIndex do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   146
            with Hedgehogs[i].stats do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   147
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   148
                inc(DamageRecv, StepDamageRecv);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   149
                inc(DamageGiven, StepDamageGiven);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   150
                if StepDamageRecv > MaxStepDamageRecv then MaxStepDamageRecv:= StepDamageRecv;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   151
                if StepDamageGiven > MaxStepDamageGiven then MaxStepDamageGiven:= StepDamageGiven;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   152
                if StepKills > MaxStepKills then MaxStepKills:= StepKills;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   153
                StepKills:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   154
                StepDamageRecv:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   155
                StepDamageGiven:= 0
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   156
                end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   157
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   158
for t:= 0 to Pred(ClansCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   159
    with ClansArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   160
        begin
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   161
        SendStat(siClanHealth, IntToStr(Color) + ' ' + IntToStr(ClanHealth));
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   162
        end;
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   163
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   164
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   165
KillsClan:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   166
DamageClan:= 0;
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   167
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   168
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   169
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   170
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   171
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   172
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   173
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   174
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   175
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   176
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   177
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   178
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   179
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   180
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   181
    mskcnt: Longword;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   182
    maxTeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   183
    maxTeamKillsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   184
    maxTurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   185
    maxTurnSkipsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   186
    maxTeamDamage : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   187
    maxTeamDamageName : shortstring;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   188
    winnersClan : PClan;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   189
begin
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   190
msd:= 0; msdhh:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   191
msk:= 0; mskhh:= nil;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   192
mskcnt:= 0;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   193
maxTeamKills := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   194
maxTurnSkips := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   195
maxTeamDamage := 0;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   196
winnersClan:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   197
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   198
for t:= 0 to Pred(TeamsCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   199
    with TeamsArray[t]^ do
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   200
    begin
3381
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   201
        if not ExtDriven then
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   202
            SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   203
        for i:= 0 to cMaxHHIndex do begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   204
            if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   205
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   206
                msdhh:= @Hedgehogs[i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   207
                msd:= Hedgehogs[i].stats.MaxStepDamageGiven
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   208
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   209
            if Hedgehogs[i].stats.MaxStepKills >= msk then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   210
                if Hedgehogs[i].stats.MaxStepKills = msk then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   211
                    inc(mskcnt)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   212
                else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   213
                    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   214
                    mskcnt:= 1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   215
                    mskhh:= @Hedgehogs[i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   216
                    msk:= Hedgehogs[i].stats.MaxStepKills
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   217
                    end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   218
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   219
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   220
        { send player stats for winner teams }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   221
        if Clan^.ClanHealth > 0 then begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   222
            winnersClan:= Clan;
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   223
            SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   224
                IntToStr(stats.Kills) + ' ' + TeamName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   225
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   226
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   227
        { determine maximum values of TeamKills, TurnSkips, TeamDamage }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   228
        if stats.TeamKills > maxTeamKills then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   229
            maxTeamKills := stats.TeamKills;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   230
            maxTeamKillsName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   231
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   232
        if stats.TurnSkips > maxTurnSkips then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   233
            maxTurnSkips := stats.TurnSkips;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   234
            maxTurnSkipsName := TeamName;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   235
        end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   236
        if stats.TeamDamage > maxTeamDamage then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   237
            maxTeamDamage := stats.TeamDamage;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   238
            maxTeamDamageName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   239
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   240
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   241
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   242
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   243
{ now send player stats for loser teams }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   244
for t:= 0 to Pred(TeamsCount) do begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   245
    with TeamsArray[t]^ do begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   246
        if Clan^.ClanHealth = 0 then begin
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   247
            SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   248
                IntToStr(stats.Kills) + ' ' + TeamName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   249
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   250
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   251
end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   252
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   253
if msdhh <> nil then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   254
    SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   255
if mskcnt = 1 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   256
    SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   257
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   258
if maxTeamKills > 1 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   259
    SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   260
if maxTurnSkips > 2 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   261
    SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   262
if maxTeamDamage > 30 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   263
    SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   264
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   265
if KilledHHs > 0 then SendStat(siKilledHHs, IntToStr(KilledHHs));
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   266
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   267
// now to console
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   268
if winnersClan <> nil then 
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   269
    begin
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   270
    writeln('WINNERS');
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   271
    for t:= 0 to winnersClan^.TeamsNumber - 1 do
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   272
        writeln(winnersClan^.Teams[t]^.TeamName);
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   273
    writeln;
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   274
    end else
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   275
    writeln('DRAW');
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   276
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   277
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   278
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   279
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   280
    TotalRounds:= -1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   281
    FinishedTurnsTotal:= -1;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   282
end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3381
diff changeset
   283
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   284
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   285
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   286
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   287
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   288
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   289
end.