home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND2G.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  6.9 KB  |  193 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\sound2G.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: Volume^nApplies a volume change to the 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(midivolfade)));
  28. Button(Normal(Box(4,400,208,22,Style(Norm))),Highlight(Box(4,400,208,22,Style(High))),Select(Box(4,400,208,22,Style(Sel)),Use(midivolvolslider)));
  29. 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(midivolwait)));
  30. Wait();
  31. Sequence:
  32. Use(SetUp);
  33. Use(DrawBox);
  34. Button(Wipe("BlindsFantasy3",Speed(7),Direction(90)),Normal(Box(BoxX+BoxW+10,BoxY,115,BoxH,Style(Info))));
  35. Text(BoxX+BoxW+15,BoxY+5,"Sound Screens:",Style(Mid),Justify(Center,Top),Wrap(Off,Auto(340)));
  36. 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)));
  37. Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(LayoutText));
  38. 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)));
  39. 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)));
  40. 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)));
  41. 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)));
  42. 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)));
  43. 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)));
  44. 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)));
  45. 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)));
  46. Text(BoxX+BoxW+17,BoxY+141,"MIDI: Volume",Style(LayoutText));
  47. 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)));
  48. Resources:
  49. :infobutton
  50. {
  51. title="Information button";
  52. text[1]="Switches Scala into Help mode. ";
  53. descr=text[1];
  54. block=1;
  55. max=1;
  56. Use(SetPos);
  57. }
  58. :soundtype
  59. {
  60. title="Sound type buttons";
  61. 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.";
  62. descr=text[1];
  63. block=1;
  64. max=1;
  65. Use(SetPos);
  66. }
  67. :panelpopup
  68. {
  69. title="Panel pop-up";
  70. 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.";
  71. descr=text[1];
  72. block=1;
  73. max=1;
  74. Use(SetPos);
  75. }
  76. :preview
  77. {
  78. title="Preview";
  79. text[1]="Lets you test a sound event by viewing the page with the sound event(s) you have added.";
  80. descr=text[1];
  81. block=1;
  82. max=1;
  83. Use(SetPos);
  84. }
  85. :okbutton
  86. {
  87. title="OK";
  88. text[1]="Accepts changes and exits the Sound menu.";
  89. descr=text[1];
  90. block=1;
  91. max=1;
  92. Use(SetPos);
  93. }
  94. :cancelbutton
  95. {
  96. title="Cancel";
  97. text[1]="Returns to the Main or List menu without applying changes.";
  98. descr=text[1];
  99. block=1;
  100. max=1;
  101. Use(SetPos);
  102. }
  103. :midivolfade
  104. {
  105. title="Fade Time";
  106. text[1]="Specifies the time in seconds (from 0 to 99) taken to adjust the volume of the MIDI file currently playing to match the Volume slider level. Wait? is available with a Fade Time other than zero.";
  107. descr=text[1];
  108. block=1;
  109. max=1;
  110. Use(SetPos);
  111. }
  112. :midivolvolslider
  113. {
  114. title="Volume slider";
  115. text[1]="Adjusts the volume of the current MIDI file. Default: maximum.";
  116. descr=text[1];
  117. block=1;
  118. max=1;
  119. Use(SetPos);
  120. }
  121. :midivolwait
  122. {
  123. title="Wait?";
  124. text[1]="Instructs the script to wait until a Fade completes before proceeding. It is on by default.";
  125. descr=text[1];
  126. block=1;
  127. max=1;
  128. Use(SetPos);
  129. }
  130. }
  131. Resources:
  132. :sub1a
  133. {
  134. Group:
  135. SubNum="1a";
  136. Quit(1);
  137. }
  138. :sub3a
  139. {
  140. Group:
  141. SubNum="3a";
  142. Quit(1);
  143. }
  144. :sub4a
  145. {
  146. Group:
  147. SubNum="4a";
  148. Quit(1);
  149. }
  150. :sub2a
  151. {
  152. Group:
  153. SubNum="2a";
  154. Quit(1);
  155. }
  156. :sub2b
  157. {
  158. Group:
  159. SubNum="2b";
  160. Quit(1);
  161. }
  162. :sub2c
  163. {
  164. Group:
  165. SubNum="2c";
  166. Quit(1);
  167. }
  168. :sub2d
  169. {
  170. Group:
  171. SubNum="2d";
  172. Quit(1);
  173. }
  174. :sub2e
  175. {
  176. Group:
  177. SubNum="2e";
  178. Quit(1);
  179. }
  180. :sub2f
  181. {
  182. Group:
  183. SubNum="2f";
  184. Quit(1);
  185. }
  186. :sub2h
  187. {
  188. Group:
  189. SubNum="2h";
  190. Quit(1);
  191. }
  192. }
  193.