; FlashFXP Stats
; Original author unknown
; Almost totally re-written by Jonathan Giam
; http://www.monsternet.org

;### -> Popups <- ###;

menu channel,query {
  FlashFXP-Stats
  .all:/fxpstat
  .fxp:/fxpfxp
  .down:/fxpdown
  .up:/fxpup
}

;### -> End Popups <- ###;


on 1:load: {
  fxphelp
}

alias fxphelp {
  /.echo -s 1,15 - FlashFXP Stats - 
  /.echo -s 1,15 - version 2 - 
  /.echo -s 1,15 - by Jonathan Giam - 
  /.echo -s 1,15 - http://www.monsternet.org - 
  /.echo -s 
  /.echo -s 1,15 - Usage: - 
  /.echo -s 1,15 - Type the following commands in a channel or query window - 
  /.echo -s 1,15 - /fxpstat will display full statistics - 
  /.echo -s 1,15 - /fxpfxp will display FXP statistics - 
  /.echo -s 1,15 - /fxpdown will display download statistics - 
  /.echo -s 1,15 - /fxpup will display upload statistics - 
  /.echo -s 1,15 - Type /fxphelp to display this - 
}

alias fxpstat {
  .timer 1 1 fxpfxp
  .timer 1 3 fxpdown
  .timer 1 5 fxpup
}


alias fxpfxp {
  if (%flashfxppath == $null) { 
    %flashfxppath = $sdir="Select the Directory Containing FlashFXP" C:\ 
  }
  %flashfxpbytes = $readini %flashfxppath $+ stats.dat #total# X
  %flashfxpdate2 = $readini " $+ %flashfxppath $+ stats.dat" #Total# LR
  %flashfxpdate2 = $left(%flashfxpdate2,5)
  %flashfxpdate2 = $calc((%flashfxpdate2 - 25569) * 86400) 
  %flashfxpdate1 = $asctime(%flashfxpdate2,d mmm yyyy)
  %flashfxpratekbps = $round($calc((%flashfxpbytes / 1024) / ($ctime - %flashfxpdate2)),3)
  %flashfxpratembpm = $round($calc((%flashfxpbytes / 1024 / 1024) / (($ctime - %flashfxpdate2) / 60 / 60 / 24)),3)
  if (%flashfxpbytes > 1000000000) {
    say [FXP] $round($calc(%flashfxpbytes / 1024 / 1024 / 1024),2) GB since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
  elseif (%flashfxpbytes > 1000000) {
    say [FXP] $round($calc(%flashfxpbytes / 1024 / 1024),2) MB since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
  elseif (%flashfxpbytes > 1000) {
    say [FXP] $round($calc(%flashfxpbytes / 1024),2) KB since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
  else {
    say [FXP] %flashfxpbytes bytes since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
}
alias fxpup {
  if (%flashfxppath == $null) { 
    %flashfxppath = $sdir="Select the Directory Containing FlashFXP" C:\ 
  }
  %flashupbytes = $readini %flashfxppath $+ stats.dat #total# FU
  %flashfxpdate2 = $readini " $+ %flashfxppath $+ stats.dat" #Total# LR
  %flashfxpdate2 = $left(%flashfxpdate2,5)
  %flashfxpdate2 = $calc((%flashfxpdate2 - 25569) * 86400) 
  %flashfxpdate1 = $asctime(%flashfxpdate2,d mmm yyyy)
  %flashupratekbps = $round($calc((%flashupbytes / 1024) / ($ctime - %flashfxpdate2)),3)
  %flashupratembpm = $round($calc((%flashupbytes / 1024 / 1024) / (($ctime - %flashfxpdate2) / 60 / 60 / 24)),3)
  if (%flashupbytes > 1000000000) {
    say [UL] $round($calc(%flashupbytes / 1024 / 1024 / 1024),2) GB since %flashfxpdate1 - Average: %flashupratekbps KB/s or %flashupratembpm MB/day
  }
  elseif (%flashupbytes > 1000000) {
    say [UL] $round($calc(%flashupbytes / 1024 / 1024),2) MB since %flashfxpdate1 - Average: %flashupratekbps KB/s or %flashupratembpm MB/day
  }
  elseif (%flashupbytes > 1000) {
    say [UL] $round($calc(%flashupbytes / 1024),2) KB since %flashfxpdate1 - Average: %flashupratekbps KB/s or %flashupratembpm MB/day
  }
  else {
    say [UL] %flashupbytes bytes since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
}

alias fxpdown {
  if (%flashfxppath == $null) { 
    %flashfxppath = $sdir="Select the Directory Containing FlashFXP" C:\ 
  }
  %flashdnbytes = $readini %flashfxppath $+ stats.dat #total# FD
  %flashfxpdate2 = $readini " $+ %flashfxppath $+ stats.dat" #Total# LR
  %flashfxpdate2 = $left(%flashfxpdate2,5)
  %flashfxpdate2 = $calc((%flashfxpdate2 - 25569) * 86400) 
  %flashfxpdate1 = $asctime(%flashfxpdate2,d mmm yyyy)
  %flashdnratekbps = $round($calc((%flashdnbytes / 1024) / ($ctime - %flashfxpdate2)),3)
  %flashdnratembpm = $round($calc((%flashdnbytes / 1024 / 1024) / (($ctime - %flashfxpdate2) / 60 / 60 / 24)),3)
  if (%flashdnbytes > 1000000000) {
    say [DL] $round($calc(%flashdnbytes / 1024 / 1024 / 1024),2) GB since %flashfxpdate1 - Average: %flashdnratekbps KB/s or %flashdnratembpm MB/day
  }
  elseif (%flashupbytes > 1000000) {
    say [DL] $round($calc(%flashdnbytes / 1024 / 1024),2) MB since %flashfxpdate1 - Average: %flashdnratekbps KB/s or %flashdnratembpm MB/day
  }
  elseif (%flashupbytes > 1000) {
    say [DL] $round($calc(%flashdnbytes / 1024),2) KB since %flashfxpdate1 - Average: %flashdnratekbps KB/s or %flashdnratembpm MB/day
  }
  else {
    say [DL] %flashdnbytes bytes since %flashfxpdate1 - Average: %flashfxpratekbps KB/s or %flashfxpratembpm MB/day
  }
}