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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
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 chest = peripheral.wrap"back"
local function take_stock()
-- if you do this in parallel, you avoid having to wait 1 tick for each
-- slot of the chest. which is probably good.
local out = {}
local fns = {}
for i=1,chest.size() do
fns[i] = function() out[i] = chest.getItemDetail(i) end
end
parallel.waitForAll(unpack(fns))
return out
end
local function item_desc_matches(idesc,itemdetail)
-- idesc is an entry from ITEMS
-- itemdetail is something returned from getItemDetail on the chest
-- if you were wondering
return idesc.itname == itemdetail.name
end
local function stock_amt(stockinfo,idesc)
local total = 0
for ix,itm in pairs(stockinfo) do
if item_desc_matches(idesc,itm) then
total = total + itm.count
end
end
return out
end
local si = take_stock()
pp(si)
for iadr,itm in pairs(ITEMS) do
print(iadr,itm.hname,stock_amt(si,itm))
end
-- XXX
local function give(amt)
amt = amt or 1
-- assumes that we have at least amt in stock already
for i=1,16 do
local x = turtle.getItemDetail(i)
if x and x.name == ITEM then
local a = math.min(amt,x.count)
turtle.select(i)
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 remainder = tr.value % 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 "..PRICE)
refund()
else
local in_stock = stock_amt()
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 / PRICE)
if to_give > in_stock then
tell("i don't have that many items in stock, sorry")
refund()
else
give(to_give)
tell("thank you!!! :3")
end
end
end
end
local function run_shop()
while true do
msgtxt = assert(ws.receive(),"ws error")
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 function run_topdisp()
end
local function run_sidedisp()
end
-- print(pcall(parallel.waitForAny,run_shop, run_topdisp, run_sidedisp))
-- print("hi")
-- peripheral.call("top","clear")
-- peripheral.call("left","clear")
|