home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00002_startMovie.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  6.1 KB  |  42 lines
  1. on startMovie
  2.   global LineHFlag, CyMasList, CyrLineList, BackTitleSprite, FirstHLine, FirstVLine, LastVLine, BigSprite, Phone, CyrixCount, CryWhichLogo, CYRIXPHONE, CYRPhoneCount, CYRSmallLogoList, CYRIXFuture, CRYFLAGLIST, CRYSpeed, CrSlide, CySlidePosList, CyMoveXno, CYLetterList, CRSelect, CRCountContent, XCount, CRCountContentTwo
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 1)
  5.   end repeat
  6.   repeat with t = 2 to 7
  7.     set the ink of sprite t to 39
  8.   end repeat
  9.   set XCount to 10
  10.   set CRCountContent to 0
  11.   set CyMoveXno to 0
  12.   set CRSelect to 0
  13.   set CRCountContentTwo to 0
  14.   set CrSlide to 0
  15.   set CYLetterList to list([2, 0, "CYXBlack", 410, 257], [3, 0, "CYIBlack", 356, 256], [4, 0, "CYRBlack", 318, 257], [5, 0, "CYYBlack", 256, 268], [6, 0, "CYCBlack", 201, 235], [7, 0, "CYDOTBlack", 352, 210])
  16.   puppetPalette(0)
  17.   set LineHFlag to 5
  18.   set BackTitleSprite to 19
  19.   set FirstHLine to 20
  20.   set FirstVLine to 22
  21.   set LastVLine to 21
  22.   set BigSprite to 18
  23.   set Phone to 40
  24.   set CyrixCount to 0
  25.   set CryWhichLogo to 0
  26.   set CYRIXPHONE to 0
  27.   set CYRPhoneCount to 0
  28.   set CYRIXFuture to 0
  29.   set CRYSpeed to 100
  30.   set CYRSmallLogoList to list([1, ["Win", 42, 259, 140]], [2, ["WhatBuy", 45, 293, 77], ["PCBuy", 43, 222, 71], ["Win", 44, 81, 342]], [3, ["Win", 42, 106, 269]], [4, ["Win", 42, 165, 212]], [5, ["Win", 42, 259, 107]], [6, ["Win", 42, 171, 226]], [7, ["Win", 42, 78, 365]], [8, ["Win", 42, 99, 258]], [10, ["Win", 42, 93, 278]], [11, ["Win", 42, 97, 259]], [12, ["PROBUY", 43, 271, 181], ["Win", 42, 103, 290]], [13, ["Win", 42, 168, 220]], [14, ["SmallWin", 42, 226, 134]], [15, ["Win", 42, 166, 218]], [16, ["SmallWin", 42, 302, 95]])
  31.   set CRYFLAGLIST to list([603, 548, "NethCom", 536, 52], [540, 484, "EuropeCom", 441, 52], [478, 421, "SpainCom", 378, 52], [415, 360, "GermanCom", 298, 52], [353, 297, "GreeceCom", 273, 52], [292, 234, "FrenchCom", 188, 52])
  32.   set CyrLineList to list([12, "HLineOne", 415, 247, "VLINeOne", 415, 330, 417, 331, "BGOne", 415, 330, 418, 155, 1, "BLUEBOXOne", "OneText", 69, 271], [11, "HLineTwo", 359, 262, "VLINEtwo", 359, 337, 360, 339, "BGTwo", 360, 339, 469, 144, 2, "BLUEBOXTwo", "TwoText", 221, 125], [7, "HLineThree", 383, 322, "VLINEthree", 383, 367, 385, 369, "BGThree", 383, 367, 495, 219, 3, "BLUEBOXThree", "ThreeText", 269, 138], [11, "HLineFour", 332, 262, "VLINEFour", 332, 337, 333, 339, "BGFour", 332, 338, 467, 160, 4, "BLUEBOXFour", "FourText", 217, 116], [18, "HLineFive", 317, 157, "VLINEFive", 317, 285, 318, 286, "BGFive", 317, 285, 551, 107, 5, "BLUEBOXFive", "FiveText", 257, 67], [9, "HLineSix", 320, 292, "VLINESix", 320, 352, 321, 354, "BGsix", 320, 352, 472, 185, 6, "BLUEBOXSix", "SixText", 230, 130], [8, "HLineSeven", 354, 307, "VLINESeven", 354, 360, 355, 361, "BGSeven", 354, 360, 497, 214, 7, "BLUEBOXSeven", "SevenText", 272, 150], [8, "HLineEight", 340, 307, "VLINEEight", 340, 360, 341, 361, "BGEight", 340, 360, 488, 211, 8, "BLUEBOXEight", "EightText", 246, 159], [8, "HLineNine", 349, 307, "VLINEnine", 349, 360, 351, 361, "BGNine", 349, 360, 451, 211, 9, "BLUEBOXNine", "nineText", 173, 179], [5, "HLineTen", 449, 352, "VLINETen", 449, 382, 451, 384, "BGTen", 449, 382, 235, 258, 10, "BLUEBOXTen", "TenText", 354, 203], [8, "HLineEleven", 360, 307, "VLINEleven", 360, 360, 362, 361, "BGEleven", 360, 360, 487, 204, 11, "BLUEBOXEleven", "ElevenText", 251, 164], [5, "HLineTwelve", 386, 352, "VLINTwelve", 386, 382, 388, 384, "BGTwelve", 386, 382, 450, 240, 12, "BLUEBOXTwelve", "TwelveText", 175, 218], [9, "HLineThirteen", 326, 292, "VLINThirteen", 326, 352, 328, 354, "BGThirteen", 326, 352, 494, 215, 13, "BLUEBOXThirteen", "ThirteenText", 256, 149], [15, "HLineFourteen", 326, 202, "VLINFourteen", 326, 307, 328, 309, "BGFourteen", 327, 307, 496, 148, 14, "BLUEBOXFourteen", "FourteenText", 114, 103], [7, "HLinefifteen", 359, 307, "VLINEfifteen", 360, 354, 360, 354, "BGFifteen", 359, 352, 494, 215, 15, "BLUEBOXFifteen", "FifteenText", 239, 141], [17, "HLinesixteen", 321, 294, "VLINEsixteen", 321, 294, 321, 294, "BGsixteen", 321, 294, 528, 88, 16, "BLUEBOXsixteen", "sixteenText", 179, 65])
  33.   set CySlidePosList to list([3, "slideA", 2, 2, 507, 182], [4, "slideB", 1, 1, 460, 135], [5, "slideC", 1, 0, 460, 88], [6, "slideD", 3, 1, 554, 135], [7, "slideE", 0, 0, 413, 88], [8, "slideF", 0, 1, 413, 135], [9, "slideG", 2, 3, 507, 229], [10, "slideH", 2, 0, 507, 88], [11, "slideI", 0, 2, 413, 182], [12, "slideJ", 1, 2, 460, 182], [13, "slideK", 3, 2, 554, 182], [14, "slideL", 3, 0, 554, 88], [15, "slideM", 1, 3, 460, 229], [16, "slideN", 0, 3, 413, 229], [17, "slideO", 2, 1, 507, 135], [18, "slideP", 3, 3, 554, 229])
  34.   set CyMasList to list([1, "COMONE", 100, 2000, 36], [2, "COMTWO", 87, 2000, 36], [3, "COMThree", 500, 2000, 36], [4, "COMFour", 2000, 77, 36], [5, "COMFive", 2000, 77, 36], [6, "COMSix", 2000, 189, 36], [7, "COMSeven", 2000, 190, 36], [8, "COMEight", 2000, 188, 36], [9, "COMNine", 2000, 182, 36], [10, "COMTen", 2000, 192, 36], [11, "COMEleven", 2000, 321, 36], [12, "COMTwelve", 2000, 322, 36], [13, "COMThirteen", 2000, 325, 36], [14, "COMFourteen", 2000, 324, 36], [15, "COMFifteen", 2000, 320, 36], [16, "COMsixteen", 2000, 0, 36], [17, "FULLHLine", 2000, 165, 36], [18, "FULLHLine", 2000, 0, 36], [19, "FULLHLine", 2000, 0, 0], [20, "FULLHLine", 2000, 0, 0], [21, "FULLHLine", 2000, 0, 0], [22, "FULLHLine", 2000, 0, 0], [23, "FULLHLine", 2000, 0, 0], [24, "FULLHLine", 2000, 0, 0], [25, "FULLHLine", 2000, 0, 0], [26, "FULLHLine", 2000, 0, 0], [27, "FULLHLine", 2000, 0, 0], [28, "FULLHLine", 2000, 0, 0], [29, "FULLHLine", 2000, 0, 0], [30, "FULLHLine", 2000, 0, 0], [31, "FULLHLine", 2000, 0, 0], [32, "FULLHLine", 2000, 0, 0], [33, "FULLHLine", 2000, 0, 0], [34, "FULLHLine", 2000, 0, 0], [35, "Spaintext", 2000, 0, 36], [36, "chipOne", 2000, 285, 36], [37, "chiptwo", 2000, 0, 36], [38, "Flags", 450, -27, 36], [39, "future", 2000, 25, 36], [40, "phone", -400, 458, 36], [41, "OneText", 2000, 0, 36], [42, "CRBlank", 312, 237, 36], [43, "CRContentOne", 200, 200, 36], [44, "CRContentTwo", 200, 200, 36], [45, "CRContentThree", 202, 317, 36], [46, "CyLine", 87, 165, 36], [47, "CrLogoTwo", 410, 374, 36], [48, "EXITAD", 10, 442, 36])
  35. end
  36.  
  37. on AdWait mysecs
  38.   startTimer()
  39.   repeat while the timer < (mysecs * 60)
  40.   end repeat
  41. end
  42.