home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-10-13  |  9.1 KB  |  91 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLINXNameSprite, CDXMasterList, MASCDXFlag, IFLQuitsprite, CDXQuittingList, CDXQuitCounter, CDXChooseQuit, WaitFactor, IFLGoNow, IFLMovieNameList, IFLWhichcursorList, addlist, addPallist, ADDMouse, ADDThisNum, ADDKindList, REFAddWatch, CDXHeadList, REFINTER, IFLHeadInkList, IFLUSERPRESSEDESCKEY, CDXEscList, IFLSectionImageList, GTSLASTRolledover, CDXProceed, CDXMasSearchList, CDXDrpMenu, CDXTopMenuList, CDXLeaveThis, CDXStrip, CDXwhichLine, CDXSearchBegin, CDXSearchSprite, CDXSub, CDXWhichTypesList, CDXfieldnamesList, CDXresultlist, CDpageselect, CDrecordsfound, CDXfieldlengthlist, CDXResFieldsList, CDXLastResSprite, CDXFirstResSprite, CDXSelected, CDXSomething, CDXWordsearchdata, CDXDuringSearch, CDXtypenamesList, CDXHelpOnStage, PRODTopMenuList, PRODMasSearchList, CDXWhichIndex, WhichInxTopMenuList, WhichINXtypenamesList, WhichINXfieldnamesList, PRODfieldnamesList, PRODtypenamesList, WhichINXfieldlengthlist, PRODfieldlengthlist, WhichINXResFieldsList, PRODResFieldsList, ADMasSearchList, REFChoosen, DriveLtr, INXADvertNo, CDXIndexNAme, MGIIndexNAme
  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 the keyDownScript to "CDXSearchReturn"
  20.     set REFINTER to 0
  21.   else
  22.     set CDXWhichIndex to 0
  23.     set IFLUSERPRESSEDESCKEY to 0
  24.     set REFAddWatch to 1
  25.     set ADDThisNum to 0
  26.     set GTSLASTRolledover to 0
  27.     set REFChoosen to 0
  28.     set CDXSub to 1
  29.     set CDXDuringSearch to 0
  30.     set CDXDrpMenu to 17
  31.     set CDXLeaveThis to 0
  32.     set CDXSearchBegin to 0
  33.     set CDXwhichLine to 0
  34.     set CDXStrip to 16
  35.     set CDXSearchSprite to 21
  36.     set CDpageselect to 0
  37.     set CDrecordsfound to 0
  38.     set CDXFirstResSprite to 24
  39.     set CDXLastResSprite to 29
  40.     set CDXSelected to 0
  41.     set CDXSomething to 0
  42.     set CDXWordsearchdata to 0
  43.     set CDXHelpOnStage to 0
  44.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmesCDX", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  45.     set CDXEscList to list(3, 30)
  46.     set IFLINXNameSprite to 39
  47.     set IFLSpriteDifference to 38
  48.     set IFLQuitsprite to 38
  49.     set CDXQuitCounter to 0
  50.     set CDXChooseQuit to 0
  51.     set IFLGoNow to 0
  52.     set ADDADvertSprite to 48
  53.     set IFLRolledOver to 0
  54.     set ADDADCOntTwo to 0
  55.     set ADDAdCount to 0
  56.     set IFLCanChange to 1
  57.     set CDXProceed to 0
  58.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  59.     set IFLButtonList to list([39, 1012, 653, 150, 172, 170, 117, 327], [40, 42, 404, 150, 46, 44, 117, 327], [41, 1010, 653, 106, 46, 44, 117, 327], [42, 1003, 404, 105, 181, 179, 117, 327], [43, 1008, 164, 61, 184, 182, 117, 327], [44, 1017, 404, 61, 81, 79, 117, 327], [45, 1001, 164, 105, 190, 188, 117, 327], [46, 1015, 164, 150, 67, 65, 117, 327], [47, 1014, 653, 61, 196, 194, 117, 327])
  60.     set CDXQuittingList to list([38, 86, 87, 36, 39])
  61.     set CDXHeadList to list(["REFBUT", 247, 177, 0, 0, "REFAllNames", 30], ["HANBUT", 251, 177, 0, 0, "HANAllNames", 30], ["RESBUT", 239, 177, 0, 0, "RESAllNames", 30], ["GROBUT", 251, 177, 0, 0, "GROAllNames", 30], ["FAEBUT", 251, 177, 0, 0, "FAEAllNames", 30], ["GESBUT", 237, 177, 0, 0, "GESAllNames", 30], ["GTSBUT", 251, 177, 0, 0, "GTSAllNames", 30], ["ARTBUT", 251, 177, 0, 0, "ARTAllNames", 30], ["MGIBUT", 236, 177, 0, 0, "MGIAllNames", 30])
  62.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  63.     set CDXTopMenuList to list([12, 4, "DRPSECTION", "DRPSECTIONADD", 247, 53, 251, 51, "DRPSEctionBox", 362, 62, 2000, 2000, "CD_SECTION"], [13, 5, "DRPCategory", "DRPCategoryADD", 354, 52, 357, 51, "DRPCategoryBox", 467, 62, 2000, 2000, "CD_CAT"], [14, 6, "DRPStatus", "DRPStatusADD", 470, 52, 474, 51, "DRPStatusBox", 584, 62, 2000, 2000, "CD_STATUS"], [15, 7, "DRPIssue", "DRPIssueADD", 567, 52, 565, 51, "DRPIssueBox", 675, 62, 2000, 2000, "CD_ISSUE"])
  64.     set PRODTopMenuList to list([12, 4, "DRPPRODSECTION", "DRPSECTIONADD", 241, 53, 243, 51, "DRPPRODSEctionBox", 354, 62, 2000, 2000, "MG_SECTION"], [13, 5, "DRPPRODCategory", "DRPCategoryADD", 348, 52, 349, 51, "DRPPRODCategoryBox", 459, 62, 2000, 2000, "MG_CAT"], [14, 6, "DRPPRODRATEING", "DRPStatusADD", 464, 52, 466, 51, "DRPPRODRATEINGBox", 576, 62, 2000, 2000, "MG_RATE"], [15, 7, "DRPPRODIssue", "DRPIssueADD", 567, 52, 565, 51, "DRPPRODIssueBox", 675, 62, 2000, 2000, "MG_ISSUE"])
  65.     set WhichInxTopMenuList to list()
  66.     set CDXWhichTypesList to list()
  67.     set CDXfieldnamesList to list("CD_PROD", "CD_DESC", "CD_CAT", "CD_STATUS", "CD_SECTION", "CD_ISSUE")
  68.     set PRODfieldnamesList to list("MG_PROD", "MG_DESC", "MG_CAT", "MG_RATE", "MG_SECTION", "MG_ISSUE")
  69.     set WhichINXfieldnamesList to list()
  70.     set CDXtypenamesList to list(["CD_CAT", "Category"], ["CD_STATUS", "Status"], ["CD_SECTION", "Section"], ["CD_ISSUE", "Issue"])
  71.     set PRODtypenamesList to list(["MG_CAT", "Category"], ["MG_RATE", "Rating"], ["MG_SECTION", "Section"], ["MG_ISSUE", "Issue"])
  72.     set WhichINXtypenamesList to list()
  73.     set CDXresultlist to list()
  74.     set CDXfieldlengthlist to list(20, 36, 23, 16, 16, 7)
  75.     set PRODfieldlengthlist to list(20, 36, 17, 16, 16, 7)
  76.     set WhichINXfieldlengthlist to list()
  77.     set CDXResFieldsList to list([24, 21, 145, 36, "CDRESPROD"], [25, 171, 145, 36, "CDRESDesc"], [26, 349, 145, 36, "CDRESsection"], [27, 439, 145, 36, "CDRESCat"], [28, 512, 145, 36, "CDRESstatus"], [29, 596, 145, 36, "CDRESissue"])
  78.     set PRODResFieldsList to list([24, 21, 145, 36, "MGRESPROD"], [25, 171, 145, 36, "MGRESDesc"], [26, 356, 145, 36, "MGRESsection"], [27, 439, 145, 36, "MGRESCat"], [28, 526, 145, 36, "MGRESRate"], [29, 596, 145, 36, "MGRESissue"])
  79.     set WhichINXResFieldsList to list()
  80.     set the keyDownScript to "CDXSearchReturn"
  81.     set CDXMasSearchList to list([2, 101, 325, 271, 0], [3, 102, 325, 271, 36], [4, 115, 2000, 2000, 36], [5, 115, 2000, 2000, 36], [6, 115, 2000, 2000, 36], [7, 115, 2000, 2000, 36], [8, 81, 600, 400, 36], [9, 123, 31, 77, 0], [10, 74, 320, 400, 36], [11, 0], [12, 103, 303, 43, 0], [13, 105, 416, 43, 0], [14, 107, 520, 43, 0], [15, 109, 602, 43, 0], [16, 119, 2000, 2000, 0], [17, 111, 2000, 2000, 36], [36, 147, 2000, 2000, 36], [19, 0], [20, 145, 594, 400, 36], [21, 138, 194, 38, 36], [22, 0], [23, 0], [24, 124, 2000, 2000, 0], [25, 125, 2000, 2000, 0], [26, 126, 2000, 2000, 0], [27, 127, 2000, 2000, 0], [28, 128, 2000, 2000, 0], [29, 129, 2000, 2000, 0], [30, 137, 2000, 2000, 36], [31, 132, 2000, 2000, 36], [32, 131, 2000, 2000, 36], [33, 133, 2000, 2000, 36], [34, 135, 2000, 2000, 0], [35, 136, 2000, 2000, 36], [18, 0], [37, 0], [38, 86, 161, 432, 36])
  82.     set PRODMasSearchList to list([2, 101, 325, 271, 0], [3, 161, 325, 271, 36], [4, 115, 2000, 2000, 36], [5, 115, 2000, 2000, 36], [6, 115, 2000, 2000, 36], [7, 115, 2000, 2000, 36], [8, 81, 600, 400, 36], [9, 123, 31, 77, 0], [10, 160, 320, 400, 36], [11, 0], [12, 162, 295, 43, 0], [13, 164, 408, 43, 0], [14, 166, 516, 43, 0], [15, 168, 602, 43, 0], [16, 119, 2000, 2000, 0], [17, 111, 2000, 2000, 36], [36, 147, 2000, 2000, 36], [19, 0], [20, 145, 594, 400, 36], [21, 138, 194, 38, 36], [22, 0], [23, 0], [24, 124, 2000, 2000, 0], [25, 125, 2000, 2000, 0], [26, 126, 2000, 2000, 0], [27, 127, 2000, 2000, 0], [28, 128, 2000, 2000, 0], [29, 129, 2000, 2000, 0], [30, 137, 2000, 2000, 36], [31, 132, 2000, 2000, 36], [32, 131, 2000, 2000, 36], [33, 133, 2000, 2000, 36], [34, 135, 2000, 2000, 0], [35, 136, 2000, 2000, 36], [18, 0], [37, 0], [38, 86, 161, 432, 36])
  83.     set ADMasSearchList to list([2, 101, 325, 271, 0], [3, 200, 325, 271, 36], [4, 201, 18, 350, 36], [5, 115, 2000, 2000, 36], [6, 115, 2000, 2000, 36], [7, 115, 2000, 2000, 36], [8, 115, 2000, 2000, 36], [9, 115, 2000, 2000, 0], [10, 203, 140, 120, 36], [11, 205, 140, 160, 36], [12, 207, 140, 200, 36], [13, 209, 140, 240, 36], [14, 0], [15, 115, 2000, 2000, 0], [16, 119, 2000, 2000, 0], [17, 111, 2000, 2000, 36], [36, 147, 2000, 2000, 36], [19, 0], [20, 115, 2000, 2000, 36], [21, 115, 2000, 2000, 36], [22, 0], [23, 0], [24, 124, 2000, 2000, 0], [25, 125, 2000, 2000, 0], [26, 126, 2000, 2000, 0], [27, 127, 2000, 2000, 0], [28, 128, 2000, 2000, 0], [29, 129, 2000, 2000, 0], [30, 137, 2000, 2000, 36], [31, 132, 2000, 2000, 36], [32, 131, 2000, 2000, 36], [33, 133, 2000, 2000, 36], [34, 135, 2000, 2000, 0], [35, 136, 2000, 2000, 36], [18, 0], [37, 0], [38, 86, 161, 432, 36])
  84.     set CDXMasterList to list([2, 101, 325, 271, 0], [3, 84, 325, 271, 36], [4, 68, 433, 231, 36], [5, 70, 381, 283, 36], [6, 72, 433, 339, 36], [7, 0], [8, 0], [9, 0], [10, 0], [11, 0], [12, 0], [13, 0], [14, 0], [15, 0], [16, 0], [17, 0], [18, 0], [19, 0], [20, 0], [21, 0], [22, 0], [23, 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, 0], [37, 0], [38, 86, 161, 432, 36])
  85.   end if
  86.   if the machineType > 200 then
  87.     win_initialise()
  88.   end if
  89.   IFLCursorSet()
  90. end
  91.