equal
deleted
inserted
replaced
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 function getIsTurnSkipped: boolean; |
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 |
|
193 end; |
|
194 |
|
195 function getIsTurnSkipped: boolean; |
|
196 begin |
|
197 getIsTurnSkipped:= isTurnSkipped; |
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; |