equal
deleted
inserted
replaced
1015 end |
1015 end |
1016 end; |
1016 end; |
1017 |
1017 |
1018 //////////////////////////////////////////////////////////////////////////////// |
1018 //////////////////////////////////////////////////////////////////////////////// |
1019 procedure doStepHedgehogFree(Gear: PGear); |
1019 procedure doStepHedgehogFree(Gear: PGear); |
1020 var prevState, i: Longword; |
1020 var prevState: Longword; |
1021 begin |
1021 begin |
1022 prevState:= Gear^.State; |
1022 prevState:= Gear^.State; |
1023 |
1023 |
1024 doStepHedgehogMoving(Gear); |
1024 doStepHedgehogMoving(Gear); |
1025 |
1025 |