GUI overlay for flash video intro

[iamtheky]

throws twelve squares in checkerboard fashion over a flash video and removes them one by one. Currently it only looks appealing for unveiling smaller flash videos within the larger one.

So for a single video, Anybody know where I can find a nice set of GDI curtains? If I have to do small boxes I would prefer to not write it out a hundred times so any methods of doing it with GUIs, albeit a tad more dynamically would be very welcome as well.

Edit:: Better Example

expandcollapse popup

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <array.au3>

Opt("GUIOnEventMode", 1)
Opt("GUICloseOnESC", 1)


$width = @desktopwidth
$height = @desktopheight


Global $Object = ObjCreate("SAPI.SpVoice")
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
Global $flash = GUICreate("Videos", @desktopwidth, @desktopheight + 20, 0, 0, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))

GuiSetState (@SW_SHOW , $flash)

GUICtrlCreateObj($oRP, 0, 0, @DesktopWidth, @DesktopHeight + 20)

                    With $oRP
                    .bgcolor = "#000000"
                    .Movie = "http://www.youtube.com/v/x6DD1k4BAUg?fs=1&amp;hl=en_US&autoplay=1"
                    .ScaleMode = 1
                    .Loop = 'True'
                    .wmode = "transparent"
                    .FlashVars = ""
                    .menu = 'True'
                    .play()
                EndWith

$xCenter = (@DesktopWidth / 2) - 150
$yCenter = (@DesktopHeight / 2) - 150

Global $flash1 = GUICreate("Videos1", 300 , 300, $xCenter - 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash1)

Global $boRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
Global $flash2 = GUICreate("Videos2",  300 , 300, $xCenter + 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUICtrlCreateObj($boRP, -1, -1, $xCenter - 80, $yCenter + 80)
GUISetBkColor (0x000000 , $flash2)

                    With $boRP
                    .bgcolor = "#000000"
                    .Movie = "http://www.youtube.com/v/Q8_6aa-TTvI?amp;hl=en_US&autoplay=1"
                    .ScaleMode = 1
                    .Loop = 'True'
                    .wmode = "transparent"
                    .FlashVars = ""
                    .menu = 'True'
                    .play()
                EndWith

                Global $flash2a = GUICreate("Videos2a",  300 , 300, $xCenter + 300, $yCenter, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash2a)



Global $flash3 = GUICreate("Videos3", 300 , 300, $xCenter , $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash3)

Global $flash4 = GUICreate("Videos4",  300 , 300, $xCenter , $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash4)

Global $flash5 = GUICreate("Videos5", 300 , 300, $xCenter - 600, $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash5)

Global $flash6 = GUICreate("Videos6", 300 , 300, $xCenter - 600, $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash6)

Global $flash7 = GUICreate("Videos7", 300 , 300, $xCenter + 600, $yCenter + 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash7)

Global $flash8 = GUICreate("Videos8", 300 , 300, $xCenter + 600, $yCenter - 300, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash8)

Global $flash9 = GUICreate("Videos9", 300 , 300, $xCenter + 300, $yCenter - 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash9)

Global $flash10 = GUICreate("Videos10", 300 , 300, $xCenter + 300, $yCenter + 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash10)

Global $flash11 = GUICreate("Videos11", 300 , 300, $xCenter - 300, $yCenter - 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash11)

Global $flash12 = GUICreate("Videos12", 300 , 300, $xCenter - 300, $yCenter + 600, BitOR($WS_POPUP, $WS_CLIPSIBLINGS , $WS_CLIPCHILDREN , $WS_EX_TOPMOST))
GUISetBkColor (0x000000 , $flash12)


GUISetState (@SW_SHOW , $flash1)
GuiSetState (@SW_SHOW , $flash2a)
GuiSetState (@SW_SHOW , $flash3)
GuiSetState (@SW_SHOW , $flash4)
GuiSetState (@SW_SHOW , $flash5)
GuiSetState (@SW_SHOW , $flash6)
GuiSetState (@SW_SHOW , $flash7)
GuiSetState (@SW_SHOW , $flash8)
GuiSetState (@SW_SHOW , $flash9)
GuiSetState (@SW_SHOW , $flash10)
GuiSetState (@SW_SHOW , $flash11)
GuiSetState (@SW_SHOW , $flash12)

sleep (2000)

GUIDelete ($flash9)
sleep (2000)
GUIDelete ($flash6)
sleep (2000)
GUIDelete ($flash7)
sleep (2000)
GUIDelete ($flash12)
sleep (2000)
GUIDelete ($flash5)
sleep (2000)
GUIDelete ($flash3)
sleep (2000)
GUIDelete ($flash8)
sleep (2000)
GUIDelete ($flash11)
sleep (2000)
GUIDelete ($flash10)
sleep (2000)
GUIDelete ($flash1)
sleep (2000)
GUIDelete ($flash4)
sleep (2000)
GUIDelete ($flash2a)
GuiSetState (@SW_SHOW , $flash2)



while 1
    GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_CLOSE")
    Wend


    Func GUI_Close()
        GUICtrlDelete ($oRP)
    GUIDelete($flash)
    Exit

EndFunc

Edited January 12, 2011 by iamtheky

[iamtheky]

better, hippie example for the video in video action.

My first try on a GDI that erases itself leaving the video behind was quite sketchy so I am bumping this thread in hopes something better comes along.

Edited January 13, 2011 by iamtheky