brett! coding is easy.
Just type: code the blah blah blah blah blah
then put in
##use:runsub isitme;
##isitme:
if $actor eq $target then sleepinit;
##sleepinit:
say 'sound',"***";
say 'sound',"***";
but change the bits that have stars to what you want it to say when you use the object for example: You wipe your hands with [$actor] <--($actor means the object you use). And then on the next line it might say something like:
[$init_obj] <--($init_obj is the person who uses the object in the first place) is now clean