Cleaned up HTML UI (js points to local testnet, public testnet version to follow.)
[robmyers:artworld-ethereum.git] / contract / art_is.lll
1 {
2  ;; Constant values
3  ;; Price base (wei), doubled for each definition up to DEFS-COUNT
4  (def 'PRICE-BASE 10)
5  ;; Add to the index to get the price base exponent
6  (def 'PRICE-FACTOR-ADD 10)
7  ;; Number of definitions
8  (def 'DEFS-COUNT 12)
9  ;; Range of values for definitions
10  (def 'DEF-MIN 0x1)
11  (def 'DEF-MAX 0x0F0F0F0F)
12
13  ;; Storage locations
14  (def 'artist 0x10)
15  (def 'defs-base 0x100)
16  (def 'theorists-base 0x200)
17
18  ;; State
19  ;; Contract owner/payee
20  [[artist]] (caller)
21
22  (return
23    0x0
24    (lll
25      {
26      [action] (calldataload 0)
27       (when (= @action "set")
28         {
29          [index] (calldataload 32)
30          [definition] (calldataload 64)
31          [price] (exp PRICE-BASE (+ @index 1 PRICE-FACTOR-ADD))
32          ;; If the index is in range and the caller paid enough to set it
33          (when (&& (>= @definition DEF-MIN)
34                    (<= @definition DEF-MAX)
35                    (< @index DEFS-COUNT)
36                    (= (callvalue) @price))
37            {
38             ;; Update definition
39             [[(+ defs-base @index)]] @definition
40             [[(+ theorists-base @index)]] (caller)
41             (- (gas) 100) @@artist @price 0 0 0 0
42             })
43          })
44       }
45      0x0))
46  }