home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / intwjan.dxr / 00008_IFLDisplay.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  6.9 KB  |  179 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.     47:
  149.       IFLCursorSet()
  150.       repeat with t = 1 to count(IFLINTMGIList)
  151.         set the castNum of sprite getAt(getAt(IFLINTMGIList, t), 1) to the number of member getAt(getAt(IFLINTMGIList, t), 2)
  152.         set the loc of sprite getAt(getAt(IFLINTMGIList, t), 1) to point(getAt(getAt(IFLINTMGIList, t), 3), getAt(getAt(IFLINTMGIList, t), 4))
  153.       end repeat
  154.       updateStage()
  155.       repeat while rollOver(47)
  156.         if the mouseDown then
  157.           set IFLLeaveIntro to 1
  158.           set IFLWhichPOS to 9
  159.           exit repeat
  160.         end if
  161.       end repeat
  162.       repeat with t = 1 to count(IFLINTMGIList)
  163.         set the castNum of sprite getAt(getAt(IFLINTMGIList, t), 1) to 86
  164.       end repeat
  165.       updateStage()
  166.   end case
  167.   if IFLLeaveIntro = 1 then
  168.     set the locH of sprite 2 to 1000
  169.     set the locH of sprite 6 to 1000
  170.     puppetSound(0)
  171.     updateStage()
  172.     put "the freeBlock", the freeBlock
  173.     unloadMember(member 14, 141)
  174.     updateStage()
  175.     put "the freeBlock2", the freeBlock
  176.     go(1, getAt(IFLMovieNameList, IFLWhichPOS))
  177.   end if
  178. end
  179.