home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND2D.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  6.6 KB  |  183 lines

  1. !ScalaScript
  2. {
  3. Sequence:
  4. :"SubScript"
  5. {
  6. Group:
  7. BoxX.1=139;
  8. BoxY.1=37;
  9. BoxX.2=0;
  10. BoxY.2=0;
  11. BoxX=BoxX.1;
  12. BoxY=BoxY.1;
  13. BoxW=360;
  14. BoxH=249;
  15. Descr="Click a button to get information about it!";
  16. Picture("Scala:\help\graphics\soundbak.gif",UserPalette(RGBPen(1,0,16777215,12632256,5592405,8553090,11184810)));
  17. Clip(0,292,"Scala:\help\graphics\sound2D.gif",transparent(off));
  18.     title="";
  19. pagename="Sound Menu:MIDI panels";
  20. pagedescr="Lets you control options related to MIDI music files. Use the Panel pop-up to choose from the seven functions available: Play, Wait, Stop, Pause, Resume, Volume and Pan.^n^nMIDI: Stop^nStops any MIDI file currently playing.";
  21. Button(Normal(Box(620,292,19,25,Style(Norm))),Highlight(Box(620,292,19,25,Style(High))),Select(Box(620,292,19,25,Style(Sel)),Use(infobutton)));
  22. Button(Normal(Box(4,322,415,25,Style(Norm))),Highlight(Box(4,322,415,25,Style(High))),Select(Box(4,322,415,25,Style(Sel)),Use(soundtype)));
  23. Button(Normal(Box(426,322,209,25,Style(Norm))),Highlight(Box(426,322,209,25,Style(High))),Select(Box(426,322,209,25,Style(Sel)),Use(panelpopup)));
  24. Button(Normal(Box(4,450,100,25,Style(Norm))),Highlight(Box(4,450,100,25,Style(High))),Select(Box(4,450,100,25,Style(Sel)),Use(preview)));
  25. Button(Normal(Box(429,450,100,25,Style(Norm))),Highlight(Box(429,450,100,25,Style(High))),Select(Box(429,450,100,25,Style(Sel)),Use(okbutton)));
  26. Button(Normal(Box(534,450,101,25,Style(Norm))),Highlight(Box(534,450,101,25,Style(High))),Select(Box(534,450,101,25,Style(Sel)),Use(cancelbutton)));
  27. Button(Normal(Box(4,356,208,25,Style(Norm))),Highlight(Box(4,356,208,25,Style(High))),Select(Box(4,356,208,25,Style(Sel)),Use(midistopfadeout)));
  28. Button(Normal(Box(109,450,100,25,Style(Norm))),Highlight(Box(109,450,100,25,Style(High))),Select(Box(109,450,100,25,Style(Sel)),Use(midistopwait)));
  29. Wait();
  30. Sequence:
  31. Use(SetUp);
  32. Use(DrawBox);
  33. Button(Wipe("BlindsFantasy3",Speed(7),Direction(90)),Normal(Box(BoxX+BoxW+10,BoxY,115,BoxH,Style(Info))));
  34. Text(BoxX+BoxW+15,BoxY+5,"Sound Screens:",Style(Mid),Justify(Center,Top),Wrap(Off,Auto(340)));
  35. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+25,"Sample",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+25,"Sample",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+25,"Sample",Style(Layout3)),goto(sub1a)));
  36. Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(LayoutText));
  37. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+47,"CD",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+47,"CD",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+47,"CD",Style(Layout3)),goto(sub3a)));
  38. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+58,"Mixer",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+58,"Mixer",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+58,"Mixer",Style(Layout3)),goto(sub4a)));
  39. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+75,"MIDI: Play",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+75,"MIDI: Play",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+75,"MIDI: Play",Style(Layout3)),goto(sub2a)));
  40. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+86,"MIDI: None",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+86,"MIDI: None",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+86,"MIDI: None",Style(Layout3)),goto(sub2b)));
  41. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+97,"MIDI: Wait",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+97,"MIDI: Wait",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+97,"MIDI: Wait",Style(Layout3)),goto(sub2c)));
  42. Text(BoxX+BoxW+17,BoxY+108,"MIDI: Stop",Style(LayoutText));
  43. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+119,"MIDI: Resume",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+119,"MIDI: Resume",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+119,"MIDI: Resume",Style(Layout3)),goto(sub2e)));
  44. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+130,"MIDI: Pause",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+130,"MIDI: Pause",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+130,"MIDI: Pause",Style(Layout3)),goto(sub2f)));
  45. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+141,"MIDI: Volume",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+141,"MIDI: Volume",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+141,"MIDI: Volume",Style(Layout3)),goto(sub2g)));
  46. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+152,"MIDI: Pan",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+152,"MIDI: Pan",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+152,"MIDI: Pan",Style(Layout3)),goto(sub2h)));
  47. Resources:
  48. :infobutton
  49. {
  50. title="Information button";
  51. text[1]="Switches Scala into Help mode. ";
  52. descr=text[1];
  53. block=1;
  54. max=1;
  55. Use(SetPos);
  56. }
  57. :soundtype
  58. {
  59. title="Sound type buttons";
  60. text[1]="Select a type of sound event - Sample, MIDI, CD or Mixer. Each sound type has its own set of control panels. Clicking on a Sound button in the Main or List menus opens the Sound menu and activates the Sound control panel that applies to that event. If no sound event has been defined, Sample is selected.";
  61. descr=text[1];
  62. block=1;
  63. max=1;
  64. Use(SetPos);
  65. }
  66. :panelpopup
  67. {
  68. title="Panel pop-up";
  69. text[1]="Lets you access the control panels for the selected sound type events. ^"None^" on this button indicates that no sound event of that type is defined for the current element or page.^n^nChanges made in the sound settings are not displayed on the column button until you accept them and return to the Main menu, or move to another page.";
  70. descr=text[1];
  71. block=1;
  72. max=1;
  73. Use(SetPos);
  74. }
  75. :preview
  76. {
  77. title="Preview";
  78. text[1]="Lets you test a sound event by viewing the page with the sound event(s) you have added.";
  79. descr=text[1];
  80. block=1;
  81. max=1;
  82. Use(SetPos);
  83. }
  84. :okbutton
  85. {
  86. title="OK";
  87. text[1]="Accepts changes and exits the Sound menu.";
  88. descr=text[1];
  89. block=1;
  90. max=1;
  91. Use(SetPos);
  92. }
  93. :cancelbutton
  94. {
  95. title="Cancel";
  96. text[1]="Returns to the Main or List menu without applying changes.";
  97. descr=text[1];
  98. block=1;
  99. max=1;
  100. Use(SetPos);
  101. }
  102. :midistopfadeout
  103. {
  104. title="Fade Out Time";
  105. text[1]="Defines the time in seconds (from 0 to 99) that MIDI sounds decrease from the level set by the Volume slider to no sound. Default: zero. Wait? is available with a Fade-out Time other than zero.";
  106. descr=text[1];
  107. block=1;
  108. max=1;
  109. Use(SetPos);
  110. }
  111. :midistopwait
  112. {
  113. title="Wait?";
  114. text[1]="Controls the flow of a script. When on, Wait? instructs the script to wait until a Fade-out finishes before proceeding. It is on by default.";
  115. descr=text[1];
  116. block=1;
  117. max=1;
  118. Use(SetPos);
  119. }
  120. }
  121. Resources:
  122. :sub1a
  123. {
  124. Group:
  125. SubNum="1a";
  126. Quit(1);
  127. }
  128. :sub3a
  129. {
  130. Group:
  131. SubNum="3a";
  132. Quit(1);
  133. }
  134. :sub4a
  135. {
  136. Group:
  137. SubNum="4a";
  138. Quit(1);
  139. }
  140. :sub2a
  141. {
  142. Group:
  143. SubNum="2a";
  144. Quit(1);
  145. }
  146. :sub2b
  147. {
  148. Group:
  149. SubNum="2b";
  150. Quit(1);
  151. }
  152. :sub2c
  153. {
  154. Group:
  155. SubNum="2c";
  156. Quit(1);
  157. }
  158. :sub2e
  159. {
  160. Group:
  161. SubNum="2e";
  162. Quit(1);
  163. }
  164. :sub2f
  165. {
  166. Group:
  167. SubNum="2f";
  168. Quit(1);
  169. }
  170. :sub2g
  171. {
  172. Group:
  173. SubNum="2g";
  174. Quit(1);
  175. }
  176. :sub2h
  177. {
  178. Group:
  179. SubNum="2h";
  180. Quit(1);
  181. }
  182. }
  183.