Cerulean-badge-test

;; title: Cerulean Marketplace Completion Badge NFT
;; version: 0.01 
;; summary: Badge Completion for completed gigs
;; description: Upon completion of gig, an NFT is sent to artist & Client.

;; DEFINE CONSTANTS ;;
;;;;;;;;;;;;;;;;;;;;;;

;; Define Errors ;;
(define-constant ERR_NOT_FOUND (err u404))
(define-constant ERR_NOT_CLIENT (err u406))
(define-constant ERR_TRANSFER_NOT_ALLOWED (err u407))
(define-constant ERR_INVALID_REQUEST (err u408))

;; Define Contract Owner ;;
(define-constant contract-owner tx-sender)

;; Define NFT ;;
;;;;;;;;;;;;;;;;

(define-non-fungible-token client-badge uint)
(define-non-fungible-token creator-badge uint)

;; DEFINE DATA VARIABLES ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Define last-client-token-id ;;
(define-data-var last-client-token-id uint u0)

;; Define last-creator-token-id ;;
(define-data-var last-creator-token-id uint u0)

;; DEFINE MAPS ;;
;;;;;;;;;;;;;;;;;

;; Keep track of token URIs ;;
(define-map token-uri uint (string-ascii 256))

;; DEFINE READ-ONLY FUNCTIONS ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Get token URI ;;
(define-read-only (get-token-uri (token-id uint))
    (match (map-get? token-uri token-id)
        uri (ok uri) ;; if the value is (some uri), bind the value to uri and return (ok uri)
        (err u404)) ;; if the value is none, return (err err-uri-not-found)
)

;; Get last minted NFT (SIP-09 TRAIT) ;;
(define-read-only (get-last-client-token-id)
    (ok (var-get last-client-token-id))
)

;; Get last minted NFT (SIP-09 TRAIT) ;;
(define-read-only (get-last-creator-token-id)
    (ok (var-get last-creator-token-id))
)

;; Get the-owner of a client NFT (SIP-09 TRAIT) ;;
(define-read-only (get-clientbadge-owner (token-id uint))
    (ok (nft-get-owner? client-badge token-id))
)

;; Get the-owner of a creator NFT (SIP-09 TRAIT) ;;
(define-read-only (get-creatorbadge-owner (token-id uint))
    (ok (nft-get-owner? creator-badge token-id))
)


;; DEFINE PUBLIC FUNCTIONS ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Define Mint Function ;;

(define-public (mint-nft (gig-id uint) (client principal) (creator principal))
    (if (is-eq client contract-caller)
        (begin
            ;; Managing token ID for the client
            (let ((client-token-id (+ (var-get last-client-token-id) u1)))
                (var-set last-client-token-id client-token-id)

            ;; NFT minting function for the client
            (try! (nft-mint? client-badge client-token-id contract-caller))

            ;; Managing token ID for the creator
            (let ((creator-token-id (+ (var-get last-creator-token-id) u1)))
                (var-set last-creator-token-id creator-token-id)

            ;; NFT minting function for the creator
            (try! (nft-mint? creator-badge creator-token-id creator))

                (print "NFTs minted successfully for both client and creator.")
                (ok (tuple (client-token-id client-token-id) (creator-token-id creator-token-id)))
            )
            )
        )
        (err u406) ;; Not approved to mint
    )
)

;; Define Transfer Function ;;

(define-public (transfer (id uint) (sender principal) (recipient principal)) 
    ;; no transfers possible
    (err u407) 
    )