' Sprites.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)
 
'-----------------------------
' SPRITES
'-----------------------------
 
 ' place solid rectangle to make fadout on whole screen
 Shape = Movie.AddShape
 Movie.SHAPE_Rectangle 0, 0, W, H
 Movie.SHAPE_SetSolidColor 255,255,255,true,255
 Movie.PlaceShape Shape,Movie.CurrentMaxDepth
 Movie.PLACE_FadeOut 1
 
 Text = Movie.AddText2 ("Sprites",0,0,0,255,FontBig, W / 2, H / 2,2)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 Movie.PLACE_FadeOut 0.5 ' fade out text
 Movie.ShowFrame 10
 Movie.PLACE_FadeIn 0.5 ' fade in
 
' Move
 
 Text = Movie.AddText ("Moving",0,0,0,255,Font, 0, 10, 150, 160)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 Movie.PLACE_FadeOut 0.5 ' fade out text
 
 Shape = Movie.AddShape
 Movie.SHAPE_Rectangle 5,95,115,125
 
 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
 
 Sprite= Movie.AddSprite
 j=Movie.CurrentMaxDepth
 Movie.SPRITE_PlaceShape Shape,j
 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
 
       FOR i=1 TO 30
       Movie.PlaceSprite Sprite,j
      Movie.PLACE_SetRotate 180 * i / 30
     Movie.PLACE_SetTranslate 0 + i*3, 220
       IF (i>1) THEN
       Movie.PLACE_AutoRemoveDepth = true
       END IF             
        Movie.ShowFrame 1
      NEXT
 
 
  Movie.ShowFrame 10
 
 ' move & clone
 Text = Movie.AddText ("Move & Clone",0,0,0,255,Font, 160, 10, 310, 165)
 Movie.PlaceText Text,Movie.CurrentMaxDepth ' place text
 Movie.PLACE_FadeOut 0.5 ' fade out text
 
 Shape = Movie.AddShape
 Movie.SHAPE_Rectangle 160,25,275,95
 
 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
 
 Sprite= Movie.AddSprite
 j=Movie.CurrentMaxDepth
 Movie.SPRITE_PlaceShape Shape,j
 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
 
       Movie.PlaceSprite Sprite,J+1 ' place clone into next depth
       Movie.PLACE_SetTranslate 20, 100
 
       For i = 1 to 30
       Movie.PlaceSprite Sprite,j
       Movie.PLACE_SetRotate -360 * i / 30
       Movie.PLACE_SetTranslate 100 + i*2, 160
        if (i>1) THEN 
       Movie.PLACE_AutoRemoveDepth = true        
       END IF
        Movie.ShowFrame 1
       NEXT
  Movie.ShowFrame 20
 
 ' place solid rectangle to make fadout on whole screen
 Shape = Movie.AddShape
 Movie.SHAPE_Rectangle 0, 0, W, H
 Movie.SHAPE_SetSolidColor 255,255,255,true,255
 Movie.PlaceShape Shape,Movie.CurrentMaxDepth
 Movie.PLACE_FadeOut 1
 
 Movie.EndMovie
 
 Movie.SaveToFile "Sprites.swf"