home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / dirwin / data.z / ANIMWIZ.DIR / 00001_Script_1 next >
Text File  |  1996-03-15  |  4KB  |  157 lines
  1. -- Irv Kalb
  2. -- IKalb@aol.com
  3.  
  4. --  This demonstration of the Animation Wizard was developed by 
  5. --  Irv Kalb  of Furry Pants Productions under contract with 
  6. --  Macromedia, Inc.  January, 1996
  7.  
  8.  
  9.  
  10. on StartMovie
  11.   global goFunction
  12.   global goBannersText
  13.   global goZoomsText
  14.   global goCreditsText
  15.   global goBulletsText
  16.   global goMarkFrame
  17.   global goAnimateTitle
  18.   global goSeconds
  19.   global goFPS
  20.   global goBaseline
  21.   global goSizeMin
  22.   global goSizeMax
  23.   global goDelayEnter
  24.   global goDelayHold
  25.   global goCycles
  26.   global goVisualStyles
  27.   global goBanners
  28.   global goBullets
  29.   global goZooms
  30.   global goCredits
  31.   global goMotionStyles
  32.   global goScoreMgr
  33.   global goCastMgr
  34.   global goMovieName
  35.   
  36.   cursor 4
  37.   InitTheGlobals()
  38.   
  39.   -- Set up the artwork for this system
  40.   set memberScreenArtStart = (the number of member "OnScreenArtStart") + 1
  41.   set memberScreenArtEnd = (the number of member "OnScreenArtEnd") - 1
  42.   if the machineType < 256 then
  43.     set memberMachineArt = (the number of member "ArtStartMac") + 1
  44.   else
  45.     set memberMachineArt = (the number of member "ArtStartPC") + 1    
  46.   end if
  47.   repeat with thisMember = memberScreenArtStart to memberScreenArtEnd
  48.     duplicate cast memberMachineArt, thisMember
  49.     set memberMachineArt = memberMachineArt + 1
  50.   end repeat
  51.   
  52.   
  53.   
  54.   set goScoreMgr = 0
  55.   set goScoreMgr = birth(script "ScoreMgr")
  56.   
  57.   set goCastMgr = 0
  58.   set goCastMgr = birth(script "CastMgr")
  59.   
  60.   set goBannersText = 0
  61.   set goBannersText = birth(script "TextField", "BannersText", "This is banners text")
  62.   
  63.   set goZoomsText = 0
  64.   set goZoomsText = birth(script "TextField", "ZoomsText", "This is zoom text")
  65.   
  66.   set goCreditsText = 0
  67.   set goCreditsText = birth(script "TextField", "CreditsText", ("This is credits:Text" & ¼
  68.        RETURN & "And:So is this"))
  69.   
  70.   set goBulletsText = 0
  71.   set goBulletsText = birth(script "TextField", "BulletsText", ("This is Bullets Title" & ¼
  72.         RETURN  & "This is Bullets Text" & RETURN  & "This is Bullets Text Longer"))
  73.   
  74.   set goMarkFrame = 0
  75.   set goMarkFrame = birth(script "CheckBox")
  76.   
  77.   set goAnimateTitle = 0
  78.   set goAnimateTitle = birth(script "CheckBox")
  79.   
  80.   -- IncrDecrValue parameters are:
  81.   --     type, min, max, incAmount, chText, theFieldName
  82.   
  83.   set goSeconds = 0
  84.   set goSeconds = birth(script "IncrDecrValue", #int, 1, 999, 1, 5, "Seconds")  
  85.   set goFPS = 0
  86.   set goFPS = birth(script "IncrDecrValue", #int, 1, 120, 1, 7, "FPS")  
  87.   set theStageHeight = mGetStageHeight(goScoreMgr)
  88.   set goBaseLine = 0
  89.   set goBaseLine = birth(script "IncrDecrValue", #int, 1, theStageHeight,¼
  90.              1, 9, "Baseline")
  91.   set goSizeMin = 0
  92.   set goSizeMin = birth(script "IncrDecrValue", #int, 1, 500, 1, 22, "SizeMin")
  93.   set goSizeMax = 0
  94.   set goSizeMax = birth(script "IncrDecrValue", #int, 1, 500, 1, 24, "SizeMax")
  95.   set goDelayEnter = 0
  96.   set goDelayEnter = birth(script "IncrDecrValue", #int, 0, 60, 1, 11, "DelayEnter")
  97.   set goDelayHold = 0
  98.   set goDelayHold = birth(script "IncrDecrValue", #int, 0, 60, 1, 13, "DelayHold")
  99.   set goCycles = 0
  100.   set goCycles = birth(script "IncrDecrValue", #int, 1, 999, 1, 15, "Cycles")
  101.   
  102.   set goVisualStyles = 0
  103.   set goVisualStyles = birth(script "IncrDecrCast")  
  104.   
  105.   set goBanners = 0
  106.   set goBanners = birth(script "Banners")
  107.   
  108.   set goZooms = 0
  109.   set goZooms = birth(script "Zooms")
  110.   
  111.   set goCredits = 0
  112.   set goCredits = birth(script "Credits")
  113.   
  114.   set goBullets = 0
  115.   set goBullets = birth(script "Bullets")
  116.   
  117.   set goFunction = 0
  118.   set goFunction = birth(script "Function")
  119.   set goMovieName to the movieName
  120.   cursor -1
  121.   
  122. end StartMovie
  123.  
  124.  
  125. on StopMovie
  126.   nothing 
  127. end StopMovie
  128.  
  129.  
  130. on closeWindow
  131.   global goMovieName
  132.   forget window goMovieName
  133. end closeWindow
  134.  
  135. on InitTheGlobals
  136.   global gDevelopmentFlag
  137.   global gCastNumCheckBoxOn
  138.   global gCastNumCheckBoxOff
  139.   global gCastNumTextAsBitmap
  140.   global gkTransparentInk
  141.   
  142.   if the windowList = [] then
  143.     -- Set TRUE for development, the AnimWiz MIAW will write to its own score
  144.     set gDevelopmentFlag = TRUE  
  145.   else
  146.     set gDevelopmentFlag = FALSE
  147.   end if
  148.   
  149.   set gCastNumCheckBoxOn = the number of cast "CheckBoxOn"
  150.   set gCastNumCheckBoxOff = the number of cast "CheckBoxOff"
  151.   set gCastNumTextAsBitmap = the number of cast "TextAsBitmap"  
  152.   set gkTransparentInk = 1
  153. end InitTheGlobals
  154.  
  155.  
  156.  
  157.