Teleporter [Arcemu]

function WarpNPC_OnGossipTalk(pUnit, event, player, pMisc)
if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("You Can't Access This NPC When You Are In Combat!")
else
pUnit:GossipCreateMenu(3544, player, 0)
pUnit:GossipMenuAddItem(2, "|cFF008080Mall", 1, 0)
pUnit:GossipMenuAddItem(2, "Duel Zone", 4, 0)
pUnit:GossipMenuAddItem(2, "|cffffff00Arena", 5, 0)
pUnit:GossipMenuAddItem(8, "|cff0000ffRemove Ressurection Sickness", 92, 0)
pUnit:GossipSendMenu(player)
end
end

function WarpNPC_OnGossipSelect(pUnit, event, player, id, intid, code)
if(intid == 1) then
player:Teleport(1, -11821.579102, -4753.318848, 6.836580)
end

if(intid == 2) then
player:Teleport(0, -6309.638672, -1194.167480, 353.556213)
end

if(intid == 3) then
player:Teleport(1, 4624.385742, -3841.790039, 943.732727)
end

if(intid == 4) then
player:Teleport(1, -11567.864258, -5099.115723, 77.945244)
end

if(intid == 5) then
player:Teleport(0, -13252.957031, 182.179565, 33.774010)
end

if(intid == 92) then
player:LearnSpell(15007)
player:UnlearnSpell(15007)
player:GossipComplete()
end
end

RegisterUnitGossipEvent(NPC_ID, 1, "WarpNPC_OnGossipTalk")
RegisterUnitGossipEvent(NPC_ID, 2, "WarpNPC_OnGossipSelect")