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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Küfür Koruması... (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/23391-kufur-korumasi.html)

Küfür Koruması...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kurulum: Aşagıdaki kodları ALT + R yaparak , karşınıza çıkan remote penceresine kodları yapıştırın...

Kullanımı: /kufur yazmanız yeterli..

NOT: Kırmızı ile kod içerisinde yer alan yerler kick sebebidir orayı kendinize göre degiştirebilirsiniz.

Açıklama: Umarım işnize yarar bir şey olmuştur...

Kod:

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 %_:

  }

}

Coded: NaTSuKa

Yanıt: Küfür Koruması...

Alıntı:

Nurullahoruc Nickli Üyeden Alıntı

Denedİm Atmİyor

Bende çalışıyor ve bendekini aynısı...

Yanıt: Küfür Koruması...

user degişik nickler ile giriyor. Onu nasıl ayarlicam + Atmıyor

Yanıt: Küfür Koruması...

Ben bu kodu tekrar aldım ve tekrar denedim bir problem yok, siz seçenekleri sdeçtiginizden eminmisiniz opsam kick , banla gibi ayarları yaptınızmı :)

Yanıt: Küfür Koruması...

Evet yaptım. Şu nick kısmı nasıl olucak onu cözemedim

Yanıt: Küfür Koruması...

o nick kısmı mesela oraya Ali eklediginde Ali kanalda küfür etse bile o kişiyi kanaldan atmaz yani korumanın dışında tutar...

Yanıt: Küfür Koruması...

Küfür koruması gayet iyi çalışıyor ama düz mirce ekledim . Kullandığım scriptte alt + R ye basınca remote açılmıyor . scriptin dosyaları içinden bu işlemi yapmam gerek . Remote.ini ye yapıştırdım içinden olmadı nereye yapıştırmam gerekir ? yada bu kodu txt haline getirip yeni isimle dosyanın içine atıp scripte tanıtamazmıyım ? Yardımcı olursanız sevinirim düz mircte denedim gayet güzel bir çalışma .

Yanıt: Küfür Koruması...

Bitane 'Yeni Metin Belgesi' aç arkadaşım, ve O belge'nin içine yukardaki kodları yapıştır. 'Yeni Metin Belgesi'ni mIRC Klasör'ünün içine at ve ismini Küfür.txt olarak değiştir, mIRC'ini aç şunu yaz;

Kod:

/load -rs küfür.txt

mIRC programına kodu eklemiş olursun.

Yanıt: Küfür Koruması...

Edit : Mirc.exe yi düz mirc.exe ile değiştirdim. script editöründen ekleyebiliyorum artık sorunum düzeldi . tşk .

Virus dediğini yapıp kufur.txt isimli bir dosyayı attım içine .
Fakat küfür eklenen yerde kod çıktı . Bunda bir hata oluşuyor . Benim scriptimde alt +r yapınca remote açılmadığı için bu yolla yapmaya çalışıyorum . Direk dosyadan remote.ini ye yapıştırınca çalışmıyor . Yardımcı olabilirmisiniz bana . Düz mirce alt + r yapıp yapıştırınca kendisi bir kufur.tex oluşturuyordu ve eklenen kelimeler onun içine direk kaydediliyordu . Belki kufur.txt yaptığımız için virus ün dediği gibi koduda içene yapıştırdığımız için bu hatayı veriyor . kufur.txt harici başka bir txt yapınca zaten çalışmıyor . resim aşağıdadır .

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alıntı:

yepaa Nickli Üyeden Alıntı

kufur.txt harici başka bir txt yapınca zaten çalışmıyor .

ÇoK SaÇMa GeLdi BaNa, kufur.txt De KoDLar ÇaLıYoRSa kufurcu.txt YaZıNCaDa ÇaLıŞıR. kufur.txt e KüFüRLeR eKLeNiYoR ÇünKü oNDaN ReSimDeKi GiBi GöZüKüYoR aYNı ŞeYe BeNDe DüŞMüŞTüm. ;)

SeNDe; /load -rs kufurcu.txt oLaRaK YaP KoDLaRı.

Yanıt: Küfür Koruması...

ben denedim kufurler.txt olarak çalışıor aslanlar gibi . kufur.txt die dosya açıp içine kendi eklior . Virüs derse küfür.txt die olmaz tabi ahh virüs ah sen örenecen mircide ben o gün dut ağacına ceviz ağacına çıkacam senin için :p

Yanıt: Küfür Koruması...

*s*i*k*e*r*i*m* $ekLinde ekLeyin oLmuyo Diyen ArkadasLar.. Direk ''sikerim'' $ekLinde ekLeyince oLmadI Bende biLmiyorum :S

Yanıt: Küfür Koruması...

sik* böle denersen eksik olmuş yada bi sen eksiktin diyeni atmıor . hem onu geç sen yazan hertürlü yazar onu . amaç : koruyalım irci ama normal kelimeleri atmasın . mağduriyet oldumu daha kötü klavyesi yabancı olanlar bela zate . kız gelior dior bu gecede cok sikildim burda bilmemne ne sikildim yazarsınki bunaldim yaz yerine demi . adamda der normal olarak gel benim yanimda sikil der , ne diyim adama ben sora kız öle yazınca yazar tabi . du bakalım virüs yazıyomuş bi kod yabancıyı ayırd edicekmiş ip nodan :p

Yanıt: Küfür Koruması...

Denedim Gayet Güzel Çalışıyor , Eline Sağlık NaTSuKa

Yanıt: Küfür Koruması...

ancak cümle içerisinde ekledigim küfürden uzaklaştırmıyor ne yapıcam bu konuda mesela ibne* ekli
[14:12] <xlarz> deneme ibne seni
atmadı :(

Yanıt: Küfür Koruması...

Ayarda kodlarda bir problem var onda tam olarak çözemedim . Eklemeden evvel sadece ibne diye eklediysen önce daha sonra ibne* diye eklediysen hata oluyor nedense . Sil varsa ibne diye eklediğin scripti aç kapa direk ibne* diye ekle . Çok güzel bir koruma bu bence geliştirilseydi iyi olurdu .
Düz kelimeyi direk ekleme atmıyor sonuna mutlaka * koyman gerekiyor .
Aslında bu korumada badnick korumasıda olmalıydı küfür olarak eklenenler otomatik badnickede eklenmeliydi o zaman baya iyi bir koruma olurdu . Tabi oto eklenirmi onu mirc scriptten anlayanlarbilir yazdım öyle ama hayal kurmak gibi olmasın ben pek anlamaz yorum yaptım sadece :)

Yanıt: Küfür Koruması...

Sağolasın Düzelttirdim Oldu :)

Cevap: Küfür Koruması...

natsuka bu koruma kanala paste yapınca biri mirci donduruyo güzel olmuş onuda halletsen daha iyi olacak

Cevap: Küfür Koruması...

Peki Arkadaşlar ßu Korumaya Söyle ßirşey Ekleyemezmiyiz Örnegin Kişi Küfür Etti Bot banlıyor ve ßanladıktan Sonra ßirde Kanalı Temizlese daha iyi oLmazmı ßöyle ßirşey mümkünmü ?

Cevap: Küfür Koruması...

mümkün korumanı gösterirsen

Cevap: Küfür Koruması...

Alıntı:

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 %_:
}
}

Bunu Kullanıyorum Küfür için.

Cevap: Küfür Koruması...

Kod:

 

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 | /timeryaz 40 0 /msg # Dikkat kanal temizleniyor.:) }

      if (%klineat == on) { .kline $nick Lutfen kufur etmeyin | /timeryaz 40 0 /msg # Dikkat kanal temizleniyor.:) }

      if (%killat == on) { .kill $nick Lutfen kufur etmeyin | /timeryaz 40 0 /msg # Dikkat kanal temizleniyor.:) }

      if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin | /timeryaz 40 0 /msg # Dikkat kanal temizleniyor.:) }

      return

    }

    dec %_:

  }

}

en basiti böyle başka yazı veya resim tasarladığın say veya playlada yaptırabilirsin ama bu koruma hatalıydı en son kullandığımda flood yapınca biri mircim donuyodu hata veriyodu tavsiye etmem:)

Cevap: Küfür Koruması...

Natsuka hangi elinle yaptıysan o eline sağlık kardeş :D hem yararlı hemd güzel herkez için kullanılacak bir code scriptime eklicem emeğine sağlık
;oki;oki;oki

Cevap: Küfür Koruması...

gayet sorunsuz bir sekilde calisiyor koruma..

Cevap: Küfür Koruması...

herşeyi denedim fakat ne yazıkkı ban atmıyor...