Menü
Ana sayfa
Portal
Forumlar
Yeni mesajlar
Forumlarda ara
Neler yeni
Featured content
Yeni mesajlar
Yeni profil mesajları
Son aktiviteler
Kullanıcılar
Kayıtlı üyeler
Şu anki ziyaretçiler
Yeni profil mesajları
Profil mesajlarında ara
Giriş yap
Kayıt ol
Neler yeni
Ara
Ara
Sadece başlıkları ara
Kullanıcı:
Menü
Giriş yap
Kayıt ol
Ana sayfa
Forumlar
Genel IRCD (Sunucu, Servis, Botlar, Korumalar)
Eggdrop, NeoStats, BNC
TCL Scriptler
invite.TCL
JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya
alternatif bir tarayıcı
kullanmalısınız.
Konuya cevap cer
Mesaj
<blockquote data-quote="Che" data-source="post: 102" data-attributes="member: 1"><p>[CODE]bind raw - "INVITE" inv_join</p><p>bind msg n "!tamam" accept_inv</p><p>bind msg n "!olmaz" reject_inv</p><p></p><p>proc inv_join {from key arg} {</p><p> set ::targetchan [lindex [split $arg ":"] 1]</p><p> putserv "notice $::owner :$from tarafından, $::targetchan kanalına davet edildim."</p><p> putserv "notice $::owner :daveti kabul etmek için: /msg $::botnick !tamam"</p><p> putserv "notice $::owner :daveti red etmek için: /msg $::botnick !olmaz"</p><p> return 0</p><p>}</p><p></p><p>proc reject_inv {nick uhost hand text} {</p><p> if {[info exists ::targetchan]} {</p><p> unset ::targetchan</p><p> putserv "notice $::owner :Red edildi .."</p><p> return 1</p><p> }</p><p> return 0</p><p>}</p><p></p><p>proc accept_inv {nick uhost hand text} {</p><p> if {[info exists ::targetchan]} {</p><p> channel add $::targetchan</p><p> putserv "notice $::owner :Kanala girildi .."</p><p> unset ::targetchan</p><p> return 1</p><p> }</p><p> return 0</p><p>}[/CODE]</p></blockquote><p></p>
[QUOTE="Che, post: 102, member: 1"] [CODE]bind raw - "INVITE" inv_join bind msg n "!tamam" accept_inv bind msg n "!olmaz" reject_inv proc inv_join {from key arg} { set ::targetchan [lindex [split $arg ":"] 1] putserv "notice $::owner :$from tarafından, $::targetchan kanalına davet edildim." putserv "notice $::owner :daveti kabul etmek için: /msg $::botnick !tamam" putserv "notice $::owner :daveti red etmek için: /msg $::botnick !olmaz" return 0 } proc reject_inv {nick uhost hand text} { if {[info exists ::targetchan]} { unset ::targetchan putserv "notice $::owner :Red edildi .." return 1 } return 0 } proc accept_inv {nick uhost hand text} { if {[info exists ::targetchan]} { channel add $::targetchan putserv "notice $::owner :Kanala girildi .." unset ::targetchan return 1 } return 0 }[/CODE] [/QUOTE]
Adı
İnsan doğrulaması
Cevap yaz
Ana sayfa
Forumlar
Genel IRCD (Sunucu, Servis, Botlar, Korumalar)
Eggdrop, NeoStats, BNC
TCL Scriptler
invite.TCL
Üst