home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / carlstck.sit / CarolStack / card_3156.txt < prev    next >
Text File  |  1990-11-30  |  16KB  |  579 lines
  1. -- card: 3156 from stack: in
  2. -- bmap block id: 2545
  3. -- flags: 0000
  4. -- background id: 2585
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global choices
  9.   send SetMe to button "hVolume"
  10.   send mouseDown to btn id 34
  11.   send mouseDown to btn id 36
  12.   pass openCard
  13. end openCard
  14.  
  15. on playAll
  16.   hide msg
  17.   repeat with i = 1 to the number of buttons
  18.     if the short name of button i is not "Home" then send mouseUp to button i
  19.     if the mouse is down then exit repeat
  20.   end repeat
  21. end playAll
  22.  
  23. on playForever
  24.   repeat
  25.     PlayAll
  26.     if the mouse is down then exit repeat
  27.   end repeat
  28. end playForever
  29.  
  30.  
  31. -- part 1 (button)
  32. -- low flags: 00
  33. -- high flags: 8003
  34. -- rect: left=2 top=226 right=269 bottom=121
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 6
  39. -- text size: 18
  40. -- style flags: 0
  41. -- line height: 24
  42. -- part name: Jingle Bells
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   global instrument,speed
  46.   push card
  47.   visual dissolve slowly
  48.   go next card
  49.   put the short name of me into card field 1
  50.   wait 60
  51.   play instrument tempo speed+100 "DQ BQ AQ GQ DH. DE DE DQ BQ AQ GQ EW EQ C5Q B4Q AQ F#H. F#Q D5Q DQ CQ A4Q BH. DQ DQ BQ AQ GQ DH. DQ DQ BQ AQ GQ EH. EQ EQ C5Q B4Q AQ D5Q DQ DQ DQ EQ DQ C5Q A4Q GH D5H"
  52.   play instrument tempo speed+100 "BQ BQ BH BQ BQ BH BQ D5Q G4Q. AE BW C5Q CQ CQ. CE CQ B4Q BQ BE BE BQ AQ AQ BQ AH D5H B4Q BQ BH BQ BQ BH BQ D5Q G4Q. AE BW C5Q CQ CQ. CE CQ B4Q BQ BE BE D5Q DQ CQ A4Q GW"
  53.   wait until the sound is "done" or the mouse is down
  54.   play stop
  55.   visual dissolve slowly
  56.   pop card
  57. end mouseup
  58.  
  59.  
  60. -- part 5 (button)
  61. -- low flags: 00
  62. -- high flags: 8003
  63. -- rect: left=70 top=274 right=317 bottom=237
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 6
  68. -- text size: 18
  69. -- style flags: 0
  70. -- line height: 24
  71. -- part name: Joy to the World
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   global instrument,speed
  75.   push card
  76.   visual dissolve slowly
  77.   go next card
  78.   put the short name of me into card field 1
  79.   wait 60
  80.   play instrument tempo speed "D5Q C#E. B4S AQ. GE F#Q EQ DQ. AE BQ. BE C5#Q. C#E DW DE DE C#E B4E AE AE. GS F#E D5E DE C#E B4E AE AE. GS F#E F#E F#E F#E F#E F#S GS AQ. GS F#S EE EE EE ES F#S GQ. F#S ES DE D5Q B4E AE. GS F#E GE F#Q EQ DH"
  81.   wait until the sound is "done" or the mouse is down
  82.   play stop
  83.   visual dissolve slowly
  84.   pop card
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 14 (button)
  90. -- low flags: 00
  91. -- high flags: 8003
  92. -- rect: left=128 top=225 right=268 bottom=266
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 6
  97. -- text size: 18
  98. -- style flags: 0
  99. -- line height: 24
  100. -- part name: Deck the Halls
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global instrument,speed
  104.   push card
  105.   visual dissolve slowly
  106.   go next card
  107.   put the short name of me into card field 1
  108.   wait 60
  109.   play instrument tempo speed+100 "AQ. GE F#Q EQ DQ EQ F#Q DQ EE F#E GE EE F#Q. EE DQ C#Q DH AQ. GE F#Q EQ DQ EQ F#Q DQ EE F#E GE EE F#Q. EE DQ C#Q DH EQ. F#E GQ EQ F#Q. GE AQ EQ F#E G#E AQ BE C5#E DQ C#Q B4Q AH AQ. GE F#Q EQ DQ EQ F#Q DQ BE BE BE BE AQ. GE F#Q EQ DH"
  110.   wait until the sound is "done" or the mouse is down
  111.   play stop
  112.   visual dissolve slowly
  113.   pop card
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 23 (button)
  119. -- low flags: 00
  120. -- high flags: 8003
  121. -- rect: left=270 top=225 right=268 bottom=511
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 6
  126. -- text size: 18
  127. -- style flags: 0
  128. -- line height: 24
  129. -- part name: O Come, All Ye Faithful
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   global instrument,speed
  133.   push card
  134.   visual dissolve slowly
  135.   go next card
  136.   put the short name of me into card field 1
  137.   wait 60
  138.   play instrument tempo speed+50 "AQ AH EQ AQ BH EH C#5Q B4Q C#5Q DQ C#H B4Q AQ AH G#Q F#Q G#Q AQ BQ C#5Q G#4H F#Q. EE EW "
  139.   play instrument tempo speed+50 "E5H DQ C#Q DH C#H B4Q C#5Q A4Q BQ G#Q. F#E EQ AQ AQ G#Q AQ BQ AH EQ C#5Q C#Q B4Q C#5Q DQ C#H B4Q C#5Q DQ C#Q B4Q AQ G#H AQ D5Q C#H B4Q. AE AH."
  140.   wait until the sound is "done" or the mouse is down
  141.   play stop
  142.   visual dissolve slowly
  143.   pop card
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 17 (button)
  149. -- low flags: 00
  150. -- high flags: 8003
  151. -- rect: left=213 top=127 right=170 bottom=511
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 6
  156. -- text size: 18
  157. -- style flags: 0
  158. -- line height: 24
  159. -- part name: Angels We Have Heard on High
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   global instrument,speed
  163.   push card
  164.   visual dissolve slowly
  165.   go next card
  166.   put the short name of me into card field 1
  167.   wait 60
  168.   play instrument tempo speed+50 "AQ AQ AQ C5Q CQ. B4BE AH AQ GQ AQ C5Q A4Q. GE FH AQ AQ AQ C5Q CQ. B4BE AH AQ GQ AQ C5Q A4Q. "
  169.   play instrument tempo speed+50 "GE FH C5H DE CE B4BE AE BBH C5E B4BE AE GE AH BBE AE GE FE GQ. CE CH FQ GQ AQ BBQ AH GH C5H DE CE B4BE AE BBH C5E B4BE AE GE AH BBE AE GE FE GQ. CE CH FQ GQ AQ BBQ AH GH FW"
  170.   wait until the sound is "done" or the mouse is down
  171.   play stop
  172.   visual dissolve slowly
  173.   pop card
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 13 (button)
  179. -- low flags: 00
  180. -- high flags: 8003
  181. -- rect: left=318 top=175 right=218 bottom=511
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 6
  186. -- text size: 18
  187. -- style flags: 0
  188. -- line height: 24
  189. -- part name: O Little Town
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   global instrument,speed
  193.   push card
  194.   visual dissolve slowly
  195.   go next card
  196.   put the short name of me into card field 1
  197.   wait 60
  198.   play instrument tempo speed "BQ BQ BQ A#Q BQ D5Q CQ E4Q AQ GQ F#E GE AQ DQ BH. BQ BQ BQ E5Q DQ DQ CQ E4Q AQ GQ F#E GE BQ. AE GH. BQ BQ BQ AQ GQ F#H F#Q F#Q EQ F#Q GQ AQ BH. BQ BQ BQ A#Q BQ D5Q CQ E4Q E5Q DQ G4Q BQ. AE GH."
  199.   wait until the sound is "done" or the mouse is down
  200.   play stop
  201.   visual dissolve slowly
  202.   pop card
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 22 (button)
  208. -- low flags: 00
  209. -- high flags: 8003
  210. -- rect: left=1 top=80 right=123 bottom=289
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 6
  215. -- text size: 18
  216. -- style flags: 0
  217. -- line height: 24
  218. -- part name: God Rest Ye Merry Gentlemen
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   global instrument,speed
  222.   push card
  223.   visual dissolve slowly
  224.   go next card
  225.   put the short name of me into card field 1
  226.   wait 60
  227.   play instrument tempo speed+100 "EQ EQ BQ BQ AQ GQ F#Q EQ DQ EQ F#Q GQ AQ BH. EQ EQ BQ BQ AQ GQ F#Q EQ DQ EQ F#Q GQ AQ BH. BQ C5Q A4Q BQ C5Q DQ EQ B4Q AQ GQ EQ F#Q GQ AH GQ AQ BH C5Q B4Q BQ AQ GQ F#Q EH GE F#E EQ AH GQ AQ BQ C5Q DQ EQ B4Q AQ GQ F#Q EH."
  228.   wait until the sound is "done" or the mouse is down
  229.   play stop
  230.   visual dissolve slowly
  231.   pop card
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 15 (button)
  237. -- low flags: 00
  238. -- high flags: 8003
  239. -- rect: left=255 top=274 right=317 bottom=394
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 6
  244. -- text size: 18
  245. -- style flags: 0
  246. -- line height: 24
  247. -- part name: Silent Night
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   global instrument,speed
  251.   push card
  252.   visual dissolve slowly
  253.   go next card
  254.   put the short name of me into card field 1
  255.   wait 60
  256.   play instrument tempo speed "EBQ. FE EBQ CH. EBQ. FE EBQ CH. BBH BBQ GH. ABH ABQ EBH. FH FQ ABQ. GE FQ EBQ. FE EBQ CH. FH FQ ABQ. GE FQ EBQ. FE EBQ CH. BBH BBQ D5BQ. B4BE GQ ABH. C5H. A4BQ EBQ CQ EBQ. DBE B3BQ A3BH."
  257.   wait until the sound is "done" or the mouse is down
  258.   play stop
  259.   visual dissolve slowly
  260.   pop card
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 26 (button)
  266. -- low flags: 00
  267. -- high flags: 8003
  268. -- rect: left=198 top=31 right=74 bottom=511
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 6
  273. -- text size: 18
  274. -- style flags: 0
  275. -- line height: 24
  276. -- part name: We Wish You a Merry Christmas
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   global instrument,speed
  280.   push card
  281.   visual dissolve slowly
  282.   go next card
  283.   put the short name of me into card field 1
  284.   wait 60
  285.   play instrument tempo speed+100 "GQ C5Q CE DE CE B4E AQ AQ AQ D5Q DE EE DE CE B4Q GQ GQ E5Q EE FE EE DE CQ A4Q GE GE AQ D5Q B4Q C5H "
  286.   play instrument tempo speed+100 "G4Q C5Q CQ CQ B4H BQ C5Q B4Q AQ GH D5Q EQ DQ CQ G5Q G4Q GE GE AQ D5Q B4Q C5H G4Q C5Q CE DE CE B4E AQ AQ AQ D5Q DE EE DE CE B4Q GQ GQ E5Q EE FE EE DE CQ A4Q GE GE AQ D5Q B4Q C5H."
  287.   wait until the sound is "done" or the mouse is down
  288.   play stop
  289.   visual dissolve slowly
  290.   pop card
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 27 (button)
  296. -- low flags: 00
  297. -- high flags: 8003
  298. -- rect: left=294 top=80 right=123 bottom=511
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 6
  303. -- text size: 18
  304. -- style flags: 0
  305. -- line height: 24
  306. -- part name: Good King Wenceslaus
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   global instrument,speed
  310.   push card
  311.   visual dissolve slowly
  312.   go next card
  313.   put the short name of me into card field 1
  314.   wait 60
  315.   play instrument tempo speed+100 "ABQ ABQ ABQ BBQ ABQ ABQ EBH FQ EBQ FQ GQ ABH ABH ABQ ABQ ABQ BBQ ABQ ABQ EBH FQ EBQ FQ GQ ABH ABH E5BQ DBQ CQ B4BQ C5Q B4BQ ABH FQ EBQ FQ GQ ABH ABH EBQ EBQ FQ GQ ABQ ABQ BBH E5BQ DBQ CQ B4BQ ABH D5BH A4BW"
  316.   wait until the sound is "done" or the mouse is down
  317.   play stop
  318.   visual dissolve slowly
  319.   pop card
  320. end mouseUp
  321.  
  322.  
  323.  
  324. -- part 28 (button)
  325. -- low flags: 00
  326. -- high flags: 8003
  327. -- rect: left=1 top=31 right=74 bottom=196
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 6
  332. -- text size: 18
  333. -- style flags: 0
  334. -- line height: 24
  335. -- part name: The First Noel
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   global instrument,speed
  339.   push card
  340.   visual dissolve slowly
  341.   go next card
  342.   put the short name of me into card field 1
  343.   wait 60
  344.   play instrument tempo speed "F#E EE DQ. EE F#E GE AH BE C5#E DQ C#Q B4Q AH BE C5#E DQ C#Q B4Q AQ BQ C5#Q DQ A4Q GQ F#H F#E EE DQ. EE F#E GE AH BE C5E# DQ C#Q B4Q AH"
  345.   play instrument tempo speed "BE C5#E DQ C#Q B4Q AQ BQ C5#Q DQ A4Q GQ F#H F#E EE DQ. EE F#E GE AH D5E C#E B4Q. C5#E DE EE F#H. DQ C#Q B4Q AQ BQ C5#Q DQ A4Q GQ F#H."
  346.   wait until the sound is "done" or the mouse is down
  347.   play stop
  348.   visual dissolve slowly
  349.   pop card
  350. end mouseUp
  351.  
  352.  
  353.  
  354. -- part 29 (button)
  355. -- low flags: 00
  356. -- high flags: 8003
  357. -- rect: left=1 top=175 right=218 bottom=305
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 1
  361. -- font id: 6
  362. -- text size: 18
  363. -- style flags: 0
  364. -- line height: 24
  365. -- part name: Hark, The Herald Angels Sing
  366. ----- HyperTalk script -----
  367. on mouseUp
  368.   global instrument,speed
  369.   push card
  370.   visual dissolve slowly
  371.   go next card
  372.   put the short name of me into card field 1
  373.   wait 60
  374.   play instrument tempo speed "DQ GQ GQ. F#E GQ BQ BQ AQ D5Q DQ DQ. CE B4Q AQ BH DQ GQ GQ. F#E GQ BQ BQ AQ D5Q A4Q AQ. F#E F#Q EQ DH D5Q DQ DQ G4q C5Q B4Q BE C5S B4S AQ D5Q DQ DQ G4q C5Q B4Q BE C5S B4S AQ E5Q EQ EQ. "
  375.   play instrument tempo speed "D5E CQ B4Q C5H A4Q BE C5E Dq. G4E GQ AQ AS C5S DS ES EQ EQ EQ. DE CQ B4Q C5H A4Q BE C5E DQ. G4E GQ AQ GH"
  376.   wait until the sound is "done" or the mouse is down
  377.   play stop
  378.   pop card
  379.   visual dissolve slowly
  380. end mouseUp
  381.  
  382.  
  383.  
  384. -- part 30 (button)
  385. -- low flags: 00
  386. -- high flags: 8003
  387. -- rect: left=3 top=126 right=169 bottom=193
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 6
  392. -- text size: 18
  393. -- style flags: 0
  394. -- line height: 24
  395. -- part name: O Christmas Tree
  396. ----- HyperTalk script -----
  397. on mouseUp
  398.   global instrument,speed
  399.   push card
  400.   visual dissolve slowly
  401.   go next card
  402.   put the short name of me into card field 1
  403.   wait 60
  404.   play instrument tempo speed "DQ GE. GS GQ AQ BE. BS BQ. BE AE BE C5Q F4#Q AQ GQ. D5E DE B4E E5Q. DE DE C#E CQ. CE CE A4E D5Q. CE CE B4E BQ DQ GE. GS GQ. AE BE. BS BQ. BE AE BE C5Q F4#Q AQ GH"
  405.   wait until the sound is "done" or the mouse is down
  406.   play stop
  407.   visual dissolve slowly
  408.   pop card
  409. end mouseUp
  410.  
  411.  
  412.  
  413. -- part 31 (field)
  414. -- low flags: 01
  415. -- high flags: 0000
  416. -- rect: left=143 top=6 right=26 bottom=347
  417. -- title width / last selected line: 0
  418. -- icon id / first selected line: 0 / 0
  419. -- text alignment: 0
  420. -- font id: 0
  421. -- text size: 12
  422. -- style flags: 0
  423. -- line height: 16
  424. -- part name: 
  425.  
  426.  
  427. -- part 33 (button)
  428. -- low flags: 00
  429. -- high flags: 0000
  430. -- rect: left=466 top=303 right=335 bottom=502
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 21847 / 21847
  433. -- text alignment: 1
  434. -- font id: 6
  435. -- text size: 18
  436. -- style flags: 0
  437. -- line height: 24
  438. -- part name: Home
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   visual effect zoom open
  442.   go home
  443. end mouseUp
  444.  
  445.  
  446.  
  447. -- part 34 (button)
  448. -- low flags: 00
  449. -- high flags: 8004
  450. -- rect: left=405 top=275 right=296 bottom=492
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 0 / 0
  453. -- text alignment: 1
  454. -- font id: 0
  455. -- text size: 12
  456. -- style flags: 0
  457. -- line height: 16
  458. -- part name: Bell
  459. ----- HyperTalk script -----
  460. on mouseDown
  461.   global instrument, choices
  462.  
  463.   -- find out what number the button is
  464.   repeat with lastItem = 1 to number of lines in choices
  465.     if line lastItem of choices is the short name of me then exit repeat
  466.   end repeat
  467.   put line lastItem of choices into instrument
  468.  
  469.   get HPopUpMenu(choices, -lastItem, top of me, left of me)
  470.   if the result is not empty then put the result
  471.  
  472.   if item 1 of it is not empty then
  473.     put item 1 of it into lastItem
  474.     put item 1 of it into instrument
  475.     set the name of the target to lastItem
  476.   end if
  477. end mouseDown
  478.  
  479.  
  480.  
  481. -- part 35 (button)
  482. -- low flags: 00
  483. -- high flags: 0000
  484. -- rect: left=14 top=289 right=304 bottom=27
  485. -- title width / last selected line: 0
  486. -- icon id / first selected line: 3584 / 3584
  487. -- text alignment: 1
  488. -- font id: 0
  489. -- text size: 12
  490. -- style flags: 0
  491. -- line height: 16
  492. -- part name: hVolume
  493. ----- HyperTalk script -----
  494. on mouseUp
  495.   -- make sure it snaps to certain locations
  496.   -- change these to change the control's location
  497.   put 14 into toff
  498.   put 6 into tstep
  499.   repeat with i = 0 to 7
  500.     put toff+i*tstep into item i+1 of stops
  501.   end repeat
  502.   get loc of me
  503.   get item 1 of it
  504.   put 1000 into m
  505.   put 0 into h
  506.   repeat with i = 1 to 8
  507.     if abs(it-item i of stops) < m then
  508.       put i into h
  509.       put abs(it-item i of stops) into m
  510.     end if
  511.   end repeat
  512.   set loc of me to item h of stops,296
  513.   play stop
  514.   SetVolume(h-1)
  515.   beep
  516. end mouseUp
  517.  
  518. on mouseDown
  519.   put 14 into toff
  520.   put 6 into tstep
  521.   put toff+tstep*7 into tmax
  522.   repeat while the mouse is down
  523.     get item 1 of the mouseLoc
  524.     get max(it,toff)
  525.     get min(it,tmax)
  526.     set loc of me to it,296
  527.   end repeat
  528. end mouseDown
  529.  
  530. on setMe
  531.   get getVolume()
  532.   put 14 into toff
  533.   put 6 into tstep
  534.   set loc of me to toff+it*tstep,296
  535. end setMe
  536.  
  537.  
  538. -- part 36 (button)
  539. -- low flags: 00
  540. -- high flags: 8004
  541. -- rect: left=406 top=300 right=322 bottom=461
  542. -- title width / last selected line: 0
  543. -- icon id / first selected line: 0 / 0
  544. -- text alignment: 1
  545. -- font id: 0
  546. -- text size: 12
  547. -- style flags: 0
  548. -- line height: 16
  549. -- part name: Normal
  550. ----- HyperTalk script -----
  551. on mouseDown
  552.   global instrument, speed
  553.  
  554.   put "Fastest,Fast,Normal,Slow,Slowest" into speeds
  555.   put "170,130,100,70,50" into realSpeeds
  556.  
  557.   -- find out what number the button is
  558.   repeat with lastItem = 1 to number of items in speeds
  559.     if item lastItem of speeds is the short name of me then exit repeat
  560.   end repeat
  561.   put item lastItem of realSpeeds into speed
  562.  
  563.   -- lastItem is negative so that there is no check mark
  564.   get HPopUpMenu(speeds, -lastItem, top of me, left of me)
  565.   if the result is not empty then put the result
  566.  
  567.   if item 1 of it is not empty then
  568.     put item 1 of it into lastItem
  569.     put item item 3 of it of RealSpeeds into speed
  570.     set the name of the target to lastItem
  571.   end if
  572. end mouseDown
  573.  
  574.  
  575.  
  576. -- part contents for card part 31
  577. ----- text -----
  578. What would you like to hear?
  579.