# HG changeset patch
# User unc0rr
# Date 1171150660 0
# Node ID 1052ef2f7863297914808c044f61c71ad9cf06fa
# Parent  b505012a3f154f7eb7d3ea504184567f280c6aa8
Fix bug with unexpected jumping after use of air attack or construction tool

diff -r b505012a3f15 -r 1052ef2f7863 hedgewars/CCHandlers.inc
--- 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