#seen on
on 1:JOIN:#: { writeini -n seen.ini $nick date I last saw $nick joining $chan at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on 1:QUIT: { writeini -n seen.ini $nick date I last saw $nick quitting IRC at $asctime(hh:nn tt) on $asctime(dd mmmm yyyy) $+ , with the quit message $1- } 
on 1:PART:#: { writeini -n seen.ini $nick date I last saw $nick leaving $chan at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on 1:NICK: { writeini -n seen.ini $nick date I last saw $nick changing their nick to $newnick at $asctime(hh:nntt) on $asctime(dd mmmm yyyy) $+ . }
on *:TEXT:!seen*:#: { 
  if ($2 ison $chan) && ($nick != $2) { /msg $chan  $2- is in $chan ( $chan ) | halt }
  if ($2 == $me) { /msg $chan If I'm answering the question I'm in the Channel ( $chan ). | halt }
  if ($nick == $2) && ($nick ison $chan) { /msg $chan  If you don't know where $2 is, then you have some problems.. | halt }
  if ($readini seen.ini $2 date == $null) { /msg $chan Sorry ( $nick ) $+  $2- Is not in my Memory. | halt }
  else { /msg $chan $readini seen.ini $2 date }
}
on 1:TEXT:!seen*:?: { 
  if ($nick == $2) { .msg $nick If you don't know where $2 is, then you have some problems.. | halt }
  if ($readini seen.ini $2 date == $null) { .msg $nick Sorry ( $nick ) $+  $2- Is not in my Memory. | halt }
  else { .msg $nick $readini seen.ini $2 date }
}
#seen off

on 1:text:!seen*:*: {
  if (%seen == off) { halt }
  if ($chan ischan) { set -u2 %seen.qchan $chan }
  else { set -u2 %seen.qchan $nick }
  if ($2 == $me) { /msg %seen.qchan Er, $nick $+ , that's me...  | halt }
  if ($2 == $nick) { /msg %seen.qchan What's the matter $nick $+ , can't find youself?  | halt }
  if ($2 ison %seen.qchan) { /msg %seen.qchan Hey, $nick $+ , $2 is in here.. ( $chan )  | halt }
  else {
    set -u2 %seen.qnick $readini -n %QID.dataini seen $2
    if (%seen.qnick == $null) { /msg %seen.qchan Sorry $nick $+ , i've never seen that person.  }
    else { /msg %seen.qchan $2 was last seen as %seen.qnick $+ . }
  }
}