diff -r 56d2f2d5aad8 -r 4feced261c68 hedgewars/uScript.pas --- a/hedgewars/uScript.pas Sun Jan 19 00:18:28 2014 +0400 +++ b/hedgewars/uScript.pas Tue Jan 21 22:38:13 2014 +0100 @@ -85,8 +85,12 @@ uIO, uVisualGearsList, uGearsHandlersMess, - uPhysFSLayer, - typinfo + uPhysFSLayer +{$IFDEF PAS2C} + , hwpacksmounter +{$ELSE} + , typinfo +{$ENDIF} ; var luaState : Plua_State; @@ -155,7 +159,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; @@ -251,7 +255,7 @@ var i : integer; begin for i:= 1 to lua_gettop(L) do - GameFlags := GameFlags and not(LongWord(lua_tointeger(L, i))); + GameFlags := (GameFlags and (not (LongWord(lua_tointeger(L, i))))); ScriptSetInteger('GameFlags', GameFlags); lc_disablegameflags:= 0; end; @@ -1172,7 +1176,7 @@ RecountTeamHealth(gear^.Hedgehog^.Team) end; // Why did this do a "setalltoactive" ? - //SetAllToActive; + //SetAllToActive; Gear^.Active:= true; AllInactive:= false end @@ -2241,7 +2245,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)); @@ -2292,7 +2296,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));