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 } }