Customizable Wrapper

Explanations

All actions are stored in a main Smart Contract that the admin checks and performs operations based on what is stored in that moment on the queues.

Errors and constants

1
(define-constant err-invalid (err u300))
2
(define-constant err-too-many-pending-requests (err u200))
3
(define-constant err-not-owner (err u100))
4
(define-constant err-component-type-invalid (err u501))
5

6
(define-constant background-type "background-type")
7
(define-constant car-type "car-type")
8
(define-constant rim-type "rim-type")
9
(define-constant head-type "head-type")
10
(define-constant miami-type "miami")
11
(define-constant nyc-type "nyc")
12

13
(define-constant burn-address 'ST2CY5V39NHDPWSXMW9QDT3HC3GD6Q6XX4CFRK9AG)

Contract owner

(define-data-var contract-owner principal tx-sender)

Disassemble

1
;; eg. case
2
;;(contract-call? .degens mint-uri 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "uriNiceDegen")
3
;; ::set_tx_sender STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6
4
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract add-disassemble-work-in-queue u1)
5
;; ::set_tx_sender ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM
6
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract disassemble-finalize u1 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "DarkPurple" "BentleyBlack" "ClassyCream" "Miami_Syringe_Cigar")
7
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.cars get-token-uri u1)
8
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.cars get-owner u1)
9

10

11
;; Queue for work
12
(define-data-var disassemble-work-queue (list 100 {member: principal, token-id: uint}) (list))
13

14
(define-public (disassemble-finalize (token-id uint) (member principal) (background-name (string-ascii 30)) (car-name (string-ascii 30)) (rim-name (string-ascii 30)) (head-name (string-ascii 30)))
15
  (begin
16
    ;; Check that admin is calling this contract
17
    (asserts! (is-eq tx-sender (var-get contract-owner)) err-invalid)
18
    (asserts! (is-eq (some token-id) (get token-id (unwrap-panic (get-disassemble-head-work-queue)))) err-invalid)
19
    (unwrap-panic (contract-call? .backgrounds mint-name member background-name))
20
    (unwrap-panic (contract-call? .cars mint-name member car-name))
21
    (unwrap-panic (contract-call? .rims mint-name member rim-name))
22
    (unwrap-panic (contract-call? .heads mint-name member head-name))
23
    (pop-disassemble-work-queue)))
24

25
(define-read-only (get-disassemble-work-queue)
26
  ;; Get the actual work-queue so that we can process it
27
  (ok (var-get disassemble-work-queue)))
28

29
(define-read-only (get-disassemble-head-work-queue)
30
  ;; Get the first element in the work queue so that we can process it
31
  (ok (element-at (var-get disassemble-work-queue) u0)))
32

33
(define-public (prepare-disassemble (token-id uint))
34
  (add-disassemble-work-in-queue token-id))
35

36
(define-public (add-disassemble-work-in-queue (token-id uint))
37
  (ok
38
    (begin
39
      ;; check user is owner of nft
40
      (asserts!
41
        (is-eq (some tx-sender) (unwrap-panic (contract-call? .degens get-owner token-id)))
42
        err-not-owner)
43
      ;; transfer fees if not contract-owner
44
      (if (is-eq tx-sender (var-get contract-owner)) true (try! (fee-processing)))
45
      (let
46
        ((work-queue-value (var-get disassemble-work-queue))
47
          (value-to-add {token-id: token-id, member: tx-sender}))
48
        (var-set disassemble-work-queue
49
          (begin
50
            ;; check user has not already inserted this
51
            ;; if the id is already in the queue that means the NFT is burnt => throws err-not-owner when calling for get-owner
52
            ;; (asserts!
53
            ;;   (is-none (index-of work-queue-value value-to-add))
54
            ;;   err-invalid
55
            ;; )
56
            ;; check user is not abusing the queue
57
            (asserts!
58
              (< (len (filter is-disassemble-value-for-principal work-queue-value)) u5)
59
              err-too-many-pending-requests)
60
            (unwrap-panic (contract-call? .degens burn-token token-id))
61
            (append
62
              (unwrap-panic (as-max-len? work-queue-value u99))
63
              value-to-add)))))))
64

65

66
(define-private (pop-disassemble-work-queue)
67
  (ok (let
68
    ((work-queue-value (var-get disassemble-work-queue)))
69
    (var-set disassemble-work-queue
70
      ;; Remove first element in list
71
      (filter is-disassemble-first-element work-queue-value)))))
72

73

74
(define-private (is-disassemble-first-element (value {token-id: uint, member: principal}))
75
  (let
76
    ((first-element (element-at (var-get disassemble-work-queue) u0)))
77
    (not
78
      (and
79
        (is-some first-element)
80
        (is-eq value (unwrap-panic first-element))))))
81

82

83

84
;; Helper functions
85
(define-private (is-disassemble-value-for-principal (value {token-id: uint, member: principal}))
86
  (is-eq (get member value) tx-sender)

Assemble

1
;; eg. case
2
;; (contract-call? .backgrounds mint-name 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "DarkPurple")
3
;; (contract-call? .cars mint-name 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "BentleyBlack")
4
;; (contract-call? .rims mint-name 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "ClassyCream")
5
;; (contract-call? .heads mint-name 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "NYC_Antenna_BigSmile")
6
;; ::set_tx_sender STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6
7
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract add-assemble-work-in-queue u1 u1 u1 u1)
8
;; ::set_tx_sender ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM
9
;; (contract-call? .upgrade-contract assemble-finalize 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "uri-custom")
10

11
(define-data-var assemble-work-queue (list 100 {member: principal, background-id: uint, car-id: uint, rim-id: uint, head-id: uint}) (list))
12

13
(define-public (assemble-finalize (member principal) (metadata-uri (string-ascii 99)))
14
  (begin
15
    ;; Check that admin is calling this contract
16
    (asserts! (is-eq tx-sender (var-get contract-owner)) err-invalid)
17
    (unwrap-panic (contract-call? .degens mint-uri member metadata-uri))
18
    (pop-assemble-work-queue)))
19

20
(define-read-only (get-assemble-work-queue)
21
  ;; Get the actual work-queue so that we can process it
22
  (ok (var-get assemble-work-queue)))
23

24
(define-read-only (get-assemble-head-work-queue)
25
  ;; Get the first element in the work queue so that we can process it
26
  (ok (element-at (var-get assemble-work-queue) u0)))
27

28
(define-public (prepare-assemble (background-id uint) (car-id uint) (rim-id uint) (head-id uint))
29
  (add-assemble-work-in-queue background-id car-id rim-id head-id))
30

31
(define-public (add-assemble-work-in-queue (background-id uint) (car-id uint) (rim-id uint) (head-id uint))
32
  (ok
33
    (begin
34
      ;; check user is owner of nft
35
      (asserts!
36
        (and
37
          (is-eq (some tx-sender) (unwrap-panic (contract-call? .backgrounds get-owner background-id)))
38
          (and
39
            (is-eq (some tx-sender) (unwrap-panic (contract-call? .cars get-owner car-id)))
40
            (and
41
              (is-eq (some tx-sender) (unwrap-panic (contract-call? .rims get-owner rim-id)))
42
              (is-eq (some tx-sender) (unwrap-panic (contract-call? .heads get-owner head-id))))))
43
        err-not-owner)
44
      (if (is-eq tx-sender (var-get contract-owner)) true (try! (fee-processing)))
45
      (let ((work-queue-value (var-get assemble-work-queue))
46
          (value-to-add {
47
            member: tx-sender,
48
            background-id: background-id,
49
            car-id: car-id,
50
            rim-id: rim-id,
51
            head-id: head-id
52
          }))
53
        (var-set assemble-work-queue
54
          (begin
55
            ;; check user has not already inserted this
56
            ;; if the id is already in the queue that means the NFT is burnt => throws err-not-owner when calling for get-owner
57
            ;; (asserts!
58
            ;;   (is-none (index-of work-queue-value value-to-add))
59
            ;;   err-invalid
60
            ;; )
61
            ;; check user is not abusing the queue
62
            (asserts!
63
              (< (len (filter is-assemble-value-for-principal work-queue-value)) u5)
64
              err-too-many-pending-requests)
65
            (unwrap-panic (contract-call? .backgrounds burn-token background-id))
66
            (unwrap-panic (contract-call? .cars burn-token car-id))
67
            (unwrap-panic (contract-call? .rims burn-token rim-id))
68
            (unwrap-panic (contract-call? .heads burn-token head-id))
69
            (append
70
              (unwrap-panic (as-max-len? work-queue-value u99))
71
              value-to-add)))))))
72

73

74
(define-private (pop-assemble-work-queue)
75
  (ok
76
    (let
77
      ((work-queue-value (var-get assemble-work-queue)))
78
      (var-set assemble-work-queue
79
        ;; Remove first element in list
80
        (filter is-assemble-first-element work-queue-value)))))
81

82

83

84
(define-private (is-assemble-first-element (value {background-id: uint, car-id: uint, rim-id: uint, head-id: uint, member: principal}))
85
  (let
86
    ((first-element (element-at (var-get assemble-work-queue) u0)))
87
    (not
88
      (and
89
        (is-some first-element)
90
        (is-eq value (unwrap-panic first-element))))))
91

92
(define-private (is-assemble-value-for-principal (value {background-id: uint, car-id: uint, rim-id: uint, head-id: uint, member: principal}))
93
  (is-eq (get member value) tx-sender))

Swap

1
;; eg. case
2
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.degens mint-uri 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "nice-link")
3
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.rims mint-name 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "ClassyCream")
4
;; ::set_tx_sender STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6
5
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract add-swap-work-in-queue u1 u1 "rim-type")
6
;; ::set_tx_sender ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM
7
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract swap-finalize 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "new-nice-link" "ClassyDark" "rim-type")
8
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.rims get-token-uri u2)
9
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.degens get-token-uri u4)
10

11

12
(define-data-var swap-work-queue (list 100 {member: principal, degen-id: uint, component-id: uint, component-type: (string-ascii 30)}) (list))
13

14
(define-public (swap-finalize (degen-id uint) (member principal) (metadata-uri-dgn (string-ascii 99)) (component-name (string-ascii 30)) (component-type (string-ascii 30)))
15
  (begin
16
    (asserts! (is-eq tx-sender (var-get contract-owner)) err-invalid)
17
    (asserts! (is-eq (some degen-id) (get degen-id (unwrap-panic (get-swap-head-work-queue)))) err-invalid)
18
    (unwrap-panic (contract-call? .degens mint-uri member metadata-uri-dgn))
19
    (if (is-eq false
20
          (if (is-eq component-type background-type)
21
            (unwrap-panic (contract-call? .backgrounds mint-name member component-name))
22
            (if (is-eq component-type car-type)
23
              (unwrap-panic (contract-call? .cars mint-name member component-name))
24
              (if (is-eq component-type rim-type)
25
                (unwrap-panic (contract-call? .rims mint-name member component-name))
26
                (if (is-eq component-type head-type)
27
                  (unwrap-panic (contract-call? .heads mint-name member component-name))
28
                  false))))) ;; component-type invalid
29
      err-component-type-invalid
30
      ;; if any mint would have failed the function call would have been rolled back
31
      (pop-swap-work-queue))))
32

33
(define-read-only (get-swap-work-queue)
34
  ;; Get the actual work-queue so that we can process it
35
  (ok (var-get swap-work-queue)))
36

37
(define-read-only (get-swap-head-work-queue)
38
  ;; Get the first element in the work queue so that we can process it
39
  (ok (element-at (var-get swap-work-queue) u0)))
40

41
(define-public (prepare-swap  (degen-id uint) (component-id uint) (component-type (string-ascii 30)))
42
  (add-swap-work-in-queue degen-id component-id component-type))
43

44
(define-public (add-swap-work-in-queue (degen-id uint) (component-id uint) (component-type (string-ascii 30)))
45
  (ok
46
    (begin
47
      ;; check user is owner of nft
48
      (asserts!
49
        (and
50
          (is-eq (some tx-sender) (unwrap-panic (contract-call? .degens get-owner degen-id)))
51
          (is-eq (some tx-sender)
52
              (if (is-eq component-type background-type)
53
                (unwrap-panic (contract-call? .backgrounds get-owner component-id))
54
                (if (is-eq component-type car-type)
55
                  (unwrap-panic (contract-call? .cars get-owner component-id))
56
                  (if (is-eq component-type rim-type)
57
                    (unwrap-panic (contract-call? .rims get-owner component-id))
58
                    (if (is-eq component-type head-type)
59
                      (unwrap-panic (contract-call? .heads get-owner component-id))
60
                      none)))))) ;; component-type invalid
61
        err-not-owner)
62
      (if (is-eq tx-sender (var-get contract-owner)) true (try! (fee-processing)))
63
      (let
64
        ((work-queue-value (var-get swap-work-queue))
65
          (value-to-add {
66
            member: tx-sender,
67
            degen-id: degen-id,
68
            component-id: component-id,
69
            component-type: component-type
70
            }))
71
        (var-set swap-work-queue
72
          (begin
73
            ;; check user has not already inserted this
74
            ;; if the id is already in the queue that means the NFT is burnt => throws err-not-owner when calling for get-owner
75
            ;; (asserts!
76
            ;;   (is-none (index-of work-queue-value value-to-add))
77
            ;;   err-invalid
78
            ;; )
79
            ;; check user is not abusing the queue
80
            (asserts!
81
              (< (len (filter is-swap-value-for-principal work-queue-value)) u5)
82
              err-too-many-pending-requests)
83
            (unwrap-panic (contract-call? .degens burn-token degen-id))
84
            (if (is-eq component-type background-type)
85
              (unwrap-panic (contract-call? .backgrounds burn-token component-id))
86
              (if (is-eq component-type car-type)
87
                (unwrap-panic (contract-call? .cars burn-token component-id))
88
                (if (is-eq component-type rim-type)
89
                  (unwrap-panic (contract-call? .rims burn-token component-id))
90
                  (if (is-eq component-type head-type)
91
                    (unwrap-panic (contract-call? .heads burn-token component-id))
92
                    false))));; component-type invalid
93
            (append
94
              (unwrap-panic (as-max-len? work-queue-value u99))
95
              value-to-add)))))))
96

97

98
(define-private (pop-swap-work-queue)
99
  (ok
100
    (let
101
      ((work-queue-value (var-get swap-work-queue)))
102
      (var-set swap-work-queue
103
        ;; Remove first element in list
104
        (filter is-swap-first-element work-queue-value)))))
105

106

107
(define-private (is-swap-first-element (value {degen-id: uint, component-id: uint, component-type: (string-ascii 30), member: principal}))
108
  (let
109
    ((first-element (element-at (var-get swap-work-queue) u0)))
110
    (not
111
      (and
112
        (is-some first-element)
113
        (is-eq value (unwrap-panic first-element))))))
114

115

116
(define-private (is-swap-value-for-principal (value {degen-id: uint, component-id: uint, component-type: (string-ascii 30), member: principal}))
117
  (is-eq (get member value) tx-sender)
118
)

Merge

;; eg. case
;; ::set_tx_sender STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.miami-degens claim)
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.nyc-degens claim)
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract add-merge-work-in-queue u1 "miami")
;; ::set_tx_sender ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract get-merge-work-queue)
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.upgrade-contract merge-finalize 'STNHKEPYEPJ8ET55ZZ0M5A34J0R3N5FM2CMMMAZ6 "nice-new-nft")
;; (contract-call? 'ST1PQHQKV0RJXZFY1DGX8MNSNYVE3VGZJSRTPGZGM.degens get-token-uri u1)

(define-data-var merge-work-queue (list 100 {member: principal, degen-id: uint, degen-type: (string-ascii 30)}) (list))

(define-public (merge-finalize (degen-id uint) (member principal) (metadata-uri-dgn (string-ascii 99)))
  (begin
    (asserts! (is-eq tx-sender (var-get contract-owner)) err-invalid)
    (asserts! (is-eq (some degen-id) (get degen-id (unwrap-panic (get-merge-head-work-queue)))) err-invalid)
    (unwrap-panic (contract-call? .degens mint-uri member metadata-uri-dgn))
    (pop-merge-work-queue)))

(define-read-only (get-merge-work-queue)
  ;; Get the actual work-queue so that we can process it
  (ok (var-get merge-work-queue)))

(define-read-only (get-merge-head-work-queue)
  ;; Get the first element in the work queue so that we can process it
  (ok (element-at (var-get merge-work-queue) u0)))

(define-public (prepare-upgrade (degen-id uint) (degen-type (string-ascii 30)))
  (add-merge-work-in-queue degen-id degen-type))

(define-public (add-merge-work-in-queue (degen-id uint) (degen-type (string-ascii 30)))
  (ok
    (begin
      ;; check user is owner of old Degen nft
      (asserts!
        (is-eq (some tx-sender)
          (if (is-eq degen-type miami-type)
            (unwrap-panic (contract-call? .miami-degens get-owner degen-id))
            (if (is-eq degen-type nyc-type)
              (unwrap-panic (contract-call? .nyc-degens get-owner degen-id))
              none)))
        err-not-owner)
      (if (is-eq tx-sender (var-get contract-owner)) true (try! (fee-processing)))
      (let ((work-queue-value (var-get merge-work-queue))
        (value-to-add {
          member: tx-sender,
          degen-id: degen-id,
          degen-type: degen-type
          }))
        (var-set merge-work-queue
          (begin
            ;; already insured by the fact that the nft is burned
            ;; ;; check user has not already inserted this
            ;; (asserts!
            ;;   (is-none (index-of work-queue-value value-to-add))
            ;;   err-invalid
            ;; )
            ;; check user is not abusing the queue
            (asserts!
              (< (len (filter is-merge-value-for-principal work-queue-value)) u5)
              err-too-many-pending-requests)
            ;; (unwrap-panic (contract-call? .old-degens burn-token degen-id))
            (some (burn-old-nft degen-id degen-type))
            (append
              (unwrap-panic (as-max-len? work-queue-value u99))
              value-to-add)))))))


(define-private (pop-merge-work-queue)
  (ok
    (let
      ((work-queue-value (var-get merge-work-queue)))
      (var-set merge-work-queue
        ;; Remove first element in list
        (filter is-merge-first-element work-queue-value)))))


(define-private (burn-old-nft (degen-id uint) (degen-type (string-ascii 30)))
  (if (is-eq
        false
        (if (is-eq degen-type miami-type)
          (unwrap-panic (contract-call? .miami-degens transfer degen-id tx-sender burn-address))
          (if (is-eq degen-type nyc-type)
            (unwrap-panic (contract-call? .nyc-degens transfer degen-id tx-sender burn-address))
            false)))
    err-component-type-invalid
    (ok (some degen-id))))


(define-private (is-merge-first-element (value {degen-id: uint, degen-type: (string-ascii 30), member: principal}))
  (let
    ((first-element (element-at (var-get merge-work-queue) u0)))
    (not
      (and
        (is-some first-element)
        (is-eq value (unwrap-panic first-element))))))


(define-private (is-merge-value-for-principal (value {degen-id: uint, degen-type: (string-ascii 30), member: principal}))
  (is-eq (get member value) tx-sender))

Utils

Transfer fee function

;; fees: 0.69 stx
(define-private (fee-processing)
  (stx-transfer? u690000 tx-sender (var-get contract-owner)))