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