Raiden Tarafından Kodlanmıştır Teşekkürlerinizi Ona İletin...SweetLord Ayrıca Senin Ortağına Verdim Bunu Çalışmıyor Dedi.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw - NOTICE baglanti
proc baglanti {from keyword text} {
if {[string match -nocase "*client connecting*" $text]} {
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "fjoin $nick #Diyalog" ]
}
}
Bunlarda Oper Açanları Oper Kanallarına Çekiyor..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#########################
#
# CR OperJoin TCL By Raiden
#
#########################
bind raw - NOTICE operjoinn
proc operjoinn { from keyword text } {
if {[string match -nocase "*Global*is now an operator*" $text]} {
set _nnick [lindex [split $text] 7]
set esas [string range $_nnick [expr [string first "(" $_nnick]+1] [expr [string last "!" $_nnick]-1]]
putserv "fjoin $esas #Yardim"
putserv "samode #Yardim +o $esas"
putserv "fjoin $esas #Yönetim"
}
}
putlog "OperJoin Yüklendi. TCL by Raiden AyvaNet"
Kod: Kodu kopyalamak için üzerine çift tıklayın!
##########################
#
# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
#
#########################
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 #Yönetim"
putserv "fjoin $snr #Yardim"
}
}
putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"