anime

if game:GetService("RunService"):IsClient() then error("Please run as a server script. Use h/ instead of hl/.") end
print("FE Compatibility: by WaverlyCole & Mokiros")
InternalData = {}
do
    script.Parent = owner.Character
    local Event = Instance.new("RemoteEvent")
    Event.Name = "UserInput"
    local function NewFakeEvent()
        local Fake = {fakeEvent=true,Connect=function(self,Func)self.Function=Func end}Fake.connect = Fake.Connect
        return Fake
    end
    local Mouse = {Target=nil,Hit=CFrame.new(),KeyUp=NewFakeEvent(),KeyDown=NewFakeEvent(),Button1Up=NewFakeEvent(),Button1Down=NewFakeEvent()}
    local UserInputService = {InputBegan=NewFakeEvent(),InputEnded=NewFakeEvent()}
    local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
        self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
    end};ContextActionService.UnBindAction = ContextActionService.BindAction
    local function TriggerEvent(self,Event,...)
        local Trigger = Mouse[Event]
        if Trigger and Trigger.fakeEvent and Trigger.Function then
            Trigger.Function(...)
        end
    end
    Mouse.TrigEvent = TriggerEvent
    UserInputService.TrigEvent = TriggerEvent
    Event.OnServerEvent:Connect(function(FiredBy,Input)
        if FiredBy.Name ~= owner.Name then end
        if Input.MouseEvent then
            Mouse.Target = Input.Target
            Mouse.Hit = Input.Hit
        else
            local Begin = Input.UserInputState == Enum.UserInputState.Begin
            if Input.UserInputType == Enum.UserInputType.MouseButton1 then
                return Mouse:TrigEvent(Begin and "Button1Down" or "Button1Up")
            end
            for _,Action in pairs(ContextActionService.Actions) do
                for _,Key in pairs(Action.Keys) do
                    if Key==Input.KeyCode then
                        Action.Function(Action.Name,Input.UserInputState,Input)
                    end
                end
            end
            Mouse:TrigEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower())
            UserInputService:TrigEvent(Begin and "InputBegan" or "InputEnded",Input,false)
        end
    end)
    InternalData["Mouse"] = Mouse
    InternalData["ContextActionService"] = ContextActionService
    InternalData["UserInputService"] = UserInputService
    Event.Parent = NLS([[
        local Player = owner
        local Event = script:WaitForChild("UserInput")
        local UserInputService = game:GetService("UserInputService")
        local Mouse = Player:GetMouse()
        local Input = function(Input,gameProcessedEvent)
            if gameProcessedEvent then return end
            Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
        end
        UserInputService.InputBegan:Connect(Input)
        UserInputService.InputEnded:Connect(Input)
        local Hit,Target
        while wait(1/30) do
            if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
                Hit,Target = Mouse.Hit,Mouse.Target
                Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
            end
        end
    ]],owner.Character)
end
RealGame = game;game = setmetatable({},{
    __index = function (self,Index)
        local Sandbox = function (Thing)
            if Thing:IsA("Player") then
                local RealPlayer = Thing
                return setmetatable({},{
                    __index = function (self,Index)
                        local Type = type(RealPlayer[Index])
                        if Type == "function" then
                            if Index:lower() == "getmouse" or Index:lower() == "mouse" then
                                return function (self)
                                    return InternalData["Mouse"]
                                end
                            end
                            return function (self,...)
                                return RealPlayer[Index](RealPlayer,...)
                            end
                        else
                            if Index == "PlrObj" then
                                return RealPlayer
                            end
                            return RealPlayer[Index]
                        end
                    end;
                    __tostring = function(self)
                        return RealPlayer.Name
                    end
                })
            end
        end
        if RealGame[Index] then
            local Type = type(RealGame[Index])
            if Type == "function" then
                if Index:lower() == "getservice" or Index:lower() == "service" then
                    return function (self,Service)
                        if Service:lower() == "players" then
                            return setmetatable({},{
                                __index = function (self2,Index2)
                                    local RealService = RealGame:GetService(Service)
                                    local Type2 = type(Index2)
                                    if Type2 == "function" then
                                        return function (self,...)
                                            return RealService[Index2](RealService,...)
                                        end
                                    else
                                        if Index2:lower() == "localplayer" then
                                            return Sandbox(owner)
                                        end
                                        return RealService[Index2]
                                    end
                                end;
                                __tostring = function(self)
                                    return RealGame:GetService(Service).Name
                                end
                            })
                        elseif Service:lower() == "contextactionservice" then
                            return InternalData["ContextActionService"]
                        elseif Service:lower() == "contextactionservice" then
                            return InternalData["UserInputService"]
                        elseif Service:lower() == "runservice" then
                            return setmetatable({},{
                                __index = function(self2,Index2)
                                    local RealService = RealGame:GetService(Service)
                                    local Type2 = type(Index2)
                                    if Type2 == "function" then
                                        return function (self,...)
                                            return RealService[Index2](RealService,...)
                                        end
                                    else
                                        if Index2:lower() == "bindtorenderstep" then
                                            return function (self,Name,Priority,Function)
                                                return RealGame:GetService("RunService").Stepped:Connect(Function)
                                            end
                                        end
                                        if Index2:lower() == "renderstepped" then
                                            return RealService["Stepped"]
                                        end
                                        return RealService[Index2]
                                    end
                                end
                            })
                        else
                            return RealGame:GetService(Service)
                        end
                    end
                end
                return function (self,...)
                    return RealGame[Index](RealGame,...)
                end
            else
                if game:GetService(Index) then
                    return game:GetService(Index)
                end
                return RealGame[Index]
            end
        else
            return nil
        end
    end
});Game = game;owner = game:GetService("Players").LocalPlayer;script = {}
print("Complete! Running...")


--//Paste script below this line.

--[[ Script created by
Siarius, enjoy!
Copyright, Ghost, and all Ghost functions, parts, etc
changing the name of who created, will cause in you breaking rules
--]]


s = game.Workspace

Player = owner
c = Player.Character

s2 = Instance.new("Sound", c.Head)
s2.Name = "Bleu"
s2.Volume = 1

c.Humanoid.MaxHealth = math.huge
c.Humanoid.Health = math.huge

game:GetService("Chat"):Chat(c, "Ghost, Created by Siarius [V0.136]")

        for i,v in pairs(c:GetChildren()) do
                if v:IsA("Shirt") or  v:IsA("Pants") or v:IsA("Hat") then
                v:remove()
wait()
                end
        end

c.Humanoid.DisplayDistanceType = "None"
c.Humanoid.NameOcclusion = "OccludeAll"
c.Head.Transparency = .6
c.Torso.Transparency = .4
c["Right Arm"].Transparency = .2
c["Left Arm"].Transparency = .2
c["Right Leg"].Transparency = .9
c["Left Leg"].Transparency = .9
c.Head.BrickColor = BrickColor.new("Industrial white")
c.Torso.BrickColor = BrickColor.new("Industrial white")
c["Right Arm"].BrickColor = BrickColor.new("Industrial white")
c["Left Arm"].BrickColor = BrickColor.new("Industrial white")
c["Right Leg"].BrickColor = BrickColor.new("Industrial white")
c["Left Leg"].BrickColor = BrickColor.new("Industrial white")
c.Head.face.Texture = "rbxassetid://0"

---Start of Invisibility---
mouse.KeyDown:connect(function(key)
	print("Key Pressed : "..key)
	if key == "e" then
game:GetService("Chat"):Chat(c, "Invisibility")
		s2.SoundId = "rbxassetid://134012322"
		s2:Play()
		s2.Volume = 1
		wait(0.05)
		c.Head.Transparency = 1
		c.Torso.Transparency = 1
		c["Right Arm"].Transparency = 1
		c["Left Arm"].Transparency = 1
		c["Right Leg"].Transparency = 1
		c["Left Leg"].Transparency = 1
		c.Head.CanCollide = false
		c.Torso.CanCollide = false
		c["Right Arm"].CanCollide = false
		c["Left Arm"].CanCollide = false
		c["Right Leg"].CanCollide = false
		c["Left Leg"].CanCollide = false
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "e" then
		s2:Play()
		wait(0.05)
c.Head.Transparency = .6
c.Torso.Transparency = .4
c["Right Arm"].Transparency = .2
c["Left Arm"].Transparency = .2
c["Right Leg"].Transparency = .9
c["Left Leg"].Transparency = .9
c.Head.BrickColor = BrickColor.new("Industrial white")
c.Torso.BrickColor = BrickColor.new("Industrial white")
c["Right Arm"].BrickColor = BrickColor.new("Industrial white")
c["Left Arm"].BrickColor = BrickColor.new("Industrial white")
c["Right Leg"].BrickColor = BrickColor.new("Industrial white")
c["Left Leg"].BrickColor = BrickColor.new("Industrial white")
		c.Head.CanCollide = true
		c.Torso.CanCollide = true
		c["Right Arm"].CanCollide = true
		c["Left Arm"].CanCollide = true
		c["Right Leg"].CanCollide = true
		c["Left Leg"].CanCollide = true
	end
end)
---End of Invisibility---

---Start of Roar---
mouse.KeyDown:connect(function(key)
	if key == "r" then
game:GetService("Chat"):Chat(c, "Roar-Blast")
		s2.SoundId = "rbxassetid://222938768"
		s2.Volume = 5
		wait(.01)
		children = game.Players:GetChildren()

for i = 1, #children do
	children[i].Character.Humanoid.Health = 80
end

		s2:Play()
	end
end)
---End of Roar---

---Start of Slow Time---
mouse.KeyDown:connect(function(key)
	if key == "f" then
		game:GetService("Chat"):Chat(c, "Slow Time")
		s2.SoundId = "rbxassetid://159459861"
		s2.Volume = 5
		wait(.01)
		s2:Play()
		children = game.Players:GetChildren()

for i = 1, #children do
	children[i].Character.Humanoid.WalkSpeed = 3
end
		c.Humanoid.WalkSpeed = 50
wait(10)
for i = 1, #children do
	children[i].Character.Humanoid.WalkSpeed = 16
end
c.Humanoid.WalkSpeed = 16
	end
end)
---End of Slow Time---

---Start of Shadow Charm---
mouse.KeyDown:connect(function(key)
	if key == "g" then
game:GetService("Chat"):Chat(c, "Shadow Charm")
		s2.SoundId = "rbxassetid://171137312"
		s2:Play()
		s2.Volume = 1
c.Head.Transparency = .9
c.Torso.Transparency = .9
c["Right Arm"].Transparency = .9
c["Left Arm"].Transparency = .9
c["Right Leg"].Transparency = .9
c["Left Leg"].Transparency = .9
c["Right Arm"].Touched:connect(function(hit)
	hit.Parent.Humanoid.Health = -80
end)
c["Left Arm"].Touched:connect(function(hit)
	hit.Parent.Humanoid.Health = -80
end)
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "g" then
		s2:Play()
c.Head.Transparency = .6
c.Torso.Transparency = .4
c["Right Arm"].Transparency = .2
c["Left Arm"].Transparency = .2
c["Right Leg"].Transparency = .9
c["Left Leg"].Transparency = .9
c["Right Arm"].Touched:connect(function(hit)
	hit.Parent.Humanoid.Health = 100
end)
c["Left Arm"].Touched:connect(function(hit)
	hit.Parent.Humanoid.Health = 100
end)
c.Head.BrickColor = BrickColor.new("Industrial white")
c.Torso.BrickColor = BrickColor.new("Industrial white")
c["Right Arm"].BrickColor = BrickColor.new("Industrial white")
c["Left Arm"].BrickColor = BrickColor.new("Industrial white")
c["Right Leg"].BrickColor = BrickColor.new("Industrial white")
c["Left Leg"].BrickColor = BrickColor.new("Industrial white")
	end
end)
---End of Shadow Charm---

---Start of Heal Others---
mouse.KeyDown:connect(function(key)
	if key == "h" then
game:GetService("Chat"):Chat(c, "Heal Others")
s2.SoundId = "rbxassetid://186883084"
s2.Volume = 10
s2:Play()
children = game.Players:GetChildren()

for i = 1, #children do
	children[i].Character.Humanoid.Health = 100
end
	end
end)
---End of Heal Others---

---Start of Fire---
mouse.KeyDown:connect(function(key)
	if key == "q" then
game:GetService("Chat"):Chat(c, "Fire")
s2.SoundId = "rbxassetid://199978176"
s2.Volume = 1
s2:Play()
c.Head.BrickColor = BrickColor.new("Bright red")
c.Torso.BrickColor = BrickColor.new("Bright red")
c["Right Arm"].BrickColor = BrickColor.new("Bright red")
c["Left Arm"].BrickColor = BrickColor.new("Bright red")
c["Right Leg"].BrickColor = BrickColor.new("Bright red")
c["Left Leg"].BrickColor = BrickColor.new("Bright red")
s = Instance.new("Fire", c.Torso)
c["Right Arm"].Touched:connect(function(hit)
	Instance.new("Fire", hit.Parent.Torso)
	hit.Parent.Humanoid.Health = 0
end)
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "q" then
c.Head.BrickColor = BrickColor.new("Industrial white")
c.Torso.BrickColor = BrickColor.new("Industrial white")
c["Right Arm"].BrickColor = BrickColor.new("Industrial white")
c["Left Arm"].BrickColor = BrickColor.new("Industrial white")
c["Right Leg"].BrickColor = BrickColor.new("Industrial white")
c["Left Leg"].BrickColor = BrickColor.new("Industrial white")
c.Torso.Fire:Destroy()
	end
end)
---End of Fire---

---Start of Poison--
mouse.KeyDown:connect(function(key)
		if key == "j" then
		game:GetService("Chat"):Chat(c, "Poison")
		s2.SoundId = "rbxassetid://138677306"
		s2.Volume = 1.5
		s2:Play()
c.Head.BrickColor = BrickColor.new("Lime green")
c.Torso.BrickColor = BrickColor.new("Lime green")
c["Right Arm"].BrickColor = BrickColor.new("Lime green")
c["Left Arm"].BrickColor = BrickColor.new("Lime green")
c["Right Leg"].BrickColor = BrickColor.new("Lime green")
c["Left Leg"].BrickColor = BrickColor.new("Lime green")
sp = Instance.new("Sparkles", c.Torso)
c["Left Arm"].Touched:connect(function(hit)
	Instance.new("Sparkles", hit.Parent.Torso)
hit.Parent.Head.BrickColor = BrickColor.new("Lime green")
hit.Parent.Torso.BrickColor = BrickColor.new("Lime green")
hit.Parent["Right Arm"].BrickColor = BrickColor.new("Lime green")
hit.Parent["Left Arm"].BrickColor = BrickColor.new("Lime green")
hit.Parent["Right Leg"].BrickColor = BrickColor.new("Lime green")
hit.Parent["Left Leg"].BrickColor = BrickColor.new("Lime green")
	hit.Parent.Humanoid.Health = hit.Parent.Humanoid.Health -25
	wait(3)
	hit.Parent.Humanoid.Health = hit.Parent.Humanoid.Health -25
	wait(3)
	hit.Parent.Humanoid.Health = hit.Parent.Humanoid.Health -25
	wait(3)
	hit.Parent.Humanoid.Health = hit.Parent.Humanoid.Health -25
end)

mouse.KeyUp:connect(function(key)
	if key == "j" then
		game:GetService("Chat"):Chat(c, "Poison")
		c.Head.BrickColor = BrickColor.new("Industrial white")
c.Torso.BrickColor = BrickColor.new("Industrial white")
c["Right Arm"].BrickColor = BrickColor.new("Industrial white")
c["Left Arm"].BrickColor = BrickColor.new("Industrial white")
c["Right Leg"].BrickColor = BrickColor.new("Industrial white")
c["Left Leg"].BrickColor = BrickColor.new("Industrial white")
sp:Destroy()
	end
end)
end
end)
---End of Poison---

---Start of Suicide---
mouse.KeyDown:connect(function(key)
	if key == "z" then
game:GetService("Chat"):Chat(c, "Suicide")
		s2.SoundId = "rbxassetid://137473066"
		s2.Volume = 1
		s2:Play()
		wait(0.05)
		s = Instance.new("Explosion", c.Torso)
		s.Name = "ex"
		c.Torso.ex.Position = c.Torso.Position
	end
end)
---End of Suicide---

---Start of Shield---
mouse.KeyDown:connect(function(key)
	if key == "x" then
game:GetService("Chat"):Chat(c, "Shield")
		s2.SoundId = "rbxassetid://181004943"
		s2.Volume = 2
		s2:Play()
x = Instance.new("Part")
x.FormFactor = "Custom"
x.Shape = "Ball"
x.Size = Vector3.new(6.5, 6.5, 6.5)
x.TopSurface = "Smooth"
x.BottomSurface = "Smooth"
x.BrickColor = BrickColor.new("Industrial white")
x.Transparency = .6
x.Parent = c
w1 = Instance.new("Weld", c)
w1.Part0 = w1.Parent["Torso"]
w1.Part1 = x
w1.C1 = CFrame.fromEulerAnglesXYZ(0, 0, 0) *CFrame.new(0, 0, 0)
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "x" then
x:Destroy()
	end
end)
---End of Shield---

---Start of Dark Pulse---

mouse.KeyDown:connect(function(key)
	if key == "c" then
game:GetService("Chat"):Chat(c, "Dark Pulse")
		s2.SoundId = "rbxassetid://181004943"
		s2.Volume = 2
		s2:Play()
x = Instance.new("Part")
x.FormFactor = "Custom"
x.Shape = "Cylinder"
x.Size = Vector3.new(6.5, 6.5, 6.5)
x.TopSurface = "Smooth"
x.BottomSurface = "Smooth"
x.BrickColor = BrickColor.new("Really black")
x.CanCollide = false
x.Transparency = .6
x.Parent = c
w1 = Instance.new("Weld", c)
w1.Part0 = w1.Parent["Torso"]
w1.Part1 = x
w1.C1 = CFrame.fromEulerAnglesXYZ(0, 0, 300) *CFrame.new(0, 5, 0)
x.Touched:connect(function(hit)
	hit.Parent.Humanoid.Health = hit.Parent.Humanoid.Health -90
end)
	end
end)

mouse.KeyUp:connect(function(key)
	if key == "c" then
x:Destroy()
c.Head.Anchored = false
c.Torso.Anchored = false
c["Right Arm"].Anchored = false
c["Left Arm"].Anchored = false
c["Right Leg"].Anchored = false
c["Left Leg"].Anchored = false
	end
end)

---End of Dark Pulse---

--</\>Copyright Siarius 2015</\>--