empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't permit work command to spend more money than available

Browse source 
Stop work() when there's not enough money left for the current
engineer.
This commit is contained in:
Markus Armbruster 2008-08-03 16:54:14 -04:00
parent ede42fb9ce
commit 3615cfc8ac
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/lib/commands/work.c
View file

@ -49,6 +49,8 @@ work(void)
int work_amt, eff_amt, w;
char *p;
char buf[1024];
double cost;
struct natstr *natp = getnatp(player->cnum);
if (!snxtitem(&ni, EF_LAND, player->argp[1], NULL))
return RET_SYN;
@ -83,11 +85,18 @@ work(void)
prland(&land));
continue;
}
nunits++;
eff_amt = ((6 * buildeff(&sect, w, &player->dolcost)) /
(land.lnd_effic / 100.0));
cost = 0.0;
w = buildeff(&sect, w, &cost);
if (player->dolcost + cost > natp->nat_money) {
pr("You can't afford to work that much in %s!\n",
xyas(land.lnd_x, land.lnd_y, player->cnum));
break;
}
player->dolcost += cost;
eff_amt = ((6 * w) / (land.lnd_effic / 100.0));
land.lnd_mission = 0;
land.lnd_mobil -= eff_amt;
nunits++;
pr("%s %s efficiency at %s to %d\n",
prland(&land),
sect.sct_type == sect.sct_newtype ? "raised" : "lowered",