lifning/SRB2
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Added six new functions from p_spec.c/h to Lua

Browse source
This commit is contained in:
Monster Iestyn 2017-10-30 20:09:41 +00:00
parent 94b7d564e7
commit 1d11797b47
1 changed files with 78 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
src/lua_baselib.c
View file

@ -1655,6 +1655,78 @@ static int lib_pPlayerTouchingSectorSpecial(lua_State *L)
return 1; return 1;
} }
static int lib_pFindLowestFloorSurrounding(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
lua_pushfixed(L, P_FindLowestFloorSurrounding(sector));
return 1;
}
static int lib_pFindHighestFloorSurrounding(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
lua_pushfixed(L, P_FindHighestFloorSurrounding(sector));
return 1;
}
static int lib_pFindNextHighestFloor(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
fixed_t currentheight;
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
// defaults to floorheight of sector arg
currentheight = (fixed_t)luaL_optinteger(L, 2, sector->floorheight);
lua_pushfixed(L, P_FindNextHighestFloor(sector, currentheight));
return 1;
}
static int lib_pFindNextLowestFloor(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
fixed_t currentheight;
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
// defaults to floorheight of sector arg
currentheight = (fixed_t)luaL_optinteger(L, 2, sector->floorheight);
lua_pushfixed(L, P_FindNextLowestFloor(sector, currentheight));
return 1;
}
static int lib_pFindLowestCeilingSurrounding(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
lua_pushfixed(L, P_FindLowestCeilingSurrounding(sector));
return 1;
}
static int lib_pFindHighestCeilingSurrounding(lua_State *L)
{
sector_t *sector = *((sector_t **)luaL_checkudata(L, 1, META_SECTOR));
//HUDSAFE
INLEVEL
if (!sector)
return LUA_ErrInvalid(L, "sector_t");
lua_pushfixed(L, P_FindHighestCeilingSurrounding(sector));
return 1;
}
static int lib_pFindSpecialLineFromTag(lua_State *L) static int lib_pFindSpecialLineFromTag(lua_State *L)
{ {
INT16 special = (INT16)luaL_checkinteger(L, 1); INT16 special = (INT16)luaL_checkinteger(L, 1);
@ -2512,6 +2584,12 @@ static luaL_Reg lib[] = {
{"P_DoSuperTransformation",lib_pDoSuperTransformation}, {"P_DoSuperTransformation",lib_pDoSuperTransformation},
{"P_ExplodeMissile",lib_pExplodeMissile}, {"P_ExplodeMissile",lib_pExplodeMissile},
{"P_PlayerTouchingSectorSpecial",lib_pPlayerTouchingSectorSpecial}, {"P_PlayerTouchingSectorSpecial",lib_pPlayerTouchingSectorSpecial},
{"P_FindLowestFloorSurrounding",lib_pFindLowestFloorSurrounding},
{"P_FindHighestFloorSurrounding",lib_pFindHighestFloorSurrounding},
{"P_FindNextHighestFloor",lib_pFindNextHighestFloor},
{"P_FindNextLowestFloor",lib_pFindNextLowestFloor},
{"P_FindLowestCeilingSurrounding",lib_pFindLowestCeilingSurrounding},
{"P_FindHighestCeilingSurrounding",lib_pFindHighestCeilingSurrounding},
{"P_FindSpecialLineFromTag",lib_pFindSpecialLineFromTag}, {"P_FindSpecialLineFromTag",lib_pFindSpecialLineFromTag},
{"P_SwitchWeather",lib_pSwitchWeather}, {"P_SwitchWeather",lib_pSwitchWeather},
{"P_LinedefExecute",lib_pLinedefExecute}, {"P_LinedefExecute",lib_pLinedefExecute},