|
İçeriği Görebilmeniz için Üye olmalı / Giriş Yapmalısınız..!
|
|
Alıntı:
Ardanl_ Nickli Üyeden Alıntı
Emeğine sağlık ama özel isimler ve kelime başlangıçları büyük harf ile başlamalı sürekli büyük harf kullanan için geçerli olsa daha güzel olmaz mı ?
|
@Ardanl öncelikle merhaba yukarıda açıklama kısmında ilk harf büyükse önce ban atar yazmışım yanlış demişim orada dogrusu ilk kelime büyükse ban atar.
Örnek;
Kod
[20:54:27] <BoZo> Selam bu bir denemedir
[20:54:29] <BoZo> Selam bu bir denemedir
[20:54:31] <BoZo> Selam bu bir denemedir
[20:54:33] <BoZo> -
[20:54:35] <BoZo> SELAM bu bir denemedir
[20:54:36] <BoZo> SELAM bu bir denemedir
[20:54:36] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[20:54:36] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-1 1. Kelimeyi baz alır ve işlem yapar.
Kod
on *:text:*:#mirchelp: {
if $nick($chan,$nick,.~&@%).pnick { return }
if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
if $isupper($karaktertemizle($strip($1))) {
inc -u300 $+(%,BüyükHarfUyarı.,$nick)
if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
}
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
$chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
$chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
$chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
$chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}
1. de yazıldıgında işlem yapmaz 2. yazıldıgında işlem yapar. ama diyelim ki NİCK büyük ve bu şekilde yazılacak o zaman kod degiştirilmesi gerekiyor. 1 kelime baz alma 2 kelimeyi baz al ve işlem yap. Oda şu şekilde olur.
Bu kısmı;
Kod
if $isupper($karaktertemizle($strip($1))) {
Bu şekilde değiştiriyoruz;
Kod
if $isupper($karaktertemizle($strip($2))) {
Sonuç;
Kod
[21:01:13] <BoZo> ARDA orda mısın bu bir deneme
[21:01:14] <BoZo> ARDA orda mısın bu bir deneme
[21:01:15] <BoZo> ARDA orda mısın bu bir deneme
[21:01:16] <BoZo> -
[21:01:20] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <BoZo> Arda ORDA mısın bu bir deneme
[21:01:21] <&Forbidden> BoZo Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir.
[21:01:21] * Forbidden mod değiştirdi:+b BoZo!*Unknown@55.62.34B5640F.IP
Kod-2 2. Kelimeyi baz alır ve işlem yapar.
Kod
on *:text:*:#mirchelp: {
if $nick($chan,$nick,.~&@%).pnick { return }
if $istok(Muafnick1 MuafNick2 MuafNick3,$nick,32) { return }
if $isupper($karaktertemizle($strip($2))) {
inc -u300 $+(%,BüyükHarfUyarı.,$nick)
if $eval($+(%,BüyükHarfUyarı.,$nick),2) = 2 { msg $chan $nick Büyük harf kullanımı yasaktır. 2 Dakika konusmanız yasaklanmistir. | ban -u120 $chan $nick }
elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 3 { msg $chan $nick Büyük harf kullanımı yasaktır. Devam ederseniz sunucuda susturulacaksınız. }
elseif $eval($+(%,BüyükHarfUyarı.,$nick),2) = 4 { Shun $nick Sunucu kurallarına uymadıgınız için shunlandınız. Lütfen kurallara uyun. }
}
}
alias karaktertemizle { return $remove($1-,$chr(33),$chr(34),$chr(35),$chr(36),$chr(37),$chr(38),$chr(39),$chr(40),$chr(41),$&
$chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$&
$chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(123),$chr(124),$chr(125),$chr(126),$&
$chr(127),$chr(128),$chr(129),$chr(130),$chr(131),$chr(132),$chr(133),$chr(134),$chr(135),$&
$chr(136),$chr(137),$chr(138),$chr(139),$chr(140),$chr(145),$chr(146),$chr(147),$chr(148),$chr(149),$chr(150))
}
|