Raw 478:*:{
  .sil $2
}
alias sil {
  var %u $calc($ibl($1,0)-10)
  while (%u <= $ibl($1,0)) { 
    .mode $1 -b $ibl($1,%u)
    inc %u
  }
}

inc %reklam.$chan [ $+ [ $nick ] ]
if (%reklam.$chan [ $+ [ $nick ] ] == 1) { 
.msg $chan $nick Reklam Yaptın Bi daha Olmasın...
}
else { 
.ban $chan $nick
.kick $chan $nick Reklam!!!
}

alias allowedcaps { return 70 }
on @*:TEXT:*:#:{ 
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(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 %caps = $calc($len($1-) - $len($removecs($1-,($1-),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 %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) { 
	ban # $nick 2
	kick # $nick Caps Allowed: $allowedcaps $+ $chr(37) Caps Used: %caps.percent $+ $chr(37) ) 
}
}