home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00013_ARTLiteratureGo.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  1.1 KB  |  27 lines
  1. on ARTLiteratureGo f
  2.   global ARTLiteratureMasterList, ARTLiteratureBeenHere, ARTChooseSectionList, ARTWhichPartList, ARTLitSpriteList, ARTLiteratureSprite
  3.   set ARTLiteratureBeenHere to 1
  4.   repeat with z = 1 to count(ARTLiteratureMasterList)
  5.     set TwochangeSprite to getAt(ARTLiteratureMasterList, z)
  6.     if count(TwochangeSprite) > 2 then
  7.       setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  8.       setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  9.       setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  10.       setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  11.       next repeat
  12.     end if
  13.     setAt(TwochangeSprite, 2, 0)
  14.   end repeat
  15.   updateStage()
  16.   repeat with v = 2 to count(ARTLitSpriteList)
  17.     set the locH of sprite getAt(getAt(ARTLitSpriteList, v), 1) to 1500
  18.   end repeat
  19.   set the locV of sprite 23 to 439
  20.   set the locH of sprite 25 to 2000
  21.   updateStage()
  22.   set whichSection to getAt(ARTChooseSectionList, f)
  23.   setAt(whichSection, 2, 0)
  24.   setAt(ARTWhichPartList, f, 0)
  25.   updateStage()
  26. end
  27.