Function l_obj_new_readobjnam

src/nhlobj.c:349–384

/* local o = obj.new("rock"); */
/* local o = obj.new({ id = "food ration", class = "%" }); */
staticfn int
l_obj_new_readobjnam(lua_State *L)
{
    int argc = lua_gettop(L);

    if (argc == 1 && lua_type(L, 1) == LUA_TSTRING) {
        char buf[BUFSZ];
        struct obj *otmp;

        Sprintf(buf, "%s", luaL_checkstring(L, 1));
        lua_pop(L, 1);
        if ((otmp = readobjnam(buf, NULL)) == &hands_obj)
            otmp = NULL;
        (void) l_obj_push(L, otmp);
        return 1;
    } else if (argc == 1 && lua_type(L, 1) == LUA_TTABLE) {
        short id = get_table_objtype(L);
        xint16 class = get_table_objclass(L);
        struct obj *otmp;

        if (id >= FIRST_OBJECT) {
            otmp = mksobj(id, TRUE, FALSE);
        } else {
            class = def_char_to_objclass(class);
            if (class >= MAXOCLASSES)
                class = RANDOM_CLASS;
            otmp = mkobj(class, FALSE);
        }
        lua_pop(L, 1);
        (void) l_obj_push(L, otmp);
        return 1;
    } else
        nhl_error(L, "l_obj_new_readobjname: Wrong args");
    /*NOTREACHED*/
    return 0;
}

/* Get the topmost object on the map at x,y */
/* local o = obj.at(x, y); */