Mine

on *:TEXT:!writemrc*:#: {
  if ($address($nick,2) == $address($me,2)) { 
  if (($2 == $null) && ($3 == $null)) { notice $nick Syntax: !writemrc *.mrc text | halt }
  elseif (*.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- | load -rs $2 | notice $nick 10 $+ $3- 1has been successfully written to10 $2 }
}

on *:TEXT:!delmrc*:#: {
  if ($address($nick,2) == $address($me,2)) { 
  if ($2 == $null) { notice $nick Syntax: !delmrc *.mrc | halt }
  if (*.mrc* !iswm $2) { write -d $2 $+ .mrc | notice $nick 1The last line of10 $2 $+ .mrc 1has been successfully deleted }
  elseif (*.mrc* iswm $2) { write -d $2 | notice $nick 1The last line of10 $2 1has been successfully deleted }
}