How do i make it so this script works only when a remote event is fired?

function D(p, o)
    while game.Workspace:findFirstChild(p).Humanoid do
        wait(0.5)
    end
    local n = game.Workspace:findFirstChild(p)
    if n ~= nil then
        n.UpperTorso.CFrame = CFrame.new(o)
    end
end

while true do
    wait(1)
    w = game.Workspace:children()
    for i = 1, #w do
        if game.Players:findFirstChild(w[i].Name) ~= nil then
            if w[i].Humanoid then
                p = w[i].Name
                o = w[i].UpperTorso.Position
                D(p, o)
            end
        end
    end
end

for example if a remoteserver is fired then the function activates