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