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;