/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2005, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2010, Dave Pare, Jeff Bailey, Thomas Ruschak,
* Ken Stevens, Steve McClure
*
* This program is free software; you can redistribute it and/or modify
*
* ---
*
- * 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.
*
* ---
*
* sabo.c: Spy terrorist bombing
- *
+ *
* Known contributors to this file:
* John Yockey, 2001
+ * Markus Armbruster, 2003-2009
*/
-#include "misc.h"
-#include "land.h"
-#include "nsc.h"
-#include "file.h"
+#include <config.h>
+
#include "commands.h"
+#include "land.h"
int
sabo(void)
double odds;
int dam;
- if (!snxtitem(&ni, EF_LAND, player->argp[1]))
+ if (!snxtitem(&ni, EF_LAND, player->argp[1], NULL))
return RET_SYN;
while (nxtitem(&ni, &land)) {
pr("%s has no shells.\n", prland(&land));
continue;
}
- --land.lnd_item[I_SHELL];
odds = LND_SPY_DETECT_CHANCE(land.lnd_effic);
if (chance(odds)) {
continue;
}
- dam = landgun(3 * land.lnd_effic, 7);
- if (sect.sct_item[I_SHELL] > 20)
- dam += seagun(land.lnd_effic,
- random() % (sect.sct_item[I_SHELL] / 10));
- if (sect.sct_item[I_PETROL] > 100)
- dam += seagun(land.lnd_effic,
- random() % (sect.sct_item[I_PETROL] / 50));
+ dam = lnd_sabo(&land, sect.sct_item);
+ if (dam < 0)
+ continue;
pr("Explosion in %s causes %d damage.\n",
xyas(land.lnd_x, land.lnd_y, land.lnd_own), dam);
land.lnd_own = 0;
putland(land.lnd_uid, &land);
- sectdamage(§, dam, 0);
+ sectdamage(§, dam);
putsect(§);
land.lnd_own = player->cnum;