The Museum of Anything Goes

--used in the projector movie
on FIGURECDBEGIN
    put "Start" into aMov
    put CONVERTCDNUMSTRTOMOVIE(aMov) into aMov
    go frame 1 of movie aMov
end FIGURECDBEGIN

--macro to figure out which movie we are going to
on CONVERTCDNUMSTRTOMOVIE aMov
    put the machineType into amachine
    if amachine = 256 then
        put "\" into sepchar
        put the pathname into apath
        put the number of chars in apath into cnum
        repeat with x = 1 to cnum
        if char x of apath = sepchar then
            put char 1 to x of apath into adisk
            exit repeat
        end if
        end repeat
        put adisk&"Data"&sepchar into partStr
        put adisk into diskStr
    else
        put ":" into sepchar
        put "MOAG:DATA:" into partStr
        put "MOAG:" into diskStr
    end if
    if aMov = "Start" then
        return (diskStr&"OPENDATA"&sepChar&"INTRO")
    else if aMov = "Help" then
        return (diskStr&"OPENDATA"&sepChar&"MOAGBOUT")
    else if aMov = "MenuXLib" then
        return (diskStr&"DATA"&sepChar&"XLIBS"&sepChar&"REAROBJ")
    else if aMov = "FileXLib" then
        return (diskStr&"DATA"&sepChar&"XLIBS"&sepChar&"FILEOBJ")
    else if aMov = "MemoryXLib" then
        return (diskStr&"DATA"&sepChar&"XLIBS"&sepChar&"MEMOBJ")
    else
        return (diskStr&"LITESIDE"&sepChar&"OUTLI55")
    end if
end 

on TESTMEMORY
  global gXLibPath
  if the machineType <> 256 then
    --check for virtual memory on a mac only
    -- UNCOMMENT the line INITIALIZEMEMORY if you
    -- want to check for VIRTUAL MEMORY ON MAC CPU's
    --INITIALIZEMEMORY
  end if
end TESTMEMORY

on STOPMOVIE
  global gMemory
  --dispose of the XOBJ, we do not need it anymore
  if objectP(gMemory) then gMemory(mDispose)
end STOPMOVIE

on INITIALIZEMEMORY
  global gMemory
  if objectP(gMemory) then gMemory(mDispose)
  put CONVERTCDNUMSTRTOMOVIE("MemoryXLib") into theXlib
  openXLib theXlib
  set gMemory = memory(mNew)
  --test for proper initialization
  if (not objectP(gMemory)) then
    alert "Memory XObject could not initialize."
    closeXLib theXlib
    exit
  end if
  CHECKVM
end INITIALIZEMEMORY

on CHECKVM
  global gMemory
  set VMCode = gMemory(mGetVM)
  put CONVERTCDNUMSTRTOMOVIE("MemoryXLib") into theXlib
  closeXLib theXlib
  if VMCode <> 0 then
    GOTOAFRAME "MemError"
    --put ERROSTR() into eData
    --alert eData
    --quit
  end if
end CHECKVM

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

on DOQUIT
  global gMemory
  --dispose of the XOBJ, we do not need it anymore
  if objectP(gMemory) then gMemory(mDispose)
  quit
end DOQUIT

on DOCONTINUE
  go frame "StartCD"
end DOCONTINUE

on CHECKCOLORDEPTH
  put the colorDepth into anum
  if anum <> 8 then
    go frame "BadColor"
  end if
end