Çevrimdışı

bind msgm - root doruk
proc doruk { nick uhost handle text } {
putserv "PRIVMSG operserv :su şifre" }

bind pub - !op op
proc op {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Globalop.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Globalop"
putserv "PRIVMSG operserv :chgname $nick is a Globalop on DorukChat"
putserv "NOTICE $nick Dj Olarak sisteme girisiniz onaylandi, yeni host ve yeni swhois eklendi."
putserv "NOTICE $nick Lutfen kanalindaki kullancilarla iyi gecinin ve saygili olun."
}
bind pub - !dj dj
proc dj {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putserv "PRIVMSG operserv :chghost $nick Dj.Domain.Com"
putserv "PRIVMSG operserv :chgident $nick Dj"
putserv "PRIVMSG operserv :chgname $nick is a DorukChat DJ"
putserv "NOTICE $nick Globallere girisiniz onaylandi, yeni host ve yeni swhois eklendi."
}

Su sekil bir tcl ayarladım sizce dogrumu..