##touch:runsub playitback;
##flick:runsub erasetape;
##use:runsub changemode;
##any:runsub checkmode;

##changemode:
if $actor eq $target then dochange else end;

##dochange:
if $actor's opmode eq 'on' then switchoff else switchon;

##switchoff:
set $actor's opmode to 'off';
set $actor's extra to 'which is not recording anything';
say 'changed',"[$actor] is now off";

##switchon:
set $actor's opmode to 'on';
set $actor's extra to 'which is recording everything';
say 'changed',"[$actor] is now on";

##checkmode:
if $actor's opmode eq 'on' then recordit else end;

##recordit:
load $actor's tape;
loop paste $init_msg;
save $actor's tape;
runsub blinkit/3;

##blinkit:
say 'msg',"[$actor] blinks as it records things";

##playitback:
if $actor eq $target then startplaying else end;

##startplaying:
load $actor's tape;
loop playmsg;

##playmsg:
say 'playback',"[$actor] replays '$listitem '";

##erasetape:
if $actor eq $target then starterasing else end;

##starterasing:
set $actor's tape to " -what I have recorded sofar- ";
say 'msg',"[$actor] has just erased everything from its memory";