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...]