home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / hanwaug.dxr / 00008_RESLeave,RESReturn.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  3.2 KB  |  84 lines
  1. on HANLeave y
  2.   global IFLButtonList, IFLHandsNameSprite, ADDADCOntTwo, ADDAdCount, HANMasterList, ADDADvertSprite
  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(ThisTempList, 2, the castNum of sprite getAt(ThisTempList, 1))
  29.       if getAt(ThisTempList, 1) = IFLHandsNameSprite then
  30.         setAt(ThisTempList, 3, the locH of sprite getAt(ThisTempList, 1))
  31.         setAt(ThisTempList, 4, the locV of sprite getAt(ThisTempList, 1))
  32.       end if
  33.     end repeat
  34.     repeat with t = 39 to 47
  35.       set the locH of sprite t to 2000
  36.     end repeat
  37.     set ADDADCOntTwo to 0
  38.     set ADDAdCount to 0
  39.     set the locH of sprite ADDADvertSprite to 2000
  40.     ADDLOADAdd()
  41.   end if
  42.   updateStage()
  43. end
  44.  
  45. on HANReturn y
  46.   global HANMasterList, IFLButtonList, IFLHandsNameSprite
  47.   puppetSound(0)
  48.   if y = 1 then
  49.     repeat with g = 1 to 11
  50.       set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite - 1
  51.       wait(0.05)
  52.       updateStage()
  53.     end repeat
  54.   end if
  55.   puppetSound("resback.wav")
  56.   updateStage()
  57.   repeat with f = 1 to count(HANMasterList)
  58.     set TwochangeSprite to getAt(HANMasterList, f)
  59.     if count(TwochangeSprite) > 2 then
  60.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  61.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  62.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  63.       set the ink of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 5)
  64.       set the visible of sprite getAt(TwochangeSprite, 1) to 1
  65.       next repeat
  66.     end if
  67.     set the locH of sprite getAt(TwochangeSprite, 1) to 2000
  68.   end repeat
  69.   set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite - 1
  70.   if y = 2 then
  71.     repeat with f = 1 to count(IFLButtonList)
  72.       set TwochangeSprite to getAt(IFLButtonList, f)
  73.       set the castNum of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 2)
  74.       set the locH of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 3)
  75.       set the locV of sprite getAt(TwochangeSprite, 1) to getAt(TwochangeSprite, 4)
  76.     end repeat
  77.   end if
  78.   set the locH of sprite 1 to 325
  79.   set the locV of sprite 1 to 271
  80.   ADDAdvertBreak(2)
  81.   updateStage()
  82.   go("HANSection")
  83. end
  84.