#########################
#
# 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]]
putser...
[Bu mesajın devamını görebilmek için kayıt olun ya da giriş yapın]

Kod:
###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
 
##### Bilgi Satiri #####
##### Bot bilgileri #####
set nick "BotNick"
set realname "2Bot İdenti"
 
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
 
#set my-ip "1.2.3.4"
 
set init-server {
putserv "oper opernick opersifre"
putserv "PRIVMSG nickserv...
[Bu mesajın devamını görebilmek için kayıt olun ya da giriş yapın]