home *** CD-ROM | disk | FTP | other *** search
/ VCD Film, Television & An…on Creation Encyclopedia / mycd.iso / Direct5 / DATA.Z / BEGIN.DIR / Internal_1.ls < prev    next >
Encoding:
Text File  |  1996-03-15  |  1.1 KB  |  65 lines
  1. on startMovie
  2.   global gNumberOfPasses, magcursor
  3.   set the soundEnabled to 1
  4.   set the soundLevel to 4
  5.   set gNumberOfPasses to 1
  6.   set magcursor to [the number of member "magnifying glass"]
  7.   if the colorDepth <> 8 then
  8.     set the colorDepth to 8
  9.   end if
  10. end
  11.  
  12. on bartender
  13.   set HortPos to the mouseH
  14.   sound fadeOut 1, 5
  15.   if HortPos < 123 then
  16.     play movie "FURNITUR.DIR"
  17.   else
  18.     if HortPos < 273 then
  19.       play movie "PHILANTH.DIR"
  20.     else
  21.       if HortPos < 385 then
  22.         play movie "LEARN.DIR"
  23.       else
  24.         if HortPos < 440 then
  25.           play movie "LUCK.DIR"
  26.         else
  27.           play movie "HELP.DIR"
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.  
  34. on enterFrame
  35.   global magcursor
  36.   set changeToMagFinder to 0
  37.   if rollOver(2) or rollOver(18) then
  38.     set changeToMagFinder to 1
  39.   end if
  40.   if changeToMagFinder then
  41.     cursor(magcursor)
  42.   else
  43.     cursor(-1)
  44.   end if
  45. end
  46.  
  47. on testPasses
  48.   global gNumberOfPasses
  49.   if gNumberOfPasses = 2 then
  50.     sound fadeOut 1, 5
  51.     go(1, "FURNITUR.DIR")
  52.   else
  53.     set gNumberOfPasses to gNumberOfPasses + 1
  54.     go("INTRO")
  55.   end if
  56. end
  57.  
  58. on stopMovie
  59.   cursor(-1)
  60. end
  61.  
  62. on resetMovie
  63.   go(1)
  64. end
  65.