os.pullEvent = os.pullEventRaw
term.clear()
term.setCursorPos(1,1)

function cPrint ( nText )
	scrWid, scrHei = term.getSize()
	print(string.rep(" ",scrWid/2-nText:len()/2)..nText..string.rep(" ",scrWid/2-nText:len()/2))
end

function sntim ()
	while true do
		term.clear()
		term.setCursorPos(1,1)
		cPrint(tostring((tick-1)/5))
		os.sleep(0.2)
		tick = tick + 1
		if (tick-1)/5 == 10 then
			break
		end
	end
end

function smtim ()
	while true do
		action = os.pullEvent("key")
		notes[tick] = notes[tick]+1
	end
end

function saveSong ( nNotes )
	ak=io.open(".passbeat","w")
	for i=1, 52 do
		if i < 52 then
			ak:write(tostring(nNotes[i]).."\n")
		else
			ak:write(tostring(nNotes[i]))
		end
	end
	ak:close()
end

function mode_a ()
	cPrint("Welcome!")
	cPrint("- Passbeat Sec System -")
	print("")
	sleep(2)
	cPrint("Press any key to setup your beat!")
	os.pullEvent('key')
	term.clear()
	term.setCursorPos(1,1)
	cPrint("3")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("2")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("1")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("GO!")
	os.sleep(0.5)
	term.clear()
	term.setCursorPos(1,1)
	tick = 1
	notes = {}
	for i=1, 52 do
		notes[i] = 0
	end
	parallel.waitForAny( sntim, smtim )
	term.clear()
	term.setCursorPos(1,1)
	cEmpty = true
	for i=1, 52 do
		if notes[i] ~= 0 then cEmpty = false end
	end
	if cEmpty then
		cPrint(":( We didn't hear anything. Try again!")
		os.sleep(2)
		mode_a()
	end
	cPrint("-Thank You-")
	cPrint("We received your song data!")
	cPrint("Recorded into the pass system!")
	print("")
	cPrint("Saving data...")
	cPrint("Please wait!")
	saveSong(notes)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("-Thank You-")
	cPrint("We received your song data!")
	cPrint("Recorded into the pass system!")
	print("")
	cPrint("Rebooting!")
	os.sleep(3)
	os.reboot()
end

function readData ( nFile )
	ak=fs.open(nFile,"r")
	nDat = ak:readAll()
	ak:close()
	return nDat
end

function returnLines ( nFile )
	ak=io.open(nFile,"r")
	nFileLines = {}
	for line in ak:lines() do
		nFileLines[#nFileLines+1] = line
	end
	ak:close()
	return nFileLines
end

function readSong ()
	dn = returnLines(".passbeat")
	nacs = {}
	for i=1, #dn do
		nacs[i]=tonumber(dn[i])
	end
	return nacs
end

function mode_b ()
	song = readSong()
	term.clear()
	term.setCursorPos(1,1)
	cPrint("-PASS SONG-")
	print("")
	os.sleep(2)
	cPrint("Press any key to start!")
	os.pullEvent('key')
	term.clear()
	term.setCursorPos(1,1)
	cPrint("3")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("2")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("1")
	os.sleep(1)
	term.clear()
	term.setCursorPos(1,1)
	cPrint("GO!")
	os.sleep(0.5)
	term.clear()
	term.setCursorPos(1,1)
	tick = 1
	notes = {}
	for i=1, 52 do
		notes[i] = 0
	end
	parallel.waitForAny( sntim, smtim )
	term.clear()
	term.setCursorPos(1,1)
	cPrint("Analyzing...")
	sif=0
	for i=1, 52 do
		if notes[i] == song[i] then
			sif=sif+1
		end
	end
	isAble = false
	if sif/52 >= 0.70 then
		isAble = true
	end
	sig=0
	for i=1, 52 do
		if notes[i] == song[i-1] then
			sig=sig+1
		end
	end
	if sig/52 >= 0.70 then
		isAble = true
	end
	siq=0
	for i=1, 52 do
		if notes[i] == song[i+1] then
			siq=siq+1
		end
	end
	if siq/52 >= 0.70 then
		isAble = true
	end

	if isAble then
		term.clear()
		term.setCursorPos(1,1)
		cPrint("Access Granted!")
		cPrint("t: "..tostring(sif/52*100).."%")
		cPrint("g: "..tostring(sig/52*100).."%")
		cPrint("q: "..tostring(siq/52*100).."%")
		print("")
		cPrint("Passing Grade: 70%")
		os.sleep(3)
		term.clear()
		term.setCursorPos(1,1)
		print("CraftOS")
	else
		term.clear()
		term.setCursorPos(1,1)
		cPrint("Access Denied!")
		cPrint("t: "..tostring(sif/52*100).."%")
		cPrint("g: "..tostring(sig/52*100).."%")
		cPrint("q: "..tostring(siq/52*100).."%")
		print("")
		cPrint("Passing Grade: 70%")
		os.sleep(3)
		os.reboot()
	end
end

if not fs.exists(".passbeat") then
	mode_a()
else
	mode_b()
end