#Tunare.lua

-- #Tunare NPCID: 127098
-- This is Tunare out in the middle of the zone
function event_combat(e)
    if (e.joined) then
        call_zone_to_assist(e.other);
    end
end

function call_zone_to_assist(e_other)
    -- grab the entity list
    local entity_list = eq.get_entity_list();
    -- aggro the zone onto whoever attacked me.
    -- do not aggro these mobs
    local exclude_npc_list = Set {127001,127004,127097,127098,127105};
    for i = 127000, 127999, 1 do
        -- if the current NPCID is not in the exclude list add the client to their hate list.
        if (exclude_npc_list[i] == nil) then
            local npc = entity_list:GetNPCByNPCTypeID(i);
            -- npc.valid will be true if the NPC is actually spawned
            if (npc.valid) then
                npc:AddToHateList(e_other,1);
            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