;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date
alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46)
on *:JOIN:#: {
  if !$findfile($mircdir,$+(seen.,$server,.data),1) { 
    hmake seen. $+ $server 50
    hsave seen. $+ $server $+(seen.,$server,.data) 
  }
  elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) } 
  if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data }
  hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date)
  hsave seen. $+ $server $+(seen.,$server,.data)
  
}
alias seen {
  if $server {
    if $1 {
      if $1 == clear {
        hdel -w seen. $+ $server *
        echo -a Temizlendi
        hsave seen. $+ $server $+(seen.,$server,.data)
      }
      elseif $1 == list {
        var %s = 1,%nick,%time,%date
        while %s <= $hget(seen. $+ $server,0).item {
          %nick = $gettok($hget(seen. $+ $server,%s).data,1,46)
          %time = $gettok($hget(seen. $+ $server,%s).data,2,46)
          %date = $gettok($hget(seen. $+ $server,%s).data,3,46)
          echo -a %s Nick: %nick Time: %time Date: %date
          inc %s
        }
      }
      elseif $_find($1,1) {
        echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü...
      }
      else echo -a $1 $+ , Listemde yok....
    }
  }
  else echo -a Bağlı Değilsiniz...
}