i am trying to make a ball it works in stioudo put not in real game how do i fix?

here is fire script

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 --Checks if the key is Q
   game.Workspace.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.Workspace.fer:FireServer()
    end
end)

here is the script that wont work the listiner

game.Workspace.fer.OnServerEvent:Connect(function()
    local we = game.Players.LocalPlayer
    local plr = game.Players.LocalPlayer.Character
    local x = plr.Fire
    local wa = game.Players.LocalPlayer.Character:WaitForChild("Fire")
    local b = Instance.new("BodyVelocity",wa)
    local mouse = we:GetMouse()
    b.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
    x.Anchored = false
    b.Velocity = mouse.Hit.LookVector * 34
wa.Parent = workspace

end)
local fly = true
game.Workspace. act.OnServerEvent:Connect(function()
    local L = game.Players.LocalPlayer

    local plr = game.Players.LocalPlayer.Character
    local i = Instance.new("Part",plr)

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

end
end)