home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / artw08f.dxr / 00014_ARTGraphicsGo.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  1.8 KB  |  42 lines
  1. on ARTGraphicsGo f
  2.   global ARTGraphicsBeenHere, ARTGraphicsSpriteList, IFLArtsNameSprite, ARTComp
  3.   set ARTGraphicsBeenHere to 1
  4.   repeat with z = 1 to count(ARTGraphicsMasterList)
  5.     set TwochangeSprite to getAt(ARTGraphicsMasterList, z)
  6.     if count(TwochangeSprite) > 2 then
  7.       if getAt(TwochangeSprite, 1) = 48 then
  8.         if the castNum of sprite 48 = 192 then
  9.           setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  10.           setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  11.           setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  12.           setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  13.         end if
  14.       else
  15.         setAt(TwochangeSprite, 2, the castNum of sprite getAt(TwochangeSprite, 1))
  16.         setAt(TwochangeSprite, 5, the ink of sprite getAt(TwochangeSprite, 1))
  17.         setAt(TwochangeSprite, 3, the locH of sprite getAt(TwochangeSprite, 1))
  18.         setAt(TwochangeSprite, 4, the locV of sprite getAt(TwochangeSprite, 1))
  19.       end if
  20.       next repeat
  21.     end if
  22.     setAt(TwochangeSprite, 2, 0)
  23.   end repeat
  24.   updateStage()
  25.   set whichSection to getAt(ARTChooseSectionList, f)
  26.   repeat with v = 1 to count(ARTGraphicsSpriteList)
  27.     set the locH of sprite getAt(getAt(ARTGraphicsSpriteList, v), 1) to 2000
  28.   end repeat
  29.   updateStage()
  30.   set the castNum of sprite getAt(whichSection, 3) to the castNum of sprite getAt(whichSection, 3) - 1
  31.   set the castNum of sprite IFLArtsNameSprite to 54
  32.   repeat with c = 1 to 3
  33.     set the locV of sprite getAt(whichSection, 3) to the locV of sprite getAt(whichSection, 3) + 18
  34.     updateStage()
  35.   end repeat
  36.   set whichSection to getAt(ARTChooseSectionList, f)
  37.   setAt(whichSection, 2, 0)
  38.   setAt(ARTWhichPartList, f, 0)
  39.   set ARTComp to 0
  40.   updateStage()
  41. end
  42.