identd badnick ekle sil - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

alphae · 17 Aralık 2012, 05:08

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"

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.