home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00284.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  250 b   |  11 lines
  1. on mouseUp
  2.   global gPathList
  3.   set fname to makeImagePath(gPathList, #sound, 1)
  4.   sound playFile 1, fname
  5.   updateStage()
  6.   set startTicks to the ticks
  7.   repeat while soundBusy(1) and (the ticks < (startTicks + 120))
  8.   end repeat
  9.   sound stop 1
  10. end
  11.