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.h"
#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)
{
int power = caster->matk1;
char *invocation_base = spell_ + 8;
char *source_invocation = strchr(invocation_base, ':');
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 (effects) {
invocation_t *invocation = spell_instantiate(effects, env);
/* We have a proper spell effect-- obscure the invocation! */
while (*source_invocation) {
if (((rand() * 100.0) / (RAND_MAX * 1.0)) < magic_conf.obscure_chance)
*source_invocation = '*';
++source_invocation;
}
spell_bind(caster, invocation);
spell_execute(invocation);
return (spell->flags & SPELL_FLAG_SILENT)? -1 : 1;
} else {
magic_free_env(env);
/* Obscure proper almost-triggered spell */
if (near_miss)
while (*source_invocation)
*source_invocation++ = '.';
}
return 1;
}
return 0; /* Not a spell */
}
int
magic_init(char *conffile); // must be called after itemdb initialisation
void
do_init_magic()
{
magic_init(MAGIC_CONFIG_FILE);
}
|
