alias format {
unset %result
var %srl = 1
while (%srl <= $numtok($1,32)) {
var %srl2 = 1
:repeat
var %tok = $gettok($1,%srl,32)
if (($left(%tok,%srl2) isnum) && ($right(%tok,$calc($len(%tok) - %srl2)) isalpha)) {
set %result %result $left(%tok,%srl2) $right(%tok,$calc($len(%tok) - %srl2))
inc %srl
}
else {
inc %srl2
goto repeat
}
}
return %result
}
on $*:TEXT:/^[!@.]seen-stats/si:#: {
if ($istok(%except.chans,$chan,44) == $true) {
halt
}
else {
if ((([1]Jingle ison $chan) && ($me == [1]Jingle)) || ([1]Jingle !ison $chan)) {
var %send $iif(!* iswm $1,/notice $nick,/msg $chan)
%send I have currently seen $ini(seen.ini,0) different users.
$format($duration($calc($ctime - 1152291029))))
%send Seen Has Been Logging For $replacex(%result,sec,second,wk,week,hr,hour,min,minute)
}
}
}
on $*:TEXT:/^[!@.]seen */Si:#: {
if ($istok(%except.chans,$chan,44) == $true) {
halt
}
else {
if ((([1]Jingle ison $chan) && ($me == [1]Jingle)) || ([1]Jingle !ison $chan)) {
var %send $iif(!* iswm $1,/notice $nick,/msg $chan)
if ($2 == $null) { %send $+ , I'll need the name of the person to look for!! | halt }
if (($2 ison $chan) && ($readini(seen.ini, $2-, time) == $null) && ($2 != $nick) && ($2 != $me)) {
%send You really do need glasses!! $2 is right here!
}
elseif ($2 == $me) { $read(seenlarry.txt) | halt }
elseif ($readini(seen.ini, $2-, time) == $null) { %send I have not seen $2- $+ . | halt }
elseif ($2 == $nick) { %send $nick $+ ...You honestly cannot see yourself?! | halt }
elseif ($2 ison #) {
$format($duration($calc($ctime - $readini(seen.ini, $2-, time))))
%send $nick Last time I saw $2- $+ , $2- was $readini(seen.ini, $2-, Message) $replacex(%result,sec,second,wk,week,hr,hour,min,minute) ago.
%send $2- is also in this channel at the moment. | halt }
else {
set %time $+ $nick $time(mmmm d yyyy HH:nn:ss)
if (%time [ $+ [ $nick ] ] != $null) {
$format($duration($calc($ctime - $readini(seen.ini, $2-, time))))
%send Last time I saw $2- $+ , $2- was $readini(seen.ini, $2, Message) $replacex(%result,sec,second,wk,week,hr,hour,min,minute) ago, K?
}
if (%time [ $+ [ $nick ] ] == $null) { %send Sorry $nick I have not seen $2- yet, Maybe YOU Should look for $2- $+ . }
}
}
unset %time $+ $nick
unset %result
}
}
on 1:text:*:#: {
/writeini -n seen.ini $nick Message Saying ' $+ $1- $+ ' in $chan on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:join:#: {
/writeini -n seen.ini $nick Message Joining $chan
writeini -n seen.ini $nick Time $ctime
}
on 1:action:*:#: {
/writeini -n seen.ini $nick Message Doing an action ' $+ $nick $1- $+ ' in on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:part:#: {
/writeini -n seen.ini $nick Message Leaving $chan
writeini -n seen.ini $nick Time $ctime
}
on 1:quit: {
/writeini -n seen.ini $nick Message Quiting IRC with this message ' $+ $1- $+ ' on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:nick: {
/writeini -n seen.ini $nick Message Changing nick's from $nick to $newnick on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:voice:#: {
/writeini -n seen.ini $nick Message Being Voiced by $nick on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:op:#: {
/writeini -n seen.ini $nick Message Being Opped by $nick on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:deop:#: {
/writeini -n seen.ini $nick Message Being Deopped by $nick on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:topic:#: {
/writeini -n seen.ini $nick Message Changing $chan $+ 's topic to ' $+ $1- $+ ' on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:kick:#: {
/writeini -n seen.ini $nick Message kicking $knick from $chan for this reason10 ' $+ $1- $+ ' on $network
writeini -n seen.ini $nick Time $ctime
}
on 1:ban:#: {
/writeini -n seen.ini $nick Message Banning $bnick from $chan on $network
writeini -n seen.ini $nick Time $ctime
}