home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00050_CDXADDEndBUTTON.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.1 KB  |  51 lines
  1. on CDXADDEndBUTTON
  2.   global CDXProceed, CDXMasSearchList, IFLButtonList, IFLHeadInkList, ADMasSearchList, CDXHelpOnStage, CDXSub
  3.   if rollOver(4) and the mouseUp then
  4.     set the castNum of sprite 4 to the number of member "CDXADLeaveTwo"
  5.     updateStage()
  6.     repeat while rollOver(4)
  7.       if the mouseDown then
  8.         set CDXProceed to 2
  9.         exit repeat
  10.       end if
  11.     end repeat
  12.     if CDXProceed = 2 then
  13.       set CDXProceed to 0
  14.       repeat with f = 1 to count(ADMasSearchList)
  15.         set TwochangeSprite to getAt(ADMasSearchList, f)
  16.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  17.       end repeat
  18.       repeat with f = 1 to count(CDXMasterList)
  19.         set TwochangeSprite to getAt(CDXMasterList, f)
  20.         if count(TwochangeSprite) > 2 then
  21.           set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  22.           set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  23.           set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  24.           set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  25.           set the visible of sprite getAt(TwochangeSprite, 1) to 1
  26.           next repeat
  27.         end if
  28.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  29.       end repeat
  30.       set the editableText of sprite 9 to 0
  31.       repeat with f = 1 to count(IFLButtonList)
  32.         set TwochangeSprite to getAt(IFLButtonList, f)
  33.         set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  34.         set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  35.         set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  36.       end repeat
  37.       repeat with f = 1 to count(IFLHeadInkList)
  38.         set TwochangeSprite to getAt(IFLHeadInkList, f)
  39.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  40.       end repeat
  41.       updateStage()
  42.       set CDXHelpOnStage to 0
  43.       set CDXSub to 1
  44.       go("CDXSection")
  45.     else
  46.       set the castNum of sprite 4 to the number of member "CDXADLeaveOne"
  47.       updateStage()
  48.     end if
  49.   end if
  50. end
  51.