on *:text:*PRED*:#teste:{
  set %clean $strip($1-,burc)
  set %release $gettok($gettok(%clean,5,93),2,91)
  set %type $gettok($gettok(%clean,4,93),2,91)
  set %cor $gettok($gettok(%clean,8,91),2,93)
  msg #testee !addold %type %release %cor 00:00:00
}