1599                 end

  1599                 end

  1600         end

  1600         end

  1601     else

  1601     else

  1602         if (Gear^.State and gsttmpFlag) = 0 then

  1602         if (Gear^.State and gsttmpFlag) = 0 then

  1603             Gear^.State := Gear^.State or gsttmpFlag;

  1603             Gear^.State := Gear^.State or gsttmpFlag;

  1605 end;

  1604 end;

  1606 

  1605 

  1607 procedure doStepRopeAttach(Gear: PGear);

  1606 procedure doStepRopeAttach(Gear: PGear);

  1608 var 

  1607 var 

  1609     HHGear: PGear;

  1608     HHGear: PGear;

  1707             begin

  1706             begin

  1708             State := State and not gstAttacking;

  1707             State := State and not gstAttacking;

  1709             Message := Message and not gmAttack

  1708             Message := Message and not gmAttack

  1710             end;

  1709             end;

  1711         DeleteGear(Gear)

  1710         DeleteGear(Gear)

  1713 end;

  1713 end;

  1714 

  1714 

  1715 procedure doStepRope(Gear: PGear);

  1715 procedure doStepRope(Gear: PGear);

  1716 begin

  1716 begin

  1717     Gear^.dX := - Gear^.dX;

  1717     Gear^.dX := - Gear^.dX;