home *** CD-ROM | disk | FTP | other *** search
/ DIGIZINE 1 / DIGIZINE.BIN / main / sony / mainmov.dir / 00001_Script_1 next >
Text File  |  1995-08-18  |  3KB  |  108 lines
  1. --STARTMOVIE script
  2.  
  3. on STARTMOVIE 
  4.   global gQTSoundChannel
  5.   
  6.   cursor 4
  7.   
  8.   set gQTSoundChannel  = 44
  9.   -- set the movierate of sprite(gQTSoundChannel) = 0
  10.   
  11.   -- INTBUGFIX
  12.   
  13.   -- INITCURSORS
  14.   DOMAINCURSOR
  15.   INITMOVIE
  16.   
  17.   CHECKMACHINE
  18.   cursor 4
  19. end
  20.  
  21.  
  22.  
  23. --sets the rollover cursor for main menu movie
  24. on DOMAINCURSOR
  25.   global gRollCursor,gRollCursorMatte
  26.   
  27.   --PointerCursor cursor
  28.   set Z = the number of cast "PointerCursor"
  29.   set ZZ = the number of cast "PointerCursor" + 1
  30.   repeat with x = 21 to 28
  31.     set the cursor of sprite(x) to [Z,ZZ]
  32.   end repeat
  33.   
  34.   repeat with x = 10 to 13
  35.     set the cursor of sprite(x) to [Z,ZZ]
  36.   end repeat
  37.   
  38.   --open hand cursor
  39.   set Z = the number of cast "OpenHandCursor"
  40.   set ZZ = the number of cast "OpenHandCursor" + 1
  41.   set the cursor of sprite(20) to [Z,ZZ]
  42.   
  43. end
  44.  
  45.  
  46.  
  47.  
  48. --checks computer and sets path for sound files
  49. on CHECKMACHINE
  50.   global gSndPath
  51.   
  52.   if the machineType = 256 then
  53.     set gSndPath to the pathname & "sounds\"  --PC
  54.   else
  55.     set gSndPath to the pathname & "sounds:"  --Macintosh
  56.   end if
  57.   
  58. end
  59.  
  60.  
  61. --set custom cursor back to normal
  62. on RESETCURSOR
  63.   -- nothing
  64.   repeat with X = 20 to 27
  65.     ARROWCURSOR
  66.   end repeat
  67. end
  68.  
  69. On FADEQTSOUND whichSprite, howLong
  70.   
  71.   put the volume of sprite whichSprite into startVol
  72.   put startVol/howLong into volTick
  73.   put startVol into currVol
  74.   
  75.   repeat with i = howLong down to 0
  76.     put the ticks into startTick
  77.     put currVol - volTick into currVol
  78.     set the volume of sprite whichSprite to currVol
  79.     repeat while the ticks <= startTick + 1
  80.       nothing
  81.     end repeat
  82.   end repeat
  83.   
  84.   set the movieTime of sprite whichSprite to 0
  85.   set the volume of sprite whichSprite to startVol
  86. end
  87.  
  88.  
  89. --------------------------------------------------------------------
  90. --------------------------------------------------------------------
  91.  
  92. --button presses up then down
  93.  
  94. on BUTTONOFFSET 
  95.   puppetsprite(the clickon), true
  96.   set the locV of sprite(the clickon) to (the locV of sprite(the clickon) + 5)
  97.   set the locH of sprite(the clickon) to (the locH of sprite(the clickon) + 5)
  98.   updatestage
  99.   put the ticks into waitCount
  100.   repeat while the ticks < waitCount+30
  101.     nothing
  102.   end repeat
  103.   set the locV of sprite(the clickon) to (the locV of sprite(the clickon) - 5)
  104.   set the locH of sprite(the clickon) to (the locH of sprite(the clickon) - 5)
  105.   updatestage
  106.   puppetsprite(the clickon), false
  107. end
  108.