Import of Empire 4.2.12
This commit is contained in:
commit
d8b7fdfae1
817 changed files with 126589 additions and 0 deletions
172
src/lib/commands/anti.c
Normal file
172
src/lib/commands/anti.c
Normal file
|
|
@ -0,0 +1,172 @@
|
|||
/*
|
||||
* Empire - A multi-player, client/server Internet based war game.
|
||||
* Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
|
||||
* Ken Stevens, Steve McClure
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
*
|
||||
* ---
|
||||
*
|
||||
* See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
|
||||
* related information and legal notices. It is expected that any future
|
||||
* projects/authors will amend these files as needed.
|
||||
*
|
||||
* ---
|
||||
*
|
||||
* anti.c: Take action against che
|
||||
*
|
||||
* Known contributors to this file:
|
||||
* Pat Loney, 1992
|
||||
* Steve McClure, 1997
|
||||
*/
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <ctype.h>
|
||||
#include "misc.h"
|
||||
#include "player.h"
|
||||
#include "var.h"
|
||||
#include "xy.h"
|
||||
#include "sect.h"
|
||||
#include "nat.h"
|
||||
#include "news.h"
|
||||
#include "nsc.h"
|
||||
#include "item.h"
|
||||
#include "file.h"
|
||||
#include "commands.h"
|
||||
#include "optlist.h"
|
||||
|
||||
extern int etu_per_update;
|
||||
extern int sect_mob_neg_factor;
|
||||
/*
|
||||
* format: anti <SECT>
|
||||
*/
|
||||
int
|
||||
anti(void)
|
||||
{
|
||||
struct sctstr sect;
|
||||
int nsect;
|
||||
struct nstr_sect nstr;
|
||||
int cond[I_MAX+1];
|
||||
int mil, che, target;
|
||||
int avail_mil;
|
||||
int amil, ache;
|
||||
int milkilled, chekilled;
|
||||
double odds, damil, dache;
|
||||
int mob;
|
||||
int n_cheleft;
|
||||
extern double hap_fact();
|
||||
|
||||
if (!snxtsct(&nstr, player->argp[1]))
|
||||
return RET_SYN;
|
||||
prdate();
|
||||
nsect = 0;
|
||||
while (nxtsct(&nstr, §)) {
|
||||
if (!player->owner)
|
||||
continue;
|
||||
if (nsect++ == 0) {
|
||||
pr(" sect subversion activity report\n");
|
||||
pr(" ---- --------------------------\n");
|
||||
}
|
||||
getvec(VT_COND, cond, (char *)§, EF_SECTOR);
|
||||
mil = getvar(V_MILIT, (char *)§, EF_SECTOR);
|
||||
che = get_che_value(cond[C_CHE]);
|
||||
target = get_che_cnum(cond[C_CHE]);
|
||||
avail_mil = sect.sct_mobil/2;
|
||||
if (mil <= avail_mil)
|
||||
avail_mil = mil;
|
||||
prxy("%4d,%-4d ", sect.sct_x, sect.sct_y, player->cnum);
|
||||
if (avail_mil <= 0) {
|
||||
pr("No available mil or mob in sector.\n");
|
||||
continue;
|
||||
}
|
||||
pr("Sector mobility/troop strength will allow %d troops to engage.\n",
|
||||
avail_mil);
|
||||
|
||||
if (target == player->cnum) {
|
||||
amil = mil;
|
||||
ache = che;
|
||||
milkilled = 0;
|
||||
chekilled = 0;
|
||||
mob = sect.sct_mobil;
|
||||
while (amil != 0 && ache != 0 && mob > 1) {
|
||||
damil = amil;
|
||||
dache = ache;
|
||||
odds = (dache * 2.0 / (damil + dache));
|
||||
odds /= hap_fact(getnatp(sect.sct_own),getnatp(sect.sct_oldown));
|
||||
mob = mob - 2;
|
||||
if (chance(odds)) {
|
||||
amil = amil - 1;
|
||||
milkilled = milkilled + 1;
|
||||
} else {
|
||||
ache = ache - 1;
|
||||
chekilled = chekilled + 1;
|
||||
}
|
||||
}
|
||||
if (mil - milkilled > 0) {
|
||||
sect.sct_mobil = sect.sct_mobil - chekilled - milkilled;
|
||||
putvar(V_MILIT, mil - milkilled, (char *)§,
|
||||
EF_SECTOR);
|
||||
if ( ache == 0 )
|
||||
cond[C_CHE] = 0;
|
||||
set_che_value(cond[C_CHE], ache);
|
||||
putvar(V_CHE, cond[C_CHE], (char *)§, EF_SECTOR);
|
||||
putsect(§);
|
||||
pr(" Body count: Military %d - Guerillas %d.\n",
|
||||
milkilled, chekilled);
|
||||
if (ache == 0) {
|
||||
pr(" Partisans cleared out of this sector for now.\n");
|
||||
} else {
|
||||
pr(" Partisans still active in this sector.\n");
|
||||
}
|
||||
} else {
|
||||
if (opt_MOB_ACCESS) {
|
||||
sect.sct_mobil =
|
||||
-(etu_per_update/sect_mob_neg_factor);
|
||||
} else {
|
||||
sect.sct_mobil = 0;
|
||||
}
|
||||
sect.sct_loyal = sect.sct_loyal * 0.5;
|
||||
n_cheleft = (random() % 4);
|
||||
/* 75% chance some che will get left */
|
||||
if (n_cheleft) {
|
||||
/* Ok, now leave anywhere from 16% to 25% of the che */
|
||||
n_cheleft = (ache / (n_cheleft + 3));
|
||||
ache -= n_cheleft;
|
||||
set_che_value(cond[C_CHE], n_cheleft);
|
||||
} else
|
||||
cond[C_CHE] = 0;
|
||||
putvar(V_MILIT, ache, (char *)§, EF_SECTOR);
|
||||
putvar(V_CHE, cond[C_CHE], (char *)§, EF_SECTOR);
|
||||
if (sect.sct_own == sect.sct_oldown)
|
||||
sect.sct_oldown = 0;
|
||||
makelost(EF_SECTOR, sect.sct_own, 0, sect.sct_x, sect.sct_y);
|
||||
makenotlost(EF_SECTOR, sect.sct_oldown, 0, sect.sct_x, sect.sct_y);
|
||||
sect.sct_own = sect.sct_oldown;
|
||||
sect.sct_off = 1; /* Turn the sector off */
|
||||
putsect(§);
|
||||
pr(" Partisans take over the sector. You blew it.\n");
|
||||
wu(0, sect.sct_oldown,
|
||||
"Sector %s regained from Partisan activity.\n",
|
||||
xyas(nstr.x,nstr.y,sect.sct_oldown));
|
||||
}
|
||||
} else {
|
||||
pr(" Body count: Military 0 - Guerillas 0.\n");
|
||||
pr(" Partisans cleared out of this sector for now.\n");
|
||||
}
|
||||
}
|
||||
pr("%d sector%s\n", nsect, splur(nsect));
|
||||
return RET_OK;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue