--My Code---------------------------------------------------------------------------------------------
function SetFreq(ply, args)
    if args == "" then ply:SendLua('chat.AddText(Color(255,255,255,255),"Enter a channel frequency #")') return end
    if tonumber(args)==nil then ply:SendLua('chat.AddText(Color(255,255,255,255),"Must be a number!")') return end
    ply.radiofrequency = tonumber(args)
    return ""
end
AddChatCommand("/setfreq", SetFreq)

function RadioTalk(ply, args)
    if args == "" then ply:SendLua('chat.AddText(Color(255,255,255,255),"Enter something to say!")') return "" end
    if ply.radiofrequency==nil then ply:SendLua('chat.AddText(Color(255,255,255,255),"Set a radio frequency!")') return "" end
    msgToSay = args
    for k,v in pairs(player.GetAll()) do
        if(v.radiofrequency==ply.radiofrequency) then
            v:SendLua('chat.AddText(Color(0,255,255,255),"[RADIO] '..ply:Nick()..': ", Color(255,223,117,255),"'..msgToSay..'")')
        end
    end
    return ""
end
AddChatCommand("/r", RadioTalk)
AddChatCommand("/radio", RadioTalk)

--Their Code--------------------------------------------------------------------------------------------
local function SetRadioChannel(ply,args)
    if tonumber(args) == nil or tonumber(args) < 0 or tonumber(args) > 99 then
        GAMEMODE:Notify(ply, 1, 4, string.format(LANGUAGE.unable, "/channel", "0<channel<100"))
        return ""
    end
    GAMEMODE:Notify(ply, 2, 4, "Channel set to "..args.."!")
    ply.RadioChannel = tonumber(args)
    return ""
end
AddChatCommand("/channel", SetRadioChannel)

local function SayThroughRadio(ply,args)
    if not ply.RadioChannel then ply.RadioChannel = 1 end
    if not args or args == "" then
        GAMEMODE:Notify(ply, 1, 4, string.format(LANGUAGE.unable, "/radio", ""))
        return ""
    end
    local DoSay = function(text)
        if text == "" then return end
        for k,v in pairs(player.GetAll()) do
            if v.RadioChannel == ply.RadioChannel then
                GAMEMODE:TalkToPerson(v, Color(180,180,180,255), "Radio ".. tostring(ply.RadioChannel), Color(180,180,180,255), text, ply)
            end
        end
    end
    return args, DoSay
end
AddChatCommand("/radio", SayThroughRadio, 1.5)