if target of magicky then playitback;
if target of magic then erasetape;
if reacting to say then checkmode;
if reacting to ask then checkmode;
if reacting to arrives then checkmode;
if reacting to leaves then checkmode;
if reacting to examines then 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 pale green';
say 'changed',"[$actor] is now off";

##switchon:
set $actor's opmode to 'on';
set $actor's extra to 'which is bright green';
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 rustleit/3;

##blinkit:
say 'msg',"[$actor] rustles slightly";

##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 " -Record Data- ";
say 'msg',"[$actor] twitches";