neuralmint-stacks-horizon

;; Stacks Horizon - NeuralMint NFT Collection
(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)

(define-constant CONTRACT-OWNER tx-sender)
(define-constant ERR-NOT-AUTHORIZED (err u401))
(define-constant ERR-NOT-FOUND (err u404))
(define-constant ERR-SOLD-OUT (err u500))

(define-constant COLLECTION-NAME "Stacks Horizon")
(define-constant COLLECTION-SYMBOL "HORZ")
(define-constant MAX-SUPPLY u750)

(define-non-fungible-token horz uint)

(define-data-var last-token-id uint u0)
(define-data-var base-uri (string-ascii 200) "https://neuralmint.vercel.app/api/metadata/stacks-horizon/")

(define-read-only (get-last-token-id)
  (ok (var-get last-token-id)))

(define-read-only (get-token-uri (token-id uint))
  (ok (some (concat (var-get base-uri) (int-to-ascii token-id)))))

(define-read-only (get-owner (token-id uint))
  (ok (nft-get-owner? horz token-id)))

(define-public (transfer (token-id uint) (sender principal) (recipient principal))
  (begin
    (asserts! (is-eq tx-sender sender) ERR-NOT-AUTHORIZED)
    (nft-transfer? horz token-id sender recipient)))

(define-public (mint (recipient principal))
  (let ((token-id (+ (var-get last-token-id) u1)))
    (asserts! (<= token-id MAX-SUPPLY) ERR-SOLD-OUT)
    (try! (nft-mint? horz token-id recipient))
    (var-set last-token-id token-id)
    (ok token-id)))

(define-read-only (get-collection-info)
  {name: COLLECTION-NAME, symbol: COLLECTION-SYMBOL, max-supply: MAX-SUPPLY, minted: (var-get last-token-id)})