bind join - * ::statslev::join       
proc ::statslev::join {nick uhost hand chan} {       
global statslev botnick lasttime6
if { $nick == $botnick } { return }
set userstat [getstats $nick $chan words]
if {!$userstat} { return }
if {[info exists lasttime6]} {     
if {[expr [expr [unixtime] - $lasttime6] < 10]} { return }     
}
set vict [nick2suser $nick $chan]
if { $vict == "" || $vict == "*" } { set vict $nick }
set honor ""; set ko 0
foreach item $statslev(drank) {     
if {$userstat <= $item} { set honor [lindex $statslev(rank) $ko]; break}
incr ko     
}     
if {$honor == ""} {set honor $statslev(dmax)}
incr ko
putserv "PRIVMSG $chan :$::gcolor(5)$vict $::gcolor(14)имеет статус $::gcolor(6)$honor$::gcolor(14), уровень $::gcolor(6)$ko $::gcolor(14)($::gcolor(5)$userstat $::gcolor(14)сло[lindex {. во ва в} [numgrp $userstat]]$::gcolor(14))\003"
set lasttime6 [unixtime]      
return      
}

[string trim $text]

regsub -all {^\s+} $text "" text
regsub -all {\s+$} $text "" text

# Хост tele2
} elseif {[string match -nocase "*@*tele2*" $uhost]} {
set list {"Хватит себя обманывать, теле 2 не ловит нигде! =)"}
regsub -all {%nick%} $list $nick list; regsub -all {%chan%} $list $chan list
putserv "PRIVMSG $chan :[lindex $list [rand [llength $list]]]"; return

regexp {<b><a href="(.*?)">(.*?)</a></b><br/>(.*?)<br/></div>} $data "" a b c   

set c "N/A"
if {[regexp -nocase -- {<b><a href="(.*?)">(.*?)</a></b><br/>(.*?)<br/></div>} $data -> a b c] || [regexp -nocase -- {<b><a href="(.*?)">(.*?)</a></b></div>} $data -> a b]} {
...код...
}

set a "N/A"
regexp {<small class="gr">(.*?)</small><br/><b><a href="(.*)">(.*)</a></b>} $data "" e b c
regexp {<small class="gr">.*?</small><br/><b><a href=".*?">.*?</a></b><br/>(.*?)<br/>} $data "" a

[21:07:45] <DmitRex> !книга Дом-2
[21:07:54] <DoMoBeHoK> [1/50] Книги по названию Дом-2: Большая музыка - маленькому музыканту. Лёгкие переложения для фортепиано 1[Ноты для ДМШ и домашнего музицирования. Альбом 1 (1-2 годы обучения)] - Татьяна Юдовина-Гальперина * Большая музыка - маленькому музыканту. Лёгкие переложения для фортепиано 2.................