Botun özeline yazılan yazılar için :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG #x Ozelime gelen yazı >>> Nick: $nick Mesaj: $text"
}
Fakat bunun için Botun #x kanalında olması lazım tabiki X kanalında oper kanalı ise saldırı botları oper taraması yapacak ve bu bota yazı yazmayacaktır şunu önere bilirim.
Koruma botumuzun adı Sohbettc Olsun, birde casus botu yapalım bununda adı Casus olsun.
Casusu oper yapmayalım.
Casus.tcl
bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG sohbettc :mesaj_var >>> Nick: $nick Mesaj: $text"
}
sohbettc.tcl
bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG #x Ozelime gelen yazı >>> Nick: $nick Mesaj: $text"
}
Şeklinde yapa bilirsiniz.
Bu işi biraz daha uzmanlaştırısak bir tane casus1 botu yapalım bu botun tclsini şu şekilde yaparsak :
set cikgir 10
timer $cikgir cikgir
proc cikgir {} {
global cikgir
foreach kanal [channels] {
putserv "part $kanal"; putserv "join $kanal"; timer $cikgir cikgir
}
}
bind msgm - * start
proc start {nick uhost handle text} {
putquick "PRIVMSG sohbettc :mesaj_var >>> Nick: $nick Mesaj: $text"
}
Bot kanala her 10 dk bir giriş çıkış yapar ve özele gelen oto mesajları önce koruma botuna oda direkmen X kanalına yollar.
Gelelim diyer olaya arkadaşım utku arkadaşımızın yaptıgı sunucu_korumasi.1.1 sistemini kurarsan istedigini elde etmiş olursun. Tcl için biraz bakınalım birazda araştıralım umarım bir şeyler yapabiliriz.
Saygılarımla. Kolay gelsin