home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / musicbox / theatre.dxr / 00041.ls < prev    next >
Encoding:
Text File  |  1996-06-28  |  1.2 KB  |  46 lines
  1. on startMovie
  2.   global gPlayAll, gProjectorPath, fixpal
  3.   if voidp(gProjectorPath) then
  4.     set pathStart to the pathName
  5.   else
  6.     set pathStart to gProjectorPath
  7.   end if
  8.   if the machineType <> 256 then
  9.     set pathSep to ":"
  10.   else
  11.     set pathSep to "\"
  12.   end if
  13.   set controlPath to pathStart & "TCONTROL" & pathSep
  14.   set the fileName of cast 30 to controlPath & "PLAY1.MOV"
  15.   set the fileName of cast 31 to controlPath & "PLAY2.MOV"
  16.   set the fileName of cast 32 to controlPath & "PLAY3.MOV"
  17.   set the fileName of cast 33 to controlPath & "PLAY4.MOV"
  18.   set the fileName of cast 34 to controlPath & "PLAY5.MOV"
  19.   set the fileName of cast 35 to controlPath & "PLAYALL.MOV"
  20.   set the fileName of cast 37 to controlPath & "MAINMENU.MOV"
  21.   append(the searchPath, controlPath)
  22.   if the machineType <> 256 then
  23.     openXLib("FixPaletteXObj")
  24.     set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
  25.   end if
  26.   set gPlayAll to 0
  27. end
  28.  
  29. on stopMovie
  30.   global fixpal
  31.   if soundBusy(1) then
  32.     soundFade()
  33.   end if
  34.   if the machineType <> 256 then
  35.     fixpal(mdispose)
  36.     closeXLib("FixPaletteXObj")
  37.   end if
  38. end
  39.  
  40. on patchpal
  41.   global fixpal
  42.   if the machineType <> 256 then
  43.     fixpal(mPatchIt)
  44.   end if
  45. end
  46.