home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00001_StartMovie.ls next >
Encoding:
Text File  |  1997-06-25  |  4.9 KB  |  76 lines
  1. on startMovie
  2.   global IntLocV, IntHighLightSprite, SecTLeave, CDXWhichInputList, CDXDrpMenuList, CDXSub, CDXNameDrpList, CDXSearchButtonSprite, CDXNameSelList, CDXfieldnamesList, CDXSelectedWord, CDXDatafield, CDXboxnum, CDXRememberlist, CDXRememberNamelist, CDXRememberSeltextList, CDXTwoRememberSeltextList, CDXTwoRememberNamelist, CDXTwoRememberlist, CDXOperatorList, CDXpageselect, CDXrecordsfound, CDXresultlist, CDXResFieldsList, CDXSearchMasterList, CDXOptionSprite, CDXTitle, CDProdList, CDDescList, CDSectionList, CDCatlist, CDStatusList, CDIssueList, CDXwhichLine, DriveLtr, CDXNothingfound, CDXTable, CDXDB
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 0)
  5.   end repeat
  6.   updateStage()
  7.   repeat with t = 1 to 48
  8.     puppetSprite(t, 1)
  9.   end repeat
  10.   repeat with t = 25 to 31
  11.     set the locH of sprite t to 2000
  12.   end repeat
  13.   cursor(4)
  14.   updateStage()
  15.   set CDXwhichLine to 0
  16.   set CDXSub to 1
  17.   set CDXboxnum to 0
  18.   set CDXSearchButtonSprite to 43
  19.   set CDXOptionSprite to 2
  20.   set CDXTitle to 44
  21.   set CDXSelectedWord to EMPTY
  22.   set CDXDatafield to EMPTY
  23.   set CDXNothingfound to 0
  24.   set CDXpageselect to 0
  25.   set CDXrecordsfound to 0
  26.   set CDXRememberlist to list()
  27.   set CDXRememberNamelist to list()
  28.   set CDXRememberSeltextList to list()
  29.   set CDXTwoRememberlist to list()
  30.   set CDXTwoRememberNamelist to list()
  31.   set CDXTwoRememberSeltextList to list()
  32.   set CDProdList to list()
  33.   set CDDescList to list()
  34.   set CDCatlist to list()
  35.   set CDStatusList to list()
  36.   set CDSectionList to list()
  37.   set CDIssueList to list()
  38.   set CDXWhichInputList to list([4, 1], [5, 0], [6, 0])
  39.   set CDXDrpMenuList to list([4, 42, 40, "DRPINputOne", 96, 144, "HiLitOne", 207, 154, 41, 21, "SelectedOne", 96, 127], [5, 42, 40, "DRPINputTwo", 236, 145, "HiLitTwo", 346, 155, 41, 22, "SelectedTwo", 237, 126], [6, 42, 40, "DRPINputThreeCat", 334, 144, "HiLitThree", 445, 153, 41, 23, "SelectedThree", 335, 126], [7, 42, 40, "DRPAndOrOne", 97, 180, "HiLitFour", 208, 190, 41, 24, "SelectedFour", 99, 162], [8, 42, 40, "DRPINputOneB", 96, 217, "HiLitOne", 207, 227, 41, 25, "SelectedFive", 96, 199], [9, 42, 40, "DRPINputTwo", 236, 217, "HiLitTwo", 346, 227, 41, 26, "SelectedSix", 237, 198], [10, 42, 40, "DRPINputThreeCat", 334, 217, "HiLitThreeCat", 445, 226, 41, 27, "SelectedSeven", 335, 199], [11, 42, 40, "DRPAndOrOne", 97, 256, "HiLitFour", 208, 266, 41, 28, "SelectedEight", 99, 238], [12, 42, 40, "DRPINputOneB", 95, 293, "HiLitOne", 206, 303, 41, 29, "SelectedNine", 95, 275], [13, 42, 40, "DRPINputTwo", 236, 293, "HiLitTwo", 346, 303, 41, 30, "SelectedEleven", 237, 274], [14, 42, 40, "DRPINputOne", 236, 293, "HiLitThreeCat", 346, 303, 41, 31, "SelectedTwelve", 336, 274])
  40.   set CDXNameDrpList to list("DRPINputOne", "DRPINputOneB", "DRPINputTwo", "DRPINputThreeCat", "DRPINputThreeStat", "DRPINputThreeIssue", "DRPAndOrOne")
  41.   set CDXNameSelList to list("SelectedOne", "SelectedTwo", "SelectedThree", "SelectedFour", "SelectedFive", "SelectedSix", "SelectedSeven", "SelectedEight", "SelectedNine", "SelectedEleven", "SelectedTwelve")
  42.   set CDXfieldnamesList to list(["CD_CAT", "CATEGORY"], ["CD_STATUS", "STATUS"], ["CD_PROD", "NAME"], ["CD_ISSUE", "ISSUE"], ["DATABASE", "DATABASE"])
  43.   set CDXOperatorList to list(["=", "equals"], ["contains", "contains"], ["starts", "starts"])
  44.   set CDXresultlist to list()
  45.   set CDXResFieldsList to list([24, 13, 145, 36, "CDXRESPROD"], [25, 163, 145, 36, "CDXRESDesc"], [26, 348, 145, 36, "CDXRESsection"], [27, 438, 145, 36, "CDXRESCat"], [28, 509, 145, 36, "CDXRESstatus"], [29, 593, 145, 36, "CDXRESissue"])
  46.   set CDXSearchMasterList to list([4, "CDXInputOneArrow", 155, 135, 36], [5, "CDXInputTwoArrow", 229, 135, 36], [6, "CDXInputThree", 393, 135, 36], [7, "CDXANDOR", 71, 171, 36], [8, "CDXInputOneGrey", 155, 208, 36], [9, "CDXInputTwoGrey", 229, 208, 36], [10, "CDXInputThreeGrey", 393, 208, 36], [11, "CDXANDOR", 71, 247, 36], [12, "CDXInputOneGrey", 154, 284, 36], [13, "CDXInputTwoGrey", 229, 284, 36], [14, "CDXInputThreeGrey", 394, 283, 36], [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, "CDXIntroText", 299, 355, 36], [33, 0], [34, 0], [35, 0], [36, 0], [37, 0], [38, 0], [39, 0], [40, 0], [41, 0], [42, 0])
  47.   set the keyDownScript to "CDXSearchReturn"
  48.   if the machineType < 200 then
  49.     openXLib(the pathName & "V12dbe")
  50.     openXLib(the pathName & "V12table")
  51.   end if
  52.   set CDXTable to 0
  53.   set CDXDB to 0
  54.   set CDXfact to xtra("V12dbe")
  55.   set CDXDB to new(CDXfact, the pathName & "PCWCDX.V12", "ReadWrite", "CDINDEX")
  56.   if not objectp(CDXDB) then
  57.     alert("Cannot create Database instance1. Err=" && CDXDB)
  58.     exit
  59.   end if
  60.   set CDXfactTwo to xtra("V12table")
  61.   set CDXTable to new(CDXfactTwo, mGetRef(CDXDB), "CDTABLE")
  62.   if not objectp(CDXTable) then
  63.     alert("Cannot create V12table instance2. Err=" && CDXTable)
  64.   end if
  65. end
  66.  
  67. on stopMovie
  68.   global CDXDB, CDXTable
  69.   if objectp(CDXTable) then
  70.     set CDXTable to 0
  71.   end if
  72.   if objectp(CDXDB) then
  73.     set CDXDB to 0
  74.   end if
  75. end
  76.