##use:runsub whattodo;
##whattodo:if $actor eq $target then BBA else end;
##BBA:
say 'msg',"[$actor] turns on";
say 'msg',"[$init_obj] touches the 'Big Brain Academy' symbol on the touch screen";
say 'msg',"A cartoon person named Dr. Lobe appears on the screen";
say 'msg',"Dr. Lobe says 'Welcome to Big Brain Academy. Here we try our best to make our brains as heavy as possible.";
say 'msg',"[$init_obj] gets confused after a while and turns off [$actor]";