home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / demos / elteldem / etdemo.dir / 00250.ls < prev    next >
Encoding:
Text File  |  1994-12-09  |  347 b   |  20 lines
  1. on mouseDown
  2.   if soundBusy(1) then
  3.     sound stop 1
  4.   end if
  5.   puppetSprite(10, 1)
  6.   set the castNum of sprite 10 to 218
  7.   set the castNum of sprite 9 to 219
  8.   updateStage()
  9.   puppetSound("BELL")
  10.   repeat while the stillDown
  11.   end repeat
  12. end
  13.  
  14. on mouseUp
  15.   set the castNum of sprite 10 to 218
  16.   updateStage()
  17.   puppetSprite(9, 0)
  18.   go("date")
  19. end
  20.