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
|
-- handle the melkor school
-- Not included in the spell code directly because I need to call it from somewhere else too
function do_melkor_curse(who)
local m_ptr = monster(who)
if get_level(MELKOR_CURSE) >= 35 then
local r_ptr = race_info_idx(m_ptr.r_idx, m_ptr.ego)
m_ptr.maxhp = m_ptr.maxhp - r_ptr.hside;
if m_ptr.maxhp < 1 then m_ptr.maxhp = 1 end
if m_ptr.hp > m_ptr.maxhp then m_ptr.hp = m_ptr.maxhp end
player.redraw = bor(player.redraw, PR_HEALTH)
end
if get_level(MELKOR_CURSE) >= 25 then
m_ptr.speed = m_ptr.speed - get_level(MELKOR_CURSE, 7)
m_ptr.mspeed = m_ptr.mspeed - get_level(MELKOR_CURSE, 7)
if m_ptr.speed < 70 then m_ptr.speed = 70 end
if m_ptr.mspeed < 70 then m_ptr.mspeed = 70 end
end
if get_level(MELKOR_CURSE) >= 15 then
m_ptr.ac = m_ptr.ac - get_level(MELKOR_CURSE, 50)
if m_ptr.ac < -70 then m_ptr.ac = -70 end
end
local i, pow
i = 1
pow = get_level(MELKOR_CURSE, 2)
while (i <= 4) do
if m_ptr.blow[i].d_dice > 0 then
if m_ptr.blow[i].d_dice < pow then
pow = m_ptr.blow[i].d_dice
end
if m_ptr.blow[i].d_side < pow then
pow = m_ptr.blow[i].d_side
end
m_ptr.blow[i].d_dice = m_ptr.blow[i].d_dice - pow
end
i = i + 1
end
local m_name = monster_desc(m_ptr, 0).." looks weaker."
msg_print(strupper(strsub(m_name, 0, 1))..strsub(m_name, 2))
-- wake it
m_ptr.csleep = 0;
end
MELKOR_CURSE = add_spell
{
["name"] = "Curse",
["school"] = {SCHOOL_MELKOR},
["level"] = 1,
["mana"] = 50,
["mana_max"] = 300,
["fail"] = 20,
-- Uses piety to cast
["piety"] = TRUE,
["stat"] = A_WIS,
["random"] = SKILL_SPIRITUALITY,
["spell"] = function() return melkor_curse() end,
["info"] = function() return melkor_curse_info() end,
["desc"] = {
"It curses a monster, reducing its melee power",
"At level 5 it can be auto-casted (with no piety cost) while fighting",
"At level 15 it also reduces armor",
"At level 25 it also reduces speed",
"At level 35 it also reduces max life (but it is never fatal)",
}
}
MELKOR_CORPSE_EXPLOSION = add_spell
{
["name"] = "Corpse Explosion",
["school"] = {SCHOOL_MELKOR},
["level"] = 10,
["mana"] = 100,
["mana_max"] = 500,
["fail"] = 45,
-- Uses piety to cast
["piety"] = TRUE,
["stat"] = A_WIS,
["random"] = SKILL_SPIRITUALITY,
["spell"] = function() return melkor_corpse_explosion() end,
["info"] = function() return melkor_corpse_explosion_info() end,
["desc"] = {
"It makes corpses in an area around you explode for a percent of their",
"hit points as damage",
}
}
MELKOR_MIND_STEAL = add_spell
{
["name"] = "Mind Steal",
["school"] = {SCHOOL_MELKOR},
["level"] = 20,
["mana"] = 1000,
["mana_max"] = 3000,
["fail"] = 90,
-- Uses piety to cast
["piety"] = TRUE,
["stat"] = A_WIS,
["random"] = SKILL_SPIRITUALITY,
["spell"] = function() return melkor_mind_steal() end,
["info"] = function() return melkor_mind_steal_info() end,
["desc"] = {
"It allows your spirit to temporarily leave your own body, which will",
"be vulnerable, to control one of your enemies body."
}
}
|
