Function lspo_gold

src/sp_lev.c:4472–4522

}

DISABLE_WARNING_UNREACHABLE_CODE

/* gold(500, 3,5); */
/* gold(500, {5, 6}); */
/* gold({ amount = 500, x = 2, y = 5 });*/
/* gold({ amount = 500, coord = {2, 5} });*/
/* gold(); */
int
lspo_gold(lua_State *L)
{
    int argc = lua_gettop(L);
    coordxy x, y;
    long amount;
    long gcoord;
    lua_Integer gldx, gldy;

    create_des_coder();

    if (argc == 3) {
        amount = luaL_checkinteger(L, 1);
        x = gldx = luaL_checkinteger(L, 2);
        y = gldy = luaL_checkinteger(L, 3);
    } else if (argc == 2 && lua_type(L, 2) == LUA_TTABLE) {
        amount = luaL_checkinteger(L, 1);
        (void) get_coord(L, 2, &gldx, &gldy);
        x = gldx;
        y = gldy;
    } else if (argc == 0 || (argc == 1 && lua_type(L, 1) == LUA_TTABLE)) {
        lcheck_param_table(L);

        amount = get_table_int_opt(L, "amount", -1);
        get_table_xy_or_coord(L, &gldx, &gldy);
        x = gldx, y = gldy;
    } else {
        nhl_error(L, "Wrong parameters");
        /*NOTREACHED*/
        return 0;
    }

    if (x == -1 && y == -1)
        gcoord = SP_COORD_PACK_RANDOM(0);
    else
        gcoord = SP_COORD_PACK(gldx, gldy);

    get_location_coord(&x, &y, DRY, gc.coder->croom, gcoord);
    if (amount < 0)
        amount = rnd(200);
    mkgold(amount, x, y);

    return 0;
}

RESTORE_WARNING_UNREACHABLE_CODE