Stuff

on *:text:!pre*:#d&r:{
  if ($2) {
    if ( isin $2-) { msg # Info| Try without colors. One-time response to colors. Next time you will be kicked. | halt }
    var %temp $read(db\db.txt,w,* $+ $2- $+ *)
    if (%temp) {
      set %temp_ $gettok(%temp,1,32)
      if (%temp_ = PRE) { msg # Search| $gettok(%temp,3,32) got released $duration($calc($ctime - $ctime($gettok(%temp,4-,32)))) ago. }
      else { msg # Search| $gettok(%temp,2,32) got nuked $duration($calc($ctime - $ctime($gettok(%temp,4-,32)))) ago. [ $gettok(%temp,3,32) ] }
    }
    else { msg # Search| Sorry I have no  $+ $2- $+  in the data base. }
  }
  else {
    var %temp $read(ddb.txt,$lines(db.txt))
    set %temp_ $gettok(%temp,1,32)
    if (%temp_ = PRE) { msg # Search| $gettok(%temp,3,32) got released $duration($calc($ctime - $ctime($gettok(%temp,4-,32)))) ago. }
    else { msg # Search| $gettok(%temp,2,32) got nuked $duration($calc($ctime - $ctime($gettok(%temp,4-,32)))) ago. [ $gettok(%temp,3,32) ] }
  }
}