// Setup Tool [v0.07.02]

integer enabled        = TRUE;            // Ist das Sytem installiert?
integer levels_enabled = TRUE;            // Werden Level gezählt (XP)?
integer defaultitem    = "";              // Gegenstand, der neuen Inventaren automatisch hinzugefügt wird.
integer firststep      = 1000;            // 1. Level erreicht bei x XP
float multiplier       = 1.25;            // Nächster Level bei x * multiplier
integer maxlevel       = 30;              // Höchster zu erreichender Level ud Multiplikator füe max. Traglast/Level
float   maxweight      = 20;              // Maximale Traglast aller Inventarslots zusammen
integer minlevel       = 3;               // Min. Level, den man haben muss, um das Item IMMER zu sammeln. Ist der Level kleiner, bekommt man es per Zufall.
integer sub_food       = 8;               // Wieviel Nahrung soll abgezogen werden?
integer sub_water      = 5;               // Wieviel Wasser soll abgezogen werden?
integer max_slots      = 8;               // Wieviele Slots hat das Main HUD (Wird mit dem Setup Tool vorgegeben)?
integer regchan        = -1;              // Wird für regionsweite Datenübermittlung benötigt
integer reghandler     = -1;


default
{
    state_entry()
    {
        getregionchannel();
        //llSetText(llGetScriptName() + "\n-------------------------\nSetze alle Prims auf\ndie Gruppe und klicke\ndiesen Prim an.", <1, 0.7, 0>, 1.0);
        llMessageLinked(LINK_ALL_OTHERS, 0, "RESET", llGetOwner());

    }
    touch_start(integer i)
    {
        list    _dataStorage    =   getDataListFromDataStorage("game.hud");
        _dataStorage = setDataEntryInDataList(_dataStorage, "enable", (string)enabled);
        _dataStorage = setDataEntryInDataList(_dataStorage, "defaultInventar", defaultitem);
        
        _dataStorage = setDataEntryInDataList(_dataStorage, "hud.slots", (string)max_slots);
        
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.enable", (string)enabled);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels", (string)levels_enabled);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.firstStep", (string)firststep);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.multiplier", (string)multiplier);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.maxlevel", (string)maxlevel);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.maxweight", (string)maxweight);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.sub_food", (string)sub_food);
        _dataStorage = setDataEntryInDataList(_dataStorage, "stats.levels.sub_water", (string)sub_water);
        saveDataListToDataStorage(_dataStorage, "game.hud");
        llRegionSay(regchan, "gamecommand;reload");
        llRegionSayTo(llDetectedKey(0), 0, "Setup beendet.");
    }
}

getregionchannel()
{
    list lstParcelDetails = llGetParcelDetails(llGetPos(), [PARCEL_DETAILS_ID, PARCEL_DETAILS_AREA]);
    regchan  = (integer)("0x" + llGetSubString(llList2String(lstParcelDetails, 0), 0, 7));
    if(regchan > 0)
        regchan = -regchan;
    
    //llListenRemove(reghandler);
    //reghandler  = llListen(regchan, "", "", "" );
}

list getDataListFromDataStorage(string _storage)
{
    return llCSV2List(osGetDataValue(_storage));
}

saveDataListToDataStorage( list _dataList, string _storage)
{
    string _csv = llList2CSV(_dataList);
    osSetDataValue(_storage, _csv);
}

integer checkDataEntryInDataList(list _dataList, string _key)
{
    integer     _inListPosition     =   llListFindList(_dataList, [_key]);
    
    if(_inListPosition == -1)
        return FALSE;
    
    return TRUE;
}

string getDataEntryFromDataList(list _dataList, string _key)
{
    integer     _inListPosition     =   llListFindList(_dataList, [_key]);
    
    if(_inListPosition == -1)
        return "";
    
    return llList2String(_dataList, _inListPosition + 1);
}

list setDataEntryInDataList(list _dataList, string _key, string _value)
{
    integer     _inListPosition     =   llListFindList(_dataList, [_key]);
    
    if(_inListPosition == -1)
    {
        _dataList += [_key, _value];
        return _dataList;
    }
    
    return llListReplaceList(_dataList, [_value], _inListPosition + 1, _inListPosition + 1);
}