Forums mIRC Help Displaying Text from a .txt

  %nickname = the_nickname_to_search_for, maybe $2 ...

  %found = $read(file.txt, s, %nickname)

  /if (%found) {
    %time = $mid(%found, 3, 8)
    %date = $mid(%found, 12, 10)

    %ctime = $ctime(%date %time)
    %print = $format_time($calc($ctime - %ctime))

    /msg $chan %nickname %found :: %print ago
  }

  /else {
    /msg $chan Nothing was found about %nickname
  }

  /unset %found
  /unset %print
  /unset %nickname

format_time {
  %value = $1

  /unset %result

  %year = $floor($calc(%value / (365 * 86400)))
  %value = $calc(%value % (365 * 86400))
  /if (%year) { %result = %year $+ year }

  %day = $floor($calc(%value / 86400))
  %value = $calc(%value % 86400)
  /if (%day) { %result = %result %day $+ day }

  %hour = $floor($calc(%value / 3600))
  %value = $calc(%value % 3600)
  /if (%hour) { %result = %result %hour $+ hr }

  %min = $floor($calc(%value / 60))
  %value = $calc(%value % 60)
  /if (%min) { %result = %result %min $+ min }

  /if (%value) { %result = %result %value $+ sec }

  /unset %year
  /unset %day
  /unset %hour
  /unset %min
  /unset %value

  /return %result
}

on *:text:!search *:#:{
  if $read([color:blue]file.txt[/color],w,$2 *) {
    msg # $ifmatch :: $duration($calc($ctime - $ctime($gettok($ifmatch,3-,32)))) ago
  }
  else msg # $2 not found
}