Çevrimdışı

Ali basit bir clone korumasi yapalim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


set clonelimit "3"

set clonereason "Clone girisi tespit edildi."

bind join - * clones:kick
proc clones:kick {nick uhost hand chan} {
global botnick clonelimit clonereason
set clone 0
foreach tara [chanlist $chan] {
if {[string equal -nocase [scan $uhost %*\[^@\]@%s] [scan [getchanhost $tara $chan] %*\[^@\]@%s]]} {
incr clone
lappend cln $tara
}
}
if {$clone >= $clonelimit} {
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick $clonereason"
}
}

Ali anlatmaya gerek duymuyorum. Anlayacagindan eminim sadece botun yapacagi islemleri degistirip diledigin gibi kullanabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick $clonereason"

Banlayip kick'lemek yerine;

putquick "KILL $nick $clonereason" ve/veya putquick "ZLINE $nick 1h $clonereason"

seklinde kullanabilirsin.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.