Elimde BucaLı in yapmış olduğu guzel bir tcl kod'u banları temizlemek için işini görür
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !bantemizle bantemizle
proc bantemizle { n u h c a } {
foreach ban [chanbans $c] {
append bans "[lindex $ban 0] "
}
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 0 11]"
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 12 23]"
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 24 end]"
putquick "privmsg $c $c Kanalındaki Tüm Banlar Temizlendi."
}