hedgewars/uStats.pas
author unc0rr
Sun, 02 Dec 2012 01:25:11 +0400
changeset 8178 8bd087478b48
parent 7932 ebe1d112e439
child 7977 4987f6f83cdf
child 8717 6e1ccd678e8a
permissions -rw-r--r--
Fix QSettings problems: - Reopen file in ReadOnly mode if it was open in ReadWrite mode and is being read. This is needed for stupid QSettings which opens file in ReadWrite mode just to call readAll() on it. - Implement setSize(0)
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
6700
e04da46ee43c the most important commit of the year
koda
parents: 6580
diff changeset
     3
 * Copyright (c) 2004-2012 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;
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
    36
procedure hedgehogFlight(Gear: PGear; time: Longword);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    37
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    38
implementation
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
    39
uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole;
4359
83ef50815535 Move variables from uMisc to uVariables
unC0Rr
parents: 4357
diff changeset
    40
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    41
var DamageClan  : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    42
    DamageTotal : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    43
    KillsClan   : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    44
    Kills       : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    45
    KillsTotal  : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    46
    AmmoUsedCount : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    47
    AmmoDamagingUsed : boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    48
    SkippedTurns: LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    49
    isTurnSkipped: boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    50
    vpHurtSameClan: PVoicepack = nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    51
    vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    52
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    53
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    54
begin
4837
2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash.
unc0rr
parents: 4824
diff changeset
    55
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
    56
    vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    57
else
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
    58
    vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    59
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    60
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    61
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    62
inc(Attacker^.stats.StepDamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    63
inc(Attacker^.stats.DamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    64
inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    65
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    66
if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    67
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    68
if killed then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    69
    begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    70
    inc(Attacker^.stats.StepKills);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    71
    inc(Kills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    72
    inc(KillsTotal);
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^.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
    74
    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
    75
        begin
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.TeamKills);
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
    77
        inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
    78
    end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
    79
    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
    80
        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
    81
    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
    82
        inc(KillsClan);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    83
    end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
    84
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    85
inc(DamageTotal, Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    86
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    87
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    88
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    89
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    90
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    91
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    92
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    93
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    94
procedure TurnReaction;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
    95
var i, t: LongInt;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    96
begin
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    97
TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
    98
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
    99
inc(FinishedTurnsTotal);
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   100
if FinishedTurnsTotal <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   101
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   102
    inc(CurrentHedgehog^.stats.FinishedTurns);
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   103
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   104
    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
   105
        AddVoice(sndFirstBlood, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   106
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   107
    else if CurrentHedgehog^.stats.StepDamageRecv > 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   108
        begin
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   109
        AddVoice(sndStupid, PreviousTeam^.voicepack);
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   110
        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
   111
            AddCaption(Format(GetEventString(eidHurtSelf), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   112
        end
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   113
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   114
    else if DamageClan <> 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   115
        if DamageTotal > DamageClan then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   116
            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
   117
                AddVoice(sndNutter, CurrentTeam^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   118
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   119
                AddVoice(sndWatchIt, vpHurtSameClan)
2948
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
            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
   122
                AddVoice(sndSameTeam, vpHurtSameClan)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   123
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   124
                AddVoice(sndTraitor, vpHurtSameClan)
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   125
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   126
    else if CurrentHedgehog^.stats.StepDamageGiven <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   127
        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
   128
            AddVoice(sndEnemyDown, CurrentTeam^.voicepack)
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(sndRegret, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   131
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   132
    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
   133
        AddVoice(sndMissed, PreviousTeam^.voicepack)
6290
c6245ed6cbc0 Some improvements to the parser
unc0rr
parents: 6014
diff changeset
   134
    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
   135
        begin end// nothing ?
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   136
    else if isTurnSkipped then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   137
        begin
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   138
        AddVoice(sndBoring, PreviousTeam^.voicepack);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   139
        AddCaption(Format(GetEventString(eidTurnSkipped), CurrentHedgehog^.Name), cWhiteColor, capgrpMessage);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   140
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   141
    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
   142
        AddVoice(sndCoward, PreviousTeam^.voicepack);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   143
    end;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   144
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   145
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   146
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   147
    with TeamsArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   148
        for i:= 0 to cMaxHHIndex do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   149
            with Hedgehogs[i].stats do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   150
                begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   151
                inc(DamageRecv, StepDamageRecv);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   152
                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
   153
                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
   154
                    MaxStepDamageRecv:= StepDamageRecv;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   155
                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
   156
                    MaxStepDamageGiven:= StepDamageGiven;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   157
                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
   158
                    MaxStepKills:= StepKills;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   159
                StepKills:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   160
                StepDamageRecv:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   161
                StepDamageGiven:= 0
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   162
                end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   163
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   164
for t:= 0 to Pred(ClansCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   165
    with ClansArray[t]^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   166
        begin
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   167
        SendStat(siClanHealth, IntToStr(Color) + ' ' + IntToStr(ClanHealth));
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   168
        end;
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   169
867
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   170
Kills:= 0;
dc7901b1120e - Use more sounds
unc0rr
parents: 866
diff changeset
   171
KillsClan:= 0;
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   172
DamageClan:= 0;
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   173
AmmoUsedCount:= 0;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   174
AmmoDamagingUsed:= false;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   175
isTurnSkipped:= false
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   176
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   177
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   178
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   179
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   180
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   181
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   182
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   183
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   184
procedure hedgehogFlight(Gear: PGear; time: Longword);
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   185
begin
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   186
if time > 4000 then
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   187
    begin
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   188
    WriteLnToConsole('FLIGHT');
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   189
    WriteLnToConsole(Gear^.Hedgehog^.Team^.TeamName);
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   190
    WriteLnToConsole(inttostr(time));
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   191
    WriteLnToConsole( '');
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   192
    end
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   193
end;
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   194
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   195
procedure SendStats;
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   196
var i, t: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   197
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   198
    mskcnt: Longword;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   199
    maxTeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   200
    maxTeamKillsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   201
    maxTurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   202
    maxTurnSkipsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   203
    maxTeamDamage : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   204
    maxTeamDamageName : shortstring;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   205
    winnersClan : PClan;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   206
begin
858
5005a485f103 Repair round statistics
unc0rr
parents: 831
diff changeset
   207
msd:= 0; msdhh:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   208
msk:= 0; mskhh:= nil;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   209
mskcnt:= 0;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   210
maxTeamKills := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   211
maxTurnSkips := 0;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   212
maxTeamDamage := 0;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   213
winnersClan:= nil;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   214
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   215
for t:= 0 to Pred(TeamsCount) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   216
    with TeamsArray[t]^ do
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   217
    begin
3381
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   218
        if not ExtDriven then
f8800c44b3de Engine:
smxx
parents: 3038
diff changeset
   219
            SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   220
        for i:= 0 to cMaxHHIndex do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   221
            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 }
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   239
        if Clan^.ClanHealth > 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   240
            begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   241
            winnersClan:= Clan;
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   242
            SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   243
                IntToStr(stats.Kills) + ' ' + TeamName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   244
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   245
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   246
        { determine maximum values of TeamKills, TurnSkips, TeamDamage }
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   247
        if stats.TeamKills > maxTeamKills then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   248
            begin
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   249
            maxTeamKills := stats.TeamKills;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   250
            maxTeamKillsName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   251
        end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   252
        if stats.TurnSkips > maxTurnSkips then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   253
            begin
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   254
            maxTurnSkips := stats.TurnSkips;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   255
            maxTurnSkipsName := TeamName;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   256
        end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   257
        if stats.TeamDamage > maxTeamDamage then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   258
            begin
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   259
            maxTeamDamage := stats.TeamDamage;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   260
            maxTeamDamageName := TeamName;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   261
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   262
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   263
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   264
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   265
{ now send player stats for loser teams }
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   266
for t:= 0 to Pred(TeamsCount) do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   267
    begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   268
    with TeamsArray[t]^ do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   269
        begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   270
        if Clan^.ClanHealth = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   271
            begin
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   272
            SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   273
                IntToStr(stats.Kills) + ' ' + TeamName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   274
        end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   275
    end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   276
end;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   277
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   278
if msdhh <> nil then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   279
    SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   280
if mskcnt = 1 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   281
    SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   282
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   283
if maxTeamKills > 1 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   284
    SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   285
if maxTurnSkips > 2 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   286
    SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   287
if maxTeamDamage > 30 then
4374
bcefeeabaa33 Move some stuff from uMisc to uUtils
unC0Rr
parents: 4370
diff changeset
   288
    SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   289
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   290
if KilledHHs > 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   291
    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
   292
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   293
// now to console
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   294
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
   295
    begin
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   296
    WriteLnToConsole('WINNERS');
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   297
    for t:= 0 to winnersClan^.TeamsNumber - 1 do
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   298
        WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   299
    end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   300
else
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   301
    WriteLnToConsole('DRAW');
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   302
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   303
WriteLnToConsole('');
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   304
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   305
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   306
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   307
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   308
    TotalRounds:= -1;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   309
    FinishedTurnsTotal:= -1;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   310
end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3381
diff changeset
   311
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   312
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   313
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   314
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   315
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   316
end.