Mudlet - Forum

-- Helps to have these defined outside of the creation functions, so they can be referenced.
label = {
    x = 0,
    y = 0,
    width = 50,
    height = 100
}

-- Background. Not necessary, but looks nicer. Is static.
createLabel( "gauge_back", label.x, label.y, label.width, label.height, 1 )
setBackgroundColor( "gauge_back", 50, 50, 50, 255 )

-- This is the actual gauge. Resized.
createLabel( "gauge_front", label.x, label.y, label.width, label.height, 1 )
setBackgroundColor( "gauge_front", 200, 200, 200, 255 )

-- We create this so the text doesn't move, even as we update the size of
-- the front gauge.
createLabel( "gauge_text", label.x, label.y, label.width, label.height, 0 )
-- Make it transparent so we can see the gauges beneath.
setBackgroundColor( "gauge_text", 0, 0, 0, 0 )
-- Or however you record your stats...
echo( "gauge_text", string.format( "%d/%d", stat.current, stat.max ) )

function updateGauges ()
    local gauge_percent = stat.current / stat.max
    local new_height = label.height * gauge_percent
    local new_y = label.y + (label.height - new_height)
    -- First we resize the gauge...
    resizeWindow( "gauge_front", label.width, new_height )
    -- Now we move the window, if want it to empty downward.
    -- If you want it to empty upward, then omit the movement.
    moveWindow( "gauge_front", label.x, new_y )
    -- Echo the new stats.
    echo( "gauge_text", string.format( "%d/%d", stat.current, stat.max ) )
end

function animateWindow( name, fps, duration, xInitial, yInitial, xFinal, yFinal)
	local t = {}
	t.fps, t.anim_time = fps, duration

	t.frame_count = fps * t.anim_time
	t.time_per_frame = 1/fps
	t.x_gain_per_frame = (xFinal - xInitial) / t.frame_count
	t.y_gain_per_frame = (yFinal - yInitial) / t.frame_count

	display(t)

	_G["timer_frame_" ..name] = 1
	if exists("animation timer_" ..name, "timer") == 0 then
		permTimer("animation timer_" ..name, "Animation Timers", t.time_per_frame, [[moveWindow("]] ..name .. [[",]] ..xInitial.. [[ + timer_frame_]] ..name.. [[*]] .. t.x_gain_per_frame .. [[,]] ..yInitial.. [[ + timer_frame_]] ..name.. [[*]].. t.y_gain_per_frame..[[) timer_frame_]] ..name.. [[ = timer_frame_]] ..name.. [[+1 if timer_frame_]]..name.. [[ >= ]] .. t.frame_count .. [[ then disableTimer("animation timer_]] ..name .. [[") end]])
	end
	enableTimer("animation timer_" ..name)
end