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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Aralık 2012, 05:08   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
identd badnick ekle sil




Merhaba arkadaslar !nickekle !identd ekle gibi
bir tcl varmi acaba payasirsaniz cok sevinirim istiyorum ki sole olsun ornek

!nickekle *yarak* yildiniz oldugunda hic bir sekilde yarak_demo die alamasin
!identdekle *s*c*r*i*p*t* hic bir sekilde boyle bir ident almasin ornek
s-ci-rip-t gibi özelikle boyle bisi lazim bana arkadaslar..
!identdekle *s*o*h*b*e*t* hic bir sekilde alamasin.
!silnick
!silident

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 05:08 -->-> Daha önceki mesaj 05:02 --

altaki spamekle çok güzel çalışıyor ama sunucu kapanip açıldıgında atilan tüm spamlar siliniyor iste benim demek istedigim

identd ve badnick içinde böyle bisi yapmak lazim ama nasil
sunucuda ekle diyince ident.txt icine eklicek sil diyince silcek vs ..



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![info exists userinfover] } {

putlog "*** spamekle Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"

return 0

}

bind pub - !spamadd spam:msg

proc spam
:msg {n u h c a} {

global 
botnick admin_chan

set spam_msg 
[join [split $a .] .?]

set yspam_msg [join [split $spam_msg " "] .]

set vspam [stripcodes bcru $yspam_msg]

set spam [spam:tmz $vspam]

if {[
onchan $n $admin_chan]==1} {

putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4CHM2) ^$spam$"

putquick "PRIVMSG $c ^$spam$ 15-14-1> 4spamfiltera eklendi"

}

if {[
onchan $n $admin_chan]==0} {

putserv "PRIVMSG $admin_chan 5$n 2!spamekle $a 14komutunu kullanmaya çalıştı!" 

}

}

bind pub - !spamekle spam:ek

proc spam
:ek {n u h c a} {

global 
botnick admin_chan

if {[onchan $n $admin_chan]==1} {

putquick "SPAMFILTER add cpNna gzline 30h 14sunucu_kurallarına_aykırı_reklam/küfür/argo_söz_kullanımdından_dolayı_sunucuya_girişiniz_yasaklanmıştır2(4CHM2) $a"

putquick "PRIVMSG $c $a 15-14-1> 4spamfiltera eklendi"

}

if {[
onchan $n $admin_chan]==0} {

putserv "PRIVMSG $admin_chan 5$n 2!spamadd $a 14komutunu kullanmaya çalıştı!" 

}

}

bind pub - !spamdel spamsil:msg

proc spamsil
:msg {n u h c a} {

global 
botnick admin_chan

set spam_msg 
[join [split $a .] .?]

set yspam_msg [join [split $spam_msg " "] .]

set vspam [stripcodes bcru $yspam_msg]

set spam [spam:tmz $vspam]

if {[
onchan $n $admin_chan]==1} {

putquick "SPAMFILTER del cpNna gzline - - ^$spam$"

putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"

}

if {[
onchan $n $admin_chan]==0} {

putserv "PRIVMSG $admin_chan 5$n 2!spamsil $a 14komutunu kullanmaya çalıştı!"

}

}

bind pub - !spamsil spam:sil

proc spam
:sil {n u h c a} {

global 
botnick admin_chan

if {[onchan $n $admin_chan]==1} {

putquick "SPAMFILTER del cpNna gzline - - $a"

putquick "PRIVMSG $c $a 15-14-1> 4spamfilterdan çıkarıldı"

}

if {[
onchan $n $admin_chan]==0} {

putserv "PRIVMSG $admin_chan 5$n 2!spamdel $a 14komutunu kullanmaya çalıştı!"

}



putlog "spamekle tcl" 


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
badnick, ekle, identd, sil


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
!badnick ekle nick ( Kill + nick değiştirme şeklinde ) Heavenly mIRC Scripting Sorunları 20 09 Mayıs 2022 23:25
!badnick Ekle sil Listele DenperaS mIRC Scripting Sorunları 10 22 Kasım 2017 15:07
Badnick Ekle/Sil/Liste Prens mIRC Scripting Sorunları 4 23 Mayıs 2012 12:55
Badnick ekle çıkar aliası lazım( farklı biraz ) MerakLıuSer mIRC Scripting Sorunları 5 18 Ekim 2008 15:05