242 lua_pushinteger(L, ord(gear^.Kind)) |
242 lua_pushinteger(L, ord(gear^.Kind)) |
243 else |
243 else |
244 lua_pushnil(L); |
244 lua_pushnil(L); |
245 end; |
245 end; |
246 lc_getgeartype:= 1 |
246 lc_getgeartype:= 1 |
|
247 end; |
|
248 |
|
249 function lc_getgearmessage(L : Plua_State) : LongInt; Cdecl; |
|
250 var gear : PGear; |
|
251 begin |
|
252 if lua_gettop(L) <> 1 then |
|
253 begin |
|
254 LuaError('Lua: Wrong number of parameters passed to GetGearMessage!'); |
|
255 lua_pushnil(L); // return value on stack (nil) |
|
256 end |
|
257 else |
|
258 begin |
|
259 gear:= GearByUID(lua_tointeger(L, 1)); |
|
260 if gear <> nil then |
|
261 lua_pushinteger(L, gear^.message) |
|
262 else |
|
263 lua_pushnil(L); |
|
264 end; |
|
265 lc_getgearmessage:= 1 |
247 end; |
266 end; |
248 |
267 |
249 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
268 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
250 var gear : PGear; |
269 var gear : PGear; |
251 begin |
270 begin |
1016 ScriptSetInteger('gfKing', gfKing); |
1035 ScriptSetInteger('gfKing', gfKing); |
1017 ScriptSetInteger('gfPlaceHog', gfPlaceHog); |
1036 ScriptSetInteger('gfPlaceHog', gfPlaceHog); |
1018 ScriptSetInteger('gfSharedAmmo', gfSharedAmmo); |
1037 ScriptSetInteger('gfSharedAmmo', gfSharedAmmo); |
1019 ScriptSetInteger('gfDisableGirders', gfDisableGirders); |
1038 ScriptSetInteger('gfDisableGirders', gfDisableGirders); |
1020 ScriptSetInteger('gfExplosives', gfExplosives); |
1039 ScriptSetInteger('gfExplosives', gfExplosives); |
|
1040 |
|
1041 ScriptSetInteger('gm_Left', gm_Left); |
|
1042 ScriptSetInteger('gm_Right', gm_Right); |
|
1043 ScriptSetInteger('gm_Up', gm_Up); |
|
1044 ScriptSetInteger('gm_Down', gm_Down); |
|
1045 ScriptSetInteger('gm_Switch', gm_Switch); |
|
1046 ScriptSetInteger('gm_Attack', gm_Attack); |
|
1047 ScriptSetInteger('gm_LJump', gm_LJump); |
|
1048 ScriptSetInteger('gm_HJump', gm_HJump); |
|
1049 ScriptSetInteger('gm_Destroy', gm_Destroy); |
|
1050 ScriptSetInteger('gm_Slot', gm_Slot); |
|
1051 ScriptSetInteger('gm_Weapon', gm_Weapon); |
|
1052 ScriptSetInteger('gm_Timer', gm_Timer); |
|
1053 ScriptSetInteger('gm_Animate', gm_Animate); |
|
1054 ScriptSetInteger('gm_Precise', gm_Precise); |
|
1055 ScriptSetInteger('gmAllStoppable', gmAllStoppable); |
|
1056 |
1021 |
1057 |
1022 // speech bubbles |
1058 // speech bubbles |
1023 ScriptSetInteger('SAY_SAY', 1); |
1059 ScriptSetInteger('SAY_SAY', 1); |
1024 ScriptSetInteger('SAY_THINK', 2); |
1060 ScriptSetInteger('SAY_THINK', 2); |
1025 ScriptSetInteger('SAY_SHOUT', 3); |
1061 ScriptSetInteger('SAY_SHOUT', 3); |
1078 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1114 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1079 lua_register(luaState, 'HogSay', @lc_hogsay); |
1115 lua_register(luaState, 'HogSay', @lc_hogsay); |
1080 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1116 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1081 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1117 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1082 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1118 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
|
1119 lua_register(luaState, 'GearGetMessage', @lc_getgearmessage); |
1083 |
1120 |
1084 |
1121 |
1085 ScriptClearStack; // just to be sure stack is empty |
1122 ScriptClearStack; // just to be sure stack is empty |
1086 ScriptLoaded:= false; |
1123 ScriptLoaded:= false; |
1087 end; |
1124 end; |