SCRIPT SETI@HOME POUR BOINC

; ––––––––––––––––––––––––––––––––––––––––––––––––
; Seti@home mIRCstats by BOINC.dk
; Global modifications by MegaMax - First modifications by Spike
; Seti@home 4.18 - Boinc 5.2.13 - mIRC 6.16
; ––––––––––––––––––––––––––––––––––––––––––––––––

on *:load: { if (!%f) set %path $sdir(C:,Emplacement du dossier Boinc) | echo Statistiques Seti@home Chargées }
menu channel,query {
  .-
  .Seti@home
  ..Statistiques:seti
  ..Statistiques avancées:setix
  ..Infos CPU/OS:seticpu
  .-
  ..A Propos:about
  ..Unload Seti mIRCstats:unload
}
alias hrs {  
  if ($1 isnum)  {
    return $+(,$int($calc($1 /3600)),,h) $+(,$right(0 $+ $int($calc($1% 3600/60)),2),,m)  
  }
  else { return N/A }
}
alias path { return $+(%path,/client_state.xml) }
alias del { return $gettok($gettok($read($path,w,$+(*,$1,*)),-1,62),1,60) }
alias path2 { return $+(%path,/slots/0/state.sah) }
alias del2 { return $gettok($gettok($read($path2,w,$+(*,$1,*)),-1,62),1,60) 
}
alias seti {
  var %name = $del(<user_name> )
  var %team = $del(<team_name> )
  if (%team == /team_name) var %team = N/A
  var %tc = $round($del(<user_total_credit> ),2)
  var %ueacgc = $round($del(<user_expavg_credit> ),2)
  var %projekt = $del(<project_name> )
  var %pcid = $del(<hostid> )
  var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  else var %progressa = $gettok(%progress,1,46) $+ %
  var %time = $hrs($del(<current_cpu_time> ))
  msg $active .: Projet Boinc: %projekt Progression: %progressa Temps: %time Credits: %tc Credit moyen: %ueacgc Equipe: %team Nom: %name :.
}
alias setix {
  var %pcid = $del(<hostid> )
  var %progress = $calc($remove($del(<fraction_done> ),0.)/10000)
  if ($left($gettok(%progress,2,46),-2) != $null) var %progressa = $gettok(%progress,1,46) $+ . $+ $left($gettok(%progress,2,46),-2) $+ %
  else var %progressa = $gettok(%progress,1,46) $+ %
  var %time = $hrs($del(<current_cpu_time> ))
  %spike = $iif($del2(<bs_score>) != $null,$v1,N/A)
  %gauss = $iif($del2(<bg_score>) != $null,$v1,N/A)
  %pulse = $iif($del2(<bp_score>) != $null,$v1,N/A)
  msg $active .: Progression: %progress % Temps: %time Spike: %spike Gaussian: %gauss Pulse: %pulse :.
}
alias seticpu {
  var %cpus = $del(<p_ncpus> ))
  var %cpumodel = $del(<p_model> )
  var %osname = $del(<os_name> )
  var %osversion = $del(<os_version> )
  if (%cpus != 1) var %cpus = CPU's: %cpus $+ 
  msg $active .: Boinc CPU/OS-Info - %cpus %cpumodel - %osname %osversion :.
}
alias about {
  msg $active .: Seti@home mIRCstats by BOINC.dk - Modified by MegaMax - mIRC $version :.
} 
alias unload {
  echo Seti mIRCstats désinstallé
  unload -rs seti.mrc