functions_lib.lsl

//small functions lib
//update coming soon







//------get primsize------
getscale()
{
    list data = llGetPrimitiveParams([PRIM_SIZE]);
    vector scale = llList2Vector(data,0);
    return scale;
}
vector key2location(key UUID)
{
    list Data = llGetObjectDetails(UUID, ([OBJECT_POS]) );
    return (vector)llList2String(Data, 0);
}
//-------set link alpha-------
set_alpha(string prim, float alpha, integer face)
{
    integer num = llGetNumberOfPrims();
    integer x;
    for(x=0;x<=num;x++)
    {
        if(llGetLinkName(x)==prim)
        {
            llSetLinkAlpha(x,alpha,face);
        }
    }
}
//----------crypt-------
string pass = "1234";
string token()
{
    string token = (string)(271101+21981+10879)+llGetDate()+(string)llGetTime()+(string)(31184+241259+61259);
    return token;
}
string crypt(string data)
{
    string crypt = llXorBase64StringsCorrect(llStringToBase64(data),llStringToBase64(pass+token()));
    return crypt;
}
string decrypt(string data)
{
    string decrypt = llBase64ToString(llXorBase64StringsCorrect(data,llStringToBase64(pass+token())));
    return decrypt;
}
//------set link color------
set_color(string prim,vector color,integer face)
{
    integer num = llGetNumberOfPrims();
    integer i;
    for(i=0;i<=num;i++)
    {
        if(llGetLinkName(i)==prim)
        {
            llSetLinkColor(i,color,face);
        }
    }
}
//-------set link texture-------
set_texture(string prim,key text,integer face,vector repeats,vector offsets,float rot)
{
    integer num = llGetNumberOfPrims();
    integer i;
    for(i=0;i<=num;i++)
    {
        if(llGetLinkName(i)==prim)
        {
            llSetLinkPrimitiveParamsFast(i,[PRIM_TEXTURE,face,text,repeats,offsets, (rot*DEG_TO_RAD)]);
        }
    }
}
//------generate a menu ------
integer handle;
integer menuChan;
makeMenu(key id, string menutext, list buttons)
{
    llListenRemove(handle);
    menuChan = 50000 + (integer)llFrand(50000.00);
    handle = llListen(menuChan,"",NULL_KEY,"");
    llDialog(id,menutext,buttons,menuChan);
}
//--- data in list?-----
list visitor_list;
integer isNameOnList( string name )
{
    integer len = llGetListLength( visitor_list );
    integer i;
    for( i = 0; i < len; i++ )
    {
        if( llList2String(visitor_list, i) == name )
        {
            return TRUE;
        }
    }
    return FALSE;
}
//------rgb to alpha-------
vector RgbToAlpha(vector Rgb)
{
    return <(integer)(Rgb.x * 255.0),(integer)(Rgb.y * 255.0),(integer)(Rgb.z * 255.0)>;
}
//----- alpha  to rgb-----
vector AlphaToRgb(vector Alpha)
{
    return <(Alpha.x / 255.0),(Alpha.y / 255.0),(Alpha.z / 255.0)>;
}



default
{
    state_entry()
    {
        //example rgb to alpha
        llSay(0,(string)RgbToAlpha(<1,0.3456,0.4678>));
    }
}