equal
deleted
inserted
replaced
32 MaxStepDamageGiven, |
32 MaxStepDamageGiven, |
33 MaxStepKills: Longword; |
33 MaxStepKills: Longword; |
34 FinishedTurns: Longword; |
34 FinishedTurns: Longword; |
35 end; |
35 end; |
36 |
36 |
|
37 var TotalRounds: LongInt; |
|
38 FinishedTurnsTotal: LongInt; |
|
39 |
|
40 procedure init_uStats; |
|
41 procedure free_uStats; |
|
42 |
37 procedure AmmoUsed(am: TAmmoType); |
43 procedure AmmoUsed(am: TAmmoType); |
38 procedure HedgehogDamaged(Gear: PGear); |
44 procedure HedgehogDamaged(Gear: PGear); |
39 procedure Skipped; |
45 procedure Skipped; |
40 procedure TurnReaction; |
46 procedure TurnReaction; |
41 procedure SendStats; |
47 procedure SendStats; |
42 |
|
43 var |
|
44 TotalRounds: LongInt = -1; |
|
45 FinishedTurnsTotal: LongInt = -1; |
|
46 |
48 |
47 implementation |
49 implementation |
48 uses uTeams, uSound, uMisc, uLocale, uWorld; |
50 uses uTeams, uSound, uMisc, uLocale, uWorld; |
49 var DamageGiven : Longword = 0; |
51 var DamageGiven : Longword = 0; |
50 DamageClan : Longword = 0; |
52 DamageClan : Longword = 0; |
215 SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')'); |
217 SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')'); |
216 |
218 |
217 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs)); |
219 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs)); |
218 end; |
220 end; |
219 |
221 |
|
222 procedure init_uStats; |
|
223 begin |
|
224 TotalRounds:= -1; |
|
225 FinishedTurnsTotal:= -1; |
|
226 end; |
|
227 |
|
228 procedure free_uStats; |
|
229 begin |
|
230 |
|
231 end; |
|
232 |
220 end. |
233 end. |