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

Indented with src/scripts/indent-emp.

Browse source
This commit is contained in:
Markus Armbruster 2003-09-02 20:48:48 +00:00
parent 5f263a7753
commit 9b7adfbecc
437 changed files with 52211 additions and 51052 deletions
Download patch file Download diff file Expand all files Collapse all files

136
src/lib/subs/caploss.c
View file

@ -49,81 +49,73 @@
void
caploss(struct sctstr *sp, natid coun, s_char *msg)
{
struct natstr *natp;
struct lonstr loan;
struct comstr comm;
long lose;
long gain;
struct sctstr sect;
int n;
int loan_num = 0;
int comm_num = 0;
struct natstr *natp;
struct lonstr loan;
struct comstr comm;
long lose;
long gain;
struct sctstr sect;
int n;
int loan_num = 0;
int comm_num = 0;
if (coun == 0) return;
natp = getnatp(coun);
if ((xrel(natp,natp->nat_xcap) != xrel(natp,sp->sct_x)) ||
(yrel(natp,natp->nat_ycap) != yrel(natp,sp->sct_y)))
return;
if (coun == player->cnum) {
player->nstat &= ~CAP;
return;
}
/* Ok, has the country owner reset their capital yet after it was last sacked? */
if (natp->nat_flags & NF_SACKED)
return; /* No, so not really the capital yet, so return */
pr(msg, natp->nat_cnam);
gain = lose = natp->nat_money / 2;
if (lose < 3000)
lose = 3000;
n = roll(6);
getsect(sp->sct_x + diroff[n][0],
sp->sct_y + diroff[n][1],
&sect);
natp->nat_xcap = sect.sct_x;
natp->nat_ycap = sect.sct_y;
natp->nat_money -= lose;
/* Your capital has now been sacked, no more sacking until you reset it */
natp->nat_flags |= NF_SACKED;
putnat(natp);
wu(0, coun,
"* %s just sacked your capital! *\n",
cname(player->cnum));
if (gain >= 0) {
gain = (0.2 + 0.8 * (sp->sct_effic/100.0)) * gain;
player->dolcost -= gain;
} else
gain = 0;
wu(0, coun,
"You lost $%d and they gained $%d\n",
lose, gain);
wu(0, coun,
"Your capital has been moved to %s. You must use 'capital' to reset it.\n",
xyas(natp->nat_xcap, natp->nat_ycap, coun));
wu(0, 0, "%s just took %s's capital and gained $%d\n",
cname(player->cnum), cname(coun),
-(int)(player->dolcost));
if (opt_LOANS) {
for (loan_num = 0; getloan(loan_num, &loan); loan_num++) {
if (loan.l_ldur != 0 && loan.l_loner == coun) {
loan.l_loner = player->cnum;
putloan(loan_num, &loan);
pr("Loan %d has been transfered over to you\n",
loan_num);
}
if (coun == 0)
return;
natp = getnatp(coun);
if ((xrel(natp, natp->nat_xcap) != xrel(natp, sp->sct_x)) ||
(yrel(natp, natp->nat_ycap) != yrel(natp, sp->sct_y)))
return;
if (coun == player->cnum) {
player->nstat &= ~CAP;
return;
}
/* Ok, has the country owner reset their capital yet after it was last sacked? */
if (natp->nat_flags & NF_SACKED)
return; /* No, so not really the capital yet, so return */
pr(msg, natp->nat_cnam);
gain = lose = natp->nat_money / 2;
if (lose < 3000)
lose = 3000;
n = roll(6);
getsect(sp->sct_x + diroff[n][0], sp->sct_y + diroff[n][1], &sect);
natp->nat_xcap = sect.sct_x;
natp->nat_ycap = sect.sct_y;
natp->nat_money -= lose;
/* Your capital has now been sacked, no more sacking until you reset it */
natp->nat_flags |= NF_SACKED;
putnat(natp);
wu(0, coun, "* %s just sacked your capital! *\n", cname(player->cnum));
if (gain >= 0) {
gain = (0.2 + 0.8 * (sp->sct_effic / 100.0)) * gain;
player->dolcost -= gain;
} else
gain = 0;
wu(0, coun, "You lost $%d and they gained $%d\n", lose, gain);
wu(0, coun,
"Your capital has been moved to %s. You must use 'capital' to reset it.\n",
xyas(natp->nat_xcap, natp->nat_ycap, coun));
wu(0, 0, "%s just took %s's capital and gained $%d\n",
cname(player->cnum), cname(coun), -(int)(player->dolcost));
if (opt_LOANS) {
for (loan_num = 0; getloan(loan_num, &loan); loan_num++) {
if (loan.l_ldur != 0 && loan.l_loner == coun) {
loan.l_loner = player->cnum;
putloan(loan_num, &loan);
pr("Loan %d has been transfered over to you\n", loan_num);
}
}
if (opt_MARKET) {
for (comm_num = 0; getcomm(comm_num, &comm); comm_num++) {
if (comm.com_owner == coun) {
if (comm.com_owner == comm.com_maxbidder)
comm.com_maxbidder = player->cnum;
comm.com_owner = player->cnum;
putcomm(comm_num, &comm);
pr("You now own commodity #%d.\n",
comm_num);
}
}
if (opt_MARKET) {
for (comm_num = 0; getcomm(comm_num, &comm); comm_num++) {
if (comm.com_owner == coun) {
if (comm.com_owner == comm.com_maxbidder)
comm.com_maxbidder = player->cnum;
comm.com_owner = player->cnum;
putcomm(comm_num, &comm);
pr("You now own commodity #%d.\n", comm_num);
}
}
nreport(player->cnum, N_SACK_CAP, coun, 1);
}
nreport(player->cnum, N_SACK_CAP, coun, 1);
}