on ME:*:JOIN:#:who #

on *:join:#: {
  if (s isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick J $nick $right($address($nick,0),-2) $ctime a secret channel }
  elseif (p isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick J $nick $right($address($nick,0),-2) $ctime a private channel }
  else { hadd -m Seendata $network $+ . $+ $nick J $nick $right($address($nick,0),-2) $ctime $chan  }
  hsave -bio Seendata Seendata.hsh
}

on *:PART:#: {
  if (s isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick P $nick $right($address($nick,0),-2) $ctime a secret channel }
  elseif (p isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick P $nick $right($address($nick,0),-2) $ctime a private channel }
  else { hadd -m Seendata $network $+ . $+ $nick P $nick $right($address($nick,0),-2) $ctime $chan }
  hsave -bio Seendata Seendata.hsh
}

on *:QUIT: {
  if (s isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick Q $nick $right($address($nick,0),-2) $ctime a secret channel }
  elseif (p isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick Q $nick $right($address($nick,0),-2) $ctime a private channel }
  else { hadd -m Seendata $network $+ . $+ $nick Q $nick $right($address($nick,0),-2) $ctime $chan }
  hsave -bio Seendata Seendata.hsh
}

on *:NICK: {
  hadd -m Seendata $network $+ . $+ $nick N $nick $right($address($newnick,0),-2) $ctime $newnick $chan
  hadd -m Seendata $network $+ . $+ $newnick N $newnick $right($address($newnick,0),-2) $ctime $nick $chan
  hsave -bio Seendata Seendata.hsh
}

on *:KICK:#: {
  if (s isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $knick K $knick $right($address($knick,0),-2) $ctime a secret channel }
  elseif (p isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $knick K $knick $right($address($knick,0),-2) $ctime a private channel }
  else { hadd -m Seendata $network $+ . $+ $knick K $knick $right($address($knick,0),-2) $ctime $chan }
  hsave -bio Seendata Seendata.hsh
}

on *:START: {
  hmake Seendata 200
  hload -bi Seendata Seendata.hsh
}

on *:text:*:#: {
  if (s isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick M $nick $right($address($nick,0),-2) $ctime a secret channel }
  elseif (p isincs $chan($chan).mode) { hadd -m Seendata $network $+ . $+ $nick M $nick $right($address($nick,0),-2) $ctime a private channel }
  else { hadd -m Seendata $network $+ . $+ $nick M $nick $right($address($nick,0),-2) $ctime $chan }
  hsave -bio Seendata Seendata.hsh

  if ($1 == !seen) && ($2 != $null) {
    if ($3 != $null) { halt }
    if ($2 == $nick) {
      msg $chan Are you serious $nick $+ ?
      halt
    }
    if ($2 == $me) {
      msg $chan Are you serious $nick $+ ?
      halt
    }
    if ($2 ison $chan) {
      msg $chan $nick $+ , $2 is here.
      halt
    }
    if ($hfind(Seendata,$network $+ . $+ $2) == $null) {
      msg $chan $nick $+ , $2 has not been seen lately.
      halt
    }
    else {
      set %seenres $hget(Seendata,$hfind(Seendata,$network $+ . $+ $2))
      if ($left(%seenres,1) == J) {
        msg $chan $nick $+ , $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago joining $gettok(%seenres,5-,32) $+ .
        halt
      }
      if ($left(%seenres,1) == P) {
        msg $chan $nick $+ , $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago parting $gettok(%seenres,5-,32) $+ .
        halt
      }
      if ($left(%seenres,1) == Q) {
        msg $chan $nick $+ , $2 was last seen in $gettok(%seenres,5-,32) $duration($calc($ctime - $gettok(%seenres,4,32))) ago quitting.
        halt
      }
      if ($left(%seenres,1) == K) {
        msg $chan $nick $+ , $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago getting kicked from $gettok(%seenres,5-,32) $+ .
        halt
      }
      if ($left(%seenres,1) == M) {
        msg $chan $nick $+ , $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago talking in $gettok(%seenres,5-,32) $+ .
        halt
      }      
      if ($left(%seenres,1) == N) {
        msg $chan $2 was last seen changing nickname to $gettok(%seenres,5,32) $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
        set %seenres2 $hget(Seendata,$hfind(Seendata,$gettok(%seenres,5,32)))
        if ($gettok(%seenres,5,32)) !ison $chan) { msg $chan $gettok(%seenres,5,32)) was last seen $duration($calc($ctime - $gettok(%seenres2,4,32))) ago. }
        if ($gettok(%seenres,5,32)) ison $chan) { msg $chan $gettok(%seenres,5,32)) is here. }
        halt
      }
    }
  }   
  if ($1 == !seen) && ($2 == $null) {
    msg $chan $nick $+ , who are you looking for?
    return
  }
  else {
    return
  }
}