# HG changeset patch
# User nemo
# Date 1674268793 18000
# Node ID 1becf4a0e90718313fd5748fa12bb01ab943dbe7
# Parent  ed84eb580643a4cd29fa56514984d42a5baff4f4
forbid hiding already hidden hogs

diff -r ed84eb580643 -r 1becf4a0e907 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Mon Oct 24 10:06:52 2022 -0400
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Jan 20 21:39:53 2023 -0500
@@ -262,6 +262,7 @@
 
 procedure HideHog(HH: PHedgehog);
 begin
+    if HH^.Gear = nil then exit;
     ScriptCall('onHogHide', HH^.Gear^.Uid);
     DeleteCI(HH^.Gear);
     if FollowGear = HH^.Gear then
diff -r ed84eb580643 -r 1becf4a0e907 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Mon Oct 24 10:06:52 2022 -0400
+++ b/hedgewars/uScript.pas	Fri Jan 20 21:39:53 2023 -0500
@@ -3225,7 +3225,7 @@
     if CheckLuaParamCount(L, 1, 'HideHog', 'gearUid') then
         begin
         gear:= GearByUID(Trunc(lua_tonumber(L, 1)));
-        if (gear <> nil) and (gear^.hedgehog <> nil) then
+        if (gear <> nil) and (gear^.hedgehog <> nil) and (gear^.hedgehog^.gear <> nil) then
             begin
             HideHog(gear^.hedgehog);
             lua_pushboolean(L, true);