nft-marketplace-v2

;; NFT Marketplace Contract v2
;; Allows listing, buying, and selling NFTs
;; Fees: List = 0.0013 STX, Buy = 0.0013 STX (included in price)
;; Contract Owner: SP31G2FZ5JN87BATZMP4ZRYE5F7WZQDNEXJ7G7X97

;; Constants
(define-constant CONTRACT_OWNER tx-sender)
(define-constant LIST_FEE u1300) ;; 0.0013 STX in microSTX
(define-constant SALE_FEE u1300) ;; 0.0013 STX in microSTX (deducted from sale price)

;; Error codes
(define-constant ERR_NOT_OWNER (err u200))
(define-constant ERR_NOT_LISTED (err u201))
(define-constant ERR_ALREADY_LISTED (err u202))
(define-constant ERR_INSUFFICIENT_FUNDS (err u203))
(define-constant ERR_CANNOT_BUY_OWN (err u204))
(define-constant ERR_PAYMENT_FAILED (err u205))
(define-constant ERR_TRANSFER_FAILED (err u206))
(define-constant ERR_INVALID_PRICE (err u207))
(define-constant ERR_NOT_TOKEN_OWNER (err u208))

;; Data maps
(define-map listings
  uint
  {
    seller: principal,
    price: uint
  }
)

;; Track total fees collected
(define-data-var total-fees-collected uint u0)
(define-data-var total-sales uint u0)
(define-data-var total-listings uint u0)

;; Read-only functions

(define-read-only (get-listing (token-id uint))
  (map-get? listings token-id))

(define-read-only (is-listed (token-id uint))
  (is-some (map-get? listings token-id)))

(define-read-only (get-list-fee)
  LIST_FEE)

(define-read-only (get-sale-fee)
  SALE_FEE)

(define-read-only (get-total-fees-collected)
  (var-get total-fees-collected))

(define-read-only (get-total-sales)
  (var-get total-sales))

(define-read-only (get-total-listings)
  (var-get total-listings))

;; Public functions

;; List an NFT for sale
(define-public (list-nft (token-id uint) (price uint))
  (let
    (
      (seller tx-sender)
    )
    (asserts! (> price SALE_FEE) ERR_INVALID_PRICE)
    (asserts! (not (is-listed token-id)) ERR_ALREADY_LISTED)
    (try! (stx-transfer? LIST_FEE seller CONTRACT_OWNER))
    ;; Direct contract call with full principal
    (try! (contract-call? 'SP31G2FZ5JN87BATZMP4ZRYE5F7WZQDNEXJ7G7X97.simple-nft-v4 transfer token-id seller (as-contract tx-sender)))
    (map-set listings token-id {seller: seller, price: price})
    (var-set total-fees-collected (+ (var-get total-fees-collected) LIST_FEE))
    (var-set total-listings (+ (var-get total-listings) u1))
    (ok token-id)
  )
)

;; Buy a listed NFT
(define-public (buy-nft (token-id uint))
  (let
    (
      (buyer tx-sender)
      (listing (unwrap! (map-get? listings token-id) ERR_NOT_LISTED))
      (seller (get seller listing))
      (price (get price listing))
      (seller-amount (- price SALE_FEE))
    )
    (asserts! (not (is-eq buyer seller)) ERR_CANNOT_BUY_OWN)
    (try! (stx-transfer? SALE_FEE buyer CONTRACT_OWNER))
    (try! (stx-transfer? seller-amount buyer seller))
    ;; Direct contract call with full principal
    (try! (as-contract (contract-call? 'SP31G2FZ5JN87BATZMP4ZRYE5F7WZQDNEXJ7G7X97.simple-nft-v4 transfer token-id tx-sender buyer)))
    (map-delete listings token-id)
    (var-set total-fees-collected (+ (var-get total-fees-collected) SALE_FEE))
    (var-set total-sales (+ (var-get total-sales) u1))
    (ok token-id)
  )
)

;; Cancel a listing
(define-public (cancel-listing (token-id uint))
  (let
    (
      (listing (unwrap! (map-get? listings token-id) ERR_NOT_LISTED))
      (seller (get seller listing))
    )
    (asserts! (is-eq tx-sender seller) ERR_NOT_OWNER)
    ;; Direct contract call with full principal
    (try! (as-contract (contract-call? 'SP31G2FZ5JN87BATZMP4ZRYE5F7WZQDNEXJ7G7X97.simple-nft-v4 transfer token-id tx-sender seller)))
    (map-delete listings token-id)
    (ok token-id)
  )
)

;; Update listing price
(define-public (update-price (token-id uint) (new-price uint))
  (let
    (
      (listing (unwrap! (map-get? listings token-id) ERR_NOT_LISTED))
      (seller (get seller listing))
    )
    (asserts! (is-eq tx-sender seller) ERR_NOT_OWNER)
    (asserts! (> new-price SALE_FEE) ERR_INVALID_PRICE)
    (map-set listings token-id {seller: seller, price: new-price})
    (ok token-id)
  )
)