home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / refwaug.dxr / 00015_REFRunAdIdxSection.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  735 b   |  15 lines
  1. on REFAdIdxSection
  2.   global REFMasterList, REFActiveSection, IFLButtonList, IFLReferenceNameSprite, REFSpriteCastNums, REFAdVideoList
  3.   set REFAdIdxSPriteInfo to list([140, 35, 180, 0], [143, 35, 220, 0], [145, 35, 240, 0], [147, 35, 260, 0], [149, 35, 280, 0])
  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.