alias opchan return #opkanali
alias raporchan return #raporkanali
alias randhash return $rand(0,9999999999)
alias guncel {
  if ($1 == join) return Kanala giris yapti
  if ($1 == part) return Kanaldan cikis yapti
  if ($1 == quit) return Sunucudan cikis yapti (Quit)
}

on *:join:$($opchan): {
  hadd -m arsivs $randhash $nick $date $time join
}
on *:part:$($opchan): {
  hadd -m arsivs $randhash $nick $date $time part
}
on *:quit: {
  var %x 1
  while $comchan($nick,%x) {
    if ($v1 == $opchan) { hadd -m arsivs $randhash $nick $date $time quit }
    inc %x
  }
}
alias arsivs {
  .msg $raporchan -- $1 Nicki Icin $2 Tarihli Takip Listesi --
  .msg $raporchan - 
  var %x 1
  while $hfind(arsivs,$+($1,$chr(32),*),%x,w).data {
    var %v1 $hget(arsivs,$v1), %nick $token(%v1,1,32), %tarih $token(%v1,2,32), %saat $token(%v1,3,32), %komut $token(%v1,4,32)
    .msg $raporchan $+(%saat,:) $guncel(%komut)
    inc %x
  }
  .msg $raporchan - 
  .msg $raporchan Takip listesi sonu.. 
}
on *:text:*:$($raporchan): {
  if $regex($1,/[!+.]stats/i) {
    if (!$2) { .msg # Lutfen nick belirtiniz Komut:  !stats nick $date | return }
    if (!$3) { .msg # Lutfen tarih belirtiniz Komut:  !stats nick $date | return }
    .msg # Lutfen bekleyiniz $2 kontrol ediliyor..
    if !$hfind(arsivs,$+($2,$chr(32),*),0,w).data { .msg # $2 nick'ine ait hic bir bilgi bulunmamaktadir. | return }
    arsivs $2 $3
  }
} 
on *:start: {
  hmake arsivs 100
  hload arsivs arsivs.63
}
on *:disconnect: {
  hsave arsivs arsivs.63
}
on *:exit: {
  hsave arsivs arsivs.63
}

[15:52] <Set> !stats Set  15/09/2012
[15:52] <Aeg> Lutfen bekleyiniz Set kontrol ediliyor..
[15:52] <Aeg> -- Set Nicki Icin 15/09/2012 Tarihli Takip Listesi --
[15:52] <Aeg> -
[15:52] <Aeg> 15:52:19: Kanala giris yapti
[15:52] <Aeg> 15:52:18: Kanaldan cikis yapti
[15:52] <Aeg> -
[15:52] <Aeg> Takip listesi sonu..