tcl i yazdık ama önemli bir kaç yeri var ilk olarak botunuz admin olmalı ve admin listede olmalı kanalı kaydetmesi için kanal şifresi lazım ve hayli ile kanalların
123456 diye düzenledim onları siz kendinize göre düzenleyin ve botun nicki bende
ali sizde onu kendinize göre düzenleyin denedim çalışıyor kod ve son olarak !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
}