/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2005, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Copyright (C) 1986-2008, 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.
*
* ---
*
- * retr.c: Set retreat conditionals for ships
- *
+ * retr.c: Set retreat conditionals for ships and land units
+ *
* Known contributors to this file:
* Ken Stevens, 1995
* Steve McClure, 2000
+ * Markus Armbruster, 2008
*/
#include <config.h>
-#include "misc.h"
-#include "player.h"
-#include "retreat.h"
-#include "ship.h"
+#include <ctype.h>
+#include "commands.h"
+#include "empobj.h"
#include "land.h"
-#include "nsc.h"
-#include "file.h"
#include "path.h"
-#include "commands.h"
+#include "retreat.h"
+#include "ship.h"
+
+/*
+ * Retreat flag characters
+ * 'X' means flag is not available
+ * Must agree with RET_ defines.
+ */
+static char shp_rflagsc[] = "Xitshbdu";
+static char lnd_rflagsc[] = "XiXXhbXX";
+
+static int retreat(short);
int
retr(void)
{
- s_char *pq, *fl;
- int nships;
- struct nstr_item ni;
- struct shpstr ship;
- int isfleet = 0;
- int rflags = -2;
- int zero;
- unsigned int x;
- s_char buf1[1024];
- s_char buf2[1024];
-
- if (!snxtitem(&ni, EF_SHIP, player->argp[1]))
- return RET_SYN;
- nships = 0;
- if (player->argp[1] != NULL)
- if (isalpha(player->argp[1][0]))
- isfleet = RET_GROUP;
- if (player->argp[2] != NULL)
- pq = getstarg(player->argp[2], "Retreat path? ", buf1);
- else
- pq = (s_char *)0;
-
- if (pq != (s_char *)0) {
- fl = getstarg(player->argp[3],
- "Retreat conditions [i|t|s|h|b|d|u|c]? ", buf2);
- if (!fl)
- return RET_SYN;
- rflags = 0 | isfleet;
-
- for (x = 0; x < strlen(fl); x++)
- switch (*(fl + x)) {
- case 'I':
- case 'i':
- rflags |= RET_INJURED;
- break;
- case 'T':
- case 't':
- rflags |= RET_TORPED;
- break;
- case 'S':
- case 's':
- rflags |= RET_SONARED;
- break;
- case 'H':
- case 'h':
- rflags |= RET_HELPLESS;
- break;
- case 'B':
- case 'b':
- rflags |= RET_BOMBED;
- break;
- case 'D':
- case 'd':
- rflags |= RET_DCHRGED;
- break;
- case 'U':
- case 'u':
- rflags |= RET_BOARDED;
- break;
- case 'C':
- case 'c':
- rflags = -1;
- break;
- default:
- pr("bad condition\n");
- /* fall through */
- case '?':
- pr("i\tretreat when injured\n");
- pr("t\tretreat when torped\n");
- pr("s\tretreat when sonared\n");
- pr("h\tretreat when helpless\n");
- pr("b\tretreat when bombed\n");
- pr("d\tretreat when depth-charged\n");
- pr("u\tretreat when boarded\n");
- }
- if (rflags == isfleet) {
- pr("Must give retreat conditions!\n");
- return RET_FAIL;
- }
- }
-
- if (rflags == -1)
- pq = (s_char *)0;
-
- zero = (rflags == -1);
- if (zero)
- rflags = 0;
-
- while (nxtitem(&ni, &ship)) {
- if (!player->owner || ship.shp_own == 0)
- continue;
- if (zero)
- memset(ship.shp_rpath, 0, sizeof(ship.shp_rpath));
-
- if (pq != (s_char *)0) {
- strncpy(ship.shp_rpath, pq, sizeof(ship.shp_rpath));
- putship(ship.shp_uid, &ship);
- }
- if (rflags >= 0) {
- ship.shp_rflags = rflags;
- putship(ship.shp_uid, &ship);
- }
- if (nships++ == 0) {
- if (player->god)
- pr("own ");
- pr("shp# ship type x,y fl path as flt? flags\n");
- }
- if (player->god)
- pr("%3d ", ship.shp_own);
- pr("%4d ", ni.cur);
- pr("%-16.16s ", mchr[(int)ship.shp_type].m_name);
- prxy("%4d,%-4d ", ship.shp_x, ship.shp_y, player->cnum);
- pr("%1c", ship.shp_fleet);
- pr(" %-11s", ship.shp_rpath);
- if (ship.shp_rflags & RET_GROUP)
- pr("Yes ");
- else
- pr(" ");
- if (ship.shp_rflags & RET_INJURED)
- pr("I");
- if (ship.shp_rflags & RET_TORPED)
- pr("T");
- if (ship.shp_rflags & RET_SONARED)
- pr("S");
- if (ship.shp_rflags & RET_HELPLESS)
- pr("H");
- if (ship.shp_rflags & RET_BOMBED)
- pr("B");
- if (ship.shp_rflags & RET_DCHRGED)
- pr("D");
- if (ship.shp_rflags & RET_BOARDED)
- pr("U");
- pr("\n");
- }
- if (nships == 0) {
- if (player->argp[1])
- pr("%s: No ship(s)\n", player->argp[1]);
- else
- pr("%s: No ship(s)\n", "");
- return RET_FAIL;
- } else
- pr("%d ship%s\n", nships, splur(nships));
- return RET_OK;
+ return retreat(EF_SHIP);
}
int
lretr(void)
{
- s_char *pq, *fl;
+ return retreat(EF_LAND);
+}
+
+static int
+retreat(short type)
+{
+ char *pq, *fl;
int nunits;
struct nstr_item ni;
- struct lndstr land;
- int isarmy = 0;
- int rflags = -2;
- int zero;
- s_char buf1[1024];
- s_char buf2[1024];
- unsigned int x;
-
- if (!snxtitem(&ni, EF_LAND, player->argp[1]))
+ union empobj_storage unit;
+ int rflags, ch, j;
+ unsigned i;
+ char *rflagsc, *p, *name, *rpath, *what;
+ int *rflagsp;
+ char buf1[1024];
+ char buf2[1024];
+
+ if (CANT_HAPPEN(type != EF_LAND && type != EF_SHIP))
+ type = EF_SHIP;
+ rflagsc = type == EF_SHIP ? shp_rflagsc : lnd_rflagsc;
+
+ if (!snxtitem(&ni, type, player->argp[1], NULL))
return RET_SYN;
nunits = 0;
- if (player->argp[1] != NULL)
- if (isalpha(player->argp[1][0]))
- isarmy = RET_GROUP;
if (player->argp[2] != NULL)
pq = getstarg(player->argp[2], "Retreat path? ", buf1);
else
- pq = (s_char *)0;
- if (pq != (s_char *)0) {
- fl = getstarg(player->argp[3], "Retreat conditions [i|h|b|c]? ",
+ pq = NULL;
+
+ rflags = 0;
+ if (pq != NULL) {
+ again:
+ fl = getstarg(player->argp[3],
+ "Retreat conditions ('?' to list available ones)? ",
buf2);
if (!fl)
return RET_SYN;
- rflags = 0 | isarmy;
- for (x = 0; x < strlen(fl); x++)
- switch (*(fl + x)) {
- case 'I':
- case 'i':
- rflags |= RET_INJURED;
- break;
- case 'H':
- case 'h':
- rflags |= RET_HELPLESS;
- break;
- case 'B':
- case 'b':
- rflags |= RET_BOMBED;
- break;
- case 'C':
- case 'c':
- rflags = -1;
- break;
- default:
- pr("bad condition\n");
- /* fall through */
- case '?':
- pr("i\tretreat when injured\n");
- pr("h\tretreat when helpless\n");
- pr("b\tretreat when bombed\n");
+ for (i = 0; fl[i]; i++) {
+ ch = tolower(fl[i]);
+ if (ch == 'C') {
+ *pq = 0;
+ return 0;
+ }
+ if (ch == '?') {
+ for (j = 1; rflagsc[j]; j++) {
+ if (rflagsc[j] != 'X')
+ pr("%c\tretreat when %s\n",
+ rflagsc[j],
+ symbol_by_value(1 << j, retreat_flags));
+ }
+ pr("c\tcancel retreat order\n");
+ goto again;
+ }
+ p = strchr(rflagsc, ch);
+ if (!p) {
+ pr("Bad retreat condition '%c'\n", fl[i]);
+ return RET_SYN;
}
- if (rflags == isarmy) {
+ rflags |= 1 << (p - rflagsc);
+ }
+ if (*pq && !rflags) {
pr("Must give retreat conditions!\n");
return RET_FAIL;
}
+ if (ni.sel == NS_GROUP && ni.group)
+ rflags |= RET_GROUP;
+ if (!*pq)
+ rflags = 0;
}
- if (rflags == -1)
- pq = (s_char *)0;
-
- zero = (rflags == -1);
- if (zero)
- rflags = 0;
-
- while (nxtitem(&ni, &land)) {
- if (!player->owner || land.lnd_own == 0)
+ while (nxtitem(&ni, &unit)) {
+ if (!player->owner || unit.gen.own == 0)
continue;
- if (zero)
- memset(land.lnd_rpath, 0, sizeof(land.lnd_rpath));
-
- if (pq != (s_char *)0) {
- strncpy(land.lnd_rpath, pq, sizeof(land.lnd_rpath));
- putland(land.lnd_uid, &land);
- }
- if (rflags >= 0) {
- land.lnd_rflags = rflags;
- putland(land.lnd_uid, &land);
+ if (type == EF_SHIP) {
+ if (nunits++ == 0) {
+ if (player->god)
+ pr("own ");
+ pr("shp# ship type x,y fl path as flt? flags\n");
+ }
+ name = mchr[unit.ship.shp_type].m_name;
+ rpath = unit.ship.shp_rpath;
+ rflagsp = &unit.ship.shp_rflags;
+ } else {
+ if (nunits++ == 0) {
+ if (player->god)
+ pr("own ");
+ pr("lnd# unit type x,y ar path as army? flags\n");
+ }
+ name = lchr[unit.land.lnd_type].l_name;
+ rpath = unit.land.lnd_rpath;
+ rflagsp = &unit.land.lnd_rflags;
}
-
- if (nunits++ == 0) {
- if (player->god)
- pr("own ");
- pr("lnd# unit type x,y ar path as army? flags\n");
+ if (pq) {
+ strncpy(rpath, pq, RET_LEN - 1);
+ *rflagsp = rflags;
+ put_empobj(type, unit.gen.uid, &unit);
}
if (player->god)
- pr("%3d ", land.lnd_own);
+ pr("%3d ", unit.gen.own);
pr("%4d ", ni.cur);
- pr("%-16.16s ", lchr[(int)land.lnd_type].l_name);
- prxy("%4d,%-4d ", land.lnd_x, land.lnd_y, player->cnum);
- pr("%1c", land.lnd_army);
- pr(" %-11s", land.lnd_rpath);
- if (land.lnd_rflags & RET_GROUP)
+ pr("%-16.16s ", name);
+ prxy("%4d,%-4d ", unit.gen.x, unit.gen.y, player->cnum);
+ pr("%1.1s", &unit.gen.group);
+ pr(" %-11s", rpath);
+ rflags = *rflagsp;
+ if (rflags & RET_GROUP)
pr("Yes ");
else
pr(" ");
- if (land.lnd_rflags & RET_INJURED)
- pr("I");
- if (land.lnd_rflags & RET_TORPED)
- pr("T");
- if (land.lnd_rflags & RET_SONARED)
- pr("S");
- if (land.lnd_rflags & RET_HELPLESS)
- pr("H");
- if (land.lnd_rflags & RET_BOMBED)
- pr("B");
- if (land.lnd_rflags & RET_DCHRGED)
- pr("D");
- if (land.lnd_rflags & RET_BOARDED)
- pr("U");
+ for (j = 1; rflagsc[j]; j++) {
+ if ((1 << j) & rflags) {
+ if (CANT_HAPPEN(rflagsc[j] == 'X'))
+ continue;
+ pr("%c", rflagsc[j]);
+ }
+ }
pr("\n");
}
+ what = type == EF_SHIP ? "ship" : "unit";
if (nunits == 0) {
if (player->argp[1])
- pr("%s: No unit(s)\n", player->argp[1]);
+ pr("%s: No %s(s)\n", player->argp[1], what);
else
- pr("%s: No unit(s)\n", "");
+ pr("%s: No %s(s)\n", "", what);
return RET_FAIL;
- }
- pr("%d unit%s\n", nunits, splur(nunits));
+ } else
+ pr("%d %s%s\n", nunits, what, splur(nunits));
return RET_OK;
}