Thread: Custom Horde Intro

Based off of Stoneharry's intro idea. I composed a script for a horde intro.

go into playercreate_info and set intro to 0
I also reccomend placing the starting zone area above the ground, just for a little bit of effect.
and then put this script into your scripts folder.



Create two creatures with the entry IDs of
99887
99888
then spawn them close to the starting area.

Code:

local PlayerB = nil
local NPC_SPAWNER_C = nil
local NPC_SPAWNER_D = nil

function NPCGIA_GJOEAOJG_HXOJZ(pUnit, Event)
    NPC_SPAWNER_C = pUnit
end

RegisterUnitEvent(99887, 18, "NPCGIA_GJOEAOJG_HXOJZ")

function NPCGIA_GJOEAOJG_HXOJ_ZZ(pUnit, Event)
    NPC_SPAWNER_D = pUnit
end

RegisterUnitEvent(99888, 18, "NPCGIA_GJOEAOJG_HXOJ_ZZ")

function zzz_OnFirstEnterWorldZ(event, pPlayer) -- When they first enter world
    if PlayerB == nil then
    local race = pPlayer:GetPlayerRace()
    if race == 2 or race == 5 or race == 6 or race == 8 or race == 10 then
	pPlayer:Emote(12)
	pPlayer:CastSpell(50010)
        pPlayer:CastSpell(30237)
        pPlayer:CastSpell(60342)
        pPlayer:SetPlayerLock(1)
        pPlayer:MovePlayerTo(pPlayer:GetX(),pPlayer:GetY(),pPlayer:GetZ()+0.1, pPlayer:GetO(), 12288)
	pPlayer:CastSpell(50010)
        pPlayer:CastSpell(30237)
        pPlayer:CastSpell(60342)
        pPlayer:CastSpell(63893)
        PlayerB = pPlayer
        RegisterTimedEvent("TesttestTesttestTest_zzogjeZ", 4000, 1)
        RegisterTimedEvent("TesttestTesttestTest_zzogje_zZ", 500, 2)
        else
        PlayerB = nil
        end
    else
    pPlayer:RemoveAura(50010)
    pPlayer:RemoveAura(30237)
    pPlayer:RemoveAura(60342)
    pPlayer:RemoveAura(63893)
    end
end

function TesttestTesttestTest_zzogje_zZ(pUnit, Event)
    PlayerB:CastSpell(60342)
end

function TesttestTesttestTest_zzogjeZ(pUnit, Event)
    NPC_SPAWNER_C:SendChatMessage(12,0,"The Lich King sent us another one!")
    NPC_SPAWNER_C:ChannelSpell(51361, PlayerB) -- Visual
    NPC_SPAWNER_D:ChannelSpell(51361, PlayerB) -- Visual
    NPC_SPAWNER_C:RegisterEvent("SayHelloToMyLittleFriend_Z_z_ZZ", 5000, 1)
end



function SayHelloToMyLittleFriend_Z_z_ZZ(pUnit, Event)
    local Name = PlayerB:GetName()
    NPC_SPAWNER_D:SendChatMessage(12, 0, "Haha "..Name.."! Your lucky to have been chosen by the Lich King to deal with the alliance.")
    NPC_SPAWNER_C:RegisterEvent("CastReviveVisualThingyTeheTeheTeheZ", 4000, 1)
end

function CastReviveVisualThingyTeheTeheTeheZ(pUnit, Event)
    NPC_SPAWNER_C:StopChannel()
    NPC_SPAWNER_D:StopChannel()
    NPC_SPAWNER_D:FullCastSpellOnTarget(37755, PlayerB)
    NPC_SPAWNER_C:FullCastSpellOnTarget(37755, PlayerB)
    NPC_SPAWNER_C:RegisterEvent("LetPlayerMoveaogyaoheaZ", 2400, 1)
end

function LetPlayerMoveaogyaoheaZ(pUnit, Event)
    PlayerB:SetPlayerLock(0)
    PlayerB:CastSpell(21074)
    PlayerB:RemoveAura(50010)
    PlayerB:RemoveAura(30237)
    PlayerB:RemoveAura(60342)
    PlayerB:RemoveAura(63893)
    NPC_SPAWNER_C:SendChatMessage(12, 0, "You are all set to go, slay the alliance scum in the name of the Lich King!")
    NPC_SPAWNER_C:RegisterEvent("MassDespawnAndResetoajphaeZ", 1000, 1)
end

function MassDespawnAndResetoajphaeZ(pUnit, Event)
    PlayerB = nil
end

RegisterServerHook(3, "zzz_OnFirstEnterWorldZ")