home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / CDXPCW09.DXR / 00013_CDXNewSearch.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  2.1 KB  |  40 lines
  1. on CDXNewSearch
  2.   global CDXSearchButtonSprite, CDXSelectedWord, CDXDatafield, CDXOperatorList, CDXfieldnamesList, CDXSub, CDXSearchMasterList, CDXWhichInputList, CDXRememberlist, CDXRememberNamelist, CDXRememberSeltextList, CDXTwoRememberlist, CDXTwoRememberNamelist, CDXTwoRememberSeltextList, CDXTitle
  3.   if rollOver(CDXSearchButtonSprite) then
  4.     set the member of sprite CDXSearchButtonSprite to member "CDXNewButtOutRed"
  5.     updateStage()
  6.     repeat while rollOver(CDXSearchButtonSprite)
  7.       if the mouseDown then
  8.         set the member of sprite CDXSearchButtonSprite to member "CDXNewButtInRed"
  9.         updateStage()
  10.         set CDXSub to 2
  11.         repeat with t = 1 to count(CDXSearchMasterList)
  12.           if count(getAt(CDXSearchMasterList, t)) > 2 then
  13.             set the member of sprite getAt(getAt(CDXSearchMasterList, t), 1) to member getAt(getAt(CDXSearchMasterList, t), 2)
  14.             set the loc of sprite getAt(getAt(CDXSearchMasterList, t), 1) to point(getAt(getAt(CDXSearchMasterList, t), 3), getAt(getAt(CDXSearchMasterList, t), 4))
  15.             set the ink of sprite getAt(getAt(CDXSearchMasterList, t), 1) to getAt(getAt(CDXSearchMasterList, t), 5)
  16.             next repeat
  17.           end if
  18.           set the member of sprite getAt(getAt(CDXSearchMasterList, t), 1) to member "CDDOT"
  19.           set the locH of sprite getAt(getAt(CDXSearchMasterList, t), 1) to 2000
  20.         end repeat
  21.         set CDXWhichInputList to list([4, 1], [5, 1], [6, 0])
  22.         set CDXRememberlist to list()
  23.         set CDXRememberNamelist to list()
  24.         set CDXRememberSeltextList to list()
  25.         set CDXTwoRememberlist to list()
  26.         set CDXTwoRememberNamelist to list()
  27.         set CDXTwoRememberSeltextList to list()
  28.         set the member of sprite CDXTitle to member "CDXSelect"
  29.       end if
  30.     end repeat
  31.     if the member of sprite CDXSearchButtonSprite = member "CDXNewButtOutRed" then
  32.       set the member of sprite CDXSearchButtonSprite to member "CDXNewButtOut"
  33.     else
  34.       set the member of sprite CDXSearchButtonSprite to member "CDXSearchButtOut"
  35.       set the member of sprite 32 to member "CDXIntroText"
  36.     end if
  37.     updateStage()
  38.   end if
  39. end
  40.