Ultra Instinct shaggy Aura and Punching Help?

Well i did manage to add the Punching And it worked at first but then it keeps freezing shaggy Any help adding a another Punching script to this Also need help with the Aura want to add more Aura This is not my script Im making a edited one and need help Thx Script is here

growingList = {}
degrowingList = {}



game:GetService("RunService").RenderStepped:connect(function()
    for _,grow in pairs(growingList) do
local cframe = grow.CFrame      
        grow.Size = grow.Size+Vector3.new(1,1,1)
        grow.Transparency = grow.Transparency+0.04
    end
    for _,degrow in pairs(degrowingList) do
local cframe = degrow.CFrame        
        degrow.Size = degrow.Size-Vector3.new(1,1,1)
        degrow.Transparency = degrow.Transparency+0.04
    end
end)




Basesong = Instance.new("Sound") 

hair = Instance.new("Part",game.Players.LocalPlayer.Character) hair.Size = Vector3.new(1,1,1) hair.CanCollide = false

beforesong = Basesong:Clone()
beforesong.Parent = game.Players.LocalPlayer.Character
beforesong.Looped = true 
beforesong.Volume = 3 
beforesong.SoundId = "rbxassetid://1025128859"
beforesong:Play()

if game.Players.LocalPlayer.Character:FindFirstChild("Body Colors") then
    game.Players.LocalPlayer.Character["Body Colors"]:remove()
end
if game.Players.LocalPlayer.Character:FindFirstChild("Shirt Graphic") then
    game.Players.LocalPlayer.Character["Shirt Graphic"]:remove()
end
if game.Players.LocalPlayer.Character:FindFirstChild("Shirt") then
    game.Players.LocalPlayer.Character["Shirt"]:remove()
end
if game.Players.LocalPlayer.Character:FindFirstChild("Pants") then
    game.Players.LocalPlayer.Character["Pants"]:remove()
end
for i=1,5 do
    wait()
for _,hat in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
    if hat.ClassName == "Accessory" then
        hat:remove()
    end
    if hat:IsA("BasePart") then
        hat.BrickColor = BrickColor.new("Pastel brown")
    end
end
end
game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 0
game.Players.LocalPlayer.Character.Humanoid.JumpPower = 0


Basepart = Instance.new("Part") 


Baseparticle = Instance.new("ParticleEmitter")
Basemesh = Instance.new("SpecialMesh") 
local mesh = Basemesh:Clone()
mesh.Parent = hair
mesh.MeshId = "rbxassetid://1143041061"
Baseweld = Instance.new("Weld")
local weld = Baseweld:Clone()
weld.Part0 = hair
weld.Part1 = game.Players.LocalPlayer.Character.Head
hair.Color = Color3.fromRGB(153, 125, 61)
weld.C0 = CFrame.new(0,-0.25,0)*CFrame.Angles(0,math.rad(180),0)
weld.Parent = hair

shirt = Instance.new("Shirt",game.Players.LocalPlayer.Character) 
shirt.ShirtTemplate = "rbxassetid://804894303"
pants = Instance.new("Pants",game.Players.LocalPlayer.Character) 
pants.PantsTemplate = "rbxassetid://189943600"

game.Players.LocalPlayer.Character.Head.face.Texture = "http://www.roblox.com/asset/?id=1142979747"

wait(1)
game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character.Head, "Where is Scooby Doo.", "Red")
wait(3)
game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character.Head, "Either you Tell me Or i walk on your face", "Red")
wait(3)
game:GetService("Chat"):Chat(game.Players.LocalPlayer.Character.Head, "Fine Behold My Ultra instinct Form.", "Red")
wait(3)

local counter = 0

for i=1,200 do
    wait()
    counter = counter+1
    if counter > 2 then
        counter = 0
        local part = Basepart:Clone()
    part.Color = Color3.fromRGB(255,175,0)
    part.Shape = Enum.PartType.Cylinder
    part.Anchored = true
part.CanCollide = false
part.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame*CFrame.Angles(math.rad(math.random(-360,360)),math.rad(math.random(-360,360)),math.rad(math.random(-360,360)))
part.Parent = game.Workspace
part.Material = Enum.Material.Neon
part.Size = Vector3.new(1000000000,6,6)

game:GetService("Debris"):AddItem(part,1)
table.insert(degrowingList,part)
local part = Basepart:Clone()
    part.Color = Color3.fromRGB(255,175,0)
    part.Shape = Enum.PartType.Ball
    part.Anchored = true
part.CanCollide = false
part.CFrame = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
part.Parent = game.Workspace
part.Material = Enum.Material.Neon
part.Size = Vector3.new(1,1,1)
game:GetService("Debris"):AddItem(part,3)
table.insert(growingList,part)

    end
for _,player in pairs(game.Workspace:GetChildren()) do
    if player:FindFirstChild("Humanoid") then
        player.Humanoid.CameraOffset = Vector3.new(math.random(-2,2),math.random(-2,2),0)
    end
end

end

    counter = counter+1
for _,player in pairs(game.Workspace:GetChildren()) do
    if player:FindFirstChild("Humanoid") then
        player.Humanoid.CameraOffset = Vector3.new(0,0,0)
    end


    end
local colorlist = {ColorSequenceKeypoint.new(0,Color3.fromRGB(0,255,255)),
    ColorSequenceKeypoint.new(0.148,Color3.fromRGB(0,255,255)),
    ColorSequenceKeypoint.new(0.193,Color3.fromRGB(72,0,255)),
    ColorSequenceKeypoint.new(0.366,Color3.fromRGB(72,0,255)),
    ColorSequenceKeypoint.new(0.4,Color3.fromRGB(0,255,255)),
    ColorSequenceKeypoint.new(0.63,Color3.fromRGB(0,255,255)),
    ColorSequenceKeypoint.new(0.8,Color3.fromRGB(72,0,255)),
    ColorSequenceKeypoint.new(1,Color3.fromRGB(0,0,255))
    }
local uiParticle = Baseparticle:Clone()
uiParticle.Color = ColorSequence.new(colorlist)
uiParticle.LightEmission = 1
uiParticle.Size = NumberSequence.new(0.8)
uiParticle.LockedToPart = true
uiParticle.Texture = "rbxassetid://1143059159"
local transparencylist = { NumberSequenceKeypoint.new(0,1),
    NumberSequenceKeypoint.new(0.5,0.67),
    NumberSequenceKeypoint.new(1,1)
}

uiParticle.Transparency = NumberSequence.new(transparencylist)
uiParticle.ZOffset = -1
uiParticle.LockedToPart = true
uiParticle.Lifetime = NumberRange.new(0.05,0.05)
uiParticle.Speed = NumberRange.new(0,0)
uiParticle.Rate = math.huge

for _,hat in pairs(game.Players.LocalPlayer.Character:GetChildren()) do

    if hat:IsA("BasePart") then
        if hat.Name ~= "Head" and hat.Name ~= "HumanoidRootPart" then
        uiParticle:Clone().Parent = hat
        end
    end
end



beforesong:Stop()
mainsong = Basesong:Clone()
mainsong.Parent = game.Players.LocalPlayer.Character
mainsong.Looped = true 
mainsong.Volume = 3 
mainsong.SoundId = "rbxassetid://1025128859"
mainsong:Play()

game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = 80
game.Players.LocalPlayer.Character.Humanoid.JumpPower = 150
game.Players.LocalPlayer.Character.Humanoid.Name = "LolFakeHumanoid"

afterimages = {}

game.Players.LocalPlayer:GetMouse().KeyDown:connect(function(key)

end)
amcounter = 0

local PhysicsService = game:GetService("PhysicsService")




for _,part in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
if part:FindFirstChild("ParticleEmitter") then
            part.ParticleEmitter.Enabled = false
        end
    if part:IsA("BasePart") then
        part.Transparency = 1
    end
end
game.Players.LocalPlayer.Character.Head.face.Transparency = 1



game:GetService("RunService").RenderStepped:connect(function()
    for _,image in pairs(afterimages) do
    for _,part in pairs(image:GetChildren()) do
        if part.ClassName == "Humanoid" then
            part.DisplayDistanceType = Enum.HumanoidDisplayDistanceType.None
        end
        if part:IsA("BasePart") then
        part.Transparency = part.Transparency+0.1
        if part:FindFirstChild("face") then
            part.face.Transparency = part.face.Transparency+0.1
        end
        end
    end
end


    game.Players.LocalPlayer.Character.Head.face.Transparency = 1


    game.Players.LocalPlayer.Character.Parent = game.Workspace.CurrentCamera
    game.Players.LocalPlayer.Character.LolFakeHumanoid.MaxHealth = math.huge
    game.Players.LocalPlayer.Character.LolFakeHumanoid.Health = math.huge
local model = Instance.new("Model",game.Workspace)  
model.Name = game.Players.LocalPlayer.Character.Name

    for _,part in pairs(game.Players.LocalPlayer.Character:GetChildren()) do
        if part:IsA("BasePart") or part.ClassName == "Shirt" or part.ClassName == "Pants" or part.ClassName == "Humanoid" then

            local clon = part:Clone()
            clon.Parent = model
            if part:IsA("BasePart") then
                clon.CanCollide = false

                for _,clono in pairs(clon:GetChildren()) do
        if clono.ClassName ~= "SpecialMesh" and clono.Name ~= "face" and clono.Name ~= "ParticleEmitter" then
    clono:remove()
    end
            end
end 
        end
    end
for _,part in pairs(model:GetChildren()) do
if part:IsA("BasePart") then
    for _,child in pairs(part:GetChildren()) do
        if child.ClassName ~= "SpecialMesh" and child.Name ~= "face" and child.Name ~= "ParticleEmitter" then
    child:remove()
    end
end
    part.TopSurface = Enum.SurfaceType.SmoothNoOutlines
    part.BottomSurface = Enum.SurfaceType.SmoothNoOutlines
    part.LeftSurface = Enum.SurfaceType.SmoothNoOutlines
    part.RightSurface = Enum.SurfaceType.SmoothNoOutlines
    part.FrontSurface = Enum.SurfaceType.SmoothNoOutlines
    part.BackSurface = Enum.SurfaceType.SmoothNoOutlines
        if part.Name ~= "HumanoidRootPart" then
    part.Transparency = 0
    end
if part:FindFirstChild("face") then
    part.face.Transparency = 0
end
if part:FindFirstChild("ParticleEmitter") then
    part.ParticleEmitter.Enabled = true
end
part.CFrame =game.Players.LocalPlayer.Character[part.Name].CFrame-game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame.lookVector*3


    part.Anchored = true
    part.CanCollide = false
end
end

game.Workspace.CurrentCamera.CameraSubject = model.LolFakeHumanoid
game:GetService("Debris"):AddItem(model,0.18)
table.insert(afterimages,model)

end)