;; Membership Card
(define-map members {member-id: uint} {owner: principal, tier: (string-ascii 20), joined-at: uint, expires-at: uint, points: uint, active: bool})
(define-public (issue-membership (member-id uint) (tier (string-ascii 20)) (joined-at uint) (expires-at uint) (points uint))
(begin (map-set members {member-id: member-id} {owner: tx-sender, tier: tier, joined-at: joined-at, expires-at: expires-at, points: points, active: true}) (ok true)))
(define-read-only (get-member (member-id uint))
(map-get? members {member-id: member-id}))