##tickloc:
runsub doit2;
##tick20:
runsub doit;
##doit:
if $actor's qty < 10 then divideit else moveit;
##doit2:
foreach in loc hurtit player;
##hurtit:
$hlth = $for_id's health;
take 1 from $hlth;
set $for_id's health to $hlth;
print "[$actor] swarms around [$for_id], dissolving chunks of matter!";
print "[$actor] quickly assembles the molecular chunks into another nano-robot!";
new a deadly nano-robot;
relook $loc;
##moveit:
print "Several nano particles drift away from the main swarm";
$numb = $actor's qty;
divide $numb by 2;
call "force $numb deadly nano-robots to roam";
relook $loc;
##divideit:
print "[$actor] collects particles from the surroundings to create another nano-robotic drone!";
$num = $actor's qty;
add 1 to $num;
set $actor's qty to $num;
call "roam";
relook $loc;