;remote6
on @1:notice:*:#: if (%Noticepro == ON) { if (*serv* iswm $nick) { halt } | /noticeprokick }
on @1:text:**:#: if (%color == ON)  { if ($nick !isop $chan) colorkick }
on @1:text:**:#: if (%color == ON)  { if ($nick !isop $chan) colorkick }
on @1:action:**:#: if (%color == ON) { if ($nick !isop $chan) colorkick }

on @1:TEXT:*:#:{
  if (%flood == ON) { 
    inc %floodn.XXX [ $+ [ $nick ] $+ [ $chan ] ] 
    .timer 1 %fl.time unset %floodn.XXX [ $+ [ $nick ] $+ [ $chan ] ] 
    if (%floodn.XXX [ $+ [ $nick ] $+ [ $chan ] ]  >= %fl.lines) { goto kill }
    else { goto end }
    :kill
    if (($nick isop $chan) || ($nick isvo $chan)) { halt }
    else { ignore -u10 $nick | floodkick }

    :end
  }
}
on @1:ACTION:*:#:{
  if (%flood == ON) { 
    inc %floodact.XXX [ $+ [ $nick ] $+ [ $chan ] ]
    .timer 1 %fl.time unset %floodact.XXX [ $+ [ $nick ] $+ [ $chan ] ] 
    if (%floodact.XXX [ $+ [ $nick ] $+ [ $chan ] ]  >= %fl.lines) { goto kill }
    else { goto end }
    :kill
    if (($nick isop $chan) || ($nick isvo $chan)) { halt }
    else { ignore -u10 $nick | floodkick }

    :end
  }
}
on 1:deop:#: {
  if (%deop == ON) { 
    if ($opnick == $me) && ($nick != $me) { deopkick }
  }
}

alias capsop {
  var %textok = $strip($remove($1-,$chr(32)))
  var %textlen = $len(%textok)
  var %nocaps = $removecs(%textok,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 %nocapslen = $len(%nocaps)
  var %capslength = %textlen - %nocapslen
  var %capsrat = %capslength / %textlen
  return %capsrat
}
