40 procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);

    40 procedure HedgehogPoisoned(Gear: PGear; Attacker: PHedgehog);

    41 procedure HedgehogSacrificed(Hedgehog: PHedgehog);

    41 procedure HedgehogSacrificed(Hedgehog: PHedgehog);

    42 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);

    42 procedure HedgehogDamaged(Gear: PGear; Attacker: PHedgehog; Damage: Longword; killed: boolean);

    43 procedure TargetHit;

    43 procedure TargetHit;

    44 procedure Skipped;

    44 procedure Skipped;

    45 procedure TurnStats;

    46 procedure TurnStats;

    46 procedure TurnReaction;

    47 procedure TurnReaction;

    47 procedure TurnStatsReset;

    48 procedure TurnStatsReset;

    48 procedure SendStats;

    49 procedure SendStats;

    49 procedure hedgehogFlight(Gear: PGear; time: Longword);

    50 procedure hedgehogFlight(Gear: PGear; time: Longword);

   187 

   188 

   188 procedure Skipped;

   189 procedure Skipped;

   189 begin

   190 begin

   190 inc(SkippedTurns);

   191 inc(SkippedTurns);

   191 isTurnSkipped:= true

   192 isTurnSkipped:= true

   192 end;

   198 end;

   193 

   199 

   194 procedure TurnStats;

   200 procedure TurnStats;

   195 var i, t: LongInt;

   201 var i, t: LongInt;

   196     c: Longword;

   202     c: Longword;