File tree Expand file tree Collapse file tree 1 file changed +16
-7
lines changed
examples/billboard/contracts Expand file tree Collapse file tree 1 file changed +16
-7
lines changed Original file line number Diff line number Diff line change 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
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)
You can’t perform that action at this time.
0 commit comments