PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 1 "kanalaal $kisi #Sohbet"
utimer 1 "kanalaal $kisi #Oyun"
utimer 1 "kanalaal $kisi #Radyo"
utimer 1 "kanalaal $kisi #Kelime"
}
}
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw - Notice operjoin
proc operjoin { from keyword text } {
if {[string match -nocase "*is now an operator*" $text]} {
set _nick [lindex [split $text] 4]
set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
putserv "fjoin $snr #oper"
putserv "fjoin $snr #operhelp"
putserv "fjoin $snr #help"
putserv "PRIVMSG #oper Hoş Geldiniz; $snr Kolay Gelsin."
putserv "SAMODE #oper +o $snr"
putserv "SAMODE #operhelp +o $snr"
putserv "SAMODE #help +o $snr"
}
}
putlog "OperJoin Yüklendi. "
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
#--------------- USERİ KANALA ALMA ----------------
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*Client connecting on*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 1 "kanalaal $kisi #Sohbet"
utimer 1 "kanalaal $kisi #Oyun"
utimer 1 "kanalaal $kisi #Radyo"
utimer 1 "kanalaal $kisi #Kelime"
}
}
yukardakilerin hepsi ayni isi yapiyor oper haricinde iki tane kullaniciyi kanala ceken tcl verdim..
tesekkurler