##put:runsub isitme;
##use:runsub isitme2;

##isitme:if $second eq $actor then chktarget else end;
##isitme2:if $target eq $actor then check else end;
##chktarget:
if $target's class like "vial" then putiton else end;

##putiton:
set $target's loc to $second;

##check:
find $actor,vial;
if $found_id > 0 then fill else nobottle;

##fill:
var $colour to (lime,red,yellow,aqua,blue,white);
set $found_id's loc to $loc;
set $found_id's class to "magic vial";
set $found_id's pclass to "magic vial";
set $found_id's colour to "$colour";]
set $found_id's worth to "5";
set $found_id's info to "It is filled with some magic liquid.";
set $found_id's extra to "which emits some light and smoke";
say 'act',"some colored sparks comes from the [$actor].";
say 'act',"[$found_id] is now filled with some magic liquid.";
say 'force',"force:look";

##nobottle:
say 'act',"You try to make an elixir but there is no vial on the alchemic table.";