if txarget of push then doit2;

##txickloc: runsub doit2/10;

##txickhour2: runsub doit;

##doit:
if $actor's qty < 100 then moveit else divideit;

##doit2:
set $counter to 0;
var $oldnumb to random 9;
runsub continue2;

##continue2:
if $actor's qty < 50 then continue else divideit;

##continue:
find $loc, random player;
var $tobehurt to $found_id;
if $tobehurt > 0 then hurtit else end;

##hurtit:
$hlth = $tobehurt's health;
take 1 from $hlth;
set $tobehurt's health to $hlth;
print "[$actor] swarms around [$tobehurt], dissolving chunks of matter!";
print "[$actor]'s swarm seems to grow larger";
new a deadly nanobot;
add 1 to $counter;
relook $loc;
if $counter = $oldnumb then resetit else continue2;

##resetit:
set $counter to 0;
find $loc, random doorway;
sayto $tobehurt, "[$actor] swarms around [$tobehurt] dissolving chunks of matter!";
sayto $tobehurt, "[$tobehurt] runs away from [$actor]";
relocate $tobehurt through $found_id print "[$tobehurt] runs away via " then "[$tobehurt] runs in screaming from ";

##oldcode:
$actor = $tobehurt;
sayto $actor, "The nanobots swarm around [$actor], dissolving chunks of matter!";
sayto $actor, "The nanobot swarm seems to grow larger";
print "[$actor] runs in terror!";
sayto $actor, "[$actor] runs in terror!";
var $exit to random doorway;
relocate $tobehurt through $exit print "they go" then "they arrive";
relook $loc;

##divideit:
print "Many nano particles drift away from the main swarm";
$numb = $actor's qty;
divide $numb by 2;
set $actor's qty to $numb;
copy $actor;
relook $loc;

##moveit:
print "[$actor] collects particles from the surroundings to create more nano-robotic drones!";
$num = $actor's qty;
add 5 to $num;
set $actor's qty to $num;
call "roam";
relook $loc;