TCL Host limit

Host limit

unbind dcc - +host *dcc:+host
bind dcc p|p +host *dcc:+host

proc *dcc:+host {hand idx arg} {
	if {[llength $arg] < 1} {
		putdcc $idx "Usage: +host \[handle\] <newhostmask>"
		return
	}
	if {[llength $arg] > 1} {
		set user [lindex $arg 0]
		set host [lindex $arg 1]
		if {[validuser $user] == 0} {
			putdcc $idx "No such user."
			return
		}
		if {[llength [getuser $user HOSTS]] > 2 && $user != "abuse" && $user != "rhodie" && $user != "ThEShADoW"} {
			putdcc $idx "Sorry brato, pove4e ot 3 hosta nea ima." 
			return
		}
		putlog "#$hand# +host $user $host"
		setuser $user hosts $host
		putdcc $idx "Added '$host' to $user"
		return
	}
	set host [lindex $arg 0]
# Àêî èñêàòå íÿêîè ïîòðåáèòåëè äà ìîãàò äà àäâàò ïîâå÷å îò 3 õîñò-à çàìåíåòå èìåíàòà èì ñ Nick, Nick1 ...
	if {[llength [getuser $hand HOSTS]] > 2 && $hand != "Nick" && $hand != "Nick1"} {
		putdcc $idx "Sorry brato, pove4e ot 3 hosta nea imash."
		return
	}
	putlog "#$hand# +host $hand $host"
	setuser $hand hosts $host
	putdcc $idx "Added '$host' to $hand"
	return
}

putlog "HostLimit.tcl by IRCHelp.UniBG.Net+LHG Crew Loaded!!!"