on *:text:*:#CANAL:{
  if (($nick == BOT) && ($network == REDE)) {
    set -u10 %pre $strip($1-)
    if ((..:: PRE* iswm %pre) || (..:: NUKE* iswm %pre) || (..:: UNNUKE* iswm %pre)) { 
write DB.txt $gettok(%pre,2,32) $gettok(%pre,5,32) $gettok(%pre,8,32) $date $time 
    }
  } 
}