| SC Arguments: [Name:SC_ACTION Type:uint64 Value:'0' Name:SC_ID Type:hash Value:'c140bf05a20fc91e0f511528e534a1cd8d7e457197e0391ec723783df0c8bdc9' Name:code Type:string Value:'// Grokked
Function InitializePrivate() Uint64
10 IF EXISTS("owner") == 0 THEN GOTO 30
20 RETURN 1
30 STORE("owner", SIGNER())
35 STORE("start", 0)
36 STORE("last", 0)
37 STORE("sign", 1)
40 STORE("v", 2)
60 RETURN 0
End Function
Function own() Uint64
1 IF EXISTS("sign") THEN GOTO 3
2 STORE("sign", 1)
3 IF SIGNER() == LOAD("owner") THEN GOTO 20
4 IF LOAD("sign") < 2 THEN GOTO 15
5 DIM i as Uint64
6 LET i = 1
7 IF EXISTS("si"+i) == 0 THEN GOTO 9
8 IF SIGNER() == LOAD("si"+i) THEN GOTO 20
9 LET i = i+1
10 IF i <= 9 THEN GOTO 7
15 RETURN 0
20 RETURN 1
End Function
Function AddS(new String) Uint64
1 IF IS_ADDRESS_VALID(ADDRESS_RAW(new)) == 0 THEN GOTO 3
2 IF SIGNER() == LOAD("owner") && LOAD("sign") < 10 THEN GOTO 4
3 RETURN 1
4 DIM i as Uint64
5 LET i = i+1
6 IF i > 9 THEN GOTO 3
7 IF EXISTS("si"+i) THEN GOTO 5
8 STORE("sign", LOAD("sign")+1)
9 STORE("si"+i, ADDRESS_RAW(new))
10 RETURN 0
End Function
Function RmvS(rm Uint64) Uint64
1 IF SIGNER() == LOAD("owner") THEN GOTO 3
2 RETURN 1
3 IF EXISTS("si"+rm) == 0 THEN GOTO 6
4 STORE("sign", LOAD("sign")-1)
5 DELETE("si"+rm)
6 RETURN 0
End Function
Function Set(amt Uint64, dur Uint64) Uint64
5 IF LOAD("start") != 0 THEN GOTO 20
6 IF dur < 300 || dur > 259200 THEN GOTO 20
7 IF DEROVALUE() < amt/2 THEN GOTO 20
10 IF own() THEN GOTO 30
20 RETURN 1
30 STORE("start", 1)
40 STORE("duration", dur)
50 STORE("amount", amt)
54 STORE("joined", 0)
55 STORE("pot", DEROVALUE())
56 STORE("in", 0)
57 STORE("last", BLOCK_TIMESTAMP())
100 RETURN 0
End Function
Function Cancel() Uint64
10 IF own() == 0 THEN GOTO 40
20 IF LOAD("start") != 1 THEN GOTO 40
30 IF LOAD("in") == 0 THEN GOTO 50
40 RETURN 1
50 SEND_DERO_TO_ADDRESS(LOAD("owner"), LOAD("pot"))
60 STORE("start", 0)
70 RETURN 0
End Function
Function Join() Uint64
5 IF LOAD("start") != 1 THEN GOTO 40
6 IF LOAD("in") >= 30 THEN GOTO 40
20 IF DEROVALUE() < LOAD("amount") THEN GOTO 40
30 IF EXISTS(HEX(SIGNER())) == 0 THEN GOTO 50
40 RETURN 1
50 STORE(HEX(SIGNER()), LOAD("joined"))
65 STORE(LOAD("joined"), SIGNER())
70 STORE("joined", LOAD("joined")+1)
75 STORE("in", LOAD("in")+1)
80 STORE("pot", LOAD("pot")+DEROVALUE())
100 RETURN 0
End Function
Function Start() Uint64
5 IF LOAD("start") != 1 THEN GOTO 20
6 IF LOAD("in") < 3 THEN GOTO 20
10 IF own() THEN GOTO 30
20 RETURN 1
30 STORE("start", 2)
40 STORE("grok", 99)
60 grok()
100 RETURN 0
End Function
Function grok() Uint64
10 DIM new as Uint64
20 LET new = 0+RANDOM(LOAD("joined"))
30 IF LOAD("grok") == new THEN GOTO 20
40 IF EXISTS(new) == 0 THEN GOTO 20
60 STORE("grok", new)
70 STORE("last", BLOCK_TIMESTAMP())
100 RETURN 0
End Function
Function setDur() Uint64
10 IF LOAD("duration") <= 300 THEN GOTO 30
20 STORE("duration", 90*LOAD("duration")/100)
30 RETURN 0
End Function
Function Pass() Uint64
5 IF LOAD("start") != 2 THEN GOTO 30
6 IF LOAD("in") == 1 THEN GOTO 30
10 IF LOAD(HEX(SIGNER())) != LOAD("grok") THEN GOTO 30
20 IF BLOCK_TIMESTAMP() < LOAD("last")+LOAD("duration") THEN GOTO 40
30 RETURN 1
40 setDur()
50 grok()
100 RETURN 0
End Function
Function Grokked() Uint64
5 IF LOAD("start") != 2 THEN GOTO 30
10 IF BLOCK_TIMESTAMP() < LOAD("last")+LOAD("duration") THEN GOTO 30
20 IF own() THEN GOTO 40
30 RETURN 1
40 DELETE(HEX(LOAD(LOAD("grok"))))
45 DELETE(LOAD("grok"))
50 STORE("in", LOAD("in")-1)
60 setDur()
70 grok()
100 RETURN 0
End Function
Function Win(a Uint64) Uint64
5 IF LOAD("start") != 2 THEN GOTO 30
6 IF LOAD("in") != 1 THEN GOTO 30
10 IF EXISTS(a) == 0 THEN GOTO 30
20 IF own() THEN GOTO 40
30 RETURN 1
40 SEND_DERO_TO_ADDRESS(LOAD(a), LOAD("pot")/2)
60 SEND_DERO_TO_ADDRESS(LOAD("owner"), LOAD("pot")/2)
70 SEND_DERO_TO_ADDRESS(LOAD("owner"), LOAD("pot")%2)
71 DIM addr as String
72 LET addr = HEX(LOAD(a))
73 IF EXISTS("w_"+addr) THEN GOTO 75
74 STORE("w_"+addr, 0)
75 STORE("w_"+addr, LOAD("w_"+addr)+1)
80 STORE("start", 0)
81 STORE("pot", 0)
82 STORE("in", 0)
85 DELETE(HEX(LOAD(a)))
86 DELETE(a)
100 RETURN 0
End Function
Function Refund(p Uint64) Uint64
5 IF LOAD("start") == 0 THEN GOTO 30
6 IF LOAD("start") == 1 && BLOCK_TIMESTAMP() < LOAD("last")+604800 THEN GOTO 30
10 IF BLOCK_TIMESTAMP() < LOAD("last")+LOAD("duration")+600 THEN GOTO 30
11 IF EXISTS(p) == 0 THEN GOTO 30
20 IF LOAD(p) == SIGNER() THEN GOTO 40
30 RETURN 1
40 DIM i as Uint64
41 DIM a as String
50 IF EXISTS(i) == 0 THEN GOTO 70
60 SEND_DERO_TO_ADDRESS(LOAD(i), LOAD("pot")/LOAD("in"))
62 LET a = HEX(LOAD(i))
63 IF EXISTS("w_"+a) THEN GOTO 65
64 STORE("w_"+a, 0)
65 STORE("w_"+a, LOAD("w_"+a)+1)
66 DELETE(HEX(LOAD(i)))
67 DELETE(i)
70 LET i = i+1
80 IF i <= 30 THEN GOTO 50
81 SEND_DERO_TO_ADDRESS(LOAD("owner"), LOAD("pot")%LOAD("in"))
82 STORE("grok", 99)
90 STORE("start", 0)
91 STORE("pot", 0)
92 STORE("in", 0)
100 RETURN 0
End Function
Function UpdateCode(code String) Uint64
5 IF code == "" THEN GOTO 20
6 IF LOAD("pot") != 0 THEN GOTO 20
10 IF LOAD("owner") == SIGNER() THEN GOTO 30
20 RETURN 1
30 UPDATE_SC_CODE(code)
60 STORE("v", LOAD("v")+1)
100 RETURN 0
End Function' Name:entrypoint Type:string Value:'UpdateCode'] |
