Second Life Physics Scripting - Pinball #13 - Flipper Rotation Issues

I've got the first flipper movement. It doesn't actually orient correctly or rotate around the correct axis, but it is movement and the rest is just some extra math.

I took the start rotation and end rotation ligning up the flipper where I wanted it, then running the script to see the rotation. This doesn't seem to work as the rotation is not the same as how I lined it up, but it's close and late at night and deserves to be a stopping point.


Here is the script in the flipper.

integer MSG_RIGHT_ON_NUM = 5115;
integer MSG_RIGHT_OFF_NUM = 5116;
integer MSG_LEFT_ON_NUM = 5117;
integer MSG_LEFT_OFF_NUM = 5118;

rotation start_rot =  <0.35240, 0.55950, 0.62163, 0.41994>;
rotation end_rot = <0.66946, 0.22398, 0.36898, 0.60458>;

default
{
    state_entry()
    {
       //start_rot = llGetRot();
       llOwnerSay("right rot = "+(string)llGetRot());   
       llSetRot(start_rot);
    }

    link_message(integer from, integer msg_id, string str, key id)
    {
        if (msg_id == MSG_RIGHT_ON_NUM)
        {
            llOwnerSay("right flipper on");
            llSetRot(end_rot);
        }
        else if (msg_id == MSG_RIGHT_OFF_NUM)
        {
            llOwnerSay("right flipper off");
            llSetRot(start_rot);
        }
    }    
}

Here is the code in the main object that takes over the controls.

integer MSG_RIGHT_ON_NUM = 5115;
integer right_flipper = -1;

integer MSG_RIGHT_OFF_NUM = 5116;
integer MSG_LEFT_ON_NUM = 5117;
integer MSG_LEFT_OFF_NUM = 5118;

    state_entry()
    {
        integer current_link_nr = llGetNumberOfPrims();
        // Check if it's more than one
        if (1 < current_link_nr)
        {
            // avatars sitting on us get added at the end, so subtract...
            while (llGetAgentSize(llGetLinkKey(current_link_nr)))
                --current_link_nr;
            
            while(current_link_nr>0)
            {
                if (llGetLinkName(current_link_nr)=="right_flipper")
                {
                    llOwnerSay("found right_flipper: "+(string)current_link_nr);
                    right_flipper = current_link_nr;
                    llMessageLinked(right_flipper, MSG_SET_PARENT_ROT, (string)llGetRot(), NULL_KEY);            
                    
                }
                current_link_nr--;
            }
        }  
    }

control(key id, integer held, integer change)
    {
        //llSay(0, "control id="+(string)id);
        //llSay(0, "        held="+(string)held+" change="+(string)change);
        //llSay(0, "        ROT_RIGHT"+(string)CONTROL_ROT_RIGHT);
        if ((held&&CONTROL_ROT_RIGHT) && (change&&CONTROL_ROT_RIGHT))
        {
            //llSay(0," right flipper on");
            llMessageLinked(right_flipper, MSG_RIGHT_ON_NUM, "", NULL_KEY);            
            
        }
        else if (((held&&CONTROL_ROT_RIGHT)==0) && (change&&CONTROL_ROT_RIGHT))
        {
            //llSay(0," right flipper off");
            llMessageLinked(right_flipper, MSG_RIGHT_OFF_NUM, "", NULL_KEY);            
        }
    }

As you can see I'm using linked messages to tell the flipper to rotate. This is normal. Also, the control code is a separate script in the root object. Now my root object has 8 scripts. Blank Collision, Bumper, LinkNanny, LinkNanny-bumper, LinkNanny-sidewall, PayAndKeyboard, RootNanny, side-wall-bounce. LSL almost requires that you break up your code into different and more manageable scripts.