2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2013, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
6 * Empire is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * See files README, COPYING and CREDITS in the root of the source
22 * tree for related information and legal notices. It is expected
23 * that future projects/authors will amend these files as needed.
27 * orde.c: Turn on/off autonavigation
29 * Known contributors to this file:
32 * Markus Armbruster, 2004-2013
46 * ORDER <ship> Show orders
47 * ORDER <ship> c[ancel] Cancel orders
48 * ORDER <ship> s[top] Suspend orders
49 * ORDER <ship> r[esume] Resume orders
50 * ORDER <ship> d[eclare] <dest1> Set destination
51 * d[eclare] <dest1> <dest2>
52 * ORDER <ship> l[evel] <field> <start/end> <comm> <level>
55 * qorder <ship> display cargo levels
56 * sorder <ship> display statistical info
67 coord p0x, p0y, p1x, p1y;
74 if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
76 while (!player->aborted && nxtitem(&nb, (&ship))) {
77 if (!player->owner || ship.shp_own == 0)
81 pr("Ship #%d has a \"sail\" path!\n", ship.shp_uid);
86 "Ship #%d, declare, cancel, suspend, resume, level? ",
88 p = getstarg(player->argp[2], prompt, buf);
89 if (player->aborted || !p || !*p)
91 if (!check_ship_ok(&ship))
95 pr("Bad order type!\n");
97 case 'c': /* clear ship fields */
99 ship.shp_autonav &= ~(AN_AUTONAV + AN_STANDBY + AN_LOADING);
100 for (i = 0; i < TMAX; i++) {
101 ship.shp_tstart[i] = I_NONE;
102 ship.shp_tend[i] = I_NONE;
103 ship.shp_lstart[i] = 0;
104 ship.shp_lend[i] = 0;
107 case 's': /* suspend ship movement */
108 ship.shp_mission = 0;
109 ship.shp_autonav |= AN_STANDBY;
111 case 'r': /* resume ship movement */
112 ship.shp_mission = 0;
113 ship.shp_autonav &= ~AN_STANDBY;
115 case 'd': /* declare path */
118 p = getstarg(player->argp[3], "Destination? ", buf);
121 if (!sarg_xy(p, &p0x, &p0y))
126 p = getstarg(player->argp[4], "Second dest? ", buf);
129 if (!check_ship_ok(&ship))
131 if (!*p || !strcmp(p, "-")) {
132 pr("A one-way order has been accepted.\n");
133 } else if (!strncmp(p, "s", 1)) {
134 if (!(mchr[(int)ship.shp_type].m_flags & M_TRADE)) {
135 pr("You can't auto-scuttle that ship!\n");
138 pr("A scuttle order has been accepted.\n");
141 if (!sarg_xy(p, &p1x, &p1y))
143 pr("A circular order has been accepted.\n");
147 * Set new destination and trade type fields.
149 ship.shp_mission = 0;
150 ship.shp_destx[1] = p1x;
151 ship.shp_desty[1] = p1y;
152 ship.shp_destx[0] = p0x;
153 ship.shp_desty[0] = p0y;
155 ship.shp_autonav &= ~(AN_STANDBY | AN_LOADING);
156 ship.shp_autonav |= AN_AUTONAV;
159 ship.shp_autonav |= AN_SCUTTLE;
162 /* set cargo levels on the ship */
165 /* convert player->argp[3] to an integer */
166 sprintf(buf1, "Field (1-%d) ", TMAX);
167 if (!getstarg(player->argp[3], buf1, buf))
169 if (!check_ship_ok(&ship))
172 /* check to make sure value in within range. */
173 if (sub > TMAX || sub < 1) {
174 pr("Value must range from 1 to %d\n", TMAX);
178 /* to keep sub in range of our arrays
179 subtract 1 so the new range is 0-(TMAX-1)
183 if (ship.shp_autonav & AN_AUTONAV) {
184 dest = getstarg(player->argp[4], "Start or end? ", buf);
189 pr("You must enter 'start' or 'end'\n");
193 i1 = whatitem(player->argp[5], "Commodity? ");
196 p1 = getstarg(player->argp[6], "Amount? ", buf);
199 if (!check_ship_ok(&ship))
203 level = 0; /* prevent negatives. */
204 pr("You must use positive number! Level set to 0.\n");
206 ship.shp_tstart[sub] = i1->i_uid;
207 ship.shp_lstart[sub] = level;
212 i1 = whatitem(player->argp[5], "Commodity? ");
215 p1 = getstarg(player->argp[6], "Amount? ", buf);
218 if (!check_ship_ok(&ship))
223 pr("You must use positive number! Level set to 0.\n");
225 ship.shp_tend[sub] = i1->i_uid;
226 ship.shp_lend[sub] = level;
231 pr("You need to 'declare' a ship path first, see 'info order'\n");
234 } /* end of switch (*p) */
239 * Set loading flag if ship is already in one
240 * of the specified harbors and a cargo has been
244 if (((ship.shp_x == ship.shp_destx[0])
245 && (ship.shp_y == ship.shp_desty[0])
246 && (ship.shp_lstart[0] != ' '))
247 || ((ship.shp_x == ship.shp_desty[1])
248 && (ship.shp_y == ship.shp_desty[1])
249 && (ship.shp_lstart[1] != ' '))) {
256 ship.shp_autonav |= AN_LOADING;
258 /* swap variables, this keeps
259 the load_it() procedure happy. CZ
261 tcord = ship.shp_destx[0];
262 ship.shp_destx[0] = ship.shp_destx[1];
263 ship.shp_destx[1] = tcord;
264 tcord = ship.shp_desty[0];
265 ship.shp_desty[0] = ship.shp_desty[1];
266 ship.shp_desty[1] = tcord;
268 for (i = 0; i < TMAX; i++) {
269 lev[i] = ship.shp_lstart[i];
270 ship.shp_lstart[i] = ship.shp_lend[i];
271 ship.shp_lend[i] = lev[i];
272 tcomm = ship.shp_tstart[i];
273 ship.shp_tstart[i] = ship.shp_tend[i];
274 ship.shp_tend[i] = tcomm;
278 putship(ship.shp_uid, &ship);
284 eta_calc(struct shpstr *sp, int len)
286 double mobcost, mobil;
292 mobcost = shp_mobcost(sp);
293 mobil = sp->shp_mobil;
299 mobil += (ship_mob_scale * (float)etu_per_update);
307 prhold(int hold, i_type itype, int amt)
309 if (itype != I_NONE && amt != 0) {
310 if (CANT_HAPPEN(itype <= I_NONE || itype > I_MAX))
313 pr("%c", ichr[itype].i_mnem);
327 if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
329 while (nxtitem(&nb, (&ship))) {
330 if (!player->owner || ship.shp_own == 0)
332 if (!(ship.shp_autonav & AN_AUTONAV)
333 && (!opt_SAIL || !ship.shp_path[0]))
336 if (!nships) { /* 1st ship, print banner */
339 pr("shp# ship type ");
340 pr("[Starting] (Ending) \n");
344 pr("%3d ", ship.shp_own);
346 pr(" %-16.16s", mchr[(int)ship.shp_type].m_name);
348 if (ship.shp_autonav & AN_AUTONAV) {
350 for (i = 0; i < TMAX; i++)
351 prhold(i, ship.shp_tend[i], ship.shp_lend[i]);
353 for (i = 0; i < TMAX; i++)
354 prhold(i, ship.shp_tstart[i], ship.shp_lstart[i]);
356 if (ship.shp_autonav & AN_SCUTTLE)
360 pr(" has a sail path\n");
362 if (ship.shp_name[0] != 0) {
365 pr(" %s\n", ship.shp_name);
370 pr("%s: No ship(s)\n", player->argp[1]);
372 pr("%s: No ship(s)\n", "");
375 pr("%d ship%s\n", nships, splur(nships));
388 if (!snxtitem(&nb, EF_SHIP, player->argp[1], NULL))
390 while (nxtitem(&nb, (&ship))) {
391 if (!player->owner || ship.shp_own == 0)
393 if (!(ship.shp_autonav & AN_AUTONAV)
394 && (!opt_SAIL || !ship.shp_path[0]))
397 if (!nships) { /* 1st ship, print banner */
400 pr("shp# ship type x,y start end "
405 pr("%3d ", ship.shp_own);
407 pr(" %-16.16s", mchr[(int)ship.shp_type].m_name);
408 prxy(" %4d,%-4d", ship.shp_x, ship.shp_y);
410 if (ship.shp_autonav & AN_AUTONAV) {
412 prxy(" %4d,%-4d", ship.shp_destx[1], ship.shp_desty[1]);
415 if ((ship.shp_destx[1] != ship.shp_destx[0])
416 || (ship.shp_desty[1] != ship.shp_desty[0])) {
417 prxy(" %4d,%-4d", ship.shp_destx[0], ship.shp_desty[0]);
421 if (ship.shp_autonav & AN_STANDBY)
423 else if (ship.shp_autonav & AN_LOADING)
426 /* ETA calculation */
427 c = path_find(ship.shp_x, ship.shp_y,
428 ship.shp_destx[0], ship.shp_desty[0],
429 ship.shp_own, MOB_SAIL);
431 pr(" no route possible");
435 /* distance to destination */
437 updates = eta_calc(&ship, len);
438 pr(" %3d %4d", len, updates);
441 if (ship.shp_autonav & AN_SCUTTLE)
445 pr(" has a sail path\n");
447 if (ship.shp_name[0] != 0) {
450 pr(" %s\n", ship.shp_name);
455 pr("%s: No ship(s)\n", player->argp[1]);
457 pr("%s: No ship(s)\n", "");
460 pr("%d ship%s\n", nships, splur(nships));