On *:TEXT:*:#source-pre: {
  if ($nick == oO) {
    if (%last1 != $4 && %last2 != $4) {
      var %pre.l $left($4,1)
      scid 1 msg #echo.pre 8[14PRE8] - 8[ $strip($2) 8] - $4 - 3( $time )
      write %pre.l $+ .txt $4 ~ $ctime
      set %last2 %last1
      set %last1 $4
    }
  }
}

on *:text:*:?:{
  if ($1 == !pre) {
    if ($2 == $null) { msg # $nick $+ , You need to use search string. }
    if ($2) {
      %s.letter = $left($2,1)
      if ($read(%s.letter $+ .txt,s,$2 != $null) {
        msg # Result: $2 was relesed $duration($calc($ctime - $read(%s.letter $+ .txt,s,$2))
      }
      else { msg # Sorry, No Results found }
    }
  }
}