I have a Remote Event error in my script, How to fix it?

I'm making a hat script but this one error prevents from the audio visualizer working. But everything else works.

17:41:01.235 - Remote event invocation queue exhausted for Players.antoniorigo4.PlayerGui.RemoteEvent; did you forget to implement OnServerEvent? (16384 events dropped)

Its kinda of a weird script that no one understands. ModuleScript code:

local module = {}
return function(player1)
  local player = game.Players[player1]
    local value = Instance.new("StringValue",script)
    value.Value = player1
value.Name = "player"   
    local remote = Instance.new("RemoteEvent",player.PlayerGui)
    local ls = script.LocalScript
    ls.rememberthispls.Value = script
    wait(5)
    ls.Parent = player.PlayerGui
    ls.Disabled = false
    --start serverscript
    local cha = player.Character
cha.Humanoid.Health = math.huge
cha.Humanoid.MaxHealth = math.huge
    game:GetService("Lighting").TimeOfDay = 0
    local hatmod = Instance.new("Model",cha)
local main = Instance.new("Part",hatmod)
local top = Instance.new("Part",hatmod)
local misc = Instance.new("Part",hatmod)

main.Size = Vector3.new(0.5, 3, 3)
top.Size = Vector3.new(2, 2, 2)
misc.Size = Vector3.new(0.558, 2.03, 3.045)

local maintopw = Instance.new("Motor6D",hatmod)
local topmiscw = Instance.new("Motor6D",hatmod)

maintopw.Part0 = main
maintopw.Part1 = top


topmiscw.Part0 = top
topmiscw.Part1 = misc

maintopw.C1 = CFrame.new(1,0,0)
topmiscw.C1 = CFrame.new(0.3,0,0)

main.Shape = "Cylinder"
top.Shape = "Cylinder"
    misc.Shape = "Cylinder"
    main.Material = Enum.Material.SmoothPlastic
    top.Material = Enum.Material.SmoothPlastic
    misc.Material = Enum.Material.Neon

local headweld = Instance.new("Weld",main)
headweld.Part0 = cha.Head
headweld.Part1 = main
headweld.C1 = CFrame.new(0.75,0,0) *CFrame.Angles(0,0,math.rad(90))

main.BrickColor = BrickColor.Black()
top.BrickColor = BrickColor.Black()
local light = Instance.new("PointLight",misc)
light.Brightness = 90
light.Range = 8
--this is where the real party starts
local sound = Instance.new("Sound",cha.Head)
sound.Looped = true
sound.Volume = 5

player.Chatted:Connect(function(msg)
        if msg:sub(1,5) == "/play" then
        local victim = msg:sub(1,5)
        local soundid = string.gsub(msg,victim,"")
        sound.SoundId = "rbxassetid://"..soundid
            local datatosend = script.LocalSender
            datatosend.IdSending.Value = soundid        
        datatosend.PlayerSending.Value = player         

            sound:Play()
    elseif msg:sub(1,5) == "/stop" then
        sound:Stop()
    end
end)
    while true do wait()
        misc.Color = script.Color.Value
        light.Color = script.Color.Value
        light.Brightness = (script.Color.Loudness.Value/math.random(20,32))*8
    end
    end

LocalScript: Meant to handle the playbackloudness. Disabled at default until the module script enables it again and parents it to the playergui

wait(3)
local player = game.Players.LocalPlayer
local character = player.Character
local sound = character.Head:WaitForChild("Sound")
sound.Looped = true
local requirethis = script.rememberthispls.Value
local remote = requirethis:WaitForChild("RemoteEvent")

--[[remote.OnClientEvent:Connect(function(macaroni,id)
    print(macaroni)
    print(id)    
    sound.SoundId = "rbxassetid://"..id
    sound:Play()
end)]]
--[[player.Chatted:Connect(function(msg)
    if msg:sub(1,5) == "/stop" then
        sound:Stop()
    end
end)]]
while true do
    wait()
        remote:FireServer(sound.PlaybackLoudness/math.random(20,24),sound.PlaybackLoudness)
end

EventController: Probably the culprit in the scripting error. Vital to controlling the remoteevent and bindable event(so the module script can fire it because it cannot fire a remote event)

wait(2)
script.Parent.LocalScript.rememberthispls.Value = script
local remote = game.Players[script.Parent.player.Value]:WaitForChild("RemoteEvent")
local bind = script.Parent.ClientFire
remote.OnServerEvent:Connect(function(player,value,rawvalue)
    print(value)
    print(player)   
    script.Parent.Color.Loudness.Value = rawvalue
    script.Parent.Color.Value = Color3.new(value/math.random(2,5),value/math.random(2,5),value/math.random(2,5))

end)
local DataTosend = script.Parent.LocalSender
DataTosend.IdSending.Changed:Connect(function()
    remote:FireClient(DataTosend.PlayerSending.Value,DataTosend.IdSending.Value)
end)
--[[bind.Event:Connect(function(player,id)
        remote:FireClient(player,id)
end)--]]
--    remote:FireClient(player,"macaroniman",soundid)

Other assets beside scripts Color = color3value Event = BindableEvent player = created by the module script but the module script wont change the value for some reason or even create the object RemoteEvent = created by the module script in the playergui so the local script can handle it but wont work.

Someone please help me in this thread. Rarely anybody replies to my threads. This is the Script I use to run the modulescript

wait(3)
local mod = require(5376277920) mod("antoniorigo4")