// Petrarch
// Merentha Lib 1.0
// cleanup.c

int no_clean;

void create() {}
void init() {}
void reset() {}

void set_no_clean(int i) { no_clean=i; }

int clean_up(int i) {
    if(i || no_clean) return 0;
    return 1;
}

void remove() {
    object env;
    if(this_object()) {
        env=environment();
        if(env) all_inventory(this_object())->move(env);
        destruct(this_object());
    }
}