Holy Priest

----------------
--Holy Priest --
----------------
--By          --
--OmegaNoscope--
--Edit of     --
--CKBackup's  --
--Archangle   --
----------------

print("This is an edit of CKbackup's Archangel by OmegaNoscope.")
print("Become the Holy Priest to stop anyone in your path")
player = game.Players.LocalPlayer
chara = player.Character
debby = game:GetService("Debris")

--Outfit--

New = function(Object, Parent, Name, Data)
	local Object = Instance.new(Object)
	for Index, Value in pairs(Data or {}) do
		Object[Index] = Value
	end
	Object.Parent = Parent
	Object.Name = Name
	return Object
end


ch = chara:GetChildren()
for i = 1, #ch do
if ch[i].ClassName == "Part" then
ch[i].Transparency = 1
if ch[i].Name == "Torso" then
ch[i].roblox.Transparency = 1
end
if ch[i].Name == "Head" then
ch[i].face.Transparency = 1
end
elseif ch[i].ClassName == "Accessory" then
ch[i]:Destroy()
end
end

--Animations--
function loada(anim)
local loaded = chara.Humanoid:LoadAnimation(anim)
return loaded
end

IdleA = New("Animation",chara,"Idle",{AnimationId = "rbxassetid://169638954"})
IdleAnim = loada(IdleA)
IdleAnim:Play()

--Sounds--
Music = New("Sound",chara,"Music",{SoundId = "rbxassetid://242463565",Volume = 1,Looped = true})
SpellCastSnd = New("Sound",chara,"SpellCast",{SoundId = "rbxassetid://161006131",Volume = 1})
ExplodeSnd = New("Sound",chara,"Explode",{SoundId = "rbxassetid://221920694",Volume = 1})
MeteorSnd = New("Sound",chara,"Meteor",{SoundId = "rbxassetid://231917888",Volume = 1})
LasChgSnd = New("Sound",chara,"LasChg",{SoundId = "rbxassetid://137463716",Volume = 1})
LaserSnd = New("Sound",chara,"Laser",{SoundId = "rbxassetid://162246701",Volume = 1})
LasLoopSnd = New("Sound",chara,"LasLoop",{SoundId = "rbxassetid://162246683",Volume = 1,Looped = true})
deathmus = New("Sound",chara.Torso,"DeathMus",{SoundId = "rbxassetid://19094700",PlaybackSpeed = .5,Volume = 5,Looped = true})
deathex = New("Sound",chara.Torso,"DeathEx",{SoundId = "rbxassetid://11984351",PlaybackSpeed = 1,Volume = 5})
Snd = New("Sound",chara,"",{SoundId = "",Volume = 1})
Music:Play()

--Fly--
local truflyposy = chara.Torso.Position.Y+10
local flyposy = truflyposy
local bodfly = Instance.new("BodyPosition", chara.Torso)
bodfly.Name = "Fly"
bodfly.maxForce = Vector3.new(0,10000,0)
bodfly.Position = Vector3.new(0,flyposy,0)

--Enamate--
function Enamate(part)
local trace = Instance.new("Part",chara)
trace.Size = Vector3.new(1,1,1)
trace.TopSurface = 0
trace.BottomSurface = 0
trace.BrickColor = BrickColor.new("New Yeller")
trace.CanCollide = false
trace.Anchored = true
trace.CFrame = part.CFrame * CFrame.fromEulerAnglesXYZ(math.rad(math.random(0,359)),math.rad(math.random(0,359)),math.rad(math.random(0,359)))
local tracedisp = coroutine.wrap(function()
for i = 1, 9 do
wait(.01)
trace.Transparency = trace.Transparency + .1
end
wait(.01)
trace:Destroy()
end)
tracedisp()
end
function Enamate2(part,name)
if chara:FindFirstChild(name)== nil then
local angl = CFrame.fromEulerAnglesXYZ(math.rad(math.random(0,359)),math.rad(math.random(0,359)),math.rad(math.random(0,359)))
local trace = Instance.new("Part",chara)
trace.Size = Vector3.new(1,1,1)
trace.Name = name
trace.TopSurface = 0
trace.BottomSurface = 0
trace.BrickColor = BrickColor.new("New Yeller")
trace.CanCollide = false
trace.Anchored = true
trace.CFrame = part.CFrame * angl
local tracem = Instance.new("SpecialMesh",trace)
tracem.MeshId = "rbxassetid://3270017"
local tracedisp = coroutine.wrap(function()
for i = 1, 9 do
wait(.01)
trace.Transparency = trace.Transparency + .1
trace.CFrame = part.CFrame * angl
tracem.Scale = tracem.Scale + Vector3.new(.5,.5,0)
end
wait(.01)
trace:Destroy()
end)
tracedisp()
end
end
function Enamate3()
if chara:FindFirstChild("Ring")== nil then
local trace = Instance.new("Part",chara)
trace.Size = Vector3.new(1,1,1)
trace.Name = "Ring"
trace.TopSurface = 0
trace.BottomSurface = 0
trace.BrickColor = BrickColor.new("New Yeller")
trace.CanCollide = false
trace.Anchored = true
trace.CFrame = chara.Torso.CFrame
local tracem = Instance.new("SpecialMesh",trace)
tracem.MeshId = "rbxassetid://3270017"
local tracedisp = coroutine.wrap(function()
for i = 1, 99 do
wait(.01)
trace.Transparency = trace.Transparency + .01
trace.CFrame = chara.Torso.CFrame
tracem.Scale = tracem.Scale + Vector3.new(.2,.2,0)
end
wait(.01)
trace:Destroy()
end)
tracedisp()
end
end

--Play Sound in Part--
function PlaySnd(snd,part)
local sound = snd:Clone()
sound.PlayOnRemove = true
sound.Parent = Part
sound:Destroy()
end

--Explosion--
function Expld(rad,pos)
local ex = Instance.new("Explosion",game.Workspace)
ex.BlastRadius = rad
ex.BlastPressure = 0
ex.Position = pos
ex.Visible = false
ex.Hit:connect(function(hit)
if hit.Parent ~= chara and hit.Parent:FindFirstChild("Humanoid")~= nil then
hit.Parent:FindFirstChild("Humanoid").Health = hit.Parent:FindFirstChild("Humanoid").Health - rad
end
end)
end

--Cross Explosion--
function CrossExplosion()
local cirpos = Mouse.Hit.p
local spellcircle = Instance.new("Part",chara)
spellcircle.Anchored = true
spellcircle.Size = Vector3.new(1,1,1)
spellcircle.CFrame = CFrame.new(cirpos.x,cirpos.y,cirpos.z)
spellcircle.Transparency = 1
spellcircle.CanCollide = false
local blkm = Instance.new("BlockMesh",spellcircle)
blkm.Scale = Vector3.new(0,1,0)
local dec = Instance.new("Decal",spellcircle)
dec.Texture = "rbxassetid://685910499"
dec.Transparency = 1
dec.Face = "Top"
local ptl = Instance.new("PointLight",spellcircle)
ptl.Range = 0
ptl.Color = Color3.new(1,1,1)
spellc = coroutine.wrap(function()
while spellc ~= nil do
wait(.01)
spellcircle.CFrame = spellcircle.CFrame * CFrame.fromEulerAnglesXYZ(0,math.rad(10),0)
end
end)
spellc()
PlaySnd(SpellCastSnd,spellcircle)
for i = 1, 10 do
wait(.01)
ptl.Range = ptl.Range + 1
dec.Transparency = dec.Transparency - .1
blkm.Scale = blkm.Scale + Vector3.new(1,0,1)
end
wait(.5)
PlaySnd(ExplodeSnd,spellcircle)
local pemit = Instance.new("ParticleEmitter",spellcircle)
pemit.Color = ColorSequence.new(Color3.new(1,1,0))
pemit.LightEmission = 1
pemit.Size = NumberSequence.new(5)
pemit.Texture = "rbxasset://textures/particles/smoke_main.dds"
pemit.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,0),NumberSequenceKeypoint.new(0.9,0),NumberSequenceKeypoint.new(1,1)})
pemit.Lifetime = NumberRange.new(1)
pemit.Rate = 10000
pemit.Speed = NumberRange.new(100)
Expld(12,spellcircle.Position)
wait(.5)
local pt1 = Instance.new("Part",chara)
pt1.Size = Vector3.new(0,0,0)
pt1.Anchored = true
pt1.CFrame = spellcircle.CFrame + Vector3.new(0,60,0)
pt1.Transparency = 1
local pemit2 = pemit:clone()
pemit2.Lifetime = NumberRange.new(.25)
pemit2.EmissionDirection = "Left"
pemit2.Parent = pt1
local pemit3 = pemit2:clone()
pemit3.EmissionDirection = "Right"
pemit3.Parent = pt1
for i = 1, 10 do
Expld(12,spellcircle.Position)
wait(.5)
end
pemit.Enabled = false
pemit2.Enabled = false
pemit3.Enabled = false
for i = 1, 10 do
wait(.01)
ptl.Range = ptl.Range - 1
dec.Transparency = dec.Transparency + .1
blkm.Scale = blkm.Scale - Vector3.new(1,0,1)
end
wait(.01)
spellcircle:Destroy()
pt1:Destroy()
end

--Meteor--
function Meteor()
local meteor = Instance.new("Part",game.Workspace)
meteor.Size = Vector3.new(5,5,5)
meteor.BrickColor = BrickColor.new("Institutional white")
meteor.Material = "Neon"
meteor.TopSurface = 0
meteor.BottomSurface = 0
meteor.Shape = 0
meteor.CFrame = chara.Torso.CFrame + Vector3.new(0,100,0)
meteor.Velocity = (Mouse.Hit.p - (chara.Torso.CFrame.p + Vector3.new(0,100,0))).unit*100
debby:AddItem(meteor,15)
local bfo = Instance.new("BodyForce",meteor)
bfo.Force = Vector3.new(0,game.Workspace.Gravity*meteor:GetMass(),0)
local eff = Instance.new("ParticleEmitter",meteor)
eff.Color = ColorSequence.new(Color3.new(1,1,0))
eff.LightEmission = 1
eff.Size = NumberSequence.new({NumberSequenceKeypoint.new(0,10),NumberSequenceKeypoint.new(1,0)})
eff.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,0),NumberSequenceKeypoint.new(1,1)})
eff.Texture = "rbxasset://textures/particles/smoke_main.dds"
eff.Rate = 100000
eff.Speed = NumberRange.new(0)
eff.Lifetime = NumberRange.new(1)
local mehs = Instance.new("SpecialMesh",meteor)
mehs.MeshType = "Sphere"
mehs.Scale = Vector3.new(2,2,2)
--
meteor.Touched:connect(function(hit)
if meteor.Anchored == false then
meteor.Anchored = true
meteor.CanCollide = false
eff.Speed = NumberRange.new(50)
eff.VelocitySpread = 10000
PlaySnd(MeteorSnd,meteor)
Expld(15,meteor.Position)
for i = 1, 10 do
wait(.01)
mehs.Scale = mehs.Scale + Vector3.new(.5,.5,.5)
meteor.Transparency = meteor.Transparency + .1
end
eff.Enabled = false
end
end)
end

--Beam--
lasactive = false
function Beam()
lasactive = true
LasChgSnd:Play()
local StartPart = Instance.new("Part",chara)
StartPart.Size = Vector3.new(0,0,0)
StartPart.Anchored = true
StartPart.BrickColor = BrickColor.new("Institutional white")
StartPart.Material = "Neon"
StartPart.Transparency = 1
local mehs = Instance.new("SpecialMesh",StartPart)
mehs.MeshType = "Sphere"
mehs.Scale = Vector3.new(0,0,0)
for i = 1, 20 do
wait(.01)
StartPart.CFrame = chara.Torso.CFrame + Vector3.new(0,10,0)
mehs.Scale = mehs.Scale + Vector3.new(2.5,2.5,2.5)
StartPart.Transparency = StartPart.Transparency - .05
end
local EffectPart = Instance.new("Part",chara)
EffectPart.Size = Vector3.new(0,0,0)
EffectPart.Anchored = true
EffectPart.Transparency = 1
LaserSnd:Play()
LasLoopSnd:Play()
local P = Instance.new("Part",chara)
P.BrickColor = BrickColor.new("New Yeller")
P.Material = "Neon"
P.Anchored = true
P.CanCollide = false
P.Locked = true
P.BottomSurface = "Smooth"
P.TopSurface = "Smooth"
for i = 1, 20 do
wait(.1)
StartPart.CFrame = chara.Torso.CFrame + Vector3.new(0,10,0)
local Place0 = StartPart.CFrame
local Place1 = Mouse.Hit
EffectPart.Position = Mouse.Hit.p
local meshla = Instance.new("BlockMesh", P)
meshla.Scale = Vector3.new(1,1,1)
local trace = Instance.new("Part",game.Workspace)
trace.Size = Vector3.new(0,0,0)
trace.BrickColor = BrickColor.new("Institutional white")
trace.Material = "Neon"
trace.CanCollide = false
trace.Anchored = true
trace.CFrame = EffectPart.CFrame * CFrame.fromEulerAnglesXYZ(math.rad(math.random(0,359)),math.rad(math.random(0,359)),math.rad(math.random(0,359)))
tracem = Instance.new("BlockMesh",trace)
tracem.Scale = Vector3.new(10,10,10)
local tracedisp = coroutine.wrap(function()
for i = 1, 9 do
wait(.01)
tracem.Scale = tracem.Scale + Vector3.new(10,10,10)
trace.Transparency = trace.Transparency + .1
end
wait(.01)
trace:Destroy()
end)
tracedisp()
P.Size = Vector3.new(1,1,(Place0.p - Place1.p).magnitude)
P.CFrame = CFrame.new((Place0.p + Place1.p)/2,Place0.p)
Expld(15,EffectPart.Position)
P:Destroy()
end
----
LasLoopSnd:Stop()
for i = 1, 20 do
wait(.01)
StartPart.CFrame = chara.Torso.CFrame + Vector3.new(0,10,0)
mehs.Scale = mehs.Scale - Vector3.new(2.5,2.5,2.5)
StartPart.Transparency = StartPart.Transparency + .05
end
StartPart:Destroy()
EffectPart:Destroy()
lasactive = false
end

--Sword Stab--
function SwordStab()
local cirpos = Mouse.Hit.p
local spellcircle = Instance.new("Part",chara)
spellcircle.Anchored = true
spellcircle.Size = Vector3.new(1,1,1)
spellcircle.CFrame = CFrame.new(cirpos.x,cirpos.y,cirpos.z)
spellcircle.Transparency = 1
spellcircle.CanCollide = false
local blkm = Instance.new("BlockMesh",spellcircle)
blkm.Scale = Vector3.new(0,1,0)
local dec = Instance.new("Decal",spellcircle)
dec.Texture = "rbxassetid://685910499"
dec.Transparency = 1
dec.Face = "Top"
local ptl = Instance.new("PointLight",spellcircle)
ptl.Range = 0
ptl.Color = Color3.new(1,1,1)
spellc = coroutine.wrap(function()
while spellc ~= nil do
wait(.01)
spellcircle.CFrame = spellcircle.CFrame * CFrame.fromEulerAnglesXYZ(0,math.rad(10),0)
end
end)
spellc()
PlaySnd(SpellCastSnd,spellcircle)
for i = 1, 40 do
wait(.01)
ptl.Range = ptl.Range + 1
dec.Transparency = dec.Transparency - .1
blkm.Scale = blkm.Scale + Vector3.new(1,0,1)
end
wait(.5)
local sword = Instance.new("Part",game.Workspace)
sword.Size = Vector3.new(2,50,2)
sword.BottomSurface = 0
sword.TopSurface = 0
sword.Position = spellcircle.Position + Vector3.new(0,250,0)
sword.CFrame = sword.CFrame * CFrame.fromEulerAnglesXYZ(math.rad(-180),0,0)
local mehs = Instance.new("SpecialMesh",sword)
mehs.MeshId = "http://www.roblox.com/asset/?id=79109302"
mehs.Scale = Vector3.new(40,40,40)
mehs.TextureId = "http://www.roblox.com/asset/?id=79109351"
mehs.VertexColor = Vector3.new(1,1,0)
local bodf = Instance.new("BodyPosition",sword)
bodf.Position = spellcircle.Position
sword.Touched:connect(function(hit)
if sword.Anchored == false then
sword.Anchored = true
PlaySnd(ExplodeSnd,spellcircle)
local pt = Instance.new("Part",game.Workspace)
pt.Shape = 0
pt.Size = Vector3.new(1,1,1)
pt.Material = "Neon"
pt.CFrame = spellcircle.CFrame
pt.BrickColor = BrickColor.new("New yeller")
local mh = Instance.new("SpecialMesh",pt)
mh.MeshType = "Sphere"
mh.Scale = Vector3.new(0,0,0)
for i = 1, 10 do
wait(.01)
mh.Scale = mh.Scale + Vector3.new(10,10,10)
pt.Transparency = pt.Transparency + .1
Expld(mh.Scale.x,spellcircle.Position)
end
wait(1)
for i = 1, 9 do
wait(.01)
sword.Transparency = sword.Transparency +.1
end
sword:Destroy()
wait(.5)
for i = 1, 40 do
wait(.01)
ptl.Range = ptl.Range - 1
dec.Transparency = dec.Transparency + .1
blkm.Scale = blkm.Scale - Vector3.new(1,0,1)
end
spellcircle:Destroy()
end
end)
end

--KeyDown--
mus = true
function onKeyDown(key)
if key == "e" then
flyposy = flyposy - 10
elseif key == "q" then
flyposy = flyposy + 10
elseif key == "z" and lasactive == false then
CrossExplosion()
elseif key == "x" and lasactive == false then
Meteor()
elseif key == "c" and lasactive == false then
Beam()
elseif key == "v" and lasactive == false then
SwordStab()
elseif key == "m" then
if mus == true then
Music:Stop()
mus = false
elseif mus == false then
Music:Play()
mus = true
end
end
end

--Mouse Function--
Mouse = player:GetMouse()
if Mouse then
Mouse.KeyDown:connect(onKeyDown)
end

--Loop Function--
cter = 0
while chara.Humanoid.Health > 0 do
wait(.1)
chara.Humanoid.MaxHealth = math.huge
chara.Humanoid.Health = math.huge
bodfly.Position = Vector3.new(0,flyposy,0)
Enamate(EnamatePart)
Enamate2(EnamatePart,"EnamateRing")
Enamate(EnamatePart2)
Enamate2(EnamatePart2,"EnamateRing2")
Enamate3()
for i = 1, #lap do
lap[i].Anchored = false
end
for i = 1, #rap do
rap[i].Anchored = false
end
for i = 1, #llp do
llp[i].Anchored = false
end
for i = 1, #rlp do
rlp[i].Anchored = false
end
for i = 1, #chp do
chp[i].Anchored = false
end
for i = 1, #hdp do
hdp[i].Anchored = false
end
for i = 1, #ch do
if ch[i].ClassName == "Part" then
ch[i].Anchored = false
end
end
end