bind pub - !онлайн aiononline  

proc aiononline { nick host handle channel args } {
set aionhttp [::http::geturl http://www.aion-final.ru/ -timeout 30000]           
set html [::http::data $aionhttp]   
::http::cleanup $aionhttp   

regsub -all -- \n $html {} html   
foreach line [split $html \n] {  
if { [regexp -nocase -- {<td><font color=(.*?)><b>(.*?)</b></font></td>} $line garb color aion]} {
if {$color == "red"} {set color "\00304"} {set color "\00310"}   
putserv "PRIVMSG $channel :$color$aion\003"   
} {putserv "PRIVMSG $channel :Ошибка данных."}  
}   
}

"привет всем как дела"

namespace eval vonjoin {}
bind join - * vonjoin
proc vonjoin {nick uhost hand chan} {
global vonjoin
set vonjoin(chan) $chan
bind raw - 307 raw307
putserv "WHOIS $nick"
}
proc raw307 {from keyword arguments} {
global vonjoin
if {[string match "*is a registered nick*" $arguments]} {  
putserv "MODE $vonjoin(chan) +v [lindex [split $arguments] 1]"  
}  
unbind raw - 307 raw307
}