set oku "dosya.txt"
set kanal "#yardım"
bind pub - !kural pub:kuralmsg
proc pub:kuralmsg { nick host hand chan text} {
global oku kanal
if {[file exists $oku]} {
set kuralfile [open $oku r]
while {![eof $kuralfile]} {
catch {set kuraltext [gets $kuralfile]}
regexp -- {<tdalign=\"center\".height=\"(.*?)\".colspan=\"2\">} $kuraltext - deger
if {[info exists deger]} {
putserv "PRIVMSG $kanal :$deger"
}
}
catch {close $kuralfile}    
}
}