home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 October / macgaichiban199610.bin / MOVIES / RINKAI.Dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1996-08-14  |  1.7 KB  |  51 lines
  1. on initdata
  2.   global gjumpdata
  3.   set gjumpdata to [100: #decks, 101: #telecom, 102: #hotel, 103: #nikko, 104: #wanza, 105: #sunset]
  4. end
  5.  
  6. on jumpmovie
  7.   global gjumpdata, gcrhotspotnum, gcometohpan, gcometovpan, gcometozoom
  8.   if (gcrhotspotnum >= 100) and (gcrhotspotnum <= 105) then
  9.     puppetSound("click")
  10.     go(string(getaProp(gjumpdata, gcrhotspotnum)))
  11.   else
  12.     nothing()
  13.   end if
  14. end
  15.  
  16. on getcomepanoangle
  17.   global gPanoMovieID, gcometohpan, gcometovpan, gcometozoom, gnodeid
  18.   set gcometohpan to PanoMovie("Direct", gPanoMovieID, "get", "hPanAngle")
  19.   set gcometovpan to PanoMovie("Direct", gPanoMovieID, "get", "vPanAngle")
  20.   set gcometozoom to PanoMovie("Direct", gPanoMovieID, "get", "zoomAngle")
  21.   set gnodeid to PanoMovie("Direct", gPanoMovieID, "get", "nodeID")
  22. end
  23.  
  24. on rtnmenu
  25.   global gcometohpan, gcometovpan, gcometozoom, gnodeid
  26.   SetPanoNode(gnodeid, 0)
  27.   SetPanoMovieView(gcometohpan, gcometovpan, gcometozoom)
  28. end
  29.  
  30. on rtnpanoangle
  31.   global glastmoviename, gviewdata
  32.   if not voidp(glastmoviename) then
  33.     set thangle to string(getaProp(getaProp(gviewdata, glastmoviename), #h))
  34.     set tvangle to string(getaProp(getaProp(gviewdata, glastmoviename), #v))
  35.     set tzoom to string(getaProp(getaProp(gviewdata, glastmoviename), #z))
  36.     if (glastmoviename = "TITLE.DIR") or (glastmoviename = "title.dir") then
  37.       pass()
  38.     end if
  39.     puppetSound(string(getaProp(getaProp(gviewdata, glastmoviename), #s)))
  40.     go("fFrRtn")
  41.     OpenPanoMovie("VR_PANO:MENU.MOV", 5, 0)
  42.     if (glastmoviename = "TV.DIR") or (glastmoviename = "tv.dir") then
  43.       SetPanoNode(2, 0)
  44.     end if
  45.     SetPanoMovieView(thangle, tvangle, tzoom)
  46.     ShowPanoMovie()
  47.   else
  48.     nothing()
  49.   end if
  50. end
  51.