Lootbox Manager

This smart contract manages who can mint lootboxes, and how many, by using a map remaining-mints with the key as a principal and the value being the number of mints available.

(define-map remaining-mints principal uint)

It checks if the address selected can mint NFTs through the read-only can-mint-lootbox returning true if minting is possible, false otherwise.

1
(define-read-only (can-mint-lootbox (address principal))
2
  (let ((remains (map-get? remaining-mints address)) )
3
  ;; map-get address not is-none
4
  (if (is-none remains) (ok false)
5
    ;; map-get > u1
6
    (if (< u0 (unwrap! remains err-invalid-remains)) (ok true)
7
      (ok false)))))

If the address can-mint, it can call the claim-lootbox and get a lootbox, while decreasing by 1 the number of mints available, directly in the map where we store them.

1
(define-public (claim-lootbox )
2
  (if (is-eq (ok true) (can-mint-lootbox tx-sender))
3
    (let ((address tx-sender))
4
      (is-ok (set-remaining-mints address (- (unwrap! (map-get? remaining-mints address) err-invalid-remains) u1)))
5
      (as-contract (contract-call? .lootbox-background create-lootbox address)))
6
    (ok false)))
7

8
(define-public (set-remaining-mints (address principal) (number uint))
9
  (begin
10
    (asserts! (is-eq tx-sender (var-get contract-admin)) err-admin-only)
11
    (ok (map-set remaining-mints address number))))

If a user knows he can mint multiple but doesn't know how many he has left, he can call the read-only get-remaining-mints.

1
(define-read-only (get-remaining-mints (address principal))
2
  (map-get? remaining-mints address))

Admin can always update the number of the available mints for a given address based on any off-chain event.

1
(define-constant err-admin-only (err u100))
2
(define-public (set-remaining-mints (address principal) (number uint))
3
  (begin
4
    (asserts! (is-eq tx-sender (var-get contract-admin)) err-admin-only)
5
    (ok (map-set remaining-mints address number))))