equal
deleted
inserted
replaced
35 end; |
35 end; |
36 |
36 |
37 var TotalRounds: LongInt; |
37 var TotalRounds: LongInt; |
38 FinishedTurnsTotal: LongInt; |
38 FinishedTurnsTotal: LongInt; |
39 |
39 |
40 procedure init_uStats; |
40 procedure initModule; |
41 procedure free_uStats; |
41 procedure freeModule; |
42 |
42 |
43 procedure AmmoUsed(am: TAmmoType); |
43 procedure AmmoUsed(am: TAmmoType); |
44 procedure HedgehogDamaged(Gear: PGear); |
44 procedure HedgehogDamaged(Gear: PGear); |
45 procedure Skipped; |
45 procedure Skipped; |
46 procedure TurnReaction; |
46 procedure TurnReaction; |
217 SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')'); |
217 SendStat(siMaxStepKills, inttostr(msk) + ' ' + mskhh^.Name + ' (' + mskhh^.Team^.TeamName + ')'); |
218 |
218 |
219 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs)); |
219 if KilledHHs > 0 then SendStat(siKilledHHs, inttostr(KilledHHs)); |
220 end; |
220 end; |
221 |
221 |
222 procedure init_uStats; |
222 procedure initModule; |
223 begin |
223 begin |
224 TotalRounds:= -1; |
224 TotalRounds:= -1; |
225 FinishedTurnsTotal:= -1; |
225 FinishedTurnsTotal:= -1; |
226 end; |
226 end; |
227 |
227 |
228 procedure free_uStats; |
228 procedure freeModule; |
229 begin |
229 begin |
230 |
230 |
231 end; |
231 end; |
232 |
232 |
233 end. |
233 end. |