home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / musicbox / intro.dxr / 00009.ls < prev    next >
Encoding:
Text File  |  1996-06-28  |  1.8 KB  |  46 lines
  1. on exitFrame
  2.   global gProjectorPath
  3.   if the machineType = 256 then
  4.     set numItems to count(the searchPath)
  5.     repeat with i = numItems down to 1
  6.       deleteAt(the searchPath, i)
  7.     end repeat
  8.     put the searchPath
  9.   end if
  10.   if voidp(gProjectorPath) then
  11.     set pathStart to the pathName
  12.   else
  13.     set pathStart to gProjectorPath
  14.   end if
  15.   if the machineType <> 256 then
  16.     set pathSep to ":"
  17.   else
  18.     set pathSep to "\"
  19.   end if
  20.   set controlPath to pathStart & "CONTROL" & pathSep
  21.   set the fileName of cast 501 to controlPath & "3D.MOV"
  22.   set the fileName of cast 503 to controlPath & "COMP.MOV"
  23.   set the fileName of cast 505 to controlPath & "EXIT.MOV"
  24.   set the fileName of cast 507 to controlPath & "FF.MOV"
  25.   set the fileName of cast 509 to controlPath & "FING.MOV"
  26.   set the fileName of cast 511 to controlPath & "HELP.MOV"
  27.   set the fileName of cast 513 to controlPath & "INFO.MOV"
  28.   set the fileName of cast 515 to controlPath & "MENU.MOV"
  29.   set the fileName of cast 517 to controlPath & "ORCH.MOV"
  30.   set the fileName of cast 519 to controlPath & "PLAY.MOV"
  31.   set the fileName of cast 521 to controlPath & "RECPLAY.MOV"
  32.   set the fileName of cast 523 to controlPath & "REH.MOV"
  33.   set the fileName of cast 525 to controlPath & "REW.MOV"
  34.   set the fileName of cast 527 to controlPath & "SCORE.MOV"
  35.   set the fileName of cast 529 to controlPath & "SOUND.MOV"
  36.   set the fileName of cast 531 to controlPath & "STOP.MOV"
  37.   set the fileName of cast 533 to controlPath & "THEATRE.MOV"
  38.   set the fileName of cast 535 to controlPath & "TLFF.MOV"
  39.   set the fileName of cast 537 to controlPath & "TLREW.MOV"
  40.   set the fileName of cast 539 to controlPath & "TREE.MOV"
  41.   set the fileName of cast 541 to controlPath & "VIDEO.MOV"
  42.   append(the searchPath, controlPath)
  43.   set controlPath to pathStart & "TCONTROL" & pathSep
  44.   append(the searchPath, controlPath)
  45. end
  46.