var
	list
		Scores=list()

Score
	var
		Owner=""
		Score=0

#define DEBUG

CGI/Topic(href,href_list)
	var/content
	if(href_list["submit"])
		var/Score=text2num(href_list["albadblue"])
		var/Key=href_list["whosentthis"]
		var/hash=text2num(href_list["whyverify"])
		var/readable=file("Scores.txt")
		var/savefile/F=new()
		F.ImportText("/",readable)
		F["Scores"]>>Scores
		if(hash==((((Score+2)*2)-2)*4))
			var/Found=0
			for(var/Score/S2 in Scores)
				if(S2.Owner==Key)
					if(S2.Score<Score)
						S2.Score=Score
					Found=1
					break
			if(!Found)
				var/Score/S = new
				S.Owner=Key
				S.Score=Score
				Scores+=S
			F["Scores"]<<Scores
			F.ExportText("/",readable)
			usr<<"Score of [Score] for key [Key] saved."
		else
			usr<<"Improper Hashing."
	else
		if(href=="HighScores")
			content={"
				<table align=center border=1 bordercolor=#cccccc width=50%>
				<tr><td colspan=2><font size=5><center>Evasion High Scores</center></font></td></tr>
				<tr><td width=50%><center>Key:</center></td><td width=50%><center>Score:</center></td></tr>
						"}
			var/savefile/F=new()
			var/readable=file("Scores.txt")
			F.ImportText("/",readable)
			F["Scores"]>>Scores
			if(Scores)
				BubbleSort(Scores)
				for(var/i=1,i<=50,i++)
					if(i<=Scores.len)
						var/Score/S = Scores[i]
						content+={"<tr><td><center>[S.Owner]</center></td><td><center>[S.Score]</center></td></tr>"}
			content+="</table>"
		else if(href=="Credits")
			content="Airjoe - Programming<br>Pmac - Icons<br><br><br>Loduwijk - Menu system<br>Ryu734 - Testing and Bughunting<br>Mysame - Testing and Bughunting"
		else if(href=="ReleaseNotes")
			content={"
<b>Version 2.6</b><br>
-Added clearing of all mines and health after each round<br>
-Fixed HighScore bug ("Score - Key - Key")<br>
-Added autodeletion of Health after 7 seconds<br>
<br>
<br>
<b>Version 2.5</b><br>
-Fixed a seeker points bug.<br>
-Fixed a bug caused by health making players invincible<br>
<br>
<br>
<b>Version 2.4</b><br>
-Added health spawning<br>
-Added Seeker points<br>
-Fixed a bug with joining<br>
<br>
<br>
<b>Version 2.3</b><br>
-Temporarily removed name overlays due to bugs<br>
-Slowed down Seekers<br>
-Fixed a bug with shrapnel<br>
-Added colors for Players' speech, and bolded everyone's speech.<br>
<br>
<br>
<b>Version 2.2</b><br>
-Added Health<br>
-Added Name Overlays<br>
<br>
<br>
<b>Version 2.1</b><br>
-Added Seekers<br>
<br>
<br>
<b>Version 2.0</b><br>
-Fixed more than 30 bugs<br>
-Added Mines<br>
-Added Moving Grenades<br>"}
		else if(href=="Screenshots")
			content={"
<img src="./screenshot1.PNG" id="screenshot"><br>
<br><br>
<img src="./screenshot2.PNG" id="screenshot"><br>
<br><br>
<img src="./screenshot3.PNG" id="screenshot"><br>
<br><br>
<img src="./screenshot4.PNG" id="screenshot"><br>
<br><br>
<img src="./screenshot5.PNG" id="screenshot"><br>
<br><br>
"}
		else if(href=="Help")
			content={"
Evasion is a one to four player game in which
you must dodge exploding grenades. Each player has three health
points. Each piece of shrapnel takes away one point of health, so
you better get out of the way quickly! Players also have scores.
Scores increase by values specific to the grenade. The only
controlling that you need to do in this game is move North, South,
East, or West.
<br><br><br>
<b>What you need to know:</b>
<br><br>
<img src='Grenade.png'><b>Grenades:</b> Grenades occur in random
locations. They will explode between 10 and 3.5 seconds after
spawning. Each grenade can have anywhere from 5 to 30 pieces of
shrapnel, so watch out. The more shrapnel a grenade has and the
shorter the time in which it explodes, the more points it will add
to your score!
<br><br>
<img src='Shrapnel.png'><b>Shrapnel:</b> This is the nasty stuff
that does damage. Shrapnel has different ranges. The size or shape
of shrapnel does not imply its range. Shrapnel will fly anywhere
between 7 and 12 tiles!
<br><br>
<img src='Mine.png'><b>Mines:</b> Mines are evil little things
that'll blow up right in your face if you're not careful. Don't
walk within 1 tile of these bad boys or you might not live to a
ripe old age. Shrapnel from other mines or grenades set these
off, too!
<br><br>
<img src='Seeker.png'><b>Seekers:</b> Seekers may very well be
the most important thing to look out for. They live up to their
name very well. Seekers will randomly pick a target when spawned,
and chase down that target untill they explode. Seekers only have
a 50% chance of being blown up by other shrapnel, so keep running
and maybe it'll explode before it hits you.
<br><br>
<img src='Health.png'><b>Health:</b> Simply put: Get this if you
can! Note: You may not have more than 3 health points at a time."}
		else
			content="Welcome to the website for ATP Development's Evasion!"
		usr<<browse({"
<html>
<head>
<title>Evasion by ATP Development</title>
<style type="text/css">
a {color: #FFFFFF}
img#screenshot {border: 3pt solid #000000}
</style>
</head>
<body bgcolor=#999999>
<center><img src="RedGuy.png"><font size=7>Evasion</font><img src="YellowGuy.png"><br>
by ATP Development<br><br>
<a href=?Home>Home</a> | <a href=?Help>Help</a> | <a href=?Screenshots>Screenshots</a> | <a href=?ReleaseNotes>Release Notes</a> | <a href=?Credits>Credits</a> | <a href=?HighScores>High Scores</a></center><br><br>
<center>
<table align=center border=0 width=75%>
<tr>
<td>
[content]
</td>
</tr>
</table>
</center>
<br><br><br>Copyright&#169; ATP Development 2006
</body>
</html>"})

proc/BubbleSort(list/L)
	for(var/i = L.len; i >= 1; i--)
		for(var/j = 1; j < i; j++)
			var/Score/S1=L[j]
			var/Score/S2=L[j+1]
			if(S1.Score<S2.Score)
				L.Swap(j, j+1)