##axrrives:runsub whattodo;

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

##kickthem:
say 'say',"You have to make your room, or there will be no more fun for you!";
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 'I'm sorry but I am under strict orders to make you stay in the basement' to [$init_obj]";
msg $loc,$actor,0,0,'force',"force:look $loc";
##allowthem: