[PD] sequencer help

[shift8]

hi list - 

i'm working on a non-looping sequencer using pool, and wanted to hit you
guys up for some questions/ideas.  the patch is attached, and it super
simple at this stage so it should be easy to understand.

the main point of the patch is to play and record at the same time
(optionaly to not record while playing back, but i know how to do
that).  

i need to figure out a way to block further updates from pool to control
objects if the user make a manual ajustment to a control during
playback/recording.

any ideas?  thanks in advance.

-s
-------------- next part --------------
#N canvas 190 140 754 561 10;
#X obj -216 99 metro;
#X obj -183 -47 expr (60 / ($f1 * 4)) * 1000;
#X obj -182 -69 / 1;
#X obj -182 -93 nbx 5 14 1 1875 0 0 empty empty empty 0 -6 0 10 -262144
-1 -1 120 256;
#X obj -183 -26 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0
10 -262144 -1 -1 125 256;
#X obj -18 213 pool rec_play;
#N canvas 0 0 450 300 s1 0;
#X obj 53 -15 r tic;
#X msg 126 118 set \$1 \$2 \$3;
#X obj 88 58 f;
#X obj 125 171 outlet;
#X obj 126 86 pack f s f;
#X obj 130 9 t b b f;
#X obj 130 -16 r s1;
#X obj 117 57 symbol s1;
#X connect 0 0 2 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 5 1 7 0;
#X connect 5 2 4 2;
#X connect 6 0 5 0;
#X connect 7 0 4 1;
#X restore -135 151 pd s1;
#X obj -183 -6 / 8;
#X obj -186 19 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0 10
-262144 -1 -1 15.625 256;
#N canvas 0 0 450 300 s3 0;
#X obj 53 -15 r tic;
#X msg 126 118 set \$1 \$2 \$3;
#X obj 88 58 f;
#X obj 125 171 outlet;
#X obj 126 86 pack f s f;
#X obj 130 9 t b b f;
#X obj 130 -16 r s3;
#X obj 117 57 symbol s3;
#X connect 0 0 2 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 5 1 7 0;
#X connect 5 2 4 2;
#X connect 6 0 5 0;
#X connect 7 0 4 1;
#X restore -29 149 pd s3;
#N canvas 0 0 450 300 s2 0;
#X obj 53 -15 r tic;
#X msg 126 118 set \$1 \$2 \$3;
#X obj 88 58 f;
#X obj 125 171 outlet;
#X obj 126 86 pack f s f;
#X obj 130 9 t b b f;
#X obj 130 -16 r s2;
#X obj 117 57 symbol s2;
#X connect 0 0 2 1;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 5 1 7 0;
#X connect 5 2 4 2;
#X connect 6 0 5 0;
#X connect 7 0 4 1;
#X restore -79 150 pd s2;
#X obj -247 130 f;
#X obj -217 172 s tic;
#X obj -80 9 vsl 15 128 0 127 0 0 s1 s1_in empty 0 -8 0 8 -262144 -1
-1 0 1;
#X obj -25 7 vsl 15 128 0 127 0 0 s2 s2_in empty 0 -8 0 8 -262144 -1
-1 0 1;
#X obj 37 7 vsl 15 128 0 127 0 0 s3 s3_in empty 0 -8 0 8 -262144 -1
-1 0 1;
#X obj -275 173 nbx 5 14 -1e+37 1e+37 0 0 empty empty empty 0 -6 0
10 -262144 -1 -1 805 256;
#X msg -216 49 stop;
#X msg -260 49 1;
#X obj -205 132 + 1;
#X obj -261 70 t f f;
#X obj -6 278 unpack s f;
#X obj -79 311 makesymbol %s_in;
#X obj 14 341 pack s f;
#X msg 15 367 \; \$1 \$2;
#X obj 28 149 r tic;
#X msg 28 177 get \$1;
#X obj -18 243 route bang;
#X msg -114 214 clrall;
#X text -314 16 start play/record;
#X text -136 193 reset;
#X text -126 -95 bpm;
#X connect 0 0 11 0;
#X connect 1 0 4 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 7 0;
#X connect 5 0 27 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 0 1;
#X connect 9 0 5 0;
#X connect 10 0 5 0;
#X connect 11 0 12 0;
#X connect 11 0 16 0;
#X connect 11 0 19 0;
#X connect 17 0 0 0;
#X connect 18 0 20 0;
#X connect 19 0 11 1;
#X connect 20 0 0 0;
#X connect 20 1 11 1;
#X connect 21 0 22 0;
#X connect 21 1 23 1;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 26 0 5 0;
#X connect 27 1 21 0;
#X connect 28 0 5 0;