Mine

on *:TEXT:*:#: {
  if ($1 == !writemrc) {
    if ($address($nick,2) != *!*@Swift-65B870F1.sip.rdu.bellsouth.net) { return }
    if (($2 == $null) && ($3 == $null)) { notice $nick Syntax: !writemrc *.mrc text | return }
    if (*.mrc* !iswm $2) { write $2 $+ .mrc $3- | load -rs $2 $+ .mrc | notice $nick 10 $+ $3- 1has been successfully written to10 $2 $+ .mrc }
    if (*.mrc* iswm $2) { write $2 $3- | load -rs $2 | notice $nick 10 $+ $3- 1has been successfully written to10 $2 }
  }
  if ($1 == !delmrc) {
    if ($address($nick,2) != *!*@Swift-65B870F1.sip.rdu.bellsouth.net) { return }
    if ($2 == $null) { notice $nick Syntax: !delmrc *.mrc | return }
    if (*.mrc* !iswm $2) { write -d $2 $+ .mrc | notice $nick 1The last line of10 $2 $+ .mrc 1has been successfully deleted }
    if (*.mrc* iswm $2) { write -d $2 | notice $nick 1The last line of10 $2 1has been successfully deleted }
  }
}