IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Merhaba Arkadaşlar Kanal Kayıt Etme İstek

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - Merhaba Arkadaşlar Kanal Kayıt Etme İstek (https://www.ircforumlari.net/eggdrop-neostats-bnc/646122-merhaba-arkadaslar-kanal-kayit-etme-istek.html)

Merhaba Arkadaşlar Kanal Kayıt Etme İstek

Selamın Aleyküm Arkadaşlar Kanal Kayıt TCL Mümkün mü ?
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 'ın Yapmış Olduğu Nick Kayıt TCL Görünce Bu Kanalda Geldi, Tabi Mümkün mü Değil mi Bilmiyorum.
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'ın Nick Kayıt TCL'yi İnceledim Ama ChanServ ' e Çeviremedim.

Örnek ;

!Kayit #Kanal Şifre E-mail

Tabi Yapılabilir mi Bilmiyorum...

Teşekkürler, Hayırlı Forumlar...

Cevap: Merhaba Arkadaşlar Kanal Kayıt Etme İstek

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] istemiş olduğun tcl.

Kod:

set ops_chan "#Opers"

bind pub - !kaydet kaydet

proc kaydet {nick uhost handle chan text} {

global ops_chan

if {[isop $nick $chan]} {

set kanal [lindex $text 0]

set gnick [lindex $text 1]

set asifre [rand 9999999]

if {![validchan $kanal]} {

channel add $kanal { +nodesynch flood-chan 10:2 }

}

putserv "operserv mode $kanal +o BotNick"

putserv "chanserv register $kanal $asifre Domain.Com"

putserv "chanserv set $kanal founder $gnick"

putserv "memoserv send $gnick Merhaba $gnick , $kanal odasi isteginiz uzerine $asifre sifresiyle nickinize kaydedilmistir. Domain.Com Tesekkur Eder .."

putserv "PRIVMSG $ops_chan :isLem tamamlandi .  $gnick  nickinin istegi uzerine $kanal  kanali kayit islemi tamamlanmis , kanal sahibi $gnick  olarak belirlenmistir."

return 1

}

return 1

}

Kullanımı ;

#Opers kanalında aop konumunda olman gerekiyor. Daha sonra !kaydet #Kanal Nick

Not : Tcl yapımcısı @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (Fatih)