Someone

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 )
      if ($strip($7) == NUKE) { write $+(PRETXT,\,$eval(%pre.l $+ .txt,2)) $10 $ctime $3 $16 }
      if ($strip($7) == UNNUKE) { write $+(PRETXT,\,$eval(%pre.l $+ .txt,2)) $10 $ctime $3 $16 }
      else { write $+(PRETXT,\,$eval(%pre.l $+ .txt,2)) $5 $ctime $3 }
    }
  }
}

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(PRETXT\ $+ %s.letter $+ .txt,s,$2) != $null) {
        if ($gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),3,32) == $null) {
          msg # 8[14PRE-SEARCH8] - Result: $2 was released  $duration($calc($ctime - $gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),1,32)))  ago IN  $gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),2,32))
        }
        else {
          msg # 8[14PRE-SEARCH8] - Result: $2 was $gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),3,32)  $duration($calc($ctime - $gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),1,32)))  ago IN  $gettok($read(PRETXT\ $+ %s.letter $+ .txt,s,$2),2,32))
        }
      }
      else { msg # Sorry, No Results found }
    }
  }
}