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)