home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / goer.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1994-12-18  |  2.7 KB  |  99 lines
  1. global gPTimerSet, gPresentationLight, gLightColor
  2.  
  3. on startMovie
  4.   clearGlobals()
  5.   set gLightColor to "Green timer light"
  6.   if the colorDepth <> 8 then
  7.     set the colorDepth to 8
  8.   end if
  9.   set the soundLevel to 5
  10.   InitIntro()
  11.   set gPresentationLight to 48
  12.   set the timeoutLength to 36000
  13.   set the timeoutScript to "timeoutProcedure"
  14.   set gPTimerSet to 0
  15.   if the controlDown then
  16.     if the optionDown then
  17.       put "Hi Heidi!" into field "Who to"
  18.     else
  19.       put "Hi Alex!" into field "Who to"
  20.     end if
  21.     go("Set Presentation Time")
  22.     exit
  23.   end if
  24.   if the optionDown then
  25.     put "Company Name" into field "Who to"
  26.     go("Set Presentation Time")
  27.     exit
  28.   end if
  29.   if the commandDown then
  30.     put "Hi Karyn!" into field "Who to"
  31.     go("Set Presentation Time")
  32.     exit
  33.   end if
  34.   if the shiftDown then
  35.     put "Hi Cathy!" into field "Who to"
  36.     go("Set Presentation Time")
  37.     exit
  38.   end if
  39. end
  40.  
  41. on InitIntro
  42.   global gMyPath, gFile
  43.   set the searchCurrentFolder to 0
  44.   if the machineType = 256 then
  45.     set PathList to ["C:\FILES\", "D:\FILES\", "E:\FILES\", "F:\FILES\", "G:\FILES\", "H:\FILES\", "I:\FILES\", "J:\FILES\", "K:\FILES\", "L:\FILES\", "M:\FILES\", "N:\FILES\", "O:\FILES\", "P:\FILES\", "Q:\FILES\", "R:\FILES\", "S:\FILES\", "T:\FILES\", "U:\FILES\", "V:\FILES\", "W:\FILES\", "X:\FILES\", "Y:\FILES\", "Z:\FILES\", "EOL"]
  46.     set gMyPath to "D:\FILES\"
  47.     repeat with x = 1 to count(PathList)
  48.       set gMyPath to getAt(PathList, x)
  49.       set foo to ReadCDTestFile()
  50.       put foo && "Reading from disk:" && getAt(PathList, x)
  51.       if foo then
  52.         exit repeat
  53.       end if
  54.       if gMyPath = "EOL" then
  55.         CantFindCD()
  56.       end if
  57.     end repeat
  58.   else
  59.     set gMyPath to "SHOWCASE:FILES:"
  60.     set foo to ReadCDTestFile()
  61.     put foo
  62.     if not foo then
  63.       CantFindCD()
  64.     end if
  65.   end if
  66. end
  67.  
  68. on ReadCDTestFile
  69.   global gFile, gMyPath, gTheProblem
  70.   put "READ CD ROUTINE"
  71.   if objectp(gFile) then
  72.     gFile(mdispose)
  73.   end if
  74.   if the machineType = 256 then
  75.     set TestPath to gMyPath & "CDLOCALE.TXT"
  76.   else
  77.     set TestPath to gMyPath & "CDLOCALE.TXT"
  78.   end if
  79.   set gFile to FileIO(mnew, "read", TestPath)
  80.   if not objectp(gFile) then
  81.     put "NOT found"
  82.     return 0
  83.   else
  84.     gFile(mdispose)
  85.     put "Found!"
  86.     setAt(the searchPath, 1, gMyPath)
  87.     return 1
  88.   end if
  89. end
  90.  
  91. on CantFindCD
  92.   if the machineType = 256 then
  93.     alert("You don't seem to have the Showcase CD-ROM loaded!  Please make sure the CD is in the drive." & RETURN & RETURN & "Then restart the application.")
  94.   else
  95.     alert("You don't seem to have the Showcase CD-ROM loaded!  Please make sure the CD is in the drive and that the" && QUOTE & "Showcase" & QUOTE && "icon appears on the desktop." & RETURN & RETURN & "Then restart the application.")
  96.   end if
  97.   quit()
  98. end
  99.