home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / switch.dxr / 00022_CDPlayer.ls < prev    next >
Encoding:
Text File  |  1998-09-29  |  1.1 KB  |  63 lines
  1. on ECDCTRLInit deviceNum
  2.   global cd, gDir, Vol
  3.   if the platform contains "windows" then
  4.     set xObj to "ECDCTRL.DLL"
  5.   else
  6.     set xObj to "ECDCTRL"
  7.   end if
  8.   if gDir <> EMPTY then
  9.     openXLib(gDir & xObj)
  10.   else
  11.     openXLib(xObj)
  12.   end if
  13.   set cd to ECDCTRL(mnew, 0)
  14.   if voidp(cd) or integerp(cd) then
  15.     put "ECDXOBJ failed to initilize"
  16.   else
  17.     if cd(mTotalDevices) = 0 then
  18.       put "The CD controller cannot detect a cd-rom device."
  19.     end if
  20.   end if
  21.   return cd
  22. end
  23.  
  24. on ECDCTRLDestroy
  25.   global cd, gDir
  26.   if not voidp(cd) and not integerp(cd) then
  27.     cdStop()
  28.     cd(mdispose)
  29.   end if
  30.   if the platform contains "windows" then
  31.     set xObj to "ECDCTRL.DLL"
  32.   else
  33.     set xObj to "ECDCTRL"
  34.   end if
  35.   if gDir <> EMPTY then
  36.     closeXLib(gDir & xObj)
  37.   else
  38.     closeXLib(xObj)
  39.   end if
  40. end
  41.  
  42. on cdStop
  43.   global cd
  44.   cd(mStop)
  45. end
  46.  
  47. on cdGetMode
  48.   global cd
  49.   if not voidp(cd) then
  50.     cd(mStatus, "mode")
  51.     return the result
  52.   end if
  53. end
  54.  
  55. on cdEject
  56.   global cd
  57.   if voidp(cd) or integerp(cd) then
  58.     alert("Unable to eject the CD from the CD-ROM drive.  Please manually eject the CD.")
  59.     return 
  60.   end if
  61.   cd(mSet, "door open")
  62. end
  63.