avatar.tcl
Добавлено: 25 дек 2008 13:56bind pub - !avatar show_avatar
proc show_avatar {nick uhost hand chan text} {
set anick [lindex [split $text] 0]
if {[onchan $anick $chan]} {
putserv "NOTICE $anick :\001AVATAR http://217.199.228.76/foto/akyla.jpg\001"
} else {
putserv "NOTICE $nick :Ник $anick отсутствует на канале $chan."
}
}
proc show_avatar {nick uhost hand chan text} {
set anick [lindex [split $text] 0]
if {[onchan $anick $chan]} {
putserv "NOTICE $anick :\001AVATAR http://217.199.228.76/foto/akyla.jpg\001"
} else {
putserv "NOTICE $nick :Ник $anick отсутствует на канале $chan."
}
}