O.K. Feast your eyes on some more greek smile
Code:
on $&^*:text:/\b(new|done)\b/Si:*:{
  var %a = $regsubex($1-,/\b(new)\b/gi,3\t)
  var %a = $regsubex(%a,/\b(done)\b/gi,4\t)
  echo -mirctbfl normal $iif(#,#,$nick) $+(<,$nick,>) %a
  haltdef
}


This line checks for the words "new" or "done" in a message.
on $&^*:text:/\b(new|done)\b/Si:*:{

Replace all instances of "new" with (coloured) "new"
var %a = $regsubex($1-,/\b(new)\b/gi,3\t)

Replace the word(s) "done" with "done"
var %a = $regsubex(%a,/\b(done)\b/gi,12\t)

Display the line
echo -mirctbfl normal $iif(#,#,$nick) $+(<,$nick,>) %a

Halt the default output
haltdef

The end of the script
}