home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-05-22  |  6.5 KB  |  77 lines
  1. on startMovie
  2.   global IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, ADDAdCount, ADDADvertSprite, ADDADCOntTwo, IFLButtonList, IFLCDXNameSprite, 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, CDXABBList, CDXfieldnamesList, CDXresultlist, CDpageselect, CDrecordsfound, CDXfieldlengthlist, CDXResFieldsList, CDXLastResSprite, CDXFirstResSprite, CDXSelected, CDXSomething, CDXWordsearchdata, CDXDuringSearch, CDXtypenamesList, CDXHelpOnStage, DriveLtr, CDXIndexNAme
  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 IFLUSERPRESSEDESCKEY to 0
  22.     set REFAddWatch to 0
  23.     set GTSLASTRolledover to 0
  24.     set CDXSub to 1
  25.     set CDXDuringSearch to 0
  26.     set CDXDrpMenu to 17
  27.     set CDXLeaveThis to 0
  28.     set CDXSearchBegin to 0
  29.     set CDXwhichLine to 0
  30.     set CDXStrip to 16
  31.     set CDXSearchSprite to 21
  32.     set CDpageselect to 0
  33.     set CDrecordsfound to 0
  34.     set CDXFirstResSprite to 24
  35.     set CDXLastResSprite to 29
  36.     set CDXSelected to 0
  37.     set CDXSomething to 0
  38.     set CDXWordsearchdata to 0
  39.     set CDXHelpOnStage to 0
  40.     set IFLSectionImageList to list("ALLNAmesGTS", "ALLNAmesFAE", "ALLNAmesCDX", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes", "ALLNAmes")
  41.     set CDXEscList to list(3, 30)
  42.     set IFLCDXNameSprite to 42
  43.     set IFLSpriteDifference to 38
  44.     set IFLQuitsprite to 38
  45.     set CDXQuitCounter to 0
  46.     set CDXChooseQuit to 0
  47.     set IFLGoNow to 0
  48.     set ADDADvertSprite to 48
  49.     set IFLRolledOver to 0
  50.     set ADDADCOntTwo to 0
  51.     set ADDAdCount to 0
  52.     set IFLCanChange to 1
  53.     set CDXProceed to 0
  54.     set IFLHeadInkList to list([39, 36], [40, 36], [41, 36], [42, 36], [43, 36], [44, 36], [45, 36], [46, 36], [47, 36], [48, 0])
  55.     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])
  56.     set CDXQuittingList to list([38, 86, 87, 36, 36])
  57.     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])
  58.     set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  59.     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"])
  60.     set CDXWhichTypesList to list()
  61.     set CDXABBList to list([["resources", "RESO"], ["games", "GAME"], ["multimedia", "MULT"], ["getting started", "GETS"], ["focus on", "FOCO"], ["advert", "ADVT"], ["arts: music", "ARTM"], ["arts: Images", "ARTI"], ["arts: Video", "ARTV"], ["arts: Literature", "ARTL"]], [["education", "EDU"], ["graphics app", "GAP"], ["business app", "BUS"], ["music app", "MAP"], ["graphic file", "GRF"], ["midi file", "MID"], ["Literature", "LIT"], ["Font", "FNT"], ["screen saver", "SCR"], ["utility", "UTI"], ["game", "GAM"], ["advert", "ADV"]], [["advert", "ADV"], ["demo", "DEM"], ["shareware", "SHA"], ["freeware", "FRE"], ["licensed product", "LIC"]], [["sep.96", "33847"], ["oct.96", "oct.96"], ["nov.96", "nov.96"], ["dec.96", "dec.96"]])
  62.     set CDXfieldnamesList to list("CD_PROD", "CD_DESC", "CD_CAT", "CD_STATUS", "CD_SECTION", "CD_ISSUE")
  63.     set CDXtypenamesList to list(["CD_CAT", "Category"], ["CD_STATUS", "Status"], ["CD_SECTION", "Section"], ["CD_ISSUE", "Issue"])
  64.     set CDXresultlist to list()
  65.     set CDXfieldlengthlist to list(20, 36, 20, 16, 16, 7)
  66.     set CDXResFieldsList to list([24, 21, 145, 36, "CDRESPROD"], [25, 171, 145, 36, "CDRESDesc"], [26, 356, 145, 36, "CDRESsection"], [27, 446, 145, 36, "CDRESCat"], [28, 517, 145, 36, "CDRESstatus"], [29, 601, 145, 36, "CDRESissue"])
  67.     set the keyDownScript to "CDXSearchReturn"
  68.     dbopensession()
  69.     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, 0], [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])
  70.     set CDXMasterList to list([2, 101, 325, 271, 0], [3, 84, 325, 271, 36], [4, 0], [5, 0], [6, 0], [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])
  71.   end if
  72.   if the machineType > 200 then
  73.     win_initialise()
  74.   end if
  75.   IFLCursorSet()
  76. end
  77.