home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / files / main.dxr / Internal_16.ls < prev    next >
Encoding:
Text File  |  1998-09-28  |  1.3 KB  |  44 lines
  1. on exitFrame
  2.   global cdPath1, cdPath2, hardPath, gSoundEnabled
  3.   if not voidp(gSoundEnabled) then
  4.     setupMainButtons()
  5.     return 
  6.   end if
  7.   set the searchPath to []
  8.   append(the searchPath, hardPath)
  9.   repeat with k = 1 to 2
  10.     if k = 1 then
  11.       set pathList to ["01_body", "02_cardio", "04_endo", "06_musc", "07_nerv", "10_skel"]
  12.       set thePath to cdPath1
  13.     else
  14.       set pathList to ["03_dig", "05_immun", "08_repro", "09_resp", "11_urin"]
  15.       set thePath to cdPath2
  16.     end if
  17.     append(the searchPath, thePath)
  18.     if the platform contains "Win" then
  19.       repeat with nextPath in pathList
  20.         append(the searchPath, thePath & nextPath & "\")
  21.         append(the searchPath, thePath & nextPath & "\movies\")
  22.       end repeat
  23.       next repeat
  24.     end if
  25.     repeat with nextPath in pathList
  26.       append(the searchPath, thePath & nextPath & ":")
  27.       append(the searchPath, thePath & nextPath & ":movies:")
  28.     end repeat
  29.   end repeat
  30.   if the platform contains "Win" then
  31.   else
  32.   end if
  33.   if the machineType contains "windows" then
  34.     castFX_register("CFX-ALL-1-19970128-21102367-03183")
  35.   else
  36.     castFX_register("CFX-MAC-2-19971025-11182841-03264")
  37.   end if
  38.   castFX_init()
  39.   set gSoundEnabled to 1
  40.   set the soundEnabled to 1
  41.   set the soundLevel to 7
  42.   setupMainButtons()
  43. end
  44.