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.18 by root, Tue Apr 24 12:32:16 2007 UTC vs.
Revision 1.39 by root, Mon Oct 12 14:00:59 2009 UTC

1/* 1/*
2 * CrossFire, A Multiplayer game 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team 4 * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (C) 2002 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
6 * Copyright (C) 1992 Frank Tore Johansen 6 * Copyright (©) 1992,2007 Frank Tore Johansen
7 * 7 *
8 * This program is free software; you can redistribute it and/or modify 8 * Deliantra is free software: you can redistribute it and/or modify it under
9 * it under the terms of the GNU General Public License as published by 9 * the terms of the Affero GNU General Public License as published by the
10 * the Free Software Foundation; either version 2 of the License, or 10 * Free Software Foundation, either version 3 of the License, or (at your
11 * (at your option) any later version. 11 * option) any later version.
12 * 12 *
13 * This program is distributed in the hope that it will be useful, 13 * This program is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of 14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 * GNU General Public License for more details. 16 * GNU General Public License for more details.
17 * 17 *
18 * You should have received a copy of the GNU General Public License 18 * You should have received a copy of the Affero GNU General Public License
19 * along with this program; if not, write to the Free Software 19 * and the GNU General Public License along with this program. If not, see
20 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 20 * <http://www.gnu.org/licenses/>.
21 * 21 *
22 * The authors can be reached via e-mail at <crossfire@schmorp.de> 22 * The authors can be reached via e-mail to <support@deliantra.net>
23 */ 23 */
24 24
25/* This file deals with range related commands (casting, shooting, 25/* This file deals with range related commands (casting, shooting,
26 * throwing, etc. 26 * throwing, etc.
27 */ 27 */
64 /* We go and see what spells the player has. We put them 64 /* We go and see what spells the player has. We put them
65 * into the spell_sort array so that we can sort them - 65 * into the spell_sort array so that we can sort them -
66 * we prefix the skill in the name so that the sorting 66 * we prefix the skill in the name so that the sorting
67 * works better. 67 * works better.
68 */ 68 */
69 for (spell = op->inv; spell != NULL; spell = spell->below) 69 for (spell = op->inv; spell; spell = spell->below)
70 { 70 {
71 /* If it is a spell, and no params are passed, or they 71 /* If it is a spell, and no params are passed, or they
72 * match the name, process this spell. 72 * match the name, process this spell.
73 */ 73 */
74 if (spell->type == SPELL && (!params || !strncmp (params, spell->name, strlen (params)))) 74 if (spell->type == SPELL && (!params || !strncmp (params, spell->name, strlen (params))))
83 "%s:%-22s %3d %3d", spell->skill ? &spell->skill : "generic", 83 "%s:%-22s %3d %3d", spell->skill ? &spell->skill : "generic",
84 &spell->name, spell->level, SP_level_spellpoint_cost (op, spell, SPELL_HIGHEST)); 84 &spell->name, spell->level, SP_level_spellpoint_cost (op, spell, SPELL_HIGHEST));
85 } 85 }
86 } 86 }
87 } 87 }
88
88 if (!num_found) 89 if (!num_found)
89 { 90 {
90 /* If a matching string was passed along, now try it without that 91 /* If a matching string was passed along, now try it without that
91 * string. It is odd to do something like 'cast trans', 92 * string. It is odd to do something like 'cast trans',
92 * and it say you have no spells, when really, you do, but just 93 * and it say you have no spells, when really, you do, but just
136 137
137 if (command == 'i') 138 if (command == 'i')
138 castnow = 1; 139 castnow = 1;
139 140
140 /* Remove control of the golem */ 141 /* Remove control of the golem */
141 if (object *golem = op->contr->ranges[range_golem]) 142 if (object *golem = op->contr->golem)
142 golem->destroy (); 143 golem->drop_and_destroy ();
143 144
144 if (params) 145 if (params)
145 { 146 {
146 int spellnumber = 0; 147 int spellnumber = 0;
147 148
165 cp++; 166 cp++;
166 if (!strncmp (cp, "of ", 3)) 167 if (!strncmp (cp, "of ", 3))
167 cp += 3; 168 cp += 3;
168 } 169 }
169 } 170 }
170 else if (strlen (params) > (size_t) strlen (spob->name)) 171 else if (strlen (params) > strlen (spob->name))
171 { 172 {
172 cp = params + strlen (spob->name); 173 cp = params + strlen (spob->name);
173 *cp = 0; 174 *cp = 0;
174 cp++; 175 cp++;
175 if (!strncmp (cp, "of ", 3)) 176 if (!strncmp (cp, "of ", 3))
176 cp += 3; 177 cp += 3;
177 } 178 }
178 else 179 else
179 cp = NULL; 180 cp = NULL;
180 181
181 if (spob->skill && !find_skill_by_name (op, spob->skill)) 182 if (!spob->skill)
182 { 183 {
183 new_draw_info_format (NDI_UNIQUE, 0, op, "You need the skill %s to cast %s!", &spob->skill, &spob->name); 184 new_draw_info_format (NDI_UNIQUE, 0, op, "%s is a weird spell, please report it to the dungeon master!", &spob->name);
185 LOG (llevError, "spell without skill found: %s", spob->debug_desc ());
184 return 1; 186 return 1;
185 } 187 }
188
189 object *skill = find_skill_by_name (op, spob->skill);
190
191 if (!skill)
192 {
193 op->failmsg (format ("You need the skill %s to cast %s!", &spob->skill, &spob->name));
194 return 1;
195 }
196
197 splay (spob);
186 198
187 if (castnow) 199 if (castnow)
188 cast_spell (op, op, op->facing, spob, cp); 200 cast_spell (op, op, op->facing, spob, cp);
189 else 201 else
190 { 202 {
191 op->contr->ranges[range_magic] = spob; 203 if (op->contr->ranged_ob)
192 op->contr->shoottype = range_magic; 204 if (op->contr->ranged_ob->flag [FLAG_APPLIED])
205 apply_special (op, op->contr->ranged_ob, AP_UNAPPLY);
206 else
207 op->contr->ranged_ob = 0;
208
209 if (op->contr->ranged_ob)
210 op->failmsg (format ("You have to unapply the %s first to ready a spell.", &op->contr->ranged_ob->name));
211 else
212 {
213 op->change_weapon (op->contr->ranged_ob = spob);
214
193 assign (op->contr->spellparam, cp ? cp : ""); 215 assign (op->contr->spellparam, cp ? cp : "");
194 new_draw_info_format (NDI_UNIQUE, 0, op, "You ready the spell %s", &spob->name); 216 op->statusmsg (format ("You ready the spell %s", &spob->name));
217 }
195 } 218 }
196 219
197 return 0; 220 return 0;
198 } /* else fall through to below and print spells */ 221 } /* else fall through to below and print spells */
199 } /* params supplied */ 222 } /* params supplied */
200 223
201 /* We get here if cast was given without options or we could not find 224 /* We get here if cast was given without options or we could not find
202 * the requested spell. List all the spells the player knows. 225 * the requested spell. List all the spells the player knows.
203 */ 226 */
204 new_draw_info (NDI_UNIQUE, 0, op, "Cast what spell? Choose one of:"); 227 new_draw_info (NDI_UNIQUE, 0, op, "Cast what spell? Choose one of:");
205 show_matching_spells (op, params); 228 show_matching_spells (op, params);
229
206 return 1; 230 return 1;
207} 231}
208 232
209/**************************************************************************/ 233/**************************************************************************/
210
211/* Returns TRUE if the range specified (int r) is legal - that is,
212 * the character has an item that is equipped for that range type.
213 * return 0 if there is no item of that range type that is usable.
214 * This function could probably be simplified, eg, everything
215 * should index into the ranges[] array.
216 */
217
218int
219legal_range (object *op, int r)
220{
221 switch (r)
222 {
223 case range_none: /* "Nothing" is always legal */
224 return 1;
225
226 case range_bow:
227 case range_misc:
228 case range_magic: /* cast spells */
229 return !!op->contr->ranges[r];
230
231 case range_golem: /* Use scrolls */
232 return !!op->contr->ranges[range_golem];
233
234 case range_skill:
235 return !!op->chosen_skill;
236 }
237
238 /* No match above, must not be valid */
239 return 0;
240}
241 234
242void 235void
243change_spell (object *op, char k) 236change_spell (object *op, char k)
244{ 237{
245 do 238 if (op->contr->combat_ob == op->current_weapon)
246 {
247 op->contr->shoottype = (rangetype) (op->contr->shoottype + ((k == '+') ? 1 : -1));
248 if (op->contr->shoottype >= range_size)
249 op->contr->shoottype = range_none;
250 else if (op->contr->shoottype <= range_bottom)
251 op->contr->shoottype = (rangetype) (range_size - 1);
252 } 239 {
253 while (!legal_range (op, op->contr->shoottype)); 240 if (op->contr->ranged_ob)
254 241 op->change_weapon (op->contr->ranged_ob);
255 /* Legal range has already checked that we have an appropriate item
256 * that uses the slot, so we don't need to be too careful about
257 * checking the status of the object.
258 */
259 switch (op->contr->shoottype)
260 { 242 }
261 case range_none: 243 else if (op->contr->ranged_ob == op->current_weapon)
262 new_draw_info (NDI_UNIQUE, 0, op, "No ranged attack chosen.");
263 break;
264
265 case range_golem:
266 new_draw_info (NDI_UNIQUE, 0, op, "You regain control of your golem.");
267 break;
268
269 case range_bow:
270 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to %s and %s.", query_name (op->contr->ranges[range_bow]),
271 op->contr->ranges[range_bow]->race ? &op->contr->ranges[range_bow]->race : "nothing");
272 break;
273
274 case range_magic:
275 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to spells (%s).", &op->contr->ranges[range_magic]->name);
276 break;
277
278 case range_misc:
279 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to %s.", query_base_name (op->contr->ranges[range_misc], 0));
280 break;
281
282 case range_skill:
283 new_draw_info_format (NDI_UNIQUE, 0, op, "Switched to skill: %s", op->chosen_skill ? &op->chosen_skill->name : "none");
284 break;
285
286 default:
287 break;
288 } 244 {
289} 245 if (op->contr->combat_ob)
246 op->change_weapon (op->contr->combat_ob);
247 }
290 248
249 //TODO: maybe switch to golem, if any?
250}
291 251
292int 252int
293command_rotateshoottype (object *op, char *params) 253command_rotateshoottype (object *op, char *params)
294{ 254{
295 if (!params) 255 if (!params)
296 change_spell (op, '+'); 256 change_spell (op, '+');
297 else 257 else
298 change_spell (op, params[0]); 258 change_spell (op, params[0]);
259
299 return 0; 260 return 0;
300} 261}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines