How do I make this User InputService script work in the game as well?

This my script , its only work in studio but in game not

local player = game.Players.LocalPlayer
local uis = game:GetService("UserInputService")
char = player.Character
hum = char.Humanoid
Enabled = true
local animation = Instance.new("Animation")
animation.AnimationId = "rbxassetid://01571062379"

uis.InputBegan:Connect(function(i)
    if i.KeyCode == Enum.KeyCode.R then
        local AtcPlay = player.Character.Humanoid:LoadAnimation(animation)
        AtcPlay:Play()
        wait(1)
        local AlreadyTouched = false
        local ball = Instance.new("Part")
        ball.Shape = "Ball"
        ball.Size = Vector3.new(2,3,1)
        ball.CanCollide = false
        ball.Material = "Neon"
        ball.BrickColor = BrickColor.new("Bright Blue")
        ball.Transparency = 0.7

        local bv = Instance.new("BodyVelocity", ball)
        bv.Velocity = char.UpperTorso.CFrame.lookVector * 40 or char.Torso.CFrame.lookVector * 40
        bv.MaxForce = Vector3.new(math.huge, math.huge,math.huge)
        ball.CFrame = char.UpperTorso.CFrame * CFrame.new(0,0,-5) or char.Torso.CFrame * CFrame.new(0,0,-5)
        ball.Parent = workspace

        ball.Touched:connect(function(hit)
            if hit and hit.Parent.Humanoid then
                hit.Parent.Humanoid:TakeDamage(5)
            end
        end)
    end
end)