mayusculas para justin.tv

 Comando para las mayusculas los comandos son !mayus on y !mayus off este comando va metido en remote de su mirc




on @*:text:*:#:nocaps $1-
on @*:notice:*:#:nocaps $1-
alias -l nocaps {
  if (($nick isop #) && ($regex($1-,/^!MAYUS (on|off|set\s(\d+))/iS))) {
    goto $replace($regml(1),on,on,off,off,set,set) | :on
    if !$istok(%mayusculaschan,#,32) {
      set %mayusculaschan $addtok(%mayusculaschan,#,32)
      .describe # * Proteccion de mayusculas activada en: # | halt
    }
    else { .describe # *  Proteccion de mayusculas desactivada en: # | halt }
    :off | if $istok(%mayusculaschan,#,32) {
      set %mayusculaschan $remtok(%mayusculaschan,#,1,32)
      .describe # * Proteccion de mayusculas desactivada en: # | halt
    }
    else { .describe # * Proteccion de mayusculas desactivada en: # | halt }
    :set | set %mayusculas $regml(2) | .describe # * Aviso/Kick/Ban al %mayusculas $+ % de mayusculas. | halt
  }
  else {
    if $findtok(%mayusculaschan,#,1,32) {
      var %percent $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
      if (($nick(#,$nick,vr)) && ($len($1-) > 5) && (%percent > %mayusculas)) {
        inc -e $+(%,caps,.,$nick,.,#) | if $($+(%,caps,.,$nick,.,#),2) > 1 {
          kick # $nick | describe # $nick A la pared 10 min. por usar mayusculas >(.
        }
        else {
          msg # $nick $+ , Por favor descativa las mayusculas. Ultimo aviso >(.
        }
      }
    }
  }
}