home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / switch.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1998-09-29  |  1.0 KB  |  36 lines
  1. on okAction
  2.   global gSwitchMovie, cd
  3.   if not (the platform contains "windows") then
  4.     set theMode to cdGetMode()
  5.     if not voidp(theMode) and (theMode <> EMPTY) and (theMode <> "stopped") then
  6.       alert("There is no CD in the CD-ROM drive or the drive is not ready.")
  7.       return 
  8.     end if
  9.   end if
  10.   if netIsFileThere(gSwitchMovie) then
  11.     go(1, gSwitchMovie)
  12.     return 
  13.   else
  14.     alert("Unable to move to the new screen.  Make sure the correct CD is in the CD-ROM drive.")
  15.     return 
  16.   end if
  17. end
  18.  
  19. on cancelAction
  20.   global gFullReturnMovie, cd
  21.   if not (the platform contains "windows") then
  22.     set theMode to cdGetMode()
  23.     if not voidp(theMode) and (theMode <> EMPTY) and (theMode <> "stopped") then
  24.       alert("There is no CD in the CD-ROM drive or the drive is not ready.")
  25.       return 
  26.     end if
  27.   end if
  28.   if netIsFileThere(gFullReturnMovie) then
  29.     go(1, gFullReturnMovie)
  30.     return 
  31.   else
  32.     alert("Unable to return to the previous screen.  Make sure the correct CD is in the CD-ROM drive.")
  33.     return 
  34.   end if
  35. end
  36.