home *** CD-ROM | disk | FTP | other *** search
/ The VPRO Digital Guide 1994 / vpro.iso / vpro1 / sf.dir / 00001.ls next >
Encoding:
Text File  |  1994-08-28  |  3.1 KB  |  122 lines
  1. on LocalStartMovie
  2.   global gSpecNav
  3.   set gSpecNav to 1
  4.   HideRandoms()
  5.   set the visible of sprite 28 to 0
  6.   set the visible of sprite 29 to 0
  7.   set the visible of sprite 30 to 0
  8.   HideAudioControls()
  9. end
  10.  
  11. on SpecialNavigation
  12.   global theSpriteList, nowPlaying, gDirection
  13.   if nowPlaying = 1 then
  14.     CleanUpZappedText()
  15.     ExitVideoThirty()
  16.     CleanUpZappedSound()
  17.   end if
  18.   if integer(gDirection) = 4 then
  19.     puppetSound("SETCLOCK.AIF")
  20.   end if
  21.   set nowPlaying to 0
  22.   set theSpriteList to "4,5,6,7,8,9,10,11,12,13,14"
  23.   ToggleSprites(theSpriteList, 0)
  24. end
  25.  
  26. on DoSomeRandomShit
  27.   global gMediaType, FileChoice, nowPlaying, CurMoovSprite, BGHolder, Char3
  28.   set the soundEnabled to 0
  29.   set the soundLevel to 7
  30.   if nowPlaying = 1 then
  31.     CleanUpMultiMedia()
  32.   end if
  33.   repeat with count = 29 to 31
  34.     puppetSprite(count, 1)
  35.   end repeat
  36.   set holder to RandMedia("Video,Text,Geluid") & " " & Char3
  37.   if holder contains "Video" then
  38.     set gMediaType to "Moov"
  39.     set nowPlaying to 1
  40.     DispQTControls()
  41.     set CurMoovSprite to 30
  42.   end if
  43.   if holder contains "Geluid" then
  44.     set gMediaType to "Aiff"
  45.     DispAudioControls()
  46.     set nowPlaying to 1
  47.   end if
  48.   if holder contains "Text" then
  49.     set gMediaType to "text"
  50.     HideAudioControls()
  51.     set nowPlaying to 1
  52.   end if
  53.   set rScriptToDo to holder
  54.   do(rScriptToDo)
  55.   set BGHolder to the castNum of sprite 29
  56.   if soundBusy(1) then
  57.     sound stop 1
  58.   end if
  59.   puppetSound(0)
  60.   set the soundEnabled to 0
  61.   setupRandomMedia()
  62.   if gMediaType = "Moov" then
  63.     DisplayVideo("same", FileChoice, 1, "none")
  64.     set the volume of sprite integer(CurMoovSprite) to 256
  65.   end if
  66.   if gMediaType = "Aiff" then
  67.     DisplayGeluidPup(EMPTY, FileChoice, 1, "none")
  68.     set the soundLevel to 7
  69.   end if
  70.   if gMediaType = "Text" then
  71.     set the text of cast "TextHolder" to the text of cast FileChoice
  72.     set the visible of sprite 31 to 1
  73.   end if
  74. end
  75.  
  76. on CleanUpMultiMedia
  77.   global nowPlaying, BGHolder
  78.   set the castNum of sprite 29 to BGHolder
  79.   set nowPlaying to 0
  80.   set the visible of sprite 29 to 0
  81.   if the visible of sprite 31 then
  82.     CleanUpZappedText()
  83.   end if
  84.   if the visible of sprite 30 then
  85.     CleanVidExit()
  86.   end if
  87.   CleanUpZappedSound()
  88. end
  89.  
  90. on setupRandomMedia
  91.   global gMediaType
  92.   puppetSound(0)
  93.   set the soundEnabled to 0
  94.   if the castNum of sprite 30 <> 0 then
  95.     if the castType of cast the name of cast the castNum of sprite 30 = #digitalVideo then
  96.       set the volume of sprite 30 to 255
  97.     end if
  98.   end if
  99. end
  100.  
  101. on CleanUpZappedText
  102.   global FileChoice, gSoundLoop
  103.   set gSoundLoop to EMPTY
  104.   if voidp(FileChoice) then
  105.     set FileChoice to "Text"
  106.   end if
  107.   puppetSound(0)
  108.   puppetSprite(31, 0)
  109.   set FileChoice to StripExt(FileChoice)
  110.   if the last char in FileChoice = "a" then
  111.     delete char the length of FileChoice of FileChoice
  112.     if the last char in FileChoice = "." then
  113.       delete char the length of FileChoice of FileChoice
  114.     end if
  115.     set FileChoice to FileChoice & ".b"
  116.     set the text of cast "TextHolder" to the text of cast FileChoice
  117.     updateStage()
  118.   else
  119.     set the visible of sprite 31 to 0
  120.   end if
  121. end
  122.