3006     HHGear^.Message := HHGear^.Message and (not gmAttack);

  3006     HHGear^.Message := HHGear^.Message and (not gmAttack);

  3007     Gear^.CollisionMask:= lfNotCurrentMask;

  3007     Gear^.CollisionMask:= lfNotCurrentMask;

  3008 

  3008 

  3009     FollowGear := Gear;

  3009     FollowGear := Gear;

  3010 

  3010 

  3011     Gear^.doStep := @doStepCakeFall

  3013     Gear^.doStep := @doStepCakeFall

  3012 end;

  3014 end;

  3013 

  3015 

  3014 ////////////////////////////////////////////////////////////////////////////////

  3016 ////////////////////////////////////////////////////////////////////////////////

  3015 procedure doStepSeductionWork(Gear: PGear);

  3017 procedure doStepSeductionWork(Gear: PGear);