home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND2E.SCA < prev    next >
Text File  |  1996-05-14  |  7KB  |  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\sound2E.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: Pause^nTemporarily stops the MIDI file that is playing. You can continue the file as required later in the script with a MIDI: Resume event. (If the file will not be resumed, use MIDI: Stop instead).";
  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(midipausefadeout)));
  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(midipausewait)));
  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. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+108,"MIDI: Stop",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+108,"MIDI: Stop",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+108,"MIDI: Stop",Style(Layout3)),goto(sub2d)));
  43. Text(BoxX+BoxW+17,BoxY+119,"MIDI: Resume",Style(LayoutText));
  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. :midipausefadeout
  103. {
  104. title="Fade Out Time";
  105. text[1]="Defines the time in seconds (from 0 to 99) in which all 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. :midipausewait
  112. {
  113. title="Wait?";
  114. text[1]="Controls the flow of a script. When on, Wait? instructs the program to wait until the 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. :sub2d
  159. {
  160. Group:
  161. SubNum="2d";
  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.