home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 June / WPCJUN97.ISO / dxrs / artwjun.dxr / 00027_ARTLiteratureGo.ls < prev    next >
Encoding:
Text File  |  1997-04-07  |  597 b   |  17 lines
  1. on ARTLiteratureGo f
  2.   global ARTLiteratureMasterList, ARTLiteratureBeenHere, ARTChooseSectionList, ARTWhichPartList, ARTLitSpriteList, ARTLiteratureSprite
  3.   updateStage()
  4.   repeat with v = 2 to count(ARTLitSpriteList)
  5.     set the locH of sprite getAt(getAt(ARTLitSpriteList, v), 1) to 1500
  6.   end repeat
  7.   set the locV of sprite 24 to 439
  8.   set the locH of sprite 22 to 2000
  9.   set the castNum of sprite 36 to 53
  10.   set the locH of sprite 36 to 2000
  11.   updateStage()
  12.   set whichSection to getAt(ARTChooseSectionList, f)
  13.   setAt(whichSection, 2, 0)
  14.   setAt(ARTWhichPartList, f, 0)
  15.   updateStage()
  16. end
  17.