hedgewars/uScript.pas
changeset 8370 0c79946e96f8
parent 8368 6feae8073965
child 8444 75db7bb8dce8
child 8460 75e771c3c039
--- a/hedgewars/uScript.pas	Thu Jan 10 22:54:55 2013 +0400
+++ b/hedgewars/uScript.pas	Thu Jan 10 22:59:46 2013 +0400
@@ -230,8 +230,9 @@
 begin
     for i:= 1 to lua_gettop(L) do
         if (GameFlags and lua_tointeger(L, i)) = 0 then
-            GameFlags := GameFlags + lua_tointeger(L, i);
+            GameFlags := GameFlags + LongWord(lua_tointeger(L, i));
     ScriptSetInteger('GameFlags', GameFlags);
+    lc_enablegameflags:= 0;
 end;
 
 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl;
@@ -239,14 +240,18 @@
 begin
     for i:= 1 to lua_gettop(L) do
         if (GameFlags and lua_tointeger(L, i)) <> 0 then
-            GameFlags := GameFlags - lua_tointeger(L, i);
+            GameFlags := GameFlags - LongWord(lua_tointeger(L, i));
     ScriptSetInteger('GameFlags', GameFlags);
+    lc_disablegameflags:= 0;
 end;
 
 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl;
 begin
+    // Silence hint
+    L:= L;
     GameFlags:= 0;
     ScriptSetInteger('GameFlags', GameFlags);
+    lc_cleargameflags:= 0;
 end;
 
 function lc_addcaption(L : Plua_State) : LongInt; Cdecl;
@@ -1760,8 +1765,7 @@
 end;
 
 function lc_restorehog(L: Plua_State): LongInt; Cdecl;
-var hog: PHedgehog;
-    i, h: LongInt;
+var i, h: LongInt;
     uid: LongWord;
 begin
     if lua_gettop(L) <> 1 then