Kod

alias online {
  if $read(kayit.txt,w,$+(*,$1,*))  && !$istok(%omuaf,$1,32) { 
  write $+(-,l,$readn) kayit.txt  $1   $calc($token($read(kayit.txt,$readn),2,32) + 1) saniye gorev yapmistir. %ot. [ $+ [ $1 ] ]  } 
  else { 
    .set %ot. [ $+ [ $1 ] ] $date
    write kayit.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(kayit.txt)
  while (%b.lines > 0) { 
    .set %hot $calc(%hot + $gettok($read(kayit.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 isop #helpteam {
    if (!online iswm $1) { 
      if (!$2) { msg $chan Yanlis kullanim !online rumuz seklinde kullaniniz. }
      elseif (!$read(kayit.txt,w,$+(*,$2,*))) { /msg $chan  $2  rumuzu veritabaninda bulunmamaktadir. }
      else { 
        .set %ba $read(kayit.txt,w,$+(*,$2,*)))
        msg $chan -[4Nick]1 $gettok(%ba,1,32 ) [4Online Süresi]2 $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)

      }
    }
    if (!olist iswm $1) {
      if $nick isop #helpteam {
        msg $chan 4 ( $+ $lines(kayit.txt) $+ )2 Tane Kayitli 4İRC-Helper Bulunmakta..  
        msg $chan 1 Tek Helper için denemek isterseniz:4  !Online Rumuz 1yaziniz. 
        msg $chan -
        msg $chan -#Help 2Kanalı Online istatistik bilgileri..
        msg $chan -
        var %ok 1
        while (%ok <= $lines(kayit.txt)) {
          ;msg $me $read(kayit.txt,%ok)
          msg $chan -[4Nick]1 $gettok($read(kayit.txt,%ok),1,32 )  [4Online Süresi] 2 $replace($duration($($+($gettok($read(kayit.txt,%ok),2,32 )),2)),mins, $chr(32) dakika,hrs, $chr(32) saat,secs, $chr(32) Saniye,min,dakika,hr,Saat,sec,saniye) 
          :msg $chan -[4Nick] $gettok($read(kayit.txt,%ok),1,32 ) [4Online süresi][4Saat:Dakika:Saniye] $+ 2 $duration($($+($gettok($read(kayit.txt,%ok),2,32 )),2),3)
          inc %ok
        }
      }
    }
    if (!osil iswm $1) {
      if $nick isop #helpteam {
        if !$2 { msg $chan Yanlis kullanim !osil nick seklinde kullaniniz. }
        elseif (!$read(kayit.txt,w,$+(*,$2,*))) { /msg $chan  $2  rumuzu veritabaninda bulunmamaktadir. }
        elseif ($read(kayit.txt,w,$+(*,$2,*)) != $null) {
          write -dl $+ $readn kayit.txt 
          .msg $chan  $2  rumuzu veritabanindan silindi.
          timer $+ $2 off 
        }
      }
    }
  }
  if !osıfırla iswm $1 {
    if $nick isop #helpteam {
      /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 isop #helpteam {
      /remove kayit.txt
      /msg $chan Online veritabani basari ile sifirlandi $nick
    }
    else {
      /msg $chan Bu komutu kullanma yetkiniz bulunmamaktadir.
    }
  }
  if !ohayir iswm $1 {
    if $nick isop #helpteam {
      /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 4,1[0 $2 4 $replace($duration($($+($3),2)),mins, $chr(32) 0dakika,hrs, $chr(32) saat,secs, $chr(32) 0Saniye,min,dakika,hr,Saat,sec,saniye)  0gorev yapmistir.4]
    }
  }
}