##push:runsub playitback;
##zap:runsub erasetape;
##use:runsub changemode;
##examines:runsub playitback;
##poke:runsub checkmode;

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

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

##switchoff:
say 'changed',"[$actor] is now off";

##switchon:
say 'changed',"[$actor] is now on";

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

##recordit:
load $actor's tape;
if $init_msg like 'force' then ignore it else recorditnow;
##recorditnow:
loop paste $init_msg;
runsub blinkit/3;

##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:
say 'msg',"[$actor] has just erased everything from its memory";