alias _calc {
  if (!$hget(calc)) hmake calc 10
   if ($gettok($2,1,58) > $gettok($1,1,58)) return
   if ($gettok($1,1,58) > 23 || $gettok($2,1,58) > 23) return
   hadd calc top1 $calc($gettok($1,1,58) * 3600 + $gettok($1,2,58) * 60 + $gettok($1,3,58))
   hadd calc top2 $calc($gettok($2,1,58) * 3600 + $gettok($2,2,58) * 60 + $gettok($2,3,58))
   
   hadd calc gun $calc($gettok($3,1,47) - $gettok($4,1,47))
   hadd calc fark $calc($hget(calc,top1) - $hget(calc,top2))
   if $hget(calc,fark) >= 3600 {
     hadd calc saat 1
     :loop
     hadd calc fark $calc($hget(calc,fark) - 3600)
     if $hget(calc,fark) >= 3600 { hinc calc saat | goto loop }
   }
   else { hadd calc saat 0 }
   if $hget(calc,fark) >= 60 {
     hadd calc dakika 1
     :loop2
     hadd calc fark $calc($hget(calc,fark) - 60)
     if $hget(calc,fark) >= 60 { hinc calc dakika | goto loop2 }
   }
   else { hadd calc dakika 0 }
   return $hget(calc,gun) Gün, $hget(calc,saat) Saat, $hget(calc,dakika) dakika, $hget(calc,fark) Saniye
   hfree calc
}
alias puan { return $calc($gettok($1,1,32) * 1440 + $gettok($1,3,32) * 24 + $gettok($1,5,32)) }
on *:TEXT:*:?: {
  if $nick == admin {
    if $1 == !istatistikler {
      var %avril = 1
      while %avril <= $hget(ist,0).item {
        _linedance msg $nick $hget(ist,%avril).data
        inc %avril
      }
    }
  }
  if (!$hget(login)) hmake login 100
  if $1 == !login {
    if $nick ison #mychan {
      if ($hget(login,$nick)) .msg $nick Zaten Login Oldunuz!
      else { 
        hadd login $nick $time $date 
        .msg $nick Hoş Geldiniz, $nick $+ . Login Olduğunuz Saat: $time Tarih: $date 
      }
    }
  }
  elseif $1 == !puan {
    if $nick ison #mychan {
      if (!$hget(login,$nick)) .msg $nick Login Olmamışsınız!..
      else {
        .msg $nick Şu an ki Online Süreniz: $_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date)
        .msg $nick Buna göre puanınız: $puan($_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
      }
    }
  }
  elseif $1 == !logout {
    if $hget(login,$nick) {
      hadd ist $r(0,99999999) $nick $puan($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
      hsave ist ist.data 
      hdel login $nick
      if (!$hget(login,$nick)) .msg $nick Başarı ile Logout oldunuz
      else .msg $nick Logout İşlemi Sırasında bir hata oluştu
    }
    else .msg $nick Zaten Login değilsiniz.
  }
}
on *:PART:#mychan: { 
  if $hget(login,$nick) {
    hdel login $nick 
    .msg $nick Otomatik Logout!..
    hadd ist $r(0,99999999) $nick $puan($_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
    hsave ist ist.data
  }
}
on *:START: {
  if !$findfile($mircdir,ist.data,1) { hmake ist 100 | hsave ist ist.data }
  else { hmake ist | hload ist ist.data }
}