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ı (hash) */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/130409-kufur-korumasi-hash.html)

/* Küfür Koruması (hash) */

/* Beni Oku (Readme) */

* Küfür Koruması (Argo Protection);
* Korumamız, ekteki rar dosyasının içindedir.

Kullanım;

* kufur.bugra ve kufur.mrc dosyalarınız mIRC 'inizin bulunduğu ana klasörde olmalıdır.
* load -rs kufur.mrc yazarak scriptinize addon'unuzu yukleyebilirsiniz.
* kurduktan sonra /kufurkur yazarak, kurulumunuzu tamamlamış bulunacaksınız.

Yıldızlı Kelimelerin nasıl ekleneceği;

* Eğer Kelimenin başlangıcına, " **** " yazarsanız, bi***uel ve bunun gibi *** kelimesinin başında ne geçerse geçsin algılayacaktır.
* Eğer kelimenin başlangıcına değil de sonuna koyarsanız, " **** " ***y gibi bir kelimeyi yakalayacaktır.
* Eğer kelimenin her iki tarafına da koyarsanız " ***** " içinde, *** kelimesi geçen her kelimeyi yakalayacaktır.

Talimatlar;

* Sadece #Bugra kanalında komutları çalışmaktadır.
* !kotusoz <küfür> / örnek : !kotusoz **** yazarak, kelime ekleyebilirsiniz.
* !kotusil <küfür> / örnek : !kotusil **** yazarak, kelime silebilirsiniz.

Ekteki, RAR dosyasını açtığınız da tekrar'dan benioku isimli notdefterini okuyabilirsiniz.

Cevap: /* Küfür Koruması (hash) */

Kod:

* Sadece #Bugra kanalında komutları çalışmaktadır.

* !kotusoz <küfür> / örnek : !kotusoz **** yazarak, kelime ekleyebilirsiniz.

* !kotusil <küfür> / örnek : !kotusil **** yazarak, kelime silebilirsiniz.

WingmaN, küfür ekleme olayını alias olarak yapsaydın daha iyi olurdu, Korumayı script'ine ekliyen. 2. bi nick sokarak küfür eklemesi zor olucakdır.

Kod:

on 1:start:{

  hmake kufur

  hload kufur kufur.bugra

}

on 1:text:*:#:{

  var %::text = $1-

  if $hfind(kufur,$1-,1,W).data && $nick {

    mode # +b $nick

    msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz >4,4 $hget(kufur,$hfind(kufur,$1-,1,W).data)

  }

}

alias küfür {

  if $1 == ekle {  

    hadd -m kufur $r(1000,999999) $2-

    hsave kufur kufur.mercy

    echo -a Kötü Söz Eklendi: $2-

  }

  elseif $1 == sil {

    if $hfind(kufur,$2-,1,W).data {

      hdel kufur $ifmatch

      hsave kufur kufur.mercy

      echo -a Kötü Söz Silindi: ( $+ $ifmatch $+ ) $2-

    }

    else {

      Echo -a Silmeye çalıştıgınız küfür listede yok,  $+(,$me,)

    }

  }

  elseif $1 == liste {

    echo -a $+(,$me,) Küfür listesi listeleniyor

    var %x = 1 

    while (%x <= $hget(Kufur,0).item) { 

      echo -a 4 $+ $hget(Kufur,%x).data 

      inc %x 

    }

    echo -a $+(,$me,) küfür liste sonu..

  }

}

on *:load:{

  echo -a 4|2WingmaN4| 2 Küfür korumanız Yüklenmiştir.

  echo -a 4<2WingmaN4> 2 Kurmak için > 4/kufurkur 2 yazabilirsiniz

}

alias kufurkur {

  hmake kufur

  hload kufur kufur.bugra

  echo -a 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.

}

Kırmızı ile belirttiğim yer :S ne işe yarıyor onu anlamadım.. ;|
/küfür ekle <kelime>
/küfür sil <kelime>
/küfür liste

komutlar bunlardır :)

Cevap: /* Küfür Koruması (hash) */

peki ben birsey soracam geliyorlar kufur ediyorlar misal s*e*x a*n*a*n*ı veya s/e/x a/n/a/n/ı gibi küfürler ediyorlar. onlarda çalışırmı ?

Cevap: /* Küfür Koruması (hash) */

Gökhan, küfürleri nasıl eklersen, o şekilde atar ama ben, bir çoğunu kaydettim zaten.

Duffy, Sanırım, kırmızı ile işaretlediğin yerin cevabını aslında, kendi ağzınla söylemişsin, yazdığını dikkatli oku bakalım ne demişsin? ;)

Ayrıca, verdiğin kod da hatalar var hemde, büyük hatalar. Dikkat et bakalım onlar neymiş? sonra, editle post'unu istersen.

Benim eklediğim koruma addon'unda, hata yoktur.

Cevap: /* Küfür Koruması (hash) */

Alıntı:

XPhytoN Nickli Üyeden Alıntı (Mesaj 533831)

Büyük hatalardan kastın nedir anlıyamadım onu. Ayrıca sadece alias'ları ekledim ben :) kod'una hiç dokunmadım, extra olarakda liste olayını ekledim. :) Büyük hataları gösterirsen sevinicem.

Kod:

on 1:start:{

hmake kufur

hload kufur kufur.bugra

}

on 1:text:*:#:{

var %::text = $1-

if $hfind(kufur,$1-,1,W).data && $nick {

mode # +b $nick

msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz >4 $hget(kufur,$hfind(kufur,$1-,1,W).data)

}

if $chan == #Bugra {

if $gettok($1-,1,32) == !kotusoz {

hadd -m kufur $r(1000,999999) $gettok($1-,2-,32)

hsave kufur kufur.mercy

msg # Kötü Söz Eklendi: $gettok($1-,2-,32)

}

if $gettok($1-,1,32) == !kotusil {

if $hfind(kufur,$gettok($1-,2-,32),1,W).data {

hdel kufur $ifmatch

hsave kufur kufur.mercy

msg # Kötü Söz Silindi: ( $+ $ifmatch $+ ) $gettok($1-,2-,32)

}

}

}

}

on *:load:{

echo -a 4|2WingmaN4| 2 Küfür korumanız Yüklenmiştir.

echo -a 4<2WingmaN4> 2 Kurmak için > 4/kufurkur 2 yazabilirsiniz

}

alias kufurkur {

hmake kufur

hload kufur kufur.bugra

echo -a 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.

}

;Coded by WingmaN Başlangıç ve Bitiş : 03:50 - 04:07

Buda senin eklediğin kod. :)

Cevap: /* Küfür Koruması (hash) */

Hmm evet haklısın, link'i yeniliyorum. Şuan ki ekteki korumayı indirebilirsiniz.

Teşekkürler Duff, hata benimmiş ;oki

Cevap: /* Küfür Koruması (hash) */

bi sorun var örnek olarak hot kelimesini ekledim. başa ve sonuna * eklemedim sadece hot olarak ekledim
[23:11] <Sugargirl> hot
sadece kanalda hot yazarsan banlıyor fakakat
[23:11] <Sugargirl> sugar hot ekle
bu şekilde yazıldında atmıyor veya
[23:11] <Sugargirl> ekle sugar hot
bu şekil yazdında atmıyor belki diceksiniz *hot* olarak ekle öle atıcaktır ama bazı kelimeleri yıldız icine alamıyorum yanlış ban atma olasılığı oluyor. yardım ederseniz sevinirim.

Cevap: /* Küfür Koruması (hash) */

Gulsum, kullandığın komut yanlış, düzgün okursan, daha iyi anlayacağından eminim, ayrıca Duffy, kodu değiştirmişsin, komutları dahil. Benim yazdığım bilgi ile alakası yok, kullanıcıları yanlış bilgilendirmezsen sevinirim.