on *:text:*:#Canal:{
  if ($nick == BOT) && ($network == REDE) {
    set -u10 %pre $strip($1-)
    if (PRE isin %pre) { escreverpre }
    if (NUKE isin %pre) { escreverpre }
    if (UNNUKE isin %pre) { escreverpre }
  } 
}
alias escreverpre {
  write DB.txt $date $time ( $gettok(%pre,2,32) ) - $gettok(%pre,4,32) - ( $gettok(%pre,6,32) )
}