home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #9 / CDRTV2N9.iso / progs / vearth / intro.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1996-04-15  |  477 b   |  25 lines
  1. on startMovie
  2.   global gChapter, gSection, gPicture
  3.   unLoad()
  4.   preLoadCast(33)
  5.   set gChapter to 2
  6.   set gSection to 0
  7.   set gPicture to 0
  8.   startTimer()
  9.   set the soundEnabled to 1
  10. end
  11.  
  12. on checkTimer
  13.   global gPicture
  14.   if the timer > 80 then
  15.     if gPicture < 9 then
  16.       set gPicture to gPicture + 1
  17.     else
  18.       set gPicture to 0
  19.     end if
  20.     set the castNum of sprite 18 to the number of cast "main00.pct" + gPicture
  21.     updateStage()
  22.     startTimer()
  23.   end if
  24. end
  25.