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
|
package.path = "/?;/?.lua;"..package.path
local key=assert(settings.get"krist.pkey","please set private key")
local stock=require"shop2.stock"
-- 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)
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 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 = 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!!! :3")
end
end
end
end
local function run_shop()
print("RUNSHOP")
while true do
local msgtxt = assert(ws.receive(),"ws error")
print(msgtxt)
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
print("proctransing...")
proctrans(msg.transaction)
end
end
end
print(pcall(parallel.waitForAny,run_shop))
-- print("hi")
-- peripheral.call("top","clear")
-- peripheral.call("left","clear")
|
