Function lspo_gas_cloud

src/sp_lev.c:4928–4965

gas_cloud({ selection=SELECTION }); */ gas_cloud({ selection=SELECTION, damage=N }); */ gas_cloud({ selection=SELECTION, damage=N, ttl=N }); */

/* gas_cloud({ selection=SELECTION, damage=N }); */
/* gas_cloud({ selection=SELECTION, damage=N, ttl=N }); */
int
lspo_gas_cloud(lua_State *L)
{
    coordxy x = 0, y = 0;
    struct selectionvar *sel = NULL;
    int argc = lua_gettop(L);
    int damage = 0;
    int ttl = -2;

    create_des_coder();

    if (argc == 1 && lua_type(L, 1) == LUA_TTABLE) {
        lua_Integer tx, ty;
        NhRegion *reg;

        lcheck_param_table(L);

        get_table_xy_or_coord(L, &tx, &ty);
        x = tx, y = ty;
        if (tx == -1 && ty == -1) {
            lua_getfield(L, 1, "selection");
            sel = l_selection_check(L, -1);
            lua_pop(L, 1);
        }
        damage = get_table_int_opt(L, "damage", 0);
        ttl = get_table_int_opt(L, "ttl", -2);
        if (!sel) {
            reg = create_gas_cloud(x, y, 1, damage);
        } else
            reg = create_gas_cloud_selection(sel, damage);
        if (ttl > -2)
            reg->ttl = ttl;
    } else {
        nhl_error(L, "wrong parameters");
    }

    return 0;
}


/*