##waters:runsub wateringme;
##tickday:runsub growme;
##think:runsub paintme;

##wateringme:
if $target eq $actor then addtome else end;

##addtome:
set $actor's basket to "something nice";
say 'msg',"[$actor] grows abit";
var $val to $actor's basket;
say 'msg',"This is the contents of my basket '$val'";


##growme:

##paintme:
var $clr to (red,blue,pink,orange);
set $actor's colour to "$clr";
say 'msg',"[$actor] changed to $clr";
msg $loc,$actor,0,0,'force',"force:look $loc";