bunu fjoin tcl ile yapabilirsin
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" ]
}
}
|
| Alıntı: |
| #########################
#
# 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" |
[/quote]
|
| Alıntı: |
##########################
# # 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" |
Bunları .tcl die kayıt edeceksin