home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / switch.dxr / 00023_OTHER.ls < prev    next >
Encoding:
Text File  |  1998-09-29  |  1.6 KB  |  97 lines
  1. on cdPlay track
  2.   global cd
  3.   return 
  4.   if not objectp(cd) then
  5.     exit
  6.   end if
  7.   set mode to cd(mStatus, "mode")
  8.   if voidp(track) then
  9.     if mode = "playing" then
  10.       exit
  11.     else
  12.       set track to EMPTY
  13.     end if
  14.   end if
  15.   if integerp(track) then
  16.     set track to string(track) & ":0:0:0"
  17.   end if
  18.   if (track = EMPTY) or (track contains "from") then
  19.     cd(mPlay, track)
  20.   else
  21.     cd(mPlay, "from" && track)
  22.   end if
  23. end
  24.  
  25. on cdNextTrack
  26.   return 
  27.   set theMode to cdGetMode()
  28.   set track to cdGetTrack() + 1
  29.   if theMode = "playing" then
  30.     cdPlay(track)
  31.   else
  32.     cdSeek(track)
  33.   end if
  34. end
  35.  
  36. on cdLastTrack
  37.   return 
  38.   set theMode to cdGetMode()
  39.   set track to cdGetTrack() - 1
  40.   if theMode = "playing" then
  41.     cdPlay(track)
  42.   else
  43.     cdSeek(track)
  44.   end if
  45. end
  46.  
  47. on cdSeek track
  48.   global cd
  49.   return 
  50.   cd(mSeek, " to " & track & ":0:0:8")
  51. end
  52.  
  53. on cdSkipTo sec
  54.   global cd
  55.   return 
  56.   cd(mSet, "time format ms")
  57.   set pos to cd(mStatus, "position")
  58.   set whereTo to string(integer(pos + (sec * 1000)))
  59.   cd(mPlay, "from " & whereTo)
  60.   set pos to cd(mStatus, "position")
  61. end
  62.  
  63. on cdGetTrack
  64.   global cd
  65.   return 
  66.   set curTrack to cd(mStatus, "current track")
  67.   return integer(curTrack)
  68. end
  69.  
  70. on cdGetPos
  71.   global cd
  72.   return 
  73.   if objectp(cd) then
  74.     if cd(mStatus, "mode") = "open" then
  75.       return "No CD Present"
  76.     else
  77.       cd(mSet, "time format tmsf")
  78.       set cdTime to cd(mStatus, "position")
  79.       return cdTime
  80.     end if
  81.   end if
  82. end
  83.  
  84. on upTheVol
  85.   global Vol, cd
  86.   return 
  87.   set Vol to Vol + 10
  88.   cd(mSetVolume, Vol, Vol)
  89. end
  90.  
  91. on downTheVol
  92.   global Vol, cd
  93.   return 
  94.   set Vol to Vol - 10
  95.   cd(mSetVolume, Vol, Vol)
  96. end
  97.