Webmaster  Forumu

Geri git   Webmaster Forumu > ıRC FORUM > mIRC Scripting ve Sohbet Programları > Hazır Kodlar

Cevapla
 
Seçenekler Stil
Alt 06-10-2008, 02:02 PM   #1
XcLusive
Webmaster
 
XcLusive - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2008
Mesajlar: 59
Tecrübe Puanı: 10
XcLusive is on a distinguished road
Standart Karakterli Yazı Biçimleri için Koruma


son zamanlarda sunucularda;

K*E*L*İ*M*E* D*E*N*E*M*E* B*İ*L*M*E*M* N*E
K/E/L/İ/M/E/ D/E/N/E/M/E B/İ/L/M/E/M/ N/E
K'E'L'İ'M'E D'E'N'E'M'E B'İ'L'M'E'M' N'E

bu şekilde karakterli yazı yazıp küfür etmeye çalışan karaktersiz insanlar için güzel bir seçim olduğunu düşünüyorum
bu korumayı kendi botum için yazmıştım gerektiğinde kapatıp açıyordum ve sizinle paylaşmak istedim, umarım işinize yarar..
kodu açıkladım gerekli yerleri kendinize göre düzenlersiniz nickleri, kanalları ve hostları muaf tutabilirsiniz..
alias karakterist kısmında en alt satırda
>= 15) { return $true }
satırını göreceksiniz 15 sayısı cümlenin içinde * ' ^ + ! " gibi karakterlerin sayısını belirtiyor
yani cümlenin içinde o karakterlerden herhangi birinin 15 taneye denk gelmesi sonucu işleme geçecektir
siz bunu 10, 13 , 14 gibi değerler ile değiştirebilirsiniz ben normal olarak 15 yaptım.
ayrıca eschat kullanıcıların etkilenmemesi için eschat smilelerinide esgeçtim
<nick> :\:\:\
<nick> :*:*:*
gibi eschat smileleri bulunmakta, bunlarıda algılamaması için birkaç kod var rahat olabilirsiniz
karaktersiz insanlar için karakterist bir çözüm

Kod:
alias karakterist {
  var %::text = $1-,%t = $mid(%::text,1,2))
  if ($istok($+($chr(58),$chr(42)) $+($chr(58),$chr(92)) $+($chr(58),$chr(41)) $+($chr(58),$chr(63)) $+($chr(58),$chr(100)) $+($chr(58),$chr(47)) $+($chr(58),$chr(39)) $+($chr(56),$chr(41)) $+($chr(59),$chr(41)) $+($chr(58),$chr(40)) $+($chr(58),$chr(112) $chr(59) $+ $chr(40)),%t,32)) { return $false }
  %::text = $remove(%::text,: $+ $chr(42),: $+ $chr(92),: $+ $chr(41),: $+ $chr(63),: $+ $chr(100),: $+ $chr(47),: $+ $chr(39),$chr(56) $+ $chr(41),$chr(59) $+ $chr(41),: $+ $chr(40),: $+ $chr(112),$chr(59) $+ $chr(40))
  if ($regex(%::text,/(\!|\"|\,|\.|\'|\^|\+|\%|\&|\/|\(|\)|\=|\*|\_|\;|\`|\/|\{|\[|\]|\}|\||\\)/g) >= 10) { return $true }
  else { return $false }
}
on @*:text:*:#:{
  ;muaf tutulacak kanallar
  if ($istok(#help #operhelp #oyun #kelime,$chan,32)) { halt }
  ;muaf tutulacak nickler
  if ($istok(HaLiL XcLusive Ahmet Mehet,$nick,32)) { halt }
  ;muaf tutulacak hostlar
  if ($regex($address($nick,2),/(helper|admin|ircop|services|tech|global)/i)) { halt }
  if ($karakterist($1-)) { ban -k $chan $nick 2 Çok Fazla Karakter İçerikli Yazı! }
}
__________________
Cahillik Eğitilebilir ama Aptallık Asla!

Konu XcLusive tarafından (06-10-2008 Saat 09:11 PM ) değiştirilmiştir.
XcLusive isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 06-11-2008, 02:30 PM   #2
XcLusive
Webmaster
 
XcLusive - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2008
Mesajlar: 59
Tecrübe Puanı: 10
XcLusive is on a distinguished road
Standart


Kod:
on @*:text:*:#:{
  var %yüzde = 20
  ;muaf tutulacak kanallar
  if ($istok(#help #operhelp #oyun #kelime,$chan,32)) { halt }
  ;muaf tutulacak nickler
  if ($istok(HaLiL XcLusive Ahmet Mehet,$nick,32)) { halt }
  ;muaf tutulacak hostlar
  if ($regex($address($nick,2),/(helper|admin|ircop|services|tech|global)/i)) { halt }
  if ($nick !isreg $chan) { halt }
  var %::text = $1-,%t = $mid(%::text,1,2)),%x = $remove($1,$chr(40),$chr(41)),%',%!,%?
  if ($len(%x) <= 20) { halt }
  %::text = $remove(%::text,: $+ $chr(42),: $+ $chr(92),: $+ $chr(41),: $+ $chr(63),: $+ $chr(100),: $+ $chr(47),: $+ $chr(39),$chr(56) $+ $chr(41),$chr(59) $+ $chr(41),: $+ $chr(40),: $+ $chr(112),$chr(59) $+ $chr(40))
  if ($regex(%::text,/(\)|\(|\´|\^|\<|\>|\!|\"|\,|\.|\'|\~|\+|\%|\&|\/|\=|\*|\_|\-|\;|\`|\/|\{|\[|\]|\}|\|)/g)) { 
    %' = $len(%x)
    %! = $int($calc($regml(\1) * 100 / %'))
    %? = $regml(1)
    if (%! >= %yüzde) { ban -k $chan $nick 2 $len(%x) harflik cümlede $+(%,%!) oranında %? karakter kullandınız }
  }
}
buda % oranlı versiyonu, tek yapmak gereken % oranını belirtmek.
var %yüzde = 20 < %20 için ayarlanmış konumda
var %yüzde = 50 < %50
var %yüzde = 10 < %10
var %yüzde = 25 < %25

gibi ayarlamak gerekli.

örnek :
[14:21:36] <Guest12848> as/df/ghj/klq/asdf/ghjk/lq
[14:21:36] *** HaLiL mod değiştirdi:+b *!*@86289431.D3EDEEA0.115B38CC.IP
[14:21:36] *** Guest12848 HaLiL Tarafından Kanaldan Atıldı (26 harflik cümlede %23 oranında / karakter kullandınız)
__________________
Cahillik Eğitilebilir ama Aptallık Asla!
XcLusive isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


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ı

Hizli Erisim


WEZ Format +3. Şuan Saat: 11:25 AM.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.
webmaster