Sorting a table

--Score Board by Southp0le
--adjusted for 6x8 Advanced Monitor

-----------
--Options--
-----------
mon = peripheral.wrap("top")
chat = peripheral.wrap("bottom")
mon.setTextColor(colors.black)
mon.setBackgroundColor(colors.lightBlue)
mon.setTextScale(2)

-------------
--Functions--
-------------
--creates table with all infomation
local list = {}
function setTable(player,deaths,kills)
  list[player]={}
  list[player]["player"] = player
  list[player]["deaths"] = deaths
  list[player]["kills"] = kills
end

--saves list in file "archiv"
function save()
  local file = fs.open("archiv","w")
  file.write(textutils.serialize(list))
  file.close()
end

--loads file "archiv" and returns the list
function load()
  local file = fs.open("archiv","r")
  local data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end

--checks if theres a file "archiv", if not creates one
function check()
  if fs.exists("archiv")==false then
	save()
	print("Created a file")
  else
	print("Everything fine, file exists already")
  end
end

--adds a new player to the list
function addPlayer(player)
	setTable(player,0,0)
end

--creates labels
function label(xpos,ypos, text)
  mon.setCursorPos(xpos, ypos)
  mon.write(text)
end

--prints all the labels on the monitor
function screen()
  label(2,2,"Player:")
  label(21,2,"Deaths:")
  label(33,2,"Kills:")
  label(30,20,"by Southp0le")
end

--prints the list on the monitor
--"tostring" to get rid of ".0"
function printList()
  local x=4
  mon.clear()
  for player in pairs(list) do
	mon.setCursorPos(3,x)
	mon.write(player)
	mon.setCursorPos(25,x)
	mon.write(tostring(list[player]["deaths"]))
	mon.setCursorPos(36,x)
	mon.write(tostring(list[player]["kills"]))
	x=x+1
  end
end

--waits for death message
--increase deathnumber of dead player by 1
--if theres a killer,he will get +1 kill
--if theres no table of the dead player/killer -> adds one
function score()
  while true do
	mon.clear()
	printList()
	screen()
	event,dead,killer,cause=os.pullEvent("chat_death")
	if list[dead] == nil then
	  addPlayer(dead)
	end
	list[dead]["deaths"]=tonumber(list[dead]["deaths"])+1
	if killer~=nil then
	  if list[killer] == nil then
		addPlayer(killer)
	  end
	  list[killer]["kills"]=tonumber(list[killer]["kills"])+1
	end
	save()
  end
end

--still working
  --function sortDeath() end
  --function sortKill() end
  --function sortName() end


-----------
--Process--
-----------
check()
list = load()
score()