|
ReaXiOn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Kod: Kodu kopyalamak için üzerine çift tıklayın! ,
bind pub - !ban banned #PROC proc banned {nick uhand host chan text} { if {![isop $nick $chan]} {return 0} putquick "samode $chan +b $text" putquick "privmsg $chan : $text Basariyla Banlandi $nick" }
yukarıdaki tcl de ban i nick e atıyor. user nick deiştirip yenien giriyor. nick yerine host a ban attırabilirmiyim? nasıl düzenleyebilirim acaba.
|
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !ban msg_silence
proc msg_silence {nick uhost handle chan arg} {
global botnick
set person [lindex $arg 0]
set mask "[string range [lindex [split [getchanhost $person $chan] "@"] 1] 0 end]"
if {$person == $botnick} {return}
if {[isop $nick $chan] || [ishalfop $nick $chan] || [onchan $nick "#op"]} {
if {![ishalfop $person $chan] && ![isop $person $chan]} {
putquick "PRIVMSG IRC mode $chan +b ~q:[getchanhost $person $chan]"
putquick "NOTICE $person Kanal kurallarına uymadığınız tespit edildi. IP'niz banlandı."
putquick "PRIVMSG #bilgi $chan kanalında *****$person***** nickli üyeye -----$nick----- tarafından !ban komutu uygulandı."
}
}
}
#op kanalında olan kişiler bu kodu kullanabilir
yukarıdaki kodu kullanabilirsin #op kanalı yazan yeri kendine göre değiştirebilirsin.