vast-root

;; alcove-frame-85
(define-data-var points uint u0)
(define-data-var last-caller principal tx-sender)

(define-public (increment)
  (begin
    (var-set points (+ (var-get points) u6))
    (var-set last-caller tx-sender)
    (ok (var-get points))))

(define-public (reset)
  (begin
    (var-set points u0)
    (ok true)))

(define-read-only (get-value)
  (ok (var-get points)))

(define-read-only (get-last-caller)
  (ok (var-get last-caller)))