IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

 

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

}

Kod:

[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..