on *:join:#kanaladı: { write -s $+ $nick Takip\ $+ $nick $+ .txt $nick $date $time Online olmustur. }
on *:part:#kanaladı: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Part Olmustur. }
on *:kick:#kanaladı: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Kanaldan Atılmıştır. }
on *:quit: { write -s $+ $nick Çıkış\ $+ $nick $+ .txt $nick $date $time Sunucudan Çıkmıştır. }
on *:text:*:#kanaladı: { 
  if $1 == !takip { takip $chan $2 $+ .txt | cıkıs $chan $2 $+ .txt }
}
alias takip {
  if ($findfile($shortfn($mircdirTakip),$2-,1)) { 
    var %ia 1,%za $ifmatch
    while %ia <= $len(%za) {
      $iif($read(%za,%ia),msg $1 $read(%za,%ia))  
      inc %ia 
    }
  }
  else {
    msg $1 Nickin Giriş anındaki takibi bulunamadı.. 
  }
}
alias cıkıs {
  if ($findfile($shortfn($mircdirÇıkış),$2-,1)) { 
    var %ia 1,%za $ifmatch
    while %ia <= $len(%za) {
      $iif($read(%za,%ia),msg $1 $read(%za,%ia)) 
      inc %ia 
    }
  }
  else {
    msg $1 Nickin Çıkış anındaki takibi bulunamadı.. 
  }
}
alias sila {
  var %s = $findfile(takip\,*.txt,0)
  while (%s) {
    dec %s
    return $findfile(takip\,*.txt,0,.remove $+(",$1-,"))
  }
}
alias silb {
  var %s = $findfile(çıkış\,*.txt,0)
  while (%s) {
    dec %s
    return $findfile(çıkış\,*.txt,0,.remove $+(",$1-,"))
  }
}
on *:start:{ sila | silb }

[12:20] <KGS> !takip karanlik
[12:20] <CaLvin> KaranLik 04/02/2007 12:13:10 Online olmustur.
[12:20] <CaLvin> KaranLik 04/02/2007 12:13:10 Part Olmustur.
[12:21] <KGS> !takip TeQuiLa
[12:21] <CaLvin> Nickin Giriş anındaki takibi bulunamadı..
[12:21] <CaLvin> TeQuiLa 04/02/2007 12:14:34 Part Olmustur.
[12:24] <KGS> !takip KaLpSiZzZ
[12:24] <CaLvin> KaLpSiZzZ 04/02/2007 12:18:50 Online olmustur.
[12:24] <CaLvin> KaLpSiZzZ 04/02/2007 12:24:36 Sunucudan Çıkmıştır.