|
| Alıntı: |
set oku "dosya.txt"
set kanal "#bilgi"
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
regexp -- {+.colspan=\"(.*?)\".class=\"thd\">} $kuraltext - dgr2
if {[info exists deger]} {
putserv "PRIVMSG $kanal 1.ölçü:$deger 2.ölçü:$dgr2"
}
}
catch {close $kuralfile}
}
}
|
pardon bir kaç şey denemiştim de o bölüm öyle kalmış asıl bu koddur çalışmıyor çalışsaydı buna göre kodu devam ettirecektim