S.a arkadaslar gemlik Ustanın Kodladıgı join part tcl
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#### admin kanali#####
set ops_chan "#Opers"
bind pub - !join gemlik1
bind pub - !part gemlik2
proc gemlik1 {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 add $kanal { +nodesynch flood-chan 10:2 }
}
putserv "PRIVMSG $ops_chan : $kanal kanalina Girdim $nick"
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 : $kanal kanalindan ciktim $nick"
return 1
}
return 1
}
Kodda sıkıntı yok yanlız kanala girdiğinde direk opa cıksın istiyorum bunun için ne yapmam gerekir yardımlarınızı beklıyorum tşkler...