#sorf kanalında !yasakla nick yapıldığın nickleri scripts/nicklist.txt e kayıt eder ve burada kayıtlı olan nickler Eggdrop bot'un olduğu kanala girdiğinde bot nicki banlar ve #cinsellik odasına sajoinler.
Komutlar !yasakla nick (nick ekler.)
!yasaklama nick (txt'de ki nicki siler.)
txt'yi elle oluşturmaktan ziyade sunucuya giren badnicklere göre olusturmanız mesela badnick1 sunucunuza girdi
!yasakla badnick1 diye listeye almanız daha iyidir.
En azından txt'de gereksiz nick birikintisi olmaz.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind join - "% *" wscom
proc wscom {nick uhost handle chan} {
set nicklist "scripts/nicklist.txt"
set opinfo [open $nicklist r]
set lines [split [read -nonewline $opinfo] \n]
close $opinfo
foreach opcheck $lines {
if {[string match -nocase "$nick" $opcheck]} {
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick 4nickiniz global kanallara uygun degildir. /nick yeninick komutu ile nickinizi degistirebilirsiniz."
putquick "SAJOIN $nick #cinsellik"
}
}
}
bind pub o|o !yasakla yasakla
proc yasakla {nick host hand chan text} {
set badnick [join [lindex [split $text] 0]]
set ops [open "scripts/nicklist.txt"]
set nicks [split [read -nonewline $ops] \n]
close $ops
if {![llength $nicks]} {
set ops [open "scripts/nicklist.txt" w]
} else {
set ops [open "scripts/nicklist.txt" a]
}
foreach line $nicks {
if {[string match -nocase "$badnick" $line]} {
putquick "NOTICE $nick :$badnick yasakli listesine eklendi."
}
}
puts $ops "$badnick"
close $ops
}
bind pub o|o !yasaklama yasaklama
proc yasaklama {nick host hand chan text} {
set yasaklama [join [lindex [split $text] 0]]
set ops [open "scripts/nicklist.txt"]
set nicks [split [read -nonewline $ops] \n]
close $ops
if {![llength $nicks]} {
putquick "NOTICE $nick :nick yasakli listesinden silindi."
}
set line [lsearch -exact $nicks "$yasaklama" ]
set badnicks [lreplace $nicks $line $line]
set ops [open "scripts/nicklist.txt" w]
puts $ops [join $badnicks "\n"]
close $ops
}
scripts/nicklist.txt eklemeyi unutmayın.
test etmek için irc.websohbet.com sunucusuna nickinizi badnickolarak girip deneyebilirsiniz.
tekrar belirtmekte fayda var.
Bot badnickleri sadece kendi olduğu kanallardan atar.
Daha geliştirilebilir bir şeylerde çıkarmaya çalışılabilir İF üzerinde.
İyi forumlar.
|