home *** CD-ROM | disk | FTP | other *** search
/ The Stock Market: Browser - Disc 1 / TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin / pc / English-UK / Start.dir / 00063_Script_63 < prev    next >
Text File  |  2000-02-10  |  1KB  |  54 lines
  1. on startMovie
  2.   global NewPath
  3.   if VoidP(NewPath) then set NewPath = the pathName
  4.   set the exitLock = 1
  5.   monitorSet
  6. end
  7.  
  8.  
  9.  
  10.  
  11. on monitorSet
  12.   
  13.   global gDepth
  14.   put the colordepth into gDepth
  15.   if gDepth < 16 then
  16.     if the machinetype = 256 then
  17.       --Windows warning message here... not good monitor depth, please change.
  18.       alert "This presentation was optimized for THOUSANDS of colors or higher monitor display.  Please adjust your monitor and restart this presentation."
  19.       
  20.     else
  21.       set the colordepth = 16
  22.     end if
  23.   end if
  24. end
  25.  
  26. on mouseDown
  27.   go to "end"
  28. end 
  29.  
  30.  
  31. on keyDown
  32.   if the key < 8 and the key > -1 then
  33.     put the key into var
  34.     put value(var) into var
  35.     set the soundlevel = var
  36.   end if
  37.   global NewPath
  38.   if the commandDown and ¼
  39.    (the key = "." or the key = "q") and ¼
  40.    the exitLock = TRUE or the keycode = 53 then
  41.     play movie NewPath&"Credits.dir"
  42.     go to 285
  43.   end if
  44. end
  45.  
  46.  
  47.  
  48.  
  49. on exitMoov
  50.   global NewPath
  51.   play frame "welcome" of movie NewPath&"Main.dir"
  52. end
  53.  
  54.