Product Prim with Uniquechan

string name = "hair_color_red";
integer comchan = -77;
integer uniquechan1;
integer uniquechan2;
integer uniquechan3;
integer unique_handle1;
integer unique_handle2;
integer unique_handle3;
integer listen_handle;
key HUDPrim;

default
{

   on_rez(integer start_param)
    {

        llResetScript();

    }

    state_entry()
    {

        listen_handle = llListen(comchan,"","","");

    }

    listen(integer chan, string name, key id, string msg)
    {

        if(chan == comchan)
        {

    list tmpData = llParseString2List(msg,["#"],[]);
    string cmd = llStringTrim(llList2String(tmpData,0),STRING_TRIM);
    integer ref = (integer)llStringTrim(llList2String(tmpData,1),STRING_TRIM);

            if(cmd == name )
            {
                HUDPrim = id;
                llListenRemove(listen_handle);
                uniquechan1 = ref -1234;
                uniquechan2 = ref - 5678;
                uniquechan3 = ref - 91011;
                llRegionSayTo(id,comchan,"Pong!");
                unique_handle1 = llListen(uniquechan1,"",HUDPrim,"");
                unique_handle2 = llListen(uniquechan2,"",HUDPrim,"");
                unique_handle3 = llListen(uniquechan3,"",HUDPrim,"");

            }

        }
    }

}