bind msg - !kaydet msg_register
proc msg_register {nick uhand host text} {
  global botnick mybotnick mybotpass
  set regnick $nick
  set password [lindex $text 0]
  set mail $nick@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]iniz.com
  if {$password == ""} {putquick "PRIVMSG $nick :Nickinizi kaydedebilmem için lütfen bir şifre belirleyiniz. Kullanım: <!kaydet şifreniz>";return}
  putserv "OperServ RAW SVSNICK $regnick Misafir1234 :1"
  utimer 5 [list set nick $regnick]
  utimer 20 [list putquick "NickServ REGISTER $password $mail"]
  utimer 25 [list putquick "NOTICE Misafir1234 $regnick, isimli nickiniz $password şifresi ile kaydedilmiştir."]
  utimer 26 [list putquick "OperServ RAW :NickServ PRIVMSG #Opers :\[Nick Kaydı\] $regnick ($mail) nicki REGISTER komutunu kullanmıştır."] 
  utimer 30 [list set nick $mybotnick]
  utimer 31 [list putquick "NickServ Identify $mybotpass"]
}