#!/bin/bash

show_current_level() {
	cat <<-EOHTML
		<table class="curlevel" style="width:$(( graph_width + 97 ))px">
			<tr class="curlevel">
				<td class="curlevel">L$curlevel</td>
				<td class="curAP"><a class="AP" href="?hist&amp;start=$start&amp;end=$end#AP">$(printf "%'li" ${last["AP"]})&nbsp;AP</a></td>
				<td class="curbadge">
	EOHTML
	for stat in ${bronzes[@]}
	do
		img=${stat,,}
		cat <<-EOHTML
			<a class="badge"
			href="?hist&amp;start=$start&amp;end=$end#$stat">
				<img
				class="minibadge"
				src="/${img//_/-}-bronze.png"
				title="$stat"
				alt="$stat bronze" />
			</a>
		EOHTML
	done
	for timestamp in ${!nextbronze[@]}
	do
		(( timestamp )) || continue
		for stat in ${nextbronze[timestamp]}
		do
			if (( upbronze[$stat] ))
			then
				(( greenlevel = upbronze[$stat] * 255 / 100 ))
				(( redlevel = 255 - greenlevel ))
				img=${stat,,}
				cat <<-EOHTML
					<a
					class="badge"
					style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="minibadge"
						src="/${img//_/-}-bronze.png"
						title="$stat ${upbronze[$stat]}%
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat bronze" />
					</a>
				EOHTML
			fi
		done
	done
	for stat in ${nextbronze[0]}
	do
		img=${stat,,}
		if (( upbronze[$stat] ))
		then
			(( greenlevel = upbronze[$stat] * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-bronze.png"
					title="$stat ${upbronze[$stat]}%
					(maybe one day)"
					alt="$stat bronze" />
				</a>
			EOHTML
		else
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#ff0000"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-bronze.png"
					title="$stat 0%
					(maybe one day)"
					alt="$stat bronze" />
				</a>
			EOHTML
		fi
	done
	cat <<-EOHTML
				</td>
				<td class="curbadge">
	EOHTML
	for stat in ${silvers[@]}
	do
		img=${stat,,}
		cat <<-EOHTML
			<a class="badge"
			href="?hist&amp;start=$start&amp;end=$end#$stat">
				<img
				class="minibadge"
				src="/${img//_/-}-silver.png"
				title="$stat"
				alt="$stat silver" />
			</a>
		EOHTML
	done
	for timestamp in ${!nextsilver[@]}
	do
		(( timestamp )) || continue
		for stat in ${nextsilver[timestamp]}
		do
			img=${stat,,}
			if (( upsilver[$stat] ))
			then
				(( greenlevel = upsilver[$stat] * 255 / 100 ))
				(( redlevel = 255 - greenlevel ))
				cat <<-EOHTML
					<a
					class="badge"
					style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="minibadge"
						src="/${img//_/-}-silver.png"
						title="$stat ${upsilver[$stat]}%
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat silver" />
					</a>
				EOHTML
			else
				cat <<-EOHTML
					<a
					class="badge"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="nominibadge"
						src="/${img//_/-}-silver.png"
						title="$stat
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat silver" />
					</a>
				EOHTML
			fi
		done
	done
	for stat in ${nextsilver[0]}
	do
		img=${stat,,}
		if (( upsilver[$stat] ))
		then
			(( greenlevel = upsilver[$stat] * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-silver.png"
					title="$stat ${upsilver[$stat]}%
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat silver" />
				</a>
			EOHTML
		else
			cat <<-EOHTML
				<a
				class="badge"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="nominibadge"
					src="/${img//_/-}-silver.png"
					title="$stat
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat silver" />
				</a>
			EOHTML
		fi
	done
	cat <<-EOHTML
				</td>
				<td class="curbadge">
	EOHTML
	for stat in ${golds[@]}
	do
		img=${stat,,}
		cat <<-EOHTML
			<a class="badge"
			href="?hist&amp;start=$start&amp;end=$end#$stat">
				<img
				class="minibadge"
				src="/${img//_/-}-gold.png"
				title="$stat"
				alt="$stat gold" />
			</a>
		EOHTML
	done
	for timestamp in ${!nextgold[@]}
	do
		(( timestamp )) || continue
		for stat in ${nextgold[timestamp]}
		do
			img=${stat,,}
			if (( upgold[$stat] ))
			then
				(( greenlevel = upgold[$stat] * 255 / 100 ))
				(( redlevel = 255 - greenlevel ))
				cat <<-EOHTML
					<a
					class="badge"
					style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="minibadge"
						src="/${img//_/-}-gold.png"
						title="$stat ${upgold[$stat]}%
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat gold" />
					</a>
				EOHTML
			else
				cat <<-EOHTML
					<a
					class="badge"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="nominibadge"
						src="/${img//_/-}-gold.png"
						title="$stat
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat gold" />
					</a>
				EOHTML
			fi
		done
	done
	for stat in ${nextgold[0]}
	do
		img=${stat,,}
		if (( upgold[$stat] ))
		then
			(( greenlevel = upgold[$stat] * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-gold.png"
					title="$stat ${upgold[$stat]}%
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat gold" />
				</a>
			EOHTML
		else
			cat <<-EOHTML
				<a
				class="badge"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="nominibadge"
					src="/${img//_/-}-gold.png"
					title="$stat
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat gold" />
				</a>
			EOHTML
		fi
	done
	cat <<-EOHTML
				</td>
				<td class="curbadge">
	EOHTML
	for stat in ${platinums[@]}
	do
		img=${stat,,}
		cat <<-EOHTML
			<a class="badge"
			href="?hist&amp;start=$start&amp;end=$end#$stat">
				<img
				class="minibadge"
				src="/${img//_/-}-platinum.png"
				title="$stat"
				alt="$stat platinum" />
			</a>
		EOHTML
	done
	for timestamp in ${!nextplatinum[@]}
	do
		(( timestamp )) || continue
		for stat in ${nextplatinum[timestamp]}
		do
			img=${stat,,}
			if (( upplatinum[$stat] ))
			then
				(( greenlevel = upplatinum[$stat] * 255 / 100 ))
				(( redlevel = 255 - greenlevel ))
				cat <<-EOHTML
					<a
					class="badge"
					style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="minibadge"
						src="/${img//_/-}-platinum.png"
						title="$stat ${upplatinum[$stat]}%
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat platinum" />
					</a>
				EOHTML
			else
				cat <<-EOHTML
					<a
					class="badge"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="nominibadge"
						src="/${img//_/-}-platinum.png"
						title="$stat
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat platinum" />
					</a>
				EOHTML
			fi
		done
	done
	for stat in ${nextplatinum[0]}
	do
		img=${stat,,}
		if (( upplatinum[$stat] ))
		then
			(( greenlevel = upplatinum[$stat] * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-platinum.png"
					title="$stat ${upplatinum[$stat]}%
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat platinum" />
				</a>
			EOHTML
		else
			cat <<-EOHTML
				<a
				class="badge"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="nominibadge"
					src="/${img//_/-}-platinum.png"
					title="$stat
					($(date -d @$timestamp +%Y-%m-%d))"
					alt="$stat platinum" />
				</a>
			EOHTML
		fi
	done
	cat <<-EOHTML
				</td>
				<td class="curbadge">
	EOHTML
	for stat in ${blacks[@]}
	do
		img=${stat,,}
		cat <<-EOHTML
			<a class="badge"
			href="?hist&amp;start=$start&amp;end=$end#$stat">
				<img
				class="minibadge"
				src="/${img//_/-}-black.png"
				title="$stat"
				alt="$stat black" />
			</a>
		EOHTML
	done
	for timestamp in ${!nextblack[@]}
	do
		(( timestamp )) || continue
		for stat in ${nextblack[timestamp]}
		do
			img=${stat,,}
			if (( upblack[$stat] ))
			then
				(( greenlevel = upblack[$stat] * 255 / 100 ))
				(( redlevel = 255 - greenlevel ))
				cat <<-EOHTML
					<a
					class="badge"
					style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="minibadge"
						src="/${img//_/-}-black.png"
						title="$stat ${upblack[$stat]}%
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat black" />
					</a>
				EOHTML
			else
				cat <<-EOHTML
					<a
					class="badge"
					href="?hist&amp;start=$start&amp;end=$end#$stat">
						<img
						class="nominibadge"
						src="/${img//_/-}-black.png"
						title="$stat
						($(date -d @$timestamp +%Y-%m-%d))"
						alt="$stat black" />
					</a>
				EOHTML
			fi
		done
	done
	for stat in ${nextblack[0]}
	do
		img=${stat,,}
		if (( upblack[$stat] ))
		then
			(( greenlevel = upblack[$stat] * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			cat <<-EOHTML
				<a
				class="badge"
				style="background:#$(printf %02x%02x $redlevel $greenlevel )00"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="minibadge"
					src="/${img//_/-}-black.png"
					title="$stat ${upblack[$stat]}%
					(maybe one day)"
					alt="$stat black" />
				</a>
			EOHTML
		else
			cat <<-EOHTML
				<a
				class="badge"
				href="?hist&amp;start=$start&amp;end=$end#$stat">
					<img
					class="nominibadge"
					src="/${img//_/-}-black.png"
					title="$stat
					(maybe one day)"
					alt="$stat black" />
				</a>
			EOHTML
		fi
	done
	cat <<-EOHTML
				</td>
			</tr>
			<tr class="nextlevel">
				<td class="curevel">L$nextlevel</td>
	EOHTML
	readable=$(printf "%'li" ${lvl[nextlevel]})
	if (( last["AP"] >= lvl[nextlevel] ))
	then
		style='style="background:lightgreen"'
	else
		style=''
	fi
	cat <<-EOHTML
				<td class="curAP" $style>${readable// /&nbsp;}&nbsp;AP</td>
				<td />
	EOHTML
	if (( silvercount >= lvlsilver[level] ))
	then
		echo '<td class="curbadge" style="background:lightgreen">'${lvlsilver[level]}'</td>'
	else
		echo "<td class=\"curbadge\" style=\"background:lightgrey\">${lvlsilver[level]} (<span class=\"missing\">$(( silvercount - lvlsilver[level] ))</span>)"
		echo '</td>'
	fi
	if (( goldcount >= lvlgold[level] ))
	then
		echo '<td class="curbadge" style="background:lightgreen">'${lvlgold[level]}'</td>'
	else
		echo "<td class=\"curbadge\" style=\"background:lightgrey\">${lvlgold[level]} (<span class=\"missing\">$(( goldcount - lvlgold[level] ))</span>)"
		echo '</td>'
	fi
	if (( platinumcount >= lvlplatinum[level] ))
	then
		echo '<td class="curbadge" style="background:lightgreen">'${lvlplatinum[level]}'</td>'
	else
		echo "<td class=\"curbadge\" style=\"background:lightgrey\">${lvlplatinum[level]} (<span class=\"missing\">$(( platinumcount - lvlplatinum[level] ))</span>)"
		echo '</td>'
	fi
	if (( blackcount >= lvlblack[level] ))
	then
		echo '<td class="curbadge" style="background:lightgreen">'${lvlblack[level]}'</td>'
	else
		echo "<td class=\"curbadge\" style=\"background:lightgrey\">${lvlblack[level]} (<span class=\"missing\">$(( blackcount - lvlblack[level] ))</span>)"
		echo '</td>'
	fi
	cat <<-EOHTML
			</tr>
		</table>
	EOHTML
}