/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2012, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire 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
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* 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
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
- * 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.
+ * See files README, COPYING and CREDITS in the root of the source
+ * tree for related information and legal notices. It is expected
+ * that 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 <config.h>
-#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 "item.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;
+ struct sctstr sect;
+ int nsect;
+ struct nstr_sect nstr;
+ 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();
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)
+ mil = sect.sct_item[I_MILIT];
+ che = sect.sct_che;
+ target = sect.sct_che_target;
+ avail_mil = sect.sct_mobil / 2;
+ if (mil <= avail_mil)
avail_mil = mil;
- prxy("%4d,%-4d ", sect.sct_x, sect.sct_y, player->cnum);
+ prxy("%4d,%-4d ", sect.sct_x, sect.sct_y);
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;
damil = amil;
dache = ache;
odds = (dache * 2.0 / (damil + dache));
- odds /= hap_fact(getnatp(sect.sct_own),getnatp(sect.sct_oldown));
+ odds /= hap_fact(getnatp(sect.sct_own),
+ getnatp(sect.sct_oldown));
mob = mob - 2;
if (chance(odds)) {
amil = amil - 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);
+ sect.sct_item[I_MILIT] = mil - milkilled;
+ if (ache == 0)
+ sect.sct_che_target = 0;
+ sect.sct_che = ache;
putsect(§);
pr(" Body count: Military %d - Guerillas %d.\n",
milkilled, chekilled);
pr(" Partisans still active in this sector.\n");
}
} else {
- if (opt_MOB_ACCESS) {
- sect.sct_mobil =
- -(etu_per_update/sect_mob_neg_factor);
+ if (opt_MOB_ACCESS) {
+ sect.sct_mobil =
+ -(etu_per_update / sect_mob_neg_factor);
} else {
- sect.sct_mobil = 0;
+ sect.sct_mobil = 0;
}
sect.sct_loyal = sect.sct_loyal * 0.5;
n_cheleft = (random() % 4);
/* 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);
+ sect.sct_che = n_cheleft;
+ } else {
+ sect.sct_che = 0;
+ sect.sct_che_target = 0;
+ }
+ sect.sct_item[I_MILIT] = ache;
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 */
+ 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));
+ 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");
projects / empserver / blobdiff