home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / install / COMPACT / SCRIPTS / SOUNDTST.SCA < prev   
Encoding:
Text File  |  1996-05-09  |  3.2 KB  |  82 lines
  1. !ScalaScript
  2. EVENT
  3.     :"Sound test"
  4.     noauthor
  5.  EVENT
  6.    Sequence:
  7.     :"Play Sounds"
  8.     EVENT
  9.       Group:
  10.         Picture("artwork\soundtst\sound.bmp", Margin(10, 10, 0, 0), Tabs(Explicit(80, 160, 240, 320, 400, 480, 560)), UserPalette(RGBPen(1, 0, 16777215, 10066329, 5592405, 7413864, 14632092, 14422286, 6693376, 16734720, 16751616, 16772608, 34816, 56576, 52428, 26367, 170, 7829367, 12303291, 14540253)));
  11.         Wait();
  12.       Sequence:
  13.         Button(BoxedHit(On), LinkPositions(Off), MatchSize(Off), Normal(Clip(552, 447, "..\clips\scala\nstudios.bmp")), Highlight(Clip(552, 437, "..\clips\scala\hstudios.bmp", Transparent(Off))), Select(Clip(552, 437, "..\clips\scala\sstudios.bmp", Transparent(Off)), Quit(1)));
  14.         Button(MatchSize(On), Normal(Clip(440, 36, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(78, 71)))), Select(Use("_TempName1")));
  15.         Button(MatchSize(On), Normal(Clip(539, 93, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(62, 61)))), Select(Use("_TempName2")));
  16.         Button(MatchSize(On), Normal(Clip(582, 175, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(56, 55)))), Select(Use("_TempName3")));
  17.         Button(MatchSize(On), Normal(Clip(580, 251, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(52, 47)))), Select(Use("_TempName4")));
  18.         Button(MatchSize(On), Normal(Clip(554, 317, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(44, 41)))), Select(Use("_TempName7")));
  19.         Button(MatchSize(On), Normal(Clip(515, 360, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(37, 32)))), Select(Use("_TempName6")));
  20.         Button(MatchSize(On), Normal(Clip(471, 386, "artwork\soundtst\play.bmp", Face(Off), Operation(On, Resize(30, 27)))), Select(Use("_TempName5")));
  21.       Resources:
  22.         :_clip1
  23.         Clip(89, 204, "artwork\soundtst\play.bmp");
  24.         :"_TempName1"
  25.         EVENT
  26.           Sequence:
  27.             use(_clip1);
  28.             Sample.Play("artwork\soundtst\test44.wav", Wait(On), Spool(On));
  29.             wipeout(_clip1);
  30.         END
  31.         :"_TempName2"
  32.         EVENT
  33.           Sequence:
  34.             use(_clip1);
  35.             Sample.Play("artwork\soundtst\Stereo1.wav", Wait(On), Spool(On));
  36.             wipeout(_clip1);
  37.         END
  38.         :"_TempName3"
  39.         EVENT
  40.           Sequence:
  41.             use(_clip1);
  42.             Sample.Play("artwork\soundtst\test8.wav", Wait(On), Spool(On));
  43.             wipeout(_clip1);
  44.         END
  45.         :"_TempName4"
  46.         EVENT
  47.           Sequence:
  48.             use(_clip1);
  49.                Sample.Play("artwork\soundtst\testmono.wav", Wait(On), Spool(On));
  50.             wipeout(_clip1);
  51.         END
  52.         :"_TempName5"
  53.         EVENT
  54.           Sequence:
  55.             use(_clip1);
  56.             MIDI.Play("..\music\midi\1news2.mid", Rate(120), Wait(Off));
  57.             Pause(10);
  58.             MIDI.Stop();
  59.             wipeout(_clip1);
  60.         END
  61.         :"_TempName6"
  62.         EVENT
  63.           Sequence:
  64.             use(_clip1);
  65.             CD.Play(1, 1, Wait(Off));
  66.             Pause(10);
  67.             CD.STOP();
  68.             wipeout(_clip1);
  69.         END
  70.         :"_TempName7"
  71.         EVENT
  72.           Sequence:
  73.             use(_clip1);
  74.             CD.Play(2, 1, Wait(Off));
  75.             Pause(10);
  76.             CD.STOP();
  77.             wipeout(_clip1);
  78.         END
  79.     END
  80.  END
  81. END
  82.