/*TEST INPUT*/list Data = [-1,0,0,0];

list Names = [-1,"Ferrum Carbide (FeC)",-2,"Titanium Disulfide (TiS)"];//type,name

list FindHexPosition(integer Type) //Returns [LinkNumber,Face,Axis] of input Type
{
    integer Index = llListFindList(Data,[Type]);
    return [(integer)llList2String(Data,Index+1),(integer)llList2String(Data,Index+2),(integer)llList2String(Data,Index+3)];
}

integer GetStoredValue(integer Type)
{
    integer Index = llListFindList(Data,[Type]);
    integer Link = (integer)llList2String(Data,Index+1);
    integer Face = (integer)llList2String(Data,Index+2);
    integer Axis = (integer)llList2String(Data,Index+3);

    vector Temp = (vector)llList2String(llGetLinkPrimitiveParams(Link,[PRIM_COLOR,Face]),0)*255;
    if(Axis == 0)   return (integer)Temp.x;
    if(Axis == 1)   return (integer)Temp.y;
    else            return (integer)Temp.z;
}

WriteValue(integer Type, integer Value)
{
    integer Index = llListFindList(Data,[Type]);
    integer Link = (integer)llList2String(Data,Index+1);
    integer Face = (integer)llList2String(Data,Index+2);
    integer Axis = (integer)llList2String(Data,Index+3);

    vector Temp = (vector)llList2String(llGetLinkPrimitiveParams(Link,[PRIM_COLOR,Face]),0)*255;
    if(Axis == 0)   return Overflow((integer)Temp.x;
    if(Axis == 1)   return (integer)Temp.y;
    else            return (integer)Temp.z;

string GetName(integer Type)
{
    integer Index = llListFindList(Names,[Type]);
    return llList2String(Names,Index+1);
}

integer Overflow(integer in)
{
    if(in > 255) return 255;
    else return in;
}