integer gMaxMilk = 100;
float gTimerInterval = 72.0;
integer gMilkChannel = 100;
integer gCriticalMilk;
integer gMilkLevel;
string gName;
integer gFinalCounter;
integer getUniqueChannel(key id){
    return (integer)("0x"+llGetSubString(llMD5String((string)id,1),0,6));
}
string getFirstName(string fullName)
{
    return llList2String(llParseString2List(fullName,[" "],[]),0);
}
say(string msg)
{
    string objName = llGetObjectName();
    llSetObjectName("");
    llSay(0, msg);
    llSetObjectName(objName);
}
default
{
    state_entry()
    {
        llSetTimerEvent(gTimerInterval);
        gMilkChannel = getUniqueChannel(llGetOwner()) - 30;
        gName = getFirstName(llGetDisplayName(llGetOwner()));
        gCriticalMilk = (integer)((float)gMaxMilk * 0.6);
        llListen(gMilkChannel, "", NULL_KEY, "");
        say("/me " + gName + "s udders are empty");
    }

    listen(integer channel, string name, key id, string msg)
    {
        if(msg == "Milk")
        {
            if((gMilkLevel / gMaxMilk) >= 0.5)
            {
                say("/me " + gName + " is being milked");
                gMilkLevel = 0;
                gFinalCounter = 0;
            }
            else
            {
                say("/me " + gName + " is not ready for milking yet");
            }
        }
    }

    attach(key id)
    {
        if(id != NULL_KEY) llResetScript();
    }

    on_rez(integer param)
    {
        llResetScript();
    }

    touch_start(integer num)
    {
        integer i;

        for(i = 0; i < num; i++)
        {
            string text = gName+"s udders\n Milk level: "+(string)gMilkLevel+"/"+(string)gMaxMilk;
            llDialog(llDetectedKey(i), text, ["Milk"], gMilkChannel);
        }
    }

    timer()
    {
        if(gMilkLevel < gMaxMilk)
        {
            gMilkLevel++;
        }

        if(gMilkLevel >= gCriticalMilk)
        {

            if(gFinalCounter == 0)
            {
                say("/me " + gName + " moorews soflty, feeling her swollen udders and strained teats, ready for milking");
            }

            gFinalCounter++;
            if(gFinalCounter == 5) gFinalCounter = 0;
        }

        //string text = gName+"s udders\n Milk level: "+(string)gMilkLevel+"/"+(string)gMaxMilk;
        //llSetText(text,<1.0, 1.0, 1.0>, 1.0);
    }
}