IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)
-   -   Eggdrop - Fullname Ban TCL (https://www.ircforumlari.net/tcl-scriptler/462471-eggdrop-fullname-ban-tcl.html)

CLubber 13 Mart 2012 23:27
Eggdrop - Fullname Ban TCL
 
PHP- Kodu:
# Kullanımına izin verdiğiniz real name
set fullname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000"># Fullnameleri kontrol edeceği kanalı giriyoruz.
set reel(chan) "#Sohbet" 
 
# Ban türünü giriyoruz. 
set reel(rank) "gzline"
 
# Bot kullanıcıyı ne kadar süre banlasın *
set reel(time) "12h"
 
# Ban sebebini giriyoruz.
set reel(reason) "Kurallara uymadığınız için sunucudan uzaklaştırıldınız." 
 
# Fullname Kontrol TCL v1.0 - Written By CLubber
 
bind join - "$reel(chan) *" realname:join
bind raw - 311 realname:check
 
proc realname:join {nick host hand chan} { 
  global botnick
  if {[string match "$botnick" $nick]} { return }
  putquick "WHOIS $nick" 
} 
 
proc realname:check {from key arg} { 
  global botnick reel fullname
  set nickname [lindex [split $arg] 1] 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
   if {[string match "$botnick" $nickname]} { return }
  if {![string match "$fullname" $realname]} {
    putquick "$reel(rank) $nickname $reel(time) $reel(reason)"
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}
 
putlog "Fullname Ban TCL v1.0 - Written By CLubber" 
Bu TCL ile sunucuzda tek bir fullname'nin kullanılmasını sağlayabilirsiniz.

Botunuz #Sohbet kanalına giren kullanıcılara whois komutunu uygular, izin verdiğiniz reelname harici kullananları sunucudan uzaklaştırır.

TCL Yapımcısı: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sephiroth 14 Mart 2012 00:55
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Çalışmaların için teşekkürler.. Ayrıca birde bizlerle yada benim için:) iddaa tcl paylaşırsan memnun olurum .

CLubber 14 Mart 2012 00:59
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Bu aralar webmaster botu yapıyorum, müsait bi zamanda Iddaa botuda yaparım inşallah.

Sephiroth 14 Mart 2012 02:17
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Çalışmalarında başarılar gerçekten çok güzel şeyler çıkartıyorsun ortaya..Eline , Emeğine sağlık ..

MesqeN 14 Mart 2012 18:23
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Alıntı:
Sephiroth Nickli Üyeden Alıntı (Mesaj 1041060590)
Çalışmaların için teşekkürler.. Ayrıca birde bizlerle yada benim için:) iddaa tcl paylaşırsan memnun olurum .
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

belki işini Görür.

[18:22:54] <MesqeN> !ls
[18:22:55] <LigTv> Kullanım !ls [-all] Tüm oynanmış maçların gösterimi için kullanın,
[18:22:56] <LigTv> Kullanım !ls [Ülke Adı] Bu ülkede oynanan maçların (Tüm Alt Ligleriyle Birlikte) sonuçlarını gösterir.
[18:22:57] <LigTv> Kullanım !ls [-live] Şu anda oynanan maçlardaki durumu online olarak gösterir.

ellesme 14 Mart 2012 21:20
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Çalişmandan dolayı teşekkür ederim, şöle birşeyde bulunsam. Kendi düşüncem sunucuya girerken yapsa bu işi kanalda degilde.

CLubber 14 Mart 2012 21:30
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
PHP- Kodu:
# Kullanımına izin verdiğiniz real name
set fullname "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000"># Fullnameleri kontrol edeceği kanalı giriyoruz.
set reel(chan) "#Sohbet" 
 
# Ban türünü giriyoruz. 
set reel(rank) "gzline"
 
# Bot kullanıcıyı ne kadar süre banlasın *
set reel(time) "12h"
 
# Ban sebebini giriyoruz.
set reel(reason) "Kurallara uymadığınız için sunucudan uzaklaştırıldınız." 
 
# Fullname Kontrol TCL v1.0 - Written By CLubber
 
bind raw - 311 realname:check
bind raw * notice nick:connection
 
proc nick:connection {from keyword arg} { 
  global botnick
  if {[string match -nocase "*Client connecting*" $arg]} {
    set nick [lindex $arg 9]
    putquick "WHOIS $nick"
  }
}
 
proc realname:check {from key arg} { 
  global botnick reel fullname
  set nickname [lindex [split $arg] 1] 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
  if {[string match "$botnick" $nickname]} { return }
  if {![string match "$fullname" $realname]} {
    putquick "$reel(rank) $nickname $reel(time) $reel(reason)"
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}
 
putlog "Fullname Ban TCL v1.2 - Written By CLubber" 

Sephiroth 15 Mart 2012 00:29
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Alıntı:
MesqeN Nickli Üyeden Alıntı (Mesaj 1041061349)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

belki işini Görür.

[18:22:54] <MesqeN> !ls
[18:22:55] <LigTv> Kullanım !ls [-all] Tüm oynanmış maçların gösterimi için kullanın,
[18:22:56] <LigTv> Kullanım !ls [Ülke Adı] Bu ülkede oynanan maçların (Tüm Alt Ligleriyle Birlikte) sonuçlarını gösterir.
[18:22:57] <LigTv> Kullanım !ls [-live] Şu anda oynanan maçlardaki durumu online olarak gösterir.
Ben bu tcl yi kurdum fakat kanalda !ls yazınca hic birşey yazmıyor. İlgin alakan için teşekkürler bu arada

saywhat 15 Mart 2012 13:28
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
selamlar..bu http.tcl ile çalışıo her 2 scripti ls.tcl ile http.tcl bot içine attıp confunda botun her iki tclyide göstermek: source scripts/ls.tcl ve source scripts/http.tcl diye satırlar eklemek gerekio.

sonrada botu yeniden başlatıp bota telnet yada dcc ile bağlanıp hangi kanalda işlemesini istiosanız bu scriptin .chanset #kanal +ls komutu vermenz gerekio.kanaldan kaldırmak içinde tam tersi telnet vs bota balanıp .chanset #kanal -ls dendiindede kanaldan kaldırmış oluusunz.bu sırayla yaptıınzda çalışmaması için neden kalmaz..

house 15 Mart 2012 15:49
Cevap: Fullname Ban TCL v1.0 - Written By CLubber
 
Öncelikle paylaşım için tşkler.

Fullname için tcl eklemek yerine ufak bi komutla halledersiniz ( sadece fikir )

/spamfilter add u gzline 15m Yasak_Fullname_Kullandiniz ^(.+!.+@.+:(.*[^muafkelimeyiyaz].*))$

ircop yetkisi bunu yapmak için yeterli çoğu sunucuda. snomask olarak +S gerekir. "gzline" yerine "block" kelimesini kullanırsan bloke eder atmadan. Yasağı kaldırmak için "add" yerine "del" koyup uygulayın. kanallara girmeden işlediği için güzel bi yol.

Saygılar.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:33.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net