229 |
229 |
230 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl; |
230 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl; |
231 var i : integer; |
231 var i : integer; |
232 begin |
232 begin |
233 for i:= 1 to lua_gettop(L) do |
233 for i:= 1 to lua_gettop(L) do |
234 if (GameFlags and lua_tointeger(L, i)) = 0 then |
234 GameFlags := GameFlags or LongWord(lua_tointeger(L, i)); |
235 GameFlags := GameFlags + LongWord(lua_tointeger(L, i)); |
|
236 ScriptSetInteger('GameFlags', GameFlags); |
235 ScriptSetInteger('GameFlags', GameFlags); |
237 lc_enablegameflags:= 0; |
236 lc_enablegameflags:= 0; |
238 end; |
237 end; |
239 |
238 |
240 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
239 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
241 var i : integer; |
240 var i : integer; |
242 begin |
241 begin |
243 for i:= 1 to lua_gettop(L) do |
242 for i:= 1 to lua_gettop(L) do |
244 if (GameFlags and lua_tointeger(L, i)) <> 0 then |
243 GameFlags := GameFlags and not(LongWord(lua_tointeger(L, i))); |
245 GameFlags := GameFlags - LongWord(lua_tointeger(L, i)); |
|
246 ScriptSetInteger('GameFlags', GameFlags); |
244 ScriptSetInteger('GameFlags', GameFlags); |
247 lc_disablegameflags:= 0; |
245 lc_disablegameflags:= 0; |
248 end; |
246 end; |
249 |
247 |
250 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
248 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |