Lua: Move "Meta" spell functions to C

1 files changed, 10 insertions, 193 deletions

diff --git a/lib/scpt/s_meta.lua b/lib/scpt/s_meta.lua
index eab691d8..9040e3af 100644
--- a/lib/scpt/s_meta.lua
+++ b/lib/scpt/s_meta.lua
@@ -8,25 +8,13 @@ RECHARGE = add_spell
 	["mana"] = 	10,
 	["mana_max"] = 	100,
 	["fail"] = 	20,
-	["spell"] = 	function()
-			return recharge(60 + get_level(RECHARGE, 140))
-	end,
-	["info"] = 	function()
-			return "power "..(60 + get_level(RECHARGE, 140))
-	end,
+	["spell"] = 	function() return meta_recharge() end,
+	["info"] = 	function() return meta_recharge_info() end,
 	["desc"] =	{
 			"Taps on the ambient mana to recharge an object's power (charges or mana)",
 	}
 }
 
-function get_spellbinder_max()
-	local i
-
-	i = get_level(SPELLBINDER, 4)
-	if i > 4 then i = 4 end
-	return i
-end
---'
 SPELLBINDER = add_spell
 {
 	["name"] = 	"Spellbinder",
@@ -35,63 +23,8 @@ SPELLBINDER = add_spell
 	["mana"] = 	100,
 	["mana_max"] = 	300,
 	["fail"] = 	85,
-	["spell"] = 	function()
-			local i, ret, c
-
-			if player.spellbinder_num ~= 0 then
-				local t =
-				{
-					[SPELLBINDER_HP75] = "75% HP",
-					[SPELLBINDER_HP50] = "50% HP",
-					[SPELLBINDER_HP25] = "25% HP",
-				}
-				msg_print("The spellbinder is already active.")
-				msg_print("It will trigger at "..t[player.spellbinder_trigger]..".")
-				msg_print("With the spells: ")
-				for i = 1, player.spellbinder_num do
-					msg_print(spell(player.spellbinder[i]).name)
-				end
-				return TRUE
-			end
-
-			ret, c = get_com("Trigger at [a]75% hp [b]50% hp [c]25% hp?", strbyte("a"))
-			if ret == FALSE then return TRUE end
-			
-			if c == strbyte("a") then
-				player.spellbinder_trigger = SPELLBINDER_HP75
-			elseif c == strbyte("b") then
-				player.spellbinder_trigger = SPELLBINDER_HP50
-			elseif c == strbyte("c") then
-				player.spellbinder_trigger = SPELLBINDER_HP25
-			else
-				return
-			end
-			player.spellbinder_num = get_spellbinder_max()
-			i = player.spellbinder_num
-			while i > 0 do
-				local s
-
-				s = get_school_spell("bind", "is_ok_spell", 0)
-				if s == -1 then
-					player.spellbinder_trigger = 0
-					player.spellbinder_num = 0
-					return TRUE
-				else
-					if spell(s).skill_level > 7 + get_level(SPELLBINDER, 35) then
-						msg_print("You are only allowed spells with a base level of "..(7 + get_level(SPELLBINDER, 35))..".");
-						return TRUE
-					end
-				end
-				player.spellbinder[i] = s
-				i = i - 1
-			end
-			player.energy = player.energy - 3100;
-			msg_print("Spellbinder ready.")
-			return TRUE
-	end,
-	["info"] = 	function()
-			return "number "..(get_spellbinder_max()).." max level "..(7 + get_level(SPELLBINDER, 35))
-	end,
+	["spell"] = 	function() return meta_spellbinder() end,
+	["info"] = 	function() return meta_spellbinder_info() end,
 	["desc"] =	{
 			"Stores spells in a trigger.",
 			"When the condition is met all spells fire off at the same time",
@@ -125,38 +58,8 @@ DISPERSEMAGIC = add_spell
 			},
 	},
 	["inertia"] = 	{ 1, 5 },
-	["spell"] = 	function()
-			local obvious
-			obvious = set_blind(0)
-			obvious = is_obvious(set_lite(0), obvious)
-			if get_level(DISPERSEMAGIC, 50) >= 5 then
-				obvious = is_obvious(set_confused(0), obvious)
-				obvious = is_obvious(set_image(0), obvious)
-			end
-			if get_level(DISPERSEMAGIC, 50) >= 10 then
-				obvious = is_obvious(set_slow(0), obvious)
-				obvious = is_obvious(set_fast(0, 0), obvious)
-				obvious = is_obvious(set_light_speed(0), obvious)
-			end
-			if get_level(DISPERSEMAGIC, 50) >= 15 then
-				obvious = is_obvious(set_stun(0), obvious)
-				obvious = is_obvious(set_meditation(0), obvious)
-				obvious = is_obvious(set_cut(0), obvious)
-			end
-			if get_level(DISPERSEMAGIC, 50) >= 20 then
-				obvious = is_obvious(set_hero(0), obvious)
-				obvious = is_obvious(set_shero(0), obvious)
-				obvious = is_obvious(set_blessed(0), obvious)
-				obvious = is_obvious(set_shield(0, 0, 0, 0, 0), obvious)
-				obvious = is_obvious(set_afraid(0), obvious)
-				obvious = is_obvious(set_parasite(0, 0), obvious)
-				obvious = is_obvious(set_mimic(0, 0, 0), obvious)
-			end
-			return TRUE
-	end,
-	["info"] = 	function()
-			return ""
-	end,
+	["spell"] = 	function() return meta_disperse_magic() end,
+	["info"] = 	function() return meta_disperse_magic_info() end,
 	["desc"] =	{
 			"Dispels a lot of magic that can affect you, be it good or bad",
 			"Level 1: blindness and light",
@@ -175,69 +78,14 @@ TRACKER = add_spell
 	["mana"] = 	50,
 	["mana_max"] = 	50,
 	["fail"] = 	95,
-	["spell"] = 	function()
-			if last_teleportation_y == -1 then
-				msg_print("There has not been any teleporatation here.")
-				return TRUE
-			end
-			teleport_player_to(last_teleportation_y, last_teleportation_x)
-			return TRUE
-	end,
-	["info"] = 	function()
-			return ""
-	end,
+	["spell"] = 	function() return meta_tracker() end,
+	["info"] = 	function() return meta_tracker_info() end,
 	["desc"] =	{
 			"Tracks down the last teleportation that happened on the level and teleports",
 			"you to it",
 	}
 }
 
--- Saves the values of the timer
-save_timer("TIMER_INERTIA_CONTROL")
-add_loadsave("player.inertia_controlled_spell", -1)
-player.inertia_controlled_spell = -1
-
--- Automatically cast the inertia controlled spells
-TIMER_INERTIA_CONTROL = new_timer
-{
-	["enabled"] = FALSE,
-	["delay"] = 10,
-	["callback"] = function()
-		-- Don't cast a controlled spell in wilderness mode
-		if player.antimagic then
-			msg_print("Your anti-magic field disrupts any magic attempts.")
-		elseif player.anti_magic then
-			msg_print("Your anti-magic shell disrupts any magic attempts.")
-		elseif (player.inertia_controlled_spell ~= -1) and (player.wild_mode == FALSE) then
-			__spell_spell[player.inertia_controlled_spell]()
-		end
-	end,
-}
-
-stop_inertia_controlled_spell = function()
-	player.inertia_controlled_spell = -1
-	TIMER_INERTIA_CONTROL.enabled = FALSE
-	player.update = bor(player.update, PU_MANA)
-	return TRUE
-end
-
-add_hooks
-{
-	-- Reduce the mana by four times the cost of the spell
-	[HOOK_CALC_MANA] = function(msp)
-		if player.inertia_controlled_spell ~= -1 then
-			msp = msp - (get_mana(player.inertia_controlled_spell) * 4)
-			if msp < 0 then msp = 0 end
-			return TRUE, msp
-		end
-	end,
-
-	-- Stop a previous spell at birth
-	[HOOK_BIRTH_OBJECTS] = function()
-		stop_inertia_controlled_spell()
-	end,
-}
-
 INERTIA_CONTROL = add_spell
 {
 	["name"] = 	"Inertia Control",
@@ -246,39 +94,8 @@ INERTIA_CONTROL = add_spell
 	["mana"] = 	300,
 	["mana_max"] = 	700,
 	["fail"] = 	95,
-	["spell"] = 	function()
-			if player.inertia_controlled_spell ~= -1 then
-				msg_print("You cancel your inertia flow control.")
-				return stop_inertia_controlled_spell()
-			end
-
-			local s = get_school_spell("control", "is_ok_spell", 0)
-			if s == -1 then
-				return stop_inertia_controlled_spell()
-			end
-
-			local inertia = __tmp_spells[s].inertia
-
-			if inertia == nil then
-				msg_print("This spell inertia flow can not be controlled.")
-				return stop_inertia_controlled_spell()
-			end
-			if inertia[1] > get_level(INERTIA_CONTROL, 10) then
-				msg_print("This spell inertia flow("..inertia[1]..") is too strong to be controlled by your current spell.")
-				return stop_inertia_controlled_spell()
-			end
-
-			player.inertia_controlled_spell = s
-			TIMER_INERTIA_CONTROL.enabled = TRUE
-			TIMER_INERTIA_CONTROL.delay = inertia[2]
-			TIMER_INERTIA_CONTROL.countdown = TIMER_INERTIA_CONTROL.delay
-			player.update = bor(player.update, PU_MANA)
-			msg_print("Inertia flow controlling spell "..spell(s).name..".")
-			return TRUE
-	end,
-	["info"] = 	function()
-			return "level "..get_level(INERTIA_CONTROL, 10)
-	end,
+	["spell"] = 	function() return meta_inertia_control() end,
+	["info"] = 	function() return meta_inertia_control_info() end,
 	["desc"] = 	{
 			"Changes the energy flow of a spell to be continuously recasted",
 			"at a given interval. The inertia controlled spell reduces your",