#######################################
# Botumuzun kendi nickini yazıyoruz   #
#######################################
 
set mybotnick "Eggdrop"
 
#######################################
# Botumuzun kendi şifresini yazıyoruz #
#######################################
 
set mybotpass "123456"
 
#######################################
#Nick Kayıt TCL - Written By CLubber  #
#######################################
 
bind msg - !kaydet msg_register
proc msg_register {nick uhand host text} {
  global botnick mybotnick mybotpass
  set regnick [lindex $text 0]
  set password [lindex $text 1]
  set mail [lindex $text 2]
  if {$regnick == ""} {putquick "PRIVMSG $nick :Nickinizi kaydedebilmem için lütfen bir nick belirleyiniz. Kullanım: <!kaydet nick şifreniz e-postanız>";return}
  if {$password == ""} {putquick "PRIVMSG $nick :Nickinizi kaydedebilmem için lütfen bir şifre belirleyiniz. Kullanım: <!kaydet nick şifreniz e-postanız>";return}
  if {$mail == ""} {putquick "PRIVMSG $nick :Nickinizi kaydedebilmem için lütfen bir e-posta belirleyiniz. Kullanım: <!kaydet nick şifreniz e-postanız>";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"]
}
 
putlog "Nick Register TCL v1.0 - Written By CLubber" 

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"]
}