home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND2A.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  8.4 KB  |  233 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\sound2A.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: Play^nPlays a MIDI file. Clicking the File: button opens the File menu, where you can select a MIDI (.MID) file. You can hear selected files by clicking Preview.";
  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(325,356,310,25,Style(Norm))),Highlight(Box(325,356,310,25,Style(High))),Select(Box(325,356,310,25,Style(Sel)),Use(midiplaytempo)));
  28. Button(Normal(Box(325,386,310,25,Style(Norm))),Highlight(Box(325,386,310,25,Style(High))),Select(Box(325,386,310,25,Style(Sel)),Use(midiplayloops)));
  29. Button(Normal(Box(4,416,155,22,Style(Norm))),Highlight(Box(4,416,155,22,Style(High))),Select(Box(4,416,155,22,Style(Sel)),Use(midiplaypanslider)));
  30. Button(Normal(Box(164,416,156,22,Style(Norm))),Highlight(Box(164,416,156,22,Style(High))),Select(Box(164,416,156,22,Style(Sel)),Use(midiplayvolslider)));
  31. Button(Normal(Box(325,416,310,25,Style(Norm))),Highlight(Box(325,416,310,25,Style(High))),Select(Box(325,416,310,25,Style(Sel)),Use(midiplayfadein)));
  32. 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(midiplaywait)));
  33. Button(Normal(Box(4,356,317,26,Style(Norm))),Highlight(Box(4,356,317,26,Style(High))),Select(Box(4,356,317,26,Style(Sel)),Use(sampleplayfile)));
  34. Wait();
  35. Sequence:
  36. Use(SetUp);
  37. Use(DrawBox);
  38. Button(Wipe("BlindsFantasy3",Speed(7),Direction(90)),Normal(Box(BoxX+BoxW+10,BoxY,115,BoxH,Style(Info))));
  39. Text(BoxX+BoxW+15,BoxY+5,"Sound Screens:",Style(Mid),Justify(Center,Top),Wrap(Off,Auto(340)));
  40. 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)));
  41. Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(LayoutText));
  42. 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)));
  43. 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)));
  44. Text(BoxX+BoxW+17,BoxY+75,"MIDI: Play",Style(LayoutText));
  45. 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)));
  46. 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)));
  47. 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)));
  48. 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)));
  49. 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)));
  50. 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)));
  51. 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)));
  52. Resources:
  53. :infobutton
  54. {
  55. title="Information button";
  56. text[1]="Switches Scala into Help mode. ";
  57. descr=text[1];
  58. block=1;
  59. max=1;
  60. Use(SetPos);
  61. }
  62. :soundtype
  63. {
  64. title="Sound type buttons";
  65. 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.";
  66. descr=text[1];
  67. block=1;
  68. max=1;
  69. Use(SetPos);
  70. }
  71. :panelpopup
  72. {
  73. title="Panel pop-up";
  74. 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.";
  75. descr=text[1];
  76. block=1;
  77. max=1;
  78. Use(SetPos);
  79. }
  80. :preview
  81. {
  82. title="Preview";
  83. text[1]="Lets you test a sound event by viewing the page with the sound event(s) you have added.";
  84. descr=text[1];
  85. block=1;
  86. max=1;
  87. Use(SetPos);
  88. }
  89. :okbutton
  90. {
  91. title="OK";
  92. text[1]="Accepts changes and exits the Sound menu.";
  93. descr=text[1];
  94. block=1;
  95. max=1;
  96. Use(SetPos);
  97. }
  98. :cancelbutton
  99. {
  100. title="Cancel";
  101. text[1]="Returns to the Main or List menu without applying changes.";
  102. descr=text[1];
  103. block=1;
  104. max=1;
  105. Use(SetPos);
  106. }
  107. :midiplaytempo
  108. {
  109. title="Tempo";
  110. text[1]="Adjusts the speed in Beats per Minute (BPM) at which the MIDI file is played.";
  111. descr=text[1];
  112. block=1;
  113. max=1;
  114. Use(SetPos);
  115. }
  116. :midiplayloops
  117. {
  118. title="Loops";
  119. text[1]="Define the number of times (from 1 to 99, or infinite) that the MIDI file is repeated before the next page in the script is displayed or the MIDI file is stopped.";
  120. descr=text[1];
  121. block=1;
  122. max=1;
  123. Use(SetPos);
  124. }
  125. :midiplaypanslider
  126. {
  127. title="Pan slider";
  128. text[1]="Sets the left/right balance of the sound. Default: centered.";
  129. descr=text[1];
  130. block=1;
  131. max=1;
  132. Use(SetPos);
  133. }
  134. :midiplayvolslider
  135. {
  136. title="Volume slider";
  137. text[1]="Adjusts the loudness of the sound. Default: maximum.";
  138. descr=text[1];
  139. block=1;
  140. max=1;
  141. Use(SetPos);
  142. }
  143. :midiplayfadein
  144. {
  145. title="Fade In Time";
  146. text[1]="Defines the time in seconds (from 0 to 99) that the sound takes to increase from no sound to the level set by the Volume slider. Wait? is available with a Fade Time other than zero.";
  147. descr=text[1];
  148. block=1;
  149. max=1;
  150. Use(SetPos);
  151. }
  152. :midiplaywait
  153. {
  154. title="Wait?";
  155. text[1]="Controls the flow of a script. When on, Wait? prevents the script from proceeding until the current MIDI file finishes. It is on by default.";
  156. descr=text[1];
  157. block=1;
  158. max=1;
  159. Use(SetPos);
  160. }
  161. :sampleplayfile
  162. {
  163. title="File:...";
  164. text[1]="Indicates the current MIDI file.  Clicking on this button takes you to the File menu, where you can select another MIDI file.";
  165. descr=text[1];
  166. block=1;
  167. max=1;
  168. Use(SetPos);
  169. }
  170. }
  171. Resources:
  172. :sub1a
  173. {
  174. Group:
  175. SubNum="1a";
  176. Quit(1);
  177. }
  178. :sub3a
  179. {
  180. Group:
  181. SubNum="3a";
  182. Quit(1);
  183. }
  184. :sub4a
  185. {
  186. Group:
  187. SubNum="4a";
  188. Quit(1);
  189. }
  190. :sub2b
  191. {
  192. Group:
  193. SubNum="2b";
  194. Quit(1);
  195. }
  196. :sub2c
  197. {
  198. Group:
  199. SubNum="2c";
  200. Quit(1);
  201. }
  202. :sub2d
  203. {
  204. Group:
  205. SubNum="2d";
  206. Quit(1);
  207. }
  208. :sub2e
  209. {
  210. Group:
  211. SubNum="2e";
  212. Quit(1);
  213. }
  214. :sub2f
  215. {
  216. Group:
  217. SubNum="2f";
  218. Quit(1);
  219. }
  220. :sub2g
  221. {
  222. Group:
  223. SubNum="2g";
  224. Quit(1);
  225. }
  226. :sub2h
  227. {
  228. Group:
  229. SubNum="2h";
  230. Quit(1);
  231. }
  232. }
  233.