228 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl;

   228 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl;

   229 var i : integer;

   229 var i : integer;

   230 begin

   230 begin

   231     for i:= 1 to lua_gettop(L) do

   231     for i:= 1 to lua_gettop(L) do

   232         if (GameFlags and lua_tointeger(L, i)) = 0 then

   232         if (GameFlags and lua_tointeger(L, i)) = 0 then

   234     ScriptSetInteger('GameFlags', GameFlags);

   234     ScriptSetInteger('GameFlags', GameFlags);

   235 end;

   236 end;

   236 

   237 

   237 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl;

   238 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl;

   238 var i : integer;

   239 var i : integer;

   239 begin

   240 begin

   240     for i:= 1 to lua_gettop(L) do

   241     for i:= 1 to lua_gettop(L) do

   241         if (GameFlags and lua_tointeger(L, i)) <> 0 then

   242         if (GameFlags and lua_tointeger(L, i)) <> 0 then

   243     ScriptSetInteger('GameFlags', GameFlags);

   244     ScriptSetInteger('GameFlags', GameFlags);

   244 end;

   246 end;

   245 

   247 

   246 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl;

   248 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl;

   247 begin

   249 begin

   248     GameFlags:= 0;

   252     GameFlags:= 0;

   249     ScriptSetInteger('GameFlags', GameFlags);

   253     ScriptSetInteger('GameFlags', GameFlags);

   250 end;

   255 end;

   251 

   256 

   252 function lc_addcaption(L : Plua_State) : LongInt; Cdecl;

   257 function lc_addcaption(L : Plua_State) : LongInt; Cdecl;

   253 begin

   258 begin

   254     if lua_gettop(L) = 1 then

   259     if lua_gettop(L) = 1 then

  1758         end;

  1763         end;

  1759     lc_hidehog := 0;

  1764     lc_hidehog := 0;

  1760 end;

  1765 end;

  1761 

  1766 

  1762 function lc_restorehog(L: Plua_State): LongInt; Cdecl;

  1767 function lc_restorehog(L: Plua_State): LongInt; Cdecl;

  1765     uid: LongWord;

  1769     uid: LongWord;

  1766 begin

  1770 begin

  1767     if lua_gettop(L) <> 1 then

  1771     if lua_gettop(L) <> 1 then

  1768         LuaError('Lua: Wrong number of parameters passed to RestoreHog!')

  1772         LuaError('Lua: Wrong number of parameters passed to RestoreHog!')

  1769     else

  1773     else