home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 November / WPCNOV96.ISO / geswnov.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1996-09-17  |  12.5 KB  |  105 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, GESPrinterList, GESNoteLevelOneList, GESNotefirst, GESNoteAllBlue, GESNOTETextList, GESNOTBrown, GESNOTBlue, GESNoteBuyingList, GESnotebookQuittingList, GESHeadList, REFINTER, IFLHeadInkList, GesPrinterIntro, GESPrinterIntroList, GESPrintDotList, GESPrintLaserList, GESPrintInktList, GESPrinterTextList, GESWhichPrinterChosen, GESPrinterIntroScreenList, GTSLASTRolledover, IFLUSERPRESSEDESCKEY, GESEscList, IFLSectionImageList
  3.   repeat with t = 1 to 38
  4.     puppetSprite(t, 1)
  5.     set the stretch of sprite t to 0
  6.   end repeat
  7.   puppetSprite(48, 1)
  8.   repeat with t = 39 to 47
  9.     puppetSprite(t, 0)
  10.     set the stretch of sprite t to 0
  11.   end repeat
  12.   updateStage()
  13.   repeat with t = 39 to 47
  14.     puppetSprite(t, 1)
  15.     set the stretch of sprite t to 0
  16.   end repeat
  17.   updateStage()
  18.   if REFINTER = 1 then
  19.     set REFINTER to 0
  20.   else
  21.     set GTSLASTRolledover to 0
  22.     set IFLUSERPRESSEDESCKEY to 0
  23.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmesGES", "ALLNAmes")
  24.     set GESEscList to list(8, 28)
  25.     set REFAddWatch to 0
  26.     set IFLThisButton to 44
  27.     set IFLGettingSNameSprite to 44
  28.     set ADDADvertSprite to 48
  29.     if MASGESFlag = 0 then
  30.       set GESWhichPrinterChosen to 0
  31.       set GesPrinterIntro to 0
  32.       set GESQuitCounter to 0
  33.       set GESChooseQuit to 0
  34.       set IFLQuitsprite to 38
  35.       set IFLGoNow to 0
  36.       set ADDADCOntTwo to 0
  37.       set ADDAdCount to 0
  38.       set IFLRolledOver to 0
  39.       set GESNotefirst to 0
  40.       set GESNoteAllBlue to 0
  41.       set IFLSpriteDifference to 38
  42.       set IFLCanChange to 1
  43.       set GESPCBegin to 0
  44.       set GESDesOnStage to 0
  45.       set GESLastText to 0
  46.       set GESTempWhichPic to 0
  47.       set GESSytemUnit to 0
  48.       set GESReturnIcon to 11
  49.       set GESInsideTextIntroSprite to 17
  50.       set GESRollReturn to 0
  51.       set GESWhichXplor to 2
  52.       set GESInsThisDes to 0
  53.       set GESThisDEScription to 0
  54.       if the machineType < 200 then
  55.         if the colorDepth = 8 then
  56.           set GESNOTBrown to 162
  57.           set GESNOTBlue to 47
  58.           set GESBrown to 35
  59.           set GESGreen to 178
  60.           set GESBlack to 255
  61.         else
  62.           set GESNOTBrown to 17831
  63.           set GESNOTBlue to 6510
  64.           set GESBrown to 19846
  65.           set GESGreen to 3472
  66.           set GESBlack to 0
  67.         end if
  68.       else
  69.         set GESNOTBrown to 162
  70.         set GESNOTBlue to 47
  71.         set GESBrown to 35
  72.         set GESGreen to 178
  73.         set GESBlack to 255
  74.       end if
  75.     end if
  76.     set IFLMovieNameList to list("REFWNOV", "HANWNOV", "RESWNOV", "GROWNOV", "FAEWNOV", "GESWNOV", "GTSWNOV", "ARTWNOV", "MGIWNOV")
  77.     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])
  78.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  79.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  80.     if MASGESFlag = 0 then
  81.       set MASGESFlag to 1
  82.       set GESQuittingList to list([38, 250, 251, 39, 39])
  83.       set GESPrinterIntroList to list([4, 73], [5, 74], [6, 76])
  84.       set GESHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 28], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 28], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 28], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 28], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 28], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 28], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 28], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 28], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 28])
  85.       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])
  86.       set GESNoteBuyingList to list([317, 333, 130, 155, 0], [327, 334, 175, 120, 0], [329, 336, 100, 120, 0], [331, 335, 175, 120, 0])
  87.       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]])
  88.       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]])
  89.       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]]])
  90.       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]]])
  91.       set GESPrinterTextList to list([302, ["How it functions", 0, 0, [20, 303, 175, 160, 0, 304, 305], [21], [22]], ["Colour Printing", 0, 0, [20, 307, 200, 160, 0, 308, 309], [21, 306, 2000, 205, 0, 306, 306], [22, 306, 30, 205, 0, 306, 306]], ["Speed", 0, 0, [20, 311, 200, 160, 0, 312, 313], [21, 310, 2000, 205, 0, 306, 306], [22, 310, 30, 205, 0, 310, 310]], ["Resolution", 0, 0, [20, 315, 241, 160, 0, 316, 319], [21, 314, 2000, 205, 0, 314, 314], [22, 314, 30, 205, 0, 314, 314]], ["Advantages", 0, 0, [20, 320, 200, 160, 0, 321, 322], [21], [22]], ["Size", 0, 0, [20, 323, 210, 160, 0, 323, 323], [21], [22]], ["Paper Handling", 0, 0, [20, 324, 125, 160, 0, 324, 324], [21], [22]], ["Intro Screen", 0, 0, [20, 324, 125, 160, 0, 324, 324], [21], [22]]])
  92.       set GESMouseWordList to list()
  93.       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])
  94.       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])
  95.       set GESPrinterList to list([4, 274, 200, 200, 8], [5, 276, 200, 200, 8], [6, 278, 200, 200, 8], [7, 286, 2000, 200, 36], [13, 301, 115, 340, 36], [11, 271, 200, 200, 36], [30, 270, 400, 400, 36], [37, 317, 397, 159, 36], [38, 250, 53, 442, 39], [44, 64, 404, 61, 39], [20, 303, 2000, 61, 0], [22, 303, 2000, 61, 0])
  96.       set GESPrintDotList to list([4, 286, 2000, 271, 8], [5, 280, 578, 414, 36], [6, 284, 577, 365, 36], [13, 302, 504, 175, 36], [7, 286, 306, 271, 8], [37, 327, 397, 159, 36])
  97.       set GESPrintLaserList to list([4, 276, 577, 365, 36], [5, 280, 578, 414, 36], [6, 288, 2000, 320, 8], [13, 302, 504, 175, 36], [7, 288, 240, 320, 8], [37, 331, 397, 159, 36])
  98.       set GESPrintInktList to list([4, 276, 577, 365, 36], [5, 287, 2000, 276, 8], [6, 284, 578, 414, 36], [13, 302, 504, 175, 36], [7, 287, 274, 276, 8], [37, 329, 397, 159, 36])
  99.       set GESPrinterIntroScreenList to list([3, 273, 325, 272, 0], [4, 274, 320, 200, 36], [5, 278, 320, 200, 36], [6, 282, 320, 200, 36], [7, 286, 2000, 200, 36], [13, 301, 115, 340, 36], [16, 119, 2000, 258, 36], [17, 124, 2000, 160, 0], [18, 98, 2000, 258, 36], [20, 124, 2000, 160, 0], [21, 124, 2000, 160, 0], [22, 124, 2000, 160, 0], [23, 223, 2000, 160, 0], [31, 345, 2000, 400, 39], [33, 269, 2000, 200, 36], [11, 271, 200, 200, 36], [30, 270, 400, 400, 36], [36, 257, 2000, 160, 0], [38, 250, 53, 442, 39], [37, 317, 397, 159, 36])
  100.       set GESMasterList to list([2, 0], [3, 273, 325, 272, 0], [4, 274, 320, 200, 36], [5, 278, 320, 200, 36], [6, 282, 320, 200, 36], [7, 286, 2000, 200, 36], [8, 0], [14, 0], [10, 0], [9, 0], [12, 0], [13, 301, 115, 340, 36], [15, 0], [16, 119, 2000, 258, 36], [17, 124, 2000, 160, 0], [18, 98, 2000, 258, 36], [19, 0], [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], [35, 0], [31, 345, 2000, 400, 39], [32, 0], [33, 269, 2000, 200, 36], [11, 271, 200, 200, 36], [30, 270, 400, 400, 36], [36, 257, 2000, 160, 0], [38, 250, 53, 442, 39], [37, 317, 397, 159, 36])
  101.     end if
  102.   end if
  103.   IFLCursorSet()
  104. end
  105.