home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00122_windowShade.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  3.0 KB  |  75 lines
  1. property 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 mouseUp me
  22.   m = sprite(TheMovie).movieSize
  23.   sprite(TheMovie).volume = 255
  24.   case m of
  25.     #notPlaying:
  26.       set the memberNum of sprite TheMovie to the number of member gCurrentMovie
  27.       set the rect of sprite TheMovie to rect(0, 285, 240, 480)
  28.       devis(LargeMovieBox)
  29.       devis(LargeMovieBoxHotspot)
  30.       vis(SmallMovieBox)
  31.       vis(SmallMovieBoxHotspot)
  32.       devis(moviebar)
  33.       updateStage()
  34.       set the locH of sprite TheMaximizer to 179
  35.       set the locV of sprite TheMaximizer to 261
  36.       set the locH of sprite TheWindowshade to 196
  37.       set the locV of sprite TheWindowshade to 261
  38.       member(the memberNum of sprite TheMovie).controller = 1
  39.       vis(TheMovie)
  40.       updateStage()
  41.       sprite(TheMovie).movieRate = 1
  42.       sprite(TheMovie).movieSize = #Small
  43.     #Small:
  44.       sprite(TheMovie).movieRate = 0
  45.       devis(TheMovie)
  46.       devis(LargeMovieBox)
  47.       devis(LargeMovieBoxHotspot)
  48.       devis(SmallMovieBox)
  49.       devis(SmallMovieBoxHotspot)
  50.       vis(moviebar)
  51.       set the locH of sprite TheMaximizer to 177
  52.       set the locV of sprite TheMaximizer to 470
  53.       set the locH of sprite TheWindowshade to 194
  54.       set the locV of sprite TheWindowshade to 470
  55.       updateStage()
  56.       sprite(TheMovie).movieTime = 0
  57.       sprite(TheMovie).movieSize = #notPlaying
  58.     #Big:
  59.       sprite(TheMovie).movieRate = 0
  60.       devis(TheMovie)
  61.       devis(LargeMovieBox)
  62.       devis(LargeMovieBoxHotspot)
  63.       devis(SmallMovieBox)
  64.       devis(SmallMovieBoxHotspot)
  65.       vis(moviebar)
  66.       set the locH of sprite TheMaximizer to 177
  67.       set the locV of sprite TheMaximizer to 470
  68.       set the locH of sprite TheWindowshade to 194
  69.       set the locV of sprite TheWindowshade to 470
  70.       updateStage()
  71.       sprite(TheMovie).movieTime = 0
  72.       sprite(TheMovie).movieSize = #notPlaying
  73.   end case
  74. end
  75.