commands: Rename the command functions
[empserver] / src / lib / commands / drop.c
1 /*
2  *  Empire - A multi-player, client/server Internet based war game.
3  *  Copyright (C) 1986-2021, Dave Pare, Jeff Bailey, Thomas Ruschak,
4  *                Ken Stevens, Steve McClure, Markus Armbruster
5  *
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.
10  *
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.
15  *
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/>.
18  *
19  *  ---
20  *
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.
24  *
25  *  ---
26  *
27  *  drop.c: Air-drop commodities
28  *
29  *  Known contributors to this file:
30  *     Dave Pare, 1986
31  *     Markus Armbruster, 2004-2012
32  */
33
34 #include <config.h>
35
36 #include "commands.h"
37 #include "item.h"
38 #include "path.h"
39 #include "plane.h"
40
41 int
42 c_drop(void)
43 {
44     coord tx, ty;
45     coord ax, ay;
46     int ap_to_target;
47     struct ichrstr *ip;
48     char flightpath[MAX_PATH_LEN];
49     struct nstr_item ni_bomb;
50     struct nstr_item ni_esc;
51     struct sctstr target;
52     struct emp_qelem bomb_list;
53     struct emp_qelem esc_list;
54     int wantflags;
55     struct sctstr ap_sect;
56     char buf[1024];
57
58     if (get_planes(&ni_bomb, &ni_esc, player->argp[1], player->argp[2]) < 0)
59         return RET_SYN;
60     if (!get_assembly_point(player->argp[3], &ap_sect, buf))
61         return RET_SYN;
62     ax = ap_sect.sct_x;
63     ay = ap_sect.sct_y;
64     if (!getpath(flightpath, player->argp[4], ax, ay, 0, 0, MOB_FLY))
65         return RET_SYN;
66     tx = ax;
67     ty = ay;
68     (void)pathtoxy(flightpath, &tx, &ty, fcost);
69     pr("target is %s\n", xyas(tx, ty, player->cnum));
70     if (!(ip = whatitem(player->argp[5], "Drop off what? ")))
71         return RET_SYN;
72     getsect(tx, ty, &target);
73
74     if (relations_with(target.sct_own, player->cnum) == ALLIED) {
75         /* own or allied sector: cargo drop */
76         if (ip->i_uid == I_CIVIL) {
77             if (target.sct_own != player->cnum) {
78                 pr("Your civilians refuse to board a flight abroad!\n");
79                 return RET_FAIL;
80             }
81             if (target.sct_own != target.sct_oldown) {
82                 pr("Can't drop civilians into occupied sectors.\n");
83                 return RET_FAIL;
84             }
85         }
86         wantflags = P_C;
87     } else {
88         /* into the unknown... */
89         if (ip->i_uid != I_SHELL) {
90             pr("You don't own %s!\n", xyas(tx, ty, player->cnum));
91             return RET_FAIL;
92         }
93         /* mine drop */
94         wantflags = P_MINE;
95     }
96
97     ap_to_target = strlen(flightpath);
98     pr("range to target is %d\n", ap_to_target);
99     /*
100      * select planes within range
101      */
102     pln_sel(&ni_bomb, &bomb_list, &ap_sect, ap_to_target, 2,
103             wantflags, P_M | P_O);
104     pln_sel(&ni_esc, &esc_list, &ap_sect, ap_to_target, 2,
105             P_ESC | P_F, P_M | P_O);
106     /*
107      * now arm and equip the bombers, transports, whatever.
108      */
109     pln_arm(&bomb_list, 2 * ap_to_target,
110             wantflags & P_MINE ? 'm' : 'd',
111             ip);
112     if (QEMPTY(&bomb_list)) {
113         pr("No planes could be equipped for the mission.\n");
114         return RET_FAIL;
115     }
116     pln_arm(&esc_list, 2 * ap_to_target, 'e', NULL);
117     ac_encounter(&bomb_list, &esc_list, ax, ay, flightpath, 0);
118     if (QEMPTY(&bomb_list)) {
119         pr("No planes got through fighter defenses\n");
120     } else {
121         if (wantflags & P_MINE)
122             pln_mine(&bomb_list, tx, ty);
123         else
124             pln_dropoff(&bomb_list, ip, tx, ty, -1);
125     }
126     pln_put(&bomb_list);
127     pln_put(&esc_list);
128     return RET_OK;
129 }