hedgewars/uStats.pas
changeset 13651 56a925256039
parent 13642 3d14950641a4
child 13755 6908d1e65cdc
equal deleted inserted replaced
13650:34aeaa627400 13651:56a925256039
    20 
    20 
    21 unit uStats;
    21 unit uStats;
    22 interface
    22 interface
    23 uses uConsts, uTypes;
    23 uses uConsts, uTypes;
    24 
    24 
    25 var TotalRounds: LongInt; // Number of rounds played (-1 if game not started)
    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
       
    26     TotalRoundsReal: LongInt; // Total number of rounds played (-1 if not started or in hog placing phase). Exported to Lua as 'TotalRounds'
    26     FinishedTurnsTotal: LongInt;
    27     FinishedTurnsTotal: LongInt;
    27     SendGameResultOn : boolean = true;
    28     SendGameResultOn : boolean = true;
    28     SendRankingStatsOn : boolean = true;
    29     SendRankingStatsOn : boolean = true;
    29     SendAchievementsStatsOn : boolean = true;
    30     SendAchievementsStatsOn : boolean = true;
    30     SendHealthStatsOn : boolean = true;
    31     SendHealthStatsOn : boolean = true;
   422     AmmoDamagingUsed := false;
   423     AmmoDamagingUsed := false;
   423     SkippedTurns:= 0;
   424     SkippedTurns:= 0;
   424     isTurnSkipped:= false;
   425     isTurnSkipped:= false;
   425     vpHurtSameClan:= nil;
   426     vpHurtSameClan:= nil;
   426     vpHurtEnemy:= nil;
   427     vpHurtEnemy:= nil;
   427     TotalRounds:= -1;
   428     TotalRoundsPre:= -1;
       
   429     TotalRoundsReal:= -1;
   428     FinishedTurnsTotal:= -1;
   430     FinishedTurnsTotal:= -1;
   429 end;
   431 end;
   430 
   432 
   431 procedure freeModule;
   433 procedure freeModule;
   432 begin
   434 begin