Engine:
authorsmaxx
Wed, 04 Aug 2010 16:54:15 +0200
changeset 3723 958eeaf84714
parent 3722 eadebe4c45c9
child 3724 b8678667e7dc
Engine: * Updated some script calls to ensure all gears are set to active (e.g. if some gear is moved).
hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Wed Aug 04 15:57:27 2010 +0200
+++ b/hedgewars/uScript.pas	Wed Aug 04 16:54:15 2010 +0200
@@ -363,7 +363,11 @@
     else
         begin
         gear:= GearByUID(lua_tointeger(L, 1));
-        if gear <> nil then gear^.Health:= lua_tointeger(L, 2)
+        if gear <> nil then
+            begin
+            gear^.Health:= lua_tointeger(L, 2);
+            SetAllToActive;
+            end
         end;
     lc_sethealth:= 0
 end;
@@ -393,7 +397,11 @@
     else
         begin
         gear:= GearByUID(lua_tointeger(L, 1));
-        if gear <> nil then gear^.State:= lua_tointeger(L, 2)
+        if gear <> nil then
+            begin
+            gear^.State:= lua_tointeger(L, 2);
+            SetAllToActive;
+            end
         end;
     lc_setstate:= 0
 end;
@@ -426,7 +434,11 @@
     else
         begin
         gear:= GearByUID(lua_tointeger(L, 1));
-        if gear <> nil then gear^.Tag:= lua_tointeger(L, 2)
+        if gear <> nil then
+            begin
+            gear^.Tag:= lua_tointeger(L, 2);
+            SetAllToActive;
+            end
         end;
     lc_settag:= 0
 end;
@@ -540,6 +552,7 @@
             y:= lua_tointeger(L, 3);
             gear^.X:= int2hwfloat(x);
             gear^.Y:= int2hwfloat(y);
+            SetAllToActive;
             end
         end;
     lc_setgearposition:= 0