![]() |
![]() |
![]() | #18 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: TCL scripting öğrenmek istiyorum 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. Konu ¿ tarafından (24 Ekim 2009 Saat 23:33 ) değiştirilmiştir. |
| ![]() |
Etiketler |
istiyorum, ogrenmek, scripting, tcl, öğrenmek |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Scripting Hakkında | Lord_Raiden | mIRC Scripting Sorunları | 1 | 22 Ekim 2008 02:41 |
mIRC Scripting | By_GuRbey | mIRC Scripting Sorunları | 3 | 01 Ağustos 2008 18:57 |
Scripting | laglagorg | mIRC Scripting Sorunları | 1 | 17 Aralık 2007 03:50 |
mIRC Scripting Öğrenmek İstoyorum... | DoStNaMe | mIRC Scripting Sorunları | 19 | 27 Şubat 2006 13:50 |