;Nicklerin online sürelerini tutacaginiz kanali yazin.
alias onlinekanal return #Helpers
;Nicklerin online islemleri yapacaginiz kanali yazin.
alias islemkanal return #Helpsop   

on *:join:$($onlinekanal):{
  if $regex($nick,/^(*)/i) && $ini(onlines.ini,$gettok($nick,2,$asc(_))) { set $+(%,online,$gettok($nick,2,$asc(_))) $ctime  }
  if $ini(onlines.ini,$nick) { set $+(%,online,$nick) $ctime  }
  if $nick == $me {
    unset %online*
    .timer 1 3 kalpyetmezligi $chan
  }
}

on *:text:*:$($islemkanal): {
  if $1 == *onlinekomutlar && !$2 {
    .timer 1 1 msg # 6*Onlinekle.........: İlgili nick'i online listesine ekler.4\Kullanım:12*Onlineekle Nick
    .timer 1 2 msg # 6*onlinesil..........: İlgili nick'i online listesinden siler.4\Kullanım:12*onlinesil Nick
    .timer 1 3 msg # 6*Onlinebugün...: İlgili nick'in bugünkü online süresi bilgisini verir.4\Kullanım:12*Onlinebugün Nick
    .timer 1 4 msg # 6*Onlinetüm.......: İlgili nick'in toplan online süresini verir.4\Kullanım:12*Onlinetüm Nick
    .timer 1 5 msg # 6*Onlinedetay....: Ilgili nick'in toplam online süresi grafiğini verir.4\Kullanım:12*Onlinedetay Nick
    .timer 1 6 msg # 6*Tosl.................: Online listesindeki tüm nicklerin, toplam online sürelerini verir.4\Kullanım:12*Tosl
    .timer 1 7 msg # 6*Onlinereset....: Online listesindeki bilgileri sıfırlar.4\Kullanım:12*Onlinereset
    .timer 1 8 msg # 6*Onlineliste .....: Online listesindeki ekli nicklerin listesini verir.4\Kullanım:12*Onlineliste
    .timer 1 9 msg # 6*Toponline .......: Online listesindeki nicklerindeki nickleri verilen numaraya ve başarısına göre sıralar.4\Kullanım:12*Toponline Numara
  }
  if $1 == *onlineekle && $2 && $2 !isnum {
    if $2 == $me { msg # Beni eklersen sana sorun yaratırım. | msg # O yüzden hiç denememiş ol. | mode # +b $+(,$r(1,15),$nick) | return  } 
    if $regex($2,/^(*)/i) { msg # 4HATA: Hatalı Nick yazımı. | return }   
    if !$regex($2,/^(*)/i) && $ini(onlines.ini,$2) { msg # 4HATA: $qt($2) listede mevcut. | return }
    if !$regex($2,/^(*)/i) && !$ini(onlines.ini,$2) { 
      if $+($2) ison $onlinekanal  { set $+(%,online,$2) $ctime }
    writeini -n onlines.ini $2 $+($time(dd),$ay,$time(yyyy),$gun) 0 | msg # 3İŞLEM: $qt($2) online listesine eklendi. }
  }
  if $1 == *onlinesil && $2 && $2 !isnum {  
    if $ini(onlines.ini,0) == 0 { msg # 4LİSTE BOŞ | return } 
    if !$ini(onlines.ini,$2) { msg # 4HATA: $qt($2) listede ekli değil. | return }
    if $ini(onlines.ini,$2) { remini onlines.ini $2 | msg # 3İŞLEM: $qt($2) listede ekli değil - silindi. | unset $+(%,online,$2) | return }
  }
  if $1 == *toponline {
    if !$2 { msg $islemkanal 4HATA: Sıralanacak nick sayısını girmediniz. | return } 
    if $2 !isnum || $2 > $ini(onlines.ini,0) { 
      msg $islemkanal 4HATA: Belirttiğiniz numara, online listesindeki nicklerden daha büyük veya alakasız olamaz.
      msg $islemkanal 3BILGI: Online Listemde  $ini(onlines.ini,0)   adet nick var.
      return  
    }
    if $2 isnum && $2 < $ini(onlines.ini,0) {
      set %topnum $2
      onlinebasari
    }
  }
  if $1 == *tosl && !$2 {
    if $ini(onlines.ini,0) == 0 { msg # 4LİSTE BOŞ | return }
    write -c onlines.txt
    var %onlineyuzde $onlineyuzde
    msg # TOPLAM ONLINE SURELERI LISTESI
    var %z  1
    while $ini(onlines.ini,%z) {
      var %i  1
      while $ini(onlines.ini,%z,%i) {
        var %topsure $calc($readini(onlines.ini, $ini(onlines.ini,%z),$ini(onlines.ini,%z,%i)) + %topsure)
        inc %i 
      } 
      write onlines.txt $ini(onlines.ini,%z) %topsure
      .timer 1 %z msg # 4-> $+(2,$ini(onlines.ini,%z),) $zamancevir($duration(%topsure)) $+ 4\2OYH:14% $+ $round($calc(((%topsure / %onlineyuzde) * 100)),2)
      unset %topsure
      inc %z
    }
  }
  if $1 == *onlinereset && !$2 { .remove -b onlines.ini | unset %online*  | msg # 3İŞLEM: Online Listesi sıfırlandı. | .timer 1 3 hop $onlinekanal }
  if $1 == *onlinebugün && $2 && $2 !isnum { 
    if $regex($2,/^(*)/i) { msg # 4HATA:Eksik ya da Hatalı nick Yazımı. | return } 
    if !$ini(onlines.ini,$2) { msg # 4Hata: $qt($2) listede ekli değil. | return }
    if $ini(onlines.ini,$2) && $($+(%,online,$2),2) { 
      var %cv $($+(%,online,$2),2)
      msg # BUGÜNKÜ ONLINE SURESI $+($chr(91),4,$2,,$chr(93))
      msg # 4->2 $+($time(dd),$ay,$time(yyyy)) 4\ 1 $zamancevir($duration($calc($readini(onlines.ini,$2,$+($time(dd),$ay,$time(yyyy),$gun) + $calc($ctime - %cv)))))
      return
    }
    if $ini(onlines.ini,$2) && !$var($($+(%,online,$2),2)) && $2 !ison # { 
      msg # BUGÜNKÜ ONLINE SURESI $+($chr(91),4,$2,,$chr(93))
      if !$readini(onlines.ini,$2,$+($time(dd),$ay,$time(yyyy),$gun)) { msg # 4->2 $+($time(dd),$ay,$time(yyyy)) 4\1 0 saniye | return }
      msg # 4->2 $+($time(dd),$ay,$time(yyyy)) 4\1 $zamancevir($duration($readini(onlines.ini,$2,$+($time(dd),$ay,$time(yyyy),$gun))))
    }
  }
  if $1 == *onlinedetay && $2 && $2 !isnum {
    if $ini(onlines.ini,0) == 0 { msg # 4LİSTE BOŞ | return }
    if $regex($2,/^(*)/i) { msg # 4HATA:Eksik ya da Hatalı nick Yazımı. | return }   
    if !$ini(onlines.ini,$2) { msg # 4HATA: $qt($2) listede ekli değil. | return }
    if !$regex($2,/^(*)/i) && $ini(onlines.ini,$2) { 
      msg # ONLINE BILGISI DETAYI $+($chr(91),4,$2,,$chr(93))
      var %i 1 
      while $ini(onlines.ini,$2,%i) {
        var %ozaman $duration($readini(onlines.ini,$2,$ini(onlines.ini,$2,%i)))
        .timer 1 %i msg # 4->2 $ini(onlines.ini,$2,%i) 4\1 $zamancevir(%ozaman)
        inc %i  
      }
    }   
  }
  if $1 == *onlineliste || $1 == *onlinelistesi  {
    if $ini(onlines.ini,0) == 0 { msg # 4LİSTE BOŞ | return }
    msg # 2Online Süresi Tutulan Nickler
    var %i 1
    while $ini(onlines.ini,%i) {
      .timer 1 %i msg # 4 $+(%i,-,$chr(93))  $v1
      inc %i
    }
  }
  if $1 == *onlinetüm && $2 !isnum {
    if $ini(onlines.ini,0) == 0 { msg # 4LİSTE BOŞ | return }
    if $regex($2,/^(*)/i) { msg # 4HATA:Eksik ya da Hatalı nick Yazımı. | return }   
    if !$ini(onlines.ini,$2) { msg # 4HATA: $qt($2) listede ekli değil. | return }
    if !$regex($2,/^(*)/i) && $ini(onlines.ini,$2) { 
      var %i 1
      while $ini(onlines.ini,$2,%i) {
        var %topsure $calc($readini(onlines.ini,$2,$ini(onlines.ini,$2,%i)) + %topsure)
        inc %i 
      } 
      msg #  TOPLAM ONLINE SURESI $+($chr(91),4,$2,,$chr(93))
      msg #  6Toplam Online Süresi: $zamancevir($duration(%topsure)) 
      msg #  6OYH:1% $+ $round($calc((%topsure / $onlineyuzde)*100),2)
      msg #  6Başlangıç: $ini(onlines.ini,$2,1)
    }
  }
}

alias ay return $replace($time(mmmm),January,Ocak,February,Şubat,March,Mart,April,Nisan,May,Mayıs,June,Haziran,Jully,Temmuz,August,Ağustos,Semptember,Eylül,October,Ekim,November,Kasım,December,Aralık,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
alias gun return $replace($time(dddd),Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)

on *:part:$($onlinekanal):{
  if $regex($nick,/^(*)/i) && $ini(onlines.ini,$gettok($nick,2,$asc(_))) && $($+(%,online,$gettok($nick,2,$asc(_))),2) { 
    writeini -n onlines.ini $gettok($nick,2,$asc(_)) $+($time(dd),$ay,$time(yyyy),$gun)  $calc($readini(onlines.ini,$gettok($nick,2,$asc(_)),$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$gettok($nick,2,$asc(_))),2)))
    unset $+(%,online,$gettok($nick,2,$asc(_)))
    return  
  }
  if $ini(onlines.ini,$nick) && $($+(%,online,$nick),2) { 
    writeini -n onlines.ini $nick $+($time(dd),$ay,$time(yyyy),$gun) $calc($readini(onlines.ini,$nick,$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$nick),2)))
    unset $+(%,online,$nick)
  }
  if $nick == $me { fixiteasy }
}
on *:quit: {
  if $regex($nick,/^(*)/i) && $ini(onlines.ini,$gettok($nick,2,$asc(_))) && $($+(%,online,$gettok($nick,2,$asc(_))),2)  { 
    writeini -n onlines.ini $gettok($nick,2,$asc(_)) $+($time(dd),$ay,$time(yyyy),$gun) $calc($readini(onlines.ini,$gettok($nick,2,$asc(_)),$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$gettok($nick,2,$asc(_))),2)))
    unset $+(%,online,$gettok($nick,2,$asc(_)))
    return  
  }
  if $ini(onlines.ini,$nick) && $($+(%,online,$nick),2) { 
    writeini -n onlines.ini $nick $+($time(dd),$ay,$time(yyyy),$gun)  $calc($readini(onlines.ini,$nick,$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$nick),2)))
    unset $+(%,online,$nick)
  }
  if $nick == $me { fixiteasy }
}
on *:nick: {
  if $regex($newnick,/^(*)/i) && $ini(onlines.ini,$nick) && $newnick ison $onlinekanal { return }
  if $regex($nick,/^(*)/i) && $ini(onlines.ini,$gettok($nick,2,$asc(_))) && $newnick ison $onlinekanal && $($+(%,online,$gettok($nick,2,$asc(_))),2) { 
    msg $islemkanal 4 $newnick   Kanalda nick değiştirdi. 
    writeini -n onlines.ini $gettok($nick,2,$asc(_)) $+($time(dd),$ay,$time(yyyy),$gun) $calc($readini(onlines.ini,$gettok($nick,2,$asc(_)),$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$gettok($nick,2,$asc(_))),2)))
    unset $+(%,online,$gettok($nick,2,$asc(_)))
    return  
  }
}

on *:kick:$($onlinekanal):{
  if $ini(onlines.ini,$knick) && $($+(%,online,$nick),2) { 
    writeini -n onlines.ini $knick $+($time(dd),$ay,$time(yyyy),$gun)  $calc($readini(onlines.ini,$knick,$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - $($+(%,online,$knick),2)))
    unset $+(%,online,$knick)
  }
  if $knick == $me { fixiteasy }

}

on *:disconnect:fixiteasy

alias fixiteasy {
  var %i 1
  while $var(%online*,%i) {
    var %nonli $remove($var(%online*,%i),$chr($asc(%)),online) 
    var %nonlide $var(%online*,%i).value
    writeini -n onlines.ini %nonli $+($time(dd),$ay,$time(yyyy),$gun)  $calc($readini(onlines.ini,%nonli,$+($time(dd),$ay,$time(yyyy),$gun)) + ($ctime - %nonlide))
    inc %i
  }
}
alias kalpyetmezligi { 
  var %i 1
  while $nick($1,%i) {
    if $regex($nick($1,%i),/^(*)/i) && $ini(onlines.ini,$gettok($nick($1,%i),2,$asc(_))) {  set $+(%,online,$gettok($nick($1,%i),2,$asc(_))) $ctime }
    if $ini(onlines.ini,$nick($1,%i)) { set $+(%,online,$nick($1,%i)) $ctime  }
    inc %i 
  }
}
alias zamancevir return $replace($1-,secs,saniye,mins,dakika,min,dakika,sec,saniye,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta)

alias onlineyuzde {
  var %z  1
  while $ini(onlines.ini,%z) {
    var %i  1
    while $ini(onlines.ini,%z,%i) {
      var %topsure $calc($readini(onlines.ini, $ini(onlines.ini,%z),$ini(onlines.ini,%z,%i)) + %topsure)
      inc %i 
    } 
    var %totals $calc(%topsure + %totals)
    unset %topsure
    inc %z
  }
  return %totals 
}

alias onlinebasari {
  if $ini(onlines.ini,0) == 0 { msg $islemkanal 4LİSTE BOŞ | return }
  write -c onlines.txt
  var %onlineyuzde $onlineyuzde
  msg # TOP-ONLINE BAŞARI SIRALAMA LISTESI
  var %c  1
  while $ini(onlines.ini,%c) {
    var %f  1
    while $ini(onlines.ini,%c,%f) {
      var %topsure $calc($readini(onlines.ini, $ini(onlines.ini,%c),$ini(onlines.ini,%c,%f)) + %topsure)
      inc %f
    } 
    write onlines.txt $ini(onlines.ini,%c) %topsure
    unset %topsure
    inc %c
  }
  var %i 1
  while %i <= $lines(onlines.txt) {
    tokenize 32 $read(onlines.txt,%i)
    var %sirala %sirala $+($2,_,$1)
    inc %i
  }  
  var %z 1
  var %kacdesk $numtok($sorttok($replace(%sirala,$chr(32),.),46,nr),46)
  while %z <= %kacdesk {
    var %bas $gettok($sorttok($replace(%sirala,$chr(32),.),46,nr),%z,46)
    if %z <= %topnum { .timer 1 %z msg $islemkanal 6-> $+(%z,-,$chr(93)) 2 $gettok(%bas,2,$asc(_))  $zamancevir($duration($gettok(%bas,1,$asc(_)))) 4\6HYO:% $+ $round($calc(($gettok(%bas,1,$asc(_)) / %onlineyuzde)*100),2) }
    inc %z
  }
}