Mercurial > ~darius > hgwebdir.cgi > paradise_server

comparison src/phaser.c @ 4:aa38447a4b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First entry of Paradise Server 2.9 patch 10 Beta
author darius
date Sat, 06 Dec 1997 04:37:03 +0000
parents
children
comparison
equal deleted inserted replaced
3:cafa94d86546 4:aa38447a4b21
1 /*--------------------------------------------------------------------------
2 NETREK II -- Paradise
3
4 Permission to use, copy, modify, and distribute this software and its
5 documentation, or any derivative works thereof, for any NON-COMMERCIAL
6 purpose and without fee is hereby granted, provided that this copyright
7 notice appear in all copies. No representations are made about the
8 suitability of this software for any purpose. This software is provided
9 "as is" without express or implied warranty.
10
11 Xtrek Copyright 1986 Chris Guthrie
12 Netrek (Xtrek II) Copyright 1989 Kevin P. Smith
13 Scott Silvey
14 Paradise II (Netrek II) Copyright 1993 Larry Denys
15 Kurt Olsen
16 Brandon Gillespie
17 --------------------------------------------------------------------------*/
18
19 #include "config.h"
20 #include <stdio.h>
21 #include <math.h>
22 #include <signal.h>
23 #include "defs.h"
24 #include "struct.h"
25 #include "data.h"
26 #include "weapons.h"
27 #include "shmem.h"
28
29 /*-----------------------------VISIBLE FUNCTIONS---------------------------*/
30
31 /*----------------------------------PHASER---------------------------------*/
32 /*
33 * This function shoots a phaser for a player. Various conditions are
34 * checked to see if the phaser should be allowed to fire. If the player can
35 * fire then, a player is found in the direction the phaser was fired.
36 */
37
38
39 extern int angdist();
40
41 void
42 phaser(course)
43 unsigned char course;
44 {
45 int i; /* looping var */
46 struct player *j, *target = 0;/* to hold player found */
47 struct plasmatorp *k, *target2 = 0; /* to hold plasma torp found */
48 struct missile *d, *target3 = 0;
49 struct phaser *mine; /* to pnt to player's phaser */
50 int whichtarget; /* to hold type of target */
51 int target_x = 0, target_y = 0; /* target's x and y coords */
52 unsigned char dir; /* to get direction of phasr */
53 int range, trange; /* range of target */
54 int maxangle; /* potential target range */
55 int myphrange; /* angle to hit potentl targ */
56 char buf[80]; /* to sprintf warnings into */
57
58 mine = &phasers[me->p_no]; /* get phaser struct */
59 if (!(myship->s_nflags & SFNHASPHASERS))
60 { /* do we have phasers? */
61 warning("Weapons Officer: This ship is not armed with phasers, captain!");
62 return;
63 }
64 if (mine->ph_status != PHFREE)
65 { /* is phaser currently being */
66 warning("Phasers have not recharged"); /* fired */
67 return;
68 }
69 if (me->p_fuel < myship->s_phaser.cost)
70 { /* do we have enough fuel */
71 warning("Not enough fuel for phaser");
72 return;
73 }
74 if (me->p_flags & PFREPAIR)
75 { /* cannot fire while in */
76 warning("Can't fire while repairing"); /* repair mode */
77 return;
78 }
79 if (me->p_flags & PFWEP)
80 { /* cannot fire while weapon */
81 warning("Weapons overheated"); /* temped */
82 return;
83 }
84 if ((me->p_cloakphase) && (me->p_ship.s_type != ATT))
85 {
86 warning("Cannot fire while cloaked"); /* cannot fire while cloaked */
87 return;
88 }
89 if (!check_fire_warp()
90 || !check_fire_warpprep()
91 || !check_fire_docked())
92 return;
93
94 me->p_fuel -= myship->s_phaser.cost; /* subtract off fuel cost */
95 me->p_wtemp += myship->s_phaser.wtemp; /* add to w temp */
96 mine->ph_dir = course; /* get direction of phaser */
97 whichtarget = 0; /* no target fount yet */
98 range = 1000000; /* Sufficiently big. */
99 /* check the players */
100 for (i = 0, j = &players[i]; i < MAXPLAYER; i++, j++)
101 { /* loop all players */
102 if (((j->p_status != PALIVE)
103 #ifdef PFBIRD
104 && !(j->p_flags & PFBIRD)
105 #endif
106 ) || (j == me)) /* only check alive players */
107 continue;
108 if ((!((j->p_swar | j->p_hostile) & me->p_team)) &&
109 (!((me->p_swar | me->p_hostile) & j->p_team)) &&
110 #ifdef PFBIRD
111 !(j->p_flags & PFBIRD)
112 #endif
113 )
114 continue; /* only check at war with */
115 dir = (unsigned char) (int) (atan2((double) (j->p_x - me->p_x),
116 (double) (me->p_y - j->p_y)) / 3.14159 * 128.);
117 /* get range of target */
118 trange = ihypot(j->p_x - me->p_x, j->p_y - me->p_y);
119 if (trange == 0) /* don't want zero in atan */
120 trange = 1;
121 maxangle = atan((float) EXPDIST / trange) / 3.14159 * 128.0;
122 if (angdist(dir, course) <= maxangle)
123 { /* if angle within tolerance */
124 if (range > trange)
125 { /* then check to see if */
126 whichtarget = 1; /* this is the closest target */
127 target = j; /* found yet */
128 range = trange; /* record if it is */
129 }
130 }
131 } /* check the plasmas */
132 for (i = 0, k = &plasmatorps[i]; i < MAXPLASMA * MAXPLAYER; i++, k++)
133 {
134 if ((k->pt_status != PTMOVE) || (k->pt_owner == me->p_no))
135 continue; /* only check live plasmas */
136 if ((!(k->pt_war & me->p_team)) && /* and unfriendly ones */
137 (!((me->p_swar | me->p_hostile) & k->pt_team)))
138 continue;
139 dir = (unsigned char) (int) (atan2((double) (k->pt_x - me->p_x),
140 (double) (me->p_y - k->pt_y)) / 3.14159 * 128.); /* find direction */
141 trange = ihypot(k->pt_x - me->p_x, k->pt_y - me->p_y);
142 if (trange == 0) /* no zeroes in math funcs */
143 trange = 1;
144 maxangle = atan((float) EXPDIST / 4 / trange) / 3.14159 * 128.0;
145 if (angdist(dir, course) <= (maxangle + 1))
146 { /* if we can hit it */
147 if (range > trange)
148 { /* then check to see if this */
149 target_x = k->pt_x; /* is the closest plasma */
150 target_y = k->pt_y; /* found yet */
151 whichtarget = 2; /* and record it if it is */
152 target2 = k;
153 range = trange;
154 }
155 }
156 }
157 /* check the fighters */
158 for (i = 0, d = &missiles[i]; i < NPTHINGIES * MAXPLAYER; i++, d++)
159 {
160 if ((d->ms_owner == me->p_no) || (d->ms_type != FIGHTERTHINGY))
161 continue; /* only check live fighters */
162 if ((!(d->ms_war & me->p_team)) && /* and unfriendly ones */
163 (!((me->p_swar | me->p_hostile) & d->ms_team)))
164 continue;
165 dir = (unsigned char) (atan2((double) (d->ms_x - me->p_x),
166 (double) (me->p_y - d->ms_y))
167 / 3.14159 * 128.); /* find direction */
168 trange = ihypot(d->ms_x - me->p_x, d->ms_y - me->p_y);
169 if (trange == 0) /* no zeroes in math funcs */
170 trange = 1;
171 maxangle = atan((float) EXPDIST / 8 / trange) / 3.14159 * 128.0;
172 if (angdist(dir, course) <= (maxangle + 1))
173 { /* if we can hit it */
174 if (range > trange)
175 { /* then check to see if this */
176 target_x = d->ms_x; /* is the closest fighter */
177 target_y = d->ms_y; /* found yet */
178 whichtarget = 3; /* and record it if it is */
179 target3 = d;
180 range = trange;
181 }
182 }
183 }
184
185 mine->ph_fuse = me->p_ship.s_phaser.fuse; /* set phaser fuse */
186 myphrange = me->p_ship.s_phaser.speed; /* phaser range */
187 if ((whichtarget == 0) || /* if no target found or all */
188 (range > myphrange))
189 { /* targets too long */
190 mine->ph_status = PHMISS; /* then we missed */
191 warning("Phaser missed!!!");
192 }
193 else if (whichtarget == 2)
194 { /* if we hit a plasma then */
195 warning("You destroyed the plasma torpedo!");
196 mine->ph_x = target_x; /* the set point to shoot at */
197 mine->ph_y = target_y;
198 mine->ph_status = PHHIT2; /* we hit a plasma */
199 target2->pt_status = PTEXPLODE; /* Plasmas hurt everyone */
200 target2->pt_whodet = me->p_no;
201 }
202 else if (whichtarget == 3)
203 { /* if we hit a fighter then */
204 warning("You shot a fighter!");
205 mine->ph_x = target_x; /* the set point to shoot at */
206 mine->ph_y = target_y;
207 mine->ph_status = PHHIT2; /* we hit the fighter */
208 target3->ms_status = TDET; /* det the fighter */
209 target3->ms_whodet = me->p_no;
210 }
211 else
212 { /* else if we hit player */
213 mine->ph_target = target->p_no; /* set the player number */
214 mine->ph_damage = me->p_ship.s_phaser.damage * /* get damage */
215 (1.0 - (range / (float) myphrange));
216 if (mine->ph_damage < 0) /* if damage inflicted */
217 mine->ph_damage = -mine->ph_damage; /* set the phaser damage */
218 mine->ph_status = PHHIT; /* status is a hit */
219
220 #ifdef PFBIRD
221 if (target->p_flags & PFBIRD)
222 {
223 /* change to PHHIT2 so phaser won't follow bird */
224 mine->ph_status = PHHIT2;
225 mine->ph_x = target->p_x;
226 mine->ph_y = target->p_y;
227 /* xx: slight misuse of fields here */
228 target->p_damage = mine->ph_damage;
229 target->p_whodead = me->p_no;
230
231 (void) sprintf(buf, "\"AAWWK!\"");
232 }
233 #endif
234
235 (void) sprintf(buf, "Phaser burst hit %s for %d points",
236 target->p_name, mine->ph_damage);
237 warning(buf);
238 }
239 }
240
241 /*------------------------------------------------------------------------*/
242
243
244
245
246
247 /*-------END OF FILE-------*/