home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / grandmas.dxr / 00028_GrTEXT16.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  497 b   |  22 lines
  1. on mouseDown
  2.   TextCursorOff()
  3.   set ThisSprite to 18
  4.   puppetSprite(ThisSprite, 1)
  5.   set locHolder to the number of cast "Grtext16"
  6.   set the castNum of sprite ThisSprite to locHolder + 26
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 10
  10.     nothing()
  11.   end repeat
  12.   puppetSound("grandpa.wav")
  13.   updateStage()
  14.   repeat while soundBusy(1)
  15.     nothing()
  16.   end repeat
  17.   puppetSound(0)
  18.   set the castNum of sprite ThisSprite to locHolder
  19.   updateStage()
  20.   puppetSprite(ThisSprite, 0)
  21. end
  22.