integer channel = 19283;
//  Establish a simple distinct channel for each owner
list letters = [" ","-","+","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"];

integer ChannelFromName()
{
    integer x;
    integer length;
    integer channel;
    string owner = llToLower(llKey2Name(llGetOwner()));
    for(x=0, length=llStringLength(owner); x<length; ++x)
    {
               channel+=llListFindList(letters,[llGetSubString(owner,x,x)]);
    }
//    llOwnerSay("channel selected is "+(string)channel);
    return channel;
}


default
{
    state_entry()
    {
        channel = ChannelFromName();
    }

    touch_start(integer total_number)
    {
        llRegionSay(channel, "Health On");
        llOwnerSay("Drone's health has been activated.");
    }

}