hedgewars/uStats.pas
branchhedgeroid
changeset 7857 2bc61f8841a1
parent 7850 fcbb024090a4
parent 7576 65d29988fd3d
child 7932 ebe1d112e439
equal deleted inserted replaced
7855:ddcdedd3330b 7857:2bc61f8841a1
   183 
   183 
   184 procedure hedgehogFlight(Gear: PGear; time: Longword);
   184 procedure hedgehogFlight(Gear: PGear; time: Longword);
   185 begin
   185 begin
   186 if time > 4000 then
   186 if time > 4000 then
   187     begin
   187     begin
       
   188 	{$IFNDEF MOBILE}
   188     writeln(stdout, 'FLIGHT');
   189     writeln(stdout, 'FLIGHT');
   189     writeln(stdout, Gear^.Hedgehog^.Team^.TeamName);
   190     writeln(stdout, Gear^.Hedgehog^.Team^.TeamName);
   190     writeln(stdout, inttostr(time));
   191     writeln(stdout, inttostr(time));
   191     writeln(stdout, '');
   192     writeln(stdout, '');
       
   193 	{$ENDIF}
   192     end
   194     end
   193 end;
   195 end;
   194 
   196 
   195 procedure SendStats;
   197 procedure SendStats;
   196 var i, t: LongInt;
   198 var i, t: LongInt;
   288     SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
   290     SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
   289 
   291 
   290 if KilledHHs > 0 then
   292 if KilledHHs > 0 then
   291     SendStat(siKilledHHs, IntToStr(KilledHHs));
   293     SendStat(siKilledHHs, IntToStr(KilledHHs));
   292 
   294 
       
   295 {$IFNDEF MOBILE}
   293 // now to console
   296 // now to console
   294 if winnersClan <> nil then 
   297 if winnersClan <> nil then 
   295     begin
   298     begin
   296     writeln(stdout, 'WINNERS');
   299     writeln(stdout, 'WINNERS');
   297     for t:= 0 to winnersClan^.TeamsNumber - 1 do
   300     for t:= 0 to winnersClan^.TeamsNumber - 1 do
   299     end
   302     end
   300 else
   303 else
   301     writeln(stdout, 'DRAW');
   304     writeln(stdout, 'DRAW');
   302 
   305 
   303 writeln(stdout, '');
   306 writeln(stdout, '');
       
   307 {$ENDIF}
   304 end;
   308 end;
   305 
   309 
   306 procedure initModule;
   310 procedure initModule;
   307 begin
   311 begin
   308     TotalRounds:= -1;
   312     TotalRounds:= -1;