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     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, '');

   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 

   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, '');

   304 end;

   308 end;

   305 

   309 

   306 procedure initModule;

   310 procedure initModule;

   307 begin

   311 begin

   308     TotalRounds:= -1;

   312     TotalRounds:= -1;