;; Sample
(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
(define-non-fungible-token sample uint)
;; Constants
(define-constant err-no-more-nfts u300)
(define-constant err-invalid-user u500)
(define-constant err-mint u100)
(define-constant CONTRACT-OWNER tx-sender)
(define-data-var commission-address principal 'SPTPHTX9A267V9CR8AY45Q6X38WANP1BA5PJ9J7H)
(define-data-var artist-address principal 'SP1BX0P4MZ5A3A5JCH0E10YNS170QFR2VQ6TT4NRH)
;; Internal variables
(define-data-var mint-limit uint u100)
(define-data-var commission uint u1000)
(define-data-var last-id uint u1)
(define-data-var mint-price uint u1000000)
(define-data-var mint-price-mia uint u20)
(define-data-var mint-price-nyc uint u10)
(define-data-var the-mint principal tx-sender)
(define-data-var ipfs-root (string-ascii 80) "ipfs://QmcqdRZ77vsxpHo4CK7jv4Qe3KkBHaP6Tbfvhme4ouMnZm/sample_")
(define-data-var ipfs-change-enabled bool true)
;;STX Minter
(define-private (mint-many (orders (list 10 bool)) (currency (string-ascii 3)))
(let (
(last-nft-id (var-get last-id))
(enabled (asserts! (<= last-nft-id (var-get mint-limit)) (err err-no-more-nfts)))
(id-reached (fold mint-many-iter orders last-nft-id))
(price (* (var-get mint-price) (- id-reached last-nft-id)))
(price-mia (* (var-get mint-price-mia) (- id-reached last-nft-id)))
(price-nyc (* (var-get mint-price-nyc) (- id-reached last-nft-id)))
(payout (- price (/ (* price (var-get commission)) u10000)))
(payout-mia (- price-mia (/ (* price-mia (var-get commission)) u10000)))
(payout-nyc (- price-mia (/ (* price-nyc (var-get commission)) u10000)))
(commission1 (/ (* price (/ (var-get commission) u2)) u10000))
(commission2 (/ (* price (/ (var-get commission) u2)) u10000))
(commission1-mia (/ (* price-mia (/ (var-get commission) u2)) u10000))
(commission2-mia (/ (* price-mia (/ (var-get commission) u2)) u10000))
(commission1-nyc (/ (* price-nyc (/ (var-get commission) u2)) u10000))
(commission2-nyc (/ (* price-nyc (/ (var-get commission) u2)) u10000))
)
(if (is-eq tx-sender CONTRACT-OWNER)
(var-set last-id id-reached)
(begin
(var-set last-id id-reached)
(if (is-eq currency "stx")
(begin
(print "mint in stx")
(try! (stx-transfer? commission1 tx-sender CONTRACT-OWNER))
(try! (stx-transfer? commission2 tx-sender (var-get commission-address)))
(try! (stx-transfer? payout tx-sender (var-get artist-address)))
)
(if (is-eq currency "mia")
(begin
(print "mint in mia")
(try! (contract-call? 'SP466FNC0P7JWTNM2R9T199QRZN1MYEDTAR0KP27.miamicoin-token transfer payout-mia tx-sender (var-get artist-address) (some 0x00)))
(try! (contract-call? 'SP466FNC0P7JWTNM2R9T199QRZN1MYEDTAR0KP27.miamicoin-token transfer commission1-mia tx-sender CONTRACT-OWNER (some 0x00)))
(try! (contract-call? 'SP466FNC0P7JWTNM2R9T199QRZN1MYEDTAR0KP27.miamicoin-token transfer commission2-mia tx-sender (var-get commission-address) (some 0x00)))
)
(begin
(print "mint in nyc")
(try! (contract-call? 'SP2H8PY27SEZ03MWRKS5XABZYQN17ETGQS3527SA5.newyorkcitycoin-token transfer payout-nyc tx-sender (var-get artist-address) (some 0x00)))
(try! (contract-call? 'SP2H8PY27SEZ03MWRKS5XABZYQN17ETGQS3527SA5.newyorkcitycoin-token transfer commission1-nyc tx-sender CONTRACT-OWNER (some 0x00)))
(try! (contract-call? 'SP2H8PY27SEZ03MWRKS5XABZYQN17ETGQS3527SA5.newyorkcitycoin-token transfer commission2-nyc tx-sender (var-get commission-address) (some 0x00)))
)
)
)
)
)
(ok id-reached)
)
)
(define-private (mint-many-iter (ignore bool) (next-id uint))
(if (<= next-id (var-get mint-limit))
(begin
(unwrap! (nft-mint? sample next-id tx-sender) next-id)
(+ next-id u1)
)
next-id
)
)
(define-public (mint (orders (list 10 bool)) (currency (string-ascii 3)))
(begin
(asserts! (or (is-eq contract-caller (var-get the-mint)) (is-eq tx-sender CONTRACT-OWNER)) (err err-invalid-user))
(mint-many orders currency)
)
)
(define-public (set-price (price uint))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) (err err-invalid-user))
(ok (var-set mint-price price))
)
)
(define-public (set-mia-price (price uint))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) (err err-invalid-user))
(ok (var-set mint-price-mia price))
)
)
(define-public (set-nyc-price (price uint))
(begin
(asserts! (is-eq tx-sender CONTRACT-OWNER) (err err-invalid-user))
(ok (var-set mint-price-nyc price))
)
)
(define-public (set-ipfs-root (new-ipfs-root (string-ascii 80)))
(begin
(asserts! (and (var-get ipfs-change-enabled) (is-eq tx-sender CONTRACT-OWNER)) (err err-invalid-user))
(ok (var-set ipfs-root new-ipfs-root))
)
)
(define-public (freeze-ipfs-root)
(begin
(asserts! (and (var-get ipfs-change-enabled) (is-eq tx-sender CONTRACT-OWNER)) (err err-invalid-user))
(ok (var-set ipfs-change-enabled false))
)
)
(define-public (set-mint-addr (mint-addr principal))
(begin
(asserts! (is-eq tx-sender (var-get the-mint)) (err err-invalid-user))
(ok (var-set the-mint mint-addr))
)
)
(define-public (transfer (token-id uint) (sender principal) (recipient principal))
(begin
(asserts! (is-eq tx-sender sender) (err err-invalid-user))
(nft-transfer? sample token-id sender recipient)
)
)
;; read-only functions
(define-read-only (get-owner (token-id uint))
(ok (nft-get-owner? sample token-id)))
(define-read-only (get-last-token-id)
(ok (- (var-get last-id) u1)))
(define-read-only (get-token-uri (token-id uint))
(if (< token-id u5001)
(ok (some (concat (concat (var-get ipfs-root) (unwrap-panic (contract-call? .conversion lookup token-id))) ".json")))
(ok (some (concat (concat (var-get ipfs-root) (unwrap-panic (contract-call? .conversion-v2 lookup (- token-id u5001)))) ".json")))
)
)