##tickloc:runsub checkif;

##checkif:
if $actor's health > 0 then checknoise else nope;

##checknoise:
runsub makenoise/5;

##makenoise:
var $what to (screeches deafeningly, growls angrily, snarls menacingly, roars deafeningly);
print "[$actor] $what.";

##whattodo:runsub moveme;

##moveme:
new a note that means th2 works;
call "roam";

##checkgrow:
if $grw > 4 then growme else nope;

##growme:
$hlth = $actor's health;
$hlthm = $actor's healthmax;
add 3 to $hlthm;
set $actor's healthmax to $hlthm;
set $actor's health to $hlthm;
set $grw to 0;
set $actor's growthfactor to $grw;

##wasitme:
if $actor = $init_obj's host then incrcnt else nope;

##incrcnt:
$hlth = $actor's health;
$hlthm = $actor's healthmax;
add 1 to $hlthm;
set $actor's healthmax to $hlthm;
set $actor's health to $actor's healthmax;
print "[$actor] seems to grow slightly larger.";

##changeem:
print "Energy begins running over [$actor]'s surface, obscuring it from view";
set $actor's class to 'Metroid Queen';
set $actor's pclass to 'Metroid Queens';
$mat = $actor's material;
swap $mat add "_queentroid_";
swap $mat take "_omegatroid_";
set $actor's material to $mat;
print "The energy expands quickly, growing to nearly twice its original size, before sinking to the floor and disappearing in an instant, and [$actor] emerges with a deafening screech.";
set $actor's info to 'Slightly shorter than an Omega, it makes up for this with claws that could cut you in two with a single swipe, and a neck long enough to take a rather large chunk out of you from 20 feet away!';
say 'changemandibs'," ";