equal
deleted
inserted
replaced
31 procedure AmmoUsed(am: TAmmoType); |
31 procedure AmmoUsed(am: TAmmoType); |
32 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean); |
32 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean); |
33 procedure Skipped; |
33 procedure Skipped; |
34 procedure TurnReaction; |
34 procedure TurnReaction; |
35 procedure SendStats; |
35 procedure SendStats; |
|
36 procedure hedgehogFlight(Gear: PGear; time: Longword); |
36 |
37 |
37 implementation |
38 implementation |
38 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc; |
39 uses uSound, uLocale, uVariables, uUtils, uIO, uCaptions, uDebug, uMisc; |
39 |
40 |
40 var DamageClan : Longword = 0; |
41 var DamageClan : Longword = 0; |
171 |
172 |
172 procedure AmmoUsed(am: TAmmoType); |
173 procedure AmmoUsed(am: TAmmoType); |
173 begin |
174 begin |
174 inc(AmmoUsedCount); |
175 inc(AmmoUsedCount); |
175 AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging |
176 AmmoDamagingUsed:= AmmoDamagingUsed or Ammoz[am].isDamaging |
|
177 end; |
|
178 |
|
179 procedure hedgehogFlight(Gear: PGear; time: Longword); |
|
180 begin |
|
181 if time > 4000 then |
|
182 begin |
|
183 writeln('FLIGHT'); |
|
184 writeln(Gear^.Hedgehog^.Team^.TeamName); |
|
185 writeln(time); |
|
186 writeln; |
|
187 end |
176 end; |
188 end; |
177 |
189 |
178 procedure SendStats; |
190 procedure SendStats; |
179 var i, t: LongInt; |
191 var i, t: LongInt; |
180 msd, msk: Longword; msdhh, mskhh: PHedgehog; |
192 msd, msk: Longword; msdhh, mskhh: PHedgehog; |
268 if winnersClan <> nil then |
280 if winnersClan <> nil then |
269 begin |
281 begin |
270 writeln('WINNERS'); |
282 writeln('WINNERS'); |
271 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
283 for t:= 0 to winnersClan^.TeamsNumber - 1 do |
272 writeln(winnersClan^.Teams[t]^.TeamName); |
284 writeln(winnersClan^.Teams[t]^.TeamName); |
273 writeln; |
|
274 end else |
285 end else |
275 writeln('DRAW'); |
286 writeln('DRAW'); |
|
287 |
|
288 writeln; |
276 end; |
289 end; |
277 |
290 |
278 procedure initModule; |
291 procedure initModule; |
279 begin |
292 begin |
280 TotalRounds:= -1; |
293 TotalRounds:= -1; |