token-tstx-v-0-0

;; token-tstx-v-0-0

(impl-trait .sip-010-trait-ft-standard-v-0-0.sip-010-trait)

(define-fungible-token tSTX)

(define-constant ERR_USER_ALREADY_MINTED (err u9000))

(define-constant MINT_AMOUNT u100000000000)

(define-map user-minted principal bool)

(define-read-only (get-name)
  (ok "Test STX Token")
)

(define-read-only (get-symbol)
  (ok "tSTX")
)

(define-read-only (get-decimals)
  (ok u6)
)

(define-read-only (get-balance (account principal))
  (ok (ft-get-balance tSTX account))
)

(define-read-only (get-balance-simple (account principal))
  (ft-get-balance tSTX account)
)

(define-read-only (get-total-supply)
  (ok (ft-get-supply tSTX))
)

(define-read-only (get-token-uri)
  (ok (some u""))
)

(define-read-only (get-user-minted (account principal))
  (ok (default-to false (map-get? user-minted account)))
)

(define-public (transfer (amount uint) (sender principal) (recipient principal) (memo (optional (buff 34))))
  (begin
    (asserts! (is-eq tx-sender sender) (err u1001))

    (match (ft-transfer? tSTX amount sender recipient)
      response (begin
        (print memo)
        (ok response)
      )
      error (err error)
    )
  )
)

(define-public (mint)
  (begin
    (asserts! (is-none (map-get? user-minted tx-sender)) ERR_USER_ALREADY_MINTED)
    (map-set user-minted tx-sender true)
    (ft-mint? tSTX MINT_AMOUNT tx-sender)
  )
)

(define-public (burn (amount uint))
  (begin
    (ft-burn? tSTX amount tx-sender)
  )
)

(mint)