home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / musicbox / mci.dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  718 b   |  27 lines
  1. on exitFrame
  2.   global macVolumeName
  3.   if the machineType = 256 then
  4.     openXLib("INI")
  5.     set obj to INI(mnew)
  6.     set cdpath to obj(mGetPrivateProfileString, "Location", "CD", "nowhere", 100, "MMBDEMO.INI")
  7.     obj(mdispose)
  8.     closeXLib("INI")
  9.     if cdpath contains "nowhere" then
  10.     else
  11.       append(the searchPath, cdpath)
  12.     end if
  13.     go(1, "INTRO")
  14.   else
  15.     if voidp(macVolume) then
  16.       append(the searchPath, "MUSIC_BOX:MUSICBOX")
  17.       append(the searchPath, "MUSIC_BOX")
  18.     else
  19.       set extraPath to macVolumeName & ":MUSICBOX"
  20.       append(the searchPath, extraPath)
  21.       set extraPath to macVolumeName & ":"
  22.       append(the searchPath, extraPath)
  23.     end if
  24.     go(1, "INTRO")
  25.   end if
  26. end
  27.