Function lspo_exclusion

src/sp_lev.c:5497–5532

exclusion({ type = "teleport", region = { x1,y1, x2,y2 } }); */

/* exclusion({ type = "teleport", region = { x1,y1, x2,y2 } }); */
int
lspo_exclusion(lua_State *L)
{
    static const char *const ez_types[] = {
        "teleport", "teleport-up", "teleport-down", "monster-generation", NULL
    };
    static const int ez_types2i[] = {
        LR_TELE, LR_UPTELE, LR_DOWNTELE, LR_MONGEN, 0
    };
    struct exclusion_zone *ez = (struct exclusion_zone *) alloc(sizeof *ez);
    lua_Integer x1,y1,x2,y2;
    coordxy a1,b1,a2,b2;

    create_des_coder();
    lcheck_param_table(L);
    ez->zonetype = ez_types2i[get_table_option(L, "type", "teleport",
                                                      ez_types)];
    get_table_region(L, "region", &x1, &y1, &x2, &y2, FALSE);

    a1 = x1, b1 = y1;
    a2 = x2, b2 = y2;

    get_location_coord(&a1, &b1, ANY_LOC|NO_LOC_WARN, gc.coder->croom,
                       SP_COORD_PACK(a1, b1));
    get_location_coord(&a2, &b2, ANY_LOC|NO_LOC_WARN, gc.coder->croom,
                       SP_COORD_PACK(a2, b2));

    ez->lx = a1;
    ez->ly = b1;
    ez->hx = a2;
    ez->hy = b2;

    ez->next = sve.exclusion_zones;
    sve.exclusion_zones = ez;
    return 0;
}

staticfn void
sel_set_lit(coordxy x, coordxy y, genericptr_t arg)