home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / HANWDEC.DXR / 00008_RESLeave,RESReturn.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.8 KB  |  97 lines
  1. on HANLeave y
  2.   global IFLButtonList, IFLHandsNameSprite, ADDADCOntTwo, ADDAdCount, HANMasterList, ADDADvertSprite, IFLHeadInkList
  3.   repeat with f = 1 to count(HANMasterList)
  4.     set TwochangeSprite to getAt(HANMasterList, f)
  5.     if count(TwochangeSprite) > 2 then
  6.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  7.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  8.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  9.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  10.     else
  11.       setAt(TwochangeSprite, 2, 0)
  12.     end if
  13.     if y = 1 then
  14.       if getAt(TwochangeSprite, 1) <> 2 then
  15.         set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  16.         set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  17.       end if
  18.       next repeat
  19.     end if
  20.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  21.     set the locV of sprite getAt(TwochangeSprite, 1) to 2000
  22.   end repeat
  23.   set the locH of sprite ADDADvertSprite to 2000
  24.   if y = 2 then
  25.     set the locH of sprite 1 to 2000
  26.     repeat with f = 1 to count(IFLButtonList)
  27.       set ThisTempList to getAt(IFLButtonList, f)
  28.       setAt(getAt(IFLButtonList, f), 2, the castNum of sprite getAt(ThisTempList, 1))
  29.       if getAt(ThisTempList, 1) = IFLHandsNameSprite then
  30.         setAt(getAt(IFLButtonList, f), 3, the locH of sprite getAt(ThisTempList, 1))
  31.         setAt(getAt(IFLButtonList, f), 4, the locV of sprite getAt(ThisTempList, 1))
  32.       end if
  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.     set ADDADCOntTwo to 0
  42.     set ADDAdCount to 0
  43.     set the locH of sprite ADDADvertSprite to 2000
  44.     ADDLOADAdd()
  45.   end if
  46.   updateStage()
  47. end
  48.  
  49. on HANReturn y
  50.   global HANMasterList, IFLButtonList, IFLHandsNameSprite, IFLHeadInkList
  51.   puppetSound(0)
  52.   if y = 1 then
  53.     repeat with g = 1 to 11
  54.       set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite - 1
  55.       updateStage()
  56.     end repeat
  57.   end if
  58.   updateStage()
  59.   repeat with f = 1 to count(HANMasterList)
  60.     set TwochangeSprite to getAt(HANMasterList, f)
  61.     if count(TwochangeSprite) > 2 then
  62.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  63.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  64.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  65.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  66.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  67.       next repeat
  68.     end if
  69.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  70.   end repeat
  71.   set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite - 1
  72.   if y = 2 then
  73.     repeat with f = 1 to count(IFLButtonList)
  74.       set TwochangeSprite to getAt(IFLButtonList, f)
  75.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  76.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  77.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  78.     end repeat
  79.     repeat with f = 1 to count(IFLHeadInkList)
  80.       set TwochangeSprite to getAt(IFLHeadInkList, f)
  81.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  82.     end repeat
  83.   end if
  84.   set the locH of sprite 1 to 325
  85.   set the locV of sprite 1 to 271
  86.   if y = 2 then
  87.     set the castNum of sprite 1 to the number of member "IFLStaticBackground"
  88.     set the ink of sprite 1 to 36
  89.     repeat with f = 39 to 47
  90.       set the ink of sprite f to 36
  91.     end repeat
  92.   end if
  93.   ADDAdvertBreak(2)
  94.   updateStage()
  95.   go("HANSection")
  96. end
  97.