// Done with help from the Scripts group and Wicked Winslet

list HerbNames = [];
list HerbAmounts = [];
default
{
    state_entry()
    {
       llListen(0,"",NULL_KEY,"");
    }

    touch_start(integer total_number)
    {
        llOwnerSay(llGetListLength(HerbNames);
    }
    listen(integer channel, string name, key id, string message)
    {
        list temp = llParseString2List(message, [""],[""]);
            if (llList2String(temp,0)=="")
            {
                HerbNames += llList2String(temp,1);
                temp == [];
            }
            else
            {
                llSay (1, "Invalid!");
                temp == [];
            }
    }
}