if rexacting to bing then sayboing;
if reacting to wish then switchmeon;
if reacting to thing then switchmeoff;
##txickloc:runsub docounter;

##docounter:
$mcount = $actor's counter;
add 1 to $mcount;
set $actor's counter = $mcount;
runsub sayboing;

##switchmeon: switch $actor on;
runsub sayboing;

##switchmeoff: switch $actor off;

##sayboing:
say 'boing',"[$actor] boings $mcount";