home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT3.ZIP / C1.DXR / 00228.ls < prev    next >
Encoding:
Text File  |  1995-11-02  |  1.0 KB  |  47 lines
  1. on initRearWindow theColor
  2.   global Bd, moviePath
  3.   return 
  4.   if objectp(Bd) then
  5.     Bd(mdispose)
  6.   end if
  7.   openXLib(moviePath & "VTResources")
  8.   set Bd to BackDrop(mnew)
  9.   Bd(mRegister, "20071132-852")
  10.   Bd(mShow)
  11.   closeXLib(moviePath & "VTResources")
  12. end
  13.  
  14. on disposeRearWindow
  15.   global Bd
  16.   if objectp(Bd) then
  17.     Bd(mdispose)
  18.   end if
  19. end
  20.  
  21. on doQT name, chan
  22.   global AnimPath, moviePath, Cnt, chanvols
  23.   if AnimPath = -1 then
  24.     preLoadCast(name)
  25.   else
  26.     set the fileName of cast the number of cast name to AnimPath & name
  27.     preLoadCast(name)
  28.   end if
  29.   put "QT " & name & "PreLoaded? ", the preLoad of cast name
  30.   puppetSprite(chan, 1)
  31.   set the volume of sprite chan to chanvols(mget, 1)
  32.   set the movieRate of sprite chan to 1
  33.   repeat while the movieRate of sprite chan
  34.     if the mouseDown or the controlDown then
  35.       if the controlDown then
  36.         set Cnt to 1
  37.       end if
  38.       set the movieRate of sprite chan to 0
  39.       puppetSprite(chan, 0)
  40.       return 1
  41.     end if
  42.     updateStage()
  43.   end repeat
  44.   puppetSprite(chan, 0)
  45.   return 0
  46. end
  47.