alias online {
  if $read(back.txt,w,$+(*,$1,*))  && !$istok(%omuaf,$1,32) { 
  write $+(-,l,$readn) back.txt  $1   $calc($token($read(back.txt,$readn),2,32) + 1) saniye gorev yapmistir. %ot. [ $+ [ $1 ] ]  } 
  else { 
    .set %ot. [ $+ [ $1 ] ] $date
    write back.txt  $1  1 saniye gorev yapmistir. %ot. [ $+ [ $1 ] ] 
  }
  else { timer $+ $1 off }
}

on *:join:#help:{
  if ($nick == $me) {
    timerTT 1 5 .ck #help
  }
}
alias ck { 
  .set %c.t $calc($nick($1,0,o) + $nick($1,0,h) - 1)
  msg #helpteam #Help kanalinda aktif gorunen %c.t gorevlinin online kaydi aliniyor..
  while (%c.t > 0) {
    if ($nick($1,%c.t) != $me) {
      if  !$istok(%omuaf,$nick($1,%c.t),32) { 
        timer $+ $nick($1,%c.t) 0 1 online $nick($1,%c.t)
        msg #helpteam $nick($1,%c.t) : Online süreniz kayda alinmaya baslandi.
      }
    }
    dec %c.t
  }
}

alias hot { 
  .unset %hot
  var %b.lines $lines(back.txt)
  while (%b.lines > 0) { 
    .set %hot $calc(%hot + $gettok($read(back.txt,%b.lines),2,32))
    dec %b.lines
  }
  return %hot
}

alias hotyuzde {
  .set %yuzde $chr(37) $+ $calc($1 * 100 / $hot)
  .return $left(%yuzde,5)
}

on *:rawmode:#Help:{
  if +o == $1 && $istok(%omuaf,$2,32) == $false {
    /timer $+ $2 0 1 /online $2
  }
  if +h == $1 && $istok(%omuaf,$2,32) == $false {
    /timer $+ $2 0 1 /online $2
  }
  if +oa == $1 && $istok(%omuaf,$2,32) == $false  {
    /timer $+ $2 0 1 /online $2
  }
  if +oq == $1 && $istok(%omuaf,$2,32) == $false {
    /timer $+ $2 0 1 /online $2
  }
  if -o == $1 || $istok(%omuaf,$2,32) == $true  {
    /timer $+ $2  off 
  }
  if -oa == $1 || $istok(%omuaf,$2,32) == $true  {
    /timer $+ $2  off 
  }
  if -h == $1  || $istok(%omuaf,$2,32) == $true  {
    /timer $+ $2  off 

  }
}

on *:part:#Help:{   /timer $+ $nick  off  }

on *:quit:{  /timer $+ $nick  off  }






on *:text:*:#Helpteam:{
  if $nick ison #helpsop || $nick ishop #helpteam) || $nick isop #helpteam) {
    if (!online iswm $1) { 
      if (!$2) { msg $chan Yanlis kullanim !online rumuz seklinde kullaniniz. }
      elseif (!$read(back.txt,w,$+(*,$2,*))) { /msg $chan  $2  rumuzu veritabaninda bulunmamaktadir. }
      else { 
        .set %ba $read(back.txt,w,$+(*,$2,*)))
        msg $chan 4Nick:1 $gettok(%ba,1,32 ) 4Süre:1 $replace($duration($($+($gettok(%ba,2,32 )),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye) 4Görev yapmistir.

      }
    }
    if (!olist iswm $1) {
      if $nick ison #helpsop || $nick ishop #helpteam) || $nick isop #helpteam) {
        msg $chan 4 ( $+ $lines(back.txt) $+ )1 Tane kayitli helper bulunmakta.  
        msg $chan 1 Tek Helper için denemek isterseniz:4  !Online Rumuz 1yaziniz. 
        msg $chan 
        var %ok 1
        while (%ok <= $lines(back.txt)) {
          ;msg $me $read(back.txt,%ok)
          ;  msg $chan 4 %ok $+ )1 $gettok($read(back.txt,%ok),1,32 ) $+ 4 $replace($duration($($+($gettok($read(back.txt,%ok),2,32 )),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye) 1Görev yapmistir.
          msg $chan [ $+ $gettok($read(back.txt,%ok),6,32) $+ ] :4 $gettok($read(back.txt,%ok),1,32 )  1Gorev suresi : $+ 4 $duration($($+($gettok($read(back.txt,%ok),2,32 )),2),3) - $hotyuzde($gettok($read(back.txt,%ok),2,32))
          inc %ok
        }
      }
    }
    if (!osil iswm $1) {
      if $nick ison #helpsop {
        if !$2 { msg $chan Yanlis kullanim !osil nick seklinde kullaniniz. }
        elseif (!$read(back.txt,w,$+(*,$2,*))) { /msg $chan  $2  rumuzu veritabaninda bulunmamaktadir. }
        elseif ($read(back.txt,w,$+(*,$2,*)) != $null) {
          write -dl $+ $readn back.txt 
          .msg $chan  $2  rumuzu veritabanindan silindi.
          timer $+ $2 off 
        }
      }
    }
  }
  if !osifirla iswm $1 {
    if  $nick ison #helpsop {
      /msg $chan Online veritabanini sifirlamak istediginizden emin misiniz?
      /msg $chan Sifirlamayi onaylamak icin !Oevet
      /msg $chan Sifirlama islemini iptal etmek icin !Ohayir
    }
    else {
      /msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
    }
  }
  if !oevet iswm $1  {
    if  $nick ison #helpsop {
      /remove back.txt
      /msg $chan Online veritabani basari ile sifirlandi $nick
    }
    else {
      /msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
    }
  }
  if !ohayir iswm $1 {
    if  $nick ison #helpsop {
      /msg $chan Online veritabani sifirlanma islemi durduruldu.
    }
    else {
      /msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
    }
  }
  if $1 == !omuaf { .set %omuaf $addtok(%omuaf,$2,32) | msg $chan O-Muaf: %omuaf }
  if $1 == !omuafsil { .set %omuaf $remove(%omuaf, $2 ) | msg $chan O-Muaf: %omuaf }
}


on *:text:*:?:{ 
  if $nick == $me {
    if *saniye* iswm $1- {
      /msg #helpteam $1 $replace($duration($($+($2),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye) gorev yapmistir.
    }
  }
}

on *:text:*:#helpteam:{
  if  nick == aLy || $nick == Soğuk || $nick == Slipknot {
    if $1 == !hekle && $2 {
      if $ini(kayitlar\helperdb.ini,$2) > 0 {
        .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlarda mevcut.
      }
      else {
        .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlara eklendi.
        .writeini kayitlar\helperdb.ini $2 1 0
        .writeini kayitlar\helperdb.ini $2 2 0
        .writeini kayitlar\helperdb.ini $2 3 0
        if $2 ison #help {
          set %ogiris. [ $+ [ $2 ] ] $ctime($fulldate)
        }
        else if $2 !ison #help && $2 ison #helpteam {
          .set %agiris. [ $+ [ $2 ] ] $ctime($fulldate)
        }
      }
    }
    else if $1 == !hsil && $2 {
      if $ini(kayitlar\helperdb.ini,$2) == 0 {
        .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlarda bulunmamaktadir.
      }
      else {
        .remini kayitlar\helperdb.ini $2
        .msg $chan - $+($chr(2),$2,$chr(2)) kayitlardan silindi.
        .unset %?giris. [ $+ [ $2 ] ]
      }
    }
    else if $1 == !hlist {
      if $ini(kayitlar\helperdb.ini,0) == 0 {
        .msg $chan - Kayit bulunmamaktadir.
      }
      else {
        var %i = 1
        msg $chan 
        while %i <= $ini(kayitlar\helperdb.ini,0) {
          .msg $chan - $ini(kayitlar\helperdb.ini,%i)
          inc %i
        }
        .msg $chan 
      }
    }
    ;if $1 == !aekle && $2 {
    ;  if $ini(kayitlar\helperadaydb.ini,$2) > 0 {
    ;    .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlarda mevcut.
    ;  }
    ;  else {
    ;    .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlara eklendi.
    ;    .writeini kayitlar\helperadaydb.ini $2 1 0
    ;    if $2 ison #ircethos {
    ;      set %ogiris. [ $+ [ $2 ] ] $ctime($fulldate)
    ;    }
    ;    else {
    ;      var %i = 1
    ;      while %i <= $nick(#ircethos,0) {
    ;        if $nick(#ircethos,%i) isreg #ircethos && $gettok($nick(#ircethos,%i),1,91) == $2 {
    ;          .set %agiris. [ $+ [ $2 ] ] $ctime($fulldate) | halt
    ;        }
    ;        inc %i
    ;      }
    ;    }
    ;  }
    ;}
    ;else if $1 == !asil && $2 {
    ;  if $ini(kayitlar\helperdb.ini,$2) == 0 {
    ;    .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlarda bulunmamaktadir.
    ;  }
    ;  else {
    ;    .remini kayitlar\helperdb.ini $2
    ;    .msg $chan - $+($chr(2),$2,$chr(2)) kayitlardan silindi.
    ;    .unset %?giris. [ $+ [ $2 ] ]
    ;  }
    ;}
    else if $1 == !dbsil && $nick == Slipknot {
      if %dbsil. [ $+ [ $nick ] ] != OK {
        .msg $chan - Kayitli tum verileri silmek istiyorsunuz.
        .msg $chan - Devam etmek icin !devam iptal etmek icin !iptal yaziniz.
        .set %dbsil. [ $+ [ $nick ] ] OK
        .timerdbsil 1 10 /dbsiliptal $nick
      }
    }
    else if $1 == !devam && $nick == Slipknot {
      if %dbsil. [ $+ [ $nick ] ] == OK {
        var %i = 1
        while %i <= $ini(kayitlar\helperdb.ini,0) {
          var %j = 1
          while %j <= 3 {
            .writeini kayitlar\helperdb.ini $ini(kayitlar\helperdb.ini,%i) %j 0
            inc %j
          }
          inc %i
        }
        .msg $chan - Kayitlarda bulunan online/voice bilgiler sifirlandi. $+($chr(91),$chr(2),$left($date,2)) $ayhesabi $gunhesabi - $+($time,$chr(2),$chr(93))
        .unset %dbsil. [ $+ [ $nick ] ]
        .timerdbsil off
        .set %dbreset.sure $ctime($fulldate)
        .set %dbreset.zaman $left($date,2) $ayhesabi $gunhesabi - $time
        .helpgiris
      }
    }
    else if $1 == !iptal && $nick == Slipknot {
      if %dbsil. [ $+ [ $nick ] ] == OK {
        .msg $chan - Kayit silme islemi iptal edildi.
        .unset %dbsil. [ $+ [ $nick ] ]
        .timerdbsil off
      }
    }
    else if $1 == !rapor {
      if $2 == $null {
        var %i = 1
        while %i <= $lines($+(kayitlar\rapor\,$replace($date,$chr(47),$chr(45)),.txt)) {
          .msg $chan $read($+(kayitlar\rapor\,$replace($date,$chr(47),$chr(45)),.txt),%i)
          inc %i
        }
      }
      else if $2 != $null {
        if $ini(kayitlar\helperdb.ini,$2) == 0 && !$regex($2,\d) {
          .msg $chan - $+($chr(2),$2,$chr(2)) nicki kayitlarda bulunmamaktadir.
        }
        else if $ini(kayitlar\helperdb.ini,$2) > 0 {
          var %i = 1
          while %i <= $ini(kayitlar\helperdb.ini,0) {
            .set %t.ovoice $calc(%t.ovoice + $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1))
            inc %i
          }
          .helpcikis 
          .helpgiris
          .set %o.toplam $readini(kayitlar\helperdb.ini,$2,2)
          .set %a.toplam $readini(kayitlar\helperdb.ini,$2,3)
          .msg $chan $chr(2)
          .msg $chan - #Help voice sayisi » $+($chr(2),$readini(kayitlar\helperdb.ini,$2,1),$chr(2)) [Tum voice'larin yuzdesi: $+($chr(2),$chr(37),$round($calc(100 * $readini(kayitlar\helperdb.ini,$2,1) / %t.ovoice),2),$chr(2)) $chr(124) Ortalama voice sayisi: $+($chr(2),$round($calc($readini(kayitlar\helperdb.ini,$2,1) / $int($calc((86400 + $ctime($fulldate) - %dbreset.sure) / 86400))),1),$chr(2),$chr(93))
          .msg $chan - Online suresi » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$2,2)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) [Online yuzdesi: $+($chr(2),$chr(37),$round($calc(100 * %o.toplam / (%o.toplam + %a.toplam)),2),$chr(2)) $chr(124) Ortalama online suresi: $+($chr(2),$replace($duration($calc($readini(kayitlar\helperdb.ini,$2,2) / $int($calc((86400 + $ctime($fulldate) - %dbreset.sure) / 86400)))),hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2),$chr(93))
          .msg $chan - Away suresi » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$2,3)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) [Away yuzdesi: $+($chr(2),$chr(37),$round($calc(100 * %a.toplam / (%o.toplam + %a.toplam)),2),$chr(2)) $chr(124) Ortalama away suresi: $+($chr(2),$replace($duration($calc($readini(kayitlar\helperdb.ini,$2,3) / $int($calc((86400 + $ctime($fulldate) - %dbreset.sure) / 86400)))),hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2),$chr(93))
          .msg $chan $chr(2)
          .msg $chan - Bu istatistik $+($chr(2),%dbreset.zaman,$chr(2)) tarihinden bu yana olan verileri kapsamaktadir.
          .unset %t.?voice | .unset %?.toplam
        }
      }
    }
    else if $1 == !vlist {
      var %i = 1
      while %i <= $ini(kayitlar\helperdb.ini,0) {
        .set %toplam $calc(%toplam + $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1))
        inc %i
      }
      var %i = 1
      .msg $chan $chr(2)
      while %i <= $ini(kayitlar\helperdb.ini,0) {
        .msg $chan - $+($chr(2),$ini(kayitlar\helperdb.ini,%i),$chr(2)) voice sayisi » $+($chr(2),$readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1),$chr(2)) $+($chr(40),$chr(2),$chr(37),$round($calc(100 * $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1) / %toplam),2),$chr(2),$chr(41))
        inc %i
      }
      .msg $chan $chr(2)
      .msg $chan - Toplam $+($chr(2),%toplam,$chr(2)) adet voice verilmistir.
      .msg $chan - Bu liste $+($chr(2),%dbreset.zaman,$chr(2)) tarihinden bu yana olan verileri kapsamaktadir.
      .unset %toplam
    }
  }
  else if $1 == !raporum && !$2 {
    if $ini(kayitlar\helperdb.ini,$nick) == 0 {
      .msg $chan - $+($chr(2),$nick,$chr(2),$chr(44)) nickiniz kayitlarda bulunmamaktadir.
    }
    else {
      var %i = 1
      while %i <= $ini(kayitlar\helperdb.ini,0) {
        .set %t.ovoice $calc(%t.ovoice + $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1))
        .set %t.kvoice $calc(%t.kvoice + $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1))
        inc %i
      }
      .set %o.toplam $readini(kayitlar\helperdb.ini,$nick,3)
      .set %a.toplam $readini(kayitlar\helperdb.ini,$nick,4)
      .msg $chan $chr(2)
      .msg $chan - Voice sayiniz » $+($chr(2),$readini(kayitlar\helperdb.ini,$nick,1),$chr(2)) $+($chr(40),$chr(2),$chr(37),$round($calc(100 * $readini(kayitlar\helperdb.ini,$nick,1) / %t.ovoice),2),$chr(2),$chr(41))
       .msg $chan - Online sureniz » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$nick,3)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,saat,hr,saat,mins,dakika,min,dakika,secs,saniye,sec,saniye),$chr(2))) $+($chr(40),$chr(2),$chr(37),$round($calc(100 * %o.toplam / (%o.toplam + %a.toplam)),2),$chr(2),$chr(41))
         .msg $chan - Away sureniz » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$nick,4)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,saat,hr,saat,mins,dakika,min,dakika,secs,saniye,sec,saniye),$chr(2))) $+($chr(40),$chr(2),$chr(37),$round($calc(100 * %a.toplam / (%o.toplam + %a.toplam)),2),$chr(2),$chr(41))
      .msg $chan $chr(2)
      .msg $chan - Bu istatistik $+($chr(2),%dbreset.zaman,$chr(2)) tarihinden bu yana olan verileri kapsamaktadir.
      .unset %t.?voice | .unset %?.toplam
    }
  }

  ; else if $1 == !olist {
  ;  .helpcikis | .helpgiris
  ; var %i = 1
  ;.msg $chan $chr(2)
  ; while %i <= $ini(bac,0) {
  ;  .set %online $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),2)
  ;  .set %away $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),3)
  ; .set %toplam $calc(%online + %away)
  ; .msg $chan - $+($chr(2),$ini(kayitlar\helperdb.ini,%i),$chr(2)) online suresi » $+($chr(2),$replace($duration($readini(back.txt,$ini(kayitlar\helperdb.ini,%i),2)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) $+($chr(40),Online:,$chr(2)) $+($chr(37),$round($calc(100 * %online / %toplam),2),$chr(2)) $+(Away:,$chr(2)) $+($chr(37),$round($calc(100 * %away / %toplam),2),$chr(2),$chr(41))
  ; inc %i
  ;}
  ;.msg $chan $chr(2)
  ; var %i = 1
  ;while %i <= $ini(kayitlar\helperdb.ini,0) {
  ; .set %online $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),1)
  ;.set %away $readini(kayitlar\helperdb.ini$ini(kayitlar\helperdb.ini,%i),2)
  ;.set %toplam $calc(%online + %away)
  ;.msg $chan - $+($chr(2),$ini(kayitlar\helperdb.ini,%i),$chr(2)) online suresi » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$ini(back.txt,%i),1)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) $+($chr(40),Online:,$chr(2)) $+($chr(37),$round($calc(100 * %online / %toplam),2),$chr(2)) $+(Away:,$chr(2)) $+($chr(37),$round($calc(100 * %away / %toplam),2),$chr(2),$chr(41))
  ;inc %i
  ;}
  ;.msg $chan $chr(2)
  ;.msg $chan - Bu liste $+($chr(2),%dbreset.zaman,$chr(2)) tarihinden bu yana olan verileri kapsamaktadir.
  ;.unset %online | .unset %away | .unset %toplam
  ;}
  ; else if $1 == !alist {
  ;  .helpcikis | .helpgiris
  ; var %i = 1
  ;.msg $chan $chr(2)
  ;while %i <= $ini(kayitlar\helperdb.ini,0) {
  ; set %online $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),2)
  ;set %away $readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),3)
  ;set %toplam $calc(%online + %away)
  ;.msg $chan - $+($chr(2),$ini(kayitlar\helperdb.ini,%i),$chr(2)) away suresi » $+($chr(2),$replace($duration($readini(kayitlar\helperdb.ini,$ini(kayitlar\helperdb.ini,%i),3)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) $+($chr(40),Online:,$chr(2)) $+($chr(37),$round($calc(100 * %online / %toplam),2),$chr(2)) $+(Away:,$chr(2)) $+($chr(37),$round($calc(100 * %away / %toplam),2),$chr(2),$chr(41))
  ;inc %i
  ; }
  ;var %i = 1
  ;.msg $chan $chr(2)
  ;while %i <= $ini(kayitlar\helperadaydb.ini,0) {
  ;  set %online $readini(kayitlar\helperadaydb.ini,$ini(kayitlar\helperadaydb.ini,%i),1)
  ;  set %away $readini(kayitlar\helperadaydb.ini,$ini(kayitlar\helperadaydb.ini,%i),2)
  ;  set %toplam $calc(%online + %away)
  ;  .msg $chan - $+($chr(2),$ini(kayitlar\helperadaydb.ini,%i),$chr(2)) away suresi » $+($chr(2),$replace($duration($readini(kayitlar\helperadaydb.ini,$ini(kayitlar\helperadaydb.ini,%i),2)),wks,hafta,wk,hafta,days,gun,day,gun,hrs,sa,hr,sa,mins,dk,min,dk,secs,sn,sec,sn),$chr(2))) $+($chr(40),Online:,$chr(2)) $+($chr(37),$round($calc(100 * %online / %toplam),2),$chr(2)) $+(Away:,$chr(2)) $+($chr(37),$round($calc(100 * %away / %toplam),2),$chr(2),$chr(41))
  ;  inc %i
  ;}
  ;.unset %online | .unset %away | .unset %toplam
  ;.msg $chan $chr(2)
  ;.msg $chan - Bu liste $+($chr(2),%dbreset.zaman,$chr(2)) tarihinden bu yana olan verileri kapsamaktadir.
}
on *:voice:#:{
  if $chan == #help {
    if $ini(kayitlar\helperdb.ini,$nick) > 0 {
      .writeini kayitlar\helperdb.ini $nick 1 $calc($readini(kayitlar\helperdb.ini,$nick,1) + 1)
    }
  }
}

on *:join:#:{
  if $chan == #help && $nick == $me {
    .unset %ogiris.* | .unset %ocikis.* | .unset online.*
    .timer 1 1 helpgiris
  }
  ;if $chan == #ircethos && $ini(kayitlar\helperadaydb.ini,$nick) > 0 {
  ;  .unset %ocikis. [ $+ [ $nick ] ]
  ;  .unset %online. [ $+ [ $nick ] ]
  ;  .set %ogiris. [ $+ [ $nick ] ] $ctime($fulldate)
  ;}
}

on *:part:#:{
  if $nick == $me && $chan == #help {
    .helpcikis | halt
  }
  if $nick != $me {
    if $ini(kayitlar\helperdb.ini,$nick) > 0 && $chan == #help {
      .set %agiris. [ $+ [ $nick ] ] $ctime($fulldate)
      if $var(%ogiris. [ $+ [ $nick ] ] ) {
        .ohesapla $nick %ogiris. [ $+ [ $nick ] ]
      }
      halt
    }
    ;if $ini(kayitlar\helperadaydb.ini,$nick) > 0 && $chan == #ircethos {
    ;  if $var(%ogiris. [ $+ [ $nick ] ] ) {
    ;    .ohesapla $nick %ogiris. [ $+ [ $nick ] ]
    ;  }
    ;}
  }
}

;on *:nick:{
;  if $nick isreg #ircethos || $newnick isreg #ircethos {
;    if $ini(kayitlar\helperadaydb.ini,$nick) > 0 {
;      .ohesapla $nick %ogiris. [ $+ [ $nick ] ]
;      .set %agiris. [ $+ [ $nick ] ] $ctime($fulldate)
;    }
;    if $ini(kayitlar\helperadaydb.ini,$newnick) > 0 {
;      .ahesapla $newnick %agiris. [ $+ [ $newnick ] ]
;      .set %ogiris. [ $+ [ $newnick ] ] $ctime($fulldate)
;    }
;  }
;}

;on *:quit:{
;  if $ini(kayitlar\helperdb.ini,$nick) > 0 && $nick != $me {
;    if $var(%ogiris. [ $+ [ $nick ] ] ) {
;      .ohesapla $nick %ogiris. [ $+ [ $nick ] ]
;    }
;    if $var(%agiris. [ $+ [ $nick ] ] ) {
;      .ahesapla $nick %agiris. [ $+ [ $nick ] ]
;    }
;  }
;}

on *:snotice:*:{
  if *Client exiting* iswm $1- && $ini(kayitlar\helperdb.ini,$6) > 0  && $6 ison #helpteam {
    if $var(%ogiris. [ $+ [ $6 ] ] ) {
      .ohesapla $6 %ogiris. [ $+ [ $6 ] ]
    }
    if $var(%agiris. [ $+ [ $6 ] ] ) {
      .ahesapla $6 %agiris. [ $+ [ $6 ] ]
    }
  }
}

on *:op:#:{
  if $chan == #help {
    if $ini(kayitlar\helperdb.ini,$opnick) > 0 && $opnick != $me {
      .unset %ocikis. [ $+ [ $opnick ] ]
      .unset %online. [ $+ [ $opnick ] ]
      .set %ogiris. [ $+ [ $opnick ] ] $ctime($fulldate)
      if %agiris. [ $+ [ $opnick ] ] {
        .ahesapla $opnick %agiris. [ $+ [ $opnick ] ]
      }
    }
  }
}

on *:disconnect:{ .helpcikis }

alias dbsiliptal {
  if %dbsil. [ $+ [ $1 ] ] == OK {
    .msg #helpteam - Kayit silme islemi zaman asimindan iptal edildi.
    .unset %dbsil. [ $+ [ $1 ] ]
  }
}

alias ohesapla {
  .set %online. [ $+ [ $1 ] ] $calc($ctime($fulldate) - $2)
  if $ini(kayitlar\helperdb.ini,$1) > 0 {
    .writeini kayitlar\helperdb.ini $1 2 $calc($readini(kayitlar\helperdb.ini,$1,2) + %online. [ $+ [ $1 ] ] )
  }
  ;else if $ini(kayitlar\helperadaydb.ini,$1) > 0 {
  ;  .writeini kayitlar\helperadaydb.ini $1 1 $calc($readini(kayitlar\helperadaydb.ini,$1,1) + %online. [ $+ [ $1 ] ] )
  ;}
  .unset %online. [ $+ [ $1 ] ] | .unset %ogiris. [ $+ [ $1 ] ]
}

alias helpgiris {
  var %i = 1
  while %i <= $ini(kayitlar\helperdb.ini,0) {
    if $ini(kayitlar\helperdb.ini,%i) ison #help {
      .set %ogiris. [ $+ [ $ini(kayitlar\helperdb.ini,%i) ] ] $ctime($fulldate)
    }
    else if $ini(kayitlar\helperdb.ini,%i) !ison #help {
      var %j = 1
      while %j <= $nick(#help,0) {
        if $ini(kayitlar\helperdb.ini,%i) == $gettok($nick(#help,%j),1,91) {
          .set %agiris. [ $+ [ $ini(kayitlar\helperdb.ini,%i) ] ] $ctime($fulldate)
        }
        inc %j
      }
    }
    inc %i
  }
}

alias helpcikis {
  var %i = 1
  while %i <= $var(%ogiris.*,0) {
    .set %online. [ $+ [ $gettok($var(%ogiris.*,%i),2,46) ] ] $calc($ctime($fulldate) - %ogiris. [ $+ [ $gettok($var(%ogiris.*,%i),2,46) ] ] )
    .writeini kayitlar\helperdb.ini $gettok($var(%ogiris.*,%i),2,46) 2 $calc($readini(kayitlar\helperdb.ini,$gettok($var(%ogiris.*,%i),2,46),2) + %online. [ $+ [ $gettok($var(%ogiris.*,%i),2,46) ] ] )
    inc %i
  }
  var %i = 1
  while %i <= $var(%agiris.*,0) {
    .set %away. [ $+ [ $gettok($var(%agiris.*,%i),2,46) ] ] $calc($ctime($fulldate) - %agiris. [ $+ [ $gettok($var(%agiris.*,%i),2,46) ] ] )
    .writeini kayitlar\helperdb.ini $gettok($var(%agiris.*,%i),2,46) 3 $calc($readini(kayitlar\helperdb.ini,$gettok($var(%agiris.*,%i),2,46),3) + %away. [ $+ [ $gettok($var(%agiris.*,%i),2,46) ] ] )
    inc %i
  }
  .unset %ogiris.* | .unset %online.*
  .unset %agiris.* | .unset %away.*
}

alias ahesapla {
  .set %away. [ $+ [ $1 ] ] $calc($ctime($fulldate) - $2)
  if  $ini(kayitlar\helperdb.ini,$1) > 0 {
    .writeini kayitlar\helperdb.ini $1 3 $calc($readini(kayitlar\helperdb.ini,$1,3) + %away. [ $+ [ $1 ] ] )
  }
  ;else if $ini(kayitlar\helperadaydb.ini,$1) > 0 {
  ;  .writeini kayitlar\helperadaydb.ini $1 2 $calc($readini(kayitlar\helperadaydb.ini,$1,2) + %away. [ $+ [ $1 ] ] )
  ;}
  .unset %away. [ $+ [ $1 ] ] | .unset %agiris. [ $+ [ $1 ] ]
}

alias gunhesabi { return $replace($day,monday,Pazartesi,tuesday,Sali,wednesday,Carsamba,thursday,Persembe,friday,Cuma,saturday,Cumartesi,sunday,Pazar) }
alias ayhesabi { return $replace($asctime(mmmm),january,Ocak,february,Subat,march,Mart,april,Nisan,may,Mayis,june,Haziran,july,Temmuz,august,Agustos,september,Eylul,october,Ekim,november,Kasim,december,Aralik) }