ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/server/c_range.C
(Generate patch)

Comparing deliantra/server/server/c_range.C (file contents):
Revision 1.12 by root, Tue Dec 12 21:39:57 2006 UTC vs.
Revision 1.55 by root, Sat Nov 17 23:40:03 2018 UTC

1/* 1/*
2 CrossFire, A Multiplayer game for X-windows 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 3 *
4 * Copyright (©) 2017,2018 Marc Alexander Lehmann / the Deliantra team
5 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
4 Copyright (C) 2002 Mark Wedel & Crossfire Development Team 6 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
5 Copyright (C) 1992 Frank Tore Johansen 7 * Copyright (©) 1992 Frank Tore Johansen
6 8 *
7 This program is free software; you can redistribute it and/or modify 9 * Deliantra is free software: you can redistribute it and/or modify it under
8 it under the terms of the GNU General Public License as published by 10 * the terms of the Affero GNU General Public License as published by the
9 the Free Software Foundation; either version 2 of the License, or 11 * Free Software Foundation, either version 3 of the License, or (at your
10 (at your option) any later version. 12 * option) any later version.
11 13 *
12 This program is distributed in the hope that it will be useful, 14 * This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of 15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details. 17 * GNU General Public License for more details.
16 18 *
17 You should have received a copy of the GNU General Public License 19 * You should have received a copy of the Affero GNU General Public License
18 along with this program; if not, write to the Free Software 20 * and the GNU General Public License along with this program. If not, see
19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 21 * <http://www.gnu.org/licenses/>.
20 22 *
21 The authors can be reached via e-mail at <crossfire@schmorp.de> 23 * The authors can be reached via e-mail to <support@deliantra.net>
22*/ 24 */
23 25
24/* This file deals with range related commands (casting, shooting, 26/* This file deals with range related commands (casting, shooting,
25 * throwing, etc. 27 * throwing, etc.
26 */ 28 */
27 29
28#include <global.h> 30#include <global.h>
29#ifndef __CEXTRACT__
30# include <sproto.h> 31#include <sproto.h>
31#endif
32#include <spells.h> 32#include <spells.h>
33#include <skills.h> 33#include <skills.h>
34#include <newclient.h> 34
35#include <commands.h> 35/* Shows all spells that op knows. If params is supplied, the must match
36 * that. Given there is more than one skill, we can't supply break
37 * them down to cleric/wizardry.
38 */
39static void
40show_matching_spells (object *op, char *params)
41{
42 object *spell;
43 char spell_sort[NROFREALSPELLS][MAX_BUF], tmp[MAX_BUF], *cp;
44 int num_found = 0, i;
45
46 /* We go and see what spells the player has. We put them
47 * into the spell_sort array so that we can sort them -
48 * we prefix the skill in the name so that the sorting
49 * works better.
50 */
51 for (spell = op->inv; spell; spell = spell->below)
52 {
53 /* If it is a spell, and no params are passed, or they
54 * match the name, process this spell.
55 */
56 if (spell->type == SPELL && (!params || !strncmp (params, spell->name, strlen (params))))
57 {
58 if (spell->path_attuned & op->path_denied)
59 {
60 sprintf (spell_sort[num_found++], "%s:%-22s %3s %3s", spell->skill ? &spell->skill : "generic", &spell->name, "den", "den");
61 }
62 else
63 {
64 sprintf (spell_sort[num_found++],
65 "%s:%-22s %3d %3d", spell->skill ? &spell->skill : "generic",
66 &spell->name, spell->level, SP_level_spellpoint_cost (op, spell, SPELL_HIGHEST));
67 }
68 }
69 }
70
71 if (!num_found)
72 {
73 /* If a matching string was passed along, now try it without that
74 * string. It is odd to do something like 'cast trans',
75 * and it say you have no spells, when really, you do, but just
76 * nothing that matches.
77 */
78 if (params)
79 show_matching_spells (op, NULL);
80 else
81 new_draw_info (NDI_UNIQUE, 0, op, "You know no spells");
82 }
83 else
84 {
85 /* Note in the code below that we make some
86 * presumptions that there will be a colon in the
87 * string. given the code above, this is always
88 * the case.
89 */
90 qsort (spell_sort, num_found, MAX_BUF, (int (*)(const void *, const void *)) std::strcmp);
91 strcpy (tmp, "asdfg"); /* Dummy string so initial compare fails */
92 for (i = 0; i < num_found; i++)
93 {
94 /* Different skill name, so print banner */
95 if (strncmp (tmp, spell_sort[i], strlen (tmp)))
96 {
97 strcpy (tmp, spell_sort[i]);
98 cp = strchr (tmp, ':');
99 *cp = '\0';
100 new_draw_info (NDI_UNIQUE, 0, op, "");
101 new_draw_info_format (NDI_UNIQUE, 0, op, "%s spells %.*s [lvl] [sp]", tmp, 12 - strlen (tmp), " ");
102 }
103 new_draw_info (NDI_UNIQUE, 0, op, strchr (spell_sort[i], ':') + 1);
104 }
105 }
106}
107
108/* sets up to cast a spell. op is the caster, params is the spell name,
109 * and command is the first letter of the spell type (c=cast, i=invoke,
110 * p=prepare). Invoke casts a spell immediately, where as cast (and I believe
111 * prepare) just set up the range type.
112 */
113static int
114command_cast_spell (object *op, char *params, char command)
115{
116 int castnow = 0;
117 char *cp;
118
119 if (command == 'i')
120 castnow = 1;
121
122 /* Remove control of the golem */
123 if (object *golem = op->contr->golem)
124 golem->drop_and_destroy ();
125
126 if (params)
127 {
128 object *spob = op->find_spell (params);
129
130 if (spob)
131 {
132 if (strlen (params) > strlen (spob->name))
133 {
134 cp = params + strlen (spob->name);
135 *cp = 0;
136 cp++;
137 if (!strncmp (cp, "of ", 3))
138 cp += 3;
139 }
140 else
141 cp = NULL;
142
143 if (castnow)
144 cast_spell (op, op, op->facing, spob, cp);
145 else if (op->apply (spob))
146 {
147 splay (spob);
148 assign (op->contr->spellparam, cp ? cp : "");
149 }
150
151 return 0;
152 } /* else fall through to below and print spells */
153 } /* params supplied */
154
155 /* We get here if cast was given without options or we could not find
156 * the requested spell. List all the spells the player knows.
157 */
158 new_draw_info (NDI_UNIQUE, 0, op, "Cast what spell? Choose one of:");
159 show_matching_spells (op, params);
160
161 return 1;
162}
36 163
37int 164int
38command_invoke (object *op, char *params) 165command_invoke (object *op, char *params)
39{ 166{
40 return command_cast_spell (op, params, 'i'); 167 return command_cast_spell (op, params, 'i');
… …
50command_prepare (object *op, char *params) 177command_prepare (object *op, char *params)
51{ 178{
52 return command_cast_spell (op, params, 'p'); 179 return command_cast_spell (op, params, 'p');
53} 180}
54 181
55/* Shows all spells that op knows. If params is supplied, the must match
56 * that. Given there is more than one skill, we can't supply break
57 * them down to cleric/wizardry.
58 */
59static void
60show_matching_spells (object *op, char *params)
61{
62 object *spell;
63 char spell_sort[NROFREALSPELLS][MAX_BUF], tmp[MAX_BUF], *cp;
64 int num_found = 0, i;
65
66 /* We go and see what spells the player has. We put them
67 * into the spell_sort array so that we can sort them -
68 * we prefix the skill in the name so that the sorting
69 * works better.
70 */
71 for (spell = op->inv; spell != NULL; spell = spell->below)
72 {
73 /* If it is a spell, and no params are passed, or they
74 * match the name, process this spell.
75 */
76 if (spell->type == SPELL && (!params || !strncmp (params, spell->name, strlen (params))))
77 {
78 if (spell->path_attuned & op->path_denied)
79 {
80 sprintf (spell_sort[num_found++], "%s:%-22s %3s %3s", spell->skill ? &spell->skill : "generic", &spell->name, "den", "den");
81 }
82 else
83 {
84 sprintf (spell_sort[num_found++],
85 "%s:%-22s %3d %3d", spell->skill ? &spell->skill : "generic",
86 &spell->name, spell->level, SP_level_spellpoint_cost (op, spell, SPELL_HIGHEST));
87 }
88 }
89 }
90 if (!num_found)
91 {
92 /* If a matching string was passed along, now try it without that
93 * string. It is odd to do something like 'cast trans',
94 * and it say you have no spells, when really, you do, but just
95 * nothing that matches.
96 */
97 if (params)
98 show_matching_spells (op, NULL);
99 else
100 new_draw_info (NDI_UNIQUE, 0, op, "You know no spells");
101 }
102 else
103 {
104 /* Note in the code below that we make some
105 * presumptions that there will be a colon in the
106 * string. given the code above, this is always
107 * the case.
108 */
109 qsort (spell_sort, num_found, MAX_BUF, (int (*)(const void *, const void *)) strcmp);
110 strcpy (tmp, "asdfg"); /* Dummy string so initial compare fails */
111 for (i = 0; i < num_found; i++)
112 {
113 /* Different skill name, so print banner */
114 if (strncmp (tmp, spell_sort[i], strlen (tmp)))
115 {
116 strcpy (tmp, spell_sort[i]);
117 cp = strchr (tmp, ':');
118 *cp = '\0';
119 new_draw_info (NDI_UNIQUE, 0, op, "");
120 new_draw_info_format (NDI_UNIQUE, 0, op, "%s spells %.*s [lvl] [sp]", tmp, 12 - strlen (tmp), " ");
121 }
122 new_draw_info (NDI_UNIQUE, 0, op, strchr (spell_sort[i], ':') + 1);
123 }
124 }
125}
126
127/* sets up to cast a spell. op is the caster, params is the spell name,
128 * and command is the first letter of the spell type (c=cast, i=invoke,
129 * p=prepare). Invoke casts a spell immediately, where as cast (and I believe
130 * prepare) just set up the range type.
131 */
132int
133command_cast_spell (object *op, char *params, char command)
134{
135 int castnow = 0;
136 char *cp;
137 object *spob;
138
139 if (command == 'i')
140 castnow = 1;
141
142 /* Remove control of the golem */
143 if (op->contr->ranges[range_golem])
144 {
145 op->contr->ranges[range_golem]->destroy ();
146 op->contr->ranges[range_golem] = 0;
147 }
148
149 if (params != NULL)
150 {
151 int spellnumber = 0;
152
153 if ((spellnumber = atoi (params)))
154 for (spob = op->inv; spob && spob->count != spellnumber; spob = spob->below)
155 /* nop */;
156 else
157 spob = lookup_spell_by_name (op, params);
158
159 if (spob && spob->type == SPELL)
160 {
161 /* Now grab any extra data, if there is any. Forward pass
162 * any 'of' delimiter
163 */
164 if (spellnumber)
165 {
166 /* if we passed a number, the options start at the second word */
167 cp = strchr (params, ' ');
168 if (cp)
169 {
170 cp++;
171 if (!strncmp (cp, "of ", 3))
172 cp += 3;
173 }
174 }
175 else if (strlen (params) > (size_t) strlen (spob->name))
176 {
177 cp = params + strlen (spob->name);
178 *cp = 0;
179 cp++;
180 if (!strncmp (cp, "of ", 3))
181 cp += 3;
182 }
183 else
184 cp = NULL;
185
186 if (spob->skill && !find_skill_by_name (op, spob->skill))
187 {
188 new_draw_info_format (NDI_UNIQUE, 0, op, "You need the skill %s to cast %s!", &spob->skill, &spob->name);
189 return 1;
190 }
191
192 if (castnow)
193 cast_spell (op, op, op->facing, spob, cp);
194 else
195 {
196 op->contr->ranges[range_magic] = spob;
197 op->contr->shoottype = range_magic;
198 assign (op->contr->spellparam, cp ? cp : "");
199 new_draw_info_format (NDI_UNIQUE, 0, op, "You ready the spell %s", &spob->name);
200 }
201
202 return 0;
203 } /* else fall through to below and print spells */
204 } /* params supplied */
205
206 /* We get here if cast was given without options or we could not find
207 * the requested spell. List all the spells the player knows.
208 */
209 new_draw_info (NDI_UNIQUE, 0, op, "Cast what spell? Choose one of:");
210 show_matching_spells (op, params);
211 return 1;
212}
213
214/**************************************************************************/ 182/**************************************************************************/
215
216/* Returns TRUE if the range specified (int r) is legal - that is,
217 * the character has an item that is equipped for that range type.
218 * return 0 if there is no item of that range type that is usable.
219 * This function could probably be simplified, eg, everything
220 * should index into the ranges[] array.
221 */
222
223int
224legal_range (object *op, int r)
225{
226
227 switch (r)
228 {
229 case range_none: /* "Nothing" is always legal */
230 return 1;
231
232 case range_bow:
233 case range_misc:
234 case range_magic: /* cast spells */
235 return !!op->contr->ranges[r];
236
237 case range_golem: /* Use scrolls */
238 return !!op->contr->ranges[range_golem];
239
240 case range_skill:
241 return !!op->chosen_skill;
242 }
243
244 /* No match above, must not be valid */
245 return 0;
246}
247
248void
249change_spell (object *op, char k)
250{
251
252 do
253 {
254 op->contr->shoottype = (rangetype) (op->contr->shoottype + ((k == '+') ? 1 : -1));
255 if (op->contr->shoottype >= range_size)
256 op->contr->shoottype = range_none;
257 else if (op->contr->shoottype <= range_bottom)
258 op->contr->shoottype = (rangetype) (range_size - 1);
259 }
260 while (!legal_range (op, op->contr->shoottype));
261
262 /* Legal range has already checked that we have an appropriate item
263 * that uses the slot, so we don't need to be too careful about
264 * checking the status of the object.
265 */
266 switch (op->contr->shoottype)
267 {
268 case range_none:
269 new_draw_info (NDI_UNIQUE, 0, op, "No ranged attack chosen.");
270 break;
271
272 case range_golem:
273 new_draw_info (NDI_UNIQUE, 0, op, "You regain control of your golem.");
274 break;
275
276 case range_bow:
277 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to %s and %s.", query_name (op->contr->ranges[range_bow]),
278 op->contr->ranges[range_bow]->race ? &op->contr->ranges[range_bow]->race : "nothing");
279 break;
280
281 case range_magic:
282 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to spells (%s).", &op->contr->ranges[range_magic]->name);
283 break;
284
285 case range_misc:
286 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to %s.", query_base_name (op->contr->ranges[range_misc], 0));
287 break;
288
289 case range_skill:
290 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to skill: %s", op->chosen_skill ? &op->chosen_skill->name : "none");
291 break;
292
293 default:
294 break;
295 }
296}
297
298 183
299int 184int
300command_rotateshoottype (object *op, char *params) 185command_rotateshoottype (object *op, char *params)
301{ 186{
302 if (!params) 187 if (op->contr->combat_ob && op->contr->ranged_ob)
303 change_spell (op, '+'); 188 op->apply (
304 else 189 op->current_weapon == op->contr->combat_ob
305 change_spell (op, params[0]); 190 ? op->contr->ranged_ob
191 : op->contr->combat_ob
192 );
193
194 //TODO: maybe switch to golem, if any?
195
306 return 0; 196 return 0;
307} 197}
198

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines