nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity

Lua: allow obj chain iteration

Browse Source
This commit is contained in:
Pasi Kallinen
2022-03-15 18:24:49 +02:00
parent e33dd11e99
commit bdc81ab389
2 changed files with 25 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/nhlobj.c
View File

@@ -399,15 +399,28 @@ l_obj_placeobj(lua_State *L)
/* Get the next object in the object chain */
/* local o = obj.at(x, y);
local o2 = o:next();
local o2 = o:next(true);
local firstobj = obj.next();
*/
static int
l_obj_nextobj(lua_State *L)
{
struct _lua_obj *lo = l_obj_check(L, 1);
int argc = lua_gettop(L);
if (lo && lo->obj)
(void) l_obj_push(L, lo->obj->where == OBJ_FLOOR ? lo->obj->nexthere : lo->obj->nobj);
if (argc == 0) {
(void) l_obj_push(L, fobj);
} else {
struct _lua_obj *lo = l_obj_check(L, 1);
boolean use_nexthere = FALSE;
if (argc == 2)
use_nexthere = lua_toboolean(L, 2);
if (lo && lo->obj)
(void) l_obj_push(L, (use_nexthere && lo->obj->where == OBJ_FLOOR)
? lo->obj->nexthere
: lo->obj->nobj);
}
return 1;
}