Charging Fireball

--By iiJoeCats

--//BO NOT EDIT WHAT IS UNDER THIS UNLESS YOU KNOW WHAT YOUR DOING\\--
repeat wait(1) until game.Players.LocalPlayer
print("Running...")

local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local UIS = game:GetService("UserInputService")
local character = player.Character
local run = game:GetService("RunService")
local TweenS = game:GetService("TweenService")
local runS = run.RenderStepped

local charging = false
local value = 0
local attack = false

function removeItem(item,timer)
    game:GetService("Debris"):AddItem(item,timer)
end

local hum = character:FindFirstChildOfClass("Humanoid")

hum.BreakJointsOnDeath = false

local rArm = character["Right Arm"]
local lArm = character["Left Arm"]
local rLeg = character["Right Leg"]
local lLeg = character["Left Leg"]
local tors = character.Torso
local hed = character.Head
local root = character.HumanoidRootPart

local rootj = root.RootJoint

local names = {
    "oof",
    "wow",
    "OwO",
    "memes",
    "dedXD",
    "baby-shark",
    "wasted",
    "whostoleyourmomscokeandjustgothigh",
    "furry",
    "iburryguts",
    "fortnite",
    "BOI",
    "yodahitsthebooftoohardandfukingdiesXD"
}

function morph()
    local particlea = Instance.new("ParticleEmitter",rArm)
    particlea.Speed = NumberRange.new(0.20000000298023, 0.25)
    particlea.Color = ColorSequence.new(Color3.new(1, 0, 0),Color3.new(1, 1, 0))
    particlea.LightInfluence = 1
    particlea.Texture = "rbxassetid://4112080010"
    particlea.Size = NumberSequence.new(0.24999976158142,0.18750011920929)
    particlea.Drag = -5
    particlea.Lifetime = NumberRange.new(0.75, 0.85000002384186)
    particlea.LockedToPart = true
    particlea.Rate = 46

    local particleb = Instance.new("ParticleEmitter",lArm)
    particleb.Speed = NumberRange.new(0.20000000298023, 0.25)
    particleb.Color = ColorSequence.new(Color3.new(1, 0, 0),Color3.new(1, 1, 0))
    particleb.LightInfluence = 1
    particleb.Texture = "rbxassetid://4112080010"
    particleb.Size = NumberSequence.new(0.24999976158142,0.18750011920929)
    particleb.Drag = -5
    particleb.Lifetime = NumberRange.new(0.75, 0.85000002384186)
    particleb.LockedToPart = true
    particleb.Rate = 46
end

ypcall(function()
    morph()
end)

hum.WalkSpeed = 25

mouse.KeyDown:Connect(function(key)
    if not attack then
        if key == "q" then
            local dmg = 0
            value = 0
            charging = true
            attack = true

            local raWeld = Instance.new("Weld",tors)
            raWeld.Part0 = tors
            raWeld.Part1 = rArm
            raWeld.C0 = CFrame.new(1.5,0,0)

            local laWeld = Instance.new("Weld",tors)
            laWeld.Part0 = tors
            laWeld.Part1 = lArm
            laWeld.C0 = CFrame.new(-1.5,0,0)

            for i = 0,1,0.2 do
                runS:wait()
                raWeld.C0 = raWeld.C0:lerp(CFrame.new(1.3,.5,-.5) * CFrame.fromEulerAnglesXYZ(math.rad(90),math.rad(0),math.rad(-20)),i)
                laWeld.C0 = laWeld.C0:lerp(CFrame.new(-1.3,.5,-.5) * CFrame.fromEulerAnglesXYZ(math.rad(90),math.rad(0),math.rad(20)),i)
            end

            local posBox = Instance.new("Part",character)
            posBox.Size = Vector3.new(1,1,1)
            posBox.CanCollide = false
            posBox.Transparency = 1

            local wld = Instance.new("Weld",posBox)
            wld.Part0 = posBox
            wld.Part1 = tors
            wld.C0 = CFrame.new(0,-0.575,2.4)

            local f = Instance.new("Part",workspace)
            f.Size = Vector3.new(3,3,3)
            f.CanCollide = false
            f.Anchored = true
            f.Shape = Enum.PartType.Ball
            f.Material = Enum.Material.Neon
            f.BrickColor = BrickColor.new("Really red")
            f.CFrame = posBox.CFrame

            local function getRidOf()
                spawn(function()
                    removeItem(f,4.5)
                    wait(4.5)
                    touch:Disconnect()
                end)
            end

            local function firePos()
                tors.Anchored = true

                while charging do
                    value = value + 1
                    if value >= 250 then
                        charging = false
                        value = 0
                    else
                        runS:wait()
                        dmg = dmg + 0.25 / 2 * math.ceil(math.random(1,5))
                        root.CFrame = CFrame.new(root.Position, mouse.Hit.p) * CFrame.new(0,0,0)
                        wld.C0 = wld.C0 * CFrame.new(0,0,.04)
                        f.CFrame = posBox.CFrame
                        f.Size = f.Size + Vector3.new(0.07,0.07,0.07)
                    end
                end

                getRidOf()
                local velo = Instance.new("BodyVelocity",f)
                velo.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
                velo.Velocity = f.CFrame.LookVector * 120

                f.Anchored = false
                tors.Anchored = false

                touch = f.Touched:Connect(function(hit)
                    local humn = hit.Parent:FindFirstChildOfClass("Humanoid")
                    if humn and humn.Health > 0 then
                        if hit:IsDescendantOf(character) then return end
                        local val = humn.Parent:FindFirstChildOfClass("BinaryStringValue")
                        if not val then
                            Instance.new("BinaryStringValue",humn.Parent).Name = names[math.random(1, #names)]
                            humn:TakeDamage(dmg * 1.02)
                            spawn(function()
                                for i = 1,10 do
                                    --Effect
                                    local prt = f:Clone()
                                    prt.Parent = workspace
                                    prt.Size = Vector3.new(0.5,0.5,0.5)
                                    prt.CFrame = f.CFrame
                                    prt:FindFirstChildOfClass("BodyVelocity").Velocity = Vector3.new(math.random(-10,10),math.random(-10,10),math.random(-10,10))
                                    prt.CanCollide = false
                                    removeItem(prt,0.75)

                                end
                            end)
                            wait(2)
                            humn.Parent:FindFirstChildOfClass("BinaryStringValue"):Destroy()
                        else
                            --nothing
                        end
                    end
                end)

            end
            firePos()

            wait(1)
            raWeld:Destroy()
            laWeld:Destroy()
            attack = false
        end
    end
end)

mouse.KeyUp:Connect(function(key)
    if key == "q" and attack then
        charging = false
    end
end)