Anonymous

-- client
			RIGHTCLICK_MENU:AddOption( "Change frequency..", function() ValueEntry("Edit frequency",function(val) LocalPlayer():ConCommand("cs_eradio "..aimvecstr.." "..val) end , trace.Entity:GetNetworkedString( "frequency", "" )) end )

-- server end of this
function CSEditRadio(ply,cmd,args)
	local aimvec=Vector(tonumber(args[1]),tonumber(args[2]),tonumber(args[3]))
	local a=""
	for i=4,table.getn(args) do
		a=a..args[i].." "
	end
	local trace = util.GetPlayerTrace( ply, aimvec )
	local tr = util.TraceLine( trace )
	if not ValidEntity(tr.Entity) then return end
	if tr.Entity.RadioOwner and tr.Entity.RadioOwner==ply:SteamID() then
		tr.Entity:SetNetworkedString( "frequency", a )
		ply:SendServerMessage("OK")
	else
		ply:SendServerMessage("This does not belong to you.")
	end
end
concommand.Add("cs_eradio",CSEditRadio)