/ScriptServ

On 1:JOIN:#: {
  writeini seen.ini Seen $nick join $chan $date $atime $ctime($fulldate)
}
On 1:PART:#:{
  writeini seen.ini Seen $nick part $chan $date $atime $ctime($fulldate)
}
On 1:QUIT:{
  writeini seen.ini Seen $nick $date $atime leaving $ctime($fulldate) $1-
}
On 1:kick:#:{
  writeini seen.ini Seen $knick $date $atime kicked $nick $ctime($fulldate) Reason: $1- 
}
On 1:nick:{
  writeini seen.ini Seen $nick change $newnick $date $atime $ctime($fulldate)
}

On 1:TEXT:!seen*:#: {
  if %seen == on {
    set %seent $ctime
    if $nick !ison $chan { set %seento $nick }
    else { set %seento $chan }
    if $2 == $me { msg %seento 12If I wasn't here4 $nick12 $+ , I wouldn't be replying Hey?! | halt }
    if $2 == $nick { msg %seento 12I last saw you doing 4!seen $nick12 $+ , Unless I be lagging!! | halt }
    if $2 ison $chan { msg %seento 12Get some glasses dude!!!4 $2 12is here! | halt }
    %seenget = $readini seen.ini Seen $2
    if %seenget == $null { msg %seento 12Sorry but I have never seen4 $2 $+ 12! | halt }
    if $gettok(%seenget,1,32) == join { set %seen2 joining | set %seenlong $gettok(%seenget,5,32) | set %seentime $calc(%seent - %seenlong)
      msg %seento 12I last saw4 $2 12 $+ %seen2 $+ 4 $gettok(%seenget,2,32) 12on the4 $gettok(%seenget,3,32) 12at4 $gettok(%seenget,4,32) 4(12When:4 $duration(%seentime) 12ago4) 
    }
    if $gettok(%seenget,1,32) == part { set %seen2 parting | set %seenlong $gettok(%seenget,5,32) | set %seentime $calc(%seent - %seenlong)
      msg %seento 12I last saw4 $2 12 $+ %seen2 $+ 4 $gettok(%seenget,2,32) 12on the4 $gettok(%seenget,3,32) 12at4 $gettok(%seenget,4,32) 4(12When:4 $duration(%seentime) 12ago4) 
    }
    if $gettok(%seenget,3,32) == Leaving { set %seen2 $gettok(%seenget,1,32) | set %seenlong $gettok(%seenget,4,32) | set %seentime $calc(%seent - %seenlong)
      msg %seento 12I last saw4 $2 12on the4 %seen2 12at4 $gettok(%seenget,2,32) 12 $+ $gettok(%seenget,3,32) IRC with the reason "4 $+ $gettok(%seenget,5-,32) $+ 12" 4(12When:4 $duration(%seentime) 12ago4) 
    }
    if $gettok(%seenget,3,32) == kicked { set %seen2 $gettok(%seenget,1,32) | set %seenlong $gettok(%seenget,5,32) | set %seentime $calc(%seent - %seenlong)
      msg %seento 12I last saw4 $2 12on the4 %seen2 12at4 $gettok(%seenget,2,32) 12being $gettok(%seenget,3,32) by4 $gettok(%seenget,4,32) 12 $+ $gettok(%seenget,6,32) 4 $+ $gettok(%seenget,7-,32) 4(12When:4 $duration(%seentime) 12ago4) 
    }
    if $gettok(%seenget,1,32) == change { set %seen2 change to | set %seenlong $gettok(%seenget,5,32) | set %seentime $calc(%seent - %seenlong)
      msg %seento 12I last saw4 $2 12 $+ %seen2 $+ 4 $gettok(%seenget,2,32) 12on the4 $gettok(%seenget,3,32) 12at4 $gettok(%seenget,4,32) 4(12When:4 $duration(%seentime) 12ago4)
    }
    unset %seen* | set %seen on
  }
}