equal
deleted
inserted
replaced
6552 end; |
6552 end; |
6553 |
6553 |
6554 procedure doStepCreeper(Gear: PGear); |
6554 procedure doStepCreeper(Gear: PGear); |
6555 var i,t,targDist,tmpDist: LongWord; |
6555 var i,t,targDist,tmpDist: LongWord; |
6556 targ, tmpG: PGear; |
6556 targ, tmpG: PGear; |
6557 trackSpeed, airFriction, tX, tY: hwFloat; |
6557 tX, tY: hwFloat; |
6558 isUnderwater: Boolean; |
|
6559 vg: PVisualGear; |
6558 vg: PVisualGear; |
6560 begin |
6559 begin |
6561 doStepFallingGear(Gear); |
6560 doStepFallingGear(Gear); |
6562 if (Gear^.State and gstFrozen) <> 0 then |
6561 if (Gear^.State and gstFrozen) <> 0 then |
6563 begin |
6562 begin |