The Museum Of Anything Goes/MOAG.bin/pc/opendata/moagstrt.dir/00006.ls

Text File | 1995-03-16 | 1.3 KB | 67 lines

on TESTMEMORY
  global gXLibPath
  if the machineType <> 256 then
  end if
end

on stopMovie
  global gMemory
  if objectp(gMemory) then
    gMemory(mdispose)
  end if
end

on INITIALIZEMEMORY
  global gMemory
  if objectp(gMemory) then
    gMemory(mdispose)
  end if
  set theXlib to CONVERTCDNUMSTRTOMOVIE("MemoryXLib")
  openXLib(theXlib)
  set gMemory to Memory(mnew)
  if not objectp(gMemory) then
    alert("Memory XObject could not initialize.")
    closeXLib(theXlib)
    exit
  end if
  CHECKVM()
end

on CHECKVM
  global gMemory
  set VMCode to gMemory(mGetVM)
  set theXlib to CONVERTCDNUMSTRTOMOVIE("MemoryXLib")
  closeXLib(theXlib)
  if VMCode <> 0 then
    GOTOAFRAME("MemError")
  end if
end

on ERRORSTR
  set str1 to "Warning: This computer has virtual memory turned on, "
  set str2 to "Macromind Director Version 4.03 does not support virtual memory. "
  set str3 to "Please turn virtual memory off in the 'Memory' control panel and "
  set str4 to "restart your computer. --Wayzata Technical Support 1-800-377-7321"
  set errData to str1 & str2 & str3 & str4
  return errData
end

on DOQUIT
  global gMemory
  if objectp(gMemory) then
    gMemory(mdispose)
  end if
  quit()
end

on DOCONTINUE
  go("StartCD")
end

on CHECKCOLORDEPTH
  set anum to the colorDepth
  if anum <> 8 then
    go("BadColor")
  end if
end