/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2006, 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/>.
*
* ---
*
* ---
*
* orde.c: Turn on/off autonavigation
- *
+ *
* Known contributors to this file:
* Chad Zabel, 1994
* Steve McClure, 2000
+ * Markus Armbruster, 2004-2011
*/
#include <config.h>
-#include <string.h>
-#include <ctype.h>
-#include "misc.h"
-#include "player.h"
-#include "ship.h"
-#include "sect.h"
-#include "xy.h"
-#include "nsc.h"
-#include "nat.h"
-#include "path.h"
-#include "file.h"
-#include "item.h"
#include "commands.h"
+#include "item.h"
#include "optlist.h"
+#include "path.h"
+#include "ship.h"
/*
-** Command syntax:
-**
-** ORDER <ship> Show orders
-** ORDER <ship> c[ancel] Cancel orders
-** ORDER <ship> s[top] Suspend orders
-** ORDER <ship> r[esume] Resume orders
-** ORDER <ship> d[eclare] <dest1> Set destination
-** d[eclare] <dest1> <dest2>
-** ORDER <ship> l[evel] <field> <start/end> <comm> <level>
-**
-**
-** New syntax:
-** qorder <ship> display cargo levels
-** sorder <ship> display statistical info
+ * Command syntax:
+ *
+ * ORDER <ship> Show orders
+ * ORDER <ship> c[ancel] Cancel orders
+ * ORDER <ship> s[top] Suspend orders
+ * ORDER <ship> r[esume] Resume orders
+ * ORDER <ship> d[eclare] <dest1> Set destination
+ * d[eclare] <dest1> <dest2>
+ * ORDER <ship> l[evel] <field> <start/end> <comm> <level>
+ *
+ * New syntax:
+ * qorder <ship> display cargo levels
+ * sorder <ship> display statistical info
*/
int
orde(void)
{
- int diffeachship = 0;
- int orders, sub, level;
+ int sub, level;
int scuttling = 0;
struct nstr_item nb;
struct shpstr ship;
- struct shpstr start; /* Used for checking database */
struct ichrstr *i1;
coord p0x, p0y, p1x, p1y;
int i;
- s_char *p, *p1, *dest;
- s_char buf1[128];
- s_char buf[1024];
- s_char prompt[128];
+ char *p, *p1, *dest;
+ char buf1[128];
+ char buf[1024];
+ char prompt[128];
- if (!snxtitem(&nb, EF_SHIP, player->argp[1]))
+ if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
return RET_SYN;
while (!player->aborted && nxtitem(&nb, (&ship))) {
if (!player->owner || ship.shp_own == 0)
continue;
if (opt_SAIL) {
if (*ship.shp_path) {
- if (!diffeachship)
- pr("Ship #%d has a \"sail\" path!\n", ship.shp_uid);
+ pr("Ship #%d has a \"sail\" path!\n", ship.shp_uid);
continue;
}
}
- memcpy(&start, &ship, sizeof(struct shpstr));
sprintf(prompt,
"Ship #%d, declare, cancel, suspend, resume, level? ",
ship.shp_uid);
p = getstarg(player->argp[2], prompt, buf);
- if (player->aborted || !p)
+ if (player->aborted || !p || !*p)
+ return RET_FAIL;
+ if (!check_ship_ok(&ship))
return RET_FAIL;
- if (!*p) {
- if (!diffeachship)
- return RET_FAIL;
- else
- continue;
- }
switch (*p) {
default:
pr("Bad order type!\n");
ship.shp_autonav &= ~AN_STANDBY;
break;
case 'd': /* declare path */
- orders = 0;
scuttling = 0;
/* Need location */
- if ((p = getstarg(player->argp[3], "Destination? ", buf)) == 0
- || *p == 0)
+ p = getstarg(player->argp[3], "Destination? ", buf);
+ if (!p || !*p)
return RET_SYN;
if (!sarg_xy(p, &p0x, &p0y))
return RET_SYN;
p1x = p0x;
p1y = p0y;
-
-
- if (!orders) {
- p = getstarg(player->argp[4], "Second dest? ", buf);
- if (!p || !*p || !strcmp(p, "-")) {
- orders = 1;
- pr("A one-way order has been accepted.\n");
- } else if (!strncmp(p, "s", 1)) {
- if (opt_TRADESHIPS) {
- if (!(mchr[(int)ship.shp_type].m_flags & M_TRADE)) {
- pr("You can't auto-scuttle that ship!\n");
- return RET_SYN;
- }
- } else {
- pr("You can't auto-scuttle that ship!\n");
- return RET_SYN;
- }
- pr("A scuttle order has been accepted.\n");
- scuttling = 1;
- } else {
- if (!sarg_xy(p, &p1x, &p1y))
- return RET_SYN;
- pr("A circular order has been accepted.\n");
+ p = getstarg(player->argp[4], "Second dest? ", buf);
+ if (!p)
+ return RET_FAIL;
+ if (!check_ship_ok(&ship))
+ return RET_FAIL;
+ if (!*p || !strcmp(p, "-")) {
+ pr("A one-way order has been accepted.\n");
+ } else if (!strncmp(p, "s", 1)) {
+ if (!(mchr[(int)ship.shp_type].m_flags & M_TRADE)) {
+ pr("You can't auto-scuttle that ship!\n");
+ return RET_SYN;
}
+ pr("A scuttle order has been accepted.\n");
+ scuttling = 1;
+ } else {
+ if (!sarg_xy(p, &p1x, &p1y))
+ return RET_SYN;
+ pr("A circular order has been accepted.\n");
}
/*
case 'l':
/* convert player->argp[3] to an integer */
- if (player->argp[3])
- sub = atoi(player->argp[3]);
- else {
- sprintf(buf1, "Field (1-%d) ", TMAX);
- if (getstarg(player->argp[3], buf1, buf) == 0)
- return RET_SYN;
- sub = atoi(buf);
- }
+ sprintf(buf1, "Field (1-%d) ", TMAX);
+ if (!getstarg(player->argp[3], buf1, buf))
+ return RET_SYN;
+ if (!check_ship_ok(&ship))
+ return RET_FAIL;
+ sub = atoi(buf);
/* check to make sure value in within range. */
if (sub > TMAX || sub < 1) {
pr("Value must range from 1 to %d\n", TMAX);
- break;
+ return RET_FAIL;
}
- /* to keep sub in range of our arrays
+ /* to keep sub in range of our arrays
subtract 1 so the new range is 0-(TMAX-1)
*/
sub = sub - 1;;
if (ship.shp_autonav & AN_AUTONAV) {
- orders = 1;
- dest = getstarg(player->argp[4], "Start or End? ", buf);
- if (orders) { /* before dest check */
- if (!dest)
- break;
- switch (*dest) {
- default:
- pr("You must enter 'start' or 'end'\n");
+ dest = getstarg(player->argp[4], "Start or end? ", buf);
+ if (!dest)
+ return RET_FAIL;
+ switch (*dest) {
+ default:
+ pr("You must enter 'start' or 'end'\n");
+ return RET_SYN;
+ case 'e':
+ case 'E':
+ i1 = whatitem(player->argp[5], "Commodity? ");
+ if (!i1)
+ return RET_FAIL;
+ p1 = getstarg(player->argp[6], "Amount? ", buf);
+ if (!p1)
return RET_SYN;
- case 'e':
- case 'E':
- i1 = whatitem(player->argp[5], "Commodity? ");
- if (!i1)
- break;
- else {
- p1 = getstarg(player->argp[6], "Amount? ",
- buf);
- if (!p1)
- return RET_SYN;
- level = atoi(p1);
- }
- if (level < 0) {
- level = 0; /* prevent negatives. */
- pr("You must use positive number! Level set to 0.\n");
- }
- ship.shp_tstart[sub] = i1->i_uid;
- ship.shp_lstart[sub] = level;
- pr("Order Set \n");
- break;
- case 's':
- case 'S':
- i1 = whatitem(player->argp[5], "Commodity? ");
- if (!i1)
- break;
- else {
- p1 = getstarg(player->argp[6], "Amount? ",
- buf);
- if (!p1)
- return RET_SYN;
- level = atoi(p1);
- }
- if (level < 0) {
- level = 0;
- pr("You must use positive number! Level set to 0.\n");
- }
- ship.shp_tend[sub] = i1->i_uid;
- ship.shp_lend[sub] = level;
- pr("Order Set \n");
- break;
+ if (!check_ship_ok(&ship))
+ return RET_FAIL;
+ level = atoi(p1);
+ if (level < 0) {
+ level = 0; /* prevent negatives. */
+ pr("You must use positive number! Level set to 0.\n");
}
+ ship.shp_tstart[sub] = i1->i_uid;
+ ship.shp_lstart[sub] = level;
+ pr("Order set\n");
+ break;
+ case 's':
+ case 'S':
+ i1 = whatitem(player->argp[5], "Commodity? ");
+ if (!i1)
+ return RET_FAIL;
+ p1 = getstarg(player->argp[6], "Amount? ", buf);
+ if (!p1)
+ return RET_SYN;
+ if (!check_ship_ok(&ship))
+ return RET_FAIL;
+ level = atoi(p1);
+ if (level < 0) {
+ level = 0;
+ pr("You must use positive number! Level set to 0.\n");
+ }
+ ship.shp_tend[sub] = i1->i_uid;
+ ship.shp_lend[sub] = level;
+ pr("Order Set \n");
+ break;
}
} else
pr("You need to 'declare' a ship path first, see 'info order'\n");
ship.shp_autonav |= AN_LOADING;
- /* swap variables, this keeps
+ /* swap variables, this keeps
the load_it() procedure happy. CZ
*/
tcord = ship.shp_destx[0];
ship.shp_tend[i] = tcomm;
}
}
- /*
- ** Write ship back to database, then give it
- ** a kick down the autonav route if necessary.
- */
-
-
- /* Now do a sanity check. */
- if (!check_ship_ok(&start))
- return RET_SYN;
putship(ship.shp_uid, &ship);
}
return RET_OK;
}
-static void
-eta_calc(struct shpstr *sp, s_char *path, int *len, int *nupdates)
+static int
+eta_calc(struct shpstr *sp, int len)
{
double mobcost, mobil;
- int i;
+ int i, nupdates;
- i = strlen(path);
- *len = i;
- *nupdates = 1;
+ i = len;
+ nupdates = 1;
- mobcost = sp->shp_effic * 0.01 * sp->shp_speed;
- mobcost = 480.0 / (mobcost + techfact(sp->shp_tech, mobcost));
+ mobcost = shp_mobcost(sp);
mobil = sp->shp_mobil;
while (i) {
if (mobil > 0) {
i--;
} else {
mobil += (ship_mob_scale * (float)etu_per_update);
- (*nupdates)++;
+ nupdates++;
}
}
+ return nupdates;
}
static void
struct nstr_item nb;
struct shpstr ship;
- if (!snxtitem(&nb, EF_SHIP, player->argp[1]))
+ if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
return RET_SYN;
while (nxtitem(&nb, (&ship))) {
if (!player->owner || ship.shp_own == 0)
{
int nships = 0;
int len, updates;
- s_char *c;
+ double c;
struct nstr_item nb;
struct shpstr ship;
- s_char buf[1024];
- if (!snxtitem(&nb, EF_SHIP, player->argp[1]))
+ if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
return RET_SYN;
while (nxtitem(&nb, (&ship))) {
if (!player->owner || ship.shp_own == 0)
pr("%3d ", ship.shp_own);
pr("%4d", nb.cur);
pr(" %-16.16s", mchr[(int)ship.shp_type].m_name);
- prxy(" %3d,%-3d", ship.shp_x, ship.shp_y, player->cnum);
+ prxy(" %3d,%-3d", ship.shp_x, ship.shp_y);
if (ship.shp_autonav & AN_AUTONAV) {
/* Destination 1 */
- prxy(" %3d,%-3d", ship.shp_destx[1],
- ship.shp_desty[1], player->cnum);
+ prxy(" %3d,%-3d", ship.shp_destx[1], ship.shp_desty[1]);
/* Destination 2 */
if ((ship.shp_destx[1] != ship.shp_destx[0])
|| (ship.shp_desty[1] != ship.shp_desty[0])) {
- prxy(" %3d,%-3d", ship.shp_destx[0],
- ship.shp_desty[0], player->cnum);
+ prxy(" %3d,%-3d", ship.shp_destx[0], ship.shp_desty[0]);
} else
pr(" ");
pr(" loading");
else {
/* ETA calculation */
-
- c = BestShipPath(buf, ship.shp_x,
- ship.shp_y, ship.shp_destx[0],
- ship.shp_desty[0], ship.shp_own);
- if (!c || !*c)
+ c = path_find(ship.shp_x, ship.shp_y,
+ ship.shp_destx[0], ship.shp_desty[0],
+ ship.shp_own, MOB_SAIL);
+ if (c < 0)
pr(" no route possible");
- else if (*c == 'h')
+ else if (c == 0)
pr(" has arrived");
- else if (*c == '?')
- pr(" route too long");
else {
/* distance to destination */
- eta_calc(&ship, c, &len, &updates);
+ len = (int)c;
+ updates = eta_calc(&ship, len);
pr(" %3d %4d", len, updates);
}
}