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.34 by root, Tue May 6 16:55:26 2008 UTC vs.
Revision 1.53 by root, Sun Nov 25 14:59:25 2012 UTC

1/* 1/*
2 * This file is part of Deliantra, the Roguelike Realtime MMORPG. 2 * This file is part of Deliantra, the Roguelike Realtime MMORPG.
3 * 3 *
4 * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra team 4 * Copyright (©) 2005,2006,2007,2008,2009,2010,2011,2012 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
5 * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team 5 * Copyright (©) 2002 Mark Wedel & Crossfire Development Team
6 * Copyright (©) 1992,2007 Frank Tore Johansen 6 * Copyright (©) 1992 Frank Tore Johansen
7 * 7 *
8 * Deliantra 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 3 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, see <http://www.gnu.org/licenses/>. 19 * and the GNU General Public License along with this program. If not, see
20 * <http://www.gnu.org/licenses/>.
20 * 21 *
21 * The authors can be reached via e-mail to <support@deliantra.net> 22 * The authors can be reached via e-mail to <support@deliantra.net>
22 */ 23 */
23 24
24/* This file deals with range related commands (casting, shooting, 25/* This file deals with range related commands (casting, shooting,
25 * throwing, etc. 26 * throwing, etc.
… …
27 28
28#include <global.h> 29#include <global.h>
29#include <sproto.h> 30#include <sproto.h>
30#include <spells.h> 31#include <spells.h>
31#include <skills.h> 32#include <skills.h>
32#include <commands.h>
33
34int
35command_invoke (object *op, char *params)
36{
37 return command_cast_spell (op, params, 'i');
38}
39
40int
41command_cast (object *op, char *params)
42{
43 return command_cast_spell (op, params, 'c');
44}
45
46int
47command_prepare (object *op, char *params)
48{
49 return command_cast_spell (op, params, 'p');
50}
51 33
52/* Shows all spells that op knows. If params is supplied, the must match 34/* Shows all spells that op knows. If params is supplied, the must match
53 * that. Given there is more than one skill, we can't supply break 35 * that. Given there is more than one skill, we can't supply break
54 * them down to cleric/wizardry. 36 * them down to cleric/wizardry.
55 */ 37 */
… …
121 } 103 }
122 } 104 }
123} 105}
124 106
125/* sets up to cast a spell. op is the caster, params is the spell name, 107/* sets up to cast a spell. op is the caster, params is the spell name,
126 * and command is the first letter of the spell type (c=cast, i=invoke, 108 * and command is the first letter of the spell type (c=cast, i=invoke,
127 * p=prepare). Invoke casts a spell immediately, where as cast (and I believe 109 * p=prepare). Invoke casts a spell immediately, where as cast (and I believe
128 * prepare) just set up the range type. 110 * prepare) just set up the range type.
129 */ 111 */
130int 112static int
131command_cast_spell (object *op, char *params, char command) 113command_cast_spell (object *op, char *params, char command)
132{ 114{
133 int castnow = 0; 115 int castnow = 0;
134 char *cp; 116 char *cp;
135 object *spob;
136 117
137 if (command == 'i') 118 if (command == 'i')
138 castnow = 1; 119 castnow = 1;
139 120
140 /* Remove control of the golem */ 121 /* Remove control of the golem */
141 if (object *golem = op->contr->golem) 122 if (object *golem = op->contr->golem)
142 golem->destroy (); 123 golem->drop_and_destroy ();
143 124
144 if (params) 125 if (params)
145 { 126 {
146 int spellnumber = 0; 127 object *spob = op->find_spell (params);
147 128
148 if ((spellnumber = atoi (params))) 129 if (spob)
149 for (spob = op->inv; spob && spob->count != spellnumber; spob = spob->below)
150 /* nop */;
151 else
152 spob = lookup_spell_by_name (op, params);
153
154 if (spob && spob->type == SPELL)
155 { 130 {
156 /* Now grab any extra data, if there is any. Forward pass
157 * any 'of' delimiter
158 */
159 if (spellnumber)
160 {
161 /* if we passed a number, the options start at the second word */
162 cp = strchr (params, ' ');
163 if (cp)
164 {
165 cp++;
166 if (!strncmp (cp, "of ", 3))
167 cp += 3;
168 }
169 }
170 else if (strlen (params) > strlen (spob->name)) 131 if (strlen (params) > strlen (spob->name))
171 { 132 {
172 cp = params + strlen (spob->name); 133 cp = params + strlen (spob->name);
173 *cp = 0; 134 *cp = 0;
174 cp++; 135 cp++;
175 if (!strncmp (cp, "of ", 3)) 136 if (!strncmp (cp, "of ", 3))
176 cp += 3; 137 cp += 3;
177 } 138 }
178 else 139 else
179 cp = NULL; 140 cp = NULL;
180 141
181 if (!spob->skill)
182 {
183 new_draw_info_format (NDI_UNIQUE, 0, op, "%s is a weird spell, please report it to the dungeon master!", &spob->name);
184 LOG (llevError, "spell without skill found: %s", spob->debug_desc ());
185 return 1;
186 }
187
188 object *skill = find_skill_by_name (op, spob->skill);
189
190 if (!skill)
191 {
192 op->failmsg (format ("You need the skill %s to cast %s!", &spob->skill, &spob->name));
193 return 1;
194 }
195
196 splay (spob);
197
198 if (castnow) 142 if (castnow)
199 cast_spell (op, op, op->facing, spob, cp); 143 cast_spell (op, op, op->facing, spob, cp);
200 else 144 else if (op->apply (spob))
201 { 145 {
202 if (op->contr->ranged_ob) 146 splay (spob);
203 if (op->contr->ranged_ob->flag [FLAG_APPLIED])
204 apply_special (op, op->contr->ranged_ob, AP_UNAPPLY);
205 else
206 op->contr->ranged_ob = 0;
207
208 if (op->contr->ranged_ob)
209 op->failmsg (format ("You have to unapply the %s first to ready a spell.", &op->contr->ranged_ob->name));
210 else
211 {
212 op->change_weapon (op->contr->ranged_ob = spob);
213
214 assign (op->contr->spellparam, cp ? cp : ""); 147 assign (op->contr->spellparam, cp ? cp : "");
215 op->statusmsg (format ("You ready the spell %s", &spob->name));
216 }
217 } 148 }
218 149
219 return 0; 150 return 0;
220 } /* else fall through to below and print spells */ 151 } /* else fall through to below and print spells */
221 } /* params supplied */ 152 } /* params supplied */
… …
227 show_matching_spells (op, params); 158 show_matching_spells (op, params);
228 159
229 return 1; 160 return 1;
230} 161}
231 162
163int
164command_invoke (object *op, char *params)
165{
166 return command_cast_spell (op, params, 'i');
167}
168
169int
170command_cast (object *op, char *params)
171{
172 return command_cast_spell (op, params, 'c');
173}
174
175int
176command_prepare (object *op, char *params)
177{
178 return command_cast_spell (op, params, 'p');
179}
180
232/**************************************************************************/ 181/**************************************************************************/
233
234void
235change_spell (object *op, char k)
236{
237 if (op->contr->combat_ob == op->current_weapon)
238 {
239 if (op->contr->ranged_ob)
240 op->change_weapon (op->contr->ranged_ob);
241 }
242 else if (op->contr->ranged_ob == op->current_weapon)
243 {
244 if (op->contr->combat_ob)
245 op->change_weapon (op->contr->combat_ob);
246 }
247
248 //TODO: maybe switch to golem, if any?
249}
250 182
251int 183int
252command_rotateshoottype (object *op, char *params) 184command_rotateshoottype (object *op, char *params)
253{ 185{
254 if (!params) 186 if (op->contr->combat_ob && op->contr->ranged_ob)
255 change_spell (op, '+'); 187 op->apply (
256 else 188 op->current_weapon == op->contr->combat_ob
257 change_spell (op, params[0]); 189 ? op->contr->ranged_ob
190 : op->contr->combat_ob
191 );
192
193 //TODO: maybe switch to golem, if any?
258 194
259 return 0; 195 return 0;
260} 196}
197

Diff Legend

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