239 end; |
239 end; |
240 |
240 |
241 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl; |
241 function lc_enablegameflags(L : Plua_State) : LongInt; Cdecl; |
242 var i : integer; |
242 var i : integer; |
243 begin |
243 begin |
244 for i:= 1 to lua_gettop(L) do |
244 if lua_gettop(L) = 0 then |
245 GameFlags := GameFlags or LongWord(lua_tointeger(L, i)); |
245 begin |
246 ScriptSetInteger('GameFlags', GameFlags); |
246 LuaParameterCountError('EnableGameFlags', '', lua_gettop(L)); |
|
247 lua_pushnil(L); |
|
248 end |
|
249 else |
|
250 begin |
|
251 for i:= 1 to lua_gettop(L) do |
|
252 GameFlags := GameFlags or LongWord(lua_tointeger(L, i)); |
|
253 ScriptSetInteger('GameFlags', GameFlags); |
|
254 end; |
247 lc_enablegameflags:= 0; |
255 lc_enablegameflags:= 0; |
248 end; |
256 end; |
249 |
257 |
250 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
258 function lc_disablegameflags(L : Plua_State) : LongInt; Cdecl; |
251 var i : integer; |
259 var i : integer; |
252 begin |
260 begin |
253 for i:= 1 to lua_gettop(L) do |
261 if lua_gettop(L) = 0 then |
254 GameFlags := GameFlags and not(LongWord(lua_tointeger(L, i))); |
262 begin |
255 ScriptSetInteger('GameFlags', GameFlags); |
263 LuaParameterCountError('DisableGameFlags', '', lua_gettop(L)); |
|
264 lua_pushnil(L); |
|
265 end |
|
266 else |
|
267 begin |
|
268 for i:= 1 to lua_gettop(L) do |
|
269 GameFlags := GameFlags and not(LongWord(lua_tointeger(L, i))); |
|
270 ScriptSetInteger('GameFlags', GameFlags); |
|
271 end; |
256 lc_disablegameflags:= 0; |
272 lc_disablegameflags:= 0; |
257 end; |
273 end; |
258 |
274 |
259 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
275 function lc_cleargameflags(L : Plua_State) : LongInt; Cdecl; |
260 begin |
276 begin |
261 // Silence hint |
277 if lua_gettop(L) <> 0 then |
262 L:= L; |
278 begin |
263 GameFlags:= 0; |
279 LuaParameterCountError('ClearGameFlags', '', lua_gettop(L)); |
264 ScriptSetInteger('GameFlags', GameFlags); |
280 lua_pushnil(L); |
|
281 end |
|
282 else |
|
283 begin |
|
284 GameFlags:= 0; |
|
285 ScriptSetInteger('GameFlags', GameFlags); |
|
286 end; |
265 lc_cleargameflags:= 0; |
287 lc_cleargameflags:= 0; |
|
288 end; |
|
289 |
|
290 function lc_getgameflag(L : Plua_State) : LongInt; Cdecl; |
|
291 begin |
|
292 if lua_gettop(L) <> 1 then |
|
293 begin |
|
294 LuaParameterCountError('GetGameFlag', 'gameflag', lua_gettop(L)); |
|
295 lua_pushnil(L); |
|
296 end |
|
297 else |
|
298 begin |
|
299 lua_pushboolean(L, (GameFlags and LongWord(lua_tointeger(L, 1)) <> 0)); |
|
300 end; |
|
301 lc_getgameflag:= 1; |
266 end; |
302 end; |
267 |
303 |
268 function lc_addcaption(L : Plua_State) : LongInt; Cdecl; |
304 function lc_addcaption(L : Plua_State) : LongInt; Cdecl; |
269 begin |
305 begin |
270 if lua_gettop(L) = 1 then |
306 if lua_gettop(L) = 1 then |
2557 lua_register(luaState, _P'SetInputMask', @lc_setinputmask); |
2593 lua_register(luaState, _P'SetInputMask', @lc_setinputmask); |
2558 lua_register(luaState, _P'AddGear', @lc_addgear); |
2594 lua_register(luaState, _P'AddGear', @lc_addgear); |
2559 lua_register(luaState, _P'EnableGameFlags', @lc_enablegameflags); |
2595 lua_register(luaState, _P'EnableGameFlags', @lc_enablegameflags); |
2560 lua_register(luaState, _P'DisableGameFlags', @lc_disablegameflags); |
2596 lua_register(luaState, _P'DisableGameFlags', @lc_disablegameflags); |
2561 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags); |
2597 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags); |
|
2598 lua_register(luaState, _P'GetGameFlag', @lc_getgameflag); |
2562 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
2599 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
2563 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
2600 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
2564 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
2601 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
2565 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
2602 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
2566 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |
2603 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |