„Objekt Inventory [v0.07.02]“ hinzufügen
Kxirya
parent
5acdb50bc0
commit
b4568fd0db
|
|
@ -0,0 +1,416 @@
|
||||||
|
// 4CGS - Objekt Inventory [v0.07.02]
|
||||||
|
|
||||||
|
integer m_slots = 2;
|
||||||
|
integer m_inventarSlots = 2;
|
||||||
|
|
||||||
|
list m_current = [];
|
||||||
|
list m_last_touch = [];
|
||||||
|
integer m_channel_public = -58347;
|
||||||
|
integer m_channel_public_socket = 0;
|
||||||
|
integer m_channel_private = -58347;
|
||||||
|
integer m_channel_private_socket = 0;
|
||||||
|
integer m_locked = FALSE;
|
||||||
|
vector m_homePosition = <0, 0, 0>;
|
||||||
|
key m_storage_id = NULL_KEY;
|
||||||
|
string m_name = "";
|
||||||
|
|
||||||
|
string m_lang_mitnehmen = "Mitnehmen";
|
||||||
|
string m_lang_lagern = "Einlagern";
|
||||||
|
string m_lang_freierSlot = "Du hast keinen freien Inventar Slot mehr frei!";
|
||||||
|
string m_lang_slotLeer = "Dieses Fach ist bereits leer.";
|
||||||
|
string m_lang_gleicheItems = "Du kannst nur gleiche Gegenstände zusammen legen!";
|
||||||
|
string m_lang_fullSlotDesc = "Was möchtest du mit {0} machen?";
|
||||||
|
string m_lang_emptrySlotDesc = "Dieser Slot ist leer. Was möchtest du machen?";
|
||||||
|
|
||||||
|
integer checkIfPlayerHaveItemInInventar(list _dataStorage, string itemName)
|
||||||
|
{
|
||||||
|
integer _freeSlot = 0;
|
||||||
|
integer _currentSlot;
|
||||||
|
for(_currentSlot = 1; _currentSlot <= m_inventarSlots; ++_currentSlot)
|
||||||
|
{
|
||||||
|
if(getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot) == itemName)
|
||||||
|
return TRUE;
|
||||||
|
}
|
||||||
|
|
||||||
|
return FALSE;
|
||||||
|
}
|
||||||
|
|
||||||
|
integer getNextFreeInventorySlot(list _dataStorage, string _itemName)
|
||||||
|
{
|
||||||
|
integer _freeSlot = 0;
|
||||||
|
integer _currentSlot;
|
||||||
|
for(_currentSlot = 1; _currentSlot <= m_inventarSlots; ++_currentSlot)
|
||||||
|
{
|
||||||
|
if(getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot) == _itemName)
|
||||||
|
return _currentSlot;
|
||||||
|
|
||||||
|
if(getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot) == "")
|
||||||
|
if(_freeSlot == 0)
|
||||||
|
_freeSlot = _currentSlot;
|
||||||
|
}
|
||||||
|
|
||||||
|
return _freeSlot;
|
||||||
|
}
|
||||||
|
|
||||||
|
integer getItemCountFromPlayer(list _dataStorage, integer slot)
|
||||||
|
{
|
||||||
|
return (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + slot + ".count");
|
||||||
|
}
|
||||||
|
|
||||||
|
cleanGameState()
|
||||||
|
{
|
||||||
|
list _dataStorage = getDataListFromDataStorage("game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
|
||||||
|
integer _currentSlot;
|
||||||
|
for(_currentSlot = 1; _currentSlot <= m_slots; _currentSlot++)
|
||||||
|
{
|
||||||
|
setInventarSlotImage(_currentSlot, TEXTURE_BLANK, 0);
|
||||||
|
setInventarSlotCountNumber(_currentSlot, 0);
|
||||||
|
|
||||||
|
if(checkDataEntryInDataList(_dataStorage, "inventar.slot." + _currentSlot) == FALSE)
|
||||||
|
{
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + _currentSlot, "");
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + _currentSlot + ".count", "0");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
saveDataListToDataStorage(_dataStorage, "game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
}
|
||||||
|
|
||||||
|
refreshData()
|
||||||
|
{
|
||||||
|
list _dataStorage = getDataListFromDataStorage("game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
|
||||||
|
integer _currentSlot;
|
||||||
|
|
||||||
|
for(_currentSlot = 1; _currentSlot <= m_slots; _currentSlot++)
|
||||||
|
{
|
||||||
|
if(checkDataEntryInDataList(_dataStorage, "inventar.slot." + _currentSlot) == TRUE)
|
||||||
|
{
|
||||||
|
string _invObjekt = getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot);
|
||||||
|
integer _count = (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + _currentSlot + ".count");
|
||||||
|
|
||||||
|
if(_count != 0)
|
||||||
|
{
|
||||||
|
setInventarSlotImage(_currentSlot, getInventarObjectImageKey(_invObjekt), 255);
|
||||||
|
setInventarSlotCountNumber(_currentSlot, _count);
|
||||||
|
}else{
|
||||||
|
setInventarSlotImage(_currentSlot, TEXTURE_BLANK, 0);
|
||||||
|
setInventarSlotCountNumber(_currentSlot, 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
saveDataListToDataStorage(_dataStorage, "game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
}
|
||||||
|
|
||||||
|
default
|
||||||
|
{
|
||||||
|
state_entry()
|
||||||
|
{
|
||||||
|
llSetLinkPrimitiveParamsFast(LINK_SET, [PRIM_TEXT, "", <0, 0, 0>, 0.0]);
|
||||||
|
if(m_channel_public_socket != 0)
|
||||||
|
llListenRemove(m_channel_public_socket);
|
||||||
|
|
||||||
|
m_channel_public_socket = llListen(m_channel_public, "", "", "");
|
||||||
|
|
||||||
|
if(m_channel_private_socket != 0)
|
||||||
|
llListenRemove(m_channel_private_socket);
|
||||||
|
|
||||||
|
m_channel_private_socket = llListen(Key2AppChan(llGetOwner(), 48376), "", "", "");
|
||||||
|
|
||||||
|
m_homePosition = llGetPos();
|
||||||
|
cleanGameState();
|
||||||
|
refreshData();
|
||||||
|
llSetTimerEvent(2);
|
||||||
|
}
|
||||||
|
|
||||||
|
on_rez(integer start_para)
|
||||||
|
{
|
||||||
|
m_homePosition = llGetPos();
|
||||||
|
cleanGameState();
|
||||||
|
}
|
||||||
|
|
||||||
|
timer()
|
||||||
|
{
|
||||||
|
if(llVecDist(llGetPos(), m_homePosition) >= 10)
|
||||||
|
{
|
||||||
|
m_storage_id = NULL_KEY;
|
||||||
|
osForceDetachFromAvatar();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
listen(integer channel, string name, key id, string message )
|
||||||
|
{
|
||||||
|
if(m_locked == FALSE)
|
||||||
|
{
|
||||||
|
if(left(message, ";") == "setstorageid")
|
||||||
|
m_storage_id = (key)right(message, ";");
|
||||||
|
|
||||||
|
if(left(message, ";") == "setname")
|
||||||
|
m_name = (key)right(message, ";");
|
||||||
|
|
||||||
|
if(left(message, ";") == "attachto")
|
||||||
|
{
|
||||||
|
llRequestPermissions((key)right(message, ";"), PERMISSION_ATTACH );
|
||||||
|
|
||||||
|
if(m_channel_private_socket != 0)
|
||||||
|
llListenRemove(m_channel_private_socket);
|
||||||
|
|
||||||
|
m_channel_private = Key2AppChan((key)right(message, ";"), 48376);
|
||||||
|
m_channel_private_socket = llListen(m_channel_private, "", "", "");
|
||||||
|
|
||||||
|
llMessageLinked(LINK_SET, 0, m_name, "showname");
|
||||||
|
|
||||||
|
m_locked = TRUE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if(left(message, ";") == "gamecommand")
|
||||||
|
{
|
||||||
|
if(right(message, ";") == "reload")
|
||||||
|
refreshData();
|
||||||
|
}
|
||||||
|
|
||||||
|
if(channel != m_channel_private)
|
||||||
|
return;
|
||||||
|
|
||||||
|
list _dataStorage = getDataListFromDataStorage("game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
list _dataUserStorage = getDataListFromDataStorage("game.hud.player." + id);
|
||||||
|
|
||||||
|
string _itemName = getDataEntryFromDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2));
|
||||||
|
|
||||||
|
string _playerSlot = getDataEntryFromDataList(_dataUserStorage, "selected");
|
||||||
|
|
||||||
|
if(message == m_lang_mitnehmen)
|
||||||
|
{
|
||||||
|
integer _nextFreePlayerInventarSlot = (integer)getNextFreeInventorySlot(_dataUserStorage, _itemName);
|
||||||
|
|
||||||
|
if(_nextFreePlayerInventarSlot == 0)
|
||||||
|
{
|
||||||
|
llOwnerSay(m_lang_freierSlot);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(_itemName == "")
|
||||||
|
{
|
||||||
|
llOwnerSay(m_lang_slotLeer);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _nextFreePlayerInventarSlot, _itemName);
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _nextFreePlayerInventarSlot + ".count", getItemCountFromPlayer(_dataUserStorage, _nextFreePlayerInventarSlot) + 1);
|
||||||
|
|
||||||
|
integer _itemCount = (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2) + ".count") - 1;
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2) + ".count", (string)_itemCount);
|
||||||
|
|
||||||
|
if(_itemCount == 0)
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2), "");
|
||||||
|
|
||||||
|
saveDataListToDataStorage(_dataStorage, "game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
saveDataListToDataStorage(_dataUserStorage, "game.hud.player." + id);
|
||||||
|
|
||||||
|
llSay((integer)getDataEntryFromDataList(_dataUserStorage, "channel"), "gamecommand;reload");
|
||||||
|
llSay(m_channel_public, "gamecommand;reload");
|
||||||
|
refreshData();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(message == m_lang_lagern)
|
||||||
|
{
|
||||||
|
|
||||||
|
string _selectedItem = getDataEntryFromDataList(_dataUserStorage, "inventar.slot." + _playerSlot);
|
||||||
|
integer _itemCount = (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2) + ".count") + 1;
|
||||||
|
|
||||||
|
if(_selectedItem != _itemName && _itemName != "")
|
||||||
|
{
|
||||||
|
llOwnerSay(m_lang_gleicheItems);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if(_selectedItem == "")
|
||||||
|
{
|
||||||
|
llOwnerSay("Du hast kein Item ausgewählt.");
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2), _selectedItem);
|
||||||
|
_dataStorage = setDataEntryInDataList(_dataStorage, "inventar.slot." + llList2String(m_last_touch, 2) + ".count", _itemCount);
|
||||||
|
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _playerSlot, _selectedItem);
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _playerSlot + ".count", getItemCountFromPlayer(_dataUserStorage, _playerSlot) - 1);
|
||||||
|
|
||||||
|
if(getItemCountFromPlayer(_dataUserStorage, _playerSlot) <= 0)
|
||||||
|
{
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _playerSlot, "");
|
||||||
|
_dataUserStorage = setDataEntryInDataList(_dataUserStorage, "inventar.slot." + _playerSlot + ".count", "0");
|
||||||
|
}
|
||||||
|
|
||||||
|
saveDataListToDataStorage(_dataStorage, "game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
saveDataListToDataStorage(_dataUserStorage, "game.hud.player." + id);
|
||||||
|
|
||||||
|
llSay((integer)getDataEntryFromDataList(_dataUserStorage, "channel"), "gamecommand;reload");
|
||||||
|
llSay(m_channel_public, "gamecommand;reload");
|
||||||
|
refreshData();
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
run_time_permissions( integer vBitPermissions )
|
||||||
|
{
|
||||||
|
if( vBitPermissions & PERMISSION_ATTACH )
|
||||||
|
llAttachToAvatarTemp( ATTACH_HUD_TOP_CENTER );
|
||||||
|
}
|
||||||
|
|
||||||
|
attach(key id)
|
||||||
|
{
|
||||||
|
if(id != NULL_KEY)
|
||||||
|
llSetPos(<0, 0, -0.2>);
|
||||||
|
}
|
||||||
|
|
||||||
|
touch_start(integer i)
|
||||||
|
{
|
||||||
|
m_last_touch = llParseString2List(llGetLinkName(llDetectedLinkNumber(0)), ["-"], []);
|
||||||
|
|
||||||
|
//Nummer des Inventar Slot
|
||||||
|
integer _inventarSlot = (integer)llList2String(m_last_touch, 2);
|
||||||
|
|
||||||
|
list _dataStorage = getDataListFromDataStorage("game.inventar.objekt." + m_storage_id + ".inventar");
|
||||||
|
list _dataUserStorage = getDataListFromDataStorage("game.hud.player." + llDetectedKey(0));
|
||||||
|
|
||||||
|
string _playerSlot = getDataEntryFromDataList(_dataUserStorage, "selected");
|
||||||
|
|
||||||
|
string _itemName = getDataEntryFromDataList(_dataStorage, "inventar.slot." + _inventarSlot);
|
||||||
|
integer _itemCount = (integer)getDataEntryFromDataList(_dataStorage, "inventar.slot." + _inventarSlot + ".count");
|
||||||
|
|
||||||
|
list _dataItemStorage = getDataListFromDataStorage("item." + _itemName);
|
||||||
|
|
||||||
|
string _displayName = getDataEntryFromDataList(_dataItemStorage, "displayname");
|
||||||
|
|
||||||
|
if(llList2String(m_last_touch, 0) == "button" && llList2String(m_last_touch, 1) == "close")
|
||||||
|
osForceDetachFromAvatar();
|
||||||
|
|
||||||
|
if(llList2String(m_last_touch, 0) == "inv" && llList2String(m_last_touch, 1) == "slot")
|
||||||
|
{
|
||||||
|
list _buttons = [m_lang_mitnehmen];
|
||||||
|
string _beschreibung = osFormatString(m_lang_fullSlotDesc, [_displayName]);
|
||||||
|
|
||||||
|
if(getDataEntryFromDataList(_dataUserStorage, "inventar.slot." + _playerSlot) == _itemName)
|
||||||
|
_buttons += [m_lang_lagern];
|
||||||
|
|
||||||
|
if(_itemCount == 0)
|
||||||
|
{
|
||||||
|
_buttons = [m_lang_lagern];
|
||||||
|
_beschreibung = m_lang_emptrySlotDesc;
|
||||||
|
}
|
||||||
|
|
||||||
|
llDialog(llDetectedKey(0), _beschreibung, _buttons, m_channel_private);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
integer Key2AppChan(key ID, integer App)
|
||||||
|
{
|
||||||
|
return 0x80000000 | ((integer)("0x"+(string)ID) ^ App);
|
||||||
|
}
|
||||||
|
|
||||||
|
string left(string src, string divider)
|
||||||
|
{
|
||||||
|
integer index = llSubStringIndex( src, divider );
|
||||||
|
if(~index)return llDeleteSubString( src, index, -1);
|
||||||
|
return src;
|
||||||
|
}
|
||||||
|
|
||||||
|
string right(string src, string divider)
|
||||||
|
{
|
||||||
|
integer index = llSubStringIndex( src, divider );
|
||||||
|
if(~index)return llDeleteSubString( src, 0, index + llStringLength(divider) - 1);
|
||||||
|
return src;
|
||||||
|
}
|
||||||
|
|
||||||
|
key getInventarObjectImageKey(string objektName)
|
||||||
|
{
|
||||||
|
list _dataStorage = getDataListFromDataStorage("item." + objektName);
|
||||||
|
|
||||||
|
string _image = getDataEntryFromDataList(_dataStorage, "image");
|
||||||
|
|
||||||
|
if(_image == "")
|
||||||
|
return TEXTURE_BLANK;
|
||||||
|
|
||||||
|
return (key)_image;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
setInventarSlotImage(integer slot, key imageID, integer alpha)
|
||||||
|
{
|
||||||
|
if(getDataEntryFromDataList(m_current, "state.slot."+ slot) != (string)imageID)
|
||||||
|
{
|
||||||
|
integer _linkCount = osGetLinkNumber("inv-slot-" + slot);
|
||||||
|
llSetLinkAlpha(_linkCount, alpha, 4);
|
||||||
|
llSetLinkTexture(_linkCount, imageID, 4);
|
||||||
|
|
||||||
|
m_current = setDataEntryInDataList(m_current, "state.slot."+ slot, (string)imageID);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
setInventarSlotCountNumber(integer slot, integer count)
|
||||||
|
{
|
||||||
|
if(getDataEntryFromDataList(m_current, "state.slot."+ slot +".count") != (string)count)
|
||||||
|
{
|
||||||
|
integer _linkCount = osGetLinkNumber("inv-number-" + slot);
|
||||||
|
|
||||||
|
if(count != 0)
|
||||||
|
llSetLinkPrimitiveParamsFast(_linkCount, [PRIM_TEXT, (string)count, <1, 1, 0.5>, 1.0]);
|
||||||
|
|
||||||
|
if(count == 0)
|
||||||
|
llSetLinkPrimitiveParamsFast(_linkCount, [PRIM_TEXT, "", <0, 0, 0>, 0.0]);
|
||||||
|
|
||||||
|
m_current = setDataEntryInDataList(m_current, "state.slot."+ slot +".count", (string)count);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
//DATA STORE LOGIC
|
||||||
|
|
||||||
|
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);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue