equal
deleted
inserted
replaced
820 begin |
820 begin |
821 Gear^.X:= Gear^.X + tx; |
821 Gear^.X:= Gear^.X + tx; |
822 Gear^.Y:= Gear^.Y + ty; |
822 Gear^.Y:= Gear^.Y + ty; |
823 Gear^.Elasticity:= tt; |
823 Gear^.Elasticity:= tt; |
824 Gear^.doStep:= @doStepRopeWork; |
824 Gear^.doStep:= @doStepRopeWork; |
825 with HHGear^ do State:= State and not (gstAttacking or gstMoving); |
825 with HHGear^ do State:= State and not (gstAttacking or gstMoving or gstHHHJump); |
826 tt:= _0 |
826 tt:= _0; |
|
827 exit |
827 end; |
828 end; |
828 tx:= tx + Gear^.dX + Gear^.dX; |
829 tx:= tx + Gear^.dX + Gear^.dX; |
829 ty:= ty + Gear^.dY + Gear^.dY; |
830 ty:= ty + Gear^.dY + Gear^.dY; |
830 tt:= tt - _2; |
831 tt:= tt - _2; |
831 end; |
832 end; |