' ButtonWithSprite.vbs 
W = 640
 H = 480
 Set Movie = CreateObject("SWFScout.FlashMovie")
 Movie.InitLibrary "demo","demo"
 
' Create new movie

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)
 
'-----------------------------
 ' Button with SPRITES
 '-----------------------------

' place solid rectangle to make fadout on whole screen
 Text = Movie.AddText2 ("Button with sprite",0,0,0,255,FontBig, 230, 40, 2)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text

' Shape

Shape = Movie.AddShape
 Movie.SHAPE_Circle 200,200,100
 
Movie.SHAPE_BeginLinearGradient false
 Movie.SHAPE_AddLinearGradientColor 70,20,45,200,1
 Movie.SHAPE_AddLinearGradientColor 200,245,215,255,1
 Movie.SHAPE_AddLinearGradientColor 100,190,70,200,1
 Movie.SHAPE_AddLinearGradientColor 255,255,255,255,1
 Movie.SHAPE_EndLinearGradient 0
 
' SpriteUp will be used as main button sprite
 SpriteUp= Movie.AddSprite
 j=Movie.CurrentMaxDepth
 Movie.SPRITE_PlaceShape Shape,j
 
Text = Movie.AddText2 ("UP",0,0,0,255,Font, 200,200,2)
 Movie.SPRITE_PlaceText Text, J+1 ' place text

Movie.SPRITE_ShowFrame 1
 
FOR i=1 TO 10
 Movie.SPRITE_PlaceShape Shape, j
 IF (i>5) THEN
 Movie.PLACE_SetScale 1 + (10 - i)/ 10 ,1 + (10 - i)/ 10
 Else Movie.PLACE_SetScale 1 + (i/ 10), 1 + (i/ 10)
 END if
 Movie.PLACE_AutoRemoveDepth= true
 Movie.SPRITE_ShowFrame 1
 NEXT
 
' SpriteOver will be used as button sprite on Over event
 SpriteOver= Movie.AddSprite
 j=Movie.CurrentMaxDepth
 Movie.SPRITE_PlaceShape Shape,j
 
Text = Movie.AddText2 ("OVER",0,0,0,255,Font,200,200,2)
 Movie.SPRITE_PlaceText Text, J+1 ' place text

Movie.SPRITE_ShowFrame 1
 
FOR i=1 TO 10
 Movie.SPRITE_PlaceShape Shape, j
 IF (i>5) THEN
 Movie.PLACE_SetScale 1,1 + (10 - i)/ 10
 Else Movie.PLACE_SetScale 1, 1 + (i/ 10)
 END if
 Movie.PLACE_AutoRemoveDepth= true
 Movie.SPRITE_ShowFrame 1
 NEXT
 
 
 ' SpriteDown will be used as button sprite on Over event
 SpriteDown= Movie.AddSprite
 j=Movie.CurrentMaxDepth
 Movie.SPRITE_PlaceShape Shape,j
 
Text = Movie.AddText2 ("DOWN",0,0,0,255,Font, 200,200,2)
 Movie.SPRITE_PlaceText Text, J+1 ' place text

Movie.SPRITE_ShowFrame 1
 
FOR i=1 TO 10
 Movie.SPRITE_PlaceShape Shape, j
 IF (i>5) THEN
 Movie.PLACE_SetScale 1 + (10 - i)/ 10, 1
 Else Movie.PLACE_SetScale 1 + (i/ 10), 1
 END if
 Movie.PLACE_AutoRemoveDepth= true
 Movie.SPRITE_ShowFrame 1
 NEXT
 
Buttonitem = Movie.AddButton( false, true)
 
Movie.BUTTON_AddSprite SpriteUp, 0 ' sbstUp = 0
 Movie.BUTTON_AddSprite SpriteDown, 1 ' sbstDown = 1
 Movie.BUTTON_AddSprite SpriteOver, 2 ' sbstOver = 2
 Movie.BUTTON_AddShape Shape, 3 ' sbstHitTest = 3

Movie.PlaceButton Buttonitem, Movie.CurrentMaxDepth
 Movie.ShowFrame 1
 Movie.EndMovie
 
Movie.SaveToFile "ButtonWithSprite.swf"