Mine

On *:TEXT:*:#sparta-pre: {
  if ($nick == GOD) {
    if ($strip($1) != NUKE) {
      set %pre.l $left($5,1)
      scid 1 msg #echo.pre 8[14PRE8] - 8[ $strip($3) 8] - $5 - 3( $time )
      write $+(PRETXT,\,$eval(%pre.l $+ .txt,2)) $5 ~ $ctime
    }
  }
}

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