2563     if ((Gear^.Message and not gmSwitch) <> 0) or (TurnTimeLeft = 0) then

  2563     if ((Gear^.Message and not gmSwitch) <> 0) or (TurnTimeLeft = 0) then

  2564     begin

  2564     begin

  2565         HHGear := Gear^.Hedgehog^.Gear;

  2565         HHGear := Gear^.Hedgehog^.Gear;

  2566         Msg := Gear^.Message and not gmSwitch;

  2566         Msg := Gear^.Message and not gmSwitch;

  2567         DeleteGear(Gear);

  2567         DeleteGear(Gear);

  2569         ApplyAmmoChanges(HHGear^.Hedgehog^);

  2568         ApplyAmmoChanges(HHGear^.Hedgehog^);

  2570 

  2569 

  2571         HHGear := CurrentHedgehog^.Gear;

  2570         HHGear := CurrentHedgehog^.Gear;

  2572         ApplyAmmoChanges(HHGear^.Hedgehog^);

  2571         ApplyAmmoChanges(HHGear^.Hedgehog^);

  2573         HHGear^.Message := Msg;

  2572         HHGear^.Message := Msg;

  2612     HHGear: PGear;

  2611     HHGear: PGear;

  2613 begin

  2612 begin

  2614     Gear^.doStep := @doStepSwitcherWork;

  2613     Gear^.doStep := @doStepSwitcherWork;

  2615 

  2614 

  2616     HHGear := Gear^.Hedgehog^.Gear;

  2615     HHGear := Gear^.Hedgehog^.Gear;

  2617     with HHGear^ do

  2617     with HHGear^ do

  2618     begin

  2618     begin

  2619         State := State and not gstAttacking;

  2619         State := State and not gstAttacking;

  2620         Message := Message and not gmAttack

  2620         Message := Message and not gmAttack

  2621     end

  2621     end