1213 

  1213 

  1214 if (Gear^.Message and gm_Switch) <> 0 then

  1214 if (Gear^.Message and gm_Switch) <> 0 then

  1215    begin

  1215    begin

  1216    HHGear:= CurrentHedgehog^.Gear;

  1216    HHGear:= CurrentHedgehog^.Gear;

  1217    HHGear^.Message:= HHGear^.Message and not gm_Switch;

  1217    HHGear^.Message:= HHGear^.Message and not gm_Switch;

  1218    State:= HHGear^.State;

  1219    State:= HHGear^.State;

  1219    HHGear^.State:= 0;

  1220    HHGear^.State:= 0;

  1220    HHGear^.Active:= false;

  1221    HHGear^.Active:= false;

  1221    HHGear^.Z:= cHHZ;

  1222    HHGear^.Z:= cHHZ;

  1222    RemoveGearFromList(HHGear);

  1223    RemoveGearFromList(HHGear);