/ScriptServ

on 1:PART:#: { writeini names.txt $nick seen $ctime }
on 1:QUIT {  writeini names.txt $nick seen $ctime }
on 1:TEXT:seen*:#: {
  if (($chan isin %seenchans) || (%seenchans == all)) { 
    if (%seenfld == 2) { .ignore -cu30 $address($nick,3) | unset %seenfld | .timer 1 4 recho Seen Bot  flood detected from $hc($nick)  $hc([ [ $+ [ $address ] $+ ] ])  |   msg $chan 2<SeenBot> $hc($nick) You have been put in ignore for 60 seconds for abusing Seen Bot privleges }
    inc %seenfld
    .timer5 1 15 /unset %seenfld 
    if (%seenfld == 2) { halt | halt }  
  } 
  if ($2 == $null) halt 
  elseif ($2 == $me) { halt }
  elseif (Dick isin $2) { Halt } 
  elseif (pussy isin $2) { halt }
  elseif (ass isin $2) { halt } 
  elseif (my isin $2) { halt } 
  elseif (tits isin $2) { halt }
  elseif (nud isin $2) { halt }  
elseif (penis isin $2) { halt }  
elseif ($nick == $2) msg $chan 2<SeenBot> $hc($nick) $+ ,No comment 
  elseif ($2 ison $chan) msg $chan 2<SeenBot> $hc($nick) $+ ,Look around man 
  elseif ($readini -n names.txt $2 seen == $null) { msg $chan 2<SeenBot> $hc($nick) $+ ,I have Not Seen $2 } 
  else {
    set %tmp.s1 $readini -n names.txt  $2 seen
    if (%tmp.s1) {
      msg $chan  $+ $hc($2)  was last seen on $hc($asctime(%tmp.s1)) ( $+ $hc($rsc($duration($sub($ctime,%tmp.s1)))) ago). 
      unset %tmp*
    }
  }
}