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

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)

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.

MesqeN

15 Mart 2012 16:28

Cevap: Fullname Ban TCL v1.0 - Written By CLubber

Alıntı:

Sephiroth Nickli Üyeden Alıntı (Mesaj 1041061818)

Ben bu tcl yi kurdum fakat kanalda !ls yazınca hic birşey yazmıyor. İlgin alakan için teşekkürler bu arada

ilgili konunun Altinda gereken aciklamalar ve yardımlar mevcutur.

fLayer

26 Mart 2012 23:35

Cevap: Fullname Ban TCL v1.0 - Written By CLubber

Aslında Şöyle birşey varmı bilmiyorum user Hangi identle qirerse qirSin identi botta belirtigimiz identi uygulasın
örnek;
Radyo@ identli ile giren user
botun chgident ile uygulayacaqı Surgun@ identi
yani userin haberi olmuyacak Statuste bot otomatik bunu degişecek bunu çogaltarak fullnamesini bile degişebiliriz Fikrim var ama zikrim yok :)

CLubber

27 Mart 2012 01:10

Cevap: Fullname Ban TCL v1.0 - Written By CLubber

PHP- Kodu:

   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 "CHGIDENT $nick Ident"
  }
}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:10.