// BETLOG Hax
// Nomad Padar said "WTF is this doing..." so we tested it...and it was strange.
// UTC+10: 20090701 0633 [SLT: 20090630 1333]
list        gList = [
    "LINK_THIS"                 ,LINK_THIS
    ,"LINK_ROOT"                ,LINK_ROOT
    ,"LINK_SET"                 ,LINK_SET // THIS CONSTANT GIVES UNEXPECTED BUT PREDICTABLE RESULTS
    ,"LINK_ALL_OTHERS"          ,LINK_ALL_OTHERS
    ,"LINK_ALL_CHILDREN"        ,LINK_ALL_CHILDREN
];
integer gTog;
//----------------------------------
f_init()
{   if(llGetNumberOfPrims()!=3) return; //DON'T SIT ON ME - YOU NOOB :]
    if(llGetLinkNumber()>1)  llRemoveInventory(llGetScriptName());
    llSetLinkPrimitiveParams(LINK_SET,[
        PRIM_COLOR, 5, <0.0, 0.0, 0.5>, 1.0
        , PRIM_COLOR, 4, <0.5, 0.0, 0.0>, 1.0
        , PRIM_COLOR, 3, <0.0, 0.5, 0.0>, 1.0
        , PRIM_COLOR, 2, <1.0, 0.0, 0.0>, 1.0
        , PRIM_COLOR, 1, <0.0, 1.0, 0.0>, 1.0
        , PRIM_COLOR, 0, <0.0, 0.0, 1.0>, 1.0
        , PRIM_FULLBRIGHT, ALL_SIDES, 0
        , PRIM_FULLBRIGHT, 2, 1
        , PRIM_FULLBRIGHT, 1, 1
        , PRIM_FULLBRIGHT, 0, 1
        , PRIM_SIZE, <0.5, 0.5, 0.5>
        , PRIM_ROTATION, ZERO_ROTATION
    ]);
    llSetLinkPrimitiveParams(2,[
        PRIM_POSITION, <0.75, 0.75, 0.25>
    ]);        
    llSetLinkPrimitiveParams(3,[
        PRIM_POSITION, <-0.75, -0.75, -0.25>
    ]);        
    llSetScale(<1.0, 1.0, 1.0>);
    llSay(0, 
        "\n 1) Clone this linkset 5 times..."
        +"\n 2) Rename each root object as each of the following: "
        +"\n LINK_THIS"
        +"\n LINK_ROOT"
        +"\n LINK_SET"
        +"\n LINK_ALL_OTHERS"
        +"\n LINK_ALL_CHILDREN"
        +"\n Then touch each object to toggle the rotation, note that LINK_SET seems to double up on the child rotations."
    );    
}
//----------------------------------
default
{   on_rez(integer param) 
    {   
    }
    state_entry()
    {   f_init();
    }
    changed(integer change) 
    {   if(change & CHANGED_LINK)
            f_init();
    }
    touch_start(integer total_number)
    {   gTog=!gTog;
        integer i = llListFindList(gList, [llGetObjectName()]);
        if(-1<i && !(i&1))//is in list and is odd index
        {   if(gTog)
                llSay(0, "rotated.z 45"); 
            else
                llSay(0, "rotated.z 0");
            llSetText(llGetObjectName(), <1.0, 1.0, 1.0>, 1.0);        
            llSetLinkPrimitiveParams(
                llList2Integer(gList, i+1) 
                ,[PRIM_ROTATION, llEuler2Rot(<0.0, 0.0, 45.0>*gTog*DEG_TO_RAD)]
            );
        }
    }
}