home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / refw08f.dxr / 00015_REFRunAdIdxSection.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  740 b   |  15 lines
  1. on REFAdIdxSection
  2.   global REFMasterList, REFActiveSection, IFLButtonList, IFLReferenceNameSprite, REFSpriteCastNums, REFAdVideoList
  3.   set REFAdIdxSPriteInfo to list([91, 190, 131, 36], [93, 190, 164, 36], [95, 190, 197, 36], [97, 190, 229, 36], [99, 190, 263, 36])
  4.   set REFSpriteCastNums to [143, 145, 147, 149]
  5.   set REFAdVideoList to [150, 153, 156]
  6.   repeat with g = 30 to 34
  7.     set the castNum of sprite g to getAt(getAt(REFAdIdxSPriteInfo, g - 29), 1)
  8.     set the locH of sprite g to getAt(getAt(REFAdIdxSPriteInfo, g - 29), 2)
  9.     set the locV of sprite g to getAt(getAt(REFAdIdxSPriteInfo, g - 29), 3)
  10.     set the ink of sprite g to getAt(getAt(REFAdIdxSPriteInfo, g - 29), 4)
  11.   end repeat
  12.   updateStage()
  13.   REFGoToSection()
  14. end
  15.