equal
deleted
inserted
replaced
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('FLIGHT'); |
188 writeln(stdout, 'FLIGHT'); |
189 writeln(Gear^.Hedgehog^.Team^.TeamName); |
189 writeln(stdout, Gear^.Hedgehog^.Team^.TeamName); |
190 writeln(time); |
190 writeln(stdout, inttostr(time)); |
191 writeln; |
191 writeln(stdout, ''); |
192 end |
192 end |
193 end; |
193 end; |
194 |
194 |
195 procedure SendStats; |
195 procedure SendStats; |
196 var i, t: LongInt; |
196 var i, t: LongInt; |
291 SendStat(siKilledHHs, IntToStr(KilledHHs)); |
291 SendStat(siKilledHHs, IntToStr(KilledHHs)); |
292 |
292 |
293 // now to console |
293 // now to console |
294 if winnersClan <> nil then |
294 if winnersClan <> nil then |
295 begin |
295 begin |
296 writeln('WINNERS'); |
296 writeln(stdout, 'WINNERS'); |
297 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
297 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
298 writeln(winnersClan^.Teams[t]^.TeamName); |
298 writeln(stdout, winnersClan^.Teams[t]^.TeamName); |
299 end |
299 end |
300 else |
300 else |
301 writeln('DRAW'); |
301 writeln(stdout, 'DRAW'); |
302 |
302 |
303 writeln; |
303 writeln(stdout, ''); |
304 end; |
304 end; |
305 |
305 |
306 procedure initModule; |
306 procedure initModule; |
307 begin |
307 begin |
308 TotalRounds:= -1; |
308 TotalRounds:= -1; |