Mine

on *:TEXT:!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 }
}

on *:TEXT:!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 }
}