;; This contract implements the SIP-009 community-standard Non-Fungible Token trait
(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
;; Define the NFT with the new name
(define-non-fungible-token RamuBTC uint)
;; Keep track of the last minted token ID
(define-data-var last-token-id uint u0)
;; Define constants
(define-constant CONTRACT_OWNER tx-sender)
(define-constant COLLECTION_LIMIT u1000) ;; Limit to series of 1000
(define-constant ERR_OWNER_ONLY (err u100))
(define-constant ERR_NOT_TOKEN_OWNER (err u101))
(define-constant ERR_SOLD_OUT (err u300))
(define-data-var base-uri (string-ascii 80) "https://your.api.com/path/to/collection/{id}")
;; SIP-009 function: Get the last minted token ID
(define-read-only (get-last-token-id)
(ok (var-get last-token-id))
)
;; SIP-009 function: Get link where token metadata is hosted
(define-read-only (get-token-uri (token-id uint))
(ok (some (var-get base-uri)))
)
;; SIP-009 function: Get the owner of a given token
(define-read-only (get-owner (token-id uint))
(ok (nft-get-owner? RamuBTC token-id))
)
;; SIP-009 function: Transfer NFT token to another owner
(define-public (transfer
(token-id uint)
(sender principal)
(recipient principal))
(begin
;; #[filter(sender)]
(asserts! (is-eq tx-sender sender) ERR_NOT_TOKEN_OWNER)
(nft-transfer? RamuBTC token-id sender recipient)
)
)
;; Mint a new NFT
(define-public (mint (recipient principal))
;; Create the new token ID by incrementing the last minted ID
(let ((token-id (+ (var-get last-token-id) u1)))
;; Ensure the collection stays within the limit
(asserts! (< (var-get last-token-id) COLLECTION_LIMIT) ERR_SOLD_OUT)
;; Only the contract owner can mint
(asserts! (is-eq tx-sender CONTRACT_OWNER) ERR_OWNER_ONLY)
;; Mint the NFT and send it to the given recipient
(try! (nft-mint? RamuBTC token-id recipient))
;; Update the last minted token ID
(var-set last-token-id token-id)
;; Return a success status and the newly minted NFT ID
(ok token-id)
)
)