hedgewars/uScript.pas
changeset 7517 f287f00063e8
parent 7426 55b49cc1f33a
child 7546 b50556f2a0e8
--- a/hedgewars/uScript.pas	Tue Aug 07 13:21:15 2012 -0400
+++ b/hedgewars/uScript.pas	Wed Aug 08 10:26:10 2012 -0400
@@ -412,7 +412,7 @@
         begin
         gear:= GearByUID(lua_tointeger(L, 1));
         if gear <> nil then
-            DeleteGear(gear);
+            gear^.Message:= gear^.Message or gmDelete;
         end;
     lc_deletegear:= 0
 end;