##play:runsub playitback;
##hit:runsub erasetape;
##use:runsub playitback;

##say:runsub checkmode;

##switch:runsub switchchk;
##switchon:runsub switchonchk;
##switchoff:runsub switchoffchk;

##switchchk:
$tmode to $actor's opmode;
if $actor = $target then toggleme;

##switchonchk:
$tmode = 'off'; so cycle turnes on;
if $actor = $target then toggleme;

##switchoffchk:
$tmode = 'on'; rem - on so cycle turns off;
if $actor = $target then toggleme;

##toggleme:
cycle $tmode between (on,off);
set $actor's opmode to "$tmode";
set $actor's extra to "which is $tmode";
say 'change',"[$actor] is now $tmode";


##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:
rem - say 'msg',"[$actor] blinks as it records things";
print "_ping $actor,ring3,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:
set $actor's tape to " -what I have recorded sofar- ";
say 'msg',"[$actor] has just erased everything from its memory";