##tickloc:runsub meditation;
##meditation:
if $actor's hosthow == 'sitting on' then meditation2 else meditationcease;
##meditation2:
if $actor's pose == 'meditating' then meditation3 else meditationcease;
##meditation3:
runsub meditation4/5;
##meditation4:
$mana = $actor's mana;
$manamax = $actor's manamax;
if $mana < $manamax then meditation5 else meditationfull;
##meditation5:
add 1 to $mana;
set $actor's mana to $mana;
$verb = (channels towards,becomes one with,focuses on,psychically spins,psychically directs,taps in to,opens a conduit to,funnels energy from,streams into,accesses,celestially penetrates,cerebrally touches);
$object = (the universe,the stars,the inner self,a chakra,the ethereal,the astral,the cosmic singularity,the collective medium,a higher plane,a mantra,the aggregate mind,the conjoint unity,the web of consciousness,infinity,the supersensory apex);
say 'meditating',"[$actor] $verb $object ($mana/$manamax)";
if $mana == $manamax then meditationfull;
##meditationfull:
getgender $actor;
"[$actor] becomes one with $hisher full potential.";
runsub meditationcease;
##meditationcease:
"[$actor] ceases to meditate.";
$mat = $actor's material;
swap $mat take _meditation_;
set $actor's material to $mat;
set $actor's pose to '';