home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00008_CDXLeave,CDXReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.3 KB  |  66 lines
  1. on CDXLeave y
  2.   global IFLButtonList, IFLINXNameSprite, ADDADCOntTwo, ADDAdCount, CDXMasterList, ADDADvertSprite, IFLHeadInkList
  3.   if y <> 1 then
  4.     repeat with t = 1 to 48
  5.       set the locH of sprite t to 2000
  6.     end repeat
  7.     updateStage()
  8.   else
  9.     repeat with t = 2 to 38
  10.       set the locH of sprite t to 2000
  11.     end repeat
  12.     updateStage()
  13.   end if
  14.   if y = 2 then
  15.     ADDLOADAdd()
  16.   end if
  17. end
  18.  
  19. on CDXReturn y
  20.   global CDXMasterList, IFLButtonList, IFLINXNameSprite, IFLHeadInkList, ADMasSearchList
  21.   puppetSound(0)
  22.   if y = 1 then
  23.     repeat with g = 1 to 6
  24.       set the castNum of sprite IFLINXNameSprite to the castNum of sprite IFLINXNameSprite - 1
  25.       updateStage()
  26.     end repeat
  27.     set the ink of sprite IFLINXNameSprite to 8
  28.     updateStage()
  29.     repeat with f = 1 to count(CDXMasterList)
  30.       set TwochangeSprite to getAt(CDXMasterList, f)
  31.       if count(TwochangeSprite) > 2 then
  32.         set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  33.         set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  34.         set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  35.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  36.         set the visible of sprite getAt(TwochangeSprite, 1) to 1
  37.         next repeat
  38.       end if
  39.       set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  40.     end repeat
  41.   end if
  42.   if y = 2 then
  43.     repeat with f = 1 to count(ADMasSearchList)
  44.       set TwochangeSprite to getAt(ADMasSearchList, f)
  45.       if count(TwochangeSprite) > 2 then
  46.         set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  47.         set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  48.         set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  49.         set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  50.         set the visible of sprite getAt(TwochangeSprite, 1) to 1
  51.         next repeat
  52.       end if
  53.       set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  54.     end repeat
  55.   end if
  56.   set the locH of sprite 1 to 325
  57.   set the locV of sprite 1 to 271
  58.   if y = 2 then
  59.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  60.     set the ink of sprite 1 to 36
  61.     go("ADStartFrame")
  62.   else
  63.     go("CDXSection")
  64.   end if
  65. end
  66.