home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / SOUNDS.UNT < prev    next >
Text File  |  1996-07-04  |  9KB  |  284 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   SOUNDS  .UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14.  
  15. $if 1
  16.   $CODE SEG "DAS_NB03"
  17.   $EVENT               OFF
  18.   $ERROR     ALL       OFF
  19.   $OPTIMIZE  SIZE
  20.   $OPTION    GOSUB     OFF
  21.   $OPTION    CNTLBREAK OFF
  22.   $OPTION    SIGNED    OFF
  23.   $DEBUG     MAP       OFF
  24.   $DEBUG     PATH      OFF
  25.   $DEBUG     UNIT      OFF
  26.   $COMPILE   UNIT
  27. $endif
  28.  
  29.   EXTERNAL pSoundOFF%
  30.  
  31. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  32. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  33. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  34. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  35.  
  36. SUB Sounds( BYVAL Which%, BYVAL ForeGround% ) LOCAL PUBLIC
  37.   LOCAL X%, Song$
  38.  
  39.   IF pSoundOFF% THEN EXIT SUB
  40.  
  41.   SELECT CASE Which%
  42.     CASE 1                           ' Ding - Dong
  43.       Song$ = "MLT120L16O3EC"
  44.     CASE 2                           ' 1 2 3
  45.       Song$ = "MLT120L16O2ECG"
  46.     CASE 3                           ' Ending Trill
  47.       Song$ = "MLT120L16O2CEG>CL32O2CDEFGAB>CDEFGAB>L8C"
  48.     CASE 4                           ' Tweeter
  49.       Song$ = "MLT120L32O4ECECECECECEC"
  50.     CASE 5                           ' Buzzer
  51.       Song$ = "T240L16O4ABABABABABABABP2"
  52.     CASE 6                           ' Long & Happy
  53.       Song$ = "MLT120L16O2CDECL8DFL16EFGEL8DFL16EFGFGABMNL8>C<B>L4C"
  54.     CASE 7                           ' Long Ending Trill
  55.       Song$ = "MNT120L16O2CEG>CEG>EL32O2CDEFGAB>CDEFGAB>CDEFGAB>L12C"
  56.     CASE 8                           ' Charge!!
  57.       Song$ = "MST120L16O1G>CDL12GP16L16EL3G"
  58.     CASE 9                           ' Na Na  Downer
  59.       Song$ = "MNT120L14O2GGEAL6GE"
  60.     CASE 10                           ' Big Ben
  61.       Song$ = "MLT120L3O2AFGCP4CGAF"
  62.     CASE 11                           ' Telephone Tweeter
  63.       FOR x% = 1 TO 40
  64.     SOUND 490 , .03
  65.     SOUND 1500, .4
  66.     SOUND 3500, .05
  67.       NEXT
  68.     CASE 12                           ' 3 2 1
  69.       Song$ = "MLT120L16O2GCE"
  70.     CASE 13                           ' Soft Phone
  71.       FOR X% = 1 TO 15
  72.     SOUND 600, .5
  73.     SOUND 500, .5
  74.       NEXT
  75.     CASE 14                           ' Drain
  76.       FOR X% = 80 TO 1 STEP -1
  77.     SOUND RND*1500 + 100, RND
  78.       NEXT
  79.     CASE 15                           ' Rrrrrr
  80.       SOUND 150, 1
  81.       SOUND 125, 1
  82.     CASE 16                           ' Bink
  83.       Song$ = "MST120L64N40N10"
  84.     CASE 17                           ' Rolling
  85.       Song$ = "MST120" + REPEAT$( 60, "L32N4L64N2" )
  86.     CASE 18                           ' 10 Bips
  87.       Song$ = "MST120" + REPEAT$( 10, "L64N38N2N5N1" )
  88.     ' ***********************************************************************
  89.     ' ************   sounds 19 -> 69
  90.     ' ************   SHAREWARE from MERLIN R. NULL circa 1987
  91.     ' ***********************************************************************
  92.     CASE 19                                 ' Cuckoo
  93.       Song$ = "T120L16MLO3BF#"
  94.     CASE 20                                 ' Zap
  95.       Song$ = "T255L64MLO4BAGFEDC<BAGFEDEC<BAGFEDC<BAGFEDC<BAGFEDC"
  96.     CASE 21                                 ' Tifweet
  97.       Song$ = "T255L32O4mlDGD<G>DGDDGDGBAGF#EE"
  98.     CASE 22                                 ' Zang 1
  99.       Song$ = "T255L64MLO2BCADGEFEGDACBCADGEFEGDACB"
  100.     CASE 23                                 ' Zang 2
  101.       Song$ = "T255L64MLO3BCADGEFEGDACBCADGEFEGDACB"
  102.     CASE 24                                 ' Zang 3
  103.       Song$ = "T255L64MLO4BCADGEFEGDACBCADGEFEGDACB"
  104.     CASE 25                                 ' Zang 4
  105.       Song$ = "T255L64MLO5BCADGEFEGDACBCADGEFEGDACB"
  106.     CASE 26                                 ' Downer 1
  107.       Song$ = "T150L64MSO4BGEC<AFL16D"
  108.     CASE 27                                 ' Downer 2
  109.       Song$ = "T150L64MSO4BFC<GD<AL16E"
  110.     CASE 28                                 ' Downer 3
  111.       Song$ = "T150L64MSO4BE<AD<GC<L32F"
  112.     CASE 29                                 ' UpScale1
  113.       Song$ = "T150L64MSO3DFA>CEGL16B"
  114.     CASE 30                                 ' UpScale2
  115.       Song$ = "T120L64MSO2E.A.>D.G.>C.F.B."
  116.     CASE 31                                 ' UpScale3
  117.       Song$ = "T150L64MSO0F>CG>DA>EB."
  118.     CASE 32                                 ' Tweedle
  119.       Song$ = "T240L64MLO4EGEGEGCFCFCFGEGEGE"
  120.     CASE 33                                 ' Whoople
  121.       Song$ = "T255L64O4CDEFGABO3CDEFGABO2CDEFGAB"
  122.     CASE 34                                 ' Bongee1
  123.       Song$ = "T255L64MLO1BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
  124.     CASE 35                                 ' Bongee2
  125.       Song$ = "T255L64MLO2BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
  126.     CASE 36                                 ' Bongee3
  127.       Song$ = "T255L64MLO3BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
  128.     CASE 37                                 ' Bongee4
  129.       Song$ = "T255L64MLO4BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
  130.     CASE 38                                 ' Uhoh1
  131.       Song$ = "T255L64MLO1CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
  132.     CASE 39                                 ' Uhoh2
  133.       Song$ = "T255L64MLO2CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
  134.     CASE 40                                 ' Uhoh3
  135.       Song$ = "T255L64MLO3CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
  136.     CASE 41                                 ' Uhoh4
  137.       Song$ = "T255L64MLO4CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
  138.     CASE 42                                 ' BobWhite
  139.       Song$ = "T120L16O4C#.P16T255L64mlC#DD#EFF#GG#AA#BO5CC#DD#EF"
  140.     CASE 43                                 ' Whung
  141.       Song$ = "T255L32mlO3CD<CD>>CD<<CD>>CD<<CD>CD"
  142.     CASE 44                                 ' Phone2
  143.       Song$ = "T240L64MLO4EGEGEGEGEGEGEGEGEGEGEGEGEGEGEG"
  144.       ' best when called 2 or more times in a row
  145.     CASE 45                                 ' Tweet
  146.       Song$ = "O4T255L64MLB-BB-BAGAG.>EGG>EGG"
  147.     CASE 46                                 ' Wolf
  148.       Song$ = "T200L64MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8." + _
  149.           "<C#DD#EFF#GG#AA#B>CC#DD#EFFED#DC#C<BA#AG#GGF#FED#DC#"
  150.     CASE 47                                 ' Chang
  151.       FOR X% = 1 TO 4
  152.     FOR Y% = 2000 TO 50 STEP -400
  153.       SOUND Y%, .2
  154.     NEXT
  155.     FOR Y% = 800 TO 2000 STEP 400
  156.       SOUND Y%, .2
  157.     NEXT
  158.       NEXT
  159.     CASE 48                                 ' Oh
  160.       FOR X% = 800 TO 2000 STEP 100
  161.     SOUND X%, .2
  162.       NEXT
  163.       FOR X% = 2000 TO 50 STEP -100
  164.     SOUND X%, .2
  165.       NEXT
  166.     CASE 49                                 ' Space1
  167.       FOR X% = 1000 TO 40 STEP -20
  168.     SOUND X%, .2
  169.       NEXT
  170.     CASE 50                                 ' Space2
  171.       FOR X% = 10000 TO 500 STEP -500
  172.     SOUND X%, .2
  173.       NEXT
  174.       ' try calling "Zap" after this
  175.     CASE 51                                 ' Gurgle
  176.       FOR X% = 10 TO 50 STEP 10
  177.     FOR Y% = 50 TO 10 STEP -10
  178.      SOUND X%^2 + Y%^2, .1
  179.     NEXT
  180.       NEXT
  181.     CASE 52                                 'Spectre
  182.       FOR Z! = 1 TO 30 STEP .4
  183.     SOUND ( ( SIN(Z!) + 40 ) * 50), .2
  184.       NEXT
  185.     CASE 53                                 ' Grup1
  186.       FOR X% = 10 TO 50 STEP 10
  187.     FOR Y% = 50 TO 10 STEP -10
  188.       SOUND X% * Y%, .1
  189.     NEXT
  190.       NEXT
  191.     CASE 54                                 ' Grup2
  192.       FOR X% = 30 TO 70 STEP 10
  193.     FOR Y% = 70 TO 30 STEP -10
  194.       SOUND X% * Y%, .1
  195.     NEXT
  196.       NEXT
  197.     CASE 55                                 ' Chirp
  198.       FOR X% = 30 TO 60 STEP 10
  199.     FOR Y% = 60 TO 30 STEP -10
  200.       SOUND X% * Y%, .2
  201.     NEXT
  202.       NEXT
  203.     CASE 56                                 ' Waver
  204.       FOR Z! = 1 TO 30 STEP .7
  205.     SOUND ( ( SIN(Z!) + 20 ) * 30 ), .2
  206.       NEXT
  207.     CASE 57                                 ' Blurp
  208.       FOR X% = 1 TO 40
  209.     SOUND ( INT( RND*1400 )+450 ),.1
  210.       NEXT
  211.     CASE 58                                 ' Who1
  212.       FOR Z! = 10.2 TO 8.2 STEP -.2
  213.     SOUND ( ( TAN(Z!) + 36 ) * 25 ),.8
  214.     SOUND ( ( SIN(Z!) + 20 ) * 50 ),.4
  215.       NEXT
  216.     CASE 59                                 ' Who2
  217.       FOR Z! = 10.2 TO 8.2 STEP -.2
  218.     SOUND ( ( TAN(Z!) + 36) * 10 ),.8
  219.     SOUND ( ( SIN(Y) + 20 ) * 20 ),.4
  220.       NEXT
  221.     CASE 60                                 ' Mew
  222.       FOR Z! = 10.8 TO 8 STEP -.1
  223.     SOUND ( ( TAN(Z!) + 50 ) * 25 ),.4
  224.       NEXT
  225.     CASE 61                                 ' Phone1
  226.       FOR X% = 1 TO 10
  227.     SOUND 1195, .4
  228.     SOUND 2571, .4
  229.       NEXT
  230.     CASE 62                                 ' Siren
  231.       FOR X% = 1 TO 3
  232.     SOUND 550, 9
  233.     SOUND 400, 9
  234.       NEXT
  235.     CASE 63                                 ' Fweet
  236.       FOR X% = 1 TO 2
  237.     Song$ = "T255L64MsO4C#DD#EFF#GG#AA#B>CC#DD#EF"
  238.       NEXT
  239.     CASE 64                                 ' Zhoup
  240.       FOR Z! = 3 TO 9 STEP .2
  241.     SOUND ( Z!^4 + 120 ), .1
  242.     SOUND 37, .1
  243.       NEXT
  244.     CASE 65                                 ' Vrowr
  245.       FOR Z! = 9 TO 3 STEP -.1
  246.     SOUND ( 120 + Z!^4 ), .1
  247.     SOUND 37, .1
  248.       NEXT
  249.     CASE 66                                 ' Zhou
  250.       FOR X% = 40 TO 15 STEP -1
  251.     FOR Y% = 90 TO 50 STEP -10
  252.       SOUND ( X% * Y% ), .1
  253.     NEXT
  254.       NEXT
  255.     CASE 67                                 ' Art
  256.       FOR X% = 1 TO 10
  257.     FOR Y% = 1145 TO 1245 STEP 100
  258.       SOUND ( X% * Y% ), .3
  259.     NEXT
  260.       NEXT
  261.     CASE 68                                 ' Coo
  262.       FOR X% = 0 TO 150 STEP 10
  263.     SOUND ( 1295 - X% ), .4
  264.     SOUND ( 1095 + X% ), .4
  265.       NEXT
  266.     CASE 69                                 'Squawk
  267.       FOR X% = 1 TO 20
  268.     FOR Y% = 50 TO 150 STEP 50
  269.       SOUND ( X% * Y% ), .1
  270.     NEXT
  271.       NEXT
  272.   END SELECT
  273.  
  274.   IF Song$ = "" THEN EXIT SUB
  275.   IF ForeGround% <> 0 THEN
  276.       PLAY "MF"
  277.     ELSE
  278.       PLAY "MB"
  279.   END IF
  280.   PLAY Song$
  281.  
  282. END SUB
  283.  
  284.