;; pox monks
;; nativenfts.btc
(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
;; (impl-trait .nft-trait.nft-trait)
;; Non Fungible Token, using sip-009
(define-non-fungible-token pox-monks uint)
;; Constants
(define-constant err-no-more-nfts u300)
(define-constant err-invalid-user u500)
(define-constant mint-limit u224)
(define-constant commission-address tx-sender)
;; Internal variables
(define-data-var last-id uint u0)
(define-data-var commission uint u500)
(define-data-var total-price uint u35000000)
(define-data-var artist-address principal 'SP11HD7QYN65VPZVRS1MM710ZHMKSFZDHVP1XZHW6)
(define-data-var ipfs-root (string-ascii 80) "ipfs://ipfs/QmeKMoyZamXnowrTkUgktGZ6V4BDddUA7oFmeWYbA5tHcy/")
;; private functions
(define-private (mint (new-owner principal))
(let ((next-id (+ u1 (var-get last-id)))
(count (var-get last-id)))
(asserts! (< count mint-limit) (err err-no-more-nfts))
(let
((total-commission (/ (* (var-get total-price) (var-get commission)) u10000))
(total-artist (- (var-get total-price) total-commission)))
(if (is-eq tx-sender (var-get artist-address))
(mint-helper new-owner next-id)
(if (is-eq tx-sender commission-address)
(begin
(mint-helper new-owner next-id))
(begin
(try! (stx-transfer? total-commission tx-sender commission-address))
(try! (stx-transfer? total-artist tx-sender (var-get artist-address)))
(mint-helper new-owner next-id))))
)
)
)
(define-private (mint-helper (new-owner principal) (next-id uint))
(match (nft-mint? pox-monks next-id new-owner)
success
(begin
(var-set last-id next-id)
(ok true))
error (err error)))
;; public functions
(define-public (claim)
(mint tx-sender))
(define-public (set-artist-address (address principal))
(if (is-eq tx-sender commission-address)
(begin
(var-set artist-address address)
(ok true)
)
(err err-invalid-user)))
(define-public (set-price (price uint))
(if (is-eq tx-sender commission-address)
(begin
(var-set total-price price)
(ok true)
)
(err err-invalid-user)))
(define-public (set-ipfs-root (new-ipfs-root (string-ascii 80)))
(if (is-eq tx-sender commission-address)
(begin
(var-set ipfs-root new-ipfs-root)
(ok true)
)
(err err-invalid-user)))
(define-public (transfer (token-id uint) (sender principal) (recipient principal))
(if (and
(is-eq tx-sender sender))
(match (nft-transfer? pox-monks token-id sender recipient)
success (ok success)
error (err error))
(err err-invalid-user)))
;; read-only functions
(define-read-only (get-owner (token-id uint))
(ok (nft-get-owner? pox-monks 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 (concat (var-get ipfs-root) (unwrap-panic (lookup token-id))) ".json"))))
(define-constant LOOKUPS (list
"0" "36" "193" "23" "189" "115" "99" "172" "4" "210" "220" "143" "162" "121" "25" "41" "187" "103" "123" "13" "223" "169" "62" "80" "139" "160" "108" "120" "149" "78" "7" "163" "142" "96" "146" "128" "105" "54" "155" "102" "91" "10" "66" "157" "152" "207" "87" "181" "141" "51" "133" "176" "114" "110" "168" "179" "24" "129" "69" "19" "186" "29" "217" "9" "158" "196" "204" "101" "57" "100" "211" "79" "1" "161" "86" "167" "6" "134" "68" "164" "46" "47" "177" "93" "22" "8" "67" "195" "218" "171" "27" "118" "90" "183" "56" "138" "219" "147" "94" "112" "85" "53" "58" "72" "84" "30" "151" "125" "2" "34" "70" "124" "213" "208" "159" "132" "50" "20" "201" "81" "166" "17" "82" "127" "117" "21" "165" "28" "39" "173" "11" "190" "126" "122" "153" "221" "194" "145" "106" "65" "18" "95" "180" "97" "3" "199" "206" "200" "154" "75" "40" "170" "73" "182" "191" "214" "37" "33" "185" "215" "148" "98" "144" "135" "44" "48" "35" "64" "107" "89" "15" "224" "49" "59" "92" "38" "174" "198" "26" "32" "74" "77" "222" "55" "60" "209" "212" "140" "109" "113" "188" "5" "178" "43" "175" "119" "205" "12" "111" "131" "216" "150" "156" "42" "116" "136" "137" "88" "31" "192" "197" "61" "71" "14" "76" "45" "63" "16" "52" "184" "83" "202" "104" "203" "130"
))
(define-private (lookup (uid uint))
(ok (unwrap-panic (element-at LOOKUPS uid)))
)