home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00012_ARTMusicOneGo.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  4.7 KB  |  104 lines
  1. on ARTMusicOneGo f
  2.   global ARTMusicOneMasterList, IFLButtonList, IFLArtsNameSprite, ADDADCOntTwo, ADDAdCount, ARTMasterList, ADDADvertSprite, ARTAreSomewhere, ARTMusicOneList, ARTMusOneBackgroudSprite, ARTMusOneMusicSprite, ARTMusOneUnderLineSprite, ARTVerticalTrailSprite, ARTChooseSectionList, ARTWhichPartList, ARTMusicOneBeenHere
  3.   set ARTMusicOneBeenHere to 1
  4.   repeat with z = 1 to count(ARTMusicOneMasterList)
  5.     set TwochangeSprite to getAt(ARTMusicOneMasterList, 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.   if ARTAreSomewhere = 1 then
  17.     set TemPList to getAt(ARTMusicOneList, 1)
  18.     repeat with d = 4 to count(TemPList)
  19.       set InfoList to getAt(TemPList, d)
  20.       set the locH of sprite getAt(InfoList, 1) to 2000
  21.     end repeat
  22.     updateStage()
  23.     set the castNum of sprite ARTMusOneBackgroudSprite to the castNum of sprite ARTMusOneBackgroudSprite - 1
  24.     repeat while the locV of sprite 10 < (384 - 25)
  25.       repeat with s = 7 to 10
  26.         if the locV of sprite s < (384 - 25) then
  27.           set the locV of sprite s to the locV of sprite s + 25
  28.           next repeat
  29.         end if
  30.         set the locV of sprite s to 384
  31.       end repeat
  32.       updateStage()
  33.     end repeat
  34.     set the locV of sprite 10 to 384
  35.     updateStage()
  36.     set the castNum of sprite IFLArtsNameSprite to 54
  37.     set the castNum of sprite ARTMusOneMusicSprite to the castNum of sprite ARTMusOneMusicSprite - 1
  38.     set the ink of sprite ARTMusOneMusicSprite to 33
  39.     set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite + 20
  40.     updateStage()
  41.     set the locH of sprite ARTMusOneUnderLineSprite to 200
  42.     set the locV of sprite ARTMusOneUnderLineSprite to 186
  43.     updateStage()
  44.     repeat while the locV of sprite ARTMusOneMusicSprite < (386 - 20)
  45.       set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite + 20
  46.       set the locV of sprite ARTMusOneUnderLineSprite to the locV of sprite ARTMusOneUnderLineSprite + 20
  47.       updateStage()
  48.     end repeat
  49.     repeat with d = 7 to 10
  50.       set the locH of sprite d to 2000
  51.     end repeat
  52.     updateStage()
  53.     set the locV of sprite ARTMusOneMusicSprite to 386
  54.     set the locV of sprite ARTMusOneUnderLineSprite to 386
  55.     set the locH of sprite ARTVerticalTrailSprite to 200
  56.     set the locV of sprite ARTVerticalTrailSprite to 386
  57.     updateStage()
  58.     set the castNum of sprite ARTMusOneMusicSprite to the castNum of sprite ARTMusOneMusicSprite - 1
  59.     set the ink of sprite ARTMusOneMusicSprite to 36
  60.     updateStage()
  61.     set whichSection to getAt(ARTChooseSectionList, f)
  62.     repeat with y = 4 to count(whichSection)
  63.       set ThisList to getAt(whichSection, y)
  64.       set the locH of sprite getAt(ThisList, 1) to 2000
  65.     end repeat
  66.     updateStage()
  67.   else
  68.     set the castNum of sprite IFLArtsNameSprite to 54
  69.     set the castNum of sprite ARTMusOneMusicSprite to the castNum of sprite ARTMusOneMusicSprite - 1
  70.     set the ink of sprite ARTMusOneMusicSprite to 33
  71.     set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite + 20
  72.     updateStage()
  73.     set the locH of sprite ARTMusOneUnderLineSprite to 200
  74.     set the locV of sprite ARTMusOneUnderLineSprite to 186
  75.     updateStage()
  76.     repeat while the locV of sprite ARTMusOneMusicSprite < (386 - 20)
  77.       set the locV of sprite ARTMusOneMusicSprite to the locV of sprite ARTMusOneMusicSprite + 20
  78.       set the locV of sprite ARTMusOneUnderLineSprite to the locV of sprite ARTMusOneUnderLineSprite + 20
  79.       updateStage()
  80.     end repeat
  81.     repeat with d = 7 to 10
  82.       set the locH of sprite d to 2000
  83.     end repeat
  84.     updateStage()
  85.     set the locV of sprite ARTMusOneMusicSprite to 386
  86.     set the locV of sprite ARTMusOneUnderLineSprite to 386
  87.     set the locH of sprite ARTVerticalTrailSprite to 200
  88.     set the locV of sprite ARTVerticalTrailSprite to 386
  89.     updateStage()
  90.     set the castNum of sprite ARTMusOneMusicSprite to the castNum of sprite ARTMusOneMusicSprite - 1
  91.     set the ink of sprite ARTMusOneMusicSprite to 36
  92.     updateStage()
  93.     set whichSection to getAt(ARTChooseSectionList, f)
  94.     repeat with y = 4 to count(whichSection)
  95.       set ThisList to getAt(whichSection, y)
  96.       set the locH of sprite getAt(ThisList, 1) to 2000
  97.     end repeat
  98.     updateStage()
  99.   end if
  100.   set whichSection to getAt(ARTChooseSectionList, f)
  101.   setAt(whichSection, 2, 0)
  102.   setAt(ARTWhichPartList, f, 0)
  103. end
  104.