Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix cursor not being disabled when teleporting hog into water
authorWuzzy <Wuzzy2@mail.ru>
Wed, 17 Jul 2019 00:33:55 +0200
changeset 15246 4aa19b21707d
parent 15245 395563ffc8b5
child 15247 647157250713
Fix cursor not being disabled when teleporting hog into water
hedgewars/uAmmos.pas file | annotate | diff | comparison | revisions
hedgewars/uGearsHandlersMess.pas file | annotate | diff | comparison | revisions 
--- a/hedgewars/uAmmos.pas	Mon Jul 15 23:26:00 2019 +0200
+++ b/hedgewars/uAmmos.pas	Wed Jul 17 00:33:55 2019 +0200
@@ -404,7 +404,9 @@
     CurWeapon:= GetCurAmmoEntry(Hedgehog);
     OldWeapon:= GetCurAmmoEntry(Hedgehog);
 
-    if (CurWeapon^.Count = 0) then
+    if (Hedgehog.Gear^.State and gstHHDriven) = 0 then
+        Hedgehog.CurAmmoType:= amNothing
+    else if (CurWeapon^.Count = 0) then
         SwitchToFirstLegalAmmo(Hedgehog)
     else if CurWeapon^.AmmoType = amNothing then
         Hedgehog.CurAmmoType:= amNothing;
@@ -427,7 +429,8 @@
             s:= s + ansistring(' (' + IntToStr(Count) + ')');
         if (Propz and ammoprop_Timerable) <> 0 then
             s:= s + ansistring(', ' + IntToStr(Timer div 1000) + ' ') + trammo[sidSeconds];
-        AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
+        if (Hedgehog.Gear^.State and gstHHDriven) <> 0 then
+            AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo);
         if (Propz and ammoprop_NeedTarget) <> 0 then
             begin
             if Gear <> nil then Gear^.State:= Gear^.State or      gstChooseTarget;
--- a/hedgewars/uGearsHandlersMess.pas	Mon Jul 15 23:26:00 2019 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Jul 17 00:33:55 2019 +0200
@@ -3353,7 +3353,7 @@
     or (HHGear = nil)
     or ((HHGear^.State and gstMoving) = 0)
     or (HHGear^.Damage > 0)
-    or ((HHGear^.State and gstDrowning) = 1) then
+    or ((HHGear^.State and gstDrowning) <> 0) then
         begin
         DeleteGear(Gear);
         AfterAttack
hedgewars