EasyProtec

;IRcap8 551ad36a723469c214def9c7fc623db3

on 1:START: {
  unset %c.*
  .mkdir $mircdirguardian
  echo -s para agregar un canal usa /ADDCHAN #canal
  echo -s para eliminar un canal usa /DELCHAN #canal
}

on @1:TEXT:*:*: {
  set -u2 %c.prot $mircdirguardian\ $+ $lower($chan) $+ .data
  if (($nick !isop $chan) && ($nick !isvo $chan)) {
    if ($exists(%c.prot) == $true) {
      if  ($len($strip($1-)) > 3) {
        if (($caps($strip($1-)) > 39) && ($nonick($chan,$strip($1-)) !isnum 1-2)) {
          if  (%c. [ $+ [ $nick ] ] >= 2)  {
            .raw mode $chan +b $address($nick,2)
            .kick $chan $nick El uso de mayúsculas no está permitido, usted usó $+(,$caps($strip($1-)),%,,) de mayúsculas en su escritura
            unset %c. [ $+ [ $nick ] ]
          }
          else {
            inc %c. [ $+ [ $nick ] ] 1
            set -u1 %temp %c. [ $+ [ $nick ] ]
            msg $chan $+(,$nick,) No use mayúsculas en su escritura, no está permitido $+(,Aviso Nº,%temp,)
          }
        }
        if ($usafondos($remove($1-,$chr(32))) isnum 1-2) {
          if (%c.padding. [ $+ [ $nick ] ] > 1) {
            bk $nick Usar fondos resulta molesto para la correcta lectura, Por favor no los use.
            kick $chan $nick Usar fondos resulta molesto para la correcta lectura, Por favor no los use. (Estás baneado de # ( $+ fulldate $+ ))
            unset %c.padding. [ $+ [ $nick ] ]
          }
          else {
            inc %c.padding. [ $+ [ $nick ] ]
            set -u1 %pdg %c.padding. [ $+ [ $nick ] ]
            msg $chan $+(,$nick,) Por favor no use fondos, resulta molesto para la lectura, Desactivelos. Aviso Nº %pdg 
          }
        }
        agradece $nick $chan $1-
      }
    }
  }
}

on 1:LOAD: {
  .mkdir $mircdirguardian
}

alias agradece {
  if ((%c. [ $+ [ $1 ] ] > 0)  && ($caps($strip($3-)) < 39)) {
    msg $2 $+(,$1,) Gracias por comprender, recuerde que las mayúsculas están prohibidas.
    unset %c. [ $+ [ $1 ] ]
  }
  if ((%c.padding. [ $+ [ $1 ] ] > 0) && ($usafondos($remove($3-,$chr(32))) !isnum 1-2)) {
    msg $2 $+(,$1,) Gracias por comprender, recuerde que usar fondos en la escritura está prohibido.
    unset %c.padding. [ $+ [ $1 ] ]
  }
}

alias usafondos {
  ;por cliente & web
  if ($pos($1-,$chr(44)) != $null) {
    echo $nick pillo la coma en $chan PS: $pos($1-,$chr(44)) / NEXT: $mid($1-,$calc($pos($1-,$chr(44)) - 1),1) NEXT2 : $mid($1-,$calc($pos($1-,$chr(44)) + 1),1)
    if (($chr(3) == $mid($1-,$calc($pos($1-,$chr(44)) - 2),1)) || ($chr(3) == $mid($1-,$calc($pos($1-,$chr(44)) - 3),1))) {
      if ($mid($1-,$calc($pos($1-,$chr(44)) - 1),1) isnum 0-15) {
        if ($mid($1-,$calc($pos($1-,$chr(3)) + 1),1) isnum 0-15) {
          return 1
        }
      }
    }
  }
  else {
    return 0
  }
}

alias -l caps {
  var %work = $remove($1-,$chr(32))
  var %bits = $len(%work)
  var %vector = 0
  while (%bits > 0)  {
    if ($asc($mid(%work,%bits,1)) isnum 65-90) {
      inc %vector
    }
    dec %bits
  }
  return $int($calc($calc(%vector * 100) / $len($1-))))
}

alias addchan {
  if ($chr(35) == $left($1,1)) {
    if ($exists($mircdirguardian\ $+ $1 $+ .data) == $true) {
      echo -s el canal $+(12,$1,) ya existe.
    }
    else {
      write -c " $+ $mircdirguardian\ $+ $1 $+ .data" File data mirc
      echo -s $+(12,$1,) agregado correctamente.
    }
  }
  else {
    echo -s el formato no es válido ó no existe el canal.
  }
}

alias delchan {
  if ($chr(35) == $left($1,1)) {
    if ($exists($mircdirguardian\ $+ $1 $+ .data) == $true) {
      remove " $+ $mircdirguardian\ $+ $1 $+ .data"
      echo -s el canal $+(12,$1,) a sido eliminado.
    }
    else {
      echo -s el canal $+(12,$1,) no existe.
    }
  }
  else {
    echo -s el formato no es válido ó no existe el canal.
  }
}


alias nonick {
  set %tmp.chan $1
  set %tmp.frase $2
  set %tmp.user 1
  set %positivo 0
  while (%tmp.user <= $nick(%tmp.chan,0)) {
    if ($nick(%tmp.chan,%tmp.user) !isin %tmp.frase) {
      inc %tmp.user 1
    }
    else {
      set %positivo 1
      halt
    }
  }
  unset %tmp.*
  return %positivo | unset %positivo
}

[ADDON]
autor=dSi
ver=BETA
desc=Control de CAPS y Fondos de texto
nombre=EasyProtec