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
}