;$_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 $1 == !seen { 

  if $server { 

      if $1 == !seen clear { 

        hdel -w seen. $+ $server * 

        echo -a Liste Temizlendi. 

        hsave seen. $+ $server $+(seen.,$server,.data) 

      } 

      elseif $1 == !seen 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 $network 'da Görüldü. 

      } 

      else echo -a $1 $+ , Listemde mevcut değil. 

    } 

  } 

  else echo -a Bağlı Değilsiniz. 

}