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 |
233 GameFlags += lua_tointeger(L, i); |
233 GameFlags := GameFlags + lua_tointeger(L, i); |
234 ScriptSetInteger('GameFlags', GameFlags); |
234 ScriptSetInteger('GameFlags', GameFlags); |
235 end; |
235 end; |
236 |
236 |
237 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
237 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
238 var i : integer; |
238 var i : integer; |
239 begin |
239 begin |
240 for i:= 1 to lua_gettop(L) do |
240 for i:= 1 to lua_gettop(L) do |
241 if (GameFlags and lua_tointeger(L, i)) <> 0 then |
241 if (GameFlags and lua_tointeger(L, i)) <> 0 then |
242 GameFlags -= lua_tointeger(L, i); |
242 GameFlags := GameFlags - lua_tointeger(L, i); |
243 ScriptSetInteger('GameFlags', GameFlags); |
243 ScriptSetInteger('GameFlags', GameFlags); |
244 end; |
244 end; |
245 |
245 |
246 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
246 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
247 begin |
247 begin |