home *** CD-ROM | disk | FTP | other *** search
/ Learn to Speak Spanish 7 / LSSP_7.ISO / pc / lssp / games / shared.dir / 00640_lan11.ls < prev    next >
Encoding:
Text File  |  1998-11-16  |  331 b   |  15 lines
  1. on mouseUp
  2.   global lang
  3.   set theNum to the number of cast "lan10"
  4.   repeat with i = 10 down to 1
  5.     set the castNum of sprite 11 to theNum
  6.     startTimer()
  7.     repeat while the timer < 2
  8.     end repeat
  9.     set theNum to theNum - 1
  10.     updateStage()
  11.   end repeat
  12.   set the castNum of sprite 11 to cast "lan0"
  13.   set lang to 2
  14. end
  15.