varargs mixed CanInstall(object who, object what){
    if(who && environment() && environment() != environment(who) &&
      environment() != who && environment(environment()) != environment(who)
      && environment(environment()) != who )
        return "#That's not accessible to you.";
    else return 1;
}
varargs mixed CanUninstall(object who, object what){
    if(who && environment() && environment() != environment(who) &&
      environment() != who && environment(environment()) != environment(who)
      && environment(environment()) != who )
        return "#That's not accessible to you.";
    else return 1;
}
varargs mixed eventInstall(object what, object where){
    return 1;
}
varargs mixed eventUninstall(object what, object where){
    return 1;
}
int direct_install_obj(object target){
    return CanInstall(this_player());
}
int direct_uninstall_obj(object target){
    return CanUninstall(this_player(), target);
}
int direct_install_obj_word_obj(object thingus, object target){
    return CanInstall(this_player(), target);
}
int indirect_install_obj_word_obj(object target, object thingus){
    return CanInstall(this_player(), target);
}
int direct_uninstall_obj_word_obj(object thingus, object target){
    return CanUninstall(this_player(), target);
}
int indirect_uninstall_obj_word_obj(object one, object two, object three){
    return CanUninstall(this_player(), one);
}