' Buttons.vbs
 
 
  W = 640
  H = 480
  Set Movie = CreateObject("SWFScout.FlashMovie")
  Movie.InitLibrary "demo","demo"
 
' Movie creating and setting parameters
 
  Movie.BeginMovie 0,0,W,H,1,12,6
  Movie.Compressed = true
  Movie.SetBackgroundColor 255,255,255
 
 Font = Movie.AddFont( "Arial",12,true,false,false,false,0)
 FontBig = Movie.AddFont("Arial",40,true,false,false,false,0)
 
'///////////////////
' Buttons
'//////////////////////
 
 Text = Movie.AddText("Click on button to open web-site",0,0,0,255,Font, 0, 80, 170, 160)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 
  Shape = Movie.AddShape
  Movie.SHAPE_Circle 0, 0, 40
  Movie.SHAPE_BeginRadialGradient
  Movie.SHAPE_AddRadialGradientColor 255,255,255,255
  Movie.SHAPE_AddRadialGradientColor 0,0,255,255
  Movie.SHAPE_EndRadialGradient 35,35
 
  Shape2= Movie.AddShape
  Movie.SHAPE_Circle 0,0,40
  Movie.SHAPE_BeginRadialGradient
  Movie.SHAPE_AddRadialGradientColor 255,255,255,255
  Movie.SHAPE_AddRadialGradientColor 0,0,128,255
  Movie.SHAPE_EndRadialGradient 40,40
 
  Button = Movie.AddButton(false,true)
  Sound= Movie.AddSoundFromFileName("event.wav")
  Movie.BUTTON_SetSound 3,Sound ' 3 is RollOver event (see sbsRollOver constant)
  Movie.BUTTON_AddShape Shape, 0 ' sbstUp = 0 
  Movie.BUTTON_AddShape Shape, 3 ' sbstHitTest = 3
  Movie.BUTTON_AddShape2 Shape,2,1.1,1.1,0,0,0,0,0,scttNone,0,0,0,0,false ' sbstOver = 2, scttNone = 2
  Movie.BUTTON_AddShape2 Shape2,1,1.1,1.1,0,0,0,0,0,scttNone,0,0,0,0,false
  Action= Movie.AddScript
  Movie.SCRIPT_GetUrl "http://www.swfscout.com/","_blank"
  Movie.BUTTON_SetScriptOnEvent 3,Action
  Movie.PlaceButton Button,Movie.CurrentMaxDepth
  Movie.PLACE_SetTranslate 100,150
 
  Movie.ShowFrame 1
  Movie.EndMovie
 
  Movie.SaveToFile "buttons.swf"