home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / refwjan.dxr / 00016_REFRunAboutSection.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  889 b   |  19 lines
  1. on REFRunAboutSection
  2.   global REFActiveSection, REFAboutSpriteCastNums, REFCurrentWords
  3.   set REFAboutSpriteInfo to list([160, 510, 155, 36], [163, 510, 180, 36], [166, 510, 205, 36], [169, 510, 245, 36], [172, 510, 270, 36], [175, 510, 295, 36], [178, 510, 320, 36])
  4.   set REFCurrentWords to 30
  5.   set REFAboutSpriteCastNums to [160, 163, 166, 169, 172, 175, 178]
  6.   repeat with g = 30 to 36
  7.     set the castNum of sprite g to getAt(getAt(REFAboutSpriteInfo, g - 29), 1)
  8.     set the locH of sprite g to getAt(getAt(REFAboutSpriteInfo, g - 29), 2)
  9.     set the locV of sprite g to getAt(getAt(REFAboutSpriteInfo, g - 29), 3)
  10.     set the ink of sprite g to getAt(getAt(REFAboutSpriteInfo, g - 29), 4)
  11.   end repeat
  12.   set the castNum of sprite 37 to 162
  13.   set the locH of sprite 37 to 35
  14.   set the locV of sprite 37 to 80
  15.   set the ink of sprite 37 to 36
  16.   updateStage()
  17.   REFGoToSection()
  18. end
  19.