home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 June / PCPRO_696.ISO / bonus / blender / shared.dir / 00832.ls < prev    next >
Encoding:
Text File  |  1996-03-08  |  844 b   |  44 lines
  1. on SPEAK
  2.   set the movieTime of sprite 40 to 0
  3.   set the movieRate of sprite 40 to 1.0
  4. end
  5.  
  6. on checkKey
  7.   if the commandDown and ((the key = "q") or (the key = ".")) then
  8.     endMOVIE()
  9.   end if
  10. end
  11.  
  12. on CLEANUP
  13.   global cVID
  14.   unPuppetVisPlus()
  15.   set cVID to the castNum of sprite 40
  16.   if cVID > 0 then
  17.     if the castType of cast cVID = #digitalVideo then
  18.       set the movieRate of sprite 40 to 0
  19.     end if
  20.   end if
  21.   checkMem()
  22. end
  23.  
  24. on checkMem
  25.   global gMinimumRAM
  26.   if (the freeBlock / 1024) < gMinimumRAM then
  27.     unLoadCast()
  28.   end if
  29. end
  30.  
  31. on unPuppetVisPlus myList
  32.   if not (the paramCount) then
  33.     repeat with n = 48 down to 1
  34.       puppetSprite(n, 0)
  35.       set the visible of sprite n to 1
  36.     end repeat
  37.   else
  38.     repeat with n in myList
  39.       puppetSprite(n, 0)
  40.       set the visible of sprite n to 1
  41.     end repeat
  42.   end if
  43. end
  44.