Function lspo_object

src/sp_lev.c:3556–3755

object(); */ object("sack"); */ object("scimitar", 6,7); */ object("scimitar", {6,7}); */ object({ class = "%" }); */ object({ id = "boulder", x = 03, y = 12}); */ object({ id = "boulder", coord = {03,12} }); */

/* object({ id = "boulder", x = 03, y = 12}); */
/* object({ id = "boulder", coord = {03,12} }); */
int
lspo_object(lua_State *L)
{
    static object zeroobject = {
            { 0 },   /* Str_or_len name */
            0,       /* corpsenm */
            0, 0,    /* id, spe */
            0,       /* coord */
            0, 0,    /* coordxy x,y */
            0, 0,    /* class, containment */
            0,       /* curse_state */
            0,       /* quan */
            0,       /* buried */
            0,       /* lit */
            0, 0, 0, 0, 0, /* eroded, locked, trapped, tknown, recharged */
            0, 0, 0, 0, /* invis, greased, broken, achievement */
    };
#if 0
    int nparams = 0;
#endif
    long quancnt;
    object tmpobj;
    lua_Integer ox = -1, oy = -1;
    int argc = lua_gettop(L);
    int maybe_contents = 0;
    struct obj *otmp = NULL;

    create_des_coder();

    tmpobj = zeroobject;
    tmpobj.name.str = (char *) 0;
    tmpobj.spe = -127;
    tmpobj.quan = -1;
    tmpobj.trapped = -1;
    tmpobj.tknown = -1;
    tmpobj.locked = -1;
    tmpobj.corpsenm = NON_PM;

    if (argc == 1 && lua_type(L, 1) == LUA_TSTRING) {
        const char *paramstr = luaL_checkstring(L, 1);

        if (strlen(paramstr) == 1) {
            tmpobj.class = *paramstr;
            tmpobj.id = STRANGE_OBJECT;
        } else {
            tmpobj.class = -1;
            tmpobj.id = find_objtype(L, paramstr, -1);
        }
    } else if (argc == 2 && lua_type(L, 1) == LUA_TSTRING
               && lua_type(L, 2) == LUA_TTABLE) {
        const char *paramstr = luaL_checkstring(L, 1);

        (void) get_coord(L, 2, &ox, &oy);

        if (strlen(paramstr) == 1) {
            tmpobj.class = *paramstr;
            tmpobj.id = STRANGE_OBJECT;
        } else {