equal
deleted
inserted
replaced
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uStats; |
21 unit uStats; |
22 interface |
22 interface |
23 uses uGears, uConsts, uTypes; |
23 uses uGears, uConsts, uTypes; |
24 |
|
25 type TStatistics = record |
|
26 DamageRecv, |
|
27 DamageGiven: Longword; |
|
28 StepDamageRecv, |
|
29 StepDamageGiven, |
|
30 StepKills: Longword; |
|
31 MaxStepDamageRecv, |
|
32 MaxStepDamageGiven, |
|
33 MaxStepKills: Longword; |
|
34 FinishedTurns: Longword; |
|
35 end; |
|
36 |
|
37 type TTeamStats = record |
|
38 Kills : Longword; |
|
39 AIKills : Longword; |
|
40 TeamKills : Longword; |
|
41 TurnSkips : Longword; |
|
42 TeamDamage : Longword; |
|
43 end; |
|
44 |
24 |
45 var TotalRounds: LongInt; |
25 var TotalRounds: LongInt; |
46 FinishedTurnsTotal: LongInt; |
26 FinishedTurnsTotal: LongInt; |
47 |
27 |
48 procedure initModule; |
28 procedure initModule; |