collectgarbage()
local throttleInput
local throttleMin
local throttleMax
local resetSwitch
local runtime100
local exponent
local lcdBW=false

local timeCountOld
local timeCountSaved
local blink=false
local runtime=0
local capacityAlarm={80,60,40,20,10,5,4,3,2,1,0}
local alarmIndex=1

local throttleText="-"
local consumptionText="-"
local runtimeText="-"
local capacityText="-"

local function round(value)
	return math.floor(value+0.5)
end
local function printTelemetryBW()
	lcd.drawText(55-(lcd.getTextWidth(FONT_BIG,runtimeText)),0,runtimeText,FONT_BIG)
	lcd.drawText(145-(lcd.getTextWidth(FONT_BIG,capacityText)),0,capacityText,FONT_BIG)
	
	if runtime100>0 then
		if runtime<runtime100 then
			lcd.drawFilledRectangle(0,0,round(runtime/runtime100*150),23,32)
		elseif blink then
			lcd.drawFilledRectangle(0,0,150,23,32)
		end
	end
end
local function printTelemetryColor()
	if runtime100>0 then
		if runtime<runtime100 then
			local x=runtime/runtime100
			local r=math.min(round(350*x),200)
			local g=math.min(round(350*(1-x)),200)
			lcd.setColor(r,g,0)
			x=round(x*150)
			lcd.drawFilledRectangle(x,0,150-x,23)
		elseif blink then
			lcd.setColor(200,0,0)
			lcd.drawFilledRectangle(0,0,150,23)
		end
	end
	
	local r,g,b=lcd.getBgColor()
	if r+b+g<383 then
		lcd.setColor(255,255,255)
	else
		lcd.setColor(0,0,0)
	end
	lcd.drawText(55-(lcd.getTextWidth(FONT_BIG,runtimeText)),0,runtimeText,FONT_BIG)
	lcd.drawText(145-(lcd.getTextWidth(FONT_BIG,capacityText)),0,capacityText,FONT_BIG)
end
local function initForm(formID)
	form.addRow(2)
	form.addLabel({label="Throttle Input"})
	form.addInputbox(throttleInput,true,function(input) throttleInput=input system.pSave("throttleInput",throttleInput) throttleMin=0 throttleMax=0 end)
	form.addRow(2)
	form.addLabel({label="Reset Switch"})
	form.addInputbox(resetSwitch,false,function(input) resetSwitch=input system.pSave("resetSwitch",resetSwitch) end)
	form.addRow(2)
	form.addLabel({label="Runtime 100% Throttle",width=200})
	form.addIntbox(runtime100,0,3600,0,0,1,function(value) runtime100=value system.pSave("runtime100",runtime100) end,{label="s"})
	form.addRow(2)
	form.addLabel({label="Consumption Exponent",width=200})
	form.addIntbox(exponent,10,30,20,1,1,function(value) exponent=value system.pSave("exponent",exponent) end)
	form.addLabel({label="electric motor: ~2.6, piston engine: tbd, linear: 1.0",font=FONT_MINI})
	form.addSpacer(0,30)
	form.addLabel({label="Throttle     Consump.      Runtime      Capacity",font=FONT_MINI})
end
local function printForm()
	form.setButton(1,throttleText,ENABLED)
	form.setButton(2,consumptionText,ENABLED)
	form.setButton(3,runtimeText,ENABLED)
	form.setButton(4,capacityText,ENABLED)
end
local function init(code)
	throttleInput=system.pLoad("throttleInput")
	throttleMin=system.pLoad("throttleMin",0)
	throttleMax=system.pLoad("throttleMax",0)
	resetSwitch=system.pLoad("resetSwitch")
	runtime100=system.pLoad("runtime100",0)
	exponent=system.pLoad("exponent",26)
	runtime=system.pLoad("runtime",0)
	
	local deviceType=system.getDeviceType()
	print(deviceType)
	print(deviceType=="JETI DC-16" or deviceType=="JETI DS-16" or deviceType=="JETI DC-14" or deviceType=="JETI DS-14")
	if deviceType=="JETI DC-16" or deviceType=="JETI DS-16" or deviceType=="JETI DC-14" or deviceType=="JETI DS-14" then
		system.registerTelemetry(1,"Motor Capacity Timer",1,printTelemetryBW)
	else
		system.registerTelemetry(1,"Motor Capacity Timer",1,printTelemetryColor)
	end
	system.registerForm(1,MENU_APPS,"Motor Capacity Timer V1.1",initForm,nil,printForm)

	timeCountOld=system.getTimeCounter()
	timeCountSaved=timeCountOld
	collectgarbage()
end
local function loop()
	timeCount=system.getTimeCounter()
	blink=timeCount%1500<750
	
	if resetSwitch then
		if system.getInputsVal(resetSwitch)>0 then
			runtime=0
			alarmIndex=1
		end
	end
	
	if throttleInput then
		throttle=system.getInputsVal(throttleInput)
		if throttle<throttleMin then
			throttleMin=throttle
			system.pSave("throttleMin",throttleMin)
		end
		if throttle>throttleMax then
			throttleMax=throttle
			system.pSave("throttleMax",throttleMax)
		end
		
		throttle=(throttle-throttleMin)/(throttleMax-throttleMin)
		throttleText=string.format("%d%%",throttle*100)
		
		consumption=throttle^(0.1*exponent)
		consumptionText=string.format("%d%%",consumption*100)
		
		runtime=runtime+0.001*(timeCount-timeCountOld)*consumption
		runtimeText=string.format("%ds",runtime)
	
		if timeCount-timeCountSaved>=5000 then
			timeCountSaved=timeCount
			system.pSave("runtime",runtime)
		end
		
		if runtime100>0 then
			local capacity=round((runtime100-runtime)/runtime100*100)
			capacity=math.max(capacity,0)
			capacityText=string.format("%d%%",capacity)
			
			if alarmIndex<=#capacityAlarm then
				if capacity<=capacityAlarm[alarmIndex] then
					system.playNumber(capacity,0,"%","Capacity")
					alarmIndex=alarmIndex+1
				end
			end
		else
			capacityText="-"
		end
	end
	
	timeCountOld=timeCount
	collectgarbage()
end
collectgarbage()
return {init=init,loop=loop,author="LD",version="1.1",name="Motor Capacity Timer"}