[Tupac]

abiler eggdrop Nick nasil kayit edilir mi tcl war mi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
acil yardim lütfen

[SeckiN]

Tupac Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

abiler eggdrop Nick nasil kayit edilir mi tcl war mi Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. acil yardim lütfen

Merhaba. Eggdrop'un Nick'inimi kayıt için soruyorsunuz veyahut user'in nick kayıt için mi soruyorsunuz acaba.

[Tupac]

eggdrop IRC Bot nick kayiti icin kardes

[saywhat]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

# botnick şifresi ne olacak:
set nik(sifre) "123456"
# botnick kayıt için hangi e-mail adresi kullanılacak:
set nik(email) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
# 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..."

[Tupac]

saywhat cok tsk edeirm allah razi olsun

[saywhat]

kodu editledim şimdiki halini alın.. ghost konusunda mantık hatası yapmışım..( kendi kendini ghost edemezdi.) kullanımı : .dusur <asılı-kalan-bot-nicki> gibi ...