home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / VTAROT.EXE / VTAROT.DXR / 00001.ls next >
Encoding:
Text File  |  1995-11-01  |  806 b   |  29 lines
  1. on startMovie
  2.   global QTVidsAvail
  3.   set the volume of sound 1 to 240
  4.   set the volume of sound 2 to 180
  5.   set the soundLevel to 6
  6.   if the machineType = 256 then
  7.     openXLib("FILEIO")
  8.     set fileObj to FileIO(mnew, "read", the moviePath & "QTVids\PhilInst.mov")
  9.   else
  10.     set fileObj to FileIO(mnew, "read", the moviePath & "QTVids:PhilInst.mov")
  11.   end if
  12.   if objectp(fileObj) = 1 then
  13.     set QTVidsAvail to 1
  14.   else
  15.     set QTVidsAvail to 0
  16.   end if
  17.   if the machineType = 256 then
  18.     append(the searchPath, the moviePath & "QTVids\")
  19.     openXLib("FILEIO")
  20.   else
  21.     append(the searchPath, the moviePath & "QTVids:")
  22.     openXLib(the moviePath & "VTResources")
  23.     set Bd to BackDrop(mnew)
  24.     Bd(mRegister, "20071132-852")
  25.     Bd(mShow)
  26.     closeXLib(the moviePath & "VTResources")
  27.   end if
  28. end
  29.