home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND2F.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  7.0 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\sound2F.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: Resume^nContinues play of a MIDI file placed on hold by the MIDI: Pause command, from the point where it was suspended.";
  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(midiresumefadein)));
  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(midiresumevol)));
  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(midiresumewait)));
  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. Text(BoxX+BoxW+17,BoxY+130,"MIDI: Pause",Style(LayoutText));
  46. 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)));
  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. :midiresumefadein
  104. {
  105. title="Fade In Time";
  106. text[1]="Defines the time in seconds (from 0 to 99) that the sound increases from no sound to the level set by the Volume slider. 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. :midiresumevol
  113. {
  114. title="Volume slider";
  115. text[1]="Adjusts the loudness of the resumed MIDI file. Default: maximum.";
  116. descr=text[1];
  117. block=1;
  118. max=1;
  119. Use(SetPos);
  120. }
  121. :midiresumewait
  122. {
  123. title="Wait?";
  124. text[1]="Controls the flow of a script. When on, Wait? instructs the program to wait until the Fade-in finishes 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. :sub2g
  181. {
  182. Group:
  183. SubNum="2g";
  184. Quit(1);
  185. }
  186. :sub2h
  187. {
  188. Group:
  189. SubNum="2h";
  190. Quit(1);
  191. }
  192. }
  193.