home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / intworld.dxr / 00003.ls < prev    next >
Encoding:
Text File  |  1996-12-05  |  1013 b   |  26 lines
  1. on startMovie
  2.   global IWFirstTime, LaunchCounter, blendCounterOne, blendCounterTwo, sectioncount, sectionList, sectionTextboxList
  3.   repeat with t = 1 to 48
  4.     puppetSprite(t, 0)
  5.   end repeat
  6.   puppetPalette("IWorld")
  7.   updateStage()
  8.   repeat with t = 1 to 48
  9.     puppetSprite(t, 1)
  10.   end repeat
  11.   updateStage()
  12.   set IWFirstTime to 0
  13.   set LaunchCounter to 0
  14.   set blendCounterOne to 0
  15.   set blendCounterTwo to 0
  16.   set sectioncount to 1
  17.   set sectionList to list([9, "Depatments"], [10, "coverStory"], [11, "Reviews"], [12, "Features"], [13, "Sitedir"], [14, "competion"], [15, "InternetAd"], [16, "CastStud"])
  18.   set sectionTextboxList to list(["DepatmentsTextBox", 381, 252, 0], ["coverStoryTextBox", 289, 279, 36], ["ReviewsTextbox", 429, 251, 0], ["FeaturesTextBox", 386, 246, 0], ["SitedirTextBox", 341, 192, 0], ["competionTextBox", 36, 215, 0], ["InternetAdTextBox", 434, 335, 0], ["CastStudTextBox", 20, 342, 0])
  19. end
  20.  
  21. on IWwait secs
  22.   startTimer()
  23.   repeat while the timer < (secs * 60)
  24.   end repeat
  25. end
  26.