on *:TEXT:!send*:#: {
  set %recnick $2 
  set %sendnick $nick
  set %memo.msg $3-
  set %memotime $ctime($time(mmmm d yyyy HH:nn:ss))
  notice $nick Memo has been sent to %recnick $+ .
}
on *:JOIN:#:
if ($nick == %recnick) { notice $nick %sendnick has sent you a memo. Type !read to view it. }
}
on *:TEXT:!read:#: 
if ($nick == %recnick) { msg $nick Memo sent from %sendnick at %memotime $+ : | msg $nick %memo.msg | msg $nick End of message. }
}