os.loadAPI("displayAPI")
--Peripherals
local b = peripheral.wrap("bottom") -- Bridge Pos
local d = peripheral.wrap("left") -- Monitor Pos
--End Peripherals

--Winner Config
local dispwin = 2 -- How Long To Display Winner
local wintxt = "And The Winner Is:" -- Winner Text
local wintxtsz = 3 -- Winner Font Size
--End Winner Config

--Scoreboard Config
local glasses = true -- Display on glasses? true/false
local sbtxtsz = 3 -- Scoreboard Text Size
--End Scoreboard Config
term.clear()
term.setCursorPos(1,1)
d.clear()

function cwrite(text)
  local w, h = d.getSize()
  local x, y = d.getCursorPos()
  x = math.max(math.floor((w/2) - (#text / 2)), 0)
  d.setCursorPos(x,y)
  text = string.upper(text)
  d.write(text)
  d.setCursorPos(x,y+1)
end
function pwrite(text)
	local w, h = d.getSize()
	local x,y = d.getCursorPos()
	x = math.max(math.floor((15/2) - (#text / 2)), 0)
	d.setCursorPos(x,y)
	text = string.upper(text)
	d.write(text)
	d.setCursorPos(x,y+1)
end
function twrite(text)
    local x2,y2 = term.getCursorPos()
    local x,y = term.getSize()
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)
    print(text)
end

function winner(name)
	d.clear()
	d.setCursorPos(1,6)
	d.setTextScale(wintxtsz)
	cwrite(wintxt)
	sleep(1)
	cwrite(name)
	for n,s in pairs(players) do
		if n == name then
			players[n] = s+1
		end
	end
	players[name] = score
	sleep(dispwin)
	scoreboard()
end

function refreshScreen()
	d.clear()
	scoreboard()
end

function restartGame()
	os.reboot()
end

function scoreboard()
		d.clear()
		term.clear()
		term.setCursorPos(1,8)
		twrite("Loneztar's Sheep Race")
		term.write(players)
		if not players == nil then
		  d.setCursorPos(3,3)
		  d.setTextScale(sbtxtsz)
		  d.write("Players")
		  d.setCursorPos(19,3)
		  d.write("Score")
		  -- Player Loop
		  d.setCursorPos(1,4)
		  for name,score in pairs(players) do
			pwrite(name)
		  end
		  -- Score Loop
		  d.setCursorPos(21,4)
		  for name,score in pairs(players) do
			local h, v = d.getCursorPos()
			d.write(score)
			d.setCursorPos(h,v+1)
		  end
		else
			d.setCursorPos(1,4)
			cwrite("No Players Added")
		end
end

function addPlayer(name)
	name = string.upper(name)
	if not players == nil then
		if not players[name] == nil then
			players[name] = "0"
		end
	else
		players = {}
		players[name] = "0"
	end
end

function startScreen()
	term.setCursorPos(1,8)
	twrite("Loneztar's Sheep Race")
	term.setCursorPos(1,11)
	twrite("To Get Started")
	twrite("Type '$$Start' into your chat")
	d.clear()
	d.setCursorPos(1,6)
	d.setTextScale(3)
	cwrite("Loneztars'")
	cwrite("Sheep Race")
	d.setCursorPos(1,9)
	cwrite("$$start to begin!")
end

function help()
	local opacity = 0
	local curopac = 0
	if commandBox.getOpacity == 0.5 then
		commandBox.setOpacity(0)
	elseif commandBox.getOpacity == 0 then
		commandBox.setOpacity(0.5)
		cmdx = commandBox.getX()
		cmdy = commandBox.getY()
		cmdop = commandBox.getOpacity()
		cTitle = b.addText((cmdx+1), (cmdy+2), "Commands List:", 0x000000)
		local commands = {"winner <name>", "refresh", "addplayer <name>", "RESTART"}
		vpos = cmdy+12
		for _,v in pairs(commands) do
			b.addText(cmdx+1,vpos, v,0x000000)
			vpos = vpos+10
		end
	end
end

startScreen()
while true do
commandBox = b.addBox(10, 20, 80, 60, 0xffffff, 0)
local e, msg = os.pullEvent("chat_command")
b.clear()

local tWords = {}
for match in string.gmatch(msg, "[^ \t]+" ) do
  table.insert( tWords, match )
end
-- Commands List
if tWords[1] == "winner" then
	winner(tWords[2])
elseif tWords[1] == "refresh" then
	refreshScreen()
elseif tWords[1] == "addplayer" then
	addPlayer(tWords[2])
elseif tWords[1] == "RESTART" then
	restartGame()
elseif tWords[1] == "help" then
	help()
elseif tWords[1] == "start" then
	while true do
		scoreboard()
	end
end
-- End Commands
end --whiletruedo