alias takip {
  if !$1 { echo -at Takip listesine alýnacak kanal'ý girmediniz. Kullaným þekli; $+($chr(2),/takip #kanalismi,$chr(2)) | halt }
  if $hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'ý zaten takip listesinde. | halt }
  if $me !ison $1 { echo -at $+($chr(2),$1,$chr(2)) kanalýnda bulunmuyorsunuz. | halt }
  else { hmake $1 100 | echo -at $+($chr(2),$1,$chr(2)) kanal'ý takip listesine eklendi. }
}
on *:quit: { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { if $hget($comchan($me,%1))  { hinc $v1 $+(ayr,½,$v1) 1 } | inc %1 } }
on *:nick: { var %= 1,%& = $comchan($me,0) | while %= <= %& { if $hget($comchan($me,%=)) { var %o = $v1 | hinc $v1 $+(nck,½,$v1) 1 | ekle $+(%o,nick,.txt) | write $+(%o,nick,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Nick: $+($chr(2),$nick,$chr(2)) - Yeni nick: $+($chr(2),$newnick) } | inc %= } }
on !*:join:#: { if $hget(#) { hinc # $+(grs,½,#) 1 } }
on *:part:#: { if $hget(#) { hinc # $+(cks,½,#) 1 } }
on *:text:*:#: { if $hget(#) { hinc # $+(yz,½,#) 1 | hinc -m $+(yaz&yacute;,#) $nick 1 } }
on *:ban:#: { if $hget(#) { hinc # $+(ban,½,#) 1 | ekle $+(#,ban,.txt) | write $+(#,ban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Banl&yacute;yan: $+($chr(2),$nick,$chr(2)) - Banlanan: $+($chr(2),$banmask,$chr(2)) } }
on *:unban:#: { if $hget(#) { hinc # $+(unbn,½,#) 1 | ekle $+(#,unban,.txt) | write $+(#,unban,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Ban açan: $+($chr(2),$nick,$chr(2)) - Ban&yacute; aç&yacute;lan: $+($chr(2),$banmask) } }
on *:voice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(vc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice veren: $+($chr(2),$nick,$chr(2)) - Voice olan: $+($chr(2),$vnick,$chr(2)) } }
on *:op:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(op,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u veren: $+($chr(2),$nick,$chr(2)) - Op olan: $+($chr(2),$opnick,$chr(2)) } }
on *:help:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(hlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u veren: $+($chr(2),$nick,$chr(2)) - Halfop olan: $+($chr(2),$hnick,$chr(2)) } }
on *:devoice:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(devc,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Voice'u alan: $+($chr(2),$nick,$chr(2)) - Voice'u al&yacute;nan: $+($chr(2),$vnick,$chr(2)) } }
on *:deop:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(deop,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Op'u alan: $+($chr(2),$nick,$chr(2)) - Op'u al&yacute;nan: $+($chr(2),$opnick,$chr(2)) } }
on *:dehelp:#: { if $hget(#) { hinc # $+(yetki,½,#) 1 | hinc # $+(dehlp,½,#) 1 | ekle $+(#,yetkiler,.txt) | write $+(#,yetkiler,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Halfop'u alan: $+($chr(2),$nick,$chr(2)) - Halfop'u al&yacute;nan: $+($chr(2),$hnick,$chr(2)) } }
on *:mode:#: { if $hget(#) { hinc # $+(md,½,#) 1 | ekle $+(#,mode,.txt) | write $+(#,mode,.txt) Tarih: $+($chr(2),$date - $time,$chr(2)) Mod de&eth;i&thorn;en: $+($chr(2),$nick,$chr(2)) - De&eth;i&thorn;en mod: $+($chr(2),$1-,$chr(2)) } }
alias rapor {
  if !$1 { echo -at Rapor al&yacute;nacak kanal ismini girmediniz. Kullan&yacute;m &thorn;ekli; $+($chr(2),/rapor #kanalismi,$chr(2)) | halt }
  if !$hget($1) { echo -at $+($chr(2),$1,$chr(2)) kanal'&yacute; takip listesinde de&eth;il. | halt }
  else { 
    echo -a $+($chr(45),$chr(32),[,$chr(2),$1,$chr(2)) kanal'&yacute; için istatist'likler] -
    echo -a -
    echo -a - Prefixler $+($chr(40),$iif($hget($1,$+(yetki½,$1)),$+($chr(2),$hget($1,$+(yetki½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),$chr(41))
    echo -a - [Voice: $+($iif($hget($1,$+(vc½,$1)),$+($chr(2),$hget($1,$+(vc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [OP: $+($iif($hget($1,$+(op½,$1)),$+($chr(2),$hget($1,$+(op½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Halfop: $+($iif($hget($1,$+(hlp½,$1)),$+($chr(2),$hget($1,$+(hlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) 
    echo -a - [Devoice: $+($iif($hget($1,$+(devc½,$1)),$+($chr(2),$hget($1,$+(devc½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [DEOP: $+($iif($hget($1,$+(deop½,$1)),$+($chr(2),$hget($1,$+(deop½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) - [Dehalfop: $+($iif($hget($1,$+(dehlp½,$1)),$+($chr(2),$hget($1,$+(dehlp½,$1)),$chr(2)),$+($chr(2),0,$chr(2))),]) 
    echo -a - Kim kime ne zaman ne yetkisi vermi&thorn;/alm&yacute;&thorn;? Görmek için: $+($chr(2),/yetki $1,$chr(2)) yaz&yacute;n&yacute;z.
    echo -a -
    echo -a - Giren kullan&yacute;c&yacute; say&yacute;s&yacute;: $iif($hget($1,$+(grs½,$1)),$+($chr(2),$hget($1,$+(grs½,$1))),$+($chr(2),Giren kullan&yacute;c&yacute; yok.))
    echo -a - Ayr&yacute;lan kullan&yacute;c&yacute; say&yacute;s&yacute;: $iif($hget($1,$+(cks½,$1)),$+($chr(2),$hget($1,$+(cks½,$1))),$+($chr(2),Ayr&yacute;lan kullan&yacute;c&yacute; yok.))
    echo -a - Ç&yacute;kan kullan&yacute;c&yacute; say&yacute;s&yacute;: $iif($hget($1,$+(ayr½,$1)),$+($chr(2),$hget($1,$+(ayr½,$1))),$+($chr(2),Ç&yacute;kan kullan&yacute;c&yacute; yok.))
    echo -a - Nick de&eth;i&thorn;im say&yacute;s&yacute;: $iif($hget($1,$+(nck½,$1)),$+($chr(2),$hget($1,$+(nck½,$1)),$chr(32),$chr(2), - (De&eth;i&thorn;en nick'leri görmek için; $+($chr(2),/nik $1,$chr(2)) yaz&yacute;n&yacute;z.)),$+($chr(2),Nick de&eth;i&thorn;en yok.))
    echo -a - Yaz&yacute;lan sat&yacute;r miktar&yacute;: $iif($hget($1,$+(yz½,$1)),$+($chr(2),$hget($1,$+(yz½,$1)),$chr(32),$chr(2), - (Kanal'da kimin kaç sat&yacute;r cümle kurdu&eth;unu görmek için: $+($chr(2),/kns $1,$chr(2)) yaz&yacute;n&yacute;z.)),$+($chr(2),Herhangi bir yaz&yacute; yaz&yacute;lmam&yacute;&thorn;.)) 
    echo -a - At&yacute;lan ban say&yacute;s&yacute;: $iif($hget($1,$+(ban½,$1)),$+($chr(2),$hget($1,$+(ban½,$1)),$chr(32),$chr(2), - (Kanal'da kim kime ne zaman ban atm&yacute;&thorn;? Ö&eth;renmek için: $+($chr(2),/bn $1,$chr(2)) yaz&yacute;n&yacute;z.)),$+($chr(2),At&yacute;lan ban yok.)) 
    echo -a - Aç&yacute;lan ban say&yacute;s&yacute;: $iif($hget($1,$+(unbn½,$1)),$+($chr(2),$hget($1,$+(unbn½,$1)),$chr(32),$chr(2), - (Kanal'da kim ne zaman ban açm&yacute;&thorn;? Ö&eth;renmek için: $+($chr(2),/unbn $1,$chr(2)) yaz&yacute;n&yacute;z.)),$+($chr(2),Aç&yacute;lan ban yok.)) 
    echo -a - De&eth;i&thorn;en mod say&yacute;s&yacute;: $iif($hget($1,$+(md½,$1)),$+($chr(2),$hget($1,$+(md½,$1)),$chr(32),$chr(2), - (Kanal'da kim hangi mod'u de&eth;i&thorn;tirmi&thorn;? Ö&eth;renmek için: $+($chr(2),/md $1,$chr(2)) yaz&yacute;n&yacute;z.)),$+($chr(2),De&eth;i&thorn;en mod yok.)) 
  }
}
alias kns {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/kns #kanalismi) | halt }
  if !$hget($+(yaz&yacute;,$1)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2))  kanal&yacute; için; $+($chr(2),$hget($+(yaz&yacute;,$1),0).item,$chr(2)) adet veri bulundu. |  var %& = 1,%&& = $hget($+(yaz&yacute;,$1),0).item |  while %& <= %&& { echo -a - Nick: $+($chr(2),$hget($+(yaz&yacute;,$1),%&).item,$chr(2)) - Yazd&yacute;&eth;&yacute; sat&yacute;r miktar&yacute;: $+($chr(2),$hget($+(yaz&yacute;,$1),%&).data,$chr(2)) |  inc %& } } 
}
alias bn {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/bn #kanalismi) | halt }
  if !$read($+($1,ban,.txt)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2)) kanal&yacute; için; $+($chr(2),$hget($1,$+(ban½,$1)),$chr(2)) adet veri bulundu. |  var %1 = 1,%2 = $lines($+($1,ban,.txt)) |  while %1 <= %2 { echo -a - $read($+($1,ban,.txt),%1) |  inc %1 } }
} 
alias unbn {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/unbn #kanalismi) | halt }
  if !$read($+($1,unban,.txt)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a -  $+($chr(2),$1,$chr(2)) kanal&yacute; için; $+($chr(2),$hget($1,$+(unbn½,$1)),$chr(2)) adet veri bulundu. |  var %s = 1,%x = $lines($+($1,unban,.txt)) |  while %s <= %x { echo -a - $read($+($1,unban,.txt),%s) |  inc %s } }
} 
alias yetki {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/yetki #kanalismi) | halt }
  if !$read($+($1,yetkiler,.txt)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanal&yacute; için; $+($chr(2),$lines($+($1,yetkiler,.txt)),$chr(2)) adet veri bulundu. |  var %q = 1,%r = $lines($+($1,yetkiler,.txt)) |  while %q <= %r { echo -a - $read($+($1,yetkiler,.txt),%q) |  inc %q } }
} 
alias md {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/md #kanalismi) | halt }
  if !$read($+($1,mode,.txt)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanal&yacute; için; $+($chr(2),$hget($1,$+(md½,$1)),$chr(2)) adet veri bulundu. |  var %p = 1,%f = $lines($+($1,mode,.txt)) |  while %p <= %f { echo -a - $read($+($1,mode,.txt),%p) |  inc %p } }
} 
alias nik {
  if !$1 { echo -a - Lütfen kanal ismi giriniz; $+($chr(2),/nik #kanalismi) | halt }
  if !$read($+($1,nick,.txt)) { echo -a - Veri bulunamad&yacute;. | halt }
  else { echo -a - $+($chr(2),$1,$chr(2)) kanal&yacute; için; $+($chr(2),$hget($1,$+(nck½,$1)),$chr(2)) adet veri bulundu. |  var %z = 1,%o = $lines($+($1,nick,.txt)) |  while %z <= %o { echo -a - $read($+($1,nick,.txt),%z) |  inc %z } }
} 
alias ekle { if !$read(slnck.txt,w,$1) { write slnck.txt $1 } }
on *:connect: { s&yacute;f&yacute;rla | remove slnck.txt }
alias s&yacute;f&yacute;rla { echo -a - Tüm veriler s&yacute;f&yacute;r'land&yacute;. | .hfree -w yaz&yacute;* | .hfree -w $+($chr(35),*) | var %oo = 1,%aa = $lines(slnck.txt) | while %oo <= %aa { .remove $read(slnck.txt,%oo) | inc %oo } }
 
 
 
-----------------------------------------
1- Kanal'da voice/halfop/op veren veya alanlar&yacute;.(Tarihleri dahil)
2- Kanal'da ban atan/at&yacute;lan veya ban&yacute; açan/aç&yacute;lan'lar&yacute;.(Tarihleri dahil)
3- Kanal'da at&yacute;lan ban say&yacute;s&yacute;n&yacute;.
4- Kanal'a giren kullan&yacute;c&yacute; say&yacute;s&yacute;n&yacute;.
5- Kanal'dan ç&yacute;kan kullan&yacute;c&yacute; say&yacute;s&yacute;n&yacute;.
6- Kanal'da bulunupta IRC'den ç&yacute;kan say&yacute;s&yacute;n&yacute;.
7- Kanal'a kaç sat&yacute;r text gönderdildi&eth;ini.
8- Kanal'da kimin ne zaman nick de&eth;i&thorn;ti&eth;ini.(Tarihleri dahil)
9- Kanal'da ne zaman kim taraf&yacute;ndan mod de&eth;i&thorn;tirildi&eth;ini.(Tarihleri dahil)
Ek özellikler;
/kns #kanalismi yazarak kanal'da kimin kaç sat&yacute;r yaz&yacute; yazd&yacute;&eth;&yacute;n&yacute;,
/nik #kanalismi yazarak kanal'da kimin ne zaman nick de&eth;i&thorn;ti&eth;ini ve yeni nick'ini,
/unbn #kanalismi yazarak kanal'da kim taraf&yacute;ndan ne zaman ban aç&yacute;ld&yacute;&eth;&yacute;n&yacute;,
/bn #kanalismi yazarak kanal'da kim taraf&yacute;ndan, ne zaman ban at&yacute;ld&yacute;&eth;&yacute;n&yacute;,
/md #kanalismi yazarak kanal'da kimin, ne zaman, hangi modu, de&eth;i&thorn;tirdi&eth;ini,
/yetki #kanalismi yazarak kimin kime ne yetki verdi&eth;i, tarihleri ile beraber
ö&eth;renebilirsiniz.
/s&yacute;f&yacute;rla yazarak tüm kay&yacute;tlar&yacute; s&yacute;f&yacute;rl&yacute;yabilirsiniz.
Kullan&yacute;m&yacute;:
/takip #kanalismi (Kanal'&yacute; takip'e al&yacute;r)
/rapor #kanalismi (Takip sonuçlar&yacute;n&yacute; gösterir)

----------------------------------------------------