home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00152_Pogueified.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  2.7 KB  |  75 lines
  1. property TheFirstTimeThrough, movieSize, meS, TheMovie, moviebar, SmallMovieBox, SmallMovieBoxHotspot, LargeMovieBox, LargeMovieBoxHotspot, TheMaximizer, TheWindowshade
  2. global gCurrentMovie
  3.  
  4. on new me
  5.   return me
  6. end
  7.  
  8. on getPropertyDescriptionList me
  9.   description = [:]
  10.   addProp(description, #TheMovie, [#default: 2, #format: #integer, #comment: "Spritenum of movie"])
  11.   addProp(description, #moviebar, [#default: 42, #format: #integer, #comment: "spritenum of Moviebar"])
  12.   addProp(description, #SmallMovieBox, [#default: 43, #format: #integer, #comment: "Spritenum of Small Movie Box"])
  13.   addProp(description, #SmallMovieBoxHotspot, [#default: 44, #format: #integer, #comment: "spritenum of small movie box hotspot"])
  14.   addProp(description, #LargeMovieBox, [#default: 45, #format: #integer, #comment: "Spritenum of Large Movie Box"])
  15.   addProp(description, #LargeMovieBoxHotspot, [#default: 46, #format: #integer, #comment: "Spritenum of Largemovie box hotspot"])
  16.   addProp(description, #TheMaximizer, [#default: 47, #format: #integer, #comment: "Spritenum of Maximizer"])
  17.   addProp(description, #TheWindowshade, [#default: 48, #format: #integer, #comment: "Spritenum of Windowshade"])
  18.   return description
  19. end
  20.  
  21. on beginSprite me
  22.   TheFirstTimeThrough = 1
  23.   gCurrentMovie = "Playground.mov"
  24. end
  25.  
  26. on enterFrame me
  27.   if TheFirstTimeThrough = 1 then
  28.     set the rect of sprite TheMovie to rect(0, 285, 240, 480)
  29.     vis(SmallMovieBox)
  30.     vis(SmallMovieBoxHotspot)
  31.     devis(moviebar)
  32.     updateStage()
  33.     set the locH of sprite TheMaximizer to 179
  34.     set the locV of sprite TheMaximizer to 261
  35.     set the locH of sprite TheWindowshade to 196
  36.     set the locV of sprite TheWindowshade to 261
  37.     TheFirstTimeThrough = 2
  38.     sprite(TheMovie).movieSize = #Small
  39.   else
  40.     if TheFirstTimeThrough = 2 then
  41.       sprite(TheMovie).volume = 255
  42.       member(the memberNum of sprite TheMovie).controller = 1
  43.       vis(TheMovie)
  44.       set the memberNum of sprite TheMovie to the number of member gCurrentMovie
  45.       sprite(TheMovie).volume = 255
  46.       member(the memberNum of sprite TheMovie).controller = 1
  47.       TheFirstTimeThrough = 3
  48.     else
  49.       if TheFirstTimeThrough = 3 then
  50.         sprite(TheMovie).movieRate = 1
  51.         TheFirstTimeThrough = 0
  52.       end if
  53.     end if
  54.   end if
  55. end
  56.  
  57. on endSprite me
  58.   sprite(TheMovie).movieRate = 0
  59.   devis(TheMovie)
  60.   gCurrentMovie = "Intro.mov"
  61.   updateStage()
  62.   devis(LargeMovieBox)
  63.   devis(LargeMovieBoxHotspot)
  64.   devis(SmallMovieBox)
  65.   devis(SmallMovieBoxHotspot)
  66.   devis(moviebar)
  67.   set the locH of sprite TheMaximizer to 177
  68.   set the locV of sprite TheMaximizer to 470
  69.   set the locH of sprite TheWindowshade to 194
  70.   set the locV of sprite TheWindowshade to 470
  71.   updateStage()
  72.   sprite(TheMovie).movieTime = 0
  73.   sprite(TheMovie).movieSize = #notPlaying
  74. end
  75.