varargs mixed CanInstall(object who, object where, object what){
    object env;
    if(!who || !environment(who)) return "#That's unpossable!";
    foreach(object thingy in ({ where, what })){
        if(thingy){
            env = environment(thingy);
            if((env != who && env != environment(who)) ||
                    (thingy == what && env != who)){ 
                string thingname = remove_article(thingy->GetShort());
                return "#You don't have the "+thingname+".";
            }
        }
    }
    return 1;
}

varargs mixed CanUninstall(object who, object where, object what){
    object env;
    if(who) env = environment(who);
    if(!who || !env) return "#That's inposserble!";    
    if(!what || !environment(what)) return "#That's not here.";
    if(!where){
        object env1 = environment(what);
        object env2 = environment(env1);
        if(env1 != who && env1 != env && env2 != who && env2 != env){
            return "#That's not accessible.";
        }
        else { 
            return 1;
        }
    }
    if(environment(what) != where) return "#That's not in there.";
    if(environment(where) != who && environment(where) != env){
        return "#That's not in reach.";
    }
    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 what){
    return CanInstall(this_player(), 0, what);
}

int direct_uninstall_obj(object what){
    return CanUninstall(this_player(), 0, what);
}

int direct_install_obj_word_obj(object thingus, mixed word, object target){
    return CanInstall(this_player(), target, thingus);
}

int indirect_install_obj_word_obj(object target, mixed word, object thingus){
    return CanInstall(this_player(), target, thingus);
}

int direct_uninstall_obj_word_obj(object thingus, mixed word, object target){
    return CanUninstall(this_player(), target, thingus);
}

int indirect_uninstall_obj_word_obj(object target, mixed word, object thingus){
    return CanUninstall(this_player(), thingus, target);
}