# botnick şifresi ne olacak:
set nik(sifre) "123456"
# botnick kayıt için hangi e-mail adresi kullanılacak:
set nik(email) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
# nick işlemleri için muhatap olunacak servis:
set nik(serv) "NickServ"
# kanal komutlarını kullanma yetkisi kimde olacak:
set nik(flags) "n"
# kayıtsız botnick'ini kaydetme komutu:
set nik(kayd) "kaydet"
# botnick'ini tanıtma/identify etme komutu ne olacak:
set nik(tanit) "tanit"
# botnickini ghost etme/düşürme komutu ne olacak:
# kullanımı: .dusur nick ... gibi..
set nik(dusur) "dusur"
# kanal komutlarının başına gelecek işaret/sembol:
set nik(semb) "."
# kayıtlı nick'i tanıtmanız için sunucudan alınan uyarı notice:
set nik(notc) "*This nickname is registered*"
# nick tanıtımı/identify kabul olununca sunucudan gelen notice:
set nik(onay) "*Password accepted*"
bind pub $::nik(flags) $::nik(semb)$::nik(kayd) nik:reg
bind pub $::nik(flags) $::nik(semb)$::nik(tanit) nik:ident
bind pub $::nik(flags) $::nik(semb)$::nik(dusur) nik:ghost
bind notc - $::nik(notc) nik:tanit
bind notc - $::nik(onay) nik:onay
proc nik:tanit {nick uhost hand args} {
    putlog " $::nik(serv) nickimi tanıtmamı istiyor..."
    putserv "privmsg $::nik(serv) :identify $::nik(sifre)"
}
proc nik:onay {nick uhost hand args} {
   putlog " $::nik(serv) nick tanıtımını onayladı....."
}
proc nik:reg {nick uhost hand chan text} {
   putserv "privmsg $::nik(serv) :register $::nik(sifre) $::nik(email)"
   puthelp "notice $nick :nick kayıt işlemi yapıldı."
}
proc nik:ident {nick uhost hand chan text} {
   putserv "privmsg $::nik(serv) :identify $::nik(sifre)"
   puthelp "notice $nick :nick tanıtımı yapıldı."
}
proc nik:ghost {nick uhost hand chan text} {
 set nik(ghost) [lindex [split $text] 1]
   putserv "privmsg $::nik(serv) :ghost $nik(ghost) $::nik(sifre)"
}
putlog "kullanıma hazır..."