hedgewars/uScript.pas
branchwebgl
changeset 8026 4a4f21070479
parent 8012 2a61631a4505
child 8096 453917e94e55
--- a/hedgewars/uScript.pas	Sun Nov 11 16:53:16 2012 +0100
+++ b/hedgewars/uScript.pas	Sun Nov 11 17:15:19 2012 +0100
@@ -139,7 +139,7 @@
         lua_pushnil(L);
         end
     else
-        lua_pushinteger(L, not lua_tointeger(L, 1));
+        lua_pushinteger(L, (not lua_tointeger(L, 1)));
     lc_bnot := 1;
 end;
 
@@ -1248,7 +1248,9 @@
 
 function lc_endgame(L : Plua_State) : LongInt; Cdecl;
 begin
+   {$IFNDEF PAS2C}
     L:= L; // avoid compiler hint
+   {$ENDIF}
     GameState:= gsExit;
     lc_endgame:= 0
 end;
@@ -2018,7 +2020,7 @@
 
 procedure ScriptCall(fname : shortstring);
 begin
-if not ScriptLoaded or (not ScriptExists(fname)) then
+if (not ScriptLoaded) or (not ScriptExists(fname)) then
     exit;
 SetGlobals;
 lua_getglobal(luaState, Str2PChar(fname));
@@ -2069,7 +2071,7 @@
 
 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;
 begin
-if not ScriptLoaded or (not ScriptExists(fname)) then
+if (not ScriptLoaded) or (not ScriptExists(fname)) then
     exit;
 SetGlobals;
 lua_getglobal(luaState, Str2PChar(fname));