Function lspo_engraving

src/sp_lev.c:3880–3936

engraving({ x = 1, y = 1, type="burn", text="Foo" }); */ engraving({ coord={1, 1}, type="burn", text="Foo" }); */ engraving({x,y}, "engrave", "Foo"); */

/* engraving({ coord={1, 1}, type="burn", text="Foo" }); */
/* engraving({x,y}, "engrave", "Foo"); */
int
lspo_engraving(lua_State *L)
{
    static const char *const engrtypes[] = {
        "dust", "engrave", "burn", "mark", "blood", NULL
    };
    static const int engrtypes2i[] = {
        DUST, ENGRAVE, BURN, MARK, ENGR_BLOOD, 0
    };
    int etyp = DUST;
    char *txt = (char *) 0;
    long ecoord;
    coordxy x = -1, y = -1;
    int argc = lua_gettop(L);
    boolean guardobjs = FALSE;
    boolean wipeout = TRUE;
    struct engr *ep;

    create_des_coder();

    if (argc == 1) {
        lua_Integer ex, ey;
        lcheck_param_table(L);

        get_table_xy_or_coord(L, &ex, &ey);
        x = ex;
        y = ey;
        etyp = engrtypes2i[get_table_option(L, "type", "engrave", engrtypes)];
        txt = get_table_str(L, "text");
        wipeout = get_table_boolean_opt(L, "degrade", TRUE);
        guardobjs = get_table_boolean_opt(L, "guardobjects", FALSE);
    } else if (argc == 3) {
        lua_Integer ex, ey;
        (void) get_coord(L, 1, &ex, &ey);
        x = ex;
        y = ey;
        etyp = engrtypes2i[luaL_checkoption(L, 2, "engrave", engrtypes)];
        txt = dupstr(luaL_checkstring(L, 3));
    } else {
        nhl_error(L, "Wrong parameters");
    }

    if (x == -1 && y == -1)
        ecoord = SP_COORD_PACK_RANDOM(0);
    else
        ecoord = SP_COORD_PACK(x, y);

    get_location_coord(&x, &y, DRY, gc.coder->croom, ecoord);
    make_engr_at(x, y, txt, NULL, 0L, etyp);
    Free(txt);
    ep = engr_at(x, y);
    if (ep) {
        ep->guardobjects = guardobjs;
        ep->nowipeout = !wipeout;
    }
    return 0;
}