// Sammelsystem - Giver v0.7.1

// "4CGS-Init" in die Objektbeschreibung eintragen, um ein Objekt zu initialsieren oder die Werte neu zu setzen

integer  m_num_slots             =   8;                              // ANzahl Slots, die der Spieler hat 
integer  m_max_slots             =   8;                              // Anzahl mx. erreichbare Slots
key      klicker                 =   NULL_KEY;                       // Wer hat geklickt?
string   m_itemName              =   "navi_wasserbeutel";            // Name für den Pfad, unter dem dieses Objekt auf dem Server verwaltet wird.
string   m_displayName           =   "Na'vi Wasserbeutel";           // Angezeigter Name des Sammelobjektes
string   m_desc                  =   "Ein voller Na'vi Wasserbeutel."; // Kurzbeschreibung
string   m_item_weight           =   "1.5";                          // Gewicht des Gegenstandes (für max. Ztaglast benötigt)
string   m_desc_long             =   "Wasserbeutel werden für den Transport von Flüssigkeiten benutzt. Sie fassen ca. 1/2 Liter Wasser. Die Na'vi stellen diese Behälter aus verschiednen Ledersorten, Riemen und Hölzern her. "; // Anschauen Text
string   m_eat                   =   "Trinken";                      // Button-Text für Aktion
string   m_watch                 =   "Anschauen";                    // Button-Text, um die lange Beschreibung zu lesen (Anschauen).
string   m_use                   =   "Anwenden";                     // Button-Text, wenn Item auf jmd. angewendet wird,
string   m_xp                    =   "5";                            // XP, die man fürs Benutzen bekommt.
string   m_xp_collect            =   "2";                            // XP, die man fürs Sammlen bekommt.
string   m_hp                    =   "5";                            // Wieviel HP werde abgezogen?             (Negative Werte addieren HP)
string   m_food                  =   "0";                            // Wieviel Nahrung wird dazu addiert?      (Negative Werte ziehen Nahrung ab)
string   m_water                 =   "50";                           // Wieviel Wasser wird dazu addiert?       (Negative Werte ziehen Wasser ab)
float    m_range                 =   5.0;                            // Wie weit darf der Avatar vom Giver entfernt sein (1 ... 96m, 0 = Beliebig)
integer  m_time_fix              =   0;                              // Zeit, wie lange das Objekt unsichtbar ist (in Sekunden). Wenn 0 = Deaktiviert
integer  m_time_rnd              =   0;                              // Zufällige Zeit, die der Fixzeit hinzuaddiert wird und die zwischen 0 und dem hier angegebenen Wert liegt.
integer  m_rnd                   =   -1;                             // Wenn > 1, wird eine zufällige Anzahl von 1 ... m_rnd gesammelt. Wenn Wert negativ, dann diese Anzahl dazu rechnen.
integer  m_minlevel              =   0;                              // Wenn Sammler einen kleineren Level hat, entscheidet der Zufall, ob er das Itam bekommt.
integer  m_isunique              =   FALSE;                          // Falls TRUE, wird beim "Entsorgen" abgefragt, ob man das möchte.

// ####################################################################################################################################

integer  m_num                   =   0;                              // Anzahl gesammelter Items
float    m_weight_total          =   0;                              // Gesamtgewicht gesammelter Items
string   m_toofar                =   "Du bist zu weit entfernt, um '{0}' zu sammeln.";
string   m_lang_noslot           =   "Du hast keinen Inventar Slot mehr frei!";
string   m_lang_collected        =   "Du hast {0} x {1} genommen und {2} Erfahrungspunkte (XP) dazu bekommen.";
string   m_lang_used             =   "Du hast {0} benutzt und {1} Erfahrungspunkte (XP) dazu bekommen.";
string   m_lang_wronggroup       =   "Entweder Du hast nicht die richtige Gruppe aktiviert oder '{0}' hat nicht die Landgruppe.";
string   m_lang_init             =   "Das Objekt '{0}' [Itemname: '{1}'] ] wurde initialisiert.";
string   m_lang_tooheavy         =   "Das ist zu schwer für Dich. Du kannst nur max. {0}kg tragen.";
string   m_lang_level_too_low    =   "Um '{0}' zu sammlen, musst Du mindestens Level {1} erreichen. Du bekommst aber dennoch {2} Erfahrungspunkte (XP) dazu.";


default
{
    state_entry()
    {
        llSetAlpha(255, ALL_SIDES);
        if(llGetObjectDesc() == "4CGS-Init" || !osCheckDataValue("item." + m_itemName))
        {
            llSetObjectDesc("");
            llOwnerSay(osFormatString(m_lang_init, [m_displayName, m_itemName]));
            list _dataStorage    =   getDataListFromDataStorage("item." + m_itemName);
            _dataStorage = setDataEntryInDataList(_dataStorage, "image", llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, 0)));
            _dataStorage = setDataEntryInDataList(_dataStorage, "displayname", m_displayName);
            _dataStorage = setDataEntryInDataList(_dataStorage, "beschreibung", m_desc);
            _dataStorage = setDataEntryInDataList(_dataStorage, "unique", m_isunique);
            _dataStorage = setDataEntryInDataList(_dataStorage, "weight", m_item_weight);

            _dataStorage = setDataEntryInDataList(_dataStorage, "actions", "eat;watch;futtern");

            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.eat.displayname", m_eat);
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.eat.consume", "TRUE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.eat.setTarget", "FALSE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.eat.tasks", "addFood:" + (string)m_food + ";addWater:" + (string)m_water + ";addXP:" + (string)m_xp + ";addHP:" + (string)m_hp);

            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.watch.displayname", m_watch);
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.watch.consume", "FALSE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.watch.setTarget", "FALSE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.watch.tasks", "say:" + m_desc_long);

            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.futtern.displayname", m_use);
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.futtern.consume", "TRUE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.futtern.setTarget", "TRUE");
            _dataStorage = setDataEntryInDataList(_dataStorage, "actions.futtern.tasks", "addFood:" + (string)m_food + ";addWater:" + (string)m_water + ";addHP:" + (string)m_hp + ";addXP:" + (string)m_xp);
        
            saveDataListToDataStorage(_dataStorage, "item." + m_itemName);
        }
    }
    
    touch_start(integer i)
    {
        klicker = llDetectedKey(0);
        list    _dataStorage    =   getDataListFromDataStorage("game.hud.player." + llDetectedKey(0));
        integer _slot           =   getNextFreeInventorySlot(_dataStorage, m_itemName);
        integer _level          =   llList2Integer(calcLevelData(_dataStorage), 0);

        m_num = 1;
        if(m_rnd > 1)
            m_num = (integer)(llFrand(m_rnd) + 1);
        else if (m_rnd < 0)
            m_num = -m_rnd;
        m_weight_total = (float)m_num * (float)m_item_weight;

        if(!llSameGroup(klicker))
        {
            llRegionSayTo(klicker, 0, osFormatString(m_lang_wronggroup, [m_displayName]));
            return;
        }

        if(getMaxPlayerWeight(_dataStorage) < calcPlayerWeight(_dataStorage) + m_weight_total)
        {
            llOwnerSay(osFormatString(m_lang_tooheavy, [llGetSubString((string)getMaxPlayerWeight(_dataStorage), 0, llSubStringIndex((string)getMaxPlayerWeight(_dataStorage), ".") + 2)]));  
            return;
        }

        if(_slot == 0)
        {
            llRegionSayTo(klicker, 0, m_lang_noslot);  
            return;
        }

        if(m_range != 0.0)
            llSensor("",klicker, AGENT_BY_LEGACY_NAME, m_range, PI);
        else
            state sammeln;
    }

    sensor(integer x)
    {
        state sammeln;
    }
    
    no_sensor()
    {
        llInstantMessage(klicker, osFormatString(m_toofar, [m_displayName]));
    }
    
    timer()
    {
        llSetTimerEvent(0);
        llResetScript();
    }

    changed(integer change)
    {
        if(change & (CHANGED_REGION_RESTART | CHANGED_INVENTORY))
            llResetScript();
    }
}

// ###################################################################################################

state sammeln
{
    state_entry()
    {
        llOwnerSay((string)m_num);
        list    _dataStorage    = getDataListFromDataStorage("game.hud.player." + klicker);
        integer _slot           = getNextFreeInventorySlot(_dataStorage, m_itemName);
        integer _level          = llList2Integer(calcLevelData(_dataStorage), 0);
        integer _xp             = (integer)getDataEntryFromDataList(_dataStorage, "stats.xp");

        if(_level >= (integer)m_minlevel)
        {
            _dataStorage = setDataEntryInDataList(_dataStorage, "stats.xp", _xp + (m_num * (integer)m_xp_collect));
            _dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + _slot, m_itemName);
            _dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + _slot + ".count", getItemCountFromSlot(_dataStorage, _slot) + m_num);
            llRegionSayTo(klicker, 0, osFormatString(m_lang_collected, [(string)m_num, m_displayName, (string)(m_num * (integer)m_xp_collect)]));
        }
        else
        {
            //m_num = 0;
            _dataStorage = setDataEntryInDataList(_dataStorage, "stats.xp", _xp + (integer)m_xp_collect);
            llRegionSayTo(klicker, 0, osFormatString(m_lang_level_too_low, [m_displayName, m_minlevel, (string)m_xp_collect]));
        }

        saveDataListToDataStorage(_dataStorage, ("game.hud.player." + klicker));
        llSay((integer)getDataEntryFromDataList(_dataStorage, "channel"), "gamecommand;reload");
        
        if(m_time_fix + m_time_rnd == 0)
            state default;
        else
        {
            llSetAlpha(0, ALL_SIDES);
            llSetTimerEvent(m_time_fix + (integer)llFrand(m_time_rnd));
        }
    }

    timer()
    {
        llSetTimerEvent(0);
        llResetScript();
    }
    
    changed(integer change)
    {
        if(change & (CHANGED_REGION_RESTART | CHANGED_INVENTORY))
            llResetScript();
    }
}

// ###################################################################################################

integer getNextFreeInventorySlot(list _dataStorage, string _itemName)
{
    integer _freeSlot = 0;
    integer _currentSlot;
    for(_currentSlot = 1; _currentSlot <= m_num_slots; ++_currentSlot)
    {
        if(getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot) == _itemName)
            return _currentSlot;
            
        if(getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot) == "")
            if(_freeSlot == 0)
                _freeSlot = _currentSlot;        
    } 
    
    return _freeSlot;
}

integer getItemCountFromSlot(list _dataStorage, integer _slot)
{
    return (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + _slot + ".count");
}

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);
}

integer calcPlayerWeight(list _userStorage)
{
    integer _currentSlot;
    integer _currentWeight = 0;
    for(_currentSlot = 1; _currentSlot <= m_num_slots; ++_currentSlot)
    {
        if(getDataEntryFromDataList(_userStorage, "inventar.slot." + _currentSlot) != "")
        {
            string  _itemName = getDataEntryFromDataList(_userStorage, "inventar.slot." + _currentSlot);
            list    _itemData = getDataListFromDataStorage("item." +_itemName);
            
            integer _itemCount = getItemCountFromSlot(_userStorage, _currentSlot);
            integer _itemWeight = (integer)getDataEntryFromDataList(_itemData, "weight");

            _currentWeight = _currentWeight + (_itemCount * _itemWeight);
        }
    } 
    
    return _currentWeight;
}

list calcLevelData(list  _dataStorage)
{
    list        _dataStore          =   getDataListFromDataStorage("game.hud");
    integer     _xpLevelStep        =   (integer)getDataEntryFromDataList(_dataStore, "stats.levels.firstStep");
    integer     _maxlevel           =   (integer)getDataEntryFromDataList(_dataStore, "stats.levels.maxlevel");
    
    float       _xpLevelStepMultiplier  = (float)getDataEntryFromDataList(_dataStore, "stats.levels.multiplier");
    integer     _currentXP              = (integer)getDataEntryFromDataList(_dataStorage, "stats.xp");
    integer     _currentLevel           = 0;

    integer _xpNeedForNextLevel     =   _xpLevelStep * _xpLevelStepMultiplier;
 

    while(_currentXP > _xpNeedForNextLevel)
    {
        if(_currentLevel <= _maxlevel)
        {
            _currentLevel = _currentLevel + 1;
            _currentXP = _currentXP - _xpNeedForNextLevel;
            _xpNeedForNextLevel = (_xpNeedForNextLevel *  _xpLevelStepMultiplier);
        }
    }  

    return [_currentLevel, (integer)_currentXP, _xpNeedForNextLevel];   
} 

float getMaxPlayerWeight(list _dataStorage)
{
    list        _dataStore          =   getDataListFromDataStorage("game.hud");
    integer     _maxweight          =   (integer)getDataEntryFromDataList(_dataStore, "stats.levels.maxweight");
    float       _xpMultiplier       =   (float)getDataEntryFromDataList(_dataStore, "stats.levels.multiplier");
    
    list        _levelData          =   calcLevelData(_dataStorage);
    integer     _playerLevel        =   llList2Integer(_levelData, 0) + 1;
    
    float     _playerMaxWight     =   _maxweight * (_playerLevel * _xpMultiplier);
    return _playerMaxWight;
}