local key=assert(settings.get"krist.pkey","please set private key")
local pp = require"cc.pretty".pretty_print

-- ac.kst
local OURNAME = "ac"
local ITEMS = {}
local function i(adr,itname,hname,price)
	ITEMS[adr]={itname=itname,hname=hname,price=price,adr=adr}
end
i("dmn","minecraft:diamond","Diamond",5)
i("blz","minecraft:blaze_rod","Blaze Rod",10)
i("ely","minecraft:elytra","Elytra",200)
i=nil


local sres =textutils.unserializeJSON( http.post("https://krist.dev/ws/start","privatekey="..key).readAll())
assert(sres.ok,"not ok")

local ws = assert(http.websocket(sres.url))
local nextid = 0
local our_addr = "???"

local function sendws(t)
	t.id = nextid
	nextid = nextid + 1
	return ws.send(textutils.serializeJSON(t))
end

sendws{type="me"}

local function parsemeta(m)
	local out = {}
	for s in string.gmatch(m..";","(.-);") do
		local k,v = s:match"^(.-)=(.-)$"
		if k==nil then
			out.recipient = s
		else
			out[k]=v
		end
	end
	return out
end
local function give(stockinfo,idesc,amt)
	amt = amt or 1
	-- assumes that we have at least amt in stock already
	-- actually no, might as well double check this anyway
	assert(stock_amt(stockinfo,idesc) >= amt)
	assert(amt>0)
	-- make sure current turtle inv slot is empty
	assert(turtle.getItemCount() == 0)

	for slotidx,idtl in pairs(stockinfo) do
		if item_desc_matches(idesc,idtl) then
			local a = math.min(amt,idtl.count)
			chest.pushItems(localname, slotidx, a, 1)
			turtle.drop(a)
			amt = amt - a
			if amt <= 0 then break end
		end
	end
end

local function proctrans(tr)
	if tr.to ~= our_addr then return end
	if tr.type ~= "transfer" then return end
	if tr.sent_name ~= OURNAME then return end
	local meta = parsemeta(tr.metadata)
	local function tell(msg) if meta.username then chatbox.tell(meta.username,msg) end end
	local function refund() if meta['return'] then sendws { type="make_transaction", to=meta['return'], amount=tr.value } end end

	local mtn = tr.sent_metaname
	local idesc = ITEMS[mtn]
	if not idesc then
		-- some other metaname that has nothing to do with us
		-- presumably some other service @ac.kst. so just ignore it
		tell("(debug) i didn't recognise that metaname so no transaction occurs")
		return
	end

	local remainder = tr.value % idesc.price
	if remainder ~= 0 then
		tell("i can only give you a whole number of items. make sure the amount you gave me is a multiple of "..idesc.price)
		refund()
	else
		local si = take_stock()
		local in_stock = stock_amt(si,idesc)
		if in_stock == 0 then
			tell("we are out of stock! please yell at ubq323 about this")
			refund()
		else
			local to_give = math.floor(tr.value / idesc.price)
			if to_give > in_stock then
				tell("i don't have that many items in stock, sorry")
				refund()
			else
				give(si,idesc,to_give)
				tell("thank you!!! :3")
			end
		end
	end
end

local function run_shop()
	print("RUNSHOP")
	while true do
		msgtxt = assert(ws.receive(),"ws error")
		print(msgtxt)
		msg = textutils.unserializeJSON(msgtxt)
		if msg.type == "response" and msg.responding_to_type == "me" then
			our_addr = msg.address.address
		end
		if msg.type == "event" and msg.event == "transaction" then
			print("proctransing...")
			proctrans(msg.transaction)
		end
	end
end

local function run_sidedisp()
end

print(pcall(parallel.waitForAny,run_shop))
-- print("hi")
-- peripheral.call("top","clear")
-- peripheral.call("left","clear")