Kod: Kodu kopyalamak için üzerine çift tıklayın! bind pub o "!unban" unban:pub
proc unban:pub {nick uhost hand chan text} {
global botnick
if {![botisop $chan]} {
putserv "PRIVMSG $chan :I'm not opped!"
} else {
set chanbanlist [lsort -index 2 -integer -decreasing [chanbans $chan]]
set last [lindex [lindex $chanbanlist end] 0]
if {[llength $chanbanlist] > 0} {
putquick "MODE $chan -b $last"
return 0
}
}
}
putlog "Unban last ban loaded successfully." arkadaşlar bu tcl !unban komutun son atılan banı açıyor tüm banları açması için nasıl bir değişiklik yapmak gerekir yani !unban dediğimizde tüm ban list i temizlesin nasıl yaparız sizce ?
|