Powder toy element creator

function script_creater(key)
    if key == "j" then
        elName = tpt.input("ELEMENT NAME", "This is the element the script will create (In capitals)")
        ident = tpt.input("IDENTIFIER", "This will be the identifier for the element")
        baseName = tpt.input("BASE ELEMENT", "This is the element the script will base your element off")
        scriptname = tpt.input("NAME OF SCRIPT", "This will be the name of the generated script (no need for '.lua')")
        file = io.open(scriptname .. ".lua", "w")
        file:write("local Element1 = elements.allocate('" .. ident .. "', '" .. elName .. "')\n")
        file:write("elements.element(elements." .. ident .. "_PT_" .. elName .. ", elements.element(tpt.element('" .. baseName .. "')))\n")
        file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Name', '" .. elName .. "')\n")
        file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Color', " .. tpt.input("Color", "Input a hexadecimal value ('0x' required)") .. ")\n")

-- START OF PROPERTIES

        ValueIn = tpt.input("MenuVisible", "Input 1 or 0")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'MenuVisible', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("MenuSection", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'MenuSection', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Advection", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Advection', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Airdrag", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'AirDrag', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Airloss", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'AirLoss', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Loss", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Loss', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Collision", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Collision', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Gravity", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Gravity', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Diffusion", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Diffusion', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("HotAir", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HotAir', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Falldown", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Falldown', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Flammable", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Flammable', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Explosive", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Explosive', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Meltable", "Input a 1 or 0")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Meltable', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Hardness", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Hardness', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Weight", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Weight', " ..ValueIn .. ")\n")
        end
        ValueIn = tpt.input("Temperature", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Temperature', " .. ValueIn .. ")\n")
        end
        ValueIn = tpt.input("HeatConduct", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HeatConduct', " .. ValueIn .. ")\n")
        end
        file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'Description', '" .. tpt.input("Description", "Input an string") .. "')\n")

-- START OF TRANSITIONS

        ValueIn = tpt.input("HighTemperature", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HighTemperature', '" .. ValueIn .. "')\n")
        end
        ValueIn = tpt.input("HighTemperatureTranstion", "Input an element (In capitals)")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HighTemperatureTransition', '" .. "tpt.element('" .. ValueIn .. "'))\n")
        end
        ValueIn = tpt.input("LowTemperature", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'LowTemperature', '" .. ValueIn .. "')\n")
        end
        ValueIn = tpt.input("LowTemperatureTranstion", "Input an element (In capitals)")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'LowTemperatureTransition', '" .. "tpt.element('" .. ValueIn .. "'))\n")
        end
        ValueIn = tpt.input("HighPressure", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HighPressure', '" .. ValueIn .. "')\n")
        end
        ValueIn = tpt.input("HighPressureTranstion", "Input an element (In capitals)")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'HighPressureTransition', '" .. "tpt.element('" .. ValueIn .. "'))\n")
        end
        ValueIn = tpt.input("LowPressure", "Input a value")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'LowPressure', '" .. ValueIn .. "')\n")
        end
        ValueIn = tpt.input("LowPressureTranstion", "Input an element (In capitals)")
        if ValueIn ~= "" then
            file:write("elements.property(elements." .. ident .. "_PT_" .. elName .. ", 'LowPressureTransition', '" .. "tpt.element('" .. ValueIn .. "'))\n")
        end

-- START OF FUNCTION

        file:write("\nlocal function " .. elName .. "(i, x, y, s, n)\n\n")
        file:write("end\n\n")
        file:write("tpt.element_func(" .. elName .. ", elements." .. ident .. "_PT_" .. elName .. ")")
    end
end

tpt.register_keypress(script_creater)