summaryrefslogtreecommitdiff
path: root/shop2/main.lua
blob: 7b298db5a5325d10b7b5025d46d5a879e17ad8c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
package.path = "/?;/?.lua;"..package.path

local key=assert(settings.get"krist.pkey","please set private key")

local stock=require"shop2.stock"
local items = require"shop2.items"

-- ac.kst
local OURNAME = "ac"

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 divisible(a,b)
	-- returns whether a is divisible by b
	-- because % doesn't work on nonintegers for some reason
	if b == 0 then return false end
	local x = a/b
	return x == math.floor(x)
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
			if not pcall(chatbox.tell,meta.username,msg) then
				print("chatbox error, couldn't tell "..meta.username..": "..msg)
			end
		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
	for _,i in ipairs(items) do
		if i.adr == mtn then idesc = i end
	end
	if not idesc then
		-- some other metaname that has nothing to do with us
		-- presumably some other service @ac.kst. so just ignore it
		print("(debug) don't know what '"..mtn.."' means, ignoring")
		-- tell("(debug) i didn't recognise that metaname so no transaction occurs")
		return
	end

	if not divisible(tr.value,idesc.price) 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 = stock.take_stock()
		local in_stock = stock.amt_of(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
				stock.give(si,idesc,to_give)
				tell("thank you!")
			end
		end
	end
end

local function run_shop()
	while true do
		local msgtxt = assert(ws.receive(),"ws error")
		local 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
			proctrans(msg.transaction)
		end
	end
end

local run_disp = require"shop2.disp".run

while true do
print(pcall(parallel.waitForAny,run_shop,run_disp))
print("restarting....")
os.sleep(0.5)
end

-- print("hi")
-- peripheral.call("top","clear")
-- peripheral.call("left","clear")