##arrives:runsub whattodo;

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

##kickthem:
say 'say',"[$actor] escourts [$init_obj] out of [$loc] to [$dest]";
set $init_obj's loc to $dest;
var $loc to $dest;
msg $dest,$actor,$init_obj,0,'say',"[$actor] says 'Im so sorry, you have to leave now' to [$init_obj]";

##allowthem:
say 'say',"[$actor] nods at [$init_obj] you can stay in [$loc] - I wont send you to [$dest]";