[maxmsp] scratcher/scrubber

Here're two failed attempts at making a patch that scratches through audio at the speed ones mouse, controller or vinyl record is moving. I am essentially trying to emulate scratching sounds with max. Any thoughts on my two failed attempts. Am I on the wrong path?

#P window setfont "Sans Serif" 9.;
#P window linecount 1;
#P message 332 492 23 196617 10.;
#P newex 281 396 43 196617 + 1000;
#P newex 277 360 27 196617 *;
#P newex 361 566 29 196617 sig~;
#P flonum 362 549 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 353 530 27 196617 / 1.;
#P newex 364 599 92 196617 groove~ thebuffer;
#P message 352 267 64 196617 resolution 1;
#P newex 356 461 55 196617 select 0 1;
#P number 381 434 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P message 473 408 14 196617 1;
#N counter;
#X flags 0 0;
#P newobj 381 411 66 196617 counter;
#P flonum 359 505 35 9 0 0 0 3 0 0 0 221 221 221 222 222 222 0 0 0;
#P newex 359 483 35 196617 timer;
#P button 353 387 15 0;
#P newex 353 359 27 196617 >;
#P user hslider 349 301 18 128 256 1 0 0;
#P newex 54 231 29 196617 sig~;
#P newex 400 151 37 196617 / 256;
#P message 145 60 64 196617 resolution 1;
#P button 236 124 15 0;
#P user ezdac~ 56 260 100 293 0;
#P message 106 179 43 196617 replace;
#P message 92 50 45 196617 mult \$1;
#P newex 313 178 66 196617 mstosamps~;
#P newex 235 150 105 196617 info~ thebuffer;
#P user hslider 91 81 18 128 127 1024 0 0;
#P newex 106 198 122 196617 buffer~ thebuffer 30000;
#P newex 93 145 81 196617 peek~ thebuffer;
#P connect 14 0 28 0;
#P connect 14 0 17 0;
#P connect 16 0 23 1;
#P connect 23 0 24 0;
#P connect 28 0 23 0;
#P connect 27 0 22 0;
#P connect 26 0 27 0;
#P connect 10 0 26 1;
#P connect 12 0 26 0;
#P connect 12 0 13 0;
#P connect 12 0 13 1;
#P fasten 4 1 10 0 374 201 393 201 393 144 405 144;
#P connect 25 0 22 0;
#P connect 24 0 25 0;
#P connect 22 0 7 0;
#P connect 22 0 7 1;
#P connect 21 0 12 0;
#P connect 19 0 20 0;
#P connect 20 1 15 1;
#P connect 20 0 15 0;
#P connect 17 0 19 0;
#P fasten 18 0 17 4 452 465;
#P connect 15 0 16 0;
#P connect 13 0 14 0;
#P connect 11 0 7 0;
#P connect 11 0 7 1;
#P connect 0 0 11 0;
#P connect 2 0 0 0;
#P connect 9 0 2 0;
#P connect 8 0 3 0;
#P connect 6 0 1 0;
#P connect 5 0 2 0;
#P connect 3 6 4 0;
#P window clipboard copycount 29;