$OPTION Icon "FACE03.ico"

DECLARE SUB EndIt
Declare Sub changesize
Declare Sub stopflash
DECLARE SUB Battle_Click (Sender as QMENUITEM)
DECLARE SUB Frog_Click (Sender as QMENUITEM)
DECLARE SUB Frog2_Click (Sender as QMENUITEM)
DECLARE SUB PMan_Click (Sender as QMENUITEM)
DECLARE SUB nineball_Click (Sender as QMENUITEM)
DECLARE SUB air_Click (Sender as QMENUITEM)
DECLARE SUB BBall_Click (Sender as QMENUITEM)
DECLARE SUB fball_Click (Sender as QMENUITEM)
DECLARE SUB homerun_Click (Sender as QMENUITEM)
DECLARE SUB mputt_Click (Sender as QMENUITEM)
DECLARE SUB ppong_Click (Sender as QMENUITEM)
DECLARE SUB TShoot_Click (Sender as QMENUITEM)
DECLARE SUB Bush_Click (Sender as QMENUITEM)
DECLARE SUB Geezer_Click (Sender as QMENUITEM)
DECLARE SUB BAerobic_Click (Sender as QMENUITEM)
DECLARE SUB Blockedme_Click (Sender as QMENUITEM)
DECLARE SUB RedneckBaby_Click (Sender as QMENUITEM)
DECLARE SUB SecondTerm_Click (Sender as QMENUITEM)
CREATE Form AS QFORM
    Height=500
    Width=500
    borderstyle = 2
    Caption="Steve Blanchard's Flash Player"
   
    onClose=EndIt
    Center   

CREATE mnuMain as QMAINMENU
	CREATE Arcade as QMENUITEM   
		Caption = "Arcade Games"
		Checked = 0
		
		
		CREATE Battle as QMENUITEM   
			Caption = "Battleship"
			onclick = Battle_Click
		END CREATE 
		CREATE Frog as QMENUITEM   
			Caption = "Frogger"
			onclick = Frog_Click
		END CREATE 
		CREATE Frog2 as QMENUITEM   
			Caption = "Frogger #2"
			onclick = Frog2_Click
		END CREATE 

		CREATE PMan as QMENUITEM   
			Caption = "Pac Man"
			onclick = PMan_Click
		END CREATE 
	END CREATE 
	CREATE Sports as QMENUITEM   
		Caption = "Sports Games"
		
		CREATE nineball as QMENUITEM   
		Caption = "9 Ball"
		onclick = nineball_Click
		END CREATE 
		CREATE air as QMENUITEM   
		Caption = "Air Hockey"
		onclick = air_Click
		END CREATE 
		CREATE BBall as QMENUITEM   
		Caption = "Basketball"
		onclick = BBall_Click
		END CREATE 
		CREATE fball as QMENUITEM   
		Caption = "Extreme Football Passing"
		onclick = fball_Click
		END CREATE 
		CREATE homerun as QMENUITEM   
		Caption = "Homerun Derby"
		onclick = homerun_Click
		END CREATE 
		CREATE mputt as QMENUITEM   
		Caption = "Mini Putt I"
		onclick = mputt_Click
		END CREATE 
		CREATE ppong as QMENUITEM   
		Caption = "Ping Pong"
		onclick = ppong_Click
		END CREATE 
		CREATE TShoot as QMENUITEM   
		Caption = "Trap Shoot"
		onclick = TShoot_Click
		END CREATE 
	END CREATE 
 Create FunMenu as QMenuItem
  Caption="Funny Videos"
    Create BushMenu as QMenuItem
    Caption="Bush-Kerry"
    onclick=Bush_Click
    End Create
    Create Geezers as QMenuItem
     Caption="Clinton's Brownies"
     onClick=Geezer_Click
    End Create
    Create BAerobic as QMenuItem
    Caption="Bush Aerobics"
    onClick=BAerobic_Click
    End Create
    Create Blockedme as QMenuitem
    Caption="She Blocked Me"
    onClick=Blockedme_Click
    End Create
    Create RedneckBaby as QMenuitem
    Caption="Redneck Baby"
    onClick=RedneckBaby_Click
    End Create
    Create SecondTerm as QMenuItem
    Caption="Bush-A Second Term"
    onclick=SecondTerm_Click
    End Create

        
 End Create

 Create PropMenu as QMenuItem
  caption="Properties"
    CREATE SizeMenu AS QMenuItem
    Caption = "Resize Flash"
    onclick=changesize
    End Create
    CREATE StopMenu AS QMenuItem
    Caption = "Stop Flash"
    onclick=stopflash
    End Create
    
    CREATE EndMenu AS QMenuItem
    Caption = "Exit"
    onclick=EndIt
    End Create


 END CREATE
 
END CREATE 

    visible = 1



    CREATE SFlash AS QOLECONTAINER
        top=0
        left=0
        height=450
        width = 450
        createObject("{D27CDB6E-AE6D-11CF-96B8-444553540000}")
            END CREATE        
   visible = 0
  
     
END CREATE

dim c as string
Form.ShowModal
Form.onResize=changesize

Sub changesize
SFlash.Top=0
SFlash.Left=0
SFlash.Width=Form.ClientWidth
SFlash.Height=Form.ClientHeight

End Sub



SUB Battle_Click (Sender as QMENUITEM)
SFlash.Movie="http://galim.org.il/children/games/battle_ships/battleships.swf"
END SUB

SUB Frog_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.stotfoldscouts.org.uk/fun/games/frogger.swf"

END SUB

SUB Frog2_Click (Sender as QMENUITEM)
SFlash.Movie="http://thekidzpage.com/freekidsgames/games/sdcu/froggergame.swf"

END SUB

SUB PMan_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.80smusiclyrics.com/games/pacman/pacman.swf"

END SUB

SUB nineball_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.jccchurch.org/children/kidstuff/games/flash/9ball.swf"

END SUB

SUB air_Click (Sender as QMENUITEM)
SFlash.Movie="http://frederick-dohn.de/library/games/air-hockey.swf"

END SUB

SUB BBall_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.dqtvnet.com/game/flashgame1/game7/basketball.swf"

END SUB

SUB fball_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.xtrememedical.com/games/football.swf"

END SUB

SUB homerun_Click (Sender as QMENUITEM)
SFlash.Movie="http://looneytunes.warnerbros.com/games/med/games_homerun.swf"

END SUB

SUB mputt_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.tekzoned.com/games/miniputt/miniputt.swf"

END SUB

SUB ppong_Click (Sender as QMENUITEM)
SFlash.Movie="http://www.donnybravos.com/games/pingpong.swf"

END SUB

SUB TShoot_Click (Sender as QMENUITEM)
SFlash.Movie="http://media1.guzer.com/games/trapshoot.swf"

END SUB

SUB Bush_Click
SFlash.Movie="http://cdn.shockwave.com/afassets/flash/this_land.swf"
End Sub


SUB Geezer_Click
SFlash.Movie="http://msent.vo.llnwd.net/o2-blue/jibjab/cooking_clinton.swf"

End Sub

Sub BAerobic_Click
SFlash.Movie="http://www.humorweb.net/flash/bushaerobicswm.swf"
End Sub

Sub Blockedme_Click
SFlash.Movie="http://www.bobricci.com/flash/blockme15.swf"

Sub RedneckBaby_Click
SFlash.Movie="http://i.euniverse.com/funpages/cms_content/9768/redneckbaby2.swf"
End Sub
Sub SecondTerm_Click
SFlash.Movie="http://msent.vo.llnwd.net/o2-blue/jibjab/JibJab_SecondTerm.swf"
End Sub


Sub stopflash
SFlash.Movie="http://"
End Sub
End Sub
Sub EndIt
SFlash.free
end

End Sub