##tickloc:runsub whattodo;

##whattodo:runsub doping/10;

##doping:
var $sound to (ping,ding,eeep,wee wah,woop woop,swoosh,for a walk around the room,clang,up and down,nowhere,off,faster,slower);
say 'acts',"[$actor] goes $sound!";