home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / ssvg.dir / 00030.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  729 b   |  27 lines
  1. on exitFrame
  2.   global gPanoMovieObj, languagechosen
  3.   CloseNavMovie()
  4.   ClosePanoMovie()
  5.   set the visible of sprite 18 to 1
  6.   set the ink of sprite 1 to 0
  7.   set the ink of sprite 2 to 0
  8.   updateStage()
  9.   set the ink of sprite 1 to 1
  10.   set the ink of sprite 2 to 1
  11.   updateStage()
  12.   setup()
  13.   OpenPanoMovie(the text of cast "Pano Filename", 1, 1)
  14.   if objectp(gPanoMovieObj) then
  15.     go("Pano CallBacks")
  16.     put gPanoMovieObj(mGetNodeID) into field "Current Node ID"
  17.     put "0" into field "Current Hot Spot ID"
  18.   else
  19.     updateStage()
  20.     alert("Can't open file:" & RETURN & RETURN & QUOTE & the text of cast "Pano Filename" & QUOTE & RETURN & RETURN & "as a panoramic movie.")
  21.     go("Start")
  22.   end if
  23. end
  24.  
  25. on enterFrame
  26. end
  27.