261 lua_pushinteger(L, gear^.message) |
261 lua_pushinteger(L, gear^.message) |
262 else |
262 else |
263 lua_pushnil(L); |
263 lua_pushnil(L); |
264 end; |
264 end; |
265 lc_getgearmessage:= 1 |
265 lc_getgearmessage:= 1 |
|
266 end; |
|
267 |
|
268 function lc_setgearmessage(L : Plua_State) : LongInt; Cdecl; |
|
269 var gear : PGear; |
|
270 begin |
|
271 if lua_gettop(L) <> 2 then |
|
272 LuaError('Lua: Wrong number of parameters passed to SetGearMessage!') |
|
273 else |
|
274 begin |
|
275 gear:= GearByUID(lua_tointeger(L, 1)); |
|
276 if gear <> nil then |
|
277 gear^.message:= lua_tointeger(L, 2); |
|
278 end; |
|
279 lc_setgearmessage:= 0 |
266 end; |
280 end; |
267 |
281 |
268 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
282 function lc_gethoglevel(L : Plua_State): LongInt; Cdecl; |
269 var gear : PGear; |
283 var gear : PGear; |
270 begin |
284 begin |
1114 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1128 lua_register(luaState, 'GetZoom', @lc_getzoom); |
1115 lua_register(luaState, 'HogSay', @lc_hogsay); |
1129 lua_register(luaState, 'HogSay', @lc_hogsay); |
1116 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1130 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1117 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1131 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1118 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1132 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1119 lua_register(luaState, 'GearGetMessage', @lc_getgearmessage); |
1133 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage); |
|
1134 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage); |
1120 |
1135 |
1121 |
1136 |
1122 ScriptClearStack; // just to be sure stack is empty |
1137 ScriptClearStack; // just to be sure stack is empty |
1123 ScriptLoaded:= false; |
1138 ScriptLoaded:= false; |
1124 end; |
1139 end; |