if target of examines then showstore;

##tickloc:runsub ticked;

##ticked:
if $actor's host > 0 then ticked2;
##ticked2:
$host = $actor's host;
if $host's mana == $host's manamax then storemana;
if $host's mana < 5 then releasemana;
##storemana:
if $actor's mana < 100 then storemana2;
##storemana2:
$am = $actor's mana;
$hm = $host's mana;
add 1 to $am;
take 1 from $hm;
set $actor's mana = $am;
set $host's mana = $hm;
print "The depths of a gem on [$actor] seem to swirl for a moment.";

##releasemana:
if $actor's mana > 0 then releasemana2 else empty;
##releasemana2:
$am = $actor's mana;
$hm = $host's mana;
take 1 from $am;
add 1 to $hm;
set $actor's mana = $am;
set $host's mana = $hm;
print "[$actor] flickers.";
##empty:
##showstore:
$mana = $actor's mana;
print "[$actor] is storing $mana mana.";