on *:text:*:#scc-pre:{
  if (%preon = 1) {
    if (PRE isincs $1-) && (TV isincs $1-) { inc %scc-pre-nun | set [ %scc-pre [ $+ [ %scc-pre-nun ] ] ] $1- } 
  }
}
alias /preon { set %preon 1 | .timerscc-pre 0 10 scc-pree | echo -a PRE TV ATIVADO }
alias /preoff { set %preon 0 | unset %scc-pre* | .timerscc-pre off | echo -a PRE TV DESATIVADO }

alias scc-pree {
  if (%scc-pre-nun) {
    set %z 1
    while (%z <= %scc-pre-nun) {
      msg #tvs-pre [ %scc-pre [ $+ [ %z ] ] ]
      inc %z
    }
    unset %scc-pre*
  }
}