home *** CD-ROM | disk | FTP | other *** search
/ Speed Learning System: Painter 5.0 #3 / Paint5Vol3.iso / pc / cdp12.dxr / 00063_introMouseDownScript.ls < prev    next >
Encoding:
Text File  |  1996-01-26  |  593 b   |  30 lines
  1. global gIntroMovieFlag, theQTMovie, gQuick
  2.  
  3. on introMouseDownScript
  4.   if frame() = 4 then
  5.     repeat while the stillDown
  6.     end repeat
  7.     if gQuick then
  8.       QTPause(theQTMovie)
  9.       QTDispose(theQTMovie)
  10.       go("StartMode")
  11.     else
  12.       if gIntroMovieFlag then
  13.         QTPlay(theQTMovie)
  14.         set gIntroMovieFlag to 0
  15.       else
  16.         QTPause(theQTMovie)
  17.         QTDispose(theQTMovie)
  18.         go("introPause")
  19.       end if
  20.     end if
  21.   else
  22.     if frame() > 4 then
  23.       repeat while the stillDown
  24.       end repeat
  25.       go("StartMode")
  26.     end if
  27.   end if
  28.   dontPassEvent()
  29. end
  30.