Realm

1package stdcol
2
3import (
4	"chain"
5	"chain/banker"
6	"strconv"
7
8	"gno.land/p/g1n4pl5uc4yt5r96m9w6fmdznx3x0jyg8l6arhmt/bazaar/fee/v1"
9	"gno.land/r/g1n4pl5uc4yt5r96m9w6fmdznx3x0jyg8l6arhmt/bazaar/factory"
10)
11
12const protocolBps = int64(50)
13
14func List(cur realm, id int, priceUgnot int64) {
15	caller := requireUser(cur)
16	if priceUgnot <= 0 {
17		panic("col: price")
18	}
19	it := mustItem(id)
20	if it.listed {
21		panic("col: listed")
22	}
23	if it.owner != caller {
24		panic("col: not owner")
25	}
26	grcTransfer(caller, caller, self, id)
27	it.listed = true
28	it.seller = caller
29	it.price = priceUgnot
30	it.owner = self
31	items.Set(itemKey(id), it)
32	chain.Emit("List", "id", strconv.Itoa(id), "seller", caller.String(), "price", strconv.FormatInt(priceUgnot, 10))
33}
34
35func UpdatePrice(cur realm, id int, priceUgnot int64) {
36	caller := requireUser(cur)
37	if priceUgnot <= 0 {
38		panic("col: price")
39	}
40	it := mustItem(id)
41	if !it.listed {
42		panic("col: not listed")
43	}
44	if it.seller != caller {
45		panic("col: not seller")
46	}
47	it.price = priceUgnot
48	items.Set(itemKey(id), it)
49	chain.Emit("List", "id", strconv.Itoa(id), "seller", caller.String(), "price", strconv.FormatInt(priceUgnot, 10))
50}
51
52func Cancel(cur realm, id int) {
53	caller := requireUser(cur)
54	it := mustItem(id)
55	if !it.listed {
56		panic("col: not listed")
57	}
58	if caller != it.seller {
59		panic("col: not seller")
60	}
61	grcTransfer(self, self, it.seller, id)
62	it.listed = false
63	it.owner = it.seller
64	it.seller = address("")
65	it.price = 0
66	items.Set(itemKey(id), it)
67	chain.Emit("Cancel", "id", strconv.Itoa(id))
68}
69
70func Buy(cur realm, id int) {
71	caller := requireUser(cur)
72	it := mustItem(id)
73	if !it.listed {
74		panic("col: not listed")
75	}
76	takeExact(it.price)
77	if caller == it.seller {
78		panic("col: self buy")
79	}
80	price := it.price
81	proto := fee.ProtocolFee(price, protocolBps)
82	royal := int64(0)
83	if royaltyBps > 0 {
84		royal = fee.ProtocolFee(price, int64(royaltyBps))
85	}
86	if proto+royal > price {
87		panic("col: fee")
88	}
89	sellerAmt := price - proto - royal
90	bk := banker.NewBanker(banker.BankerTypeRealmSend, cur)
91	if sellerAmt > 0 {
92		bk.SendCoins(self, it.seller, chain.Coins{{Denom: nativeDenom, Amount: sellerAmt}})
93	}
94	if royal > 0 {
95		bk.SendCoins(self, creator, chain.Coins{{Denom: nativeDenom, Amount: royal}})
96	}
97	if proto > 0 {
98		bk.SendCoins(self, factory.Address(), chain.Coins{{Denom: nativeDenom, Amount: proto}})
99	}
100	grcTransfer(self, self, caller, id)
101	it.listed = false
102	it.owner = caller
103	it.seller = address("")
104	it.price = 0
105	items.Set(itemKey(id), it)
106	chain.Emit("Buy", "id", strconv.Itoa(id), "buyer", caller.String(), "fee", strconv.FormatInt(proto, 10))
107}
108
109func Transfer(cur realm, to address, id int) {
110	caller := requireUser(cur)
111	if !to.IsValid() {
112		panic("col: invalid address")
113	}
114	if to == caller || to == self {
115		panic("col: invalid address")
116	}
117	it := mustItem(id)
118	if it.listed {
119		panic("col: listed")
120	}
121	if it.owner != caller {
122		panic("col: not owner")
123	}
124	grcTransfer(caller, caller, to, id)
125	it.owner = to
126	items.Set(itemKey(id), it)
127	chain.Emit("Transfer", "id", strconv.Itoa(id), "to", to.String())
128}
129
130func ProtocolBps() int64 {
131	return protocolBps
132}
133
134func grcTransfer(spender, from, to address, id int) {
135	err := ledger.TransferFrom(spender, from, to, itemTid(id))
136	if err != nil {
137		panic("col: transfer")
138	}
139}
140