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
|
--
-- Helper functions for magic powers
--
__magic_powers = {}
function add_magic(m)
local i, ret
if type(m.spell_list) ~= "table" then
error("add_magic called without a table")
end
-- Ok iterate over all the powers to add
local index, p, max
-- First, count them
max = 0
for index, p in m.spell_list do
max = max + 1
end
-- Now register it
ret = {}
i = new_magic_power(max)
ret.spells = i
ret.max = max
ret.fail_fct = m.fail
if m.stat then
ret.stat = m.stat
else
ret.stat = A_INT
end
if m.get_level then
ret.get_current_level = m.get_level
else
ret.get_current_level = function()
return player.lev
end
end
-- And add each spells
max = 0
ret.info = {}
ret.spell = {}
for index, p in m.spell_list do
assert(p.name, "No name for the spell!")
assert(p.desc, "No desc for the spell!")
assert(p.mana, "No mana for the spell!")
assert(p.level, "No level for the spell!")
assert(p.fail, "No fail for the spell!")
assert(p.info, "No info for the spell!")
assert(p.spell, "No spell for the spell!")
get_magic_power(i, max).name = p.name
get_magic_power(i, max).desc = p.desc
get_magic_power(i, max).mana_cost = p.mana
get_magic_power(i, max).min_lev = p.level
get_magic_power(i, max).fail = p.fail
ret.info[max] = p.info
ret.spell[max] = p.spell
max = max + 1
end
return ret
end
function __get_magic_info(power)
return __current_magic_power_info[power]()
end
function execute_magic(m)
local sn, ret
-- Ask for a spell
__current_magic_power_info = m.info
ret, sn = select_magic_power(0, m.spells, m.max, "__get_magic_info", m.get_current_level(), m.stat)
if (ret == FALSE) then return end
-- Verify mana needs
if (get_magic_power(m.spells, sn).mana_cost > player.csp) then msg_print("Not enough mana!") return end
-- Verify failure(second parameter is optional)
if m.fail then
__current_magic_power_fail = m.fail_fct
if (magic_power_sucess(get_magic_power(m.spells, sn), m.stat, "__current_magic_power_fail") == FALSE) then return end
else
if (magic_power_sucess(get_magic_power(m.spells, sn), m.stat) == FALSE) then return end
end
-- Actually cast the spells
m.spell[sn]()
-- use up some mana
increase_mana(-get_magic_power(m.spells, sn).mana_cost)
end
-- Get the level of a power
function get_level_power(s, max, min)
if not max then max = 50 end
if not min then min = 1 end
return value_scale(s.get_current_level(), 50, max, min)
end
|
