840 end; |
840 end; |
841 // allow caller to know whether there was something to delete |
841 // allow caller to know whether there was something to delete |
842 lua_pushboolean(L, vg <> nil); |
842 lua_pushboolean(L, vg <> nil); |
843 lc_deletevisualgear:= 1 |
843 lc_deletevisualgear:= 1 |
844 end; |
844 end; |
|
845 |
|
846 function lc_getvisualgeartype(L : Plua_State) : LongInt; Cdecl; |
|
847 var vg : PVisualGear; |
|
848 begin |
|
849 if CheckLuaParamCount(L, 1, 'GetVisualGearType', 'vgUid') then |
|
850 begin |
|
851 vg := VisualGearByUID(lua_tointeger(L, 1)); |
|
852 if vg <> nil then |
|
853 lua_pushinteger(L, ord(vg^.Kind)) |
|
854 else |
|
855 lua_pushnil(L); |
|
856 end |
|
857 else |
|
858 lua_pushnil(L); // return value on stack (nil) |
|
859 lc_getvisualgeartype:= 1 |
|
860 end; |
|
861 |
845 |
862 |
846 function lc_getvisualgearvalues(L : Plua_State) : LongInt; Cdecl; |
863 function lc_getvisualgearvalues(L : Plua_State) : LongInt; Cdecl; |
847 var vg: PVisualGear; |
864 var vg: PVisualGear; |
848 begin |
865 begin |
849 if CheckLuaParamCount(L, 1, 'GetVisualGearValues', 'vgUid') then |
866 if CheckLuaParamCount(L, 1, 'GetVisualGearValues', 'vgUid') then |
3304 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags); |
3321 lua_register(luaState, _P'ClearGameFlags', @lc_cleargameflags); |
3305 lua_register(luaState, _P'GetGameFlag', @lc_getgameflag); |
3322 lua_register(luaState, _P'GetGameFlag', @lc_getgameflag); |
3306 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
3323 lua_register(luaState, _P'DeleteGear', @lc_deletegear); |
3307 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
3324 lua_register(luaState, _P'AddVisualGear', @lc_addvisualgear); |
3308 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
3325 lua_register(luaState, _P'DeleteVisualGear', @lc_deletevisualgear); |
|
3326 lua_register(luaState, _P'GetVisualGearType', @lc_getvisualgeartype); |
3309 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
3327 lua_register(luaState, _P'GetVisualGearValues', @lc_getvisualgearvalues); |
3310 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |
3328 lua_register(luaState, _P'SetVisualGearValues', @lc_setvisualgearvalues); |
3311 lua_register(luaState, _P'GetGearValues', @lc_getgearvalues); |
3329 lua_register(luaState, _P'GetGearValues', @lc_getgearvalues); |
3312 lua_register(luaState, _P'SetGearValues', @lc_setgearvalues); |
3330 lua_register(luaState, _P'SetGearValues', @lc_setgearvalues); |
3313 lua_register(luaState, _P'SpawnHealthCrate', @lc_spawnhealthcrate); |
3331 lua_register(luaState, _P'SpawnHealthCrate', @lc_spawnhealthcrate); |