equal
deleted
inserted
replaced
1282 TryPlaceOnLand( |
1282 TryPlaceOnLand( |
1283 lua_tointeger(L, 1) - SpritesData[sprAmGirder].Width div 2, |
1283 lua_tointeger(L, 1) - SpritesData[sprAmGirder].Width div 2, |
1284 lua_tointeger(L, 2) - SpritesData[sprAmGirder].Height div 2, |
1284 lua_tointeger(L, 2) - SpritesData[sprAmGirder].Height div 2, |
1285 sprAmGirder, lua_tointeger(L, 3), true, false); |
1285 sprAmGirder, lua_tointeger(L, 3), true, false); |
1286 lc_placegirder:= 0 |
1286 lc_placegirder:= 0 |
|
1287 end; |
|
1288 |
|
1289 function lc_getcurammotype(L : Plua_State): LongInt; Cdecl; |
|
1290 var gear : PGear; |
|
1291 begin |
|
1292 if lua_gettop(L) <> 0 then |
|
1293 LuaError('Lua: Wrong number of parameters passed to GetCurAmmoType!') |
|
1294 else |
|
1295 lua_pushinteger(L, ord(CurrentHedgehog^.CurAmmoType)); |
|
1296 lc_getcurammotype := 1; |
1287 end; |
1297 end; |
1288 /////////////////// |
1298 /////////////////// |
1289 |
1299 |
1290 procedure ScriptPrintStack; |
1300 procedure ScriptPrintStack; |
1291 var n, i : LongInt; |
1301 var n, i : LongInt; |
1703 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |
1713 lua_register(luaState, 'GetDataPath', @lc_getdatapath); |
1704 lua_register(luaState, 'MapHasBorder', @lc_maphasborder); |
1714 lua_register(luaState, 'MapHasBorder', @lc_maphasborder); |
1705 lua_register(luaState, 'GetHogHat', @lc_gethoghat); |
1715 lua_register(luaState, 'GetHogHat', @lc_gethoghat); |
1706 lua_register(luaState, 'SetHogHat', @lc_sethoghat); |
1716 lua_register(luaState, 'SetHogHat', @lc_sethoghat); |
1707 lua_register(luaState, 'PlaceGirder', @lc_placegirder); |
1717 lua_register(luaState, 'PlaceGirder', @lc_placegirder); |
|
1718 lua_register(luaState, 'GetCurAmmoType', @lc_getcurammotype); |
1708 |
1719 |
1709 |
1720 |
1710 ScriptClearStack; // just to be sure stack is empty |
1721 ScriptClearStack; // just to be sure stack is empty |
1711 ScriptLoaded:= false; |
1722 ScriptLoaded:= false; |
1712 end; |
1723 end; |