##arrives:runsub whattodo;

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

##kickthem:
say 'say',"[$actor] I'm sorry [$init_obj] Jemilly, doesn't allow you in [$loc] so I am going to have to kick you out of here 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] of course [$init_obj] can come in to [$loc] (the master would kill me if I sent you to the un-partyin place, [$dest]";