Преобразовать AutoIt Script в ScreenSaver - реализация

Func ScreenSaver_Proc()

	$FontSize = RegRead("HKEY_CURRENT_USER\Software\ShaDo's SCR", "Font Size")
	$FontColor = RegRead("HKEY_CURRENT_USER\Software\ShaDo's SCR", "Font Color")

	If (Not $FontSize) Or ($FontSize <= 0) Then
		$FontSize = 40
	EndIf
	If (Not $FontColor) Or ($FontColor <= 0) Then
		$FontColor = 0xFFFFFF
	EndIf

	HotKeySet("{ESC}", "CloseScreenSaver")

	Opt("GuiOnEventMode", 1)

	$H = @HOUR
	$M = @MIN
	$S = @SEC

	$Form1 = GUICreate("", 1280, 1024, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
	GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "CloseScreenSaver")
	GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "CloseScreenSaver")
	GUICtrlCreatePic("C:\bg.gif", 0, 0, 1280, 1024)
	GUICtrlSetState(-1, $GUI_DISABLE)
	$Time1 = GUICtrlCreateLabel($H & ':' & $M & ':' & $S, 272, 110, 714, 212)
	GUICtrlSetFont(-1, '155', -1, -1, '20th Century Font')
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	GUICtrlSetColor(-1, 0xDADADA)
	GUISetCursor(16, 1)

	$Form2 = GUICreate("", 714, 212, 272, 110, BitOR($WS_DISABLED, $WS_POPUP), $WS_EX_TOPMOST, $Form1)
	GUICtrlCreatePic("C:\bg.gif", -272, -110, 1280, 1024)
	GUICtrlSetState(-1, $GUI_DISABLE)
	$Time2 = GUICtrlCreateLabel($H & ':' & $M & ':' & $S, 0, 0, 714, 212)
	GUICtrlSetFont(-1, '155', -1, -1, '20th Century Font')
	GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
	GUICtrlSetColor(-1, 0xDADADA)
	GUISetCursor(16, 1)
	WinSetTrans($Form2, '', 0)

	$Main_Timer = TimerInit()

	GUISetState(@SW_SHOW, $Form2)
	GUISetState(@SW_SHOW, $Form1)

	While 1
		$H = @HOUR
		$M = @MIN
		$S = @SEC
		GUICtrlSetData($Time2, $H & ':' & $M & ':' & $S)
		For $i = 1 To 255 Step 0.5
			WinSetTrans($Form2, '', $i)
		Next
		GUICtrlSetData($Time1, $H & ':' & $M & ':' & $S)
		WinSetTrans($Form2, '', 0)
		Sleep(1000)
	WEnd
EndFunc   ;==>ScreenSaver_Proc