1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include "magic-interpreter.hpp"
#undef DEBUG
static char *magic_preprocess_message (character_t * character, char *start,
char *end)
{
if (character->state.shroud_active
&& character->state.shroud_disappears_on_talk)
magic_unshroud (character);
if (character->state.shroud_active
&& character->state.shroud_hides_name_talking)
{
int len = strlen (end);
strcpy (start, "? ");
memmove (start + 2, end, len + 1);
return start + 4;
}
else
return end + 2; /* step past blank */
}
#define ISBLANK(c) ((c) == ' ')
/* Returns a dynamically allocated copy of `src'.
* `*parameter' may point within that copy or be NULL. */
static char *magic_tokenise (char *src, char **parameter)
{
char *retval = strdup (src);
char *seeker = retval;
while (*seeker && !ISBLANK (*seeker))
++seeker;
if (!*seeker)
*parameter = NULL;
else
{
*seeker = 0; /* Terminate invocation */
++seeker;
while (ISBLANK (*seeker))
++seeker;
*parameter = seeker;
}
return retval;
}
int magic_message (character_t * caster, char *spell_, size_t spell_len)
{
if (pc_isdead (caster))
return 0;
int power = caster->matk1;
char *invocation_base = spell_ + 8;
char *source_invocation =
1 + invocation_base + strlen (caster->status.name);
spell_t *spell;
char *parameter;
char *spell_invocation;
if (!source_invocation)
return 0;
/* Pre-message filter in case some spell alters output */
source_invocation =
magic_preprocess_message (caster, invocation_base, source_invocation);
spell_invocation = magic_tokenise (source_invocation, ¶meter);
parameter = parameter ? strdup (parameter) : strdup ("");
spell = magic_find_spell (spell_invocation);
free (spell_invocation);
if (spell)
{
int near_miss;
env_t *env =
spell_create_env (&magic_conf, spell, caster, power, parameter);
effect_set_t *effects;
if ((spell->flags & SPELL_FLAG_NONMAGIC) || (power >= 1))
effects = spell_trigger (spell, caster, env, &near_miss);
else
effects = NULL;
#ifdef DEBUG
fprintf (stderr, "Found spell `%s', triggered = %d\n", spell_,
effects != NULL);
#endif
if (caster->status.option & OPTION_HIDE)
return 0; // No spellcasting while hidden
MAP_LOG_PC (caster, "CAST %s %s",
spell->name, effects ? "SUCCESS" : "FAILURE");
if (effects)
{
invocation_t *invocation = spell_instantiate (effects, env);
spell_bind (caster, invocation);
spell_execute (invocation);
return (spell->flags & SPELL_FLAG_SILENT) ? -1 : 1;
}
else
magic_free_env (env);
return 1;
}
else
free (parameter);
return 0; /* Not a spell */
}
void do_init_magic (void)
{
magic_init (MAGIC_CONFIG_FILE);
}
|
