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

13Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Mart 2012, 23:27   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Eggdrop - Fullname Ban TCL




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# 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 $arg1
  
set realname [strlwr [ctrl:filter [string range [lindex [split $argend1 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...]

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Mart 2012, 00:55   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iddaa tcl paylaşırsan memnun olurum .

 
Alıntı ile Cevapla

Alt 14 Mart 2012, 00:59   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 14 Mart 2012, 02:17   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ..

 
Alıntı ile Cevapla

Alt 14 Mart 2012, 18:23   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Fullname Ban TCL v1.0 - Written By CLubber




Sephiroth Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Çalışmaların için teşekkürler.. Ayrıca birde bizlerle yada benim için
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 
Alıntı ile Cevapla

Alt 14 Mart 2012, 21:20   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 14 Mart 2012, 21:30   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Fullname Ban TCL v1.0 - Written By CLubber




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# 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 $arg1
  
set realname [strlwr [ctrl:filter [string range [lindex [split $argend1 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" 


 
Alıntı ile Cevapla

Alt 15 Mart 2012, 00:29   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Fullname Ban TCL v1.0 - Written By CLubber




MesqeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[Ü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

 
Alıntı ile Cevapla

Alt 15 Mart 2012, 13:28   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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..

 
Alıntı ile Cevapla

Alt 15 Mart 2012, 15:49   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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 ^(.+!.+@.+
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.*[^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.

 
Alıntı ile Cevapla

Cevapla

Etiketler
fullname, tcl, v10, written


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Fullname! Muhabbed mIRC Scripting Sorunları 4 14 Aralık 2007 17:45
!fullname goKhaN` mIRC Scripting Sorunları 1 20 Eylül 2007 23:47
Fullname theson Unreal IRCd 3 26 Temmuz 2007 09:38