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

6Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Mayıs 2009, 19:06   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Küfür ve Argo Cümle İçinde




SaLykm .
Ustalar Bi Script Çalışması Yapıyorumda Yalnız Bir Sorunum Var .
Küfür Koruması ve Argo Kelime Koruması Gerektiği Gibi Çalışmıyor .
Cümle İçinde Bir Küfür veya Argo Kelime Kullanıldığında Atmıyor .
Txt İçinden Okuyan Bir Koruma Yapmıştım Oda Selam Yazsan Atıyordu .
Sizden Ricam Sağlam Bir KÜFÜR KORUMASI Sağlam Çalışan Varsa Bir Yardımcı Olurmusunuz .

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 23 Mayıs 2009, 20:19   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




Alıntı:
on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj BAD-WORD Detected. Please stop swearing-
.set %soyush fuck,shit,bitch,idiot
.echo -a 2Swear4 protection...
.echo -a 4Type 2/bad4 to open !
.echo -a 7 Good luck!! 4:12>
}

on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj ,BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
if (%banet == on) { .ban # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title "Swear protection"
size -1 -1 185 111
option dbu
box "List of Bad Words", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Add", 3, 98 66 31 10
button "Del", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Penalty", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Seconds", 11, 62 32 21 8, disable
box "Except", 12, 2 49 84 31
check "@ps", 13, 6 57 77 10
check "+Voices", 14, 6 68 75 10
box "Kick Message", 15, 2 81 182 27
edit "", 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
menu status,menubar {
BAD-WORD:.bad
}

Bunu remotene yükledikten sonra,

/bad komutu ile diyalogu açıp ekleme/silme v.b yapabilirsin. Ben kullanıyorum sağlam çalışıyor.

 
Alıntı ile Cevapla

Alt 23 Mayıs 2009, 20:49   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




Serhat paylaşım yapmış ama bende can sıkıntısından ufak birşeyler hazırlamıştım,belki kullanmak isteyenlere lazım olur.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#difiprotect on on @*:text:*:#:var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | halt } | inc %jnk } #difiprotect end alias küfürekle { if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. } else { hadd -m Küfürler $1 1 hsave -i Küfürler Küfürler.data echo 07 -a $1 Argo\Küfür listesine eklendi. } } alias küfürsil { if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok } else { hdel Küfürler $1 hsave -i Küfürler Küfürler.data echo 07 -a $1 Argo\Küfür listesinden silindi. } } alias küfürlist { $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler) aline 04 @Küfürler Küfür Listesi var %dify 1 | while %dify <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%dify).item | inc %dify } aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcut. } on *:start:.hload Küfürler Küfürler.data menu channel { .Küfür Koruması ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapalı }


Hoşca paylaşımlar...

 
Alıntı ile Cevapla

Alt 16 Kasım 2009, 23:39   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




*salak
salak*
salak
sa*lak
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
verdiği kode de yukardaki gibi ekliyebiliyormuyuz denedim calışmadıda.


Konu Gulsum tarafından (16 Kasım 2009 Saat 23:46 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 17 Kasım 2009, 19:37   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog kufur { title "Küfür Koruması [ NaTSuKa ]" size -1 -1 138 186 option dbu edit "", 1, 7 10 61 10 list 2, 7 22 60 50, size button "Ekle", 3, 7 74 27 12, flat button "Sil", 4, 39 74 27 12, flat check "Opları (@)", 5, 85 21 41 10, flat check "Voiceler (@)", 6, 85 10 42 10, flat combo 7, 7 102 52 51, size button "Ekle", 8, 7 154 24 9, flat button "Sil", 9, 35 154 23 9, flat box "Küfür listesi", 13, 3 2 71 88 box "Ayrılan Nickler", 14, 3 92 63 76 box "Ayrılan Kanallar", 15, 73 92 62 76 box "Ayır", 16, 78 2 56 33 button "Sil", 10, 106 154 23 9, flat button "Ekle", 11, 78 154 24 9, flat combo 12, 78 102 52 51, size box "İşlemler", 17, 78 37 56 53 radio "Opersem Kline", 18, 83 47 47 10, flat radio "Opersem Kill", 19, 83 57 47 10, flat radio "Opsam Kick", 20, 83 67 47 10, flat check "Banla", 21, 83 77 27 10, flat button "Kapat", 22, 97 171 37 12, flat ok } alias kufur { /dialog -m kufur kufur } on *:dialog:kufur:init:*: { if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt } if (%knickler) .didtok $dname 7 32 $ifmatch if (%kufkanal) .didtok $dname 12 32 $ifmatch if (%klineat) { .did -c $dname 18 } if (%killat) { .did -c $dname 19 } if (%kickat) { .did -c $dname 20 } if (%banla) { .did -c $dname 21 } if (%oplar) { .did -c $dname 5 } if (%vlar) { .did -c $dname 6 } } on *:dialog:kufur:sclick:*: { if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } } if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } } if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } } if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } } if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 } if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel } if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } } if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } } if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } } if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } } if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } } if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } } } on *:text:*:#: { if $istok(%kufkanal,#,32) == $true { halt } if $istok(%knickler,$nick,32) == $true { halt } if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } korukufurden $1- } alias korukufurden { var %HR $strip($1-) , %_: $lines(kufur.txt) while (%_:) { if $read(kufur.txt,%_:) iswm %HR iswm %HR { if (%banla == on) { .mode $chan +b $wildsite } if (%klineat == on) { .kline $nick Lutfen kufur etmeyin } if (%killat == on) { .kill $nick Lutfen kufur etmeyin } if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin } return } dec %_: } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias argosil { if ($read(Argo.txt,w,$+(*,$1-,*))) { write -dl $+ $readn argo.txt echo -a $1- Argo veri tabanindan çıkarıldı } } alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi } #Argo on on *@:text:*:#:{ var %i 1 while $read(Argo.txt,%i) { if ($read(Argo.txt,%i) iswm $1-) { ban -k $chan $nick Argo kelime kullandığınız için atıldınız. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } inc %i } } #Argo end

Yukarıdaki argo codesini mIRC’inize alt+r yaparak ekleyiniz.
Küfür – Argo Remotesinin Kullanımı
/argoekle mesaj şeklinde eklenmektedir.
/argosil mesaj şeklinde silinmektedir.

 
Alıntı ile Cevapla

Alt 17 Kasım 2009, 19:58   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




polye arkadaşım tşk ederim yardım etmeye çalışıyosun fakat addon istemedim veya başka bi kode . yinede denedim senin verdiklerini calışmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 17 Kasım 2009, 20:01   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




Gulsum Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
polye arkadaşım tşk ederim yardım etmeye çalışıyosun fakat addon istemedim veya başka bi kode . yinede denedim senin verdiklerini calışmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ßen Kullanabilecegin Addon Verdim soru Soran Arkadasa Cvb Vermıstım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Artı Calısıyor Ornek /argoekle eklicenyazi /argosil sileceginyazi seklınde dene gorursun argo ve txt'nin icine atıyor.

Küfür Koruması İcinde /kufur Yazarsan Dialog cıkacaktır Karsına Gorursun Zaten
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Konu neobre tarafından (17 Kasım 2009 Saat 20:06 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 18 Aralık 2009, 06:39   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




SevgiLi PoLye ßu güzeL payLaşımın için iLk önce teşekkür £diyorum. Tam aradığım ßi addon türü, fakat ben bu addon üzerinde değişikLik yaptım. DeğişikLik yapma sebebim ise muaf nickLer ve muaf kanaLLarıda ayrı txt dosyasına yazdırmak istememdir. Addon üzerinde değişikLik yaptım değişmesi gereken yerLeri değiştirdim ve oLduda, fakat remote kısmını akşamdan beri uğraşiyorum bir türLü yapamadım senden ricam bu addonu mircine ekLeyip bi bakabiLirmisin acaba nerede hata yapmışım küfür Listesindeki küfürLeri yazınca atmıyor başarıLarının devamını diLerim.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
dialog kufr { title "Küfür Koruması [ NaTSuKa ]" size -1 -1 131 178 option dbu edit "", 1, 6 11 61 11 list 2, 6 22 61 50, size button "Ekle", 3, 9 74 23 9, flat button "Sil", 4, 39 74 23 9, flat check "Opları (@)", 5, 80 21 41 10, flat check "Voiceler (@)", 6, 80 10 42 10, flat button "Ekle", 8, 11 163 23 9, flat button "Sil", 9, 39 163 23 9, flat box "Küfür Listesi", 13, 3 2 68 86 box "Muaf NickLer", 14, 3 90 68 86 box "Muaf KanaLLar", 15, 73 90 56 86 box "SeçiLenLeri Koru", 16, 73 2 56 33 button "Sil", 10, 102 163 23 9, flat button "Ekle", 11, 77 163 23 9, flat box "işLemLer", 17, 73 35 56 53 radio "Opersem Kline", 18, 78 45 47 10, flat radio "Opersem Kill", 19, 78 55 47 10, flat radio "Opsam Kick", 20, 78 65 47 10, flat check "Banla", 21, 78 75 27 10, flat list 7, 6 110 61 50, size edit "", 23, 6 99 61 11 edit "", 12, 75 99 51 11 list 24, 75 110 51 50, size } alias kufr { /dialog -m kufr kufr } on *:dialog:kufr:init:*: { if ($isfile(a/kufur.txt) == $false) { write -c a/kufur.txt } | else { loadbuf -o $dname 2 a/kufur.txt } if ($isfile(a/muafnick.txt) == $false) { write -c a/muafnick.txt } | else { loadbuf -o $dname 7 a/muafnick.txt } if ($isfile(a/muafkanallar.txt) == $false) { write -c a/muafkanallar.txt } | else { loadbuf -o $dname 24 a/muafkanallar.txt } if (%klineat) { .did -c $dname 18 } if (%killat) { .did -c $dname 19 } if (%kickat) { .did -c $dname 20 } if (%banla) { .did -c $dname 21 } if (%oplar) { .did -c $dname 5 } if (%vlar) { .did -c $dname 6 } } on *:dialog:kufr:sclick:*: { if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } } if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } } if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } } if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } } if ($did == 3) { write a/kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 } if ($did == 4) { write -dl $+ $did(2).sel a/kufur.txt | did -d $dname 2 $did(2).sel } if ($did == 8) { write a/muafnick.txt $did(23) | did -a $dname 7 $did(23) | did -r $dname 23 } if ($did == 9) { write -dl $+ $did(7).sel a/muafnick.txt | did -d $dname 7 $did(7).sel } if ($did == 11) { write a/muafkanallar.txt $did(12) | did -a $dname 24 $did(12) | did -r $dname 12 } if ($did == 10) { write -dl $+ $did(24).sel a/muafnick.txt | did -d $dname 24 $did(24).sel } if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } } if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } } } on *:text:*:#: { if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } korukufurden $1- } alias korukufurden { var %HR $strip($1-) , %_: $lines(a/kufur.txt) var %mn $strip($1-) , %_: $lines(a/muafnick.txt) var %mk $strip($1-) , %_: $lines(a/muafkanallar.txt) while (%_:) { if $read(a/kufur.txt,%_:) iswm %HR iswm %HR if $read(a/muafnick.txt,%_:) iswm %mn iswm %mn if $read(a/muafkanallar.txt,%_:) iswm %mk iswm %mk { if (%banla == on) { .mode $chan +b $wildsite } if (%klineat == on) { .kline $nick Lutfen kufur etmeyin } if (%killat == on) { .kill $nick Lutfen kufur etmeyin } if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin } return } dec %_: } }


 
Alıntı ile Cevapla

Alt 21 Aralık 2009, 20:09   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




sevgiLi PoLye anLaşıLan senin bu konuLardan pek biLgin yok cevap vernediğine göre. Peki diğer arkadaşLara sesLeniyorum yokmu içinizde yardımcı oLacak biri ?

 
Alıntı ile Cevapla

Alt 16 Ocak 2010, 03:34   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfür ve Argo Cümle İçinde




PoLye'nin verdiği addonu biLiyorum aynısını uzun yaziLar icin kuLLanıyorum fakat küfür oLarak ayarLadığımda çaLısmıyordu burda görünce burdan aLdım aynısı fakat yine çaLışmıyor aynı kod

__________________

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

Cevapla

Etiketler
argo, cumle, cümle, icinde, kufur, küfür, mirc, mirc download, mirc indir, ve, İçinde


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
Bir Cümle İçinde Geçen Her Karakterin Tekrar Sayısını Bulan Program Swat Programlama 0 11 Temmuz 2014 11:12
gabilee:dd +18 argo/küfür IrCbaStarD Komik Loglar 14 24 Kasım 2012 21:40
argo ban küfür ban Realinferno mIRC Scripting Sorunları 10 10 Temmuz 2006 19:56
Rock ME Baby :)) [argo+küfür] Chelt Komik Loglar 1 12 Temmuz 2005 18:46