; set program install info
;--------------------------------------------------------------------------------
; program to install
$Key = "T212-A513-2006A"
$Name = "Excuses.exe"
$Start_Folder = "\QTasc - Toy BOX\"
$Location = @ProgramFilesDir & "\QTasc\ToyBOX\"
; place program into the installer
$Program_1 = @TempDir & "\Temp.exe"
FileInstall("C:\XPClean-web\Toy BOX\TB Programs\Excuses.exe", $Program_1)
;--------------------------------------------------------------------------------
;*** copy to other program
;$Logo_icon = @TempDir & "\Toy-Icon.ico"
;FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-Icon.ico", $Logo_icon)
;GUISetIcon($Logo_icon)
;---------------------------------------------------------------------------------
#include "GUIConstants.au3"

Dim $QT_web = "www.XPCleanMenu.HostRocket.com", $NoKey = "", $time = "800"
Dim $ver = "2006A"

;install pics
$Toy_Logo = @TempDir & "\Toy2-logo.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box2-jpg.jpg", $Toy_Logo)
$Toy_Banner = @TempDir & "\Toy-banr.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-jpg.jpg", $Toy_Banner)
$Logo_icon = @TempDir & "\Toy-Icon.ico"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-Icon.ico", $Logo_icon)
$Sound_clk = @TempDir & "\Sound_clk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Clickerx.wav", $Sound_clk)
$Sound_grp = @TempDir & "\Sound_grp.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Group_open.wav", $Sound_grp)
$Sound_bar = @TempDir & "\Sound_bar.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\xpinfbar.wav", $Sound_bar)
$Sound_lnk = @TempDir & "\Sound_lnk.wav"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Sounds\Notify.wav", $Sound_lnk)

;display logo
SplashImageOn("", $Toy_Banner, 400, 180, -1, -1, 1)
	SoundPlay ($Sound_lnk,1)
	Sleep(4000)
SplashOff()
Sleep($time)

;Set GUI
$Toy_win = GUICreate(" QTasc - Toy BOX            ver" & $ver, 329, 145)
GUISetIcon($Logo_icon)
;GUISetBkColor(0x0066FF) ;0x0066FF); 0x00ff00)
$Icon_1 = GUICtrlCreatePic($Toy_Logo, 245, 2, 75, 140)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Click here - to Donate Now!!")

;Create 2 buttons
$button_1 = GUICtrlCreateButton("A&ccept", 30, 110, 80, 25)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$button_2 = GUICtrlCreateButton("C&ancel", 130, 110, 80, 25)

;create labels
$label_1 = GUICtrlCreateLabel( "To install " & $Name & " now", 20, 15, 250, 20)
GUICtrlSetFont(-1, 9, 650)
$label_2 = GUICtrlCreateLabel( "Please enter your Validation Key", 20, 35, 250, 20)
GUICtrlSetFont(-1, 9, 650)
$label_3 = GUICtrlCreateLabel( "(The number given on your $10.95 Donation)", 10, 55, 250, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
;create text input
$text = GUICtrlCreateInput("Welcome to the Toy BOX,  by QTasc", 20, 75, 200, 20)
GUICtrlSetState(-1, $GUI_FOCUS)

;Show the GUI
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00040010);explode
GUISetState(@SW_SHOW)

;sets tray icon
opt("TrayMenuMode", 1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
opt("TrayOnEventMode", 1)

$donate_tray = TrayCreateItem("Make a Donation Now!!")
TrayItemSetOnEvent(-1, "Set_Donation")
TrayCreateItem("")
$upgrade_tray = TrayCreateItem("Check New Releases")
TrayItemSetOnEvent(-1, "Set_Update")
TrayCreateItem("")
$about_tray = TrayCreateItem("About QTasc")
TrayItemSetOnEvent(-1, "Set_QT")
TrayCreateItem("")
$exit_tray = TrayCreateItem("Exit  QTasc - Toy BOX")
TrayItemSetOnEvent(-1, "Set_Exit")

TraySetState()


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $Icon_1
			Call("Set_Donation")
		Case $msg = $button_2 Or $msg = $GUI_EVENT_CLOSE
			Call("Set_Exit")
		Case $msg = $button_1
			SoundPlay($Sound_clk, 1)
			$msg1 = GUICtrlRead($text)
			If $msg1 = $Key Then
				MsgBox(64, "Validation Key Accepted", "    Thank you!.. for your Donation!   " & @CRLF & @CRLF & "Toy BOX - installing " & $Name & "   ", 7)
				Call("Set_install")
			Else
				MsgBox(64, "Validation Key", "The Validation key was not correct!   ", 7)
				$NoKey = $NoKey + 1
				If $NoKey >= 3 Then
					Call("Set_Donation")
					$NoKey = ""
				EndIf
			EndIf
	EndSelect
Sleep(50)
WEnd

Exit

; ------------------------------------ Functions ----------------------------------------------

Func Set_Update()
	SoundPlay($Sound_clk, 1)
	Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)
	WinWaitActive("")
EndFunc   ;==>Set_Update

Func Set_QT()
	SoundPlay($Sound_grp, 1)
	$iMsgBoxAnswer = MsgBox(32, "  Toy BOX ,  by   QTasc", "WHO IS,  QT APPRAISAL SERVICE CO ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. " & @CRLF & "" & @CRLF & "Thank you." & @CRLF & "" & @CRLF & "", 60)
	Select
		Case $iMsgBoxAnswer = -1 ;Timeout
	EndSelect
	SoundPlay($Sound_grp, 1)
EndFunc   ;==>Set_QT

Func Set_Exit()
	FileDelete($Program_1)
	SoundPlay($Sound_lnk, 1)
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00050010);implode
	Sleep($time)
	Exit
EndFunc   ;==>Set_Exit

Func Set_Donation()
	SoundPlay($Sound_grp, 1)
	$PID = Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe https://www.paypal.com/xclick/business=xpcleanmenu@aol.com&amount=10%2e95&page_style=Primary&no_shipping=1&item_name=XPClean-Menu+Donation")
	WinWaitActive("")
EndFunc   ;==>Set_Donate

Func Set_install()
	GUICtrlDelete($label_3)
	GUICtrlDelete($button_1)
	GUICtrlDelete($button_2)
	GUICtrlDelete($text)
	;create progress
	$Label_4 = GUICtrlCreateLabel("   Please Wait... ", 30, 110, 180, 25)
	GUICtrlSetFont(-1, 9, 650)
	$progress = GUICtrlCreateProgress(20, 75, 200, 20, $PBS_SMOOTH)
	GUICtrlSetState( -1, $GUI_SHOW)
	GUICtrlSetData($label_1, "Now installing " & $Name)
	GUICtrlSetData($label_2, "Loading installer...")
	Sleep($time)
	GUICtrlSetData($progress, 10)
	Sleep($time)
	GUICtrlSetData($label_2, "Checking for Toy BOX Folder...")
	GUICtrlSetData($progress, 20)
	Sleep($time)
	GUICtrlSetData($progress, 30)
	; check if folder exists
	DirGetSize($Location)
	If @error = 1 Then
		DirCreate($Location)
	EndIf
	GUICtrlSetData($progress, 40)
	Sleep($time)
	GUICtrlSetData($label_2, "Checking for previous install...")
	GUICtrlSetData($progress, 50)
	Sleep($time)
	If FileExists($Location & $Name) Then
		$ans = MsgBox(68, "Previous Install Found", "Would you like to over-write the existing file?   ")
		If $ans = 7 Then
			GUICtrlSetData($label_2, "Closing installer...")
			GUICtrlSetData($progress, 0)
			FileDelete($Program_1)
			Sleep($time + $time)
			Call("Set_Exit")
		EndIf
	EndIf
	GUICtrlSetData($label_2, "No previous installs found...")
	GUICtrlSetData($progress, 60)
	Sleep($time)
	GUICtrlSetData($label_2, "Copying files...")
	GUICtrlSetData($progress, 70)
	Sleep($time)
	FileCopy($Program_1, $Location & $Name, 1)
	GUICtrlSetData($label_2, "Creating Short-cuts...")
	GUICtrlSetData($progress, 80)
	Sleep($time)
	FileCreateShortcut($Location & $Name, @DesktopDir & "\" & $Name & ".lnk", "", "", "Starts " & $Name)
	DirCreate(@ProgramsCommonDir & $Start_Folder)
	FileCreateShortcut($Location & $Name, @ProgramsCommonDir & $Start_Folder & $Name & ".lnk", "", "", "Starts " & $Name)
	GUICtrlSetData($label_2, "Verifying install...")
	GUICtrlSetData($progress, 90)
	Sleep($time)
	If Not FileExists($Location & $Name) Then
		MsgBox(64, "Toy BOX Install Error", "The installer has found an Error and will now close...   ", 4)
		GUICtrlSetData($label_2, "Closing installer...")
		GUICtrlSetData($progress, 0)
		FileDelete($Program_1)
		Sleep($time + $time)
		Call("Set_Exit")
	EndIf
	GUICtrlSetData($progress, 100)
	GUICtrlSetData($label_2, "Installation is complete...")
	Sleep($time + $time)
	GUICtrlSetData($label_2, "Closing installer...")
	FileDelete($Program_1)
	Sleep($time + $time)
	MsgBox(64, "Toy BOX Installer", "Toy BOX Installer will now start " & $Name & " and Exit...   " & @CRLF & @CRLF & "Again... Thank You!!  for your Donation   ", 5)
	SoundPlay($Sound_lnk, 1)
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Toy_win, "int", 1000, "long", 0x00050010);implode
	Sleep($time)
	Run($Location & $Name)
	Exit
EndFunc   ;==>Set_install