Eiko's die roll

integer diceroll6 (string namer)
{
    integer rot;
    list values = [<0.50000, -0.50000, 0.50000, -0.50000>,  <-0.50000, -0.50000, -0.50000, 0.50000>, <1.00000, 0.00000, 0.00000, 0.00000>,  <0.00000, 0.00000, 0.70711, -0.70711>,  <0.50000, 0.50000, -0.50000, 0.50000>, <-0.50000, -0.50000, -0.50000, -0.50000>,<0.70711, 0.00000, 0.00000, -0.70711>,<0.70711, 0.00000, 0.70711, 0.00000>,<0.70711, -0.70711, 0.00000, 0.00000>,<0.00000, 0.00000, 0.00000, 1.00000>,<0.70711, 0.00000, -0.70711, 0.00000>,<-0.70711, 0.00000, 0.00000, -0.70711>];
    list numbrs = ["one", "two", "three", "four", "five", "six","one", "two", "three", "four", "five", "six"];
    integer a;
    for (a = 1; a < 4; ++a)
    {
        rot = (integer)llFrand(12);
        llSetLinkPrimitiveParams(3, [PRIM_ROT_LOCAL, llList2Rot (values, rot) ]);
    }
    llWhisper (0, namer + " rolled a " + llList2String(numbrs,rot));
    rot = rot + 1;
    if (rot > 6) rot = rot -6;
    return rot;
}