float gTimerInterval = 108.0;
integer gMilkChannel = 100;
integer gMilkLevel;
string gName;
string gClicker;
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, "");
    }

    listen(integer channel, string name, key id, string msg)
    {
        if(msg == "Milk me")
        {
            if(gMilkLevel >= 80)
            {
                if(gClicker == gName) {
                    gClicker = "herself";
                }
                say("/me [Script] " + gName + " is purrmoaning loudly with her legpaws spreaded wide and udders exposed, being milked by " + gClicker);
                gMilkLevel = 0;
            }
            else
            {
                if(gClicker == gName) {
                    gName = "herself";
                }
                say("/me [Script] " + gClicker + " is trying to milk " + gName + ", but her udders aren\'t full enough yet");
                if(gName == "herself") {
                    gName = getFirstName(llGetDisplayName(llGetOwner()));
                }
            }
        }
    }

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

    on_rez(integer param)
    {
        llResetScript();
    }

    touch_start(integer num)
    {
        gClicker = getFirstName(llGetDisplayName(llDetectedKey(0)));
        integer i;
        for(i = 0; i < num; i++)
        {
            string text = "\nMy udders (milkable at 80%, so please don\'t touch my teats earlier " + gClicker + "... and even then - ASK FIRST!)\n\nMilk level: "+(string)gMilkLevel+"%";
            llDialog(llDetectedKey(i), text, ["Milk me"], gMilkChannel);
        }
    }

    timer()
    {
        if(gMilkLevel < 100)
        {
            gMilkLevel++;
        }
        if(gMilkLevel == 25)
        {
            llOwnerSay("Quarter full");
        }
        if(gMilkLevel == 50)
        {
            llOwnerSay("Halfly full");
        }
        if(gMilkLevel == 80)
        {
            llOwnerSay("Teats stiffening");
        }
        if(gMilkLevel == 85)
        {
            say("/me [Script] " + gName + " starts to feel uncomfortable, adjusts her tauted udders and covers stiffened teats with a blush");
        }
        if(gMilkLevel == 95)
        {
            llOwnerSay("Milk pressure unbearable");
        }
        if(gMilkLevel == 100)
        {
            say("/me [Script] " + gName + " moorews soflty, feeling her swollen, pulsing udders and strained, leaking teats");
        }
    }
}