Rotating script

Hi,
I think this subject had be explained many many times but I do not find a simple example of rotating script amoung various threads.

I want to rorate a multi-prims object in this way :
Go
Turn right (rotation on the right)
Go
Turn right (rotation on the right)
Go
Turn right (rotation on the right)
Go
Turn right (rotation on the right, then back to the starting point)

My object go back to the starting point but his orientation is completly absurd !
Could I have your help to find the mistake ?

vector startPoint;
vector currentPoint;
float speed = 0.1;

integer direction; //1 = front, 2 = right, 3 = left, 4 = back

default
{
    state_entry()
    {
        //No use for instance
        startPoint = llGetPos();
    }

    touch_start(integer total_number)
    {
        rotation Rotation = llEuler2Rot(<0,0,PI/4>);
        
        for (direction = 1; direction < 5; direction++)
        {
            currentPoint = llGetPos();
            integer i;
            for(i = 0; i < 5; i++ )  
            {
                if (direction == 1)
                {
                    currentPoint = currentPoint + < i*speed, 0, 0>;
                }
                if (direction == 2)
                {
                    currentPoint = currentPoint + < 0, -i*speed, 0>;
                }
                if (direction == 3)
                {
                    currentPoint = currentPoint + < -i*speed, 0, 0>;
                }
                if (direction == 4)
                {
                currentPoint = currentPoint + < 0, i*speed, 0>; 
                }
                llSetPos(currentPoint);
            }
            Rotation = Rotation * llGetRot();
            llSetRot(Rotation);
        }
    }                    
}

instead of:

Rotation = Rotation * llGetRot();
llSetRot (Rotation);

try:

llSetRot(llGetRot() * Rotation);

Rotation should remain at 90 degrees. Your prim will keep the current rotation.

Yes, it is...
I had quite difficulties with this concept that rotation must to be without temp variable to keep current rotation.
However, maybee I'm not saw it but, I find amazing that nobody has proposed a set of usefull functions (excepts in tutorials but there are not globlal examples).

Then, this is functions that I propose (approvals tests) :

rotateX(integer degree)
{
    llSetRot(llEuler2Rot(< 0, degree * DEG_TO_RAD, 0 >) * llGetRot());
}
rotateY(integer degree)
{
    llSetRot(llEuler2Rot(< degree * DEG_TO_RAD, 0, 0 >) * llGetRot());
}
rotateZ(integer degree)
{
    llSetRot(llEuler2Rot(< 0, 0, degree * DEG_TO_RAD >) * llGetRot());
}
moveX(integer distance)
{
    llSetPos(llGetPos() + < distance, 0, 0 >);   
}
moveY(integer distance)
{
    llSetPos(llGetPos() + < 0, distance, 0 >);   
}
moveZ(integer distance)
{
    llSetPos(llGetPos() + < 0, 0, distance >);   
}

This is great!
I have one question.
How would these look if you wanted to get the rotation of the object your in?
Say on a timer so it always knows it's own rotation in degree?

I need to detect this to make effects depending which way the object is facing or is tilted.

PI/4 is only 45 degrees.

A circle is TWO_PI, 180 degrees is PI, and 90 degrees is PI/2.

I'm also a little leery of the code here:
Rotation = Rotation * llGetRot();
llSetRot(Rotation);

The quaterian calculations still confuse me some, so I don't know if this works or not. If there's any question, I'd try it with euler first, verify it works ok, and then try it without euler.