autoPL-02.03-1530.ahk

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetTitleMatchMode 2
#SingleInstance force
#InputLevel, 3
#Persistent

;some comments may be outdated

;these automatically run when the script first starts and stick until overwritten
;PL1 (8W)
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 48 -v 8",,hide
;PL2 (12W)
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 47 -v 12",,hide
;PL2 time window (20 seconds), default on most devices is 32 seconds
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 66 -v 20",,hide
;core undervolt (-50 mV) - doesn't work on all devices and may be unstable
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 34 -v -50",,hide
;iGPU undervolt (-50 mV) - doesn't work on all devices and may be unstable
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 100 -v -50",,hide
;cache undervolt (-50 mV) - doesn't work on all devices and may be unstable
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 79 -v -50",,hide

global cput0 := 50  ;initializing the value

SetTimer, readlog, 60000  ;60 second timer

readlog:
global linenum = 93 ;SET THIS FOR YOUR DEVICE
gosub readtemp2   ;read last sample
global cput1 := regout
gosub readtemp ;read current sample
global cput2 := regout
if (cput2 >= 75)  ;if 75+°C, jump to PLs
{
  global cput := cput2
  gosub PL
}
else
sleep 10
gosub readtemp
global cput3 := regout
if (cput3 >= 75)
{
  global cput := cput3
  gosub PL
}
gosub readtemp
global cput4 := regout
if (cput4 >= 80)
{
  global cput := cput4
  gosub PL
}
gosub readtemp
global cput5 := regout
if (cput5 >= 80)
{
  global cput := cput5
  gosub PL
}
else
sleep 10
global cput := Round(((cput0 + cput1 + cput2 + cput3 + cput4 + cput5)/6), 0)  ;average the values
if (cput = 0)
cput := 65
else
sleep 10
tooltip %cput%
sleep 1000
tooltip
gosub PL
return

PL:
if ((abs(cput0 - cput) >= 5) && cput < 80)  ;if difference from old is < 5
    {
    if (cput >= 75 && cput < 80)  ;temp between 75 and 79
        {
            global pl1 := 5
            global pl2 := 6
            plfunc()  ;run xtucli with pl1 and pl2
        }
    else if (cput < 75 && cput >= 70)
        {
            global pl1 := 6
            global pl2 := 7.5
            plfunc()
        }
    else if (cput < 70 && cput >= 65)
        {
            global pl1 := 6.5
            global pl2 := 8
            plfunc()
        }
    else if (cput < 65 && cput >= 60)
        {
            global pl1 := 7
            global pl2 := 10
            plfunc()
        }
    else if (cput < 60 && cput >= 55)
        {
            global pl1 := 8
            global pl2 := 11
            plfunc()
        }
    else if (cput < 55 && cput >= 50)
        {
            global pl1 := 9
            global pl2 := 12
            plfunc()
        }
    else if (cput < 50)
        {
            global pl1 := 10
            global pl2 := 13
            plfunc()
        }
    global cput0 := cput  ;create old temp value
    }
  else if ((abs(cput0 - cput) >= 5) && cput <= 80)
    {
        global pl1 := 4.5
        global pl2 := 5
        plfunc()
        tooltip 80 ;1 second tooltip displaying '80'
        sleep 1000
        tooltip
        global cput0 := cput
    }
else  ;if absolue value < 5
{
  global cput0 := (cput + 1)  ;increment by one to increase chance of next trigger
  sleep 1000
}
return


readtemp:  ;CPU-Z takes around 3 seconds to generate the report - this runs and reads after 5 secs
run "C:\Program Files\CPUID\CPU-Z\cpuz.exe" -txt=myreport
sleep 10000
filereadline, lineout, C:\Program Files\CPUID\CPU-Z\myreport.txt, linenum
RegExMatch(lineout, ".. degC", regmat)
global regout := regexreplace(regmat,"( degC)", "")
return

readtemp2: ;this doesn't run CPU-Z and just reads the last value
filereadline, lineout, C:\Program Files\CPUID\CPU-Z\myreport.txt, linenum
RegExMatch(lineout, ".. degC", regmat)
global regout := regexreplace(regmat,"( degC)", "")
return

plfunc(){ ;xtucli
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 48 -v %pl1%",,hide
run %comspec% /k ""C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\xtucli.exe" -t -id 47 -v %pl2%",,hide
tooltip %pl1%`n%pl2%
sleep 1000
tooltip
return
}