Sujet: Script mIRC en Xchat

[spike]

Voilà le script (celui de boinc.dk) en traduit et un peut modif à ma façon. Si qqu'un peut le refaire en Xchat ça serait cool pr bcp de monde.
Notez que le > dans les noms sous les projets je passent pas donc faudrait revoir ça  :whistle:

[cpp]
on *:load: { if (!%f) set %path $sdir(C:,Dossier Boinc ?) | echo Statistiques Boinc Chargée }

menu channel,query {
  .-
  .Boinc
  ..Status:boinc
  ..Info Processeur:boinccpu
}


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 boinc {
  var %name = $del()
  var %team = $del()
  if (%team == /team_name) var %team = N/A
  var %tc = $round($del(),2)
  var %ueacgc = $round($del(),2)
  var %projekt = $del()
  var %pcid = $del()
  if ($del() == 0) var %regdate = N/A
  else var %regdate = $asctime($del())
  var %progress = $calc($remove($del(),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())
  var %cputime = $del2()
  if (%cputime < 31536000) var %cputime = $hrs(%cputime)
  elseif (%cputime >= 31536000) var %cputime = $+($chr(2),$round($calc(%cputime /31536000),3),$chr(2)) years
  else var %cputime = N/A

  if ($del2() != $null) var %spike = $del2()
  else var %spike = N/A

  if ($del2() != $null) var %gauss = $del2()
  else var %gauss = N/A

  if ($del2() != $null) var %spike = $del2()
  else var %pulse = N/A



  msg $active Projet Boinc: %projekt Progression: %progressa Temps: %time Credits: %tc Credit moyen: %ueacgc Spike: %spike Gaussian: %gauss Pulse: %pulse Temps Processeur Total: %cputime Equipe: %team Nom: %name Date d'enregistrement: %regdate
}

alias boinccpu {

  var %cpus = $del())
  var %cpu = $del()
  var %cpumodel = $del()
  var %osname = $del()
  var %osversion = $del()

  if (%cpus != 1) var %cpus = CPU's: %cpus $+ 


  msg $active Boinc CPU-Info - %cpus %cpu - %osname %osversion
}
alias boversion return Version 0.4 (c) sQreaL | www.sQreaL.de [TeaM: cGamer Team (www.cGamer.de)]
on *:text:![boinc]:#: { .notice $nick Boinc mIRC addon $boversion - mIRC $version }
[/cpp]

Merci