Fix work command not to spend more mobility than requested

Culprit is careless rounding in work().

diff --git a/src/lib/commands/work.c b/src/lib/commands/work.c
index 8ab3780649f7cc22c8be6508d3d8ce6220e3dc98..ba9022cfbc22a9e472ad854dd0f82b91f4fa774f 100644 (file)
--- a/src/lib/commands/work.c
+++ b/src/lib/commands/work.c
@@ -79,7 +79,7 @@ work(void)
            continue;
        }
        eff_amt = MIN(land.lnd_mobil, work_amt);
-       w = ldround(((double)eff_amt * land.lnd_effic / 600.0), 1);
+       w = (eff_amt * land.lnd_effic) / 600;
        if (w < 1) {
            pr("%s doesn't work enough to change efficiency (try increasing amount)\n",
               prland(&land));