home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive: Demo Special / CDROM_0995.iso / pc / wingdemo / wings / wings.exe / WINGS_1.DXR / 00073.ls < prev    next >
Encoding:
Text File  |  1995-04-21  |  400 b   |  18 lines
  1. on mouseUp
  2.   myPuppet(5, 112, 111)
  3.   set h to the castNum of sprite 2
  4.   put the castType of cast h
  5.   if the castType of cast h = #digitalVideo then
  6.     set the movieRate of sprite 2 to 0
  7.     set the movieTime of sprite 2 to 0
  8.   end if
  9.   set a to 4
  10.   repeat while a <> 9
  11.     puppetSprite(a, 0)
  12.     set the immediate of sprite a to 0
  13.     set a to a + 1
  14.   end repeat
  15.   sound stop 1
  16.   go(marker(-1))
  17. end
  18.