IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Eggdrop Botunuz Nickinizi Kaydetsin.. (https://www.ircforumlari.net/tcl-scriptler/453890-eggdrop-botunuz-nickinizi-kaydetsin.html)

Eggdrop Botunuz Nickinizi Kaydetsin..

PHP- Kodu:

   #######################################
# 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...]

Cevap: Eggdrop Botunuz Nickinizi Kaydetsin..

!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.

Cevap: Eggdrop Botunuz Nickinizi Kaydetsin..

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

Cevap: Eggdrop Botunuz Nickinizi Kaydetsin..

Kod:

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.