# Headset Power Suspend 
# author: medus
#

Suspendtime = 180
While(1)
	HeadsetState= RegRead("HKLM","System\State\Hardware","Headset")
	BST = RegRead("HKLM","System\CurrentControlSet\Control\Power\Timeouts","BattSuspendTimeout")
	
	If (BST*HeadsetState>0 || (BST+HeadsetState)=0)
	   RegWriteDWord( "HKLM", "System\CurrentControlSet\Control\Power\Timeouts", "BattSuspendTimeout", (BST-Suspendtime)^2/Suspendtime )
	EndIf

	Sleep(1000)
EndWhile