-- Call All mobs to aid Cazic Thule if they're still alive
function event_spawn(e)
eq.set_timer("Shout",600000);
-- use a timer for the zone repop so that the entire zone is not popping twice immediately on zone bootup.
--eq.set_timer("RepopZone",5000); -- Uncomment this to Enabled zone repop on CT spawn.
end
function event_say(e)
if(e.message:findi("gandan has failed in his task")) then
e.self:Emote("'s thoughts begin to pervade your own, they creep into your mind with great force. You feel pressure as if your head will explode. You see his thoughts becoming your own. You see in these visions a tome bound in flesh dropped to the ground. You then open your eyes to see that same book, and take it knowing that it was meant for you.");
e.other:SummonCursorItem(18898); -- Item: Flayed Skin Tome
end
end
function event_trade(e)
local item_lib = require("items");
if(item_lib.check_turn_in(e.self, e.trade, {item1 = 8226, item2 = 18898, item3 = 18899})) then
e.self:Emote("seems pleased with the amount of pain that you have been able to inflict. Cazic Thule then grabs your hands and begins to infuse them with his power. Your hands burn like they were placed in lava for a moment, then feel cool as ice. You can feel the sheer power flowing through your new weapons of pain.");
e.other:QuestReward(e.self,0,0,0,0,7836,100000); -- Item: Whistling Fists
end
item_lib.return_items(e.self, e.other, e.trade)
end
function event_combat(e)
if (e.joined) then
-- call all mobs to assist
e.self:Shout("Denizens of Fear, your master commands you to come forth to his aid!!");
call_zone_to_assist(e.self,e.other);
eq.stop_timer("Shout");
eq.set_timer("come",300000);
else
eq.stop_timer("come");
eq.set_timer("Shout",600000);
end
end
function event_timer(e)
if(e.timer == "Shout" and eq.get_entity_list():GetClientList() ~= nil) then
e.self:Shout("Beware all infidels who dare to taint my plane, for I shall rend your minds with fright, dread, and terror!");
-- most mobs have an answer to my shout
-- leave out broken golem, The Tempest Reaver, and Irak_Altil
send_signal_to_all_npc_in_zone(1, {72078,72074,72012});
elseif(e.timer == "come") then
e.self:Shout("Denizens of Fear, your master commands you to come forth to his aid!!");
call_zone_to_assist(e.self,e.other);
elseif(e.timer == "RepopZone") then
eq.stop_timer("RepopZone");
end
end
function event_death_complete(e)
eq.stop_timer("come");
end
function call_zone_to_assist(e_self,e_other)
-- set to true to enable debug messages
local show_debug = false;
-- grab the entity list
local entity_list = eq.get_entity_list();
-- aggro the zone onto whoever attacked me.
-- leave out broken golem, The Tempest Reaver, and Irak_Altil
local exclude_npc_list = Set {72078,72074,72012};
local npc_list = entity_list:GetNPCList();
if (npc_list ~= nil) then
for npc in npc_list.entries do
if (exclude_npc_list[npc:GetNPCTypeID()] == nil) then
-- npc.valid will be true if the NPC is actually spawned
if (npc.valid) then
if(npc:GetNPCTypeID() == 72000 or npc:GetNPCTypeID() == 72004 or npc:GetNPCTypeID() == 72002 or npc:GetNPCTypeID() == 72090 or
npc:GetNPCTypeID() == 72590 or npc:GetNPCTypeID() == 72600 or npc:GetNPCTypeID() == 72601 or npc:GetNPCTypeID() == 72602 or
npc:GetNPCTypeID() == 72604 or npc:GetNPCTypeID() == 72690) then
npc:CastToNPC():GMMove(e_self:GetX(),e_self:GetY(),e_self:GetZ(),0,true);
npc:CastToNPC():SaveGuardSpot();
else
npc:CastToNPC():MoveTo(e_self:GetX(),e_self:GetY(),e_self:GetZ(),0,false);
end
if (show_debug) then e_other:Message(4,"NPCID: " .. npc:GetNPCTypeID() .. " is valid, adding hate on " .. npc:GetName() .. "."); end
else
if (show_debug) then e_other:Message(4,"NPCID: " .. npc:GetNPCTypeID() .. " is invalid, unable to add hate on " .. npc:GetName() .. "."); end
end
else
if (show_debug) then e_other:Message(4,"NPCID: " .. npc:GetNPCTypeID() .. " is excluded, not adding hate on " .. npc:GetName() .. "."); end
end
end
end
end
function send_signal_to_all_npc_in_zone(signal_to_send,exclude_table)
-- set to true for debugging messages
local show_debug = false;
-- create list of NPCID that will not be signalled.
local exclude_npc_list = Set(exclude_table);
-- create empty table to track the NPCID that have had signals sent already
local signal_sent_to = {};
-- grab the entity list
local entity_list = eq.get_entity_list();
-- get the list of npcs currently spawned in the zone
local npc_list = entity_list:GetNPCList();
-- do not do anything if there are no NPC's spawned. should be an impossible check because this is in an NPC script
if(npc_list ~= nil) then
for npc in npc_list.entries do
if (exclude_npc_list[npc:GetNPCTypeID()] == nil and signal_sent_to[npc:GetNPCTypeID()] == nil) then
-- make sure the npc is valid (again, should never fail, but better to be certain.
if (npc.valid) then
if (show_debug) then eq.zone_emote(4,"NPCID: " .. npc:GetNPCTypeID() .. " is being sent signal " .. tostring(signal_to_send) .. "."); end
-- send signal to this NPCID
eq.signal(npc:GetNPCTypeID(),signal_to_send);
-- add this NPCID to the list of NPCID that we have already signalled
signal_sent_to[npc:GetNPCTypeID()] = true;
end
elseif(signal_sent_to[npc:GetNPCTypeID()] == true) then
if (show_debug) then eq.zone_emote(4,"NPCID: " .. npc:GetNPCTypeID() .. " has already been sent signal " .. tostring(signal_to_send) .. "."); end
elseif(exclude_npc_list[npc:GetNPCTypeID()] == true) then
if (show_debug) then eq.zone_emote(4,"NPCID: " .. npc:GetNPCTypeID() .. " is excluded and will not be sent signal " .. tostring(signal_to_send) .. "."); end
end
end
end
end
-- Set function example from Programming In Lua
-- http://www.lua.org/pil/11.5.html
function Set (list)
local set = {}
for _, l in ipairs(list) do set[l] = true end
return set
end
Grim Aura
Shieldskin
Heart Flutter
Dooming Darkness
Boil Blood
Banshee Aura
Spirit Tap
Panic