Someone

bind pub - !config config

proc config {nick uhost handle channel args} {
	#get args
	regexp {(\d+)/(\d+) (\w+)} $args down up $nick

	if {$regexp (\0-9\)+/- $down || $regexp (\0-9\)+/- $up} {
		return 0
	}

	set down_cap expr round(floor($down / 8 + .5))
	set up_cap expr round(floor($up / 8 + .5))
	set down_lim expr round(floor($low_cap * .8 + .5))
	set up_lim expr round(floor($high_cap * .8 + .5))

	if {$nick != ""} {
		putquick "NOTICE $nick :$nick: In Preferences / Connection / Connection set download capability to $down_cap KB/s, upload capability to $up_cap KB/s, download limit to $down_lim KB/s and upload limit to $up_lim KB/s"
		putquick "NOTICE $nick ::) $nick"
	}
	else {
		putquick "PRIVMSG $chan :In Preferences / Connection / Connection set download capability to $down_cap KB/s, upload capability to $up_cap KB/s, download limit to $down_lim KB/s and upload limit to $up_lim KB/s"
	}
}