home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GESFINJ.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-05-15  |  8.2 KB  |  65 lines
  1. on startMovie
  2.   global IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, IFLGettingSNameSprite, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLArtsNameSprite, GESMasterList, GESPCLevelOneList, GESPCBegin, GESPCTextList, GESMouseWordList, GESDesOnStage, GESLastText, GESTempWhichPic, GESSytemUnit, GESPCList, GESInsidSysList, GESReturnIcon, GESInsideLevelOneList, GESInsideTextIntroSprite, GESPCTextListOne, GESPCTextListTwo, GESRollReturn, GESWhichXplor, GESInsThisDes, GESBrown, GESGreen, GESBlack, MASGESFlag, GESThisDEScription, GESQuittingList, GESQuitCounter, GESChooseQuit, IFLQuitsprite, GESBuyingList, WaitFactor, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, IFLThisButton, addlist, addPallist, ADDThisNum, ADDKindList, REFAddWatch
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   set REFAddWatch to 0
  7.   set IFLThisButton to 44
  8.   set IFLGettingSNameSprite to 44
  9.   set ADDADvertSprite to 48
  10.   if MASGESFlag = 0 then
  11.     set GESQuitCounter to 0
  12.     set GESChooseQuit to 0
  13.     set IFLQuitsprite to 38
  14.     set IFLGoNow to 0
  15.     set ADDADCOntTwo to 0
  16.     set ADDAdCount to 0
  17.     set IFLRolledOver to 0
  18.     set IFLSpriteDifference to 38
  19.     set IFLCanChange to 1
  20.     set GESPCBegin to 0
  21.     set GESDesOnStage to 0
  22.     set GESLastText to 0
  23.     set GESTempWhichPic to 0
  24.     set GESSytemUnit to 0
  25.     set GESReturnIcon to 11
  26.     set GESInsideTextIntroSprite to 17
  27.     set GESRollReturn to 0
  28.     set GESWhichXplor to 0
  29.     set GESInsThisDes to 0
  30.     set GESThisDEScription to 0
  31.     if the machineType < 200 then
  32.       if the colorDepth = 8 then
  33.         set GESBrown to 35
  34.         set GESGreen to 105
  35.         set GESBlack to 255
  36.       else
  37.         set GESBrown to 19648
  38.         set GESGreen to 12672
  39.         set GESBlack to 0
  40.       end if
  41.     else
  42.       set GESBrown to 35
  43.       set GESGreen to 105
  44.       set GESBlack to 255
  45.     end if
  46.   end if
  47.   set IFLMovieNameList to list("REFFINJ", "CCLFINJ", "RESFINJ", "GROFINJ", "FAEFINJ", "GESFINJ", "GTSFINJ", "ARTSFINJ", "MGIFINJ")
  48.   set IFLButtonList to list([39, 1012, 653, 150, 172, 170, 117, 327], [40, 1006, 404, 150, 175, 173, 117, 327], [41, 1009, 653, 106, 178, 176, 117, 327], [42, 1003, 404, 105, 181, 179, 117, 327], [43, 1008, 164, 61, 184, 182, 117, 327], [44, 76, 404, 61, 81, 79, 117, 327], [45, 1001, 164, 105, 190, 188, 117, 327], [46, 1015, 164, 150, 193, 191, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  49.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  50.   if MASGESFlag = 0 then
  51.     set MASGESFlag to 1
  52.     set GESQuittingList to list([38, 250, 251, 39, 39], [47, 1000, 242, 36, 39], [45, 1000, 243, 36, 39], [46, 1000, 244, 36, 39], [42, 1000, 245, 36, 36], [40, 1000, 246, 36, 36], [43, 1000, 247, 36, 39], [41, 1000, 248, 36, 39], [39, 1000, 249, 36, 39])
  53.     set GESBuyingList to list([199, 226, 105, 130, 0], [201, 224, 28, 78, 0], [203, 227, 96, 135, 0], [205, 223, 115, 135, 0], [219, 228, 92, 135, 0], [221, 225, 101, 125, 0])
  54.     set GESPCLevelOneList to list([4, 9, 1, 0, [11, 100, 239, 258], [10, 131, 430, 164], [37, 205, 393, 159]], [5, 5, 1, 0, [11, 98, 239, 258], [10, 135, 422, 164], [37, 201, 393, 159]], [6, 6, 1, 0, [11, 97, 239, 258], [10, 141, 451, 164], [12, 188, 422, 400]], [7, 7, 1, 0, [11, 99, 239, 258], [10, 122, 393, 160]], [8, 8, 1, 0, [11, 101, 239, 258], [10, 127, 387, 164]])
  55.     set GESInsideLevelOneList to list([5, 8, 0, 0, [10, 176, 430, 164], [37, 219, 393, 159]], [9, 7, 0, 0, [10, 171, 416, 164], [37, 203, 393, 159]], [7, 2, 0, 0, [10, 148, 433, 164], [37, 199, 393, 159]], [8, 3, 0, 0, [10, 153, 421, 164]], [6, 4, 0, 0, [10, 157, 436, 164]], [13, 9, 0, 0, [10, 180, 436, 164]], [14, 6, 0, 0, [10, 166, 435, 164]], [15, 1, 0, 0, [10, 144, 438, 164], [37, 221, 393, 159]], [16, 5, 0, 0, [10, 162, 417, 164]], [20, 10, 0, 0, [10, 183, 449, 164]])
  56.     set GESPCTextListOne to list([122, ["input", 0, 0, [20, 123, 128, 160, 0], [21, 193, 500, 350, 36], [22, 194, 500, 350, 36, 1]], ["layouts", 0, 0, [20, 125, 128, 160, 0], [21, 190, 500, 350, 36], [22, 191, 500, 350, 36, 1]], ["types,", 0, 0, [20, 124, 116, 160, 0], [21], [22]], ["interchangeable.", 0, 0, [20, 126, 87, 160, 0], [21, 196, 500, 350, 36], [22, 197, 500, 350, 36, 1]]], [127, ["input", 0, 0, [20, 123, 128, 160, 0], [21, 193, 500, 350, 36], [22, 194, 500, 350, 36, 1]], ["types", 0, 0, [20, 128, 87, 160, 0], [21], [22]], ["ball", 0, 0, [20, 129, 87, 160, 0], [21], [22]], ["connect", 0, 0, [20, 130, 107, 160, 0], [21, 207, 500, 350, 36], [22, 208, 500, 350, 36, 1]]], [131, ["simplest", 0, 0, [20, 132, 75, 160, 0], [21], [22]], ["soundcard", 0, 0, [20, 133, 75, 160, 0], [21], [22]], ["sophisticated", 0, 0, [20, 134, 95, 160, 0], [21], [22]]], [135, ["frequency", 0, 0, [20, 136, 95, 160, 0], [21, 216, 500, 350, 36], [22, 217, 500, 350, 36, 1]], ["size,", 0, 0, [20, 137, 95, 160, 0], [21], [22]], ["resolution", 0, 0, [20, 138, 104, 160, 0], [21, 213, 500, 350, 36], [22, 214, 500, 350, 36, 1]], ["output", 0, 0, [20, 139, 113, 160, 0], [21, 210, 500, 350, 36], [22, 211, 500, 350, 36, 1]], ["graphics", 0, 0, [20, 140, 113, 160, 0], [21], [22]], ["VGA.", 0, 0, [20, 178, 104, 160, 0], [21], [22]]])
  57.     set GESPCTextListTwo to list([144, ["types,", 0, 0, [20, 145, 128, 160, 0], [21], [22]], ["store", 0, 0, [20, 146, 106, 160, 0], [21], [22]], ["Mb", 0, 0, [20, 147, 96, 160, 0], [21], [22]]], [148, ["CD-Rom", 0, 0, [20, 149, 157, 160, 0], [21], [22]], ["discs.", 0, 0, [20, 150, 108, 160, 0], [21], [22]], ["performance", 0, 0, [20, 152, 106, 160, 0], [21], [22]], ["speed", 0, 0, [20, 151, 116, 160, 0], [21], [22]]], [153, ["floppy", 0, 0, [20, 154, 131, 160, 0], [21], [22]], ["Historically", 0, 0, [20, 155, 108, 160, 0], [21], [22]], ["Nowadays", 0, 0, [20, 156, 128, 160, 0], [21], [22]]], [157, ["choice", 0, 0, [20, 158, 92, 160, 0], [21], [22]], ["brain", 0, 0, [20, 159, 96, 160, 0], [21], [22]], ["486", 0, 0, [20, 160, 132, 160, 0], [21], [22]], ["Pentium", 0, 0, [20, 161, 90, 160, 0], [21], [22]]], [162, ["identifiable", 0, 0, [20, 163, 140, 160, 0], [21], [22]], ["special", 0, 0, [20, 164, 142, 160, 0], [21], [22]], ["design", 0, 0, [20, 165, 107, 160, 0], [21], [22]]], [166, ["Ram", 0, 0, [20, 167, 178, 160, 0], [21], [22]], ["working", 0, 0, [20, 168, 100, 160, 0], [21], [22]], ["Fitting", 0, 0, [20, 169, 107, 160, 0], [21], [22]], ["slow", 0, 0, [20, 170, 103, 160, 0], [21], [22]]], [171, ["quality", 0, 0, [20, 172, 104, 160, 0], [21], [22]], ["connectors", 0, 0, [20, 173, 99, 160, 0], [21], [22]], ["standard", 0, 0, [20, 174, 128, 160, 0], [21], [22]], ["different", 0, 0, [20, 175, 108, 160, 0], [21], [22]]], [176, ["controller,", 0, 0, [20, 177, 97, 160, 0], [21], [22]], ["resolution", 0, 0, [20, 138, 125, 160, 0], [21], [22]], ["VGA", 0, 0, [20, 178, 104, 160, 0], [21], [22]], ["memory", 0, 0, [20, 179, 110, 160, 0], [21], [22]]], [180, ["cards", 0, 0, [20, 181, 143, 160, 0], [21], [22]], ["PCI.", 0, 0, [20, 182, 123, 160, 0], [21], [22]]], [183, ["faster.", 0, 0, [20, 184, 107, 160, 0], [21], [22]], ["kilobytes", 0, 0, [20, 185, 106, 160, 0], [21], [22]]])
  58.     set GESMouseWordList to list()
  59.     set GESPCList to list([4, 92, 239, 258, 8], [5, 86, 239, 258, 8], [6, 96, 239, 258, 8], [7, 88, 239, 258, 8], [8, 90, 239, 258, 8], [9, 94, 239, 258, 8], [10, 121, 428, 164, 36], [11, 94, 2000, 258, 39], [12, 188, 422, 400, 36])
  60.     set GESInsidSysList to list([4, 102, 220, 280, 8], [16, 103, 220, 280, 8], [5, 105, 220, 280, 8], [8, 107, 220, 280, 8], [7, 109, 220, 280, 8], [10, 142, 453, 164, 36], [11, 186, 500, 380, 36], [6, 111, 220, 280, 8], [13, 113, 220, 280, 8], [9, 115, 220, 280, 8], [14, 117, 220, 280, 8], [15, 119, 220, 280, 8], [17, 143, 537, 343, 36])
  61.     set GESMasterList to list([2, 84, 325, 272, 0], [3, 83, 325, 272, 0], [4, 92, 239, 258, 36], [5, 86, 239, 258, 36], [6, 96, 239, 258, 36], [7, 88, 239, 258, 36], [8, 90, 239, 258, 36], [11, 98, 2000, 258, 39], [10, 121, 428, 164, 36], [9, 94, 239, 258, 36], [12, 98, 2000, 258, 36], [13, 102, 2000, 258, 36], [14, 103, 2000, 258, 36], [15, 117, 2000, 258, 36], [16, 119, 2000, 258, 36], [17, 98, 2000, 258, 36], [18, 98, 2000, 258, 36], [19, 98, 2000, 258, 36], [20, 124, 2000, 160, 0], [21, 124, 2000, 160, 0], [22, 124, 2000, 160, 0], [23, 223, 2000, 160, 0], [24, 0], [25, 0], [26, 0], [27, 0], [28, 0], [29, 0], [30, 0], [31, 0], [32, 0], [33, 0], [34, 0], [35, 0], [36, 257, 2000, 160, 0], [38, 250, 53, 442, 39], [37, 124, 2000, 160, 36])
  62.   end if
  63.   IFLCursorSet()
  64. end
  65.