home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / backpack.exe / backpack.DXR / 00001.ls next >
Encoding:
Text File  |  1995-11-16  |  1.2 KB  |  39 lines
  1. on exitFrame
  2.   global PNM, PLAYER
  3.   if getNthFileNameInFolder(FixPath(the pathName & "DATA:DESTDIR:DQDIR1:"), 1) = EMPTY then
  4.     if the machineType = 256 then
  5.       set DriveList to ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Not found"]
  6.       repeat with n in DriveList
  7.         set CDPath to n & ":\DATA\DESTDIR\DQDIR1\"
  8.         if getNthFileNameInFolder(CDPath, 1) contains "D1Q0.D" then
  9.           exit repeat
  10.         end if
  11.       end repeat
  12.       if n = "Not found" then
  13.         alert("BackPacker CD not found!")
  14.         quit()
  15.       end if
  16.       set PNM to n & ":\DATA:"
  17.     else
  18.       if the machineType <> 256 then
  19.         set PNM to "BackPacker:DATA:"
  20.         set CDPath to PNM & "DESTDIR:DQDIR1:"
  21.         if not (getNthFileNameInFolder(CDPath, 1) contains "D1Q0.D") then
  22.           alert("BackPacker CD not found!")
  23.           quit()
  24.         end if
  25.       end if
  26.     end if
  27.   else
  28.     set PNM to the pathName & "DATA:"
  29.   end if
  30.   set the fixStageSize to 1
  31.   set the centerStage to 1
  32.   set PLAYER to 1
  33.   if PLAYER and (the machineType <> 256) then
  34.     set RW_Obj to RearWindow(mnew, "M")
  35.     RW_Obj(mIndexColorToWindow, 255)
  36.   end if
  37.   go(1, FixPath(PNM & "MISC:START"))
  38. end
  39.