Umarım Böyle bir Tcl işine yarar. !kaydet #kanal nick den sonra botu kanaldan !part #kanal ile cıkarınız.. Kod: Kodu kopyalamak için üzerine çift tıklayın!
#### admin kanali###
set ops_chan "#register"
bind pub - !kaydet kaydet
bind pub - !part gemlik2
proc kaydet {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set
kanal [lindex $text 0]
set gnick [lindex $text 1]
if {![validchan $kanal]} {
channel add $kanal { +nodesynch flood-chan 10:2 }
}
putserv "operserv mode $kanal +o ali"
putserv "chanserv register $kanal 123456
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
putserv "chanserv set $kanal founder $gnick"
putserv "memoserv send $gnick $kanal kanalinin sahibi oldunuz sifrenizi degistirin"
putserv "PRIVMSG $ops_chan :$gnick 'nickini $kanal ina atandi"
return 1
}
return 1
}
proc gemlik2 {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
set
kanal [lindex $text 0]
if {[validchan $kanal]} {
channel remove $kanal
}
putserv "PRIVMSG $ops_chan : bot $kanal kanalindan cikarildi $nick"
return 1
}
return 1
}
Alıntıdır..