[CLubber]

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#######################################
# 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" 

* Botunuzun özelinde <!kaydet nick şifre e-posta> komutunu uygulamanız yeterlidir.

* utimer 30[ bu kısımda 30 ile [ arasında bir boşluk olması gerekiyor. utimerlerin hepsini düzeltmeniz gereklidir, forum nedeni ile birleşik çıkıyor.

* Botunuzun kendi nickini ve şifresini yazmayı unutmayınız, aksi taktirde bot çalışmaz.

* TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[house]

!kaydet aLoNe 2435 felan gibi yapsam, direkt o kişinin nickini değiştirip şifrelemeye çalışacak. Bunun yerine direkt o kişiyi alsa ( $nick olarak ) ve $text 0 kısmını şifre yapsa daha iyi olabilir.

[dEathLeSs]

Komut bilgisi olmayan kullanicilar icin guzel bir sistem aslinda, basarilar,) Bu sekilde daha da gelistirebilir..

[house]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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

vs gibi. bu sayede hem site adıyla kaydedilir nick, mail adresi böyle olur otomatikmen, hem de o an o nickte olduğu için zaten başkasını kaydetme riski olmaz.