integer gMaxMilk = 100;
float gTimerInterval = 108.0;
integer gMilkChannel = 100;
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()));
        llListen(gMilkChannel, "", NULL_KEY, "");
        say("/me " + gName + "s udders are empty");
    }

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

    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 = "\nMy udders (milkable at 80%, so please don\'t touch my teats earlier... and even then - ASK FIRST!)\n\nMilk level: "+(string)gMilkLevel+"%";
            llDialog(llDetectedKey(i), text, ["Milk me"], gMilkChannel);
        }
    }

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

        if(gMilkLevel >= 100)
        {

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

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

        if(gMilkLevel == 85)
        {
            say("/me " + gName + " starts to feel uncomfortable, adjusts her tauted udders and covers stiffened teats with a blush");
        }

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