Available Scripts

+ Submit new script!

--Version 2.0
--Author: djy0212

--not fully compatible with jacob1's mod (because jacob1's mod doesn't have a lua interface api)
--in jacob1's mod,you can load configs but can't save configs or open the config window
--in vanilla version, it's fine

--Config reference(press ctrl+'(apostrophe) to open config window):
--    The displaying config is 2 strings, string 1 is the upper one at the top left corner(green)
--    string 2 is the lower one
--    Use jacob1/cracker64's script manager API to save settings
--
--    Use these keywords in the string to show particle properties:
--    %id%             Element ID
--    %cid%            Ctype element ID
--    %life%           Part life
--    %tempK|digits%   Part temperature in Kelvin
--    %tempF|digits%   Part temperature in Fahrenheit
--    %tmp%            Part tmp
--    %tmp2%           Part tmp2
--    %dcolorD%        Decoration color in decimal(unconverted 32-bit int)(the hex one is better)
--    %dcolorH%        Decoration color in hex (more common), see HTML color code, this one is AARRGGBB(A stands for alpha) without "0x" prefix
--    %pavg0|digits%   pavg0,some magic stuff, see http://powdertoy.co.uk/Wiki/W/Pavg.html
--    %pavg1|digits%   pavg1,same as above
--    %vx|digits%      Particle velocity at X direction
--    %vy|digits%      Particle velocity at Y direction
--
--The "digits" in keywords above are how many decimal places to show
--
--Here is an example:
--    (Default) config:
--        String1:'ID: %id% (%cid%), Temp: %tempK|2% K, Tmp2: %tmp2%, DColor: 0x%dcolorH%'
--        String2:'Pavg: [%pavg0|2%, %pavg1|2%], VX: %vx|4%, VY: %vy|4%'
--    result(falling PQRT):
--        ID: 133 (0), Temp: 295.15 K, Tmp2: 8, DColor: 0x4D9AB9CA
--        Pavg: [0.00, 0.00], VX: -0.0848, VY: 2.1896
--
--
--(sorry for my bad English, you can see the example to have a better understanding)

--Known bugs:
--"temp: %tempK|2%,bla bla:%tempK|4%"-->"temp: 295.15,bla bla:295.15"("temp: 295.15,bla bla:295.1500" excepted)
--when you point at a empty space, there's always "ID: 0"(actually not a bug :D)
--
--

local MODID="djy_hudplus"

HUDplus = {
	--Don't modify the variables below, these are default values
	d_cfg = {
		enable = true,
		config1 = 'ID: %id% (%cid%), Temp: %tempK|2% K, Tmp2: %tmp2%, DColor: 0x%dcolorH%',
		config2 = 'Pavg: [%pavg0|2%, %pavg1|2%], VX: %vx|4%, VY: %vy|4%',
		color = {192,0,238,118},
	},
	cfg = {},
	--visibility={
	--	cid=true,tempF=false,tempK=true,tmp=false,tmp2=true,dColor=true,pavg=true
	--}
	using_manager=MANAGER ~= nil,
	
	load_config = function()
		if HUDplus.using_manager then
			HUDplus.cfg.color = HUDplus.hex2color(MANAGER.getsetting(MODID,"color") or "C000EE76")
			HUDplus.cfg.config1 = MANAGER.getsetting(MODID,"string1") or HUDplus.d_cfg.config1
			HUDplus.cfg.config2 = MANAGER.getsetting(MODID,"string2") or HUDplus.d_cfg.config2
			local enable_str = MANAGER.getsetting(MODID,"enable") or HUDplus.d_cfg.enable
			if enable_str == "true" then
				HUDplus.cfg.enable = true
			elseif enable_str == "false" then
				HUDplus.cfg.enable = false
			else
				HUDplus.cfg.enable = HUDplus.d_cfg.enable
			end
		else
			HUDplus.load_default()
		end
	end,
	
	load_default = function()
		HUDplus.cfg = HUDplus.d_cfg
	end,
	
	save_config = function()
		MANAGER.savesetting(MODID,"enable",tostring(HUDplus.cfg.enable))
		MANAGER.savesetting(MODID,"string1",HUDplus.cfg.config1)
		MANAGER.savesetting(MODID,"string2",HUDplus.cfg.config2)
		MANAGER.savesetting(MODID,"color",HUDplus.color2hex(HUDplus.cfg.color))
	end,
	
	apply_config = function()
		HUDplus.cfg.config1=HUDplus.components.str1Textbox:text()
		HUDplus.cfg.config2=HUDplus.components.str2Textbox:text()
		HUDplus.cfg.color[2]=HUDplus.components.colorRTextbox:text()
		HUDplus.cfg.color[3]=HUDplus.components.colorGTextbox:text()
		HUDplus.cfg.color[4]=HUDplus.components.colorBTextbox:text()
	end,
	
	step = function()
		local visible
		if tpt.hud() == 1 and HUDplus.cfg.enable then
			visible = true
			else
			visible = false
		end
		if visible then
			local x, y = sim.adjustCoords(tpt.mousex, tpt.mousey)
			--if x > 611 then
			--	x = 611
			--end
			--if y > 383 then
			--	y = 383
			--end
			--no longer needed
			local text1, text2 = HUDplus.make_string(x, y)
			--if HUDplus.keydown then
			--	tpt.confirm("copy?", 'copy content?', "Yes")
			--	tpt.set_clipboard(text1..'\n'..text2)
			--	print('copied')
			--end
			HUDplus.draw(text1,text2)
		end
		
	end,
	
	make_string = function(x, y)
		--local id,cid,life,tmp,tmp2,deco,pavg0,pavg1,vx,vy,kelvin
		local index = sim.partID(x, y)
		local text1,text2
		--mode0:normal integer,mode1:float with digit number,mode2:dcolor-like
		--mode3:fahrenheit temperature
		local pattern_list = {
			--format:{match pattern,property field,mode,[extra argument]}
			{'%%id%%',sim.FIELD_TYPE,0},
			{'%%cid%%',sim.FIELD_CTYPE,0},
			{'%%life%%',sim.FIELD_LIFE,0},
			{'%%tmp%%',sim.FIELD_TMP,0},
			{'%%tmp2%%',sim.FIELD_TMP2,0},
			{'%%tempK|(%d)%%',sim.FIELD_TEMP,1},
			{'%%tempF|(%d)%%',sim.FIELD_TEMP,3},
			{'%%dcolorD%%',sim.FIELD_DCOLOUR,1},
			{'%%dcolorH%%',sim.FIELD_DCOLOUR,2,true},
			{'%%pavg0|(%d)%%','pavg0',1},
			{'%%pavg1|(%d)%%','pavg1',1},
			{'%%vx|(%d)%%',sim.FIELD_VX,1},
			{'%%vy|(%d)%%',sim.FIELD_VY,1},
		}
		if index then
			text1=HUDplus.mode_replace(HUDplus.cfg.config1,pattern_list,index)
			text2=HUDplus.mode_replace(HUDplus.cfg.config2,pattern_list,index)
		else
			--I can't think out a better solution,you can manually replace this
			text1 = "ID: 0"
			text2 = ""
		end
		return text1, text2
	end,
	
	mode_replace = function (text,pattern,index)
		for i,li in ipairs(pattern) do
			if li[3]==0 then --mode 0:normal mode
				text = string.gsub(text,li[1],sim.partProperty(index,li[2]))
			elseif li[3]==1 then --mode 1:float mode
				digit = tonumber(({string.find(text,li[1])})[3])
				text = string.gsub(text,li[1],string.format("%."..(digit or "0").."f",sim.partProperty(index,li[2])))
			elseif li[3]==2 then --mode 2:dcolor-like mode[ex:true-uppercase,false-lowercase]
				text = string.gsub(text,li[1],string.format(li[4] and "%08X" or "%08x",sim.partProperty(index,li[2])))
			elseif li[3]==3 then --mode 3:fahrenheit temperature
				digit = tonumber(({string.find(text,li[1])})[3])
				text = string.gsub(text,li[1],string.format("%."..(digit or "0").."f",(sim.partProperty(index,li[2])-273.15)*1.8+32))
			end
		end
		return text
	end,
	
	draw = function(line1, line2)
		local HUDx = 12
		local HUDy = 27
		local line2visible = false
		local color = HUDplus.cfg.color
		if string.len(line2)~=0 then line2visible = true end
		if line2visible
			then graphics.fillRect(HUDx, HUDy, tpt.textwidth(line1)+8, 12, 0, 0, 0, 128)     --line1back
				 graphics.fillRect(HUDx, HUDy+12, tpt.textwidth(line2)+8, 12, 0, 0, 0, 128)  --line2back
			else graphics.fillRect(HUDx, HUDy, tpt.textwidth(line1)+8, 14, 0, 0, 0, 128) end --line1back
		graphics.drawText(HUDx+3, HUDy+3, line1, color[2], color[3], color[4], color[1])  --line1text
		graphics.drawText(HUDx+3, HUDy+14, line2, color[2], color[3], color[4], color[1]) --line2text
	end,
	
	key = function(key, code, modifiers, event)
		if key=='\'' and event==1 and modifiers==64 and HUDplus.using_manager then
			HUDplus.refresh_window()
			interface.showWindow(HUDplus.configWindow)
		end
	end,
	
	color2hex = function(color)
		local hex = ""
		for i=1,4,1 do
			hex = hex..bit.tohex(color[i],2)
		end
		return hex
	end,
	
	hex2color = function(hex)
		local color ={} local str =""
		for i=1,4,1 do
			str=string.sub(hex,i*2-1,i*2)
			color[i]=string.format("%d","0x"..str)
		end
		return color
	end,
	
	components ={},
	build_window = function()
		local configWindow = Window:new(-1, -1, 600, 150)
		local currentY = 10
		local components = HUDplus.components
		
		components.titleLabel = Label:new(10, currentY, (select(1, configWindow:size())/2)-20, 16, "DebugHUD Configs")
		components.enableCheckbox = Checkbox:new(select(1, configWindow:size())/2, currentY, (select(1, configWindow:size())/2)-20, 16, "Enabled")
		components.enableCheckbox:action(
			function(sender, checked)
				HUDplus.cfg.enable=checked
			end
		)
		
		currentY = currentY + 20
		components.str1Label = Label:new(10, currentY, (select(1, configWindow:size())/8)-20, 16, "Line 1:")
		components.str1Textbox = Textbox:new(select(1, configWindow:size())/8, currentY, (select(1, configWindow:size())*7/8)-20, 16, "Line 1")
		
		currentY = currentY + 20
		components.str2Label = Label:new(10, currentY, (select(1, configWindow:size())/8)-20, 16, "Line 2:")
		components.str2Textbox = Textbox:new(select(1, configWindow:size())/8, currentY, (select(1, configWindow:size())*7/8)-20, 16, "Line 2")
		
		currentY = currentY + 20
		components.colorLabel = Label:new(10, currentY, (select(1, configWindow:size())/8)-20, 16, "Color")
		components.colorRTextbox = Textbox:new(select(1, configWindow:size())/8, currentY, (select(1, configWindow:size())/8)-20, 16, "R","Red")
		components.colorGTextbox = Textbox:new(select(1, configWindow:size())*2/8, currentY, (select(1, configWindow:size())/8)-20, 16, "G","Green")
		components.colorBTextbox = Textbox:new(select(1, configWindow:size())*3/8, currentY, (select(1, configWindow:size())/8)-20, 16, "B","Blue")
		
		currentY = currentY + 20
		components.readmeLabel = Label:new(10, currentY, select(1, configWindow:size()), 16, "Note: read lua source file for more information")
		
		components.saveButton = Button:new(select(1, configWindow:size())/8, select(2, configWindow:size())-26, (select(1, configWindow:size())/8)-20, 16, "Save")
		components.saveButton:action(function()
			HUDplus.apply_config()
			HUDplus.save_config()
			interface.closeWindow(HUDplus.configWindow)
		end)
		components.defaultButton = Button:new(select(1, configWindow:size())*2/8, select(2, configWindow:size())-26, (select(1, configWindow:size())/8)-20, 16, "Default")
		components.defaultButton:action(function()
			HUDplus.load_default()
			HUDplus.save_config()
			interface.closeWindow(HUDplus.configWindow)
		end)
		components.closeButton = Button:new(select(1, configWindow:size())*3/8, select(2, configWindow:size())-26, (select(1, configWindow:size())/8)-20, 16, "Close")
		components.closeButton:action(function()
			HUDplus.apply_config()
			interface.closeWindow(HUDplus.configWindow)
		end)
		
		for i,comp in pairs(components) do
			configWindow:addComponent(comp)
		end
		
		configWindow:onTryExit(function()
			HUDplus.apply_config()
			interface.closeWindow(configWindow) end)
		HUDplus.configWindow = configWindow
		HUDplus.refresh_window()
	end,
	
	refresh_window = function()
		HUDplus.components.enableCheckbox:checked(HUDplus.cfg.enable)
		HUDplus.components.str1Textbox:text(HUDplus.cfg.config1)
		HUDplus.components.str2Textbox:text(HUDplus.cfg.config2)
		HUDplus.components.colorRTextbox:text(HUDplus.cfg.color[2])
		HUDplus.components.colorGTextbox:text(HUDplus.cfg.color[3])
		HUDplus.components.colorBTextbox:text(HUDplus.cfg.color[4])
	end
}

HUDplus.load_config()
if not tpt.version.jacob1s_mod then
	HUDplus.build_window()
	tpt.register_keypress(HUDplus.key)
end

tpt.register_step(HUDplus.step)