3090     Gear^.Pos:= 0;

  3090     Gear^.Pos:= 0;

  3091     Gear^.doStep := @doStepJetpackWork;

  3091     Gear^.doStep := @doStepJetpackWork;

  3092 

  3092 

  3093     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

  3093     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

  3094     FollowGear := HHGear;

  3094     FollowGear := HHGear;

  3097     with HHGear^ do

  3096     with HHGear^ do

  3098     begin

  3097     begin

  3099         State := State and not gstAttacking;

  3098         State := State and not gstAttacking;

  3100         Message := Message and not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight);

  3099         Message := Message and not (gmAttack or gmUp or gmPrecise or gmLeft or gmRight);

  3101         if (dY < _0_1) and (dY > -_0_1) then

  3100         if (dY < _0_1) and (dY > -_0_1) then