PC Pro 1995 September/PCPRO2_995.ISO/neural/open.dir/00001_Start script.ls

Text File | 1995-05-13 | 1.7 KB | 52 lines

on startMovie
  global Pname, rollOverFlag, visSubtitles, subjListVar, glossListVar, previousM, nextM, pauseFlag, quitFile, sliderposition, exclusionFlag, contentButtonFlag, subsCount, thisMachineColorDepth, subtitleHolder, subtitleCount, repeatFlag, musicFlag, bTrackNameList, bTrackFileList, markImmediateFlag, firstThrough, sConstrainNum, fanfareFlag, fileFrameRate, pauseController, frameRef, bTrackFlag
  clearGlobals()
  set bTrackFlag to 0
  set frameRef to 0
  set pauseController to 0
  set fileFrameRate to 2
  set sConstrainNum to 0
  set floatPrecision to 3
  set firstThrough to 1
  set markImmediateFlag to 0
  set tickMarksList to []
  set movableSpriteList to []
  set musicFlag to 1
  set bTrackNameList to []
  set bTrackFileList to []
  set previousM to "Contents.dir"
  set nextM to "Contents.dir"
  set pauseFlag to 0
  set contentButtonFlag to 0
  set visSubtitles to 0
  set subsCount to 1
  set subtitleCount to 1
  set sliderposition to 210
  set repeatFlag to 0
  set exclusionFlag to 0
  set rollOverFlag to 0
  set Pname to the pathName
  set the exitLock to 1
  set the volume of sound 1 to 180
  set the volume of sound 2 to 180
  set the stageColor to 255
  set the centerStage to 1
  set the fixStageSize to 1
  set fanfareFlag to 0
  cursor([10])
  set the mouseDownScript to "goNow"
  set the keyDownScript to "goNow"
  set thisMachineColorDepth to the colorDepth
  if the colorDepth <> 8 then
    alert("This application will not run properly unless the screen is set to8 bit (256) colours.")
  end if
end

on goNow
  global Pname, musicFlag
  sound stop 2
  set the mouseDownScript to EMPTY
  set the keyDownScript to EMPTY
  go(1, Pname & "Mn\" & "Contents.dxr")
end