##xarrives:runsub whattodo;

##whattodo:
var $dest to $actor's loc's loc;
if $init_obj's name like "(josh|wolis|xiii|fopp|chaotic bob)" then allowthem else kickthem;

##kickthem:
say 'say',"[$actor] escourts [$init_obj] out of [$loc] to [$dest]";
set $init_obj's loc to $dest;
msg $loc,$actor,0,0,'force',"force:look $loc";
var $loc to $dest;
msg $dest,$actor,$init_obj,0,'say',"[$actor] says 'Im so sorry, you have to leave now' to [$init_obj]";
msg $loc,$actor,0,0,'force',"force:look $loc";
##allowthem:
say 'say',"[$actor] nods at [$init_obj] you can stay in [$loc] - I wont send you to [$dest]";