home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / intworld.dxr / 00005_MainAnimation.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  3.2 KB  |  81 lines
  1. on MainAnimation
  2.   global LaunchCounter, blendCounterOne, blendCounterTwo, sectioncount, sectionList, sectionTextboxList
  3.   repeat while 1
  4.     case LaunchCounter of
  5.       30:
  6.         set the locH of sprite 5 to 2000
  7.         updateStage()
  8.       60:
  9.         set the loc of sprite 5 to point(190, 143)
  10.         set LaunchCounter to 0
  11.         updateStage()
  12.     end case
  13.     set LaunchCounter to 1 + LaunchCounter
  14.     case blendCounterOne of
  15.       30:
  16.         if sectioncount > count(sectionList) then
  17.           set sectioncount to 1
  18.         end if
  19.         set whichnum to sectioncount
  20.         set the castNum of sprite getAt(getAt(sectionList, sectioncount), 1) to the number of member getAt(getAt(sectionList, sectioncount), 2)
  21.         set the blend of sprite getAt(getAt(sectionList, sectioncount), 1) to 10
  22.         set the loc of sprite getAt(getAt(sectionList, sectioncount), 1) to point(492, 388)
  23.         updateStage()
  24.         repeat with t = 1 to 3
  25.           set the blend of sprite getAt(getAt(sectionList, sectioncount), 1) to the blend of sprite getAt(getAt(sectionList, sectioncount), 1) + 30
  26.           updateStage()
  27.         end repeat
  28.         set sectioncount to 1 + sectioncount
  29.       200:
  30.         repeat with t = 1 to 3
  31.           set the blend of sprite getAt(getAt(sectionList, whichnum), 1) to the blend of sprite getAt(getAt(sectionList, whichnum), 1) - 30
  32.           updateStage()
  33.         end repeat
  34.         set the blend of sprite getAt(getAt(sectionList, whichnum), 1) to 10
  35.         set blendCounterOne to 0
  36.         updateStage()
  37.     end case
  38.     set blendCounterOne to 1 + blendCounterOne
  39.     repeat with t = 1 to count(sectionList)
  40.       if rollOver(getAt(getAt(sectionList, t), 1)) then
  41.         if whichnum <> getAt(getAt(sectionList, t), 1) then
  42.           set the blend of sprite getAt(getAt(sectionList, whichnum), 1) to 10
  43.         end if
  44.         set the blend of sprite getAt(getAt(sectionList, t), 1) to 100
  45.         set blendCounterOne to 0
  46.         set the blend of sprite 6 to 50
  47.         set the castNum of sprite 8 to the number of member getAt(getAt(sectionTextboxList, t), 1)
  48.         set the locH of sprite 8 to getAt(getAt(sectionTextboxList, t), 2)
  49.         set the locV of sprite 8 to getAt(getAt(sectionTextboxList, t), 3)
  50.         set the ink of sprite 8 to getAt(getAt(sectionTextboxList, t), 4)
  51.         updateStage()
  52.         puppetSound("click.aif")
  53.         updateStage()
  54.         repeat while rollOver(getAt(getAt(sectionList, t), 1))
  55.         end repeat
  56.         set the blend of sprite getAt(getAt(sectionList, t), 1) to 10
  57.         set the castNum of sprite 8 to -1
  58.         set the locH of sprite 8 to 2000
  59.         updateStage()
  60.       end if
  61.       if rollOver(48) then
  62.         set the castNum of sprite 48 to the castNum of sprite 48 + 1
  63.         updateStage()
  64.         repeat while rollOver(48)
  65.           if the mouseDown then
  66.             repeat with t = 1 to 48
  67.               set the locH of sprite t to 2000
  68.             end repeat
  69.             updateStage()
  70.             set the stageColor to 255
  71.             updateStage()
  72.             play done
  73.           end if
  74.         end repeat
  75.         set the castNum of sprite 48 to the castNum of sprite 48 - 1
  76.         updateStage()
  77.       end if
  78.     end repeat
  79.   end repeat
  80. end
  81.