##xpush:runsub isitme;
##examine:runsub isitme;
##nudge:runsub isitme;
##play:runsub isitme;
##stroke:runsub isitme;
##use:runsub isitme;
##isitme:
if $target eq $actor then itsme else end;
##itsme:
say 'clicks',"the chrome balls click back and forth in a nice regular way";
say 'clicks',"click click click";
say 'clicks',"click click";
say 'clicks',"click";
say 'stops',"the clicking of the executive toy stops";