Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uStats.pas
branch0.9.22
changeset 12366 744e51920a04
parent 11046 47a8c19ecb60
equal deleted inserted replaced
11630:11f6a4c316a1 12366:744e51920a04 
    34 procedure Skipped;
 
    34 procedure Skipped;
 
    35 procedure TurnReaction;
 
    35 procedure TurnReaction;
 
    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 procedure startGhostPoints(n: LongInt);
 
       
    40 procedure dumpPoint(x, y: LongInt);
 
    39 
    41 
    40 implementation
 
    42 implementation
 
    41 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;
 
    43 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc, uConsole, uScript;
 
    42 
    44 
    43 var DamageClan  : Longword = 0;
 
    45 var DamageClan  : Longword = 0;
 
   321     WriteLnToConsole(teamname);
 
   323     WriteLnToConsole(teamname);
 
   322     WriteLnToConsole(location);
 
   324     WriteLnToConsole(location);
 
   323     WriteLnToConsole(inttostr(value));
 
   325     WriteLnToConsole(inttostr(value));
 
   324 end;
 
   326 end;
 
   325 
   327 
       
   328 procedure startGhostPoints(n: LongInt);
 
       
   329 begin
 
       
   330     WriteLnToConsole('GHOST_POINTS');
 
       
   331     WriteLnToConsole(inttostr(n));
 
       
   332 end;
 
       
   333 
       
   334 procedure dumpPoint(x, y: LongInt);
 
       
   335 begin
 
       
   336     WriteLnToConsole(inttostr(x));
 
       
   337     WriteLnToConsole(inttostr(y));
 
       
   338 end;
 
       
   339 
   326 procedure initModule;
 
   340 procedure initModule;
 
   327 begin
 
   341 begin
 
       
   342     DamageClan  := 0;
 
       
   343     DamageTotal := 0;
 
       
   344     DamageTurn  := 0;
 
       
   345     KillsClan   := 0;
 
       
   346     Kills       := 0;
 
       
   347     KillsTotal  := 0;
 
       
   348     AmmoUsedCount := 0;
 
       
   349     AmmoDamagingUsed := false;
 
       
   350     SkippedTurns:= 0;
 
       
   351     isTurnSkipped:= false;
 
       
   352     vpHurtSameClan:= nil;
 
       
   353     vpHurtEnemy:= nil;
 
   328     TotalRounds:= -1;
 
   354     TotalRounds:= -1;
 
   329     FinishedTurnsTotal:= -1;
 
   355     FinishedTurnsTotal:= -1;
 
   330 end;
 
   356 end;
 
   331 
   357 
   332 procedure freeModule;
 
   358 procedure freeModule;
hedgewars