nova-achievement-badge
SP2KZ109PC2HRFH8T37ZD8VAQF2DK38RTXQSBK80TSource Code
;; nova-achievement-badge.clar
;; Simple badges
;; CLARITY VERSION: 2
(define-map badges
{user: principal, badge-id: uint}
bool
)
(define-public (award-badge (user principal) (badge-id uint))
(begin
;; Only admin
(map-set badges {user: user, badge-id: badge-id} true)
(ok true)
)
)
(define-read-only (has-badge (user principal) (badge-id uint))
(default-to false (map-get? badges {user: user, badge-id: badge-id}))
)
Functions (2)
| Function | Access | Args |
|---|---|---|
| award-badge | public | user: principal, badge-id: uint |
| has-badge | read-only | user: principal, badge-id: uint |