/
swapmeet-guests.clar
210 lines (176 loc) · 9.23 KB
/
swapmeet-guests.clar
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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
;; swapmeet-guests
;; contractType: continuous
(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
;;(impl-trait .nft-trait.nft-trait)
(define-non-fungible-token swapmeet-guests uint)
(define-constant DEPLOYER tx-sender)
(define-constant ERR-NOT-AUTHORIZED u101)
(define-constant ERR-INVALID-USER u102)
(define-constant ERR-LISTING u103)
(define-constant ERR-WRONG-COMMISSION u104)
(define-constant ERR-NOT-FOUND u105)
(define-constant ERR-NFT-MINT u106)
(define-constant ERR-CONTRACT-LOCKED u107)
(define-constant ERR-METADATA-FROZEN u111)
(define-constant ERR-INVALID-PERCENTAGE u114)
(define-data-var last-id uint u0)
(define-data-var artist-address principal 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6)
(define-data-var locked bool false)
(define-data-var metadata-frozen bool false)
(define-map cids uint (string-ascii 64))
(define-public (lock-contract)
(begin
(asserts! (or (is-eq tx-sender (var-get artist-address)) (is-eq tx-sender DEPLOYER)) (err ERR-NOT-AUTHORIZED))
(var-set locked true)
(ok true)))
(define-public (set-artist-address (address principal))
(begin
(asserts! (or (is-eq tx-sender (var-get artist-address)) (is-eq tx-sender DEPLOYER)) (err ERR-INVALID-USER))
(ok (var-set artist-address address))))
(define-public (burn (token-id uint))
(begin
(asserts! (is-owner token-id tx-sender) (err ERR-NOT-AUTHORIZED))
(nft-burn? swapmeet-guests token-id tx-sender)))
(define-public (set-token-uri (hash (string-ascii 64)) (token-id uint))
(begin
(asserts! (or (is-eq tx-sender (var-get artist-address)) (is-eq tx-sender DEPLOYER)) (err ERR-NOT-AUTHORIZED))
(asserts! (not (var-get metadata-frozen)) (err ERR-METADATA-FROZEN))
(map-set cids token-id hash)
(ok true)))
(define-public (freeze-metadata)
(begin
(asserts! (or (is-eq tx-sender (var-get artist-address)) (is-eq tx-sender DEPLOYER)) (err ERR-NOT-AUTHORIZED))
(var-set metadata-frozen true)
(ok true)))
(define-private (is-owner (token-id uint) (user principal))
(is-eq user (unwrap! (nft-get-owner? swapmeet-guests token-id) false)))
(define-public (transfer (token-id uint) (sender principal) (recipient principal))
(begin
(asserts! (is-eq tx-sender sender) (err ERR-INVALID-USER))
(nft-transfer? swapmeet-guests token-id sender recipient)))
(define-read-only (get-owner (token-id uint))
(ok (nft-get-owner? swapmeet-guests token-id)))
(define-read-only (get-last-token-id)
(ok (var-get last-id)))
(define-read-only (get-token-uri (token-id uint))
(ok (some (concat "ipfs://" (unwrap-panic (map-get? cids token-id))))))
(define-public (claim (uris (list 25 (string-ascii 64))))
(mint-many uris))
(define-private (mint-many (uris (list 25 (string-ascii 64))))
(let
(
(token-id (+ (var-get last-id) u1))
(art-addr (var-get artist-address))
(id-reached (fold mint-many-iter uris token-id))
(current-balance (get-balance tx-sender))
)
(asserts! (or (is-eq tx-sender DEPLOYER) (is-eq tx-sender art-addr)) (err ERR-NOT-AUTHORIZED))
(asserts! (is-eq (var-get locked) false) (err ERR-CONTRACT-LOCKED))
(var-set last-id (- id-reached u1))
(map-set token-count tx-sender (+ current-balance (- id-reached token-id)))
(ok id-reached)))
(define-private (mint-many-iter (hash (string-ascii 64)) (next-id uint))
(begin
(unwrap! (nft-mint? swapmeet-guests next-id tx-sender) next-id)
(map-set cids next-id hash)
(+ next-id u1)))
;; NON-CUSTODIAL FUNCTIONS START
(use-trait commission-trait 'SP3D6PV2ACBPEKYJTCMH7HEN02KP87QSP8KTEH335.commission-trait.commission)
(define-map token-count principal uint)
(define-map market uint {price: uint, commission: principal, royalty: uint})
(define-read-only (get-balance (account principal))
(default-to u0
(map-get? token-count account)))
(define-private (trnsfr (id uint) (sender principal) (recipient principal))
(match (nft-transfer? swapmeet-guests id sender recipient)
success
(let
((sender-balance (get-balance sender))
(recipient-balance (get-balance recipient)))
(map-set token-count
sender
(- sender-balance u1))
(map-set token-count
recipient
(+ recipient-balance u1))
(ok success))
error (err error)))
(define-private (is-sender-owner (id uint))
(let ((owner (unwrap! (nft-get-owner? swapmeet-guests id) false)))
(or (is-eq tx-sender owner) (is-eq contract-caller owner))))
(define-read-only (get-listing-in-ustx (id uint))
(map-get? market id))
(define-public (list-in-ustx (id uint) (price uint) (comm-trait <commission-trait>))
(let ((listing {price: price, commission: (contract-of comm-trait), royalty: (var-get royalty-percent)}))
(asserts! (is-sender-owner id) (err ERR-NOT-AUTHORIZED))
(map-set market id listing)
(print (merge listing {a: "list-in-ustx", id: id}))
(ok true)))
(define-public (unlist-in-ustx (id uint))
(begin
(asserts! (is-sender-owner id) (err ERR-NOT-AUTHORIZED))
(map-delete market id)
(print {a: "unlist-in-ustx", id: id})
(ok true)))
(define-public (buy-in-ustx (id uint) (comm-trait <commission-trait>))
(let ((owner (unwrap! (nft-get-owner? swapmeet-guests id) (err ERR-NOT-FOUND)))
(listing (unwrap! (map-get? market id) (err ERR-LISTING)))
(price (get price listing))
(royalty (get royalty listing)))
(asserts! (is-eq (contract-of comm-trait) (get commission listing)) (err ERR-WRONG-COMMISSION))
(try! (stx-transfer? price tx-sender owner))
(try! (pay-royalty price royalty))
(try! (contract-call? comm-trait pay id price))
(try! (trnsfr id owner tx-sender))
(map-delete market id)
(print {a: "buy-in-ustx", id: id})
(ok true)))
(define-data-var royalty-percent uint u500)
(define-read-only (get-royalty-percent)
(ok (var-get royalty-percent)))
(define-public (set-royalty-percent (royalty uint))
(begin
(asserts! (or (is-eq tx-sender (var-get artist-address)) (is-eq tx-sender DEPLOYER)) (err ERR-INVALID-USER))
(asserts! (and (>= royalty u0) (<= royalty u1000)) (err ERR-INVALID-PERCENTAGE))
(ok (var-set royalty-percent royalty))))
(define-private (pay-royalty (price uint) (royalty uint))
(let (
(royalty-amount (/ (* price royalty) u10000))
)
(if (> royalty-amount u0)
(try! (stx-transfer? royalty-amount tx-sender (var-get artist-address)))
(print false)
)
(ok true)))
;; NON-CUSTODIAL FUNCTIONS END
(try! (nft-mint? swapmeet-guests u1 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u1 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/1.json")
(try! (nft-mint? swapmeet-guests u2 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u2 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/2.json")
(try! (nft-mint? swapmeet-guests u3 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u3 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/3.json")
(try! (nft-mint? swapmeet-guests u4 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u4 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/4.json")
(try! (nft-mint? swapmeet-guests u5 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u5 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/5.json")
(try! (nft-mint? swapmeet-guests u6 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u6 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/6.json")
(try! (nft-mint? swapmeet-guests u7 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u7 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/7.json")
(try! (nft-mint? swapmeet-guests u8 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u8 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/8.json")
(try! (nft-mint? swapmeet-guests u9 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u9 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/9.json")
(try! (nft-mint? swapmeet-guests u10 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6))
(map-set token-count 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6 (+ (get-balance 'SP3SC5PSKQM9ABTYPNYDV1J7SBGHA08VRW1DKTJK6) u1))
(map-set cids u10 "QmcpPB1s12dEfasyfr2w1BohvtrbAu7fYGihwE78c1GQmR/json/10.json")
(var-set last-id u10)