while true do 
    wait(1)
local a1 = game:GetService("ReplicatedStorage").Algo.Al1
local a2 = game:GetService("ReplicatedStorage").Algo.Al2
local a3 = game:GetService("ReplicatedStorage").Algo.Al3
local a4 = game:GetService("ReplicatedStorage").Algo.Al4
if a1.Value > a2.Value and a3.Value and a4.Value then 

local args = {
    [1] = 1
}

game:GetService("ReplicatedStorage").Events.ChangeAlg:FireServer(unpack(args))
 end
 if a2.Value > a1.Value and a3.Value and a4.Value then 

local args = {
    [1] = 2
}

game:GetService("ReplicatedStorage").Events.ChangeAlg:FireServer(unpack(args))
end
if a3.Value > a1.Value and a2.Value and a4.Value then


local args = {
    [1] = 3
}

game:GetService("ReplicatedStorage").Events.ChangeAlg:FireServer(unpack(args))
end
if a4.Value > a1.Value and a2.Value and a3.Value then

local args = {
    [1] = 4
}

game:GetService("ReplicatedStorage").Events.ChangeAlg:FireServer(unpack(args))
end 
end