Aareon's Elements Client

#include <File.au3>
#include <FileConstants.au3>
#include <GUIConstants.au3>
#include <Misc.au3>
#include <IE.au3>

HotKeySet("{ESC}","term")
guiMake()

Func guiMake()
        Global $hGUI = GUICreate("Aareon's Elements Client",700,600) ;;Width, Height
        $tabControl = GUICtrlCreateTab(0,2,702,580)
                GUICtrlCreateTabItem("Home")
                        $homeLabel = GUICtrlCreateLabel("Home",10,30,50,30)
                        GUICtrlSetFont($homeLabel,12)
                        $oaFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
                        $GX = GUICtrlCreateObj($oaFlash, 10, 70, 680, 500)
                        $oaFlash.Movie = @WorkingDir & "\game.swf" ;;@ root of this script, find load.swf
                        $oaFlash.Loop = False
;;
                GUICtrlCreateTabItem("Decks")
                        $dekLabel = GUICtrlCreateLabel("Decks",10,30,50,30)
                        GUICtrlSetFont($dekLabel,12)
                        $array=_FileListToArray(@ScriptDir&"\elements\decks\")
                        $combo=GUICtrlCreateCombo("Select an item",10,65,100)
                        For $i=1 To Ubound($array)-1
                           GUICtrlSetData($combo,$array[$i])
                        Next
                        $setClip = GUICtrlCreateButton("Copy Deck", 370, 120, 85, 25)
                        $deckBox = GUICtrlCreateInput("Select a deck", 10, 150, 485, 200)
;;
                GUICtrlCreateTabItem("About")
                        $abtLabel = GUICtrlCreateLabel("About",10,30,50,30)
                        GUICtrlSetFont($abtLabel,12)
                        GUICtrlCreateLabel("Programmed by Aareon Sullivan",10,70,460,150)

        GUISetState(@SW_SHOW,$hGUI)

        GUICtrlCreateLabel("",1,56,200,1,$SS_SUNKEN)
        $copyLabel = GUICtrlCreateLabel("Copyright© Aareon Sullivan 2015 - All Rights Reserved.",434,584)
        GUICtrlSetBkColor ($copyLabel,$GUI_BKCOLOR_TRANSPARENT)


        While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $combo
                $comboitem = GUICtrlRead($combo)
                Local $sFileRead = FileRead(@ScriptDir&"\elements\decks\"&$comboitem)
                GUICtrlSetData ($deckBox,$sFileRead)
            Case $setClip
                ClipPut ($sFileRead)
        EndSwitch
    WEnd
EndFunc

Func term()
        Exit
EndFunc