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

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
# botnick şifresi ne olacak:

set nik(sifre) "123456"

# botnick kayıt için hangi e-mail adresi kullanılacak:

set nik(email) "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"

# nick işlemleri için muhatap olunacak servis:

set nik(serv) "NickServ"

# kanal komutlarını kullanma yetkisi kimde olacak:

set nik(flags) "n"

# kayıtsız botnick'ini kaydetme komutu:

set nik(kayd) "kaydet"

# botnick'ini tanıtma/identify etme komutu ne olacak:

set nik(tanit) "tanit"

# botnickini ghost etme/düşürme komutu ne olacak:

# kullanımı: .dusur nick ... gibi..

set nik(dusur) "dusur"

# kanal komutlarının başına gelecek işaret/sembol:

set nik(semb) "."

# kayıtlı nick'i tanıtmanız için sunucudan alınan uyarı notice:

set nik(notc) "*This nickname is registered*"

# nick tanıtımı/identify kabul olununca sunucudan gelen notice:

set nik(onay) "*Password accepted*"

bind pub $::nik(flags) $::nik(semb)$::nik(kayd) nik:reg

bind pub $::nik(flags) $::nik(semb)$::nik(tanit) nik:ident

bind pub $::nik(flags) $::nik(semb)$::nik(dusur) nik:ghost

bind notc - $::nik(notc) nik:tanit

bind notc - $::nik(onay) nik:onay

proc nik:tanit {nick uhost hand args} {

    putlog " $::nik(serv) nickimi tanıtmamı istiyor..."

    putserv "privmsg $::nik(serv) :identify $::nik(sifre)"

}

proc nik:onay {nick uhost hand args} {

   putlog " $::nik(serv) nick tanıtımını onayladı....."

}

proc nik:reg {nick uhost hand chan text} {

   putserv "privmsg $::nik(serv) :register $::nik(sifre) $::nik(email)"

   puthelp "notice $nick :nick kayıt işlemi yapıldı."

}

proc nik:ident {nick uhost hand chan text} {

   putserv "privmsg $::nik(serv) :identify $::nik(sifre)"

   puthelp "notice $nick :nick tanıtımı yapıldı."

}

proc nik:ghost {nick uhost hand chan text} {

 set nik(ghost) [lindex [split $text] 1]

   putserv "privmsg $::nik(serv) :ghost $nik(ghost) $::nik(sifre)"

}

putlog "kullanıma hazır..."