aspark2 not inspired to make

repeat
  wait(0.5)
until game:service("Players").LocalPlayer.Character ~= nil
local Player = game:service("Players").LocalPlayer
local ch = Player.Character
	local occ = Instance.new("BoolValue", ch)
	occ.Name = "Occupied"
	local swi = Instance.new("StringValue", ch)
	swi.Name = "switch"
	local trans = Instance.new("BoolValue", ch)
	trans.Name = "trans"
	repeat wait() until ch.Humanoid ~= nil
	ch.Humanoid.Died:connect(function()
		Player.CharacterAdded:connect(function(chz)
				local occ = Instance.new("BoolValue", chz)
				occ.Name = "Occupied"
				local swi = Instance.new("StringValue", chz)
				swi.Name = "switch"
				local trans = Instance.new("BoolValue", chz)
				trans.Name = "trans"
		end
		)
		end)
local PGui = Player:WaitForChild("PlayerGui")
local Character = Player.Character
local Humanoid = Character:WaitForChild("Humanoid")
local Head = Character:WaitForChild("Head")
local Torso = Character:WaitForChild("Torso")
local HRP = Character:WaitForChild("HumanoidRootPart")
local RArm = Character:WaitForChild("Right Arm")
local LArm = Character:WaitForChild("Left Arm")
local RLeg = Character:WaitForChild("Right Leg")
local LLeg = Character:WaitForChild("Left Leg")
msgz = Instance.new("Message", PGui)
msgz.Text = "Chat \'aspark2\' to go aspark2, and \'off\' to turn it off!"
game.Debris:AddItem(msgz, 6.5)
local Joints = {Head = Torso.Neck, Torso = HRP.RootJoint, RArm = Torso["Right Shoulder"], LArm = Torso["Left Shoulder"], RLeg = Torso["Right Hip"], LLeg = Torso["Left Hip"]}
local Refresh = function()
  Joints.Head.C0 = CFrame.new(0, 1, 0, -1, 0, 0, 0, 0, 1, 0, 1, 0)
  Joints.Torso.C0 = CFrame.new(0, 0, 0, -1, 0, 0, 0, 0, 1, 0, 1, 0)
  Joints.RArm.C0 = CFrame.new(1, 0.5, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)
  Joints.LArm.C0 = CFrame.new(-1, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
  Joints.RLeg.C0 = CFrame.new(1, -1, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)
  Joints.LLeg.C0 = CFrame.new(-1, -1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
  Joints.Head.C1 = CFrame.new(0, -0.5, 0, -1, 0, 0, 0, 0, 1, 0, 1, 0)
  Joints.Torso.C1 = CFrame.new(0, 0, 0, -1, 0, 0, 0, 0, 1, 0, 1, 0)
  Joints.RArm.C1 = CFrame.new(-0.5, 0.5, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)
  Joints.LArm.C1 = CFrame.new(0.5, 0.5, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
  Joints.RLeg.C1 = CFrame.new(0.5, 1, 0, 0, 0, 1, 0, 1, 0, -1, 0, 0)
  Joints.LLeg.C1 = CFrame.new(-0.5, 1, 0, 0, 0, -1, 0, 1, 0, 1, 0, 0)
end

Anims = {Pose = function(active)
  if active then
    for i = 0, 10, 0.5 do
      wait(0.016666666666667)
      Joints.Head.C0 = Joints.Head.C0 * CFrame.Angles(0.015, 0, 0)
      Joints.Torso.C0 = Joints.Torso.C0 * CFrame.Angles(0.01, 0, 0)
      Joints.RArm.C0 = Joints.RArm.C0 * CFrame.Angles(-0.025, 0.03, math.rad(70) / 10)
      Joints.LArm.C0 = Joints.LArm.C0 * CFrame.Angles(-0.025, -0.03, -math.rad(70) / 10)
      Joints.RLeg.C0 = Joints.RLeg.C0 * CFrame.Angles(-0.01, -0.02, 0.015)
      Joints.LLeg.C0 = Joints.LLeg.C0 * CFrame.Angles(-0.015, 0.01, 0)
    end
  else
    do
      for i = 0, 10, 0.5 do
        wait(0.016666666666667)
        Joints.Head.C0 = Joints.Head.C0 * CFrame.Angles(0.015, 0, 0):inverse()
        Joints.Torso.C0 = Joints.Torso.C0 * CFrame.Angles(0.01, 0, 0):inverse()
        Joints.RArm.C0 = Joints.RArm.C0 * CFrame.Angles(-0.025, 0.03, math.rad(70) / 10):inverse()
        Joints.LArm.C0 = Joints.LArm.C0 * CFrame.Angles(-0.025, -0.03, -math.rad(70) / 10):inverse()
        Joints.RLeg.C0 = Joints.RLeg.C0 * CFrame.Angles(-0.01, -0.02, 0.015):inverse()
        Joints.LLeg.C0 = Joints.LLeg.C0 * CFrame.Angles(-0.015, 0.01, 0):inverse()
      end
    end
  end
end
, Implode = function(active)
  if active then
    for i = 0, 7, 0.5 do
      wait(0.016666666666667)
      Joints.Head.C0 = Joints.Head.C0 * CFrame.Angles(-0.025, 0, 0)
      Joints.Torso.C0 = Joints.Torso.C0 * CFrame.Angles(-0.02, 0, 0)
      Joints.RArm.C0 = Joints.RArm.C0 * CFrame.Angles(-0.05, -0.015, math.rad(100) / 10)
      Joints.LArm.C0 = Joints.LArm.C0 * CFrame.Angles(-0.05, 0.015, -math.rad(100) / 10)
      Joints.RLeg.C0 = Joints.RLeg.C0 * CFrame.Angles(-0.025, -0.02, -0.025)
      Joints.LLeg.C0 = Joints.LLeg.C0 * CFrame.Angles(-0.015, 0.01, 0.03)
    end
  else
    do
      for i = 0, 7, 0.5 do
        wait(0.016666666666667)
        Joints.Head.C0 = Joints.Head.C0 * CFrame.Angles(-0.025, 0, 0):inverse()
        Joints.Torso.C0 = Joints.Torso.C0 * CFrame.Angles(-0.02, 0, 0):inverse()
        Joints.RArm.C0 = Joints.RArm.C0 * CFrame.Angles(-0.05, -0.015, math.rad(100) / 10):inverse()
        Joints.LArm.C0 = Joints.LArm.C0 * CFrame.Angles(-0.05, 0.015, -math.rad(100) / 10):inverse()
        Joints.RLeg.C0 = Joints.RLeg.C0 * CFrame.Angles(-0.025, -0.02, -0.025):inverse()
        Joints.LLeg.C0 = Joints.LLeg.C0 * CFrame.Angles(-0.015, 0.01, 0.03):inverse()
      end
    end
  end
end
}
local Transformed, Occupied = false, false
local Create = assert(LoadLibrary("RbxUtility")).Create
local Part = Create("Part")({TopSurface = 0, BottomSurface = 0, formFactor = "Custom", Size = Vector3.new(1, 1, 1), Anchored = true, CanCollide = false})
local Flash = function(Par, Col, Duration, Delay, Async)
  pcall(function()
    Par = Par or PGui
    if not Col then
      Col = BrickColor:White().Color
      Duration = Duration or 10
      if not Delay then
        Delay = 1 / Duration
        local G = Create("ScreenGui")({Parent = Par})
        if not Col then
          local F = Create("Frame")({Parent = G, BorderSizePixel = 0, Size = UDim2.new(1.2, 0, 1.2, 0), Position = UDim2.new(), ZIndex = 10, BackgroundColor3 = Color3.new(1, 1, 1), Transparency = 0})
          local f = function()
      for i = 0, Duration, Delay do
        wait(0.016666666666667)
        F.Transparency = i / Duration
      end
      pcall(game.Destroy, G)
    end

          if Async then
            f = coroutine.wrap(f)
          end
          return f()
        end
      end
    end
  end
)
end

local Shake = function(Duration, Delay, Distance, Async)
  pcall(function()
    local Cam = workspace.CurrentCamera
    Duration = Duration or 10
    if not Delay then
      Delay = 1 / Duration
      Distance = Distance or 15
      local f = function()
      for i = 0, Duration, Delay do
        wait(0.016666666666667)
        local R = Cam.CoordinateFrame - Cam.CoordinateFrame.p
        local Scroll = (Cam.CoordinateFrame.p - Cam.Focus.p).magnitude
        local NewF = CFrame.new(Cam.Focus.p) * R * CFrame.new(math.random(-Distance, Distance) / (Distance / 0.25), math.random(-Distance, Distance) / (Distance / 0.25), math.random(-Distance, Distance) / (Distance / 0.25))
        Cam.CoordinateFrame = NewF * CFrame.new(0, 0, Scroll)
      end
    end

      if Async then
        f = coroutine.wrap(f)
      end
      return f()
    end
  end
)
end

local Sound = function(Prnt, Id, Pit, Vol)
  pcall(function()
    local cp = game:service("ContentProvider")
    if type(Id) == "number" then
      cp:Preload("rbxassetid://" .. Id)
      Id = "rbxassetid://" .. Id
    else
      if type(Id) == "string" then
        cp:Preload(Id)
        Id = Id
      end
    end
    local S = Create("Sound")({Parent = Prnt or workspace, SoundId = Id, Volume = Vol or 1, Pitch = Pit or 1})
    S:Play()
    S:Stop()
    S:Play()
    game:service("Debris"):AddItem(S, 0.9)
  end
)
end

local Chat = function(Par, Msg, Col)
  if Msg then
    if not Par then
      Par = Head
    end
    if not Col then
      Col = math.random(0, 2)
    end
    game:service("Chat"):Chat(Par, Msg, Col)
  end
end

local Transform = function(active)
  if active and not Transformed and not Occupied then
    Occupied = true
    Humanoid.WalkSpeed = 0
    local cp = game:service("ContentProvider")
    Hair = {}
    mp = Part:clone()
    mp.Parent = Head
    mp.CFrame = Head.CFrame
    mp.Name = "Main"
    mp.Transparency = 1
    mp.Anchored = false
    local w = Create("Weld")({Parent = mp, Part0 = mp, Part1 = Head, C0 = CFrame.new()})
    cp:Preload("rbxassetid://169271913", "rbxassetid://9982590", "rbxassetid://5000000000000000000070017", "rbxassetid://13425802", "rbxassetid://98444143", "rbxassetid://98444243")
    do
      for i = 1, 6 do
        local h = Part:clone()
        h.CFrame = Head.CFrame
        h.Parent = mp
        h.Transparency = 1
        h.Size = Vector3.new(0.2, 0.2, 0.2)
        h.Material = "Neon"
        h.Anchored = false
        h:BreakJoints()
        local w = Create("Weld")({Parent = h, Part0 = h, Part1 = Head, C0 = CFrame.new()})
        local m = Create("SpecialMesh")({Parent = h, MeshType = "FileMesh", MeshId = "rbxassetid://167554431 ", TextureId = "rbxassetid://98444243", Scale = Vector3.new(1, 1, 1), VertexColor = Vector3.new(0.2, 0.2, 0.2)})
        if i > 1 then
          m.Scale = Vector3.new(1.125, 1.3, 1.125)
          m.MeshId = "rbxassetid://98444143"
          m.VertexColor = Vector3.new(0.2, 0.2, 0.2)
        end
        table.insert(Hair, h)
      end
    end
    Hair[1].Weld.C0 = CFrame.new()
    Hair[2].Mesh.Scale = Vector3.new(1, 1.2, 1)
    Hair[2].Weld.C0 = CFrame.new(0, -0.85, -0.45) * CFrame.Angles(0.65, 0, 0)
    Hair[3].Weld.C0 = CFrame.new(0, -1, -0.25) * CFrame.Angles(-0.15, 0, 0)
    Hair[4].Weld.C0 = CFrame.new(0.35, -0.6, -0.4) * CFrame.Angles(0.4, -0.2, -0.35)
    Hair[5].Weld.C0 = CFrame.new(-0.35, -0.6, -0.4) * CFrame.Angles(0.4, 0.2, 0.35)
    Hair[4].Mesh.Scale = Vector3.new(0.7, 0.95, 1)
    Hair[6].Weld.C0 = CFrame.new(0, -0.85, -0.35) * CFrame.Angles(-0.76, 0, 0)
    Hair[5].Mesh.Scale = Hair[4].Mesh.Scale
    Hair[6].Mesh.Scale = Hair[4].Mesh.Scale
    Anims.Pose(true)
    Chat(nil, "WHAT\'S HAPPENING?!?! I CAN\'T CONTROL MYSELF!", nil)
    Flash(nil, BrickColor.new("Royal purple").Color, 3, 0.05, true)
    Shake(16, 0.05, 55, true)
    coroutine.resume(coroutine.create(function()
    for i = 1, 2 do
      Sound(Head, 2248511, 0.4, 0.6)
      Sound(Head, 2691586, 0.4, 0.4)
      Shake(8, 0.05, 55, true)
      wait(1)
    end
  end
))
    local spi = Part:Clone()
    spi.Parent = Torso
    spi.Anchored = false
    spi.Transparency = 0.01
    spi.BrickColor = BrickColor.new("Royal purple")
    spi.Material = "Neon"
    local w = Instance.new("Weld", spi)
    w.Part0 = spi
    w.Part1 = Torso
    local m = Instance.new("SpecialMesh", spi)
    m.Scale = Vector3.new(10, 10, 10) * 2.5
    m.MeshType = "Sphere"
    do
      do
        local growing = true
        coroutine.resume(coroutine.create(function()
    local angle = 0
    while wait(0.05) and growing do
      angle = angle % 100 + 0.3
      m.Scale = Vector3.new(25 + math.sin(angle) * 2.5, 25 + math.sin(angle) * 2.5, 25 + math.sin(angle) * 2.5)
    end
  end
))
        do
          for i = 1, 9 do
            wait(0.9)
            Shake(8, 0.05, 55, true)
            Sound(Head, 2248511, 0.4, 0.6)
            Sound(Head, 2691586, 0.4, 0.4)
            Sound(Head, 2101137, 0.50000000000000000000, 0.8)
            Sound(Head, 2101137, 0.55, 0.8)
            Sound(Head, 2101137, 0.45, 0.6)
            Flash(nil, BrickColor.new("Royal purple").Color, 2, 0.05, true)
            for i = 1, math.random(4, 5) do
              local p = Part:Clone()
              p.Parent = Torso
              p.Anchored = false
              p.CFrame = Torso.CFrame
              p.BrickColor = BrickColor.new("Royal purple")
              local w = Instance.new("Weld", p)
              w.Part0 = p
              w.Part1 = Torso
              w.C0 = w.C0 * CFrame.Angles(math.random() * 6.28, math.random() * 6.28, math.random() * 6.28)
              local m = Instance.new("CylinderMesh", p)
              m.Scale = Vector3.new(math.random() * 6, 500000000000000000000, math.random() * 6)
              coroutine.resume(coroutine.create(function()
    for i = 1, 12 do
      wait(0.14285714285714)
      w.C0 = w.C0 * CFrame.Angles(0.05, 0.05, 0.05)
      p.Transparency = i / 12
    end
    p:Destroy()
  end
))
            end
          end
        end
        Anims.Pose(false)
        Anims.Implode(true)
        Sound(Head, 5000000000000000000064793, 0.55, 0.9)
        Sound(Head, 2974249, 0.65, 0.9)
        Sound(Head, 2974000, 0.65, 0.9)
        Flash(nil, BrickColor.new("Royal purple").Color, 10, 0.1, true)
        Chat(nil, "SPARKS, I WON\'T LET YOU CONTROL ME!", nil)
        growing = false
        wait(2.1)
        pcall(function()
    Character.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=233943193"
  end
)
        wait(0.1)
        pcall(function()
  end
)
        coroutine.resume(coroutine.create(function()
    for i = 0, 1, 0.075 do
      wait(0.016666666666667)
      for _,v in pairs(Character:GetChildren()) do
        if v.Name == "Hair" then
          v.Transparency = i
        end
      end
    end
    for _,v in pairs(Character:GetChildren()) do
      if v.Name == "Hair" then
        v.Transparency = 1
      end
    end
  end
))
        Sound(Head, 98333808, 1, 1)
        for i = 1, 0, -0.075 do
          wait(0.016666666666667)
          for _,v in pairs(Hair) do
            v.Transparency = i
          end
        end
        for _,v in pairs(Hair) do
          v.Transparency = 0
        end
        Sound(Head, 98333808, 1, 1)
        Sound(Head, 5000000000000000000064793, 0.55, 0.9)
        Sound(Head, 2974249, 0.65, 0.9)
        Sound(Head, 2974000, 0.65, 0.9)
        Shake(15, 0.25, 40, true)
        Flash(nil, BrickColor.new("Royal purple").Color, 10, 0.1, true)
        coroutine.resume(coroutine.create(function()
    for i = 1, 2 do
      Sound(Head, 2248511, 0.3, 0.6)
      Sound(Head, 2691586, 0.3, 0.4)
      Sound(Head, 5000000000000000000064793, 0.55, 0.9)
      Sound(Head, 2974249, 0.65, 0.9)
      Sound(Head, 2974000, 0.65, 0.9)
      wait(3)
    end
  end
))
        for i = 1, 50 do
          wait(0.045)
          m.Scale = m.Scale - Vector3.new(1, 1, 1) / 1.95
        end
        SSF = Create("Fire")({Parent = HRP, Color = Color3.new(1, 0, 0), Heat = 20, SecondaryColor = Color3.new(0.33333333333333, 0, 0), Size = 8})
        Chat(nil, "This is..", nil)
        wait(1)
        spi.BrickColor = BrickColor.new("Royal purple")
        Flash(nil, BrickColor.new("Royal purple").Color, 7, 0.1, true)
        for i = 1, 20 do
          m.Scale = m.Scale + Vector3.new(6, 6, 6)
          spi.Transparency = i / 20
          wait(0.03)
        end
        Chat(nil, "SUPER SAIYAN FOUR!", nil)
        spi:Destroy()
        SSF.Size = 12
        Anims.Implode(false)
        Humanoid.WalkSpeed = 16
        Transformed = true
        Occupied = false
        if not active and Transformed and not Occupied then
          Occupied = true
          Humanoid.WalkSpeed = 0
          Anims.Pose(true)
          Chat(nil, "It\'s time..", nil)
          Sound(Head, 2248511, 0.75, 0.6)
          Sound(Head, 2691586, 0.7, 0.4)
          Sound(Head, 2785493, 0.55, 0.9)
          Sound(Head, 2785493, 0.7, 0.7)
          Shake(5, 0.1, 20, true)
          Flash(nil, Color3.new(1, 1, 1), 7, 0.1, false)
          coroutine.resume(coroutine.create(function()
    for i = 1, 0, -0.075 do
      wait(0.016666666666667)
      for _,v in pairs(Character:GetChildren()) do
        if v.Name == "Hair" then
          v.Transparency = i
        end
      end
    end
    for _,v in pairs(Character:GetChildren()) do
      if v.Name == "Hair" then
        v.Transparency = 0
      end
    end
  end
))
          for i = 0, 1, 0.075 do
            wait(0.016666666666667)
            for _,v in pairs(Hair) do
              v.Transparency = i
            end
          end
          for _,v in pairs(Hair) do
            v.Transparency = 1
          end
          Sound(Head, 2800815, 0.85, 1)
          Sound(Head, 2800815, 0.55, 0.8)
          Sound(Head, 2691586, 0.45, 0.3)
          Hair = {}
          pcall(game.Destroy, mp)
          pcall(game.Destroy, SSF)
          pcall(function()
    Character.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=233943193"
  end
)
          wait(0.1)
          pcall(function()
  end
)
          Chat(nil, "You\'re an unworthy opponent", "Blue")
          Anims.Pose(false)
          Humanoid.WalkSpeed = 16
          wait(0.35)
          Transformed = false
          Occupied = false
        end
      end
    end
  end
end

Player.Chatted:connect(function(Msg)
  if Character.trans.Value == false and Character.Occupied.Value == false then
    if Msg:lower() == "aspark2" and Character.switch.Value == "" then
      Character.switch.Value = "aspark2"
      Character.trans.Value = true
      Transform(true)
      Humanoid.MaxHealth = Humanoid.MaxHealth + tonumber("50000000000000000000")
      wait(1)
      Humanoid.Health = Humanoid.Health + tonumber("50000000000000000000")
      Character.trans.Value = false
    else
      if Msg:lower() == "off" and Character.switch.Value == "aspark2" then
        Character.trans.Value = true
        Transform(false)
        Humanoid.Health = Humanoid.Health - tonumber("50000000000000000000")
        wait(1)
        Humanoid.MaxHealth = Humanoid.MaxHealth - tonumber("50000000000000000000")
        Character.trans.Value = false
        Character.switch.Value = ""
      end
    end
  end
end
)