trying to make a ball but it wont execute the the script that makes it go how do i fix?

remote evnt

local plr = game.Players.LocalPlayer
local InputService = game:GetService("UserInputService")

InputService.InputBegan:Connect(function(input)
    local key = input.KeyCode --Gets the key that the player pressed
    if key == Enum.KeyCode.R then 
   game.ReplicatedStorage.act:FireServer()

    end
end)

local plr = game.Players.LocalPlayer
local InputService = game:GetService("UserInputService")

InputService.InputEnded:Connect(function(input)
    local key = input.KeyCode 
    if key == Enum.KeyCode.R then
       game.ReplicatedStorage.fer:FireServer()
    end
end)

this dose not work

local fly = true
game.ReplicatedStorage.act.OnServerEvent:Connect(function(plr)
    local plr = plr.Character 
    local i = Instance.new("Part",plr)

i.Position = plr.Head.Position
i.Anchored = false
i.BrickColor = BrickColor.new("Dark blue")
i.Shape = "Ball"
i.Material = "Neon"
i.Name = "Fire"
i.CanCollide = true
while fly == true do
    wait(.78)
    i.Size = i.Size + Vector3.new(.4,.4,4) 

end
end)

game.ReplicatedStorage.fer.OnServerEvent:Connect(function(plr)
    fly = false
    print("tested")
    local q = plr.Character
    local x = q.Fire
    local wa = game.Players.LocalPlayer.Character:WaitForChild("Fire")
    local b = Instance.new("BodyVelocity",wa)
    local mouse = plr:GetMouse()
    b.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
    x.Anchored = false
    b.Velocity = mouse.Hit.LookVector * 34 --q.Head.CFrame.LookVector * 232--
wa.Parent = workspace

end)