;; Mint Fungible Tokens via Dapparatus with max supply sent to minter
(define-constant ERR-UNAUTHORIZED u3)
(define-constant minter 'SP1TA84JTP4YRFWBK7PYKBA33H3YB60XP654RAR7M)
(define-fungible-token Obelisk u21000000)
(ft-mint? Obelisk u21000000 minter)

;; SIP-010 ;; 
(impl-trait 'SP3FBR2AGK5H9QBDH3EEN6DF8EK8JY7RX8QJ5SVTE.sip-10-ft-standard.ft-trait)

(define-public (transfer (amount uint) (sender principal) (recipient principal))
    (begin 
        (asserts! (is-eq from sender)
            (err ERR-UNAUTHORIZED))

        (ft-transfer? Obelisk amount sender recipient)
    )
)

(define-public (get-name)
    (ok "Obelisk"))

(define-public (get-symbol)
    (ok "OBL"))

(define-public (get-decimals)
    (ok u4))

(define-public (get-balance-of (user principal))
    (ok (ft-get-balance Obelisk user)))

(define-public (get-total-supply)
    (ok u21000000)

(define-public (get-token-uri)
    (ok none))