/ScriptServ

;%%%%%%%%%%%%%%%%%%%%%%%%
;script iSeen
;version 1.00
;author icN
;email icn@ircn.com
;url http://www.ircN.com
;%%%%%%%%%%%%%%%%%%%%%%%%
on 1:PART:# { if (($ulevel >= 40) && ($usr($nick))) writeini $sys(ircndata.ini) $usr($nick) seen $ctime }
on 1:QUIT { if (($ulevel >= 40) && ($usr($nick))) writeini $sys(ircndata.ini) $usr($nick) seen $ctime }
on 1:TEXT:seen*:# {
  if (($chan isin %seenchans) || (%seenchans == all)) {
    if ($2) {
    if ($2 == $me) msg $chan $nick $+ : Yeah, whenever I look in a mirror...
    elseif ($nick == $2) msg $chan $nick $+ , look in the mirror, or is that too scary?
    elseif ($2 ison $chan) msg $chan $nick $+ : $2 is on the channel right now!
    else {
      set %tmp.s1 $readini -n $sys(ircndata.ini) $2 seen
      if (%tmp.s1) {
        msg $chan  $+ $2 $+  was last seen on $asctime(%tmp.s1) ( $+ $rsc($duration($sub($ctime,%tmp.s1))) ago).
        unset %tmp*
      }
}
    }
  }
}