hedgewars/uStats.pas
author Wuzzy <Wuzzy2@mail.ru>
Sat, 27 Oct 2018 15:55:19 +0200
changeset 14019 f09276eb0c27
parent 14017 7b66a2e9b368
child 14020 544b32038664
permissions -rw-r--r--
Add 7 new taunts New sounds: * Bugger, Drat: Hog damages self only * Thisoneismine: Crate drop * Whatthe: Something is going to blow up close to hog * Solong, Ohdear: Death * Gonnagetyou: Vow for revenge Fallback code is added for existing voicepacks Thisoneismine is not used in Robot because the text in this sound file is "Threat detected.", which does not make sense.
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
11046
47a8c19ecb60 more copyright fixes
sheepluva
parents: 10127
diff changeset
     3
 * Copyright (c) 2004-2015 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
13656
56a925256039 Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents: 13647
diff changeset
    25
var TotalRoundsPre: LongInt; // Helper variable for calculating start of Sudden Death and more. Starts at -1 and is incremented on the turn BEFORE the turn which marks the start of the next round. Always -1 while in hog placing phase
56a925256039 Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents: 13647
diff changeset
    26
    TotalRoundsReal: LongInt; // Total number of rounds played (-1 if not started or in hog placing phase). Exported to Lua as 'TotalRounds'
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    27
    FinishedTurnsTotal: LongInt;
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
    28
    SendGameResultOn : boolean = true;
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
    29
    SendRankingStatsOn : boolean = true;
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
    30
    SendAchievementsStatsOn : boolean = true;
9180
d19c09670ec8 changed variable and function name
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9174
diff changeset
    31
    SendHealthStatsOn : boolean = true;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
    32
    ClanDeathLog : PClanDeathLogEntry;
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
    33
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    34
procedure initModule;
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
    35
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
    36
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
    37
procedure AmmoUsed(am: TAmmoType);
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    38
procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    39
procedure HedgehogSacrificed(Hedgehog: PHedgehog);
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    40
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
12573
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
    41
procedure TargetHit;
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
    42
procedure Skipped;
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
    43
procedure TurnStats;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    44
procedure TurnReaction;
13766
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
    45
procedure TurnStatsReset;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    46
procedure SendStats;
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
    47
procedure hedgehogFlight(Gear: PGear; time: Longword);
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
    48
procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
    49
procedure startGhostPoints(n: LongInt);
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
    50
procedure dumpPoint(x, y: LongInt);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    51
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    52
implementation
11537
bf86c6cb9341 Bye-bye TryDo
unc0rr
parents: 11046
diff changeset
    53
uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript;
4359
83ef50815535 Move variables from uMisc to uVariables
unC0Rr
parents: 4357
diff changeset
    54
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
    55
var DamageClan  : Longword = 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    56
    DamageTotal : Longword = 0;
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
    57
    DamageTurn  : Longword = 0;
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    58
    PoisonTurn  : Longword = 0; // Poisoned enemies per turn
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    59
    PoisonClan  : Longword = 0; // Poisoned own clan members in turn
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    60
    PoisonTotal : Longword = 0; // Poisoned hogs in whole round
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    61
    KillsClan   : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    62
    Kills       : LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    63
    KillsTotal  : LongWord = 0;
12573
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
    64
    HitTargets  : LongWord = 0; // Target (gtTarget) hits per turn
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    65
    AmmoUsedCount : Longword = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    66
    AmmoDamagingUsed : boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    67
    SkippedTurns: LongWord = 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    68
    isTurnSkipped: boolean = false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    69
    vpHurtSameClan: PVoicepack = nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
    70
    vpHurtEnemy: PVoicepack = nil;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    71
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    72
procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    73
begin
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    74
    if Attacker^.Team^.Clan = Gear^.HEdgehog^.Team^.Clan then
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    75
        begin
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    76
        vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack;
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    77
        inc(PoisonClan)
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    78
        end
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    79
    else
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    80
        begin
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    81
        vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    82
        inc(PoisonTurn)
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    83
        end;
12295
4ce7cb441c75 Call hedgehogs stupid for poisoning themselves
Wuzzy <almikes@aol.com>
parents: 12181
diff changeset
    84
    Gear^.Hedgehog^.stats.StepPoisoned:= true;
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    85
    inc(PoisonTotal)
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    86
end;
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
    87
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    88
procedure HedgehogSacrificed(Hedgehog: PHedgehog);
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    89
begin
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    90
    Hedgehog^.stats.Sacrificed:= true
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    91
end;
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
    92
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
    93
procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
    94
begin
4837
2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash.
unc0rr
parents: 4824
diff changeset
    95
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
    96
    vpHurtSameClan:= CurrentHedgehog^.Team^.voicepack
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    97
else
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4361
diff changeset
    98
    vpHurtEnemy:= Gear^.Hedgehog^.Team^.voicepack;
1678
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
    99
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   100
//////////////////////////
c8deca7b1e3c Fix voicepacks
unc0rr
parents: 1669
diff changeset
   101
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   102
inc(Attacker^.stats.StepDamageGiven, Damage);
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   103
inc(Gear^.Hedgehog^.stats.StepDamageRecv, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   104
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
   105
if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(DamageClan, Damage);
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   106
5202
45a16280d68d Some improvements on stats subsystem
unc0rr
parents: 5142
diff changeset
   107
if killed then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   108
    begin
12348
6ff01dc1ffe2 Fix Traitor taunt being played when hog w/ heResurrectable drowns w/o damage
Wuzzy <almikes@aol.com>
parents: 12337
diff changeset
   109
    Gear^.Hedgehog^.stats.StepDied:= true;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   110
    inc(Attacker^.stats.StepKills);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   111
    inc(Kills);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   112
    inc(KillsTotal);
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   113
    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
   114
    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
   115
        begin
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   116
        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
   117
        inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   118
    end;
6580
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents: 6453
diff changeset
   119
    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
   120
        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
   121
    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
   122
        inc(KillsClan);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   123
    end;
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   124
8717
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
   125
inc(DamageTotal, Damage);
6e1ccd678e8a this should ensure those other voices play a bit more often.
nemo
parents: 7932
diff changeset
   126
inc(DamageTurn, Damage)
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   127
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   128
12573
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   129
procedure TargetHit();
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   130
begin
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   131
   inc(HitTargets)
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   132
end;
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   133
871
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   134
procedure Skipped;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   135
begin
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   136
inc(SkippedTurns);
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   137
isTurnSkipped:= true
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   138
end;
f1bf00b7fd5a - Fix sounds when the turn is skipped
unc0rr
parents: 870
diff changeset
   139
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   140
procedure TurnStats;
874
964c0d5b3604 - Fix warning
unc0rr
parents: 873
diff changeset
   141
var i, t: LongInt;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   142
    c: Longword;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   143
    newEntry: PClanDeathLogEntry;
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   144
begin
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   145
inc(FinishedTurnsTotal);
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   146
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   147
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   148
    with TeamsArray[t]^ do
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   149
        for i:= 0 to cMaxHHIndex do
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   150
            with Hedgehogs[i].stats do
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   151
                begin
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   152
                inc(DamageRecv, StepDamageRecv);
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   153
                inc(DamageGiven, StepDamageGiven);
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   154
                if StepDamageRecv > MaxStepDamageRecv then
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   155
                    MaxStepDamageRecv:= StepDamageRecv;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   156
                if StepDamageGiven > MaxStepDamageGiven then
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   157
                    MaxStepDamageGiven:= StepDamageGiven;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   158
                if StepKills > MaxStepKills then
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   159
                    MaxStepKills:= StepKills;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   160
                end;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   161
13763
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   162
// Write into the death log which clans died in this turn,
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   163
// important for final rankings.
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   164
c:= 0;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   165
newEntry:= nil;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   166
for t:= 0 to Pred(ClansCount) do
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   167
    with ClansArray[t]^ do
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   168
        begin
13763
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   169
        if (ClanHealth = 0) and (ClansArray[t]^.DeathLogged = false) then
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   170
            begin
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   171
            if c = 0 then
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   172
                begin
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   173
                new(newEntry);
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   174
                newEntry^.Turn := FinishedTurnsTotal;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   175
                newEntry^.NextEntry := nil;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   176
                end;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   177
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   178
            newEntry^.KilledClans[c]:= ClansArray[t];
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   179
            inc(c);
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   180
            newEntry^.KilledClansCount := c;
13763
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   181
            ClansArray[t]^.DeathLogged:= true;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   182
            end;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   183
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   184
        if SendHealthStatsOn then
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   185
            SendStat(siClanHealth, IntToStr(Color) + ' ' + IntToStr(ClanHealth));
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   186
        end;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   187
if newEntry <> nil then
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   188
    begin
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   189
    if ClanDeathLog <> nil then
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   190
        begin
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   191
        newEntry^.NextEntry:= ClanDeathLog;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   192
        end;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   193
    ClanDeathLog:= newEntry;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   194
    end;
13760
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   195
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   196
end;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   197
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   198
procedure TurnReaction;
6908d1e65cdc Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents: 13656
diff changeset
   199
var killsCheck: LongInt;
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   200
    s: ansistring;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   201
begin
11537
bf86c6cb9341 Bye-bye TryDo
unc0rr
parents: 11046
diff changeset
   202
//TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
1054
80225c6af656 - Prepare for sudden death implementation
unc0rr
parents: 874
diff changeset
   203
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   204
if FinishedTurnsTotal <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   205
    begin
10127
7f29a65aa1e4 It compiles \o/
unc0rr
parents: 10116
diff changeset
   206
    s:= ansistring(CurrentHedgehog^.Name);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   207
    inc(CurrentHedgehog^.stats.FinishedTurns);
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   208
    // If the hog sacrificed (=kamikaze/piano) itself, this needs to be taken into accounts for the reactions later
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   209
    if (CurrentHedgehog^.stats.Sacrificed) then
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   210
        killsCheck:= 1
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   211
    else
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   212
        killsCheck:= 0;
870
dd418d9c18c5 Use more sounds
unc0rr
parents: 869
diff changeset
   213
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
   214
    // First blood (first damage, poison or kill)
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
   215
    if ((DamageTotal > 0) or (KillsTotal > 0) or (PoisonTotal > 0)) and ((CurrentHedgehog^.stats.DamageGiven = DamageTotal) and (CurrentHedgehog^.stats.StepKills = KillsTotal) and (PoisonTotal = PoisonTurn + PoisonClan)) then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   216
        AddVoice(sndFirstBlood, CurrentTeam^.voicepack)
815
82ff416301bd Use sounds 'stupid' and 'missed'
unc0rr
parents: 814
diff changeset
   217
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   218
    // Hog hurts, poisons or kills itself (except sacrifice)
12348
6ff01dc1ffe2 Fix Traitor taunt being played when hog w/ heResurrectable drowns w/o damage
Wuzzy <almikes@aol.com>
parents: 12337
diff changeset
   219
    else if (CurrentHedgehog^.stats.Sacrificed = false) and ((CurrentHedgehog^.stats.StepDamageRecv > 0) or (CurrentHedgehog^.stats.StepPoisoned) or (CurrentHedgehog^.stats.StepDied)) then
14019
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   220
        // Hurting itself only (not drowning)
14017
7b66a2e9b368 uStats: Fix DamageGiven being counted twice, fix self-damage msg never appearing
Wuzzy <Wuzzy2@mail.ru>
parents: 13883
diff changeset
   221
        if (CurrentHedgehog^.stats.StepDamageGiven = CurrentHedgehog^.stats.StepDamageRecv) and (CurrentHedgehog^.stats.StepDamageRecv >= 1) then
14019
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   222
            begin
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   223
            // Announcer message + random taunt
13647
3d14950641a4 Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents: 12923
diff changeset
   224
            AddCaption(FormatA(GetEventString(eidHurtSelf), s), capcolDefault, capgrpMessage);
14019
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   225
            if (CurrentHedgehog^.stats.StepDamageGiven <= CurrentHedgehog^.stats.StepDamageRecv) and (CurrentHedgehog^.stats.StepDamageRecv >= 1) then
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   226
                case random(3) of
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   227
                0: AddVoice(sndStupid, PreviousTeam^.voicepack);
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   228
                1: AddVoice(sndBugger, CurrentTeam^.voicepack);
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   229
                2: AddVoice(sndDrat, CurrentTeam^.voicepack);
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   230
                end;
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   231
            end
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   232
        // Hurt itself and others
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   233
        else
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   234
            AddVoice(sndStupid, PreviousTeam^.voicepack)
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   235
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   236
    // Hog hurts, poisons or kills own team/clan member. Sacrifice is taken into account
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   237
    else if (DamageClan <> 0) or (KillsClan > killsCheck) or (PoisonClan <> 0) then
12162
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   238
        if (DamageTurn > DamageClan) or (Kills > KillsClan) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   239
            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
   240
                AddVoice(sndNutter, CurrentTeam^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   241
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   242
                AddVoice(sndWatchIt, vpHurtSameClan)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   243
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   244
            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
   245
                AddVoice(sndSameTeam, vpHurtSameClan)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   246
            else
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   247
                AddVoice(sndTraitor, vpHurtSameClan)
5203
b77f28facca6 Better tracking of damage source and target when scoring a turn
unc0rr
parents: 5202
diff changeset
   248
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
   249
    // Hog hurts, kills or poisons enemy
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   250
    else if (CurrentHedgehog^.stats.StepDamageGiven <> 0) or (CurrentHedgehog^.stats.StepKills > killsCheck) or (PoisonTurn <> 0) then
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   251
        if Kills > killsCheck then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5203
diff changeset
   252
            AddVoice(sndEnemyDown, CurrentTeam^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   253
        else
14019
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   254
            if random(2) = 0 then
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   255
                AddVoice(sndRegret, vpHurtEnemy)
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   256
            else
f09276eb0c27 Add 7 new taunts
Wuzzy <Wuzzy2@mail.ru>
parents: 14017
diff changeset
   257
                AddVoice(sndGonnaGetYou, vpHurtEnemy)
1625
37aae47943ce Initial health graphic implementation
unc0rr
parents: 1070
diff changeset
   258
12162
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   259
    // Missed shot
12573
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   260
    // A miss is defined as a shot with a damaging weapon with 0 kills, 0 damage, 0 hogs poisoned and 0 targets hit
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   261
    else if AmmoDamagingUsed and (Kills <= killsCheck) and (PoisonTurn = 0) and (PoisonClan = 0) and (DamageTurn = 0) and (HitTargets = 0) then
12297
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   262
        // Chance to call hedgehog stupid if sacrificed for nothing
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   263
        if CurrentHedgehog^.stats.Sacrificed then
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   264
            if random(2) = 0 then
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   265
                AddVoice(sndMissed, PreviousTeam^.voicepack)
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   266
            else
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   267
                AddVoice(sndStupid, PreviousTeam^.voicepack)
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   268
        else
93434ab299a0 Take sacrifices into account for the “Stupid” taunt
Wuzzy <almikes@aol.com>
parents: 12296
diff changeset
   269
            AddVoice(sndMissed, PreviousTeam^.voicepack)
12162
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   270
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   271
    // Timeout
6290
c6245ed6cbc0 Some improvements to the parser
unc0rr
parents: 6014
diff changeset
   272
    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
   273
        begin end// nothing ?
12162
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   274
e837912ba85d Fix hedgehogs/ticker ignoring kills without damage (#149)
Wuzzy <almikes@aol.com>
parents: 12100
diff changeset
   275
    // Turn skipped
12100
e1bca1ebbad9 fix problem with pas2c build. please don't use "and not xyz", use "and (not xyz)"
sheepluva
parents: 11919
diff changeset
   276
    else if isTurnSkipped and (not PlacingHogs) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   277
        begin
11919
c9bad8a01185 Play countdown sounds for 4-1 remaining seconds and “boring” voice on timeout
Wuzzy <almikes@aol.com>
parents: 11574
diff changeset
   278
        AddVoice(sndCoward, PreviousTeam^.voicepack);
13647
3d14950641a4 Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents: 12923
diff changeset
   279
        AddCaption(FormatA(GetEventString(eidTurnSkipped), s), capcolDefault, capgrpMessage);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   280
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   281
    end;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   282
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   283
13766
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   284
procedure TurnStatsReset;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   285
var t, i: LongInt;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   286
begin
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   287
for t:= 0 to Pred(TeamsCount) do // send even on zero turn
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   288
    with TeamsArray[t]^ do
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   289
        for i:= 0 to cMaxHHIndex do
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   290
            with Hedgehogs[i].stats do
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   291
                begin
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   292
                StepKills:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   293
                StepDamageRecv:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   294
                StepDamageGiven:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   295
                StepPoisoned:= false;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   296
                StepDied:= false;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   297
                end;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   298
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   299
Kills:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   300
KillsClan:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   301
DamageClan:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   302
DamageTurn:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   303
HitTargets:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   304
PoisonClan:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   305
PoisonTurn:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   306
AmmoUsedCount:= 0;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   307
AmmoDamagingUsed:= false;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   308
isTurnSkipped:= false;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   309
end;
6fd56a26e8b8 Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents: 13763
diff changeset
   310
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   311
procedure AmmoUsed(am: TAmmoType);
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   312
begin
830
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   313
inc(AmmoUsedCount);
f07267032194 - Add statistics info for ammo used in step and whether it is damaging ammo
unc0rr
parents: 829
diff changeset
   314
AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   315
end;
1209eb768acf Use 'first blood' sound
unc0rr
parents: 815
diff changeset
   316
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   317
procedure hedgehogFlight(Gear: PGear; time: Longword);
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   318
begin
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   319
if time > 4000 then
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   320
    begin
7932
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   321
    WriteLnToConsole('FLIGHT');
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   322
    WriteLnToConsole(Gear^.Hedgehog^.Team^.TeamName);
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   323
    WriteLnToConsole(inttostr(time));
ebe1d112e439 remove mobile ifdefs, replace writeLn's for WriteLnToConsole
Xeli
parents: 7857
diff changeset
   324
    WriteLnToConsole( '');
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   325
    end
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   326
end;
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   327
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   328
procedure SendStats;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   329
var i, t, c: LongInt;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   330
    msd, msk: Longword; msdhh, mskhh: PHedgehog;
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   331
    mskcnt: Longword;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   332
    maxTeamKills : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   333
    maxTeamKillsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   334
    maxTurnSkips : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   335
    maxTurnSkipsName : shortstring;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   336
    maxTeamDamage : Longword;
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   337
    maxTeamDamageName : shortstring;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   338
    winnersClan : PClan;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   339
    deathEntry : PClanDeathLogEntry;
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   340
    currentRank: Longword;
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   341
begin
9180
d19c09670ec8 changed variable and function name
Periklis Ntanasis <pntanasis@gmail.com>
parents: 9174
diff changeset
   342
if SendHealthStatsOn then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   343
    msd:= 0; msdhh:= nil;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   344
    msk:= 0; mskhh:= nil;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   345
    mskcnt:= 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   346
    maxTeamKills := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   347
    maxTurnSkips := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   348
    maxTeamDamage := 0;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   349
    winnersClan:= nil;
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   350
    currentRank:= 0;
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   351
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   352
    for t:= 0 to Pred(TeamsCount) do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   353
        with TeamsArray[t]^ do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   354
        begin
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   355
            if (not ExtDriven) and SendRankingStatsOn then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   356
                SendStat(siTeamStats, GetTeamStatString(TeamsArray[t]));
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   357
            for i:= 0 to cMaxHHIndex do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   358
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   359
                if Hedgehogs[i].stats.MaxStepDamageGiven > msd then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   360
                    begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   361
                    msdhh:= @Hedgehogs[i];
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   362
                    msd:= Hedgehogs[i].stats.MaxStepDamageGiven
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   363
                    end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   364
                if Hedgehogs[i].stats.MaxStepKills >= msk then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   365
                    if Hedgehogs[i].stats.MaxStepKills = msk then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   366
                        inc(mskcnt)
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   367
                    else
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   368
                        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   369
                        mskcnt:= 1;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   370
                        mskhh:= @Hedgehogs[i];
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   371
                        msk:= Hedgehogs[i].stats.MaxStepKills
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   372
                        end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   373
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   374
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   375
            { Send player stats for winner clans/teams.
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   376
            The clan that survived is ranked 1st. }
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   377
            if Clan^.ClanHealth > 0 then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   378
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   379
                winnersClan:= Clan;
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   380
                if SendRankingStatsOn then
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   381
                    begin
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   382
                    currentRank:= 1;
13883
0ce8aad17c24 IFDEF out missing function with FIXME, revert pas2c change in 0ecf77e203c0 as suggested by unc0rr, another string annotation
nemo
parents: 13770
diff changeset
   383
                    SendStat(siTeamRank, _S'1');
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   384
                    SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   385
                        IntToStr(stats.Kills) + ' ' + TeamName);
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   386
                    end;
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   387
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   388
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   389
            { determine maximum values of TeamKills, TurnSkips, TeamDamage }
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   390
            if stats.TeamKills > maxTeamKills then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   391
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   392
                maxTeamKills := stats.TeamKills;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   393
                maxTeamKillsName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   394
            end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   395
            if stats.TurnSkips > maxTurnSkips then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   396
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   397
                maxTurnSkips := stats.TurnSkips;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   398
                maxTurnSkipsName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   399
            end;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   400
            if stats.TeamDamage > maxTeamDamage then
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   401
                begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   402
                maxTeamDamage := stats.TeamDamage;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   403
                maxTeamDamageName := TeamName;
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   404
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   405
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   406
        end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   407
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   408
    inc(currentRank);
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   409
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   410
    { Now send player stats for loser teams/clans.
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   411
    The losing clans are ranked in the reverse order they died.
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   412
    The clan that died last is ranked 2nd,
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   413
    the clan that died second to last is ranked 3rd,
13763
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   414
    and so on.
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   415
    Clans that died in the same turn share their rank.
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   416
    If a clan died multiple times in the match
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   417
    (e.g. due to resurrection), only the *latest* death of
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   418
    that clan counts (handled in gtResurrector).
b1177e9c9ee9 Fix player rankings getting confused if a clan was revived
Wuzzy <Wuzzy2@mail.ru>
parents: 13762
diff changeset
   419
    }
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   420
    deathEntry := ClanDeathLog;
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   421
    i:= 0;
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   422
    if SendRankingStatsOn then
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   423
        while (deathEntry <> nil) do
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   424
            begin
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   425
            for c:= 0 to Pred(deathEntry^.KilledClansCount) do
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   426
                if ((deathEntry^.KilledClans[c]^.ClanHealth) = 0) and (not deathEntry^.KilledClans[c]^.StatsHandled) then
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   427
                    begin
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   428
                    for t:= 0 to Pred(TeamsCount) do
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   429
                        if TeamsArray[t]^.Clan^.ClanIndex = deathEntry^.KilledClans[c]^.ClanIndex then
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   430
                            begin
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   431
                            SendStat(siTeamRank, IntToStr(currentRank));
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   432
                            SendStat(siPlayerKills, IntToStr(deathEntry^.killedClans[c]^.Color) + ' ' +
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   433
                                IntToStr(TeamsArray[t]^.stats.Kills) + ' ' + TeamsArray[t]^.TeamName);
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   434
                            end;
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   435
                    deathEntry^.KilledClans[c]^.StatsHandled:= true;
13770
3d2a7c563d8e Fix clan ranking counter advancing per-team instaed of per-clan in case of a tie
Wuzzy <Wuzzy2@mail.ru>
parents: 13766
diff changeset
   436
                    inc(i);
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   437
                    end;
13762
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   438
            if i > 0 then
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   439
                inc(currentRank, i);
f0cb47f0bfaf Fix player rankings on round draw: Clans that die in the same turn now have the same rank
Wuzzy <Wuzzy2@mail.ru>
parents: 13761
diff changeset
   440
            i:= 0;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   441
            deathEntry:= deathEntry^.NextEntry;
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   442
            end;
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   443
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   444
    // “Achievements” / Details part of stats screen
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   445
    if SendAchievementsStatsOn then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   446
        begin
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   447
        if msdhh <> nil then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   448
            SendStat(siMaxStepDamage, IntToStr(msd) + ' ' + msdhh^.Name + ' (' + msdhh^.Team^.TeamName + ')');
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   449
        if mskcnt = 1 then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   450
            SendStat(siMaxStepKills, IntToStr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')');
869
daddcd31ef34 - New statistics
unc0rr
parents: 867
diff changeset
   451
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   452
        if maxTeamKills > 1 then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   453
            SendStat(siMaxTeamKills, IntToStr(maxTeamKills) + ' ' + maxTeamKillsName);
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   454
        if maxTurnSkips > 2 then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   455
            SendStat(siMaxTurnSkips, IntToStr(maxTurnSkips) + ' ' + maxTurnSkipsName);
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   456
        if maxTeamDamage > 30 then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   457
            SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
3784
75aa91bea32b Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents: 3770
diff changeset
   458
12337
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   459
        if KilledHHs > 0 then
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   460
            SendStat(siKilledHHs, IntToStr(KilledHHs));
657a8d63c99d Lua API: SendAchevementsStatsOff, SendGameResultOff, SendRankingStatsOff
Wuzzy <almikes@aol.com>
parents: 12297
diff changeset
   461
        end;
5142
cb822f8d52ff Show winners in console in a special form so this information could be easily parsed
unc0rr
parents: 4976
diff changeset
   462
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   463
    // now to console
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   464
    if winnersClan <> nil then
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   465
        begin
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   466
        WriteLnToConsole('WINNERS');
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   467
        WriteLnToConsole(inttostr(winnersClan^.TeamsNumber));
9405
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   468
        for t:= 0 to winnersClan^.TeamsNumber - 1 do
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   469
            WriteLnToConsole(winnersClan^.Teams[t]^.TeamName);
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   470
        end
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   471
    else
efc5409a141d Fix indentation
unc0rr
parents: 9397
diff changeset
   472
        WriteLnToConsole('DRAW');
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   473
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   474
    ScriptCall('onAchievementsDeclaration');
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   475
end;
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 5638
diff changeset
   476
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
   477
procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
10015
4feced261c68 partial merge of the webgl branch
koda
parents: 9998 9521
diff changeset
   478
begin
9411
d95ac9992529 Fix script flaw in detection of best team when sending achievement info
unc0rr
parents: 9409
diff changeset
   479
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
   480
    WriteLnToConsole('ACHIEVEMENT');
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   481
    WriteLnToConsole(id);
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   482
    WriteLnToConsole(teamname);
9409
6564baf7dedf Store TrophyRace records in database
unc0rr
parents: 9405
diff changeset
   483
    WriteLnToConsole(location);
9397
7b7ee65f82ad Declare achievements in console statistics output
unc0rr
parents: 9180
diff changeset
   484
    WriteLnToConsole(inttostr(value));
814
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   485
end;
7fb4417b7bc1 Start implementing better statistics implementation (does nothing yet)
unc0rr
parents:
diff changeset
   486
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   487
procedure startGhostPoints(n: LongInt);
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   488
begin
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   489
    WriteLnToConsole('GHOST_POINTS');
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   490
    WriteLnToConsole(inttostr(n));
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   491
end;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   492
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   493
procedure dumpPoint(x, y: LongInt);
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   494
begin
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   495
    WriteLnToConsole(inttostr(x));
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   496
    WriteLnToConsole(inttostr(y));
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   497
end;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   498
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   499
procedure initModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   500
begin
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   501
    DamageClan  := 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   502
    DamageTotal := 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   503
    DamageTurn  := 0;
12181
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
   504
    PoisonClan  := 0;
29f1ea94488b Fix enemy saying “Missed” when poisoned w/o damage
Wuzzy <almikes@aol.com>
parents: 12162
diff changeset
   505
    PoisonTurn  := 0;
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   506
    KillsClan   := 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   507
    Kills       := 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   508
    KillsTotal  := 0;
12573
494d3e1c4810 Don't play “missed” taunt if a target has been hit
Wuzzy <almikes@aol.com>
parents: 12364
diff changeset
   509
    HitTargets  := 0;
11574
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   510
    AmmoUsedCount := 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   511
    AmmoDamagingUsed := false;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   512
    SkippedTurns:= 0;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   513
    isTurnSkipped:= false;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   514
    vpHurtSameClan:= nil;
294ce0fa65d0 Dump best time ghost on console
unc0rr
parents: 11537
diff changeset
   515
    vpHurtEnemy:= nil;
13656
56a925256039 Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents: 13647
diff changeset
   516
    TotalRoundsPre:= -1;
56a925256039 Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents: 13647
diff changeset
   517
    TotalRoundsReal:= -1;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2782
diff changeset
   518
    FinishedTurnsTotal:= -1;
13761
a0d6404a80a2 Rework rankings of losing clans: Rank them in the reverse order they died
Wuzzy <Wuzzy2@mail.ru>
parents: 13760
diff changeset
   519
    ClanDeathLog:= nil;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   520
end;
3697
d5b30d6373fc remove trailing spaces from end of line
koda
parents: 3381
diff changeset
   521
3038
4e48c276a468 In pascal unit is a namespace
unc0rr
parents: 2948
diff changeset
   522
procedure freeModule;
2716
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   523
begin
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   524
end;
b9ca1bfca24f complete the replacement of init/free wrappers for every unit
koda
parents: 2712
diff changeset
   525
2619
bc2786a00fb8 fix wrong ttf blending in ppc
koda
parents: 2143
diff changeset
   526
end.