string Title = "llAttachToAvatar";
integer needsAdditionalTesting = TRUE;
integer onlyRunOnce = FALSE;

integer spot2Attach = 0;
// list attatchmentMissing = [ATTACH_LEFT_PEC,ATTACH_RIGHT_PEC];
list attachmentpoints = [ATTACH_CHEST,ATTACH_HEAD,ATTACH_LSHOULDER,ATTACH_RSHOULDER,ATTACH_LHAND,ATTACH_RHAND,ATTACH_LFOOT,ATTACH_RFOOT,ATTACH_BACK,ATTACH_PELVIS,ATTACH_MOUTH,ATTACH_CHIN,ATTACH_LEAR,ATTACH_REAR,ATTACH_LEYE,ATTACH_REYE,ATTACH_NOSE,ATTACH_RUARM,ATTACH_RLARM,ATTACH_LUARM,ATTACH_LLARM,ATTACH_RHIP,ATTACH_RULEG,ATTACH_RLLEG,ATTACH_LHIP,ATTACH_LULEG,ATTACH_LLLEG,ATTACH_BELLY,ATTACH_HUD_CENTER_2,ATTACH_HUD_TOP_RIGHT,ATTACH_HUD_TOP_CENTER,ATTACH_HUD_TOP_LEFT,ATTACH_HUD_CENTER_1,ATTACH_HUD_BOTTOM_LEFT,ATTACH_HUD_BOTTOM,ATTACH_HUD_BOTTOM_RIGHT];

integer needs2RequestPermissions = TRUE;
integer permissionTypeNeeded = 3;
integer gotPermissions = FALSE;
list permissionTypes = [PERMISSION_DEBIT,PERMISSION_TAKE_CONTROLS,PERMISSION_TRIGGER_ANIMATION,PERMISSION_ATTACH,PERMISSION_CHANGE_LINKS,PERMISSION_TRACK_CAMERA,PERMISSION_CONTROL_CAMERA];
list permissionTypesString = ["PERMISSION_DEBIT","PERMISSION_TAKE_CONTROLS","PERMISSION_TRIGGER_ANIMATION","PERMISSION_ATTACH","PERMISSION_CHANGE_LINKS","PERMISSION_TRACK_CAMERA","PERMISSION_CONTROL_CAMERA"];

integer intFunctionParamater1 = -4;
integer intFunctionParamater2 = -5;

integer boolFunctionParamater1 = TRUE;
integer boolFunctionParamater2 = FALSE;

float floatFunctionParamater1 = 4.0;
float floatFunctionParamater2 = 5.0;

string stringFunctionParamater1 = "four";
string stringFunctionParamater2 = "five";

list listFunctionParamater1 = [1,2,3,4,5,6];
list listFunctionParamater2 = ["one","two","three","four","five","six"];

vector vectorFunctionParamater1 = <1.0,1.0,1.0>;
vector vectorFunctionParamater2 = <-1.0,-1.0,-1.0>;


integer integerResultValue = 4;
float floatResultValue = 4.0;
string stringResultValue = "four";


integer channel = 1;
integer timesRan = 0;

integer runFunctionTest()
{
    runFunction(llList2Integer(attachmentpoints, spot2Attach));
	spot2Attach++;
	if (spot2Attach == llGetListLength(attachmentpoints))
		spot2Attach = 0;

    return boolFunctionParamater1;

    // return runFunction(intFunctionParamater1);
}

runFunction(integer value)
{
    if ((onlyRunOnce) && (timesRan != 0)) return;
    llAttachToAvatar(value);
}

printFunctionTestInfo()
{
    llSay(0,Title + "(" + boolFunctionParamater1 + ") == " + runFunctionTest());
}

RunTest()
{
    if ((needs2RequestPermissions) && (!gotPermissions))
    {
        llRequestPermissions( llGetOwner(), llList2Integer(permissionTypes,permissionTypeNeeded) );
        return;
    }

    integer results = runFunctionTest();
    if (needsAdditionalTesting)
        llSetText("Manual Test\n" + Title, <1.0,1.0,1.0>,1.0);
    else if (results)
        llSetText("Good " + Title, <0.0,1.0,0.0>,1.0);
    else
        llSetText("Bad " + Title, <0.0,1.0,0.0>,1.0);
    printFunctionTestInfo();
    llShout(channel + 1, (string)results);
}

default
{
    state_entry()
    {
        // listen on channel zero for any chat spoken by the object owner.
        llSetObjectName(Title);
        llSetText(Title, <1.0,1.0,1.0>,1.0);
        llListen(channel,"","","");
    }

    run_time_permissions( integer vBitPermissions )
    {
        if( vBitPermissions & llList2Integer(permissionTypes,permissionTypeNeeded) )
        {
            gotPermissions = TRUE;
            RunTest();
        }
        else
        {
            gotPermissions = FALSE;
            llSay(0, "Permission to " + llList2String(permissionTypesString,permissionTypeNeeded) + " denied." );
        }
    }

    touch_start(integer a)
    {
        RunTest();
    }

    listen(integer channel, string name, key id, string message)
    {
        if (llToLower(message) == "test")
        {
            RunTest();
        }
    }

	on_rez(integer a)
	{
		llResetScript();
	}
}