//hardware monitoring toolbar for virc 2.0
//you need to download darkenginex.dll from http://www.darkengine.net
//you need also to install mbm5 from mbm.livewiredev.com/

@ $WA_TBP_Buttons = cpuusage fanrpm1 fanrpm2 cputemp casetemp 5volt 33volt 12volt corevolt

  @l $TSP = $new(TStringList)
  foreach ($i; $listunique($WA_TBP_Buttons))
// (prev play pause stop next load saysong sayversion timedisplay songdisplay)
    switch $i
      case cpuusage:
        $TSP.Add T_CPUUSAGE 4 | cpuusage
        OnServer 0 ^Timer cpuusage 1 0 cpuusage
      
      case fanrpm1:
        $TSP.Add T_FANRPM1 4 | fanrpm1
        OnServer 0 ^Timer fanrpm1 2 0 fanrpm1
        
      case fanrpm2:
        $TSP.Add T_FANRPM2 4 | fanrpm2
        OnServer 0 ^Timer fanrpm2 2 0 fanrpm2
      
      case cputemp:
        $TSP.Add T_CPUTEMP 4 | cputemp
        OnServer 0 ^Timer cputemp 2 0 cputemp
      
      case casetemp:
        $TSP.Add T_CASETEMP 4 | casetemp
        OnServer 0 ^Timer casetemp 2 0 casetemp
       
      case 12volt:
        $TSP.Add T_12VOLT 4 | 12volt
        OnServer 0 ^Timer twaalfvolt 2 0 twaalfvolt
            
      case 5volt:
        $TSP.Add T_5VOLT 4 | 5volt
        OnServer 0 ^Timer vijfvolt 2 0 vijfvolt
          
      case 33volt:
        $TSP.Add T_33VOLT 4 | 3.3volt
        OnServer 0 ^Timer drievolt 2 0 drievolt
      
      case corevolt:
        $TSP.Add T_COREVOLT 4 | corevolt
        OnServer 0 ^Timer corevolt 2 0 corevolt
        
      endswitch
  endforeach
  $TSP.SaveToToolbar TB_PCTEST "Pctest" for virc docked top order last
  Destroy $TSP

Alias cpuusage
	toolbarresize
	@ $cpuusage = $dll(darkenginex.dll cpuload)
  	SetToolbar !Main:TB_PCTEST T_CPUUSAGE.Caption = $cpuusage
EndAlias

alias testcpu
	say $dll(darkenginex.dll $1-)
endalias

alias fanrpm1
	@ $cpurpm = $dll(darkenginex.dll mbm5fan)
	@ $rpm1 = $SubStr($cpurpm 9 7)
	SetToolbar !Main:TB_PCTEST T_FANRPM1.Caption = $rpm1
	SetToolbar !Main:TB_PCTEST T_FANRPM1.width = 60
endalias

alias fanrpm2
	@ $cpurpm = $dll(darkenginex.dll mbm5fan)
	@ $rpm2 = $SubStr($cpurpm 25 7)
	SetToolbar !Main:TB_PCTEST T_FANRPM2.Caption = $rpm2
endalias
		
alias cputemp
	@ $casetemps = $dll(darkenginex.dll mbm5cputemp)
	@ $cputemp = $SubStr($casetemps 8 6)
	SetToolbar !Main:TB_PCTEST T_CPUTEMP.Caption = $cputemp
endalias

alias casetemp
	@ $casetemps = $dll(darkenginex.dll mbm5cputemp)
	@ $casetemp = $SubStr($casetemps 21 6)
	SetToolbar !Main:TB_PCTEST T_CASETEMP.Caption = $casetemp
endalias

alias vijfvolt
	@ $casevolts = $dll(darkenginex.dll mbm5volt)
	@ $vijfvolt = $SubStr($casevolts 49 4)
	SetToolbar !Main:TB_PCTEST T_5VOLT.Caption = $vijfvolt
endalias

alias twaalfvolt
	@ $casevolts = $dll(darkenginex.dll mbm5volt)
	@ $twaalfvolt = $SubStr($casevolts 63 4)
	SetToolbar !Main:TB_PCTEST T_12VOLT.Caption = $twaalfvolt
endalias

alias drievolt
	@ $casevolts = $dll(darkenginex.dll mbm5volt)
	@ $drievolt = $SubStr($casevolts 36 4)
	SetToolbar !Main:TB_PCTEST T_33VOLT.Caption = $drievolt
endalias

alias corevolt
	@ $casevolts = $dll(darkenginex.dll mbm5volt)
	@ $corevolt = $SubStr($casevolts 10 4)
	SetToolbar !Main:TB_PCTEST T_COREVOLT.Caption = $corevolt
endalias

alias toolbarresize
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_CPUUSAGE)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_FANRPM1)
	if ($obj != -1)
		@p $obj.Width = 60
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_FANRPM2)
	if ($obj != -1)
		@p $obj.Width = 60
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_12VOLT)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_5VOLT)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_33VOLT)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_CPUTEMP)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_CASETEMP)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
	@l $obj = $maptoolbar(!main:TB_PCTEST:T_COREVOLT)
	if ($obj != -1)
		@p $obj.Width = 40
		@p $obj.ReadOnly = True
		UnmapObject $obj
	endif
endalias

toolbarresize