SCRIPT SETI@HOME POUR BOINC seti, setihome, home, boinc, Source N°35194

Information sur la source

Catégorie :AddOns Classé sous : seti, setihome, home, boinc Niveau : Débutant Date de création : 21/12/2005 Date de mise à jour : 24/12/2005 10:54:04 Vu / téléchargé: 2 337 / 62

Auteur : MegaSmax

Ecrire un message privé

Note :

9,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Voici un petit script pour afficher vos statistiques Seti@home avec Boinc. J'ai retrouvé une source modifiée du script de base de Boinc.dk car les liens sont morts sur leur site et sur celui de seti@home. Je l'ai remodifiée a ma facon. Fonctionne parfaitement si vous utiliser Boinc et uniquement Seti@home, resultat non garantie si vous etes sur d'autres projets.
Il suffit de load le seti.mrc et vous avez acces aux options en clic droit > Seti@home sur une fenetre irc.
Voici ce qu'il affiche:
- Statistiques:
.: Projet Boinc: SETI@home Progression: 55.12% Temps: 1h 31m Credits: 113.32 Credit moyen: 45.78 Equipe: N/A Nom: Max :.
- Statistiques avancées:
.: Progression: 65.7659 % Temps: 1h 50m Spike: -0.228408 Gaussian: 3.593720 Pulse: 0.935717 :.

Source

; ––––––––––––––––––––––––––––––––––––––––––––––––
; 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

; ––––––––––––––––––––––––––––––––––––––––––––––––
; 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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

seti.mrc 2 824 octets

Télécharger le zip

Historique

23 décembre 2005 21:03:44 :: Mise a jour avec les remarques de RCA ArKanis et de COOLMAN002. Merci :)
24 décembre 2005 10:54:05 :: Encore une optimisation :) Merci COOLMAN002 :)

Sources du même auteur

URL LOGGER

Toutes les sources de MegaSmax

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de RCA ArKanis le 21/12/2005 13:35:25

var %cpus = $del(<p_ncpus> ))
  var %cpumodel = $del(<p_model> )
  var %osname = $del(<os_name> )
  var %osversion = $del(<os_version> )

le tout en une ligne : var %cpus = $del(<p_ncpus> )), %cpumodel = $del(<p_model> ), etc ...

alias del2 { return $gettok($gettok($read($path2,w,* $+ $1 $+ *),-1,62),1,60)
$+(*,$1,*), c'est quand même plus joli :p

mets certains aliases en local, non ?

pas testé, vu que j'ai pas seti@home :p
Commentaire de COOLMAN002 le 23/12/2005 08:45:50

Kolibot avait fait une remote qui permettait de voir les "mêmes" informations mais sur Folding@home.

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

utilise $iif

Je ne possède pas Sti@home, donc je n'ai pas testé.
Commentaire de COOLMAN002 le 23/12/2005 22:02:59

$iif($del2(<bs_score> ) != $null, %spike = $del2(<bs_score> ), %spike = N/A)
$iif($del2(<bg_score> ) != $null, %gauss = $del2(<bg_score> ), %gauss = N/A)
$iif($del2(<bp_score> ) != $null, %pulse = $del2(<bp_score> ), %pulse = N/A)

tu peux encore optimiser :§

%spike = $iif($del2(<bs_score>) != $null,$v1,N/A)