1161 lua_pushnil(L); |
1161 lua_pushnil(L); |
1162 end |
1162 end |
1163 else |
1163 else |
1164 lua_pushboolean(L, hasBorder); |
1164 lua_pushboolean(L, hasBorder); |
1165 lc_maphasborder:= 1 |
1165 lc_maphasborder:= 1 |
|
1166 end; |
|
1167 |
|
1168 function lc_getgearradius(L : Plua_State) : LongInt; Cdecl; |
|
1169 var gear : PGear; |
|
1170 begin |
|
1171 if lua_gettop(L) <> 1 then |
|
1172 begin |
|
1173 LuaError('Lua: Wrong number of parameters passed to GetGearRadius!'); |
|
1174 lua_pushnil(L); // return value on stack (nil) |
|
1175 end |
|
1176 else |
|
1177 begin |
|
1178 gear:= GearByUID(lua_tointeger(L, 1)); |
|
1179 if gear <> nil then |
|
1180 lua_pushinteger(L, gear^.Radius) |
|
1181 else |
|
1182 lua_pushnil(L); |
|
1183 end; |
|
1184 lc_getgearradius:= 1 |
1166 end; |
1185 end; |
1167 /////////////////// |
1186 /////////////////// |
1168 |
1187 |
1169 procedure ScriptPrintStack; |
1188 procedure ScriptPrintStack; |
1170 var n, i : LongInt; |
1189 var n, i : LongInt; |
1569 lua_register(luaState, 'SwitchHog', @lc_switchhog); |
1588 lua_register(luaState, 'SwitchHog', @lc_switchhog); |
1570 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1589 lua_register(luaState, 'HogTurnLeft', @lc_hogturnleft); |
1571 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1590 lua_register(luaState, 'CampaignLock', @lc_campaignlock); |
1572 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1591 lua_register(luaState, 'CampaignUnlock', @lc_campaignunlock); |
1573 lua_register(luaState, 'GetGearElasticity', @lc_getgearelasticity); |
1592 lua_register(luaState, 'GetGearElasticity', @lc_getgearelasticity); |
|
1593 lua_register(luaState, 'GetGearRadius', @lc_getgearradius); |
1574 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage); |
1594 lua_register(luaState, 'GetGearMessage', @lc_getgearmessage); |
1575 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage); |
1595 lua_register(luaState, 'SetGearMessage', @lc_setgearmessage); |
1576 lua_register(luaState, 'GetRandom', @lc_getrandom); |
1596 lua_register(luaState, 'GetRandom', @lc_getrandom); |
1577 lua_register(luaState, 'SetWind', @lc_setwind); |
1597 lua_register(luaState, 'SetWind', @lc_setwind); |
1578 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |
1598 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |