]> git.pond.sub.org Git - empserver/blob - src/lib/subs/nuke.c
COPYING duplicates information from README. Remove. Move GPL from
[empserver] / src / lib / subs / nuke.c
1 /*
2  *  Empire - A multi-player, client/server Internet based war game.
3  *  Copyright (C) 1986-2006, Dave Pare, Jeff Bailey, Thomas Ruschak,
4  *                           Ken Stevens, Steve McClure
5  *
6  *  This program 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 2 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, write to the Free Software
18  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  *
20  *  ---
21  *
22  *  See files README, COPYING and CREDITS in the root of the source
23  *  tree for related information and legal notices.  It is expected
24  *  that future projects/authors will amend these files as needed.
25  *
26  *  ---
27  *
28  *  nuke.c: Nuke post-read and pre-write data massage
29  * 
30  *  Known contributors to this file:
31  *     Dave Pare, 1989
32  *     Steve McClure, 1996
33  */
34
35 #include <config.h>
36
37 #include "misc.h"
38 #include "player.h"
39 #include "nuke.h"
40 #include "sect.h"
41 #include "xy.h"
42 #include "nsc.h"
43 #include "file.h"
44 #include "nat.h"
45 #include "prototypes.h"
46
47 int
48 nuk_postread(int n, void *ptr)
49 {
50     struct nukstr *np = ptr;
51
52     if (np->nuk_uid != n) {
53         logerror("nuk_postread: Error - %d != %d, zeroing.\n", np->nuk_uid,
54                  n);
55         memset(np, 0, sizeof(struct nukstr));
56     }
57     player->owner = (player->god || np->nuk_own == player->cnum);
58     return 1;
59 }
60
61 int
62 nuk_prewrite(int n, void *ptr)
63 {
64     struct nukstr *np = ptr;
65     struct nukstr nuke;
66
67     np->ef_type = EF_NUKE;
68     np->nuk_uid = n;
69
70     time(&np->nuk_timestamp);
71
72     getnuke(n, &nuke);
73
74     return 1;
75 }
76
77 void
78 nuk_init(int n, void *ptr)
79 {
80     struct nukstr *np = ptr;
81
82     np->ef_type = EF_NUKE;
83     np->nuk_uid = n;
84     np->nuk_own = 0;
85 }
86
87 void
88 nuk_add(coord x, coord y, int type, int num)
89 {
90     struct nukstr nuke;
91     struct sctstr sect;
92     int nuk_uid;
93     natid own;
94     int n;
95
96     /* getsect in case of world wraparound */
97     getsect(x, y, &sect);
98     if (!(own = sect.sct_own))
99         return;
100     x = sect.sct_x;
101     y = sect.sct_y;
102
103     /*
104      * either find a stockpile in x,y or add a new one
105      */
106     nuk_uid = -1;
107     for (n = 0; getnuke(n, &nuke); n++) {
108         if (nuke.nuk_own == own) {
109             if (nuke.nuk_x == x && nuke.nuk_y == y) {
110                 nuk_uid = n;
111                 break;
112             }
113         } else if (nuke.nuk_own == 0 && nuk_uid == -1)
114             nuk_uid = n;
115     }
116     if (nuk_uid == -1)
117         nuk_uid = n;
118     if (getnuke(nuk_uid, &nuke) == 0) {
119         ef_extend(EF_NUKE, 10);
120         memset(&nuke, 0, sizeof(struct nukstr));
121         nuke.nuk_uid = nuk_uid;
122     }
123     if (nuke.nuk_own == 0) {
124         nuke.nuk_ship = -1;
125         nuke.nuk_x = x;
126         nuke.nuk_y = y;
127         nuke.nuk_own = own;
128         makenotlost(EF_NUKE, nuke.nuk_own, nuke.nuk_uid, nuke.nuk_x,
129                     nuke.nuk_y);
130     }
131     nuke.nuk_types[type] += num;
132     nuke.nuk_n += num;
133
134     if (!putnuke(nuke.nuk_uid, &nuke))
135         pr("Problem with the nuclear stockpiles, tell the deity.\n");
136
137 }
138
139 void
140 nuk_delete(struct nukstr *np, int type, int num)
141 {
142     if (np->nuk_types[type] < num)
143         num = np->nuk_types[type];
144     np->nuk_types[type] -= num;
145     np->nuk_n -= num;
146     if (np->nuk_n <= 0) {
147         makelost(EF_NUKE, np->nuk_own, np->nuk_uid, np->nuk_x, np->nuk_y);
148         np->nuk_own = 0;
149     }
150     putnuke(np->nuk_uid, np);
151 }