' vim:ft=basic
' $Id: fm.js,v 1.2 2003/04/04 17:01:30 glen Exp $

on error resume next

If MSDetect = "true" Then

	' TODO: do this in VBS for cycle
	if IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")) then flashy = 6
	if flashy < 6 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) then flashy = 5
	if flashy < 5 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) then flashy = 4
	if flashy < 4 and IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) then flashy = 3

End If