home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / geswaug.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-06-14  |  11.4 KB  |  78 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, GESNotebookList, GESNoteLevelOneList, GESNotefirst, GESNoteAllBlue, GESNOTETextList, GESNOTBrown, GESNOTBlue, GESNoteBuyingList, GESnotebookQuittingList
  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 GESNotefirst to 0
  19.     set GESNoteAllBlue to 0
  20.     set IFLSpriteDifference to 38
  21.     set IFLCanChange to 1
  22.     set GESPCBegin to 0
  23.     set GESDesOnStage to 0
  24.     set GESLastText to 0
  25.     set GESTempWhichPic to 0
  26.     set GESSytemUnit to 0
  27.     set GESReturnIcon to 11
  28.     set GESInsideTextIntroSprite to 17
  29.     set GESRollReturn to 0
  30.     set GESWhichXplor to 2
  31.     set GESInsThisDes to 0
  32.     set GESThisDEScription to 0
  33.     if the machineType < 200 then
  34.       if the colorDepth = 8 then
  35.         set GESNOTBrown to 47
  36.         set GESNOTBlue to 162
  37.         set GESBrown to 35
  38.         set GESGreen to 178
  39.         set GESBlack to 255
  40.       else
  41.         set GESNOTBrown to 17831
  42.         set GESNOTBlue to 6510
  43.         set GESBrown to 19846
  44.         set GESGreen to 3472
  45.         set GESBlack to 0
  46.       end if
  47.     else
  48.       set GESNOTBrown to 47
  49.       set GESNOTBlue to 162
  50.       set GESBrown to 35
  51.       set GESGreen to 178
  52.       set GESBlack to 255
  53.     end if
  54.   end if
  55.   set IFLMovieNameList to list("REFWAUG", "HANWAUG", "RESWAUG", "GROWAUG", "FAEWAUG", "GESWAUG", "GTSWAUG", "ARTWAUG", "MGIWAUG")
  56.   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])
  57.   set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  58.   if MASGESFlag = 0 then
  59.     set MASGESFlag to 1
  60.     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])
  61.     set GESnotebookQuittingList to list([38, 500, 501, 39, 39], [47, 1000, 497, 36, 39], [45, 1000, 493, 36, 39], [46, 1000, 494, 36, 39], [42, 1000, 495, 36, 0], [40, 1000, 496, 36, 0], [43, 1000, 492, 36, 39], [41, 1000, 498, 36, 39], [39, 1000, 499, 36, 39])
  62.     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])
  63.     set GESNoteBuyingList to list([317, 333, 175, 120, 0], [319, 334, 175, 120, 0], [321, 335, 175, 120, 0], [323, 336, 175, 120, 0], [325, 337, 175, 120, 0], [327, 339, 175, 120, 0], [329, 338, 175, 120, 0], [331, 340, 175, 120, 0])
  64.     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]])
  65.     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]])
  66.     set GESNoteLevelOneList to list([5, 5, 0, 0, [13, 302, 466, 169], [35, 261, 400, 400, 36], [37, 319, 397, 159]], [6, 6, 0, 0, [13, 294, 466, 169], [35, 266, 400, 400, 36], [37, 327, 397, 159]], [7, 7, 0, 0, [13, 295, 466, 169], [35, 260, 400, 400, 36]], [8, 8, 0, 0, [13, 296, 466, 169], [35, 263, 400, 400, 36], [37, 323, 397, 159]], [9, 9, 0, 0, [13, 299, 466, 169], [35, 264, 400, 400, 36], [37, 325, 397, 159]], [10, 10, 0, 0, [13, 298, 466, 169], [35, 267, 400, 400, 36], [37, 331, 397, 159]], [14, 14, 0, 0, [13, 297, 466, 169], [35, 262, 400, 400, 36], [37, 321, 397, 159]], [12, 12, 0, 0, [13, 300, 466, 169], [35, 265, 400, 400, 36], [37, 329, 397, 159]], [15, 15, 1, 1, [13, 301, 466, 169], [35, 270, 400, 400, 36], [37, 317, 397, 159]])
  67.     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]]])
  68.     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]]])
  69.     set GESNOTETextList to list([301, ["RAM,", 0, 0, [20, 304, 175, 169, 0], [21], [22]], ["processor", 0, 0, [20, 303, 175, 169, 0], [21], [22]]], [302, ["monochrome,", 0, 0, [20, 305, 175, 169, 0], [21], [22]], ["passive-matrix", 0, 0, [20, 306, 175, 169, 0], [21], [22]], ["active-matrix", 0, 0, [20, 307, 175, 169, 0], [21], [22]]], [296, ["memory_cards,", 0, 0, [20, 308, 175, 169, 0], [21], [22]], ["modems,", 0, 0, [20, 309, 175, 169, 0], [21], [22]], ["adapters,", 0, 0, [20, 310, 175, 169, 0], [21], [22]], ["hard_disks", 0, 0, [20, 311, 175, 169, 0], [21], [22]]], [298, ["tracker-balls,", 0, 0, [20, 314, 175, 169, 0], [21], [22]], ["TrackPoints", 0, 0, [20, 315, 175, 169, 0], [21], [22]], ["touch-sensitive", 0, 0, [20, 316, 175, 169, 0], [21], [22]]], [300, ["multimedia", 0, 0, [20, 313, 175, 169, 0], [21], [22]], ["PCMCIA.", 0, 0, [20, 312, 175, 169, 0], [21], [22]]])
  70.     set GESMouseWordList to list()
  71.     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], [38, 250, 53, 442, 39], [3, 83, 325, 272, 0], [44, 64, 404, 61, 39], [33, 268, 200, 200, 36], [37, 199, 2000, 200, 0], [30, 84, 400, 400, 39])
  72.     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], [3, 83, 325, 272, 0], [37, 199, 2000, 200, 0], [38, 250, 53, 442, 39], [44, 64, 404, 61, 39])
  73.     set GESNotebookList to list([4, 274, 200, 200, 8], [5, 276, 200, 200, 8], [6, 278, 200, 200, 8], [7, 280, 200, 200, 8], [8, 282, 200, 200, 8], [14, 284, 200, 200, 8], [10, 286, 200, 200, 8], [9, 288, 200, 200, 8], [12, 290, 200, 200, 8], [13, 301, 466, 169, 36], [11, 271, 200, 200, 36], [35, 270, 400, 400, 36], [38, 500, 53, 442, 39], [44, 66, 404, 61, 37], [3, 273, 325, 272, 0], [15, 293, 200, 200, 36], [37, 199, 2000, 200, 0])
  74.     set GESMasterList to list([2, 0], [3, 273, 325, 272, 0], [4, 274, 200, 200, 8], [5, 276, 200, 200, 8], [6, 278, 200, 200, 8], [7, 280, 200, 200, 8], [8, 282, 200, 200, 8], [14, 284, 200, 200, 8], [10, 286, 200, 200, 8], [9, 288, 200, 200, 8], [12, 290, 200, 200, 8], [13, 301, 466, 169, 36], [15, 293, 200, 200, 3], [16, 119, 2000, 258, 36], [17, 124, 2000, 160, 0], [18, 98, 2000, 258, 36], [19, 275, 200, 200, 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, 84, 2000, 400, 36], [31, 0], [32, 0], [33, 269, 2000, 200, 36], [11, 271, 200, 200, 36], [35, 270, 400, 400, 36], [36, 257, 2000, 160, 0], [38, 500, 53, 442, 39], [37, 317, 397, 159, 36])
  75.   end if
  76.   IFLCursorSet()
  77. end
  78.