##base:
##txickhour:runsub whattodo;
##think:runsub finddoor;

##whattodo:runsub finddoor/5 or witherme/2;

##finddoor:
find $loc,random doorway;

if $found_id > 0 then growthrough else end;

##growthrough:
var $linked to $found_id's link;
var $nloc to $linked's loc;
set $actor's host to $found_id;
set $actor's hosthow to "on";
set $actor's pose to "growing";
copy $actor;
var $mny to random 10;
set $new_id's worth to $mny;
set $new_id's host to $linked;
set $new_id's loc to $nloc;
set $new_id's pwd to "";
set $new_id's class to "vine";

say 'msg',"[$actor] grows out through [$found_id]";
msg $loc,$actor,0,0,'force',"force:look $loc,look",$actor;

msg $nloc,$new_id,0,0,'msg',"[$new_id] grows in from [$found_id]",$new_id;
msg $nloc,$new_id,0,0,'force',"force:look $loc,look",$new_id;

runsub witherme/2 or end;

##witherme: rem - end his vines growing career;
var $mny to random 20;
set $actor's worth to $mny;
set $actor's colour to "darkgoldenrod";
set $actor's extra to "";
set $actor's info to "This vine used to grow so well but is dead now";
set $actor's pose to "withered";
set $actor's code to "";
say 'msg',"[$actor] dries up and dies";
msg $loc,$actor,0,0,'force',"force:look $loc,look",$actor;