home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd1.iso / DATA / INF.Z / BIT16 / MC16.EXE / MC16.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1998-02-20  |  953 b   |  41 lines
  1. on exitFrame
  2.   global gvolumeName, gStartPath, gCDinDrive, gDeveloping, gDiskRequested, gOperatingSystem
  3.   clearGlobals()
  4.   set gOperatingSystem to "Win16"
  5.   set the randomSeed to the ticks
  6.   swapCast(2, 11 + random(3))
  7.   set the loc of sprite 2 to point(320, 240)
  8.   set the ink of sprite 2 to 0
  9.   updateStage()
  10.   set the stageColor to 255
  11.   if the machineType <> 256 then
  12.     set gCDinDrive to setUpMacPathNames()
  13.   else
  14.     set gCDinDrive to setupWinPathNames()
  15.   end if
  16.   set status to checkForExternals()
  17.   if status <> EMPTY then
  18.     alert(status)
  19.     if gDeveloping then
  20.       halt()
  21.     else
  22.       quit()
  23.     end if
  24.   else
  25.     openAllXlibs()
  26.   end if
  27.   if (gCDinDrive = 0) and not gDeveloping then
  28.     set gDiskRequested to -1
  29.     go(char 1 to 3 of gOperatingSystem)
  30.   else
  31.     cursor(4)
  32.     startAtmos()
  33.     if gDeveloping then
  34.       go(1, gStartPath & "MEANCITY")
  35.     else
  36.       go(1, gvolumeName & "MEANCITY")
  37.     end if
  38.     exit
  39.   end if
  40. end
  41.