//list Data = [-1,2,0,0,-2,2,0,1];//type,linknumber,face,axis
/*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*255;
    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);
    llSay(0,"Writing: "+(string)Value+" to Link: "+(string)Link+" Face: "+(string)Face+" Axis: "+(string)Axis);
    vector Temp = (vector)llList2String(llGetLinkPrimitiveParams(Link,[PRIM_COLOR,Face]),0)*255;
    llSay(0,(string)Temp);
    if(Axis == 0)   Temp = <(float)Overflow((integer)Temp.x),Temp.y,Temp.z>;
    if(Axis == 1)   Temp = <Temp.x,(float)Overflow((integer)Temp.y),Temp.z>;
    else            Temp = <Temp.x,Temp.y,(float)Overflow((integer)Temp.z)>;
    llSetLinkColor(Link,Temp,Face);
    llSay(0,(string)(Temp/255));
}

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


default
{
    state_entry()
    {
        WriteValue(-1,3);
    }

    touch_start(integer total_number)
    {
        llSay(0,"Value: "+(string)GetStoredValue(-1));
    }
}