#!/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">$(printf "%'li" ${last["AP"]})&nbsp;AP</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 id in {100..0}
		do
			[ -z "${upbronze[id]}" ] && continue
			(( greenlevel = id * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			for stat in ${upbronze[id]}
			do
				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 $id%"
						alt="$stat bronze" />
					</a>
				EOHTML
			done
		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 id in {100..0}
		do
			[ -z "${upsilver[id]}" ] && continue
			(( greenlevel = id * 255 / 100 ))
			(( redlevel = 255 - greenlevel ))
			for stat in ${upsilver[id]}
			do
				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//_/-}-silver.png"
						title="$stat $id%"
						alt="$stat silver" />
					</a>
				EOHTML
			done
		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 id in {100..0}
	do
		[ -z "${upgold[id]}" ] && continue
		(( greenlevel = id * 255 / 100 ))
		(( redlevel = 255 - greenlevel ))
		for stat in ${upgold[id]}
		do
			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//_/-}-gold.png"
					title="$stat $id%"
					alt="$stat gold" />
				</a>
			EOHTML
		done
	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 id in {100..0}
	do
		[ -z "${upplatinum[id]}" ] && continue
		(( greenlevel = id * 255 / 100 ))
		(( redlevel = 255 - greenlevel ))
		for stat in ${upplatinum[id]}
		do
			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//_/-}-platinum.png"
					title="$stat $id%"
					alt="$stat platinum" />
				</a>
			EOHTML
		done
	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 id in {100..0}
	do
		[ -z "${upblack[id]}" ] && continue
		(( greenlevel = id * 255 / 100 ))
		(( redlevel = 255 - greenlevel ))
		for stat in ${upblack[id]}
		do
			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//_/-}-black.png"
					title="$stat $id%"
					alt="$stat black" />
				</a>
			EOHTML
		done
	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
}