equal
deleted
inserted
replaced
77 inc(SkippedTurns); |
77 inc(SkippedTurns); |
78 isTurnSkipped:= true |
78 isTurnSkipped:= true |
79 end; |
79 end; |
80 |
80 |
81 procedure TurnReaction; |
81 procedure TurnReaction; |
82 var Gear: PGear; |
82 var i, t: LongInt; |
83 i, t: LongInt; |
|
84 begin |
83 begin |
85 inc(FinishedTurnsTotal); |
84 inc(FinishedTurnsTotal); |
86 if FinishedTurnsTotal = 0 then exit; |
85 if FinishedTurnsTotal = 0 then exit; |
87 |
86 |
88 inc(CurrentHedgehog^.stats.FinishedTurns); |
87 inc(CurrentHedgehog^.stats.FinishedTurns); |