home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00019_CDXPressStartSearch.ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  2.1 KB  |  49 lines
  1. on CDXPressStartSearch
  2.   global CDXProceed, CDXMasSearchList, IFLButtonList, IFLHeadInkList
  3.   if (the mouseH > 386) and (the mouseH < 493) and (the mouseV > 313) and (the mouseV < 331) then
  4.     set the castNum of sprite 4 to the number of member "CDXStartSearchButton"
  5.     set the loc of sprite 4 to point(300, 300)
  6.     set the ink of sprite 4 to 0
  7.     updateStage()
  8.     repeat while (the mouseH > 386) and (the mouseH < 493) and (the mouseV > 313) and (the mouseV < 331)
  9.       if the mouseDown then
  10.         set CDXProceed to 1
  11.         exit repeat
  12.       end if
  13.     end repeat
  14.     if CDXProceed = 1 then
  15.       set CDXProceed to 0
  16.       repeat with f = 1 to count(CDXMasSearchList)
  17.         set TwochangeSprite to getAt(CDXMasSearchList, f)
  18.         if count(TwochangeSprite) > 2 then
  19.           set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  20.           set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  21.           set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  22.           set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  23.           set the visible of sprite getAt(TwochangeSprite, 1) to 1
  24.           next repeat
  25.         end if
  26.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  27.       end repeat
  28.       repeat with f = 1 to count(IFLButtonList)
  29.         set ThisTempList to getAt(IFLButtonList, f)
  30.         setAt(getAt(IFLButtonList, f), 2, the castNum of sprite getAt(ThisTempList, 1))
  31.         setAt(getAt(IFLButtonList, f), 3, the locH of sprite getAt(ThisTempList, 1))
  32.         setAt(getAt(IFLButtonList, f), 4, the locV of sprite getAt(ThisTempList, 1))
  33.       end repeat
  34.       repeat with f = 1 to count(IFLHeadInkList)
  35.         set InkTempList to getAt(IFLHeadInkList, f)
  36.         setAt(InkTempList, 2, the ink of sprite getAt(ThisTempList, 1))
  37.       end repeat
  38.       repeat with t = 39 to 47
  39.         set the locH of sprite t to 2000
  40.       end repeat
  41.       updateStage()
  42.       go("CDXStartSearch")
  43.     else
  44.       set the locH of sprite 4 to 2000
  45.       updateStage()
  46.     end if
  47.   end if
  48. end
  49.