empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
empserver/src/lib/commands/retr.c
Markus Armbruster 4ae9c417b3 (bzero, bcopy): Obsolete BSDisms; remove. Remove some calls without 
effect.  Replace calls by struct assignment where possible.  Replace
clear buffer, copy string to buffer by strncpy().  Use assignment to
clear when that's clearer.  Replace overlapping copy through bounce
buffer by memmove().  Replace rest by standard memset() and memcpy().
Also use sizeof() instead of literal array sizes for robustness, and
instead of symbolic array sizes for clarity.
2004-01-08 17:54:28 +00:00

327 lines
7.6 KiB
C
Raw Blame History

/*
* 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.
*
* ---
*
* retr.c: Set retreat conditionals for ships
*
* Known contributors to this file:
* Ken Stevens, 1995
* Steve McClure, 2000
*/
#include "options.h"
#include "misc.h"
#include "player.h"
#include "var.h"
#include "xy.h"
#include "sect.h"
#include "retreat.h"
#include "ship.h"
#include "land.h"
#include "nat.h"
#include "nsc.h"
#include "deity.h"
#include "file.h"
#include "path.h"
#include "commands.h"
int
retr(void)
{
s_char *pq, *fl;
int nships;
struct nstr_item ni;
struct shpstr ship;
int isfleet = 0, rflags = (-2), 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] != (s_char *)0)
if (isalpha(player->argp[1][0]))
isfleet = 1;
if (player->argp[2] != (s_char *)0)
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");
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, (s_char *)&ship)) {
if (!player->owner || ship.shp_own == 0)
continue;
if (ship.shp_type < 0 || ship.shp_type > shp_maxno) {
pr("bad ship type %d (#%d)\n", ship.shp_type, ni.cur);
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;
}
int
lretr(void)
{
s_char *pq, *fl;
int nunits;
struct nstr_item ni;
struct lndstr land;
int isarmy = 0, rflags = (-2), zero;
s_char buf1[1024];
s_char buf2[1024];
unsigned int x;
if (!snxtitem(&ni, EF_LAND, player->argp[1]))
return RET_SYN;
nunits = 0;
if (player->argp[1] != (s_char *)0)
if (isalpha(player->argp[1][0]))
isarmy = 1;
if (player->argp[2] != (s_char *)0)
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]? ",
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");
case '?':
pr("i\tretreat when injured\n");
pr("h\tretreat when helpless\n");
pr("b\tretreat when bombed\n");
}
if (rflags == isarmy) {
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, (s_char *)&land)) {
if (!player->owner || land.lnd_own == 0)
continue;
if (land.lnd_type < 0 || land.lnd_type > lnd_maxno) {
pr("bad unit type %d (#%d)\n", land.lnd_type, ni.cur);
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 (nunits++ == 0) {
if (player->god)
pr("own ");
pr("lnd# unit type x,y ar path as army? flags\n");
}
if (player->god)
pr("%3d ", land.lnd_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("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");
pr("\n");
}
if (nunits == 0) {
if (player->argp[1])
pr("%s: No unit(s)\n", player->argp[1]);
else
pr("%s: No unit(s)\n", "");
return RET_FAIL;
}
pr("%d unit%s\n", nunits, splur(nunits));
return RET_OK;
}
Reference in a new issue View git blame Copy permalink