Pastey

Title: Author: ID:
Script:

-- i added the "watr value" comments and fixed the fuel at 21(dd).03(mm).2015(yyyy) 16:36 gmt+2. Version 0.1
-- cred to FeynmanLogomaker for lines 27-58 and 80-106, i changed some variables, and the code was extremely boilerplate!
-- this code has 150 lines (including this one!!)

-- fixed constant error output by smASHLEY
local ROCKETFUEL = elements.allocate("CCCP3","FUEL")
elements.property(elements.CCCP3_PT_FUEL, "Description", "ROCKET FUEL! burns extremely hot")
elements.property(elements.CCCP3_PT_FUEL, "Colour", 0x002375)
elements.property(elements.CCCP3_PT_FUEL, "MenuVisible", 1)
elements.property(elements.CCCP3_PT_FUEL, "MenuSection", elem.SC_EXPLOSIVE)
elements.property(elements.CCCP3_PT_FUEL, "Gravity", 0.1000000001419012) --approximately the WATR value
elements.property(elements.CCCP3_PT_FUEL, "Flammable", 1)
elements.property(elements.CCCP3_PT_FUEL, "Explosive", 0.30)
elements.property(elements.CCCP3_PT_FUEL, "Loss", 0.94999998807907) -- the same value as WATR
elements.property(elements.CCCP3_PT_FUEL, "AirLoss", 0.98) -- approx water value
elements.property(elements.CCCP3_PT_FUEL, "AirDrag", 0.009) -- approx watr value
elements.property(elements.CCCP3_PT_FUEL, "Advection", 0.6) -- rounded watr value
elements.property(elements.CCCP3_PT_FUEL, "Weight", 90)
elements.property(elements.CCCP3_PT_FUEL, "Diffusion", 0) -- watr value
elements.property(elements.CCCP3_PT_FUEL, "Falldown", 2) -- watr value
elements.property(elements.CCCP3_PT_FUEL, "Name", "FUEL")
elements.property(elements.CCCP3_PT_FUEL, "State", 2) -- watr value
elements.property(elements.CCCP3_PT_FUEL, "Temperature", 250)
elements.property(elements.CCCP3_PT_FUEL, "HighTemperature", 773.15)
elements.property(elements.CCCP3_PT_FUEL, "HighTemperatureTransition", elements.CCCP3_PT_GFUE)
elements.property(elements.CCCP3_PT_FUEL, "LowTemperature", 210.15)
elements.property(elements.CCCP3_PT_FUEL, "LowTemperatureTransition", elements.CCCP3_PT_SFUE)
elements.property(elements.CCCP3_PT_FUEL, "Hardness", 20)-- watr value
NU = function(i, x, y, s, n)
	local clife = tpt.get_property('life', i)
	local tempk = tpt.get_property('temp', i)
	if clife > 1 then
		for cx = -1, 1, 2 do
			for cy = -1, 1, 2 do
				if tpt.get_property('type', x+cx, y+cy) ~= ROCKETFUEL then  
					tpt.create(x + cx, y + cy, 'EXHG')
					tpt.create(x + cx, y + cy, 'plsm')
					tpt.create(x + cx, y + cy, 'smke')
				end
			end
		end

tpt.set_property('life', clife - 1, x, y)
	elseif clife == 1 then
		tpt.set_property('type', 0, x, y)
	elseif s > 0 then
		for cx = -1, 1, 2 do
			for cy = -1, 1, 2 do
				if tpt.get_property('type', x + cx, y + cy) == elem.DEFAULT_PT_FIRE or tpt.get_property('type',x + cx,y + cy) == elem.DEFAULT_PT_PLSM or tempk >= 800 then
					tpt.set_property('life', 3500, x, y)
					return true
				end
			end
		end
	end
	if tempk < 210.15 then
		tpt.set_property('type', 'SFUE', x, y)
	end
	if tempk > 543.15 and clife == 0 then
		tpt.set_property('type', 'GFUE', x, y)
	end
end
tpt.element_func(NU, tpt.element('FUEL'))
local EXHAUSTGASSES = elements.allocate("cccp3", "EXHG")
elements.element(elements.CCCP3_PT_EXHG, elements.element(elements.DEFAULT_PT_CO2))
elements.property(elements.CCCP3_PT_EXHG, "Name", "EXHG")
elements.property(elements.CCCP3_PT_EXHG, "Description", "Exhaust gasses, hot and poisonous!")
elements.property(elements.CCCP3_PT_EXHG, "Colour", 0x515151) -- gray, like irl exhaust gasses from a
elements.property(elements.CCCP3_PT_EXHG, "MenuSection", elem.SC_GAS) -- engine that is rusted up and never seems to get to full speed
elements.property(elements.CCCP3_PT_EXHG, "MenuVisible", 1)
elements.property(elements.CCCP3_PT_EXHG, "Gravity", 0)
elements.property(elements.CCCP3_PT_EXHG, "Flammable", 0)
elements.property(elements.CCCP3_PT_EXHG, "Explosive", 9000)
elements.property(elements.CCCP3_PT_EXHG, "Loss", 0.3)
elements.property(elements.CCCP3_PT_EXHG, "AirLoss", 0.99)
elements.property(elements.CCCP3_PT_EXHG, "AirDrag", 0.009)
elements.property(elements.CCCP3_PT_EXHG, "Advection", 1)
elements.property(elements.CCCP3_PT_EXHG, "Weight", 1)
elements.property(elements.CCCP3_PT_EXHG, "Diffusion", 0.75)
elements.property(elements.CCCP3_PT_EXHG, "Falldown", 0)
elements.property(elements.CCCP3_PT_EXHG, "Temperature", 1000)
elements.property(elements.CCCP3_PT_EXHG, "State", 3)
elements.property(elements.CCCP3_PT_EXHG, "Properties", elem.TYPE_GAS + elem.PROP_DEADLY)
PU = function(i, x, y, s, n)
	local clife = tpt.get_property('tmp', i)
	local tempk = tpt.get_property('temp', i)
	if clife > 1 then
		for cx = -1, 1, 2 do
			for cy = -1, 1, 2 do
				if tempk > 1073.15 then
					tpt.create(x+cx,y+cy,'plsm')
				else
					tpt.create(x+cx,y+cy,'fire')
				end
			end
		end
		tpt.set_property('tmp', clife - 1, x, y)
	elseif clife == 1 then
		tpt.set_property('type', 0, x, y)
	elseif s > 0 then
		for cx = -1, 1, 2 do
			for cy = -1, 1, 2 do
				local type = tpt.get_property('type',x+cx,y+cy)
				if type == 4 or type == 49 or tempk > 800 then
					tpt.set_property('tmp', 35, x, y)
					return true
				end
			end
		end
	end
end
tpt.element_func(PU, tpt.element('EXHG'))
local SOLIDROCKETFUEL = elements.allocate("CCCP3", "SFUE")
elements.property(elements.CCCP3_PT_SFUE, "Description", "SOLID ROCKET FUEL! burns extremely hot")
elements.property(elements.CCCP3_PT_SFUE, "Colour", 0x0023c0)
elements.property(elements.CCCP3_PT_SFUE, "MenuSection", elem.SC_EXPLOSIVE)
elements.property(elements.CCCP3_PT_SFUE, "Gravity", 0)
elements.property(elements.CCCP3_PT_SFUE, "Flammable", 1)
elements.property(elements.CCCP3_PT_SFUE, "Explosive", 0.30)
elements.property(elements.CCCP3_PT_SFUE, "Loss", 0)
elements.property(elements.CCCP3_PT_SFUE, "AirLoss", 0.89)
elements.property(elements.CCCP3_PT_SFUE, "AirDrag", 0)
elements.property(elements.CCCP3_PT_SFUE, "Advection", 0)
elements.property(elements.CCCP3_PT_SFUE, "Weight", 100)
elements.property(elements.CCCP3_PT_SFUE, "Diffusion",0)
elements.property(elements.CCCP3_PT_SFUE, "Falldown", 0)
elements.property(elements.CCCP3_PT_SFUE, "Name", "SFUE")
elements.property(elements.CCCP3_PT_SFUE, "State", 1)
elements.property(elements.CCCP3_PT_SFUE, "Temperature", 200)
elements.property(elements.CCCP3_PT_SFUE, "HighTemperature", 211.15)
elements.property(elements.CCCP3_PT_SFUE, "HighTemperatureTransition", elements.CCCP3_PT_FUEL)
elements.property(elements.CCCP3_PT_SFUE, "MenuVisible", 1)
elements.property(elements.CCCP3_PT_SFUE, "Hardness", 0)
tpt.element_func(NU, tpt.element('SFUE'))
local RGAS = elements.allocate("cccp3", "GFUE")
elements.property(elements.CCCP3_PT_GFUE, "Name", "GFUE")
elements.property(elements.CCCP3_PT_GFUE, "Description", "Gaseous Rocket fuel.")
elements.property(elements.CCCP3_PT_GFUE, "MenuVisible", 1)
elements.property(elements.CCCP3_PT_GFUE, "Colour", 0x002375)
elements.property(elements.CCCP3_PT_GFUE, "MenuSection", elem.SC_GAS)
elements.property(elements.CCCP3_PT_GFUE, "Gravity", 0)
elements.property(elements.CCCP3_PT_GFUE, "Flammable", 1337)
elements.property(elements.CCCP3_PT_GFUE, "Explosive", 0)
elements.property(elements.CCCP3_PT_GFUE, "Loss", 0.3)
elements.property(elements.CCCP3_PT_GFUE, "AirLoss", 0.99000000953674)
elements.property(elements.CCCP3_PT_GFUE, "AirDrag", 0.0099999997764826)
elements.property(elements.CCCP3_PT_GFUE, "Advection", 1)
elements.property(elements.CCCP3_PT_GFUE, "Weight", 1)
elements.property(elements.CCCP3_PT_GFUE, "Diffusion", 0.75)
elements.property(elements.CCCP3_PT_GFUE, "Falldown", 0)
elements.property(elements.CCCP3_PT_GFUE, "Temperature", 773.15)
elements.property(elements.CCCP3_PT_GFUE, "State", 3)
elements.property(elements.CCCP3_PT_GFUE, "LowTemperature", 250.15)
elements.property(elements.CCCP3_PT_GFUE, "LowTemperatureTransition", elements.CCCP3_PT_FUEL)
tpt.element_func(NU, tpt.element('GFUE'))

Description (do not use double quotes, single quotes are fine):

Changelog(Optional):

Here you can upload a TPT script for use with this server. All scripts will be verified by an admin before being public. If your script takes longer than 2 days to be approved, please poke jacob1 jacob1 is on vacation, script approval is on hold until July Back to Browser

Here you can upload a TPT script for use with this server.
All scripts will be verified by an admin before being public.
If your script takes longer than 2 days to be approved, please poke jacob1 jacob1 is on vacation, script approval is on hold until July

Back to Browser