home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ssvg.dir / 00170.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  3.3 KB  |  119 lines
  1. on myNoEscape
  2.   if the keyCode = 53 then
  3.     dontPassEvent()
  4.     updateStage()
  5.     go("quitting")
  6.   end if
  7. end
  8.  
  9. on startMovie
  10.   global gPathName, gLastTimeRollover, gPanoFrame, nodetoenter, mouseisDown, firsthere, gFromFrame, gHighlightColor, gLowlightColor, gOldLine, currentSection, languagechosen, colorcount
  11.   set the exitLock to 1
  12.   set the keyDownScript to "myNoEscape"
  13.   set firsthere to 1
  14.   sound stop 1
  15.   sound stop 2
  16.   set CDROMdrive to chars(the moviePath, 1, 2)
  17.   set the text of member "Pano Filename" to CDROMdrive & "\lever\levervr.mov"
  18.   set gPathName to EMPTY
  19.   set gLastTimeRollover to 0
  20.   set gPanoFrame to EMPTY
  21.   if (nodetoenter <> 1) and (nodetoenter <> 2) and (nodetoenter <> 3) then
  22.     set nodetoenter to 1
  23.   end if
  24.   openXLib("QTVRW.QTC")
  25.   set the visible of sprite 6 to 0
  26.   set the visible of sprite 8 to 0
  27.   set the visible of sprite 10 to 0
  28.   set the visible of sprite 12 to 0
  29.   set the name of castLib "English" to languagechosen
  30.   set the fileName of castLib languagechosen to the pathName & languagechosen & ".cst"
  31.   set currentSection to 16
  32.   set the visible of sprite 40 to 0
  33.   set the visible of sprite 48 to 0
  34. end
  35.  
  36. on OpenUpMovie
  37.   global gPanoMovieObj
  38.   set fileObject to "i:\lever\levervr.mov"
  39.   if objectp(fileObject) then
  40.     set fileName to fileObject(mFileName)
  41.     fileObject(mdispose)
  42.     put fileName into field "Pano FileName"
  43.   end if
  44.   CloseNavMovie()
  45.   ClosePanoMovie()
  46.   set the ink of sprite 1 to 0
  47.   set the ink of sprite 2 to 0
  48.   updateStage()
  49.   set the ink of sprite 1 to 1
  50.   set the ink of sprite 2 to 1
  51.   updateStage()
  52.   OpenPanoMovie(the text of cast "Pano Filename", 1, 1)
  53.   if objectp(gPanoMovieObj) then
  54.     go("Pano CallBacks")
  55.     put gPanoMovieObj(mGetNodeID) into field "Current Node ID"
  56.     put "0" into field "Current Hot Spot ID"
  57.   else
  58.     go("Start")
  59.     updateStage()
  60.     alert("Can't open file:" & RETURN & RETURN & QUOTE & the text of cast "Pano Filename" & QUOTE & RETURN & RETURN & "as a panoramic movie.")
  61.   end if
  62. end
  63.  
  64. on stopMovie
  65.   global gPanoCallbackFactory, gTestCallbackFactory, gLastMovie, gLastFrame
  66.   ClosePanoMovie()
  67.   CloseNavMovie()
  68.   closeXLib("QTVRW.QTC")
  69.   if objectp(gPanoCallbackFactory) then
  70.     gPanoCallbackFactory(mdispose)
  71.   end if
  72.   if objectp(gTestCallbackFactory) then
  73.     gTestCallbackFactory(mdispose)
  74.   end if
  75.   set gLastMovie to the movieName
  76.   set gLastFrame to the frame
  77.   puppetSprite(41, 0)
  78.   puppetSprite(42, 0)
  79.   puppetSprite(43, 0)
  80.   puppetSprite(44, 0)
  81.   puppetSprite(45, 0)
  82.   puppetSprite(46, 0)
  83.   puppetSprite(48, 0)
  84.   puppetSprite(12, 0)
  85.   puppetSprite(13, 0)
  86.   puppetSprite(14, 0)
  87.   puppetSprite(15, 0)
  88. end
  89.  
  90. factory SampleCallbacks
  91. method SampleMouseOverHandler
  92.   global gPanoMovieObj
  93.   put "Mouse over panoramic movie"
  94.   if objectp(gPanoMovieObj) then
  95.   end if
  96.  
  97. method SampleRolloverHandler pHotSpotID
  98.   put pHotSpotID into field "Current Hot Spot ID"
  99.  
  100. method SampleMouseDownHandler
  101.   global gPanoMovieObj
  102.   put "Mouse down during mMouseOver call"
  103.   if objectp(gPanoMovieObj) then
  104.     gPanoMovieObj(mPassMouseDown)
  105.   end if
  106.  
  107. method SamplePanZoomStartHandler
  108.   put "About to pan or zoom in panoramic movie"
  109.  
  110. method SampleMouseStillDownHandler
  111.   global gPanoMovieObj
  112.   put "Enter mouse still down from panoramic movie"
  113.   if objectp(gPanoMovieObj) then
  114.   end if
  115.   put "Leave mouse still down from panoramic movie"
  116.  
  117. method SampleNodeLeaveHandler pToNode
  118.   put "Jumping to node " & pToNode & " in panoramic movie"
  119.