[HUD]Soft Boots waste & more - an update to MonitorMyHunting

Soft boost waste and more added to Sirmate's MonitorMyHunting HUD.

Added features:

• Moved some text:
  http://i.imgur.com/xw5mWuV.png
• Added soft boots to waste
  http://i.imgur.com/zX5V4ax.gif
• Only shows "Money Spent" if $moneyspent is greater than 0

Global variables:

• SOFT_TIME: the time you have had soft boots on since the last reset of the lootcounter (in milliseconds).

If something goes wrong or doesn't work, please leave feedback!!!

init start

	--   Author:   Sirmate  

	--   

	--   Monitor My Hunting!

	--

	--   Version: 1.1d

	--   Created: 29.12.2013

	--   Last update: 10.8.2016 (By Dolmero)

	--



	local MMH = {

		SHOW_ALL_ITEMS = false,

		SHOW_ALL_SUPPLIES = false,

	}



	-- [[ Do not change anything below this line. ]] --



	-- [[ COLORS ]] --

	MMH.COLORS = {}

	MMH.COLORS.FONT_COLOR = color(255, 255, 255, 0)

	MMH.COLORS.SECTION_HEADER_BACKGROUND = {0.0, color(36, 68, 105, 20), 0.23, color(39, 73, 114, 20), 0.76, color(21, 39, 60, 20)}

	MMH.COLORS.ENTRY_NAME_BACKGROUND = {0.0, color(75, 75, 75, 20), 0.23, color(45, 45, 45, 20), 0.76, color(19, 19, 19, 20)}

	MMH.COLORS.ENTRY_VALUE_BACKGROUND = {0.0, color(145, 95, 0, 20), 0.23, color(158, 104, 0, 20), 0.76, color(84, 55, 0, 20)}

	MMH.COLORS.RESULT_POSITIVE_BACKGROUND = {0.0, color(65, 96, 12, 20), 0.23, color(67, 99, 13, 20), 0.76, color(36, 52, 6, 20)}

	MMH.COLORS.RESULT_NEGATIVE_BACKGROUND = {0.0, color(90, 12, 15, 20), 0.23, color(98, 13, 17, 20), 0.76, color(52, 6, 9, 20)}

	MMH.COLORS.RESET_BUTTON_BACKGROUND = MMH.COLORS.RESULT_POSITIVE_BACKGROUND



	-- [[ ELEMENTS ]] --

	MMH.ELEMENTS = {}

	MMH.ELEMENTS.RESET_BUTTON = -1

	MMH.ELEMENTS.SWITCH_ITEMS_LOOTED = -1

	MMH.ELEMENTS.SWITCH_SUPPLIES_USED = -1



	-- [[ SECTION STATES ]] --

	MMH.SECTIONS = {}

	MMH.SECTIONS.ITEMS_LOOTED = true

	MMH.SECTIONS.SUPPLIES_USED = true



	-- [[ OTHERS ]] --	

	filterinput(false, true, false, false)



	-- [[ DOLMERO ]] --

	local softwastetimer = softwastetimer or -1

	SOFT_TIME = SOFT_TIME or 0



	local MOVING, TEMP, MOVED = false, {0, 0}, {0, 0}



	function inputevents(e)

		if (e.type == IEVENT_LMOUSEDOWN) then

			if (e.elementid == MMH.ELEMENTS.RESET_BUTTON) then

				resetcharactertime()

				resetlootcounter()

				resetexpcounter()

				SOFT_TIME = 0

				softwastetimer = -1

			elseif (e.elementid == MMH.ELEMENTS.SWITCH_ITEMS_LOOTED) then

				MMH.SECTIONS.ITEMS_LOOTED = not MMH.SECTIONS.ITEMS_LOOTED

			elseif (e.elementid == MMH.ELEMENTS.SWITCH_SUPPLIES_USED) then

				MMH.SECTIONS.SUPPLIES_USED = not MMH.SECTIONS.SUPPLIES_USED

			end

		end



		if (e.type == IEVENT_MMOUSEDOWN) then

			MOVING, TEMP = true, {$cursor.x - MOVED[1], $cursor.y - MOVED[2]}

		end



		if (e.type == IEVENT_MMOUSEUP) then

			MOVING = false

		end

	end



	setmaskcolorxp(0)

init end



if (MOVING) then

    auto(10)

    MOVED = {$cursor.x - TEMP[1], $cursor.y - TEMP[2]}

end



setposition($clientwin.right - 424 + MOVED[1], $worldwin.top + MOVED[2])

setfontstyle('Tahoma', 8, 75, MMH.COLORS.FONT_COLOR, 1, color(0, 0, 0, 20))



local ROW_QUANTITY, STRING_WIDTH, STRING_HEIGHT = 0, measurestring('TEMP')

local ITEMS_LOOTED_WORTH, ITEM_LOOTED_QUANTITY, ITEM_LOOTED_WORTH = 0, 0, 0

local SUPPLIES_USED_WORTH, SUPPLY_USED_QUANTITY, SUPPLY_USED_WORTH = 0, 0, 0



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

drawroundrect(0, 0, 240, 20, 2, 2)

drawtext('Monitor My Hunting v1.1d', 6, 20 / 2 - STRING_HEIGHT * 0.5)



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

addgradcolors(unpack(MMH.COLORS.RESET_BUTTON_BACKGROUND))

MMH.ELEMENTS.RESET_BUTTON = drawroundrect(196, 0, 44, 20, 2, 2)

drawtext('RESET', 202, 20 / 2 - STRING_HEIGHT * 0.5)



setfontsize(7)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

drawroundrect(0, 23, 240, 15, 2, 2)

drawtext('Looting Accuracy', 6, 23 + 16 / 2 - STRING_HEIGHT * 0.5 + 1)



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

drawroundrect(130, 23, 110, 15, 2, 2)

drawtext(string.format('%.2f', $lootaccuracy) .. '%', 136, 23 + 16 / 2 - STRING_HEIGHT * 0.5 + 1)



setfontsize(8)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

addgradcolors(unpack(MMH.COLORS.SECTION_HEADER_BACKGROUND))

drawroundrect(0, 41, 240, 20, 2, 2)

drawtext('ITEMS LOOTED', 6, 41 + 20 / 2 - STRING_HEIGHT * 0.5)



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

if (MMH.SECTIONS.ITEMS_LOOTED) then

	addgradcolors(unpack(MMH.COLORS.RESULT_POSITIVE_BACKGROUND))

else

	addgradcolors(unpack(MMH.COLORS.RESULT_NEGATIVE_BACKGROUND))

end

MMH.ELEMENTS.SWITCH_ITEMS_LOOTED = drawroundrect(220, 41, 20, 20, 2, 2)

drawtext('X', 228, 41 + 20 / 2 - STRING_HEIGHT * 0.5)



setfontsize(7)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



foreach lootingitem ItemEntry do

	if (MMH.SHOW_ALL_ITEMS or ItemEntry.amountlooted > 0) then

		ITEM_LOOTED_QUANTITY = ItemEntry.amountlooted

		ITEM_LOOTED_WORTH = ItemEntry.sellprice * ITEM_LOOTED_QUANTITY



		if (MMH.SECTIONS.ITEMS_LOOTED) then

			setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

			addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

			drawroundrect(0, 64 + ROW_QUANTITY * 18, 240, 15, 2, 2)

		

			setcompositionmode(CompositionMode_SourceOver)

			drawitem(ItemEntry.id, 6, 64 + ROW_QUANTITY * 18, 50, 100)

			setcompositionmode(CompositionMode_Automatic)



			drawtext(((#ItemEntry.name > 16 and string.match(string.sub(ItemEntry.name, 1, 16), '(.-)%s?$') .. '...') or ItemEntry.name):capitalizeall(), 27, 64 + ROW_QUANTITY * 18 + 17 / 2 - STRING_HEIGHT * 0.5)



			setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

			addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

			drawroundrect(130, 64 + ROW_QUANTITY * 18, 110, 15, 2, 2)

			drawtext(num(ITEM_LOOTED_QUANTITY) .. ' (' .. math.floor(ITEM_LOOTED_WORTH / 100) / 10 .. 'K)', 136, 64 + ROW_QUANTITY * 18 + 17 / 2 - STRING_HEIGHT * 0.5)



			ROW_QUANTITY = ROW_QUANTITY + 1

		end



		ITEMS_LOOTED_WORTH = ITEMS_LOOTED_WORTH + ITEM_LOOTED_WORTH

	end

end



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

drawroundrect(0, 64 + ROW_QUANTITY * 18, 240, 15, 2, 2)

drawtext('Total: ' .. num(ITEMS_LOOTED_WORTH) .. ' GPs', 6, 64 + ROW_QUANTITY * 18 + 17 / 2 - STRING_HEIGHT * 0.5)



ROW_QUANTITY = ROW_QUANTITY + 1



setfontsize(8)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

addgradcolors(unpack(MMH.COLORS.SECTION_HEADER_BACKGROUND))

drawroundrect(0, 64 + ROW_QUANTITY * 18, 240, 20, 2, 2)

drawtext('SUPPLIES USED', 6, 64 + ROW_QUANTITY * 18 + 20 / 2 - STRING_HEIGHT * 0.5)



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

if (MMH.SECTIONS.SUPPLIES_USED) then

	addgradcolors(unpack(MMH.COLORS.RESULT_POSITIVE_BACKGROUND))

else

	addgradcolors(unpack(MMH.COLORS.RESULT_NEGATIVE_BACKGROUND))

end

MMH.ELEMENTS.SWITCH_SUPPLIES_USED = drawroundrect(220, 64 + ROW_QUANTITY * 18, 20, 20, 2, 2)

drawtext('X', 228, 64 + ROW_QUANTITY * 18 + 20 / 2 - STRING_HEIGHT * 0.5)



setfontsize(7)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



foreach supplyitem ItemEntry do

	if (MMH.SHOW_ALL_SUPPLIES or ItemEntry.amountused > 0) then

		SUPPLY_USED_QUANTITY = ItemEntry.amountused

		SUPPLY_USED_WORTH = ItemEntry.buyprice * SUPPLY_USED_QUANTITY



		if (MMH.SECTIONS.SUPPLIES_USED) then

			setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

			addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

			drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 15, 2, 2)



			setcompositionmode(CompositionMode_SourceOver)

			drawitem(ItemEntry.id, 6, 87 + ROW_QUANTITY * 18, 50, 100)

			setcompositionmode(CompositionMode_Automatic)



			drawtext(((#ItemEntry.name > 16 and string.match(string.sub(ItemEntry.name, 1, 16), '(.-)%s?$') .. '...') or ItemEntry.name):capitalizeall(), 27, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



			setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

			addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

			drawroundrect(130, 87 + ROW_QUANTITY * 18, 110, 15, 2, 2)

			drawtext(num(SUPPLY_USED_QUANTITY) .. ' (' .. math.floor(SUPPLY_USED_WORTH / 100) / 10 .. 'K)', 136, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



			ROW_QUANTITY = ROW_QUANTITY + 1

		end



		SUPPLIES_USED_WORTH = SUPPLIES_USED_WORTH + SUPPLY_USED_WORTH

	end

end



if (MMH.SECTIONS.SUPPLIES_USED and $moneyspent > 0) then

	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

	drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 15, 2, 2)



	setcompositionmode(CompositionMode_SourceOver)

	drawitem(3031, 6, 87 + ROW_QUANTITY * 18, 50, 100)

	setcompositionmode(CompositionMode_Automatic)



	drawtext('Money Spent', 27, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

	drawroundrect(130, 87 + ROW_QUANTITY * 18, 110, 15, 2, 2)

	drawtext(num($moneyspent) .. ' (' .. math.floor($moneyspent / 100) / 10 .. 'K)', 136, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	ROW_QUANTITY = ROW_QUANTITY + 1

end



SUPPLIES_USED_WORTH = SUPPLIES_USED_WORTH + $moneyspent

---------------------------

-- Code by Dolmero below --

---------------------------

if $feet.id == iteminuse('soft boots') then

	if softwastetimer ~= -1 then

		SOFT_TIME = SOFT_TIME + $timems - softwastetimer

	end

	softwastetimer = $timems

else

	softwastetimer = -1

end





if (MMH.SECTIONS.SUPPLIES_USED and SOFT_TIME > 1000) then

	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

	drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 15, 2, 2)



	setcompositionmode(CompositionMode_SourceOver)

	drawitem('soft boots', 2, 82 + ROW_QUANTITY * 18, 75, 150)

	setcompositionmode(CompositionMode_Automatic)



	drawtext('Soft Boots', 27, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

	drawroundrect(130, 87 + ROW_QUANTITY * 18, 110, 15, 2, 2)

	drawtext(num(SOFT_TIME * 0.00069444444) .. ' (' .. math.floor(SOFT_TIME * 0.00069444444 / 100) / 10 .. 'K)', 136, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	ROW_QUANTITY = ROW_QUANTITY + 1

end



SUPPLIES_USED_WORTH = SUPPLIES_USED_WORTH + SOFT_TIME * 0.00069444444



---------------------------

-- Code by Dolmero above --

---------------------------



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 15, 2, 2)

drawtext('Total: ' .. num(SUPPLIES_USED_WORTH) .. ' GPs', 6, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



ROW_QUANTITY = ROW_QUANTITY + 1



setfontsize(8)



STRING_WIDTH, STRING_HEIGHT = measurestring('TEMP')



setfillstyle('gradient', 'linear', 2, 0, 0, 0, 21)

if (ITEMS_LOOTED_WORTH >= SUPPLIES_USED_WORTH) then

	addgradcolors(unpack(MMH.COLORS.RESULT_POSITIVE_BACKGROUND))

else

	addgradcolors(unpack(MMH.COLORS.RESULT_NEGATIVE_BACKGROUND))

end

drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 20, 2, 2)

drawtext(((ITEMS_LOOTED_WORTH >= SUPPLIES_USED_WORTH and ('PROFIT: ')) or ('WASTE: ')) .. num(ITEMS_LOOTED_WORTH - SUPPLIES_USED_WORTH) .. ' GPs (' .. math.abs(math.floor(((ITEMS_LOOTED_WORTH - SUPPLIES_USED_WORTH) * 3600) / ($charactertime / 1000) / 100) / 10) .. ' k/h)', 6, 87 + ROW_QUANTITY * 18 + 20 / 2 - STRING_HEIGHT * 0.5)

Not sure if @sirmate is still active but I'll tag him anyway.
Thank you for your work (:

Well done !

:o Nice job

N i c e

Nice. it´d be nice if you bale to add a ring waste or smt but idk if is that possible

@Dolmero Thanks so much for this HUD. It's possible to create prismatic ring HUD? Something like this softs. But add option to write price of prismatic ring if its possible. That will be awesome! Can you create that?

Thanks! :)

I changed somethings trying to do with prismatic ring, but can know right now if is really working...
if someone wanna test too...
edit: I tried to set ring costing 30k

---------------------------

-- Code by Dolmero below --

---------------------------

if $finger.id == iteminuse('prismatic ring') then

	if softwastetimer ~= -1 then

		SOFT_TIME = SOFT_TIME + $timems - softwastetimer

	end

	softwastetimer = $timems

else

	softwastetimer = -1

end





if (MMH.SECTIONS.SUPPLIES_USED and SOFT_TIME > 1000) then

	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_NAME_BACKGROUND))

	drawroundrect(0, 87 + ROW_QUANTITY * 18, 240, 15, 2, 2)



	setcompositionmode(CompositionMode_SourceOver)

	drawitem('prismatic ring', 2, 82 + ROW_QUANTITY * 18, 75, 150)

	setcompositionmode(CompositionMode_Automatic)



	drawtext('Prismatic Ring', 27, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	setfillstyle('gradient', 'linear', 2, 0, 0, 0, 16)

	addgradcolors(unpack(MMH.COLORS.ENTRY_VALUE_BACKGROUND))

	drawroundrect(130, 87 + ROW_QUANTITY * 18, 110, 15, 2, 2)

	drawtext(num((SOFT_TIME/1000)/60) .. 'min (' .. math.floor(SOFT_TIME * 0.008333333 / 100) / 10 .. 'K)', 136, 87 + ROW_QUANTITY * 18 + 18 / 2 - STRING_HEIGHT * 0.5)



	ROW_QUANTITY = ROW_QUANTITY + 1

end



SUPPLIES_USED_WORTH = SUPPLIES_USED_WORTH + SOFT_TIME * 0.008333333



---------------------------

-- Code by Dolmero above --

---------------------------

edit: dont know why, but isn't counting corretly ):