#include <GuiConstants.au3>
#notrayicon
Dim $reason, $because, $verbs_list[1000], $adj_list[1000], $noun_list[1000],  $time = "800"
Dim $QT_web = "www.XPCleanMenu.HostRocket.com", $NoKey = "", $time = "800"
Dim $ver = "1.0.1"
Dim $Locate = @ScriptDir & "\excuses.ini"
$Logo_icon = @TempDir & "\Toy-Icon.ico"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-Icon.ico", $Logo_icon)
$Toy_Banner = @TempDir & "\Toy-banr.jpg"
FileInstall("C:\XPClean-web\Settings\XPClean-pics\Toy-box-jpg.jpg", $Toy_Banner)
$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)

$font="Comic Sans MS"

$Ewin = GUICreate ( " Toy BOX  -  Random Excuse Generator             ver " & $ver, 570, 150 )
GUISetIcon($Logo_icon)
$Icon_1 = GUICtrlCreatePic($Toy_Banner, 420, 90, 120, 50)
GUICtrlSetCursor(-1, 0)
GUICtrlSetTip(-1, "Click here - to Check UpDates Now!!")
$button = GUICtrlCreateButton ( " Create New Excuse ", 10, 80, 130, 35 )
GUICtrlSetState( -1, $GUI_DEFBUTTON)
$close = GUICtrlCreateButton ( "    Exit    ", 270, 80, 130, 35 )
$clipC = GUICtrlCreateButton ( " Copy to clipboard ", 140, 80, 130, 35)
$excuse = excuse()
$excuseh = GUICtrlCreateLabel (" " & $excuse , 5, 30, 560, 20, $SS_SUNKEN  )
GUICtrlSetFont(-1, 9, 600)
$reason = GUICtrlCreateCombo("Reasons", 430, 60, 100, 40)
initialize()
new()
SoundPlay($Sound_lnk)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Ewin, "int", 1000, "long", 0x00040001);slide in from left
GUISetState()



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

$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()
    If $msg = $button Then new()
	If $msg = $clipC Then ClipPut ( $excuse )
	If $msg = $Icon_1 Then Call("Set_Update")
	If $msg = $GUI_EVENT_CLOSE Or $msg = $close Then Call("Set_Exit")

WEnd

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

Func randomize($type)
    If $type = "v" Then
    $excuse1_find = Random (1, $verbs_list[0], 1)
    $excuse1 = $verbs_list[$excuse1_find]
    Return $excuse1
    
    ElseIf $type = "adj" Then
    $excuse2_find = Random (1, $adj_list[0], 1)
    $excuse2 = $adj_list[$excuse2_find]
	return $excuse2
	
    ElseIf $type = "n" Then
    $excuse3_find = Random (1, $noun_list[0], 1)
    $excuse3 = $noun_list[$excuse3_find]
	return $excuse3
	
    Else
    Return "{ERROR: Invalid argument passed to function}"
    EndIf
EndFunc

Func new()
	$because = GUICtrlRead($reason)
	If $because = "Reasons" Then
		$because = ""
	EndIf
	$excuse = "I'd love to " & $because & ", but I have to " & randomize("v") & " my " & randomize("adj") & " " & randomize("n") & "!"
	GUICtrlSetData( $excuseh, " " & $excuse)
EndFunc

Func Excuse()
	$because = GUICtrlRead($reason)
	If $because = "Reasons" Then
		$because = ""
	EndIf
	Return "I'd love to " & $because & ", but I have to " & randomize("v") & " my " & randomize("adj") & " " & randomize("n") & "!"
EndFunc

Func initialize()
	$reasons_in = IniRead($Locate,"Reasons","key1","Not Found")
	Guictrlsetdata( $reason, $reasons_in)
	$verbs_in = IniRead($Locate,"Verbs","key1","Not Found")
	$verbs_list = StringSplit($verbs_in, ",")
	$adj_in = IniRead($Locate,"Adjectives","key1","Not Found")
	$adj_list = StringSplit($adj_in, ",")
	$noun_in = IniRead($Locate,"Nouns","key1","Not Found")
	$noun_list = StringSplit($noun_in, ",")
EndFunc

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

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()
	SoundPlay($Sound_lnk, 1)
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Ewin, "int", 1000, "long", 0x00050001);slide out to right
	Sleep($time)
	Exit
EndFunc   ;==>Set_Exit