home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / chapel.dxr / 00096_ChapTxt11.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  425 b   |  18 lines
  1. on mouseDown
  2.   TextCursorOff()
  3.   set ThisSprite to 21
  4.   puppetSprite(ThisSprite, 1)
  5.   set locHolder to the number of cast "ChapTxt11"
  6.   set the castNum of sprite ThisSprite to locHolder + 29
  7.   updateStage()
  8.   puppetSound("family.txt")
  9.   updateStage()
  10.   repeat while soundBusy(1)
  11.     nothing()
  12.   end repeat
  13.   puppetSound(0)
  14.   set the castNum of sprite ThisSprite to locHolder
  15.   updateStage()
  16.   puppetSprite(ThisSprite, 0)
  17. end
  18.