home *** CD-ROM | disk | FTP | other *** search
/ The VPRO Digital Guide 1994 / vpro.iso / vpro1 / md.dir / 00170.ls < prev    next >
Encoding:
Text File  |  1994-08-28  |  835 b   |  30 lines
  1. on mouseDown
  2.   global gMediaType, nowPlaying
  3.   if nowPlaying = 1 then
  4.     set the visible of sprite 6 to 0
  5.     HideRandoms()
  6.   end if
  7. end
  8.  
  9. on mouseUp
  10.   global Chars4and5, CurMoovSprite, FileChoice, nowPlaying
  11.   set holder to the clickOn - 1 + ((integer(Chars4and5) - 2) * 4)
  12.   RandVideo(holder)
  13.   set CurMoovSprite to 32
  14.   set the soundEnabled to 0
  15.   set tekstNaam to getMyText(FileChoice)
  16.   if (tekstNaam <> EMPTY) and not voidp(tekstNaam) then
  17.     if the number of cast tekstNaam > 0 then
  18.       set the text of cast "theTextField" to the text of cast tekstNaam
  19.       set the visible of sprite 6 to 1
  20.     else
  21.       set the visible of sprite 6 to 0
  22.     end if
  23.   else
  24.     set the visible of sprite 6 to 0
  25.   end if
  26.   updateStage()
  27.   set FileChoice to FileChoice & ".mov"
  28.   DisplayVideo("none", FileChoice, 1, "none", CurMoovSprite)
  29. end
  30.