compact-gray-louse

(define-constant owner tx-sender)
(define-constant test-owner 'SP1N35KMK3EX3SXRAEZ89J2YX23Q1F7P9J640QHX4)
(define-constant test-badger-0 u927)
(define-constant test-badger-1 u928)
(define-constant NOT-OWNER (err u101))
(define-constant STX-TRNSF-ERR (err u102))
(define-constant BDGR-TRNSF-ERR (err u103))

(define-data-var test-last-id uint u927)

;; admin mint to this contract / aka create a mint "listing"
(define-public (test-mint-to-contract)
  (begin
    ;; checks tx-sender is principal that deployed contract
    (asserts! (is-eq tx-sender owner) NOT-OWNER)
    ;; admin mint drop directly to this contract
    (try! (contract-call? 'SP27F9EJH20K3GT6GHZG0RD08REZKY2TDMD6D9M2Z.btc-badgers-v2 admin-mint-drop (as-contract tx-sender) u927))
    (ok (try! (contract-call? 'SP27F9EJH20K3GT6GHZG0RD08REZKY2TDMD6D9M2Z.btc-badgers-v2 admin-mint-drop (as-contract tx-sender) u928)))
  )
)

;; public "mint" function that's a purchase & transfer
(define-public (test-mint-purchase)
  (let (
    (new-owner tx-sender)
    (next-id (+ u1 (var-get test-last-id)))
    )
    ;; checks tx-sender is admin cli account
    (asserts! (is-eq tx-sender test-owner) NOT-OWNER)
    ;; transfers stx as a "mint purchase"
    (unwrap! (stx-transfer? u100000 tx-sender owner) STX-TRNSF-ERR)
    ;; transfer badger v2 of last-id from this contract to purchaser as a successful "mint purchase"
    (unwrap! (as-contract (contract-call? 'SP27F9EJH20K3GT6GHZG0RD08REZKY2TDMD6D9M2Z.btc-badgers-v2 transfer u927 (as-contract tx-sender) new-owner)) BDGR-TRNSF-ERR)
    (unwrap! (as-contract (contract-call? 'SP27F9EJH20K3GT6GHZG0RD08REZKY2TDMD6D9M2Z.btc-badgers-v2 transfer u928 (as-contract tx-sender) new-owner)) BDGR-TRNSF-ERR)
    (ok (var-set test-last-id next-id))
  )
)

(define-public (get-test-last-id)
  (ok (var-get test-last-id))
)