black-seed

;; Halal Asset Registry - Black Seed
;; Registry for black seed

(define-data-var total-black-seed-8 uint u0)
(define-map black-seed-8-registry principal uint)

(define-public (register-black-seed-8 (amount uint))
    (begin
        (map-set black-seed-8-registry tx-sender amount)
        (var-set total-black-seed-8 (+ (var-get total-black-seed-8) amount))
        (ok true)
    )
)

(define-read-only (get-black-seed-8-amount (owner principal))
    (default-to u0 (map-get? black-seed-8-registry owner))
)