Hoops Aimbot and Inf Stamina

function onKeyPress(inputObject, gameProcessedEvent)
if inputObject.KeyCode == Enum.KeyCode.R then
game.ReplicatedStorage.Ball.StartShooting:FireServer()
        wait(0.5)
        game.ReplicatedStorage.Ball.EndShooting:InvokeServer(true,"Perfect")
end
end

game:GetService("UserInputService").InputBegan:connect(onKeyPress)

while wait() do
game.Players.LocalPlayer.PlayerScripts.Events.Player.Stamina.Stamina.Value = 1000
end