!seen

Pretty simple !seen script.

;Seen script, pretty much self-explanatory.
;Syntax:
;/seen on/off
;/seen add/del (word) [This is to stop people trying to do stuff like, !seen penis, or something  stupid.] 
;Just add any words you don't want to be used.
;/msg #channel/bot !seen name
;* 
; Ollie

alias seen {
if ($1 == del) && ($2) {
if (!$read(funny.txt, w, $2)) { echo -a Error: $+(",$2,") is not in the database. | return }
write -dw $+ $2 funny.txt
echo -a Removed: $+(",$2,",.) From the 'funny' words list.
return
}
if ($1 == add) && ($2) {
if ($read(funny.txt, w, $2)) { echo -a Error: $+(",$2,") is already in the database. | return }
write funny.txt $2
echo -a Added: $+(",$2,",.) To the 'funny' words list.
return
}
if ($1 == on) {
echo -a Seen Status: On
set %seen on
return
}
if ($1 == off) {
echo -a Seen Status: Off
set %seen off
return
}
echo -a Unknown parameter.
}
on *:text:!seen:*:{
if (%seen == off) { return }
var %target = $iif($chan,$chan,$nick)
if ($3 == $nick) { 
describe %target hands $nick a mirror. 
return 
}
if ($chan) && ($3 ison $chan) { 
msg %target $3 Is in the channel! $iif(%last.spoke. [ $+ [ $3 ] ],His/her last words were: %last.spoke. [ $+ [ $3 ] ],They haven't spoken anything yet!) 
return 
}
if (!%seen. [ $+ [ $3 ] ] ) { 
if ($read(funny.txt, w, $3)) { 
msg %target hoho. aren't you a funny one 
halt 
} 
if (!%seen. [ $+ [ $3 ] ] ) { 
msg %target i have never seen $3 | return 
}
}
if (%seen. [ $+ [ $3 ] ] ) { 
msg %target I last saw $3 %seen. [ $+ [ $3 ] ] That was $duration($calc($ctime - %seen.last. [ $+ [ $3 ] ] )) ago. $iif(%last.spoke. [ $+ [ $3 ] ],If i remember correctly.. his last words were: %last.spoke. [ $+ [ $3 ] ],He left without saying anything!)
}
}

on *:NICK:{
if (%seen == off) { return }
set %seen. [ $+ [ $nick ] ] ( $+ $address($nick,2) $+ ) changing his/her nickname to $newnick
}

on *:kick:{
if (%seen == off) { return }
set %seen. [ $+ [ $knick ] ] ( $+ $address($nick,2) $+ ) being kicked from $chan by $nick 
set %seen.last. [ $+ [ $nick ] ] $ctime
}

on *:JOIN:#:{
if (%seen == off) { return }
set %seen. [ $+ [ $nick ] ] $address($nick,2) Joining channel $chan at $fulldate 
set %seen.last. [ $+ [ $nick ] ] $ctime 
}

on *:text:*:#:{
if (%seen == off) { return }
set %last.spoke. [ $+ [ $nick ] ] $1-
}

on *:quit:{
if (%seen == off) { return }
set %seen. [ $+ [ $nick ] ] $address($nick,2) Quitting at $fulldate 
set %seen.last. [ $+ [ $nick ] ] $ctime 
}