Code: Select all
proc h:addop:msg {nick host hand chan text} {
set user [lindex $text 0]
set address "*!*@[lindex [split [getchanhost $user] "@"] 1]"
if {[string match -nocase $text ""]} {
return 0
}
if {![onchan $text $chan]} {
return 0
}
addhost Op $address
putquick "MODE $chan +o $user"
}