i want soil and seed

i think im going to code this in lua as training ;). Ill post it here if i finish it.

But what elements should it create? and in which conditions?

Ok, it will be of what you said and more commonly by stne, do you want it to make tungsten too?

Rock = elements.allocate("Rock", "ROCK")
elements.element(Rock, elements.element(elements.DEFAULT_PT_IRON))
elements.property(Rock, "Name", "ROCK")
elements.property(Rock, "Description", "Rock, some metals can be extracted from it.")
elements.property(Rock, "Colour", xFF3D3D3C)
elements.property(Rock, "MenuSection", 9)
elements.property(Rock, "Properties", 0x0804)
elements.property(Rock, "HighTemperature", 10000)

local function Rock(i,x,y,s,nt)
if tpt.get_property("tmp2", i) == 0 then
if math.random(1, 100) <= 70 then
tpt.set_property("ctype","stne",i)
tpt.set_property("tmp2", 1, i)
end
end

if tpt.get_property("tmp2", i) == 0 then
if math.random(1, 100) > 70 and math.random(1, 100) < 86 then
tpt.set_property("ctype","iron",i)
tpt.set_property("tmp2", 1, i)
end
end

if tpt.get_property("tmp2", i) == 0 then
if math.random(1, 100) > 85 and math.random(1, 100) < 96 then
tpt.set_property("ctype","ttan",i)
tpt.set_property("tmp2", 1, i)
end
end

if tpt.get_property("tmp2", i) == 0 then
if math.random(1, 100) > 95 then
tpt.set_property("ctype","gold",i)
tpt.set_property("tmp2", 1, i)
end
end

if tpt.get_property("temp", i) >= 1200 and tpt.get_property("ctype", i) == tpt.element('stne') then
tpt.set_property("type","lava",i)
tpt.set_property("ctype","stne",i)
end
if tpt.get_property("temp", i) >= 1200 and tpt.get_property("ctype", i) == tpt.element('iron') then
tpt.set_property("type","lava",i)
tpt.set_property("ctype","iron",i)
end
if tpt.get_property("temp", i) >= 1200 and tpt.get_property("ctype", i) == tpt.element('ttan') then
tpt.set_property("type","lava",i)
tpt.set_property("ctype","ttan",i)
end
if tpt.get_property("temp", i) >= 1200 and tpt.get_property("ctype", i) == tpt.element('gold') then
tpt.set_property("type","lava",i)
tpt.set_property("ctype","gold",i)
end
end
tpt.element_func(Rock, tpt.element('rock'))

Sorry but in the HTML red box I can't get it to work right, but this script creates a element that when smelted and then cooled, creates stne iron ttan and gold. And im thinking in making this ore concept script more times.