#include <message_class.h>
#include <dirs.h>
#include <privs.h>

private mixed array PersistentInventory = 0;
private static int  LastSave  = time();
private int PersistentInventoryEnabled = 0;
private static string wut, savename, nom = "";

string GetSaveName(){
    mixed tmp = directory_exists(domain(this_object(),1)+"/save");
    string ret;
    if(tmp){
        tmp = query_unique_name(this_object());
        ret = domain(this_object(),1)+"/save/"+tmp;
    }
    return ret;
}

int GetPersistent(){
    return PersistentInventoryEnabled;
}

int GetLastSave(){
    return LastSave;
}

static varargs int SaveObject(mixed str, int i){
    int ret;
    savename = GetSaveName();
    if(!undefinedp(str) && intp(str)) i = str;
    if(str) savename = str;
#if ENABLE_INSTANCES
    savename = new_savename(savename);
#endif
    if(!sizeof(savename) || savename[0..0] == ".") return 0;
    if(PersistentInventoryEnabled){
        PersistentInventory = filter(map(all_inventory(),
                    (: $1->GetSaveString() :)), (: $1 :));
    }
    ret = unguarded( (: save_object, savename, i :) );
    LastSave = time();
    return ret;
}

int SetPersistent(int x){
    if(x > 0) x = 1;
    else x = 0;
    PersistentInventoryEnabled = x;
    return PersistentInventoryEnabled;
}

mixed GetPersistentInventory(){
    return copy(PersistentInventory);
}

static varargs int RestoreObject(mixed str, int i){
    object env;
    int ret;
    if(!undefinedp(str) && intp(str)) i == str;
    if(!interactive() && env && env->GetPersistent()) return;
    if(!str) savename = GetSaveName();
    else savename = str;
    if(!sizeof(savename)) return 0;
#if ENABLE_INSTANCES
    str = new_savename(savename);
    if(file_exists(str)) savename = str;
#else
    str = old_savename(savename);
    if(file_exists(str)) savename = str;
#endif
    ret = unguarded((: restore_object, savename :));
    if(GetPersistent() && sizeof(PersistentInventory)){
        foreach(string obdata in PersistentInventory){
            object ob;
            mixed tmp;
            tmp = restore_variable(obdata);
            if( arrayp(tmp) ){
                int howmany, mclones;
                wut = tmp[0];
                howmany = sizeof(objects((: base_name($1) == wut &&
                                environment($1) :)));
                mclones = wut->GetMaxClones();
                if(wut->GetUnique() && howmany) continue;
                if(mclones && mclones <= howmany ) continue; 
                ob = new(wut);
                if( ob ) ob->eventConvertObject(tmp, 1);
            }
            else {
                int howmany, mclones;
                wut = tmp["#base_name#"];
                howmany = sizeof(objects((: base_name($1) == wut &&
                                environment($1) :)));
                mclones = wut->GetMaxClones();
                if(wut->GetUnique() && howmany) continue;
                if(mclones && mclones <= howmany ) continue;
                if( !catch(ob = new(wut)) ){
                    if( ob ){
                        ob->eventLoadObject(tmp, 1);
                    }
                }
            }
        }
    }
    PersistentInventory = 0;
    return ret;
}

varargs void create(){
    RestoreObject();
}

int eventDestruct(){
    if(PersistentInventoryEnabled){
        SaveObject();
    }
    return 1;
}