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
|
#include <cstring>
#include "../strings/xstring.hpp"
#include "../io/cxxstdio.hpp"
#include "magic-interpreter.hpp"
#include "pc.hpp"
#include "magic-expr.hpp"
#include "magic-interpreter-base.hpp"
#include "magic-interpreter-lexer.hpp"
#include "src/map/magic-interpreter-parser.hpp"
#include "magic-stmt.hpp"
#include "magic.hpp"
#include "../poison.hpp"
#undef DEBUG
/// Return a pair of strings, {spellname, parameter}
/// Parameter may be empty.
static
std::pair<XString, XString> magic_tokenise(XString src)
{
auto seeker = std::find(src.begin(), src.end(), ' ');
if (seeker == src.end())
{
return {src, XString()};
}
else
{
XString rv1 = src.xislice_h(seeker);
++seeker;
while (seeker != src.end() && *seeker == ' ')
++seeker;
// Note: this very well could be empty
XString rv2 = src.xislice_t(seeker);
return {rv1, rv2};
}
}
int magic_message(dumb_ptr<map_session_data> caster, XString source_invocation)
{
if (pc_isdead(caster))
return 0;
if (bool(caster->status.option & Option::HIDE))
return 0; // No spellcasting while hidden
int power = caster->matk1;
// This was the only thing worth saving from magic_preprocess_message.
// May it rest only, and never rise again.
// For more information on how this code worked, travel through time
// and watch all the comments I wrote for myself while trying to figure
// out if it was safe to delete.
if (caster->state.shroud_active && caster->state.shroud_disappears_on_talk)
magic_unshroud(caster);
auto pair = magic_tokenise(source_invocation);
XString spell_invocation = pair.first;
XString parameter = pair.second;
dumb_ptr<spell_t> spell = magic_find_spell(spell_invocation);
if (spell)
{
int near_miss;
dumb_ptr<env_t> env =
spell_create_env(&magic_conf, spell, caster, power, parameter);
effect_set_t *effects;
if (bool(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
MAP_LOG_PC(caster, "CAST %s %s",
spell->name, effects ? "SUCCESS" : "FAILURE");
if (effects)
{
dumb_ptr<invocation> invocation = spell_instantiate(effects, env);
spell_bind(caster, invocation);
spell_execute(invocation);
return bool(spell->flags & SPELL_FLAG::SILENT) ? -1 : 1;
}
else
magic_free_env(env);
return 1;
}
return 0; /* Not a spell */
}
|
