Superfluid

local supfluid = elem.allocate("OUR", "HSFL")

elem.element(supfluid, elem.element(elem.DEFAULT_PT_SOAP))
elem.property(supfluid, "Name", "HSFL")
elem.property(supfluid, "Description", "Helium superfluid, extremely cold, strange behavior in containers.")
elem.property(supfluid, "Color", 0xFF9900)
elem.property(supfluid, "Weight", 100)
elem.property(supfluid, "Temperature", 0)

local function wallClimb(i, x, y, s, nt)
    local contained
    r = sim.partID(math.random(x-1, x+1), y-1)
    if r ~= nil then
        rtype = sim.partProperty(r, "type")
        contained = (bit.band(elem.property(rtype, "Properties"), elem.TYPE_PART) ~= 0) or (bit.band(elem.property(rtype, "Properties"), elem.TYPE_SOLID) ~= 0)
    end
    if contained then
        sim.partProperty(i, "vy", -2)
    end
end

elem.property(supfluid, "Update", wallClimb)