Hex Artifact Content
Not logged in

Artifact 698da6411516e6c6c11c0d671d4cfa3e5f0a3f03:


0000: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20  package require 
0010: 54 63 6c 4d 69 78 65 72 0a 0a 70 72 6f 63 20 65  TclMixer..proc e
0020: 6e 64 5f 4d 55 53 49 43 20 7b 7d 20 7b 0a 20 20  nd_MUSIC {} {.  
0030: 20 20 74 63 6c 6d 69 78 65 72 3a 3a 66 72 65 65    tclmixer::free
0040: 20 24 3a 3a 6d 75 73 0a 20 20 20 20 75 6e 73 65   $::mus.    unse
0050: 74 20 3a 3a 6d 75 73 0a 7d 0a 0a 70 72 6f 63 20  t ::mus.}..proc 
0060: 65 6e 64 5f 53 4f 55 4e 44 20 63 68 61 6e 6e 65  end_SOUND channe
0070: 6c 20 7b 0a 20 20 20 20 69 6e 63 72 20 3a 3a 63  l {.    incr ::c
0080: 6f 75 6e 74 0a 20 20 20 20 69 66 20 7b 24 3a 3a  ount.    if {$::
0090: 63 6f 75 6e 74 20 3c 20 31 30 7d 20 7b 0a 09 74  count < 10} {..t
00a0: 63 6c 6d 69 78 65 72 3a 3a 70 6c 61 79 20 24 3a  clmixer::play $:
00b0: 3a 73 6e 64 0a 09 72 65 74 75 72 6e 0a 20 20 20  :snd..return.   
00c0: 20 7d 0a 20 20 20 20 74 63 6c 6d 69 78 65 72 3a   }.    tclmixer:
00d0: 3a 66 72 65 65 20 24 3a 3a 73 6e 64 0a 20 20 20  :free $::snd.   
00e0: 20 75 6e 73 65 74 20 3a 3a 73 6e 64 0a 7d 0a 0a   unset ::snd.}..
00f0: 0a 73 65 74 20 6d 75 73 20 5b 74 63 6c 6d 69 78  .set mus [tclmix
0100: 65 72 3a 3a 6d 75 73 69 63 20 5b 66 69 6c 65 20  er::music [file 
0110: 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61  join [file dirna
0120: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d  me [info script]
0130: 5d 20 74 65 73 74 2e 6d 6f 64 5d 5d 0a 74 63 6c  ] test.mod]].tcl
0140: 6d 69 78 65 72 3a 3a 6d 69 78 43 6f 6e 66 69 67  mixer::mixConfig
0150: 20 2d 6d 75 73 69 63 20 65 6e 64 5f 4d 55 53 49   -music end_MUSI
0160: 43 0a 74 63 6c 6d 69 78 65 72 3a 3a 70 6c 61 79  C.tclmixer::play
0170: 20 24 6d 75 73 0a 0a 73 65 74 20 63 6f 75 6e 74   $mus..set count
0180: 20 30 0a 73 65 74 20 73 6e 64 20 5b 74 63 6c 6d   0.set snd [tclm
0190: 69 78 65 72 3a 3a 73 6f 75 6e 64 20 5b 66 69 6c  ixer::sound [fil
01a0: 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72  e join [file dir
01b0: 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70  name [info scrip
01c0: 74 5d 5d 20 72 65 6c 6f 61 64 2e 6f 67 67 5d 5d  t]] reload.ogg]]
01d0: 0a 74 63 6c 6d 69 78 65 72 3a 3a 6d 69 78 43 6f  .tclmixer::mixCo
01e0: 6e 66 69 67 20 2d 73 6f 75 6e 64 20 65 6e 64 5f  nfig -sound end_
01f0: 53 4f 55 4e 44 0a 74 63 6c 6d 69 78 65 72 3a 3a  SOUND.tclmixer::
0200: 70 6c 61 79 20 24 73 6e 64 0a 0a                 play $snd..