home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / REFFINJ.DXR / 00015_REFRunAdIdxSection.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  783 b   |  15 lines
  1. on REFAdIdxSection
  2.   global REFMasterList, REFActiveSection, IFLButtonList, IFLReferenceNameSprite, REFSpriteCastNums, REFAdVideoList
  3.   set REFAdIdxSpriteInfo to list([140, 35, 180, 0], [141, 35, 200, 0], [143, 35, 220, 0], [145, 35, 240, 0], [147, 35, 260, 0], [149, 35, 280, 0], [151, 35, 300, 0])
  4.   set REFSpriteCastNums to [141, 143, 145, 147, 149, 151]
  5.   set REFAdVideoList to [150, 153, 156]
  6.   repeat with g = 30 to 36
  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.