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

2Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Kasım 2008, 20:56   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kufur koruması




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:action:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:notice:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Listeye $2 Eklendi..! } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Listeden $2 Silindi..! } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..! } if ($1 == list) { if ($window(@Kufur-List) == $null) { window -ab @Kufur-List } if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt } aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @Kufur-List 14»1»15»1 LisTe Sonu .. } } alias Badword dialog -m Badword Badword dialog Badword { title "Kufur Koruma" size -1 -1 355 200 button "«:KaPaT:»"2, 25 125 300 25,ok button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25 button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25 button "«:Kelime EkLe:»"5, 25 50 150 25 button "«:KeLime SiL:»"6, 175 50 150 25 button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25 button "«:Kufur Listesine Bak:»"8, 25 100 300 25 box "Kufur Koruma Yazan "9, 2 1 350 190

pC'mde ßoyLE bı kod buLdum kodun sOn ßoLumu yOk ama kendım yapamaya caLıstım beceremedım bu kodun sonunu tamamLarmısınız Rıca etSem

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.




 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 28 Kasım 2008, 21:28   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




yok mu kımse yaf
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.




 
Alıntı ile Cevapla

Alt 30 Kasım 2008, 00:39   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Alıntı:
on 1:text:*:#: {
if ($nick isop #) && (%@plar == on) { return }
if ($nick isvo #) && (%+v == on) { return }
_swer_ $1-
}


alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,444)
while (%i) {
if ($gettok(%soyush,%i,444) iswm %x) || ($gettok(%soyush,%i,444) isin %x) {
if (%kick == on) { kick # $nick %kfurlogo }
if (%ban == on) { ban # $nick 2 }
if (%shun == on) { shun $nick +1d %kfurlogo }
if (%samode == on) { samode # +b $nick }
if (%akill == on) { os killclones $nick }
if (%kill == on) { kill $nick %kfurlogo }
if (%K-Line == on) { kline $nick +1d %kfurlogo }
return
}
dec %i
}
}


dialog kfur {
title "Korumalar"
size -1 -1 151 82
option dbu
box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79
combo 2, 89 10 57 53, size
button "Ekle", 3, 89 69 25 9
button "Sil", 4, 122 69 25 9
box "", 6, 88 65 28 15
check " K-Line ", 8, 56 37 27 10
check " KiLL", 9, 56 27 21 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
box "Ayir", 12, 3 2 82 18
box "Küfür Ceza", 112, 2 20 83 40
check "@plar", 13, 5 8 34 10
check "+v", 14, 47 8 30 10
check " AKiLL", 7, 56 47 27 10
check " Kick", 15, 5 37 21 10
check " Ban", 16, 5 27 21 10
check " Shun", 17, 29 36 26 10
check "Samode +b", 18, 5 47 40 10
box "", 5, 121 65 28 15
icon 19, 3 65 80 14, usr\avatar\blacksea.jpg, 0
box "", 20, 2 59 83 22
}


alias kfur { .dialog -m kfur kfur }

on *:dialog:kfur:init:*:{
if %@plar == on { did -c $dname 13 }
if %+v == on { did -c $dname 14 }
if %K-Line == on { did -c $dname 8 }
if %KiLL == on { did -c $dname 9 }
if %AKiLL == on { did -c $dname 7 }
if %Shun == on { did -c $dname 17 }
if %Ban == on { did -c $dname 16 }
if %Kick == on { did -c $dname 15 }
if %Samode == on { did -c $dname 18 }

if (%soyush) didtok $dname 2 444 $ifmatch
did -a $dname 10 %banvaxt
}
on *:dialog:kfur:sclick:*:{
if $istok(7 8 9 13 14 15 16 17 18,$did,32) { var %d = % $+ | $iif($did($did).state == 1,set % $+ $gettok($did($did).text,1,32) on,.set % $+ $gettok($did($did).text,1,32) off) }
if ($did == 3) { if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,444)) { .set %soyush $addtok(%soyush,%artir,444) | did -a $dname 2 %artir } } }
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,444) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
}

on *:dialog:kfur:edit:*:{ %banvaxt = $did(10) }

Küfür korumanı düzeltemem ama bu kodun işini göreceği kanaatindeyim umarım işine yarar.
bu kodu scriptine yükledikten sonra veriables' a %kfurlogo eklemeyi unutma.
Örneğin:
%kfurlogo küfür etmek yasaktır (gibi)
İyi forumlar...

 
Alıntı ile Cevapla

Alt 30 Kasım 2008, 10:53   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




TheCoLLOfDark O Verdiğin Kod Aslında Cok Eskı Bır Scripte Ait 1997 Cıvarları Sanırım Ben Bu Kodu Ilk Sempati Script Vardı Onda Gormusdum Bu Bır Op Icın Kanal Kufur Koruması Degıstırılmıs Opere Gore Uyarlanmıs Bende Opa Olanı Gore Olanı Var Umarım Isıne Yarar..


Alıntı:
on @*:TEXT:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
on @*:action:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
on @*:notice:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
alias badword {
if ($1 == add) {
set %badwords $addtok(%badwords,$2,32)
echo -a 14»1»15»1 Listeye $2 Eklendi..!
}
if ($1 == del) {
if ($istok(%badwords,$2,32)) {
set %badwords $remtok(%badwords,$2,32)
echo -a 14»1»15»1 Listeden $2 Silindi..!
}
}
if ($1 == delall) {
unset %badwords
echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
}
if ($1 == list) {
if ($window(@Kufur-List) == $null) {
window -ab @Kufur-List
}
if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
var %n = 1
while (%n <= $numtok(%badwords,32)) {
aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
inc %n
}
aline @Kufur-List 14»1»15»1 LisTe Sonu ..
}
}
alias Badword dialog -m Badword Badword
dialog Badword {
title "Kufur Koruma"
size -1 -1 355 200
button "«:KaPaT:»"2, 25 125 300 25,ok
button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
button "«:Kelime EkLe:»"5, 25 50 150 25
button "«:KeLime SiL:»"6, 175 50 150 25
button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
button "«:Kufur Listesine Bak:»"8, 25 100 300 25
box "Kufur Koruma "9, 2 1 350 190


}


on 1:dialog
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adword:sclick:*:{
if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
if ($did == 5) { /badword add $$?="Kufur Gir:" }
if ($did == 6) { /badword del $$?="Kufur Gir:" }
if ($did == 7) { /badword delall }
if ($did == 8) { /badword list }
}

Menu Channel {
Kufur Koruma:/dialog -m Badword Badword
}
alias badnick { Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4My12Net 2Sohbet odaları kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı uymadıgınız icin 4 $chan 2 odasından 4 Süresiz 2 uzakla$tırıldınız.Daha fazla bilgi icin 4/motd 2yazınız ! | halt }
#blacklist on
on karaliste:JOiN:#:{
if (%nickkor == ON) {
Ban # $nick | badnick $nick dsdds
}
}
#blacklist END


 
Alıntı ile Cevapla

Alt 30 Kasım 2008, 14:52   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:action:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:notice:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Listeye $2 Eklendi..! } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Listeden $2 Silindi..! } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..! } if ($1 == list) { if ($window(@Kufur-List) == $null) { window -ab @Kufur-List } if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt } aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @Kufur-List 14»1»15»1 LisTe Sonu .. } } alias Badword dialog -m Badword Badword dialog Badword { title "Kufur Koruma" size -1 -1 355 200 button "«:KaPaT:»"2, 25 125 300 25,ok button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25 button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25 button "«:Kelime EkLe:»"5, 25 50 150 25 button "«:KeLime SiL:»"6, 175 50 150 25 button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25 button "«:Kufur Listesine Bak:»"8, 25 100 300 25 box "Kufur Koruma Yazan "9, 2 1 350 190 } on 1:dialog:Badword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» } if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» } if ($did == 5) { /badword add $$?="Kufur Gir:" } if ($did == 6) { /badword del $$?="Kufur Gir:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } } Menu Channel { Kufur Koruma:/dialog -m Badword Badword }



Konu Narsinha tarafından (30 Kasım 2008 Saat 14:58 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 30 Kasım 2008, 15:11   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




eyw ıLqınız ıcın cok teSekkurLer suppersınız cok ısıme yaradı

__________________
Korkuyorsan yapma,
yapıyorsan korkma..

wake the fuck up samurai we have a city to burn..


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.




 
Alıntı ile Cevapla

Alt 09 Aralık 2008, 14:12   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




S.a arkadaşlar bu dosyayı hangi dizine oluşturıcaz ve nasıl aktif hale getireceğiz. küfür listesini bir txt içindemi oluşturacağız.? Bu konuda yardımcı olursanızçok sevinirim. teşekkürler.

Birde Şu komutu daha kullanışlı hale getirmek için ne yapabilirim.
yazılan kelime geçmesi hailnde kanadan atar atar.

/msg Botserv badwords #kanal add kelime single

buraya yazılan kelimeleri nereye kaydediyor. o kısıma ftp'den girerek mevcut olan bi küfür listesini kopi paste yaparak liste oluşturabilirmiyiz.

 
Alıntı ile Cevapla

Alt 09 Aralık 2008, 14:34   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Kodların mIRC'a yüklenişi

1.yoL

En Son verilmiş Olan Kodları alıyorsun ve Daha Sonra mIRC'i açarak ALT + R tuşlarına beraber basıyorsun Sol üst köşede yeni sekmesini buluyorsun ve yeni Sayfaya Kodları Pasteliyorsun ve tamam Diyorsun.

2.yoL

mIRC'in Bulunduğu Dosyanın içine birtane metin belgesi açıyorsun ve Daha Sonra verilmiş olan kodları metin belgesinin içine pasteliyorsun ve mIRC'i açarak Örn ; /load -rs küfür.txt Şeklinde yüklemeni yapıyorsun Tamam Diyorsun Olay Bukadar.

Eğer Dahada anlamadım Diyorsan Kodların mIRC'a Pastelenişi Dersini Okuyorsun.

Diger Sorunda İse while Döngüsü Kullanıyorsun Kelimenin Geçmesi Halinde atar.
Hızlı olmasını istiyorsan hash Tablosuyla işlem yapıyorsun.

 
Alıntı ile Cevapla

Alt 03 Şubat 2009, 21:38   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




o1star Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:action:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:notice:*:#:{ var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Listeye $2 Eklendi..! } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Listeden $2 Silindi..! } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..! } if ($1 == list) { if ($window(@Kufur-List) == $null) { window -ab @Kufur-List } if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt } aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @Kufur-List 14»1»15»1 LisTe Sonu .. } } alias Badword dialog -m Badword Badword dialog Badword { title "Kufur Koruma" size -1 -1 355 200 button "«:KaPaT:»"2, 25 125 300 25,ok button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25 button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25 button "«:Kelime EkLe:»"5, 25 50 150 25 button "«:KeLime SiL:»"6, 175 50 150 25 button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25 button "«:Kufur Listesine Bak:»"8, 25 100 300 25 box "Kufur Koruma Yazan "9, 2 1 350 190 } on 1:dialog:Badword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» } if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» } if ($did == 5) { /badword add $$?="Kufur Gir:" } if ($did == 6) { /badword del $$?="Kufur Gir:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } } Menu Channel { Kufur Koruma:/dialog -m Badword Badword }


ARkadaşlar bu kod güzel ama bu kodu #oper #help #oplar kanalında nasıl devre dışı bırakırız.yanı bu kanallarda eklediğim küfürler yazılsa bile kod işlem yapmayacak.

 
Alıntı ile Cevapla

Alt 04 Şubat 2009, 00:53   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#:{ if ($istok(#Oper #help #oplar,$chan,32)) { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:action:*:#:{ if ($istok(#Oper #help #oplar,$chan,32)) { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } on *:notice:*:#:{ if ($istok(#Oper #help #oplar,$chan,32)) { halt } var %p = 0 while (%p < $numtok($1-,32)) { inc %p if ($nick !isop $chan) { if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) { /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time } } } } alias badword { if ($1 == add) { set %badwords $addtok(%badwords,$2,32) echo -a 14»1»15»1 Listeye $2 Eklendi..! } if ($1 == del) { if ($istok(%badwords,$2,32)) { set %badwords $remtok(%badwords,$2,32) echo -a 14»1»15»1 Listeden $2 Silindi..! } } if ($1 == delall) { unset %badwords echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..! } if ($1 == list) { if ($window(@Kufur-List) == $null) { window -ab @Kufur-List } if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt } aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ ) var %n = 1 while (%n <= $numtok(%badwords,32)) { aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32) inc %n } aline @Kufur-List 14»1»15»1 LisTe Sonu .. } } alias Badword dialog -m Badword Badword dialog Badword { title "Kufur Koruma" size -1 -1 355 200 button "«:KaPaT:»"2, 25 125 300 25,ok button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25 button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25 button "«:Kelime EkLe:»"5, 25 50 150 25 button "«:KeLime SiL:»"6, 175 50 150 25 button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25 button "«:Kufur Listesine Bak:»"8, 25 100 300 25 box "Kufur Koruma Yazan "9, 2 1 350 190 } on 1:dialog:Badword:sclick:*:{ if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» } if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» } if ($did == 5) { /badword add $$?="Kufur Gir:" } if ($did == 6) { /badword del $$?="Kufur Gir:" } if ($did == 7) { /badword delall } if ($did == 8) { /badword list } } Menu Channel { Kufur Koruma:/dialog -m Badword Badword }

Bu Şekilde #Oper , #help , #oplar Kanalında küfür edildiğinde Korumalar çalışmaz.

 
Alıntı ile Cevapla

Cevapla

Etiketler
koruması, kufur, mirc, mirc download, mirc indir


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
Kufur korumaSı AsCi ramizdayi mIRC Scripting Sorunları 6 25 Mayıs 2010 23:18
Kufur Koruması Hakkında Hesna mIRC Scripting Sorunları 9 24 Mart 2009 23:29
Kufur Koruması Hakkında Cybersoft mIRC Scripting Sorunları 9 14 Şubat 2009 03:27
Kufur koruması morveotesii mIRC Scripting Sorunları 14 21 Eylül 2006 20:35
Flood ve Kufur Koruması Wolfram mIRC Scripting Sorunları 15 18 Temmuz 2006 05:23