home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 September / macgaichiban199609.bin / MOVIES / 02BANJI / 00042.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  1.8 KB  |  77 lines
  1. on startMovie
  2.   global gpanomovieid, glasttimerollover
  3.   set gpanomovieid to EMPTY
  4.   set glasttimerollover to 0
  5.   openXLib("QuickTime VR XCMDs")
  6.   registercomponent(the pathName & "QuickTime VR Components", EMPTY)
  7. end
  8.  
  9. on stopMovie
  10.   closepanomovie()
  11.   cursor(0)
  12.   closeXLib("QuickTime VR XCMDs")
  13.   clearGlobals()
  14. end
  15.  
  16. on openpanomovie pfilename, pspritenum
  17.   global gpanomovieid
  18.   closepanomovie()
  19.   set tpanorect to the left of sprite pspritenum & "," & the top of sprite pspritenum & "," & the right of sprite pspritenum & "," & the bottom of sprite pspritenum
  20.   set tfilename to the pathName & pfilename
  21.   set gpanomovieid to panomovie("openMovie", "Direct", tfilename, tpanorect)
  22.   if gpanomovieid contains "error" then
  23.     put gpanomovieid
  24.     set gpanomovieid to EMPTY
  25.     beep()
  26.     exit
  27.   end if
  28.   panomovie("Direct", gpanomovieid, "set", "warpMode", 1)
  29. end
  30.  
  31. on closepanomovie
  32.   global gpanomovieid
  33.   if gpanomovieid <> EMPTY then
  34.     panomovie("Direct", gpanomovieid, "dispose")
  35.     set gpanomovieid to EMPTY
  36.   end if
  37. end
  38.  
  39. on panoframescript pspritenum
  40.   global glasttimerollover, gpanomovieid
  41.   if rollOver(pspritenum) then
  42.     if (gpanomovieid <> EMPTY) and (runninginforeground() = "true") then
  43.       panomovie("Direct", gpanomovieid, "mouseOver")
  44.     else
  45.       panomovie("Direct", gpanomovieid, "idle")
  46.     end if
  47.     cursor(200)
  48.     cursor(-1)
  49.   else
  50.     panomovie("Direct", gpanomovieid, "idle")
  51.   end if
  52.   cursor(200)
  53.   cursor(-1)
  54. end
  55.  
  56. factory callbacktracer
  57. method mnew
  58.  
  59. method mevalexpr pexpr
  60.  
  61. method msendhcmessage pmessage
  62.  
  63. method msendcardmessage pmessage
  64.   do(pmessage)
  65.  
  66. method mgetfieldbyname pcard, pname
  67.  
  68. method mgetfieldbynum pcard, pnum
  69.  
  70. method mgetfieldbyid pcard, pid
  71.  
  72. method msetfieldbyname pcard, pname, pvalue
  73.  
  74. method msetfieldbynum pcard, pnum, pvalue
  75.  
  76. method msetfieldbyid pcard, pid, pvalue
  77.