if target of examines then doit;
##tickloc:
runsub doit2;
##tickhour:
runsub doit;
##doit:
if $actor's qty < 10 then moveit else divideit;
##doit2:
if $actor's qty < 10 then growit/5 else divideit;
##moveit:
call "roam";
##growit:
var $area to $actor's loc;
var $num to $actor's qty;
add 1 to $num;
set $actor's qty to $num;
print "[$actor] seems to grow";
relook $area;
##divideit:
var $area2 to $actor's loc;
var $num2 to $actor's qty;
divide $num2 by 2;
set $actor's qty to $num2;
copy $actor;
print "[$actor] splits into two groups!";
relook $area2;
if txarget of music then playitback;
if txarget of zap then erasetape;
if target of use then changemode;
if reacting to say then checkmode;
if reacting to ask 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';
say 'changed',"[$actor] is now off";
##switchon:
set $actor's opmode to 'on';
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;
##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";