Function lspo_wall_property

src/sp_lev.c:5871–5908

}

RESTORE_WARNING_UNREACHABLE_CODE

/* wall_property({ x1=0, y1=0, x2=78, y2=20, property="nondiggable" }); */
/* wall_property({ region = {1,0, 78,20}, property="nonpasswall" }); */
int
lspo_wall_property(lua_State *L)
{
    static const char *const wprops[] = {
        "nondiggable", "nonpasswall", NULL
    };
    static const int wprop2i[] = { W_NONDIGGABLE, W_NONPASSWALL, -1 };
    coordxy dx1 = -1, dy1 = -1, dx2 = -1, dy2 = -1;
    int wprop;

    create_des_coder();

    lcheck_param_table(L);

    get_table_coords_or_region(L, &dx1, &dy1, &dx2, &dy2);

    wprop = wprop2i[get_table_option(L, "property", "nondiggable", wprops)];

    if (dx1 == -1)
        dx1 = gx.xstart - 1;
    if (dy1 == -1)
        dy1 = gy.ystart - 1;
    if (dx2 == -1)
        dx2 = gx.xstart + gx.xsize + 1;
    if (dy2 == -1)
        dy2 = gy.ystart + gy.ysize + 1;

    get_location(&dx1, &dy1, ANY_LOC, (struct mkroom *) 0);
    get_location(&dx2, &dy2, ANY_LOC, (struct mkroom *) 0);

    set_wall_property(dx1, dy1, dx2, dy2, wprop);

    return 0;
}

staticfn void
set_wallprop_in_selection(lua_State *L, int prop)