Moo Cow Mod (v1.0)

local moo = elem.allocate("MOD", "MOO")
local udder = elem.allocate("MOD", "UDDR")
local potato = elem.allocate("MOD", "PTAT")
local milk = elem.allocate("MOD", "MILK")

elem.element(moo, elem.element(elem.DEFAULT_PT_DMND))
elem.property(moo, "Name", "MOO")
elem.property(moo, "Description", "Moocow, fed with potatoes.")
elem.property(moo, "Color", 0xAC7339)

elem.element(udder, elem.element(elem.DEFAULT_PT_DMND))
elem.property(udder, "Name", "UDDR")
elem.property(udder, "Description", "Moocow udder, squeeze to get milk.")
elem.property(udder, "Color", 0xFFE6FF)

elem.element(milk, elem.element(elem.DEFAULT_PT_SOAP))
elem.property(milk, "Name", "MILK")
elem.property(milk, "Description", "Milk, made by moocow.")
elem.property(milk, "Color", 0xFFFFE6)

elem.element(potato, elem.element(elem.DEFAULT_PT_EQVE))
elem.property(potato, "Name", "PTAT")
elem.property(potato, "Description", "Potato, feed moocow with it.")
elem.property(potato, "Color", 0xE6AC00)
elem.property(potato, "Properties", elem.TYPE_PART)
elem.property(potato, "Hardness", 30)
elem.property(potato, "MenuVisible", 1)
elem.property(potato, "MenuSection", elem.SC_POWDERS)

local function mooCow(i, x, y, s, nt)
   local r = sim.partID(x+math.random(-1, 1), y+math.random(-1, 1))
   if r ~= nil then
       if sim.partProperty(r, "type") == potato then
           sim.partKill(r)
       end
   end
end

local function makingMilk(i, x, y, s, nt)
    if sim.pressure(x/4, y/4) >= 2.5 then
        sim.partCreate(-1, math.random(x-1, x+1), math.random(y-1, y+1), milk)
    end
end

elem.property(moo, "Update", mooCow)
elem.property(udder, "Update", makingMilk)