alias yuzde return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41)) 
alias yuzde2 return $+($chr(40),%,$calc($left(100.000000,4) - $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41)) 
alias yuzde3 return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) 
alias ll return $calc($hget($1,v)-$hget($2,v)) 
alias kapsa return $+($chr(2),$1-,$chr(2)) 
alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(helper/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } }
alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) }
alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil }
alias helperler { if $1 { var %1 = 1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } msg $2 %3 }
alias hsil { var %s = $numtok($findfile(helper,*.txt,1),92) | var %1 = 1,%2 = $findfile(helper,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %1 } }
alias sil { 
  hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1) 
  hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1) 
  hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db
  hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db
}
on *:start: { 
  if !%trh { set %trh $date } 
  if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db }
  if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db }
  if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db }
  if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db }
  if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db }
  if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db }
  if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db }
  if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db }
  if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db }
  if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db }
  if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db }
  if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db }
  if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db }
  if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db }
  if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db }
  if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db }
  if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db }
  if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db }
}
on *:op:%yardimkanali: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } }
on *:join:%yardimkanali: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } 
on *:part:%yardimkanali: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(helper/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } }
on *:voice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } }
on *:devoice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } }
on *:ban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } }
on *:unban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } }
on *:text:*:%yardimkanali: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } }
on *:text:*:%sohbetops: {
  if $nick == Sky-BLuE {    if $1 == !durum {
      .msg # $+([,$chr(2),%trh,$chr(2),]) Tarihinden beri kayıt'da olan istatistik'ler sıralanıyor.. 2(Suan Saat: $+($chr(2),$time,$chr(2)) $+ )
      .msg # -
      .msg # 2Global Kanallara Toplam kullanıcı girişi istatistikleri:4 $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v),0),$chr(41))
      .msg # 2Global Kanallara Giriş bilgisi: $iif($hget(normalg,v),Yetkili girişi:4 $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) - Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100))
      .msg # 2Global Kanallara Toplam kullanıcı çıkışı istatistikleri:4 $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v),0),$chr(41))
      .msg # 2Global Kanallara Çıkış bilgisi: $iif($hget(normalc,v),Yetkili çıkışı:4 $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) - Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100))
      .msg # 2Global Kanallara Toplam verilen voice:4 $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler,v),0),$chr(41))
      .msg # 2Global Kanallara Toplam alınan voice:4 $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41))
      .msg # 2Global Kanallara Toplam atılan ban sayısı:4 $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0),$chr(41))
      .msg # 2Global Kanallara Toplam açılan ban sayısı:4 $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar,v),0),$chr(41))
      .msg # 2Global Kanallara Toplam yazılan satır sayısı:4 $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0),$chr(41))
      .msg # 2Global Kanallara Toplam Satır bilgisi: $iif($hget(ntext,v),Yetkili yazısı:4 $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) - Yetkisiz yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100))
      .msg # -
      .msg # $+($chr(2),$nick,$chr(2)) 3kullanıcısı Son Durum Güncellemesi Aldı.
    }
    if ($regex($1,/((!|\.)komutlar)/i)) {
      .msg # $+($chr(31),Genel komutlar,$chr(31),:)
      .msg # 5BILGI:4 $+([,$chr(2),%trh,$chr(2),]) Tarihinden Itibaren 14 Kanal Kayıtlanıp Depolanır..
      .msg # 5BILGI:2 Lütfen Gereksiz Komut Kullanmayınız..
      .msg # -
      .msg # !durum Yazarak ( Genel İstatistikleri Ögrenebilirsiniz )
      .msg # !banlist 2kanalında kayıt tarihinden beri atılan tüm banları sıralar
      .msg # !Oplar 2kanalında  Takip  listesinde olan tüm Op'ları sıralar
      .msg # !sıfırla tümü 2kanalı için varolan tüm kayıtları sıfır'lar
      .msg # !Opsayısı 2Toplam Op Sayısını Belirler
      .msg # !Bansayısı 2Toplam Ban Sayısını Belirler
      .msg # !Takipsayısı 2Takipte Bulunan Toplamını Belirler
      .msg # -
      .msg # $+($chr(31),Kişisel komutlar,$chr(31),:)
      .msg # -
      .msg # !OPekle OP-nick $kapsa((Takip 2listesine OP eklemek için kullanılır))
      .msg # !OPsil OP-nick $kapsa((Takip listesinde ekli olan bir OPlari siler))
      .msg # !istatistik OP-nick $kapsa((4Takip listesinde kayıtlı olan OPLAR hakkında ayrıntılı bilgiler verir))
      .msg # !takipekle OP-nick $kapsa((4Takip listesinde kayıtlı olan OPlar'in, hangi tarihlerde giriş/çıkış yaptığını gösterir))
      .msg # !takipsil OP-nick $kapsa((4Takip listesinde kayıtlı olan OPLAR'in, giriş/çıkış tarihlerini sıfır'lar))
      .msg # !takiplist $kapsa((4Takip Listesinde bulunan OPLAR Listelenir.))
      .msg # -
      .msg # Tüm komutlar sıralandı.
    }
    if ($regex($1,/((!|\.)Oplar)/i)) {
      if $hget(nickler,0).item < 1 { .msg # Kayıtlı OP mevcut değil. OP eklemek için; $kapsa(!ekle OP-nick) yazınız. | halt }
      else { .msg # Kayıtlı olan toplam; $kapsa($hget(nickler,0).item) OP sıralanıyor. | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { .msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& } 
      }
      .msg # Kayıtlar sıralandı.
      .msg # Herhangi bir OP hakkında detaylı bilgi almak için; $kapsa(!istatistik OP-nick) yazınız.
    }
    if ($regex($1,/((!|\.)banlist)/i)) {
      if $hget(banlar,v) < 1 { .msg # $kapsa(#Geveze) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt }
      else { 
        .msg # $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı:3 $kapsa($hget(banlar,v))
        .msg #  Global  Kanallarında $kapsa(%trh) itibaren OPLAR'in ban uygulama istastiği:(Sadece ban atanlar sıralanır)
        var %x = 1,%y = $hget(ban,0).item | while %x <= %y { .msg # OPLAR:4 $kapsa($hget(ban,%x).item) - 1Attığı ban sayısı:12 $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x }
      }
      .msg # -
      .msg # Ban kayıtları sıralandı.
    }
    if ($regex($1,/((!|\.)sıfırla)/i)) {
      if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar)  | halt }
      if  $2 == tümü {
        .msg # Bu işlev eklenen OPLAR hariç tüm kayıtları silecektir.
        .msg # $kapsa(#Geveze) kanalı için tüm kayıtlar sıfırlansın'mı?
        .msg # Onaylamak için: $kapsa(!Evet) - Vazgeçmek için: $kapsa(!Hayır) yazınız.
        .msg # 12Gereksiz Yere Kullanma!
      }
    }
    if $1 == !Evet { .msg # Tüm veriler sıfırlan'dı. | pp }
    if $1 == !Hayır { .msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false }
    if ($regex($1,/((!|\.)istatistik)/i)) {
      if !$2 { .msg # Herhangi bir nick girilmedi. Kullanım şekli: $kapsa(!istatistik OP-nick) | halt }
      if !$hmatch(nickler,$2) { .msg # $kapsa($2) isminde OPLAR kayıtlı değil. | halt }
      else { 
        .msg # 10 $+ $kapsa($2) OP'unun $kapsa(%trh) tarihinden beri kayıt edilen istatistik'leri sıralanıyor..
        .msg # -
        .msg # 4 $+ $kapsa($2) OP'unun toplam Giriş Çıkışı:2 $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) 
        .msg # 4 $+ $kapsa($2) OP'unun toplam 2çıkış yaptı:2 $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) 
        .msg # 4 $+ $kapsa($2) OP'unun toplam Verdiği voice sayısı:2 $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0))
        .msg # 4 $+ $kapsa($2) OP'unun toplam Aldığı voice sayısı:2 $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0))
        .msg # 4 $+ $kapsa($2) OP'unun toplam Attığı ban sayısı:2 $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0))
        .msg # 4 $+ $kapsa($2) OP'unun toplam Açtığı ban sayısı:2 $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0))
        .msg # 4 $+ $kapsa($2) OP'unun toplam yazdığı satır miktarı:2 $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0))
        .msg # - 
        .msg # Not: $kapsa($2) OPLAR'inin hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: $kapsa(!Takip $2) yazınız.
        .msg # Bilgi: $kapsa($2) OPLAR'inin tüm istatistikleri sıralandı.
      }
    }
    if ($regex($1,/((!|\.)takipekle)/i)) {
      if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Takip OP-nick) | halt }
      if !$hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde mevcut değil. | halt }
      else { 
        .msg # $kapsa($2) OPLAR'inin $kapsa(%trh) tarihinden beri, $kapsa(#Geveze) kanalına giriş/çıkış bilgileri sıralanıyor.
        var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { .msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } 
        .msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız.
      }
    }
    if ($regex($1,/((!|\.)takipsil)/i)) {
      if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil OP-nick) | halt }
      if !$hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde kayıtlı değil. | halt }
      if !$isfile($+(helper/,$2,.,txt)) { .msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt }
      else { remove $+(helper/,$2,.,txt)) | .msg # $kapsa($2) OPLAR'i için, giriş/çıkış tarihleri sıfırlandı. }
    }
    if ($regex($1,/((!|\.)OPekle)/i)) {
      if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Ekle yeni-OP-nick) | halt }
      if $hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde zaten mevcut. | halt }
      else { hadd -m nickler $2 | hsave -i nickler nickler.db | .msg # $kapsa($2) OPLAR listesine eklendi. } 
    }
    if ($regex($1,/((!|\.)OPsil)/i)) {
      if !$2 { .msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sil OP-nick) | halt }
      if !$hmatch(nickler,$2) { .msg # $kapsa($2) OPLAR listesinde zaten mevcut değil. | halt }
      else { sil $2 | .msg # $kapsa($2) OPLAR listesinden tüm kayıtları ile beraber silindi. }
    }
    if ($regex($1,/((!|\.)takiplist)/i)) {
      if $hget(nickler,0).item < 1 { .msg #  Takip  listesinde kayıtlı OPLAR yok. | halt }
      else { .msg #  Takip  listesine kayıtlı olan toplam; 1[ $kapsa($hget(nickler,0).item) 1] adet OPLAR sıralanıyor; | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { .msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) Tarih: $+([,$chr(2),%trh,$chr(2),]) - Saat: $+ $time $hget(nickler,%&) | inc %& } 
      }
      .msg # 1Takip listesindeki OPLAR kayıtları sıralandı.
    }
    if ($regex($1,/((!|\.)Opsayısı)/i)) {
      .msg # $kapsa(%trh) tarihinden itibaren OP SAYISI:4 $+ $kapsa($hget(nickler,0).item) 
    }
    if ($regex($1,/((!|\.)Bansayısı)/i)) {
      .msg # $kapsa(%trh) tarihinden itibaren  Global  Kanallarda atılan toplam ban sayısı:4 $kapsa($hget(banlar,v)) 
    }
    if ($regex($1,/((!|\.)Takipsayısı)/i)) {
      .msg #  Takip  listesine Belirlediğiniz OP toplamı;4  $kapsa($hget(nickler,0).item) 
    }
  }
}

Zurna Kanal Modları: +smntr
<nickim> !istatistik Nickim
* ChanServ mod değiştirdi:+o Botun nicki
<botun nicki> Nickim rumuzlu op'un 19/02/2012 tarihinden beri kayıt edilen istatistikleri sıralanıyor:
<botun nicki> -
<botun nicki> #zurna kanalına toplam: (13) giriş yaptı.
<botun nicki> #zurna kanalından toplam: (0) çıkış yaptı.
<botun nicki> Not: Nickim rumuzlu op'un hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: !Takip Nickim yazınız.
<botun nicki> Verdiği voice sayısı: 2 (%0.90)
<botun nicki> Aldığı voice sayısı: 4 (%10.5)
<botun nicki> Attığı ban sayısı: 312 (%9.34)
<botun nicki> Açtığı ban sayısı: 530 (%17.8)
<botun nicki> #zurna kanalında yazdığı satır miktarı: 50 (%0.07)
<botun nicki> -
<botun nicki> Bilgi: Nickim rumuzlu op'un tüm istatistikleri sıralandı.