hedgewars/uStats.pas
changeset 11537 bf86c6cb9341
parent 11046 47a8c19ecb60
child 11574 294ce0fa65d0
equal deleted inserted replaced
11536:d1cf1ff6cabb 11537:bf86c6cb9341
    36 procedure SendStats;
    36 procedure SendStats;
    37 procedure hedgehogFlight(Gear: PGear; time: Longword);
    37 procedure hedgehogFlight(Gear: PGear; time: Longword);
    38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
    38 procedure declareAchievement(id, teamname, location: shortstring; value: LongInt);
    39 
    39 
    40 implementation
    40 implementation
    41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;
    41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uMisc, uConsole, uScript;
    42 
    42 
    43 var DamageClan  : Longword = 0;
    43 var DamageClan  : Longword = 0;
    44     DamageTotal : Longword = 0;
    44     DamageTotal : Longword = 0;
    45     DamageTurn  : Longword = 0;
    45     DamageTurn  : Longword = 0;
    46     KillsClan   : LongWord = 0;
    46     KillsClan   : LongWord = 0;
    97 
    97 
    98 procedure TurnReaction;
    98 procedure TurnReaction;
    99 var i, t: LongInt;
    99 var i, t: LongInt;
   100     s: ansistring;
   100     s: ansistring;
   101 begin
   101 begin
   102 TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
   102 //TryDo(not bBetweenTurns, 'Engine bug: TurnReaction between turns', true);
   103 
   103 
   104 inc(FinishedTurnsTotal);
   104 inc(FinishedTurnsTotal);
   105 if FinishedTurnsTotal <> 0 then
   105 if FinishedTurnsTotal <> 0 then
   106     begin
   106     begin
   107     s:= ansistring(CurrentHedgehog^.Name);
   107     s:= ansistring(CurrentHedgehog^.Name);