#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 $+ . }
}
}