// Set up Gloabls for RLV listener event
integer channel;
integer listener;
integer listLength;
string scanType;
string name;

// Human readable list which is used to translate return from @getoutfit[:part]=<channel_number> 
// http://wiki.secondlife.com/wiki/LSL_Protocol/RestrainedLoveAPI#Clothing_and_Attachments
list clothingTypes=
[
    "gloves","jacket","pants","shirt","shoes","skirt","socks","underpants",
    "undershirt","skin","eyes","hair","shape","alpha","tattoo"
];
// Human readable list which is used to translate return from @getattach[:attachpt]=<channel_number> 
list attachmentTypes =
[
"none","chest","skull","left shoulder","right shoulder","left hand","right hand","left foot","right foot",
"spine","pelvis","mouth","chin","left ear","right ear","left eyeball","right eyeball","nose","r upper arm",
"r forearm","l upper arm","l forearm","right hip","r upper leg","r lower leg","left hip","l upper leg",
"l lower leg","stomach","left pec","right pec","center 2","top right","top","top left","center","bottom left","bottom","bottom right","neck","root"
];
 
removeListener()
{
    if(listener!=0)
    {
        llListenRemove(listener);
        listener=0;
    }
    llSetTimerEvent(0.0);
}
getWorn(string message) {
    integer index;
    // Check what type of scan we're doing
    if(scanType == "Clothing") {
        // Get the length for the loop
        listLength=llGetListLength(clothingTypes);
        for(index=0;index<listLength;index++) {
            if(llGetSubString(message,index,index)=="1") {
                string name=llList2String(clothingTypes, index);
                llOwnerSay("Clothing type worn: " +name);
            }
        }
    }
    else if(scanType=="Attachments") {
        // Get the length of the loop
        listLength=llGetListLength(attachmentTypes);
        for(index=0;index<listLength;index++) {
            if(llGetSubString(message, index,index)== "1") {
                string name=llList2String(attachmentTypes, index);
                llOwnerSay("Attachment worn: " +name);
            }
        }
    }
    else if(scanType == "End") {
    //    removeListener();
    }
    llOwnerSay("Scan complete.");
}


 
default
{
    state_entry()
    {
        listener=0;
        llOwnerSay("Touch me to find out which clothing types you are wearing.");
    }
 
    touch_start(integer total_number)
    {
        // Sink multiple clicks from impatient users
        if(listener!=0)
        {
            llOwnerSay("We are already looking for clothes. Please wait for the scan to finish.");
            return;
        }
        // Set up random channel for listener
        channel=(integer) (llFrand(100000)+100000);
        listener=llListen(channel,"",llDetectedKey(0),"");
        // Set a safety timeout for users without RLV and laggy sims
        llSetTimerEvent(5.0);
        llOwnerSay("Scanning for clothes ...");
        scanType = "Clothing";
        llOwnerSay("@getoutfit="+(string) channel);

    }
 
    listen(integer channel,string name,key sender,string message)
    {       
        getWorn(message);
        if(scanType == "Clothing") {
            llOwnerSay("Scanning for attachments ...");
            scanType="Attachments";
            llOwnerSay("@getattach="+(string) channel);
        }else if(scanType == "Attachments") {
            removeListener();
        }
    }

 
    timer()
    {
        removeListener();
        llOwnerSay("Scan timeout. You are probably not using RLV.");
    }
}