PC Home 49/PC_Home_Issue_49.iso/musicbox/rehoboe.dxr/00060.ls

Text File | 1996-06-28 | 602 b | 29 lines

on startMovie
  global fixpal
  startQTVR()
  if the machineType <> 256 then
    openXLib("FixPaletteXObj")
    set fixpal to FixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageTop)
  end if
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
end

on stopMovie
  global fixpal
  closeObjMovie()
  if the machineType <> 256 then
    fixpal(mdispose)
    closeXLib("FixPaletteXObj")
  end if
end

on patchpal
  global fixpal
  if the machineType <> 256 then
    fixpal(mPatchIt)
  end if
end