alias -l Logo return $+(1 - [, $+ $chr(3)) $+ $c3 $+ $strip($upper($1-)) $+ $c2 $+ $chr(3) $+ ]
alias -l c1 return $chr(3) $+ 03 $+ $strip($1-)
alias -l c2 return $chr(3) $+ 01 $+ $strip($1-)
on $*:TEXT:/^[.!@]seen/Si:#:{
  if (!$2) { .notice $nick 1[3SEEN1]: $c2(Please specifie a nick) }
  else {
    if ($2 == $me) { notice $nick 1[3SEEN1]: $c2(You found me!) }
    else {
      if ($2 == $nick) { notice $nick 1[3SEEN1]: $c2(You never looked in a mirror? WTF!) }
      else {
        if (!$hget(seen, $strip($2))) {
          notice $nick 1[3SEEN1]: $c2(I don't know who) $c1($2) $c2(is)
        }
        else {
          tokenize 126 $hget(seen, $strip($2))
          notice $nick $1 $logo($duration($calc($ctime - $2)) ago)
        }
      }
    }
  }
}
on *:TEXT:*:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(saying:) $c1($1-) $+ ~ $+ $ctime
}
on *:PART:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(parting) $c1($chan) $c2(with the message:) $c1($iif($1-,$v1,no reason)) $+ ~ $+ $ctime
}
on *:JOIN:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(joining) $c1($chan) $+ ~ $+ $ctime
}
on *:RAWMODE:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(setting mode:) $c1($1-) $+ ~ $+ $ctime
}
on *:ACTION:*:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(doing a action:) $c1($1-) $+ ~ $+ $ctime
}
on *:BAN:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(banning:) $c1($banmask) $+ ~ $+ $ctime
}
on *:KICK:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(kicking:) $c1($knick) $+ ~ $+ $ctime
}
on *:NICK:#:{
  hadd -m SEEN $nick 1[3SEEN1]: $c2(I have last seen:) $c1($nick) $c2(changing his/her nick to:) $c1($newnick) $+ ~ $+ $ctime
}
on *:EXIT:{
  hsave seen seen.txt
}
on *:START:{
  hload seen seen.txt
}