BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Mainnet
  • /
  • Open Edition Fee Sharing Helper
operations (95.8K)Storage Code Interact Tokens Metadata Fork Statistics Details
Latest
​x
154
 
1
parameter (or
2
            (or (unit %default)
3
                (list %enforce_conditions (pair
4
                                           (pair (nat %amount)
5
                                                 (pair (address %claimer)
6
                                                       (bytes %condition_id)))
7
                                           (pair (address %creator)
8
                                                 (pair (option %extra bytes)
9
                                                       (pair %token (address %address)
10
                                                                    (nat %token_id)))))))
11
            (or (address %update_admin) (or (address %update_treasury) (unit %withdraw))));
12
storage (pair (pair (address %admin) (mutez %amount))
13
              (pair (big_map %metadata string bytes) (address %treasury)));
14
code { UNPAIR ;
15
       IF_LEFT
16
         { IF_LEFT
17
             { DROP ; UNPAIR ; CAR ; AMOUNT ; SWAP ; PAIR ; PAIR ; NIL operation }
18
             { DUP ;
19
               IF_CONS
20
                 { NONE (map address nat) ;
21
                   SWAP ;
22
                   DUP ;
23
                   DUG 2 ;
24
                   GET 5 ;
25
                   IF_NONE
26
                     {}
27
                     { DROP 2 ;
28
                       DUP ;
29
                       GET 5 ;
30
                       IF_NONE { PUSH int 541 ; FAILWITH } {} ;
31
                       UNPACK (map address nat) } ;
32
                   DUP 5 ;
33
                   CAR ;
34
                   CDR ;
35
                   SWAP ;
36
                   DUP ;
37
                   DUG 2 ;
38
                   IF_NONE
39
                     { DROP 5 ;
40
                       DUP ;
41
                       GET 4 ;
42
                       CONTRACT unit ;
43
                       IF_NONE { PUSH int 554 ; FAILWITH } {} ;
44
                       NIL operation ;
45
                       SWAP ;
46
                       DUP 3 ;
47
                       CAR ;
48
                       CDR ;
49
                       UNIT ;
50
                       TRANSFER_TOKENS ;
51
                       CONS }
52
                     { SWAP ;
53
                       DUP ;
54
                       DUG 2 ;
55
                       NIL operation ;
56
                       DUP 3 ;
57
                       ITER { DUP ;
58
                              CDR ;
59
                              PUSH nat 10000 ;
60
                              SWAP ;
61
                              DUP 7 ;
62
                              MUL ;
63
                              EDIV ;
64
                              IF_NONE { PUSH int 547 ; FAILWITH } {} ;
65
                              CAR ;
66
                              DUG 2 ;
67
                              CAR ;
68
                              CONTRACT unit ;
69
                              IF_NONE { PUSH int 548 ; FAILWITH } {} ;
70
                              DUP 3 ;
71
                              UNIT ;
72
                              TRANSFER_TOKENS ;
73
                              CONS ;
74
                              SWAP ;
75
                              DIG 2 ;
76
                              SUB_MUTEZ ;
77
                              IF_NONE { PUSH int 549 ; FAILWITH } {} ;
78
                              SWAP } ;
79
                       DIG 2 ;
80
                       DROP ;
81
                       DIG 2 ;
82
                       DROP ;
83
                       DIG 2 ;
84
                       DROP ;
85
                       DIG 2 ;
86
                       DROP ;
87
                       DIG 2 ;
88
                       DROP ;
89
                       DIG 2 ;
90
                       DROP ;
91
                       PUSH mutez 0 ;
92
                       DUP 3 ;
93
                       COMPARE ;
94
                       GT ;
95
                       IF
96
                         { DUP 3 ;
97
                           GET 4 ;
98
                           CONTRACT unit ;
99
                           IF_NONE { PUSH int 552 ; FAILWITH } {} ;
100
                           DIG 2 ;
101
                           UNIT ;
102
                           TRANSFER_TOKENS ;
103
                           CONS }
104
                         { SWAP ; DROP } } }
105
                 { DROP ; NIL operation } } }
106
         { IF_LEFT
107
             { SWAP ;
108
               DUP ;
109
               DUG 2 ;
110
               CAR ;
111
               CAR ;
112
               SENDER ;
113
               COMPARE ;
114
               EQ ;
115
               IF
116
                 {}
117
                 { PUSH string "WrongCondition: sp.sender == self.data.admin" ; FAILWITH } ;
118
               SWAP ;
119
               UNPAIR ;
120
               CDR ;
121
               DIG 2 ;
122
               PAIR ;
123
               PAIR ;
124
               NIL operation }
125
             { IF_LEFT
126
                 { SWAP ;
127
                   DUP ;
128
                   DUG 2 ;
129
                   CAR ;
130
                   CAR ;
131
                   SENDER ;
132
                   COMPARE ;
133
                   EQ ;
134
                   IF
135
                     {}
136
                     { PUSH string "WrongCondition: sp.sender == self.data.admin" ;
137
                       FAILWITH } ;
138
                   UPDATE 4 ;
139
                   NIL operation }
140
                 { DROP ;
141
                   DUP ;
142
                   GET 4 ;
143
                   CONTRACT unit ;
144
                   IF_NONE { PUSH int 532 ; FAILWITH } {} ;
145
                   NIL operation ;
146
                   SWAP ;
147
                   BALANCE ;
148
                   UNIT ;
149
                   TRANSFER_TOKENS ;
150
                   CONS } } } ;
151
       NIL operation ;
152
       SWAP ;
153
       ITER { CONS } ;
154
       PAIR }