home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00033_index.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  5.4 KB  |  174 lines
  1. --on mouseDown
  2. --  put "Interface 1 50%" into VolumeChangeSound
  3. --  put "Interface 3 25%" into MenuSelectSound
  4. --  put "Ting 25%" into MenuItemChangeSound
  5. --  put "Punch Clock 25%" into MenuOpensound
  6. --  put "disc out 2 25%" into MenuCloseSound
  7. --  
  8. --  put the clickon into MySprite
  9. --  Put MySprite - 1 into MenuItemSprite
  10. --  put MySprite - 2 into MenuSprite
  11. --  put MySprite - 3 into VolumeSprite
  12. --  put the machineType = 256 into isIBM
  13. --  
  14. --  if isIBM then
  15. --    put 1161 into Menucast
  16. --    
  17. --    put 1170 into Nullcast
  18. --    put 1111 into VolumeStartCast
  19. --    put 20 into PixelsPerItem
  20. --    
  21. --    put 15 into VolumeStartItem
  22. --    put 16 into VolumeEndItem
  23. --    
  24. --    put 4 into LeftVolumeBuffer
  25. --    put 2 into RightVolumeBuffer
  26. --    
  27. --    put ["intro", "context", "resell", "invest", "partner", "program", "core", "products", "rev", "awards", "showcase", "geekware", "TimeLine", "quit", "ΓÇóVolume", "ΓÇóVolume"] into movieList    
  28. --    
  29. --  else
  30. --    
  31. --    put 1054 into Menucast
  32. --    
  33. --    put 1060 into Nullcast
  34. --    put 1111 into VolumeStartCast
  35. --    put 20 into PixelsPerItem
  36. --    
  37. --    put 16 into VolumeStartItem
  38. --    put 17 into VolumeEndItem
  39. --    
  40. --    put 4 into LeftVolumeBuffer
  41. --    put 2 into RightVolumeBuffer
  42. --    
  43. --    put ["intro", "context", "resell", "invest", "partner", "program", "core", "products", "rev", "awards", "showcase", "geekware", "TimeLine", "Bob", "quit", "ΓÇóVolume", "ΓÇóVolume"] into movieList
  44. --  end if 
  45. --  
  46. --  SetCast(MenuItemSprite, Nullcast)
  47. --  
  48. --  PauseMovie
  49. --  repeat while the stillDown
  50. --    Idle
  51. --    if Rollover(MenuSprite) or RollOver(MySprite) or RollOver(VolumeSprite) then -- still on menu
  52. --      if the castnum of sprite MenuSprite <> Menucast then
  53. --        SetCast(MenuSprite, Menucast)
  54. --        PuppetSound(MenuOpensound)
  55. --      end if
  56. --      put the top of sprite MenuSprite into TopOfMenu
  57. --      put the MouseV into MV
  58. --      
  59. --      put TopOfMenu into RealDiff
  60. --      
  61. --      put MV - RealDiff into DistDown
  62. --      
  63. --      put DistDown/PixelsPerItem into itemDown
  64. --      put itemDown into MenuItem
  65. --      if itemDown < 1  then put 0 into MenuItem
  66. --      if itemDown > VolumeEndItem then put 0 into MenuItem
  67. --      
  68. --      if itemDown = VolumeStartItem or itemDown = VolumeEndItem then
  69. --        put the soundLevel into MyLevel
  70. --        
  71. --        SetCast(VolumeSprite, VolumeStartCast + MyLevel)
  72. --        UpdateStage
  73. --        if rollover(VolumeSprite) then
  74. --          put (the left of sprite VolumeSprite) + LeftVolumeBuffer into MyLeft
  75. --          put (the right of sprite VolumeSprite) - RightVolumeBuffer into MyRight
  76. --          put float(MyRight - MyLeft) into TDist
  77. --          
  78. --          repeat while rollover(VolumeSprite) and the StillDown
  79. --            idle
  80. --            put the MouseH into MH
  81. --            put MH - MyLeft into DistFromLeft
  82. --            put DistFromLeft/TDist into Perc
  83. --            put 1 - Perc into Perc
  84. --            -- put Perc
  85. --            put Perc * 8 into TheV
  86. --            if theV < 0 then put 0 into TheV
  87. --            SetCast(VolumeSprite, VolumeStartCast + TheV)
  88. --            
  89. --            put the castNum of sprite VolumeSprite into MyCast
  90. --            put MyCast - VolumeStartCast into CurrentLevel
  91. --            if the SoundLevel <> CurrentLevel then
  92. --              set the SoundLevel to CurrentLevel
  93. --              if not MovieIsPlaying() then PuppetSound(VolumeChangeSound)
  94. --            end if
  95. --            
  96. --            UpdateStage
  97. --            SyncFrametoTicks
  98. --          end repeat
  99. --          
  100. --          put the soundLevel into MyLevel
  101. --          
  102. --          SetCast(VolumeSprite, VolumeStartCast + MyLevel)
  103. --          
  104. --          --SetCast(VolumeSprite, Nullcast)
  105. --        end if
  106. --      else
  107. --        SetCast(VolumeSprite, Nullcast)
  108. --      end if
  109. --      
  110. --    else
  111. --      --      SetCast(VolumeSprite, Nullcast)
  112. --      --      if the castNum of sprite MenuSprite <> Nullcast then
  113. --      --        SetCast(MenuSprite, Nullcast)
  114. --      --        PuppetSound MenuCloseSound
  115. --      --      end if
  116. --      put 0 into MenuItem
  117. --    end if
  118. --    
  119. --    if the CastNum of sprite MenuItemSprite <> MenuItem + Nullcast then      
  120. --      SetCast(MenuItemSprite, MenuItem + Nullcast)
  121. --     -- if the castNum of sprite MenuSprite <> Nullcast then PuppetSound(MenuItemChangeSound)
  122. --    end if
  123. --    
  124. --    UpdateStage
  125. --    SyncFrametoTicks
  126. --  end repeat
  127. --  
  128. --  if MenuItem <> 0 then
  129. --    
  130. --    put 0 into BlinkTimes
  131. --    repeat with n = 1 to 3
  132. --      PuppetSound(MenuSelectSound)
  133. --      SetCast(MenuItemSprite, MenuItem + Nullcast)
  134. --      startTimer
  135. --      repeat while the timer < 3
  136. --        UpdateStage
  137. --        SyncFrametoTicks
  138. --      end repeat
  139. --      
  140. --      SetCast(MenuItemSprite, Nullcast)
  141. --      startTimer
  142. --      repeat while the timer < 3
  143. --        UpdateStage
  144. --        SyncFrametoTicks
  145. --      end repeat
  146. --      SyncFrametoTicks
  147. --    end repeat
  148. --    
  149. --  end if
  150. --  
  151. --  
  152. --  put MenuItem
  153. --  
  154. --  if MenuItem > 0 then
  155. --    put getAt(movieList, MenuItem) into NewMovie
  156. --    
  157. --    put char 1 of NewMovie into Doit
  158. --    if Doit <> "ΓÇó" then 
  159. --      GoMovie(NewMovie)
  160. --    end if
  161. --  end if
  162. --  
  163. --  SetCast(MenuItemSprite, Nullcast)
  164. --  SetCast(MenuSprite, Nullcast)
  165. --  PuppetSound(MenuCloseSound)
  166. --  SetCast(VolumeSprite, Nullcast)
  167. --  
  168. --  UpdateStage
  169. --  PuppetSprite MenuSprite, False
  170. --  PuppetSprite MenuItemSprite, false
  171. --  PuppetSprite VolumeSprite, false
  172. --  
  173. --  unPauseMovie
  174. --end