[LuaHypArc] PvP System - Faction Boss's

[Myerz]

--[[
__ __ __ ______
/\ \ /\ \/\ \ /\ _ \
\ \ \ __ __ __ \ \ \_\ \ __ __ _____\ \ \_\ \ _____ ___
\ \ \ __/\ \/\ \ /'__`\ \ \ _ \/\ \/\ \/\ '__`\ \ __ \/\`'__\/'___\
\ \ \_\ \ \ \_\ \/\ \_\.\_\ \ \ \ \ \ \_\ \ \ \_\ \ \ \/\ \ \ \//\ \__/
\ \____/\ \____/\ \__/ \_\\ \_\ \_\/`____ \ \ __/\ \_\ \_\ \_\\ \____\
\/___/ \/___/ \/__/\/_/ \/_/\/_/`/___// \ \ \/ \/_/\/_/\/_/ \/____/
/\___/\ \_\
\/__/ \/_/ .zapto.org

Author: Myerz
]]--

--[ DEFINE_VARIABLES ]--
local MSG_LANGUAGE_UNIVERSAL = 14
local ON_COMBAT_MSG = "Who dares challenge the king!?"
local IFKing = nil
local TBKing = nil
local BUFFS = {48161, 48073, 48469, 53307, 20217, 48936, 48932, 15366}

--[ TB_KING_ID ]--
local tb_id = put id here

--[ IF_KING_ID ]--
local if_id = put id here

--[ ITEM_ID && AMOUNT ]--
local itm_id = 121214
local amount = 1

--[[

REGISTER_ON_DEFINE

]]--

--[ DEFINE_IF_KING ]--
function IF_Define(Unit, Event)
IFKing = Unit
end

--[ DEFINE_TB_KING ]--
function TB_Define(Unit, Event)
TBKing = Unit
end

--[[

REGISTER_UNIT_COMBAT

]]--

--[ KING_IRON_FORGE ]--
function KingIronforge_OnCombat(Unit, Event)
Unit:SendChatMessage(MSG_LANGUAGE_UNIVERSAL, 0, " "..ON_COMBAT_MSG" ")
end

function KingIronforge_OnDeath(Unit, Event)
logcol(12)
print("[King of Ironforge]: King has been killed")
logcol(5)
Unit:RemoveEvents()

--[ REGISTER_BROADCAST ]--
if (player:GetPlayerRace() == 1) or (player:GetPlayerRace() == 3) or (player:GetPlayerRace() == 4) or (player:GetPlayerRace() == 7) and (player:GetPlayerRace() == 11) then
--[ ON_KILL_BOSS ]--
local rndmplyr = IFKing:GetRandomPlayer(0)
local x, y, z, o = rndmplyr:GetX(), rndmplyr:GetY(), rndmplyr:GetZ(), rndmplyr:GetO()
IFKing:SpawnCreature(5595, x, y, z, o, 21, 0)
IFKing:SpawnCreature(5595, x+5, y, z+3, o, 21, 0)
--[ RNGPLAYER_ITEM_ADD ]--
local rngplyr = IFKing:GetInRangePlayers()
for i = 1, #rngplyr do
rngplyr[i]:AddItem(itm_id, amount)
--[ PLRS_BUFF ]--
local plyrsrng = IFKing:GetInRangePlayers()
for k, v in pairs(BUFFS)
and
for k, v in pairs(plyrsrng) do
plyrsrng[i]:CastSpell(BUFFS[v])
--[ PLRS_MSG ]--
local rgplrs = GetPlayersInWorld()
for k, v in pairs(plrs) do
plrs[i]:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "The horde have taken over Ironforge")

else -- killed by a command or spell

if (player:GetPlayerRace() == 2) or (player:GetPlayerRace() == 5) or (player:GetPlayerRace() == 6) or (player:GetPlayerRace() == 8) and (player:GetPlayerRace() == 10) then
Unit:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "The alliance have betrayed their own king!")
end
end
end
end
end
end

--[ KING_THUNDER_BLUFF ]--
function KingThunderBluff_OnCombat(Unit, Event)
Unit:SendChatMessage(MSG_LANGUAGE_UNIVERSAL, 0, " "..ON_COMBAT_MSG" ")
end

function KingThunderBluff_OnDeath(Unit, Event)
logcol(13)
print("[King of Ironforge]: King has been killed")
logcol(7)
Unit:RemoveEvents()

--[ REGISTER_BROADCAST ]--
if (player:GetPlayerRace() == 1) or (player:GetPlayerRace() == 3) or (player:GetPlayerRace() == 4) or (player:GetPlayerRace() == 7) and (player:GetPlayerRace() == 11) then
--[ ON_KILL_BOSS ]--
local rndmplyr = Unit:GetRandomPlayer(0)
local x, y, z, o = rndmplyr:GetX(), rndmplyr:GetY(), rndmplyr:GetZ(), rndmplyr:GetO()
TBKing:SpawnCreature(14720, x, y, z, o, 21, 0)
TBKing:SpawnCreature(14720, x+5, y, z+3, o, 21, 0)
--[ RNGPLAYER_ITEM_ADD ]--
local rngplyr = TBKing:GetInRangePlayers()
for i = 1, #rngplyr do
rngplyr[i]:AddItem(itm_id, amount)
--[ PLRS_BUFF ]--
local plyrsrng = TBKing:GetInRangePlayers()
for k, v in pairs(BUFFS)
and
for k, v in pairs(plyrsrng) do
plyrsrng[i]:CastSpell(BUFFS[v])
--[ PLRS_MSG ]--
local plrs = GetPlayersInWorld()
for k, v in pairs(plrs) do
plrs[i]:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "The alliance have taken over Thunderbluff")


else -- killed by a command or spell

if (player:GetPlayerRace() == 2) or (player:GetPlayerRace() == 5) or (player:GetPlayerRace() == 6) or (player:GetPlayerRace() == 8) and (player:GetPlayerRace() == 10) then
Unit:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "The horde have betrayed their own king!")
end
end
end
end
end
end

--[ LOCALS ]--
local bosstimer = math.random (180000, 360000)

--[ BOSS_PVP_CHECK ]--
function BossCheck(event, pPlayer)
--[ CHECK_TBKing ]--
if (TBKing = nil) then
TBKing:Despawn(0, 3000)
else
local plrs = GetPlayersInWorld()
for k, v in pairs(plrs) do
plrs[i]:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "King of Thunderbluff is still waiting for a challenge")

--[ CHECK_IFKing ]--
if (IFKing = nil) then
IFKing:Despawn(0, 3000)
else
local plrs = GetPlayersInWorld()
for k, v in pairs(plrs) do
plrs[i]:SendBroadCastMessage(MSG_LANGUAGE_UNIVERSAL, 0, "King of Ironforge is still waiting for a challenge")
end
end
end end
end



--[[

REGISTER_UNIT_EVENT

]]--

if (GetLuaEngine() ~= "LuaHypArc") then
print("[IF-TB]: Did not load script - LuaHypArc not installed.")
print("[IF-TB]: Please visit http://luahyparc.zapto.org/ for more information.")

else
--[ REGISTER_TIMED_EVENT ]--
RegisterTimedEvent("BossCheck", bosstimer, 0)

--[ REGISTER_UNIT_EVENT ]--
RegisterUnitEvent(tb_id, 1, "KingThunderBluff_OnCombat")
RegisterUnitEvent(tb_id, 4, "KingThunderBluff_OnDeath")
RegisterUnitEvent(if_id, 1, "KingIronforge_OnCombat")
RegisterUnitEvent(if_id, 4, "KingIronforge_OnDeath")
end

[Wolferine]

IFKing = Unit - IFKing = nil

Doesn't that crashes?

[Paradox]

IFKing = Unit - IFKing = nil Doesn't that crashes?


It used to, but Hypersniper fixed that error in the core, I don't know how, but he did.