home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / resource / earshot / eardemo.dir / 00057.ls < prev    next >
Encoding:
Text File  |  1996-05-17  |  237 b   |  11 lines
  1. on exitFrame
  2.   set x to 0
  3.   repeat while soundBusy(2)
  4.     set the text of cast "Arcade Score" to string(x * 10)
  5.     set x to x + 1
  6.     updateStage()
  7.   end repeat
  8.   go(the frame + 1)
  9.   set the text of cast "Arcade Score" to string(0)
  10. end
  11.