home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / intpcw08.dxr / 00007_IFLDisplay.ls < prev    next >
Encoding:
Text File  |  1997-05-21  |  8.3 KB  |  206 lines
  1. on IFLDisplay
  2.   global IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro, IFLMovieNameList
  3.   case rollOver() of
  4.     39:
  5.       IFLCursorSet()
  6.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  7.         set the castNum of sprite 32 to the number of member "smalllogo"
  8.       end if
  9.       repeat with t = 1 to count(IFLINTREFList)
  10.         set the castNum of sprite getAt(getAt(IFLINTREFList, t), 1) to the number of member getAt(getAt(IFLINTREFList, t), 2)
  11.         set the loc of sprite getAt(getAt(IFLINTREFList, t), 1) to point(getAt(getAt(IFLINTREFList, t), 3), getAt(getAt(IFLINTREFList, t), 4))
  12.       end repeat
  13.       updateStage()
  14.       repeat while rollOver(39)
  15.         if the mouseDown then
  16.           set IFLLeaveIntro to 1
  17.           set IFLWhichPOS to 1
  18.           exit repeat
  19.         end if
  20.       end repeat
  21.       repeat with t = 1 to count(IFLINTREFList)
  22.         set the castNum of sprite getAt(getAt(IFLINTREFList, t), 1) to 86
  23.       end repeat
  24.       updateStage()
  25.     44:
  26.       IFLCursorSet()
  27.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  28.         set the castNum of sprite 32 to the number of member "smalllogo"
  29.       end if
  30.       repeat with t = 1 to count(IFLINTGESList)
  31.         set the castNum of sprite getAt(getAt(IFLINTGESList, t), 1) to the number of member getAt(getAt(IFLINTGESList, t), 2)
  32.         set the loc of sprite getAt(getAt(IFLINTGESList, t), 1) to point(getAt(getAt(IFLINTGESList, t), 3), getAt(getAt(IFLINTGESList, t), 4))
  33.       end repeat
  34.       updateStage()
  35.       repeat while rollOver(44)
  36.         if the mouseDown then
  37.           set IFLLeaveIntro to 1
  38.           set IFLWhichPOS to 6
  39.           exit repeat
  40.         end if
  41.       end repeat
  42.       repeat with t = 1 to count(IFLINTGESList)
  43.         set the castNum of sprite getAt(getAt(IFLINTGESList, t), 1) to 86
  44.       end repeat
  45.       updateStage()
  46.     41:
  47.       IFLCursorSet()
  48.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  49.         set the castNum of sprite 32 to the number of member "smalllogo"
  50.       end if
  51.       repeat with t = 1 to count(IFLINTRESList)
  52.         set the castNum of sprite getAt(getAt(IFLINTRESList, t), 1) to the number of member getAt(getAt(IFLINTRESList, t), 2)
  53.         set the loc of sprite getAt(getAt(IFLINTRESList, t), 1) to point(getAt(getAt(IFLINTRESList, t), 3), getAt(getAt(IFLINTRESList, t), 4))
  54.       end repeat
  55.       updateStage()
  56.       repeat while rollOver(41)
  57.         if the mouseDown then
  58.           set IFLLeaveIntro to 1
  59.           set IFLWhichPOS to 3
  60.           exit repeat
  61.         end if
  62.       end repeat
  63.       repeat with t = 1 to count(IFLINTRESList)
  64.         set the castNum of sprite getAt(getAt(IFLINTRESList, t), 1) to 86
  65.       end repeat
  66.       updateStage()
  67.     42:
  68.       IFLCursorSet()
  69.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  70.         set the castNum of sprite 32 to the number of member "smalllogo"
  71.       end if
  72.       repeat with t = 1 to count(IFLINTGROList)
  73.         set the castNum of sprite getAt(getAt(IFLINTGROList, t), 1) to the number of member getAt(getAt(IFLINTGROList, t), 2)
  74.         set the loc of sprite getAt(getAt(IFLINTGROList, t), 1) to point(getAt(getAt(IFLINTGROList, t), 3), getAt(getAt(IFLINTGROList, t), 4))
  75.       end repeat
  76.       updateStage()
  77.       repeat while rollOver(42)
  78.         if the mouseDown then
  79.           set IFLLeaveIntro to 1
  80.           set IFLWhichPOS to 4
  81.           exit repeat
  82.         end if
  83.       end repeat
  84.       repeat with t = 1 to count(IFLINTGROList)
  85.         set the castNum of sprite getAt(getAt(IFLINTGROList, t), 1) to 86
  86.       end repeat
  87.       updateStage()
  88.     43:
  89.       IFLCursorSet()
  90.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  91.         set the castNum of sprite 32 to the number of member "smalllogo"
  92.       end if
  93.       repeat with t = 1 to count(IFLINTFAEList)
  94.         set the castNum of sprite getAt(getAt(IFLINTFAEList, t), 1) to the number of member getAt(getAt(IFLINTFAEList, t), 2)
  95.         set the loc of sprite getAt(getAt(IFLINTFAEList, t), 1) to point(getAt(getAt(IFLINTFAEList, t), 3), getAt(getAt(IFLINTFAEList, t), 4))
  96.       end repeat
  97.       updateStage()
  98.       repeat while rollOver(43)
  99.         if the mouseDown then
  100.           set IFLLeaveIntro to 1
  101.           set IFLWhichPOS to 5
  102.           exit repeat
  103.         end if
  104.       end repeat
  105.       repeat with t = 1 to count(IFLINTFAEList)
  106.         set the castNum of sprite getAt(getAt(IFLINTFAEList, t), 1) to 86
  107.       end repeat
  108.       updateStage()
  109.     40:
  110.       IFLCursorSet()
  111.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  112.         set the castNum of sprite 32 to the number of member "smalllogo"
  113.       end if
  114.       repeat with t = 1 to count(IFLINTHANList)
  115.         set the castNum of sprite getAt(getAt(IFLINTHANList, t), 1) to the number of member getAt(getAt(IFLINTHANList, t), 2)
  116.         set the loc of sprite getAt(getAt(IFLINTHANList, t), 1) to point(getAt(getAt(IFLINTHANList, t), 3), getAt(getAt(IFLINTHANList, t), 4))
  117.       end repeat
  118.       updateStage()
  119.       repeat while rollOver(40)
  120.         if the mouseDown then
  121.           set IFLLeaveIntro to 1
  122.           set IFLWhichPOS to 2
  123.           exit repeat
  124.         end if
  125.       end repeat
  126.       repeat with t = 1 to count(IFLINTHANList)
  127.         set the castNum of sprite getAt(getAt(IFLINTHANList, t), 1) to 86
  128.       end repeat
  129.       updateStage()
  130.     45:
  131.       IFLCursorSet()
  132.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  133.         set the castNum of sprite 32 to the number of member "smalllogo"
  134.       end if
  135.       repeat with t = 1 to count(IFLINTGTSList)
  136.         set the castNum of sprite getAt(getAt(IFLINTGTSList, t), 1) to the number of member getAt(getAt(IFLINTGTSList, t), 2)
  137.         set the loc of sprite getAt(getAt(IFLINTGTSList, t), 1) to point(getAt(getAt(IFLINTGTSList, t), 3), getAt(getAt(IFLINTGTSList, t), 4))
  138.       end repeat
  139.       updateStage()
  140.       repeat while rollOver(45)
  141.         if the mouseDown then
  142.           set IFLLeaveIntro to 1
  143.           set IFLWhichPOS to 7
  144.           exit repeat
  145.         end if
  146.       end repeat
  147.       repeat with t = 1 to count(IFLINTGTSList)
  148.         set the castNum of sprite getAt(getAt(IFLINTGTSList, t), 1) to 86
  149.       end repeat
  150.       updateStage()
  151.     46:
  152.       IFLCursorSet()
  153.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  154.         set the castNum of sprite 32 to the number of member "smalllogo"
  155.       end if
  156.       repeat with t = 1 to count(IFLINTARTList)
  157.         set the castNum of sprite getAt(getAt(IFLINTARTList, t), 1) to the number of member getAt(getAt(IFLINTARTList, t), 2)
  158.         set the loc of sprite getAt(getAt(IFLINTARTList, t), 1) to point(getAt(getAt(IFLINTARTList, t), 3), getAt(getAt(IFLINTARTList, t), 4))
  159.       end repeat
  160.       updateStage()
  161.       repeat while rollOver(46)
  162.         if the mouseDown then
  163.           set IFLLeaveIntro to 1
  164.           set IFLWhichPOS to 8
  165.           exit repeat
  166.         end if
  167.       end repeat
  168.       repeat with t = 1 to count(IFLINTARTList)
  169.         set the castNum of sprite getAt(getAt(IFLINTARTList, t), 1) to 86
  170.       end repeat
  171.       updateStage()
  172.     47:
  173.       IFLCursorSet()
  174.       if the castNum of sprite 32 <> the number of member "smalllogo" then
  175.         set the castNum of sprite 32 to the number of member "smalllogo"
  176.       end if
  177.       repeat with t = 1 to count(IFLINTMGIList)
  178.         set the castNum of sprite getAt(getAt(IFLINTMGIList, t), 1) to the number of member getAt(getAt(IFLINTMGIList, t), 2)
  179.         set the loc of sprite getAt(getAt(IFLINTMGIList, t), 1) to point(getAt(getAt(IFLINTMGIList, t), 3), getAt(getAt(IFLINTMGIList, t), 4))
  180.       end repeat
  181.       updateStage()
  182.       repeat while rollOver(47)
  183.         if the mouseDown then
  184.           set IFLLeaveIntro to 1
  185.           set IFLWhichPOS to 9
  186.           exit repeat
  187.         end if
  188.       end repeat
  189.       repeat with t = 1 to count(IFLINTMGIList)
  190.         set the castNum of sprite getAt(getAt(IFLINTMGIList, t), 1) to 86
  191.       end repeat
  192.       updateStage()
  193.   end case
  194.   if IFLLeaveIntro = 1 then
  195.     set the locH of sprite 2 to 2000
  196.     set the locH of sprite 6 to 2000
  197.     set the locH of sprite 30 to 2000
  198.     set the locH of sprite 38 to 2000
  199.     puppetSound(0)
  200.     updateStage()
  201.     unloadMember(11, 87)
  202.     updateStage()
  203.     go(1, getAt(IFLMovieNameList, IFLWhichPOS))
  204.   end if
  205. end
  206.