hedgewars/uStats.pas
author nemo
Sat, 01 Mar 2014 14:52:36 -0500
changeset 10171 00f41ff0bf2d
parent 10127 7f29a65aa1e4
child 11046 47a8c19ecb60
permissions -rw-r--r--
Script might well override a static map, but can't risk it not doing it, and preview completely failing. Better to just not try it for static maps. Some script cfg might help. Could also avoid unnnecessary preview regenerations even if the script was doing nothing at all.
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
9998
736015b847e3 update copyright to 2014
sheepluva
parents: 9411
diff changeset
     3
 * Copyright (c) 2004-2014 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
10108
c68cf030eded update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents: 10105
diff changeset
    16
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
814
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;
9180
d19c09670ec8 changed variable and function name
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9174
diff changeset
    27
    SendHealthStatsOn : boolean = true;
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
    28
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    29
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    30
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    31
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    32
procedure AmmoUsed(am: TAmmoType);
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    33
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    34
procedure Skipped;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    35
procedure TurnReaction;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    36
procedure SendStats;
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
    37
procedure hedgehogFlight(Gear: PGear; time: Longword);
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
    38
procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    39
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    40
implementation
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
    41
uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;
4359
83ef50815535 Move variables from uMisc to uVariables
unC0Rr
parents: 4357
diff changeset
    42
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    43
var DamageClan  : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    44
    DamageTotal : Longword = 0;
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
    45
    DamageTurn  : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    46
    KillsClan   : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    47
    Kills       : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    48
    KillsTotal  : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    49
    AmmoUsedCount : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    50
    AmmoDamagingUsed : boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    51
    SkippedTurns: LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    52
    isTurnSkipped: boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    53
    vpHurtSameClan: PVoicepack = nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    54
    vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    55
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    56
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    57
begin
4837
2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash.
unc0rr
parents: 4824
diff changeset
    58
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
    59
    vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    60
else
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
    61
    vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    62
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    63
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    64
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    65
inc(Attacker^.stats.StepDamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    66
inc(Attacker^.stats.DamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    67
inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    68
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    69
if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    70
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    71
if killed then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    72
    begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    73
    inc(Attacker^.stats.StepKills);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    74
    inc(Kills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    75
    inc(KillsTotal);
5142
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.Kills);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    77
    if (Attacker^.Team^.TeamName = Gear^.Hedgehog^.Team^.TeamName) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    78
        begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    79
        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
    80
        inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    81
    end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    82
    if Gear = Attacker^.Gear then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    83
        inc(Attacker^.Team^.stats.Suicides);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    84
    if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    85
        inc(KillsClan);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    86
    end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    87
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
    88
inc(DamageTotal, Damage);
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
    89
inc(DamageTurn, Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    90
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    91
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    92
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    93
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    94
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    95
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    96
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    97
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    98
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
    99
var i, t: LongInt;
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   100
    s: ansistring;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   101
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   102
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   103
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   104
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   105
if FinishedTurnsTotal <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   106
    begin
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   107
    s:= ansistring(CurrentHedgehog^.Name);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   108
    inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   109
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   110
    if (CurrentHedgehog^.stats.DamageGiven = DamageTotal) and (DamageTotal > 0) then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   111
        AddVoice(sndFirstBlood, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   112
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   113
    else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   114
        begin
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   115
        AddVoice(sndStupid, PreviousTeam^.voicepack);
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   116
        if CurrentHedgehog^.stats.DamageGiven = CurrentHedgehog^.stats.StepDamageRecv then
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   117
            AddCaption(FormatA(GetEventString(eidHurtSelf), s), cWhiteColor, capgrpMessage);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   118
        end
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   119
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   120
    else if DamageClan <> 0 then
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
   121
        if DamageTurn > DamageClan then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   122
            if random(2) = 0 then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   123
                AddVoice(sndNutter, CurrentTeam^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   124
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   125
                AddVoice(sndWatchIt, vpHurtSameClan)
2948
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
            if random(2) = 0 then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   128
                AddVoice(sndSameTeam, vpHurtSameClan)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   129
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   130
                AddVoice(sndTraitor, vpHurtSameClan)
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   131
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   132
    else if CurrentHedgehog^.stats.StepDamageGiven <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   133
        if Kills > 0 then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   134
            AddVoice(sndEnemyDown, CurrentTeam^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   135
        else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   136
            AddVoice(sndRegret, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   137
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   138
    else if AmmoDamagingUsed then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   139
        AddVoice(sndMissed, PreviousTeam^.voicepack)
6290
c6245ed6cbc0 Some improvements to the parser
unc0rr
parents: 6014
diff changeset
   140
    else if (AmmoUsedCount > 0) and (not isTurnSkipped) then
6453
11c578d30bd3 Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents: 6290
diff changeset
   141
        begin end// nothing ?
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   142
    else if isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   143
        begin
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   144
        AddVoice(sndBoring, PreviousTeam^.voicepack);
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   145
        AddCaption(FormatA(GetEventString(eidTurnSkipped), s), cWhiteColor, capgrpMessage);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   146
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   147
    else if not PlacingHogs then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   148
        AddVoice(sndCoward, PreviousTeam^.voicepack);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   149
    end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   150
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   151
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   152
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
   153
    with TeamsArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   154
        for i:= 0 to cMaxHHIndex do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   155
            with Hedgehogs[i].stats do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   156
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   157
                inc(DamageRecv, StepDamageRecv);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   158
                inc(DamageGiven, StepDamageGiven);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   159
                if StepDamageRecv > MaxStepDamageRecv then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   160
                    MaxStepDamageRecv:= StepDamageRecv;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   161
                if StepDamageGiven > MaxStepDamageGiven then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   162
                    MaxStepDamageGiven:= StepDamageGiven;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   163
                if StepKills > MaxStepKills then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   164
                    MaxStepKills:= StepKills;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   165
                StepKills:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   166
                StepDamageRecv:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   167
                StepDamageGiven:= 0
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   168
                end;
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   169
9180
d19c09670ec8 changed variable and function name
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9174
diff changeset
   170
if SendHealthStatsOn then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   171
    for t:= 0 to Pred(ClansCount) do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   172
        with ClansArray[t]^ do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   173
            begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   174
            SendStat(siClanHealth, IntToStr(Color) + ' ' + IntToStr(ClanHealth));
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   175
            end;
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   176
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   177
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   178
KillsClan:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   179
DamageClan:= 0;
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
   180
DamageTurn:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   181
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   182
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   183
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   184
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   185
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   186
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   187
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   188
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   189
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   190
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   191
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   192
procedure hedgehogFlight(Gear: PGear; time: Longword);
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   193
begin
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   194
if time > 4000 then
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   195
    begin
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   196
    WriteLnToConsole('FLIGHT');
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   197
    WriteLnToConsole(Gear^.Hedgehog^.Team^.TeamName);
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   198
    WriteLnToConsole(inttostr(time));
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   199
    WriteLnToConsole( '');
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   200
    end
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   201
end;
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   202
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   203
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   204
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   205
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   206
    mskcnt: Longword;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   207
    maxTeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   208
    maxTeamKillsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   209
    maxTurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   210
    maxTurnSkipsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   211
    maxTeamDamage : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   212
    maxTeamDamageName : shortstring;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   213
    winnersClan : PClan;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   214
begin
9180
d19c09670ec8 changed variable and function name
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9174
diff changeset
   215
if SendHealthStatsOn then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   216
    msd:= 0; msdhh:= nil;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   217
    msk:= 0; mskhh:= nil;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   218
    mskcnt:= 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   219
    maxTeamKills := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   220
    maxTurnSkips := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   221
    maxTeamDamage := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   222
    winnersClan:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   223
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   224
    for t:= 0 to Pred(TeamsCount) do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   225
        with TeamsArray[t]^ do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   226
        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   227
            if not ExtDriven then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   228
                SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   229
            for i:= 0 to cMaxHHIndex do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   230
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   231
                if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   232
                    begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   233
                    msdhh:= @Hedgehogs[i];
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   234
                    msd:= Hedgehogs[i].stats.MaxStepDamageGiven
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   235
                    end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   236
                if Hedgehogs[i].stats.MaxStepKills >= msk then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   237
                    if Hedgehogs[i].stats.MaxStepKills = msk then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   238
                        inc(mskcnt)
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   239
                    else
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   240
                        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   241
                        mskcnt:= 1;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   242
                        mskhh:= @Hedgehogs[i];
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   243
                        msk:= Hedgehogs[i].stats.MaxStepKills
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   244
                        end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   245
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   246
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   247
            { send player stats for winner teams }
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   248
            if Clan^.ClanHealth > 0 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   249
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   250
                winnersClan:= Clan;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   251
                SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   252
                    IntToStr(stats.Kills) + ' ' + TeamName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   253
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   254
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   255
            { determine maximum values of TeamKills, TurnSkips, TeamDamage }
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   256
            if stats.TeamKills > maxTeamKills then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   257
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   258
                maxTeamKills := stats.TeamKills;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   259
                maxTeamKillsName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   260
            end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   261
            if stats.TurnSkips > maxTurnSkips then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   262
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   263
                maxTurnSkips := stats.TurnSkips;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   264
                maxTurnSkipsName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   265
            end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   266
            if stats.TeamDamage > maxTeamDamage then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   267
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   268
                maxTeamDamage := stats.TeamDamage;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   269
                maxTeamDamageName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   270
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   271
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   272
        end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   273
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   274
    { now send player stats for loser teams }
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   275
    for t:= 0 to Pred(TeamsCount) do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   276
        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   277
        with TeamsArray[t]^ do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   278
            begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   279
            if Clan^.ClanHealth = 0 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   280
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   281
                SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   282
                    IntToStr(stats.Kills) + ' ' + TeamName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   283
            end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   284
        end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   285
    end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   286
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   287
    if msdhh <> nil then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   288
        SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   289
    if mskcnt = 1 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   290
        SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   291
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   292
    if maxTeamKills > 1 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   293
        SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   294
    if maxTurnSkips > 2 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   295
        SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   296
    if maxTeamDamage > 30 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   297
        SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   298
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   299
    if KilledHHs > 0 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   300
        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
   301
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   302
    // now to console
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   303
    if winnersClan <> nil then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   304
        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   305
        WriteLnToConsole('WINNERS');
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   306
        WriteLnToConsole(inttostr(winnersClan^.TeamsNumber));
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   307
        for t:= 0 to winnersClan^.TeamsNumber - 1 do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   308
            WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   309
        end
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   310
    else
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   311
        WriteLnToConsole('DRAW');
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   312
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   313
    ScriptCall('onAchievementsDeclaration');
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   314
end;
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   315
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
   316
procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   317
begin
9411
d95ac9992529 Fix script flaw in detection of best team when sending achievement info
unc0rr
parents: 9409
diff changeset
   318
if (length(id) = 0) or (length(teamname) = 0) or (length(location) = 0) then exit;
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   319
    WriteLnToConsole('ACHIEVEMENT');
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   320
    WriteLnToConsole(id);
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   321
    WriteLnToConsole(teamname);
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
   322
    WriteLnToConsole(location);
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   323
    WriteLnToConsole(inttostr(value));
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   324
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   325
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   326
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   327
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   328
    TotalRounds:= -1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   329
    FinishedTurnsTotal:= -1;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   330
end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3381
diff changeset
   331
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   332
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   333
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   334
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   335
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   336
end.