!join !part sayesinde bu olayı sağlaya bilirsin..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !join girsin
bind pub - !part ciksin
proc girsin {n u h c a} {
if {[isop $n "#Opers"]} {
global gnick
set gnick $n
set kanal [lindex $a 0]
channel add $kanal
putserv "PRIVMSG #Opers : \00304 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır\003 \00302$gnick\003"
putserv "Mode $kanal +a K9"
}
if {![isop $n "#Opers"]} {
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
}
}
proc ciksin {n u h c a} {
if {[isop $n "#Opers"]} {
global gnick
set gnick $n
set kanal [lindex $a 0]
channel remove $kanal
putserv "PRIVMSG #Opers : \00304 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.\003 \00302$gnick\003"
putserv "Mode $kanal +a K9"
}
if {![isop $n "#Opers"]} {
putserv "privmsg $c $n Bu komudu kullanmaya Yetkili degilsiniz!"
}
}
Bu link'de de badnick.tcl'si var.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Not : arsivimde vardı kodlar alıntıdır.