Global $i = 1
$GUI = GUICreate("Ping Pong", 670, 500, -1, -1)
$oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$oGameGUI = GUICtrlCreateObj($oGame, 10, 10, 650, 450)
With $oGame
	.Movie = "http://www.chickenmcnugget.com/personal/pingpong.swf"
	.bgcolor = "#000000"
	.Loop = True
EndWith
$black = GUICtrlCreateLabel("  ",10,470)
$red = GUICtrlCreateLabel("  ",30,470)
$blue = GUICtrlCreateLabel("  ",50,470)
$green = GUICtrlCreateLabel("  ",70,470)
$white = GUICtrlCreateLabel("  ",90,470)
$1 = GUICtrlCreateButton("Game 1",506,470,50)
$2 = GUICtrlCreateButton("Game 2",558,470,50)
$3 = GUICtrlCreateButton("Game 3",610,470,50)
GUICtrlSetBkColor($black,0x000000)
GUICtrlSetBkColor($red,0xFF0000)
GUICtrlSetBkColor($blue,0x0000FF)
GUICtrlSetBkColor($green,0x00FF00)
GUICtrlSetBkColor($white,0xFFFFFF)
GUISetBkColor(0xC2D5FC,$GUI)
GUISetState()
While 1
    Switch GUIGetMsg()
		Case -3
			_Close()
		Case $black
			$oGame.bgcolor = "#000000"
		Case $red
			$oGame.bgcolor = "#FF0000"
		Case $blue
			$oGame.bgcolor = "#0000FF"
		Case $green
			$oGame.bgcolor = "#00FF00"
		Case $white
			$oGame.bgcolor = "#FFFFFF"
		Case $1
			If $i <> 1 Then
				$oGame.Movie = "http://www.chickenmcnugget.com/personal/pingpong.swf"
				$i = 1
			EndIf
		Case $2
			If $i <> 2 Then
				$oGame.Movie = "http://content.funny-base.com/games15/ping-pong.swf"
				$i = 2
			EndIf
		Case $3
			If $i <> 3 Then
				$oGame.Movie = "http://www.miniclip.com/games/ping-pong/en/pingpong.swf"
				$i = 3
			EndIf
	EndSwitch
WEnd
Func _Close()
	GUIDelete($GUI)
	Exit
EndFunc