Büyük Harf Koruması Kodları

[Root]

2022 İRCforum.com forum sitesi Bu hazır kod ile op olduğunuz kanallarda, yazılan satırlar içinde aşırı derecede büyük harf yazımı yapan kullanıcıları banlayıp atmış olursunuz. Bu kod kanalda op olan kullanıcılara işlem yapmayacaktır. Kanalda yazılan satır karakter uzunluğu 15 den büyük olması durumunda çalışır. Bu karakter uzunluğunu, Hazır kod içinde ” if ($len($1-) < 15) ” kısmıda oynama yaparak kendinize göre ayarlayabilirsiniz. Ayrıca yazılan satırda, büyük harf kullanımı ” yüzde 70 ” in üzerinde olan metin yazılarına işlem yaptırmış olursunuz. Bu kısımda kendinize göre düzenleme için kod içinde ” if (%sohbet >= 0.7) { ” satırında ” 0.7 ” bölümü ile yapabilirsiniz. Bu şekilde ” %70 ” üzeri büyük harf kullanımı yapan kullanıcılar atılmış olacaktır. Mevcut hazır kodu mirc remote kısımına kopyalayınız. Ayrıca büyük harf koruma görüntüsü, uygulamalı olarak kodun altında görebilirsiniz

on @*:TEXT:*:#: {
if $nick isop $chan { halt }
if ($len($1-) < 15) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %ncs = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O ,P,Q,R,S,T,U,V,W,X,Y,Z))
var %ns = $len($strip($remove(%text,$chr(32))))
var %sohbet = $calc(1 - (%ncs / %ns))
if (%sohbet >= 0.7) {
ban -k $chan $nick 2 2Büyük Harf Kullanımı Yasaktır.Yazmış olduğunuz satırlarda yüzde - $calc(%nsohbet * 100) - oranında büyük harf kullanımı yaptınız.
unset %buyuk. $+ $nick
}

REgex ile yazılmış büyük harf korumasi kod’udur.

on @*:text:*:#: {
if ($len($1-) >= 20 ) {
if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {
ban -ku600 $chan $nick Büyük Harf Koruması…! )
}
}
}

ircforumları - ircforumlar

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on
on @*:TEXT:*:#: {
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if ($len($1-) < 50) || ($nick isop #) return
  var %text = $strip($remove($1-,$chr(32)))
  var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  var %full.line = $len($strip($remove(%text,$chr(32))))
  var %percent = $calc(1 - (%non.caps / %full.line))
  if (%percent >= 0.8) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick  CAPS LOCK/OFF  ( $+ % $+ $calc(%percent * 100) $+ )
    unset %CAPS. $+ $nick
  }
}

#caps end