Just uploading my useless scripts.. someone might make use of them.. S:

Can't remember exactly when I made it, not important anyway.. load it into remotes and ta-da plenty of these horrible little things about... just got bored I guess.

on 1:input:#:{
  if ($left($1,1) != /) && ($right($1,1) == ;) {
    say $+(@,$ialchan($+($remove($1,$right($1,1)),*!*@*),#,1).nick,:) $2-
    haltdef
  }
}