annoying walk script

plr = game.Players.LocalPlayer
mouse = plr:GetMouse()
mouse.KeyDown:connect(function(key)

if key == "w" then
	game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer("I am moving forwards.",
	"All")
end
end)

mouse = plr:GetMouse()
mouse.KeyDown:connect(function(key)

if key == "a" then
	game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer("I am moving to the left.",
	"All")
end
end)

mouse = plr:GetMouse()
mouse.KeyDown:connect(function(key)

if key == "s" then
	game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer("I am moving backwards.",
	"All")
end
end)

mouse = plr:GetMouse()
mouse.KeyDown:connect(function(key)

if key == "d" then
	game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer("I am moving to the right.",
	"All")
end
end)