integer channel = -23;
integer female_chan = -696969;
integer male_chan = -969696;
list male_IDs = [];
list male_profiles = [];
list female_IDs = [];
//list female_IDs = [];
list female_profiles = [];
key id = NULL_KEY;
integer listenhandle;
string gender;

string GetGender(key avatar)
{
    list details = llGetObjectDetails(avatar, [OBJECT_BODY_SHAPE_TYPE]);
    if (details == []) return "";
    float gender = llList2Float(details, 0);
    if (gender < 0.0)   return "object";
    if (gender == 0.0)  return "female";
    if (gender < 1.0)   return "somewhat masculine";
    return "male";
}

default
{
    state_entry()
    {
        //llSetTimerEvent(20);
    }

    touch_start(integer total_number)
    {
        id = llDetectedKey(0);
        listenhandle = llListen(channel, "", "", "");
        gender = GetGender(id);
        llTextBox(id, "\nPlease describe yourself very briefly.\nWhat makes you special and interesting?\n", channel);
     }

     listen(integer chan, string name, key ID, string text)
     {
         if ((gender == "male") &  (text != ""))
            {
                male_IDs = male_IDs + id;
                male_profiles = male_profiles + text;
                llRezAtRoot("Speed Dating HUD for Men", llGetPos(), <0,0,0>, ZERO_ROTATION, 10);
                llSleep(1.0);
                llSay(-9523, (string)id);
                llSay(male_chan, llDumpList2String(female_IDs, "|"));
                llSay(male_chan+1, llDumpList2String(female_profiles, "|"));
            }

             if ((gender == "female") & (text != ""))
            {
                female_IDs = female_IDs + id;
                female_profiles = female_profiles + text;
                llRezAtRoot("Speed Dating HUD for Women", llGetPos(), <0,0,0>, ZERO_ROTATION, 10);
                llSleep(1.0);
                llSay(-9523, (string)id);
                llSay(female_chan, llDumpList2String(male_IDs, "|"));
                llSay(female_chan+1, llDumpList2String(male_profiles, "|"));
            }

            //llSay(0,"male:"+(string)male_participants);
            //llSay(0,"female:"+(string)female_participants);
     }
}