##use:runsub isitme;

##isitme:
if $actor eq $target then callit else end;

##callit:

var $dest to 16181;
var $dloc to $dest's loc;

msg $dloc,$actor,$dest,0,'call',"[$actor] calls to [$dest]! ([$init_obj] in [$loc] must want something)";


say 'msg',"[$actor] calls to [$dest]!";