Remote event firing multiple times. Help please?

I have been working on a chat GUI recently, but every time the OnServerEvent event fired for a remote event in ReplicatedStorage, it ran the connected function multiple times. Here's the code:

--Local script
local main = script.Parent:WaitForChild("Main")
local container = main:WaitForChild("Container")
local chatbox = main:WaitForChild("ChatBoxContainer"):WaitForChild("ChatBox")
local sendbutton = main:WaitForChild("SendButton")
local chatev = game.ReplicatedStorage:WaitForChild("Chat")
local serverchatev = game.ReplicatedStorage:WaitForChild("Chat")
local adminchatev = game.ReplicatedStorage:WaitForChild("Chat")
local chats = {}

local function isadmin()
	return game.Players.LocalPlayer.Name == "AppleBLOXIAN" or game.Players.LocalPlayer.Name == "BlizzardBOY390"
end

local function calculatesize(text)
	local chat = Instance.new("TextLabel")
	chat.BackgroundTransparency = 1
	chat.Size = UDim2.new(1,0,0,25)
	chat.Font = Enum.Font.SourceSans
	chat.Text = text
	chat.TextSize = 25
	chat.TextXAlignment = Enum.TextXAlignment.Left
	chat.TextYAlignment = Enum.TextYAlignment.Top
	if chat.TextBounds.X > 494 then
		chat.Size = chat.Size + UDim2.new(0,0,0,(chat.TextBounds.X/494)*25)
	end
	return chat.Size
end

local function focuslost(e)
	if e then
		if isadmin() then
			adminchatev:FireServer(game.Players.LocalPlayer.Name,chatbox.Text)
			chatbox.Text = 'Press "/" or click here to chat'
		else
			chatev:FireServer(game.Players.LocalPlayer.Name,chatbox.Text)
			chatbox.Text = 'Press "/" or click here to chat'
		end
	end
end

local function onClick()
	if isadmin() then
		adminchatev:FireServer(game.Players.LocalPlayer.Name,chatbox.Text)
		chatbox.Text = 'Press "/" or click here to chat'
	else
		chatev:FireServer(game.Players.LocalPlayer.Name,chatbox.Text)
		chatbox.Text = 'Press "/" or click here to chat'
	end
end

local function makechat(plrname,msg)
	local chat = Instance.new("TextLabel")
	chat.BackgroundTransparency = 1
	chat.Size = calculatesize(plrname..": "..msg)
	chat.Font = Enum.Font.SourceSans
	chat.Text = plrname..": "..msg
	chat.TextSize = 25
	chat.TextXAlignment = Enum.TextXAlignment.Left
	chat.TextYAlignment = Enum.TextYAlignment.Top
	chat.Position = (function()
		if #chats == 0 then
			return UDim2.new(0,0,0,0)
		else
			return chats[#chats].Position + UDim2.new(0,0,0,chats[#chats].Size.Y.Offset)
		end
	end)()
	chat.Parent = container
	container.CanvasSize = container.CanvasSize + UDim2.new(0,0,0,chat.Size.Y.Offset)
	container.CanvasPosition = container.CanvasPosition + Vector2.new(0,chat.Size.Y.Offset)
	chats[#chats+1] = chat
end

chatbox.FocusLost:connect(focuslost)
sendbutton.MouseButton1Click:connect(onClick)
chatev.OnClientEvent:connect(makechat)
adminchatev.OnClientEvent:connect(makechat)
serverchatev.OnClientEvent:connect(makechat)

game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Chat,false)

--Server script
local chatev = game.ReplicatedStorage:WaitForChild("Chat")
local serverchatev = game.ReplicatedStorage:WaitForChild("Chat")
local adminchatev = game.ReplicatedStorage:WaitForChild("Chat")

chatev.OnServerEvent:connect(function(plr,plrname,msg)
	msg = game:GetService("Chat"):FilterStringForBroadcast(msg,plr)
	chatev:FireAllClients(plrname,msg)
end)

adminchatev.OnServerEvent:connect(function(plr,plrname,msg)
	adminchatev:FireAllClients(plrname,msg)
end)

game.Players.PlayerAdded:connect(function(plr)
	serverchatev:FireServer("Server",plr.Name.." has joined the game.")
end)

game.Players.PlayerRemoving:connect(function(plr)
	serverchatev:FireServer("Server",plr.Name.." has left the game.")
end)