sick-visit

;; Islamic Habit Tracker - Sick Visit
;; Tracker for sick visit

(define-map sick-visit-67-streak principal uint)

(define-public (log-sick-visit-67)
    (let ((current-streak (default-to u0 (map-get? sick-visit-67-streak tx-sender))))
        (map-set sick-visit-67-streak tx-sender (+ current-streak u1))
        (ok true)
    )
)

(define-read-only (get-sick-visit-67-streak (user principal))
    (default-to u0 (map-get? sick-visit-67-streak user))
)