--- a/hedgewars/CCHandlers.inc	Sat Feb 10 23:20:02 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Sat Feb 10 23:37:40 2007 +0000
@@ -312,6 +312,7 @@
           begin
           if ((Gear^.State and (gstAttacking or gstAttacked)) <> 0) or (AttacksNum > 0)
              or ((Gear^.State and gstHHDriven) = 0) then exit; // во время стрельбы исключает смену оружия
+          Gear^.Message:= 0;
           if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end
                                else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end;
           if caSlot^ = slot then