set keep-nick 1

set nickpass "botun-şifresi"
set nickserv "nickserv@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].sunucunuz.org"
set chanserv "chanserv@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].sunucunuz.org"
set memoserv "memoserv@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].sunucunuz.org"
set init-server {
putserv "PRIVMSG $nickserv :identify $nickpass"
putserv "MODE $nick +ie-ws"
}
#alttaki "*This nick is owned by someone else*"  yazan yer kayıtlı nick için identify isteyen services'in
#attığı notice.sizin sunucuda nick service ne yazıyorsa bunu onla değişin.
#kabuledilince şifre "*Password accepted for*" sizde ne yazıyorsa onu girin.
bind notc - "*This nick is owned by someone else*" ident_nickserv
bind notc - "*Password accepted for*" op_chanserv
bind notc - "*You have*" rm_memos
bind dcc o rop op_chanserv
bind dcc o identify dcc_identify
proc ident_nickserv { nick uhost hand args } {
 global nick nickpass nickserv
    putlog "got notice from $nickserv"
    putserv "PRIVMSG $nickserv :identify $nickpass"
    putlog "now identify $nickserv now.."
  }
proc dcc_identify { hand idx mascara } {
 global nickserv nick nickpass 
 putserv "PRIVMSG $nickserv :identify $nickpass"
 }
proc op_chanserv { nick uhost hand args } {
   global nick chanserv channame
     putlog "password accepted need op my self"
     foreach channame [channels] {
     putserv "PRIVMSG $chanserv :OP $channame $nick" }
     putlog "yes $chanserv i am at $channame now.."
}
proc rm_memos { nick uhost hand args } {
   global nick memoserv
     putlog "got memo from $memoserv"
     putserv "PRIVMSG $memoserv :DEL ALL"
     putlog "auto delete memo.."
}
putlog "Loaded...identify script TCL (C) 2010 by JarKoo"