Skip to content

Commit 2f5aada

Browse files
authored
Merge pull request #49 from reedrosenbluth/docs/billboard
Fix billboard example contract
2 parents d19855d + fc14354 commit 2f5aada

File tree

1 file changed

+16
-7
lines changed

1 file changed

+16
-7
lines changed
Lines changed: 16 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,9 @@
1-
;; billboard v3
1+
;; billboard contract
22

33
;; error consts
4-
(define-constant ERR_INVALID_STRING u0)
5-
(define-constant ERR_STX_TRANSFER u1)
4+
(define-constant ERR_STX_TRANSFER u0)
65

7-
;; data maps/vars
6+
;; data vars
87
(define-data-var billboard-message (string-utf8 500) u"Hello World!")
98
(define-data-var price uint u100)
109

@@ -18,9 +17,19 @@
1817
)
1918

2019
(define-public (set-message (message (string-utf8 500)))
21-
(let ((cur-price (var-get price)))
20+
(let ((cur-price (var-get price))
21+
(new-price (+ u10 cur-price)))
22+
23+
;; pay the contract
2224
(unwrap! (stx-transfer? cur-price tx-sender (as-contract tx-sender)) (err ERR_STX_TRANSFER))
23-
(var-set price (+ cur-price u10))
24-
(asserts! (var-set billboard-message message) (err ERR_INVALID_STRING))
25+
26+
;; update the billboard's message
27+
(var-set billboard-message message)
28+
29+
;; update the price of setting a message
30+
(var-set price new-price)
31+
32+
;; return the updated price
33+
(ok new-price)
2534
)
2635
)

0 commit comments

Comments
 (0)