Clock67

function getDate()
	local result = http.get("http://worldtimeapi.org/api/timezone/America/New_York.txt").readAll() -- This is a synchronous request.  Seems easier.  Change to async if necessary
	print(result)
	-- Third line...
	lines = {}
	for s in result:gmatch("[^\r\n]+") do
		table.insert(lines, s)
	end
	local date = lines[3] -- LUA starts at 1 index...
	-- Now we have: datetime: 2020-07-21T00:07:29.748572-04:00
	datePieces = {}
	for s in date:gmatch("[^ ]+") do
		table.insert(datePieces, s)
	end
	return datePieces[2]; -- Should just get the ISO date bit
end


-- This is super simple and had 0 upvotes, but, I don't need much.  I don't care about timezone or anything.

--    Parse date given in any of supported forms.

--    Note! For unrecognised format will return now.

--    @param str ISO date. Formats:
--        Y-m-d
--        Y-m -- this will assume January
--        Y -- this will assume 1st January



	-- We're looking for: datetime: 2020-07-20T23:50:33.619682-04:00

function parseDate(str)
    local y,m,d,hour, minute, second, ms = str:match("(%d%d%d%d)-?(%d?%d?)-?(%d?%d?)%a(%d%d):(%d%d):(%d%d).(%d%d%d)")
	-- Lua doesn't do ms... but we can make it work
    -- fallback to now
    if y == nil then
        return os.time()
    end
    -- defaults
    if m == '' then
        m = 1
    end
    if d == '' then
        d = 1
    end
    -- create time
    return os.time({year=tonumber(y), month=tonumber(m), day=tonumber(d), hour=tonumber(hour), min = tonumber(minute), sec = tonumber(second)}),tonumber(ms) -- Returning a datetime and a number for the ms
end


local function StartCounting()
	ticks = ticks+1
end



rednet.open("front")
targetid = 3 -- You still gotta set this if you move.

ticks = 0

ISODate = getDate()
t, ms = parseDate(ISODate)
starttime = t
startms = ms
endtime = starttime -- set this as we go
endms = ms
ratio = 1

local lastEvent = nil

local routine = coroutine.create(StartCounting)
while true do
	http.request("http://worldtimeapi.org/api/timezone/America/New_York.txt")
	event ={os.pullEvent()}
	if event != lastEvent and event[1] == "http_success" then
		result = event[3]
		lines = {}
		for s in result:gmatch("[^\r\n]+") do
			table.insert(lines, s)
		end
		local date = lines[3] -- LUA starts at 1 index...
		-- Now we have: datetime: 2020-07-21T00:07:29.748572-04:00
		datePieces = {}
		for s in date:gmatch("[^ ]+") do
			table.insert(datePieces, s)
		end
		t,ms = parseDate(datePieces[2]); -- Should just get the ISO date bit
		print("2"..t)
		endtime = t
		endms = ms
			-- Easier said than done.
			-- I think we have to wait for an event
			-- But, our URL can maybe be http://worldtimeapi.org/api/timezone/America/New_York.txt

			-- Find the third line, datetime: 2020-07-20T23:50:33.619682-04:00
			-- Can lua parse that?


		second = endtime - starttime -- I think this works...
		second = second + (endms - startms)/1000
		tps = ticks/second
		-- Find ratio of this to the expected 20
		-- We want where 10 tps / 20expected = 0.5 speed (because of the way speed works, it's kinda backwards)

		-- Ummm apparently on this server we're hitting near 60.  Let's try that.
		ratio = tps/60
		-- We need to cap this or things might get crazy?
		print(ratio)
		-- Then send this new ratio out on rednet
		rednet.send(targetid,"speed " .. ratio)
		-- Reset
		ticks = 0
		starttime = endtime
		startms = endms
	end
	lastEvent = event
	coroutine.resume(routine)
end