#
# [ Start of the Searching ]
#
on !*:text:!readmsg *:#:{  
    IF ($nick == $2) {
    query $nick · · [ Searching for messages ] for $2-
    query $nick · · [ Displaying  ] :
    var %z = 0,%search = $+(*,$2-,*) 
    while ($read(msg.txt,w,%search,%z)) { 
      var %text = $read(msg.txt,w,%search,%z), %time = $calc($ctime - $gettok(%text,1,32))
      query $nick $gettok(%text,2-,32) - $duration(%time) ago 
      var %z = $calc($readn + 1)
    } 
    query $nick · · [ End Of Messages ] for $2-
    close -m $nick
  }
  ELSE { 
    query $nick you may only read messages for you
  }
}
#
# [ Start of the leave messages ]
#
on !*:TEXT:!message *:#: {
      write msg.txt $ctime - · [ FROM: $nick ] [ TO: $2 ]  $3-
      query $nick the following Msg has been Saved list
      timer 1 1 query $nick · [ TO $2 ] $3- 
      close -m $nick
}