get $target in $loc;
if $target > 0 then unhosthost else fail;

##unhosthost:
if $target's host = $actor then unhostit;
set $actor's host to $target;
set $actor's hosthow to "following";
say 'msg',"[$actor] starts to follow [$target]";
relook $loc;

##unhostit:
set $target's host = 0;
set $target's hosthow = 0;

##fail:
if $counter > 0 then exit else listall;
##listall:
var $click_cmd to 'follow';
var $desc_intro to 'Click on the object you want to follow:

';
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";