home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd1.iso / DATA / INF.Z / BIT16 / MC16.EXE / MC16.DXR / 00007_ask for swap disc.ls < prev    next >
Encoding:
Text File  |  1998-02-20  |  1.3 KB  |  49 lines
  1. on exitFrame
  2.   global gDiskRequested, gCDinDrive, gDeveloping, gvolumeName, gStartPath, gDoorClosed, gOperatingSystem
  3.   case gDiskRequested of
  4.     (-1):
  5.       swapCast(2, 5)
  6.       set the ink of sprite 2 to 8
  7.       set the loc of sprite 2 to point(320, 240)
  8.       hideButton()
  9.       if not initCDxlib() then
  10.         put "Could not create instance of CD XObject"
  11.       end if
  12.       set gDiskRequested to 201
  13.     1, 2:
  14.       set the mouseUpScript to EMPTY
  15.       swapCast(2, 4 + gDiskRequested)
  16.       set the ink of sprite 2 to 8
  17.       set the loc of sprite 2 to point(320, 240)
  18.       hideButton()
  19.       updateStage()
  20.       if initCDxlib() then
  21.         displayButton("eject", 1)
  22.         set gDiskRequested to gDiskRequested + 100
  23.         set gDoorClosed to 0
  24.       else
  25.         displayButton("manual", 0)
  26.         set gDiskRequested to gDiskRequested + 200
  27.       end if
  28.     101, 102:
  29.       nothing()
  30.     201, 202:
  31.       case CDisReady() of
  32.         1, (-1):
  33.           set gDiskRequested to gDiskRequested + 100
  34.       end case
  35.     301, 302:
  36.       processDisk(gDiskRequested - 300)
  37.       set gDiskRequested to gDiskRequested - (gDiskRequested / 100 * 100)
  38.       exit
  39.     otherwise:
  40.       closeXLib()
  41.       if gDeveloping then
  42.         halt()
  43.       else
  44.         quit()
  45.       end if
  46.   end case
  47.   go(char 1 to 3 of gOperatingSystem)
  48. end
  49.