home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / multimedia / scala / HELP / SOUND3A.SCA < prev    next >
Encoding:
Text File  |  1996-05-14  |  10.6 KB  |  295 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\sound3A.gif",transparent(off));
  18.     title="";
  19. pagename="Sound Menu:CD panels";
  20. pagedescr="Lets you access audio tracks available on standard audio compact discs. Use the Panel pop-up to choose from thirteen functions available: Play, Play MSF, Sync, Wait, Stop, Pause, Resume, Eject, Read Contents, Next, Previous, Volume and Pan.^n^nCD: Play^nSelects and plays a segment of one or more contiguous tracks on an audio CD.";
  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(214,450,103,25,Style(Norm))),Highlight(Box(214,450,103,25,Style(High))),Select(Box(214,450,103,25,Style(Sel)),Use(cdunit)));
  23. Button(Normal(Box(322,450,102,25,Style(Norm))),Highlight(Box(322,450,102,25,Style(High))),Select(Box(322,450,102,25,Style(Sel)),Use(newcd)));
  24. 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)));
  25. 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)));
  26. 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)));
  27. 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)));
  28. 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)));
  29. Button(Normal(Box(216,356,207,25,Style(Norm))),Highlight(Box(216,356,207,25,Style(High))),Select(Box(216,356,207,25,Style(Sel)),Use(cdplaytrackin)));
  30. Button(Normal(Box(216,386,207,25,Style(Norm))),Highlight(Box(216,386,207,25,Style(High))),Select(Box(216,386,207,25,Style(Sel)),Use(cdplaytrackout)));
  31. Button(Normal(Box(428,416,207,25,Style(Norm))),Highlight(Box(428,416,207,25,Style(High))),Select(Box(428,416,207,25,Style(Sel)),Use(cdplayloops)));
  32. Button(Normal(Box(4,416,207,22,Style(Norm))),Highlight(Box(4,416,207,22,Style(High))),Select(Box(4,416,207,22,Style(Sel)),Use(cdplayvol)));
  33. Button(Normal(Box(216,416,207,25,Style(Norm))),Highlight(Box(216,416,207,25,Style(High))),Select(Box(216,416,207,25,Style(Sel)),Use(cdplayfadein)));
  34. Button(Normal(Box(4,370,207,22,Style(Norm))),Highlight(Box(4,370,207,22,Style(High))),Select(Box(4,370,207,22,Style(Sel)),Use(cdplaypan)));
  35. 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(cdplaywait)));
  36. Wait();
  37. Sequence:
  38. Use(SetUp);
  39. Use(DrawBox);
  40. Button(Wipe("BlindsFantasy3",Speed(7),Direction(90)),Normal(Box(BoxX+BoxW+10,BoxY,115,BoxH,Style(Info))));
  41. Text(BoxX+BoxW+15,BoxY+5,"Sound Screens:",Style(Mid),Justify(Center,Top),Wrap(Off,Auto(340)));
  42. 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)));
  43. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+36,"MIDI",Style(layout3)),goto(sub2a)));
  44. Text(BoxX+BoxW+17,BoxY+47,"CD",Style(LayoutText));
  45. 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)));
  46. Text(BoxX+BoxW+17,BoxY+75,"CD: Play",Style(LayoutText));
  47. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+86,"CD: None",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+86,"CD: None",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+86,"CD: None",Style(Layout3)),goto(sub3b)));
  48. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+97,"CD: Play MSF",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+97,"CD: Play MSF",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+97,"CD: Play MSF",Style(Layout3)),goto(sub3c)));
  49. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+108,"CD: Sync",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+108,"CD: Sync",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+108,"CD: Sync",Style(Layout3)),goto(sub3d)));
  50. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+119,"CD: Wait",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+119,"CD: Wait",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+119,"CD: Wait",Style(Layout3)),goto(sub3e)));
  51. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+130,"CD: Stop",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+130,"CD: Stop",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+130,"CD: Stop",Style(Layout3)),goto(sub3f)));
  52. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+141,"CD: Pause",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+141,"CD: Pause",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+141,"CD: Pause",Style(Layout3)),goto(sub3g)));
  53. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+152,"CD: Resume",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+152,"CD: Resume",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+152,"CD: Resume",Style(Layout3)),goto(sub3h)));
  54. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+163,"CD: Eject",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+163,"CD: Eject",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+163,"CD: Eject",Style(Layout3)),goto(sub3i)));
  55. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+174,"CD: Read Contents",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+174,"CD: Read Contents",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+174,"CD: Read Contents",Style(Layout3)),goto(sub3j)));
  56. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+185,"CD: Next",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+185,"CD: Next",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+185,"CD: Next",Style(Layout3)),goto(sub3k)));
  57. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+196,"CD: Previous",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+196,"CD: Previous",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+196,"CD: Previous",Style(Layout3)),goto(sub3l)));
  58. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+207,"CD: Volume",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+207,"CD: Volume",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+207,"CD: Volume",Style(Layout3)),goto(sub3m)));
  59. Button(MatchSize(On),Normal(Text(BoxX+BoxW+17,BoxY+218,"CD: Pan",Style(Layout1))),Highlight(Text(BoxX+BoxW+17,BoxY+218,"CD: Pan",Style(Layout2))),Select(Text(BoxX+BoxW+17,BoxY+218,"CD: Pan",Style(Layout3)),goto(sub3n)));
  60. Resources:
  61. :infobutton
  62. {
  63. title="Information button";
  64. text[1]="Switches Scala into Help mode. ";
  65. descr=text[1];
  66. block=1;
  67. max=1;
  68. Use(SetPos);
  69. }
  70. :cdunit
  71. {
  72. title="CD Unit";
  73. text[1]="If you have more than one CD-ROM drive, or a multi-unit drive, Scala displays an additional button on the CD control panels, CD Unit. You can access different discs in multiple drives by selecting the unit number with this control.";
  74. descr=text[1];
  75. block=1;
  76. max=1;
  77. Use(SetPos);
  78. }
  79. :newcd
  80. {
  81. title="New CD!";
  82. text[1]="Makes Scala read the table of contents of the CD in the drive, so that track numbers and times can be displayed correctly. It should always be used after you change CDs in the drive. All CD control panels have the New CD! button.";
  83. descr=text[1];
  84. block=1;
  85. max=1;
  86. Use(SetPos);
  87. }
  88. :soundtype
  89. {
  90. title="Sound type buttons";
  91. 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.";
  92. descr=text[1];
  93. block=1;
  94. max=1;
  95. Use(SetPos);
  96. }
  97. :panelpopup
  98. {
  99. title="Panel pop-up";
  100. 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.";
  101. descr=text[1];
  102. block=1;
  103. max=1;
  104. Use(SetPos);
  105. }
  106. :preview
  107. {
  108. title="Preview";
  109. text[1]="Lets you test a sound event by viewing the page with the sound event(s) you have added.";
  110. descr=text[1];
  111. block=1;
  112. max=1;
  113. Use(SetPos);
  114. }
  115. :okbutton
  116. {
  117. title="OK";
  118. text[1]="Accepts changes and exits the Sound menu.";
  119. descr=text[1];
  120. block=1;
  121. max=1;
  122. Use(SetPos);
  123. }
  124. :cancelbutton
  125. {
  126. title="Cancel";
  127. text[1]="Returns to the Main or List menu without applying changes.";
  128. descr=text[1];
  129. block=1;
  130. max=1;
  131. Use(SetPos);
  132. }
  133. :cdplaytrackin
  134. {
  135. title="Track In";
  136. text[1]="Specifies the CD track number at which to begin play.";
  137. descr=text[1];
  138. block=1;
  139. max=1;
  140. Use(SetPos);
  141. }
  142. :cdplaytrackout
  143. {
  144. title="Track Out";
  145. text[1]="Specifies the CD track number at which to end play.";
  146. descr=text[1];
  147. block=1;
  148. max=1;
  149. Use(SetPos);
  150. }
  151. :cdplayloops
  152. {
  153. title="Loops";
  154. text[1]="Define the number of times (from 1 to 99, or infinite) that the CD segment repeats.";
  155. descr=text[1];
  156. block=1;
  157. max=1;
  158. Use(SetPos);
  159. }
  160. :cdplayvol
  161. {
  162. title="Volume slider";
  163. text[1]="Adjusts the volume. Default: maximum.";
  164. descr=text[1];
  165. block=1;
  166. max=1;
  167. Use(SetPos);
  168. }
  169. :cdplayfadein
  170. {
  171. title="Fade In Time";
  172. 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-in Time other than zero.";
  173. descr=text[1];
  174. block=1;
  175. max=1;
  176. Use(SetPos);
  177. }
  178. :cdplaypan
  179. {
  180. title="Pan slider";
  181. text[1]="Sets the left/right balance. Default: centered.";
  182. descr=text[1];
  183. block=1;
  184. max=1;
  185. Use(SetPos);
  186. }
  187. :cdplaywait
  188. {
  189. title="Wait?";
  190. text[1]="Controls the flow of the script. When on, Wait? instructs the script to wait until the CD event defined finishes before proceeding. It is on by default.";
  191. descr=text[1];
  192. block=1;
  193. max=1;
  194. Use(SetPos);
  195. }
  196. }
  197. Resources:
  198. :sub1a
  199. {
  200. Group:
  201. SubNum="1a";
  202. Quit(1);
  203. }
  204. :sub2a
  205. {
  206. Group:
  207. SubNum="2a";
  208. Quit(1);
  209. }
  210. :sub4a
  211. {
  212. Group:
  213. SubNum="4a";
  214. Quit(1);
  215. }
  216. :sub3b
  217. {
  218. Group:
  219. SubNum="3b";
  220. Quit(1);
  221. }
  222. :sub3c
  223. {
  224. Group:
  225. SubNum="3c";
  226. Quit(1);
  227. }
  228. :sub3d
  229. {
  230. Group:
  231. SubNum="3d";
  232. Quit(1);
  233. }
  234. :sub3e
  235. {
  236. Group:
  237. SubNum="3e";
  238. Quit(1);
  239. }
  240. :sub3f
  241. {
  242. Group:
  243. SubNum="3f";
  244. Quit(1);
  245. }
  246. :sub3g
  247. {
  248. Group:
  249. SubNum="3g";
  250. Quit(1);
  251. }
  252. :sub3h
  253. {
  254. Group:
  255. SubNum="3h";
  256. Quit(1);
  257. }
  258. :sub3i
  259. {
  260. Group:
  261. SubNum="3i";
  262. Quit(1);
  263. }
  264. :sub3j
  265. {
  266. Group:
  267. SubNum="3j";
  268. Quit(1);
  269. }
  270. :sub3k
  271. {
  272. Group:
  273. SubNum="3k";
  274. Quit(1);
  275. }
  276. :sub3l
  277. {
  278. Group:
  279. SubNum="3l";
  280. Quit(1);
  281. }
  282. :sub3m
  283. {
  284. Group:
  285. SubNum="3m";
  286. Quit(1);
  287. }
  288. :sub3n
  289. {
  290. Group:
  291. SubNum="3n";
  292. Quit(1);
  293. }
  294. }
  295.