This is based off of mr salitoes cloud script

--[[ element: Cloud ]]
local Element6 = elements.allocate("MOD", "CLD")
elements.element(elements.MOD_PT_CLD, elements.element(elements.DEFAULT_PT_WTRV))
elements.property(elements.MOD_PT_CLD, "Name", "CLD")
elements.property(elements.MOD_PT_CLD, "Description", "Cloud - produces concrete")
elements.property(elements.MOD_PT_CLD, "Colour", 0x00FFFFFF)
elements.property(elements.MOD_PT_CLD, "MenuSection", 6)
elements.property(elements.MOD_PT_CLD, "Loss", 0.1)
elements.property(elements.MOD_PT_CLD, "AirLoss", 0.3)
elements.property(elements.MOD_PT_CLD, "Advection", 1)
elements.property(elements.MOD_PT_CLD, "Diffusion", 0.3)
elements.property(elements.MOD_PT_CLD, "Temperature", 273.15)

local function cloud(i,x,y,s,n)
local w=math.random(0,2000)
if w==1000 then
tpt.parts[i].type=tpt.el.cnct.id
end
end

tpt.element_func(cloud,elements.MOD_PT_CLD)