hedgewars/uStats.pas
author szczur
Sun, 12 Sep 2010 17:38:14 -0400
changeset 3850 df6ecca1894f
parent 3784 75aa91bea32b
child 4357 a1fcfc341a52
permissions -rw-r--r--
This change allows computers limited to 512 texture size like szczur's card to run Hedgewars, so long as reduce quality is set to eliminate background textures. It makes Ammo menu and Hats multicolumn, 512 high.
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
3770
f54e8cb9a12b Add kill counter to Survival Mode -Burp
tiyuri@gmail.com
parents: 3697
diff changeset
    37
type TTeamStats = record
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    38
    Kills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    39
    AIKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    40
    TeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    41
    TurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    42
    TeamDamage : Longword;
3770
f54e8cb9a12b Add kill counter to Survival Mode -Burp
tiyuri@gmail.com
parents: 3697
diff changeset
    43
end;
f54e8cb9a12b Add kill counter to Survival Mode -Burp
tiyuri@gmail.com
parents: 3697
diff changeset
    44
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    45
var TotalRounds: LongInt;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    46
    FinishedTurnsTotal: LongInt;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    47
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    48
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    49
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    50
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    51
procedure AmmoUsed(am: TAmmoType);
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    52
procedure HedgehogDamaged(Gear: PGear);
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    53
procedure Skipped;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    54
procedure TurnReaction;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    55
procedure SendStats;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    56
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    57
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
    58
uses uTeams, uSound, uMisc, uLocale, uWorld;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    59
var DamageGiven : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    60
    DamageClan  : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    61
    DamageTotal : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    62
    KillsClan   : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    63
    Kills       : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    64
    KillsTotal  : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    65
    AmmoUsedCount : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    66
    AmmoDamagingUsed : boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    67
    SkippedTurns: LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    68
    isTurnSkipped: boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    69
    vpHurtSameClan: PVoicepack = nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    70
    vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    71
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    72
procedure HedgehogDamaged(Gear: PGear);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    73
begin
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    74
if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    75
    vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    76
else
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    77
    vpHurtEnemy:= PHedgehog(Gear^.Hedgehog)^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    78
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    79
if bBetweenTurns then exit;
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    80
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    81
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    82
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    83
if Gear <> CurrentHedgehog^.Gear then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    84
    inc(CurrentHedgehog^.stats.StepDamageGiven, Gear^.Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    85
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    86
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
    87
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
    88
if Gear^.Health <= Gear^.Damage then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    89
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    90
    inc(CurrentHedgehog^.stats.StepKills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    91
    inc(Kills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    92
    inc(KillsTotal);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    93
    inc(CurrentHedgehog^.Team^.stats.Kills);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    94
    if (CurrentHedgehog^.Team^.TeamName =
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    95
            PHedgehog(Gear^.Hedgehog)^.Team^.TeamName) then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    96
        inc(CurrentHedgehog^.Team^.stats.TeamKills);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    97
        inc(CurrentHedgehog^.Team^.stats.TeamDamage, Gear^.Damage);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    98
    end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    99
    if CurrentHedgehog^.Team^.Clan = PHedgehog(Gear^.Hedgehog)^.Team^.Clan then inc(KillsClan);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   100
    end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   101
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   102
inc(PHedgehog(Gear^.Hedgehog)^.stats.StepDamageRecv, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   103
inc(DamageGiven, Gear^.Damage);
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   104
inc(DamageTotal, Gear^.Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   105
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   106
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   107
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   108
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   109
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   110
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   111
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   112
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   113
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
   114
var i, t: LongInt;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   115
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   116
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   117
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   118
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   119
if FinishedTurnsTotal <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   120
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   121
    inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   122
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   123
    if (DamageGiven = DamageTotal) and (DamageTotal > 0) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   124
        PlaySound(sndFirstBlood, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   125
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   126
    else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   127
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   128
        PlaySound(sndStupid, PreviousTeam^.voicepack);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   129
        if DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   130
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   131
    else if DamageClan <> 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   132
        if DamageTotal > DamageClan then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   133
            if random(2) = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   134
                PlaySound(sndNutter, CurrentTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   135
            else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   136
                PlaySound(sndWatchIt, vpHurtSameClan)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   137
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   138
            if random(2) = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   139
                PlaySound(sndSameTeam, vpHurtSameClan)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   140
            else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   141
                PlaySound(sndTraitor, vpHurtSameClan)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   142
    else if DamageGiven <> 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   143
        if Kills > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   144
            PlaySound(sndEnemyDown, CurrentTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   145
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   146
            PlaySound(sndRegret, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   147
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   148
    else if AmmoDamagingUsed then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   149
        PlaySound(sndMissed, PreviousTeam^.voicepack)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   150
    else if (AmmoUsedCount > 0) and not isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   151
        // nothing ?
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   152
    else if isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   153
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   154
        PlaySound(sndBoring, PreviousTeam^.voicepack);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   155
        AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   156
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   157
    else if not PlacingHogs then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   158
        PlaySound(sndCoward, PreviousTeam^.voicepack);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   159
    end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   160
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   161
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   162
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
   163
    with TeamsArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   164
        for i:= 0 to cMaxHHIndex do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   165
            with Hedgehogs[i].stats do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   166
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   167
                inc(DamageRecv, StepDamageRecv);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   168
                inc(DamageGiven, StepDamageGiven);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   169
                if StepDamageRecv > MaxStepDamageRecv then MaxStepDamageRecv:= StepDamageRecv;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   170
                if StepDamageGiven > MaxStepDamageGiven then MaxStepDamageGiven:= StepDamageGiven;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   171
                if StepKills > MaxStepKills then MaxStepKills:= StepKills;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   172
                StepKills:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   173
                StepDamageRecv:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   174
                StepDamageGiven:= 0
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   175
                end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   176
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   177
for t:= 0 to Pred(ClansCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   178
    with ClansArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   179
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   180
        SendStat(siClanHealth, inttostr(Color) + ' ' + inttostr(ClanHealth));
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   181
        end;
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   182
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   183
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   184
KillsClan:= 0;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   185
DamageGiven:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   186
DamageClan:= 0;
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   187
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   188
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   189
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   190
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   191
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   192
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   193
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   194
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   195
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   196
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   197
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   198
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   199
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   200
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   201
    mskcnt: Longword;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   202
    maxTeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   203
    maxTeamKillsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   204
    maxTurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   205
    maxTurnSkipsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   206
    maxTeamDamage : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   207
    maxTeamDamageName : shortstring;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   208
begin
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   209
msd:= 0; msdhh:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   210
msk:= 0; mskhh:= nil;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   211
mskcnt:= 0;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   212
maxTeamKills := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   213
maxTurnSkips := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   214
maxTeamDamage := 0;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   215
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   216
for t:= 0 to Pred(TeamsCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   217
    with TeamsArray[t]^ do
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   218
    begin
3381
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   219
        if not ExtDriven then
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   220
            SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   221
        for i:= 0 to cMaxHHIndex do begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   222
            if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   223
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   224
                msdhh:= @Hedgehogs[i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   225
                msd:= Hedgehogs[i].stats.MaxStepDamageGiven
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   226
                end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   227
            if Hedgehogs[i].stats.MaxStepKills >= msk then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   228
                if Hedgehogs[i].stats.MaxStepKills = msk then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   229
                    inc(mskcnt)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   230
                else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   231
                    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   232
                    mskcnt:= 1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   233
                    mskhh:= @Hedgehogs[i];
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   234
                    msk:= Hedgehogs[i].stats.MaxStepKills
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
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   237
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   238
        { send player stats for winner teams }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   239
        if Clan^.ClanHealth > 0 then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   240
            SendStat(siPlayerKills, inttostr(Clan^.Color) + ' ' +
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   241
                inttostr(stats.Kills) + ' ' + TeamName);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   242
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   243
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   244
        { determine maximum values of TeamKills, TurnSkips, TeamDamage }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   245
        if stats.TeamKills > maxTeamKills then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   246
            maxTeamKills := stats.TeamKills;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   247
            maxTeamKillsName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   248
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   249
        if stats.TurnSkips > maxTurnSkips then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   250
            maxTurnSkips := stats.TurnSkips;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   251
            maxTurnSkipsName := TeamName;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   252
        end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   253
        if stats.TeamDamage > maxTeamDamage then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   254
            maxTeamDamage := stats.TeamDamage;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   255
            maxTeamDamageName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   256
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   257
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   258
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   259
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   260
{ now send player stats for loser teams }
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   261
for t:= 0 to Pred(TeamsCount) do begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   262
    with TeamsArray[t]^ do begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   263
        if Clan^.ClanHealth = 0 then begin
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   264
            SendStat(siPlayerKills, inttostr(Clan^.Color) + ' ' +
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   265
                inttostr(stats.Kills) + ' ' + TeamName);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   266
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   267
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   268
end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   269
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   270
if msdhh <> nil then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   271
    SendStat(siMaxStepDamage, inttostr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   272
if mskcnt = 1 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   273
    SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   274
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   275
if maxTeamKills > 1 then
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   276
    SendStat(siMaxTeamKills, inttostr(maxTeamKills) + ' ' + maxTeamKillsName);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   277
if maxTurnSkips > 2 then
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   278
    SendStat(siMaxTurnSkips, inttostr(maxTurnSkips) + ' ' + maxTurnSkipsName);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   279
if maxTeamDamage > 30 then
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   280
    SendStat(siMaxTeamDamage, inttostr(maxTeamDamage) + ' ' + maxTeamDamageName);
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   281
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   282
if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs));
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   283
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   284
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   285
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   286
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   287
    TotalRounds:= -1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   288
    FinishedTurnsTotal:= -1;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   289
end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3381
diff changeset
   290
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   291
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   292
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   293
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   294
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   295
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   296
end.