tx · Gej71Afn8si8CRcYzN85gtUnsUGazc3pPyxVzc9B3Dfr

3PJXxPS9FxZsSLyP9gA47dSLwMinoFyfYFC:  -0.00100000 Waves

2024.04.30 21:56 [4151914] smart account 3PJXxPS9FxZsSLyP9gA47dSLwMinoFyfYFC > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Gej71Afn8si8CRcYzN85gtUnsUGazc3pPyxVzc9B3Dfr",
    "fee": 100000,
    "feeAssetId": null,
    "timestamp": 1714503393344,
    "version": 2,
    "chainId": 87,
    "sender": "3PJXxPS9FxZsSLyP9gA47dSLwMinoFyfYFC",
    "senderPublicKey": "B3uLVcDr7gdvWSB4wQcukWjHbPgahoQp3PtkECBkj7yb",
    "proofs": [
        "3MUTYtVxZoAmMeJ9bv3zvyiaPc88Rd7ZtLywAbPSPRGDeC8NQvxBNdFmQrha9JmihY5FFuQa78B6tVCCDuxdRfnc"
    ],
    "script": "base64:BgIECAISAAQAF3doaXJscG9vbFByb2plY3RBZGRyZXNzCQEHQWRkcmVzcwEBGgFXYM7G8hH41q7DFTC6WFz/F5HB+dDAqmPHAAtwb29sYm9vc3RTQwEaAVdJth4Q36ANT9jV0A+j44S32V46KbMRqawAB3Bvb2xCQkIBGgFXUu6TVhRNfgeM0oUP5n5cVzd+HJ/vPIIdAAlidXJueHRuSWQBICRPdXlqfjM5uPsM/4SpcVxeyi3eM6DEXWn56kQR7ExUAQFpAQxib29zdFBvb2xBUFkAAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkGY2FsbGVyBRd3aGlybHBvb2xQcm9qZWN0QWRkcmVzcwcJAAIBAhxhY2Nlc3Mgb25seSBieSBwcm9qZWN0IG93bmVyBAVib29zdAkA/AcECQEHQWRkcmVzcwEFC3Bvb2xib29zdFNDAgthZGRCb29zdGluZwkAzAgCBQdwb29sQkJCCQDMCAIABwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQlidXJueHRuSWQJAPAHAgUEdGhpcwUJYnVybnh0bklkBQNuaWwDCQAAAgUFYm9vc3QFBWJvb3N0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4Anyuc5Q==",
    "height": 4151914,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4U4Nf4faEh8bEHEhfSdTHYixBbacFMaTqLTYiuU4vGFg
Next: F3dZBT7aRokRHfbeKy5zG7X1ZvKFbqkBgzxXjNUyaS3n

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
func tryGetInteger (address,key) = match getInteger(address, key) {
5
-
    case b: Int => 
6
-
        b
7
-
    case _ => 
8
-
        0
9
-
}
4
+
let whirlpoolProjectAddress = Address(base58'3PAkmJniMgnnAej5pYf2jFYkCbZow5pt9tr')
10
5
 
6
+
let poolboostSC = base58'3P8eeDzUnoDNbQjW617pAe76cEUDQsP1m1V'
11
7
 
12
-
func tryGetString (address,key) = match getString(address, key) {
13
-
    case b: String => 
14
-
        b
15
-
    case _ => 
16
-
        ""
17
-
}
8
+
let poolBBB = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
18
9
 
19
-
20
-
let d8 = 100000000
21
-
22
-
let invoker = Address(base58'3P4AdC9J6MzTEi2LL9xgQN8EimMnbk4d6Nt')
23
-
24
-
let xtn = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
25
-
26
-
let burnxtn = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
27
-
28
-
let burnxtnString = toBase58String(burnxtn)
29
-
30
-
let westId = base58'4LHHvYGNKJUg5hj65aGD5vgScvCBmLpdRFtjokvCjSL8'
31
-
32
-
let viresId = base58'DSbbhLsSTeDg5Lsiufk2Aneh3DjVqJuPr2M9uU1gwy5p'
33
-
34
-
let eggId = base58'C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS'
35
-
36
-
let surfId = base58'At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL'
37
-
38
-
let nsbtId = base58'6nSpVyNH7yM69eg446wrQR94ipbbcmZMU1ENPwanC97g'
39
-
40
-
let wxId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
41
-
42
-
let swopId = base58'Ehie5xYpeN8op1Cctc6aGUrqx8jq3jtf1DSjXDbfm7aT'
43
-
44
-
let keyAddressesRegistered = "Addresses registered-"
45
-
46
-
let addresses = dropRight(tryGetString(this, keyAddressesRegistered), 1)
47
-
48
-
let keyAmountRegistered = "Amount Registered-"
49
-
50
-
let keyTotalBalanceCount = "total balance count-"
51
-
52
-
let keyBurnxtnBalance = "BURN-XTN balance-"
53
-
54
-
let puzzleMarket = Address(base58'3P6fAxtw12pjFhayEfpcUWxgu2BHVCeP78A')
55
-
56
-
let WFSlist = ["Gnpy5nVajPP3XQQVxrHboMAsXtjnyWAxybMDdKrbr8sD", "BT9Q4mQdQQmei2r5YNMBMasZBQj7myNaiz6QHba5cPXS", "BMvkyFtPVmFatpFR9QVFKR5MYTcZVTY2VUwFZ25vrAAc", "77Rqu8TLjBdMtDuXd9o5fUSGo64zQe5FCcao5L8Ht9j8", "8KnhBLV49SDJzq1SSy1YvGHYY6m7Q146bV7Q6GKqQb5C", "FFxsUfKbHEW4zZywLUL55ip8Nqp6fcWDsq7y3an9yQhe", "5nQRedGHoVpEQasMQivb1UMvFBCHXefXPXtURbMMnfsu", "6N3MSFtJGvT79ucX4pLftxP7fGs8DnmYdPedvnoNbVt9", "dFC2iJL4LDWasq9YzHf2kWfPNP69Tyamii93ns9BHvM", "A158T7yZLtmuiMEs21P9jV2ftbMXzy3MnfHMEu1eMAGK"]
57
-
58
-
let BBBlist = ["9pCxoGtD18GeH9gCemzqrjHMMjfyBQDfsrRAuxSRagMc", "7DgFgCkBjVDc5P9ZgwsVL9SiTi7kXJuS4aRVgb7ZHW3k", "76bTvE8ttHvsuN1FuH4Kc8QUW4kL4m8c1cjfsXy2GfbV", "4Zrf4H5tiFcQL8eQmnA2wJ1XWPEBH6h1G2MefZDYmcCB", "2DtC4nFnxz5UM6mbjPwMVZpQWZFUqxs52oZrBeNRk9Ao", "DjZGMAFfoQWkMW3S5FTsQN3joncZt6BsmhnEK3ggLxmN", "BneaZXD6ovDJcV5rgfr8hsHZaMQsJQ8DH6a5gTnGCpBc", "4EKfgzFkd5UGKrjnaJV3w7argW1YmF4hq54xWQFzAXb9", "8hGDkWKiu2igDpWT3Hpr4mchDD6xwJ9hGm2h2jnUvTqz", "E3ZnSejpXL1Xr6VG4QoLh8xod9NMgpPe473r9Qk2HibL"]
59
-
60
-
let PZ1 = base58'3PE7NtJdmVq4yo47LKDqurQ8RLDCouvJCPB'
61
-
62
-
let PZ2 = base58'3PQHndCUVrv3wBuQjbvVP9SnGmfbfitGxfx'
63
-
64
-
let PZ3 = base58'3PBiMQLnX8wd4bssXCgF8KuUqHv1H4zWHGi'
65
-
66
-
let PZ4 = base58'3PDJPGn6vBEBqWN4E3fNcxoKBoDXbsmoaM7'
67
-
68
-
let PZ7 = base58'3PQpQHGEVvMKCzHCP2R2rq7LvfB2Zzmx2Db'
69
-
70
-
let PZ9 = base58'3P9VPwVfNj3dDevQZt1Z951A4K57cmQmCgk'
71
-
72
-
let WXstake = base58'3PPNhHYkkEy13gRWDCaruQyhNbX2GrjYSyV'
73
-
74
-
let WX1 = base58'3P5vwLbXddLWpsRspftMxLuzfsjk3dLT3n5'
75
-
76
-
let LP1 = "GyiHdcN59sZ46baFvj68ruLngrTPEvWDtsd6jHm4o46n"
77
-
78
-
let WX2 = base58'3PKXseWa31VUSWUvm2YiRKxW2VM9RsVk3ry'
79
-
80
-
let LP2 = "3MPHMJVwYGyeBLRsH1RsYhrTmemv752AEBwuFFV7g49Z"
81
-
82
-
let WX3 = base58'3PKkWhWS4wUPHi8gGwYVRu7tCCmRUriK6aC'
83
-
84
-
let LP3 = "7BLynNvde1NTBbaivX9zj1h1rrN9L1kWeWkFzpFhpJBz"
85
-
86
-
func PZbal (Pooladdress,address,asset) = {
87
-
    let burnxtnInPZ = tryGetInteger(Address(Pooladdress), (("global_" + toBase58String(asset)) + "_balance"))
88
-
    let addressStakePZ = tryGetInteger(Address(Pooladdress), (toString(address) + "_indexStaked"))
89
-
    let totalStakePZ = tryGetInteger(Address(Pooladdress), "global_poolToken_amount")
90
-
    fraction(burnxtnInPZ, addressStakePZ, totalStakePZ)
91
-
    }
92
-
93
-
94
-
func WXbal (Pooladdress,address,LPstr) = {
95
-
    let burnxtnInWX = assetBalance(Address(Pooladdress), burnxtn)
96
-
    let addressStakeWX = tryGetInteger(Address(WXstake), ((("%s%s%s__staked__" + toString(address)) + "__") + LPstr))
97
-
    let totalStakeWX = tryGetInteger(Address(WXstake), ("%s%s%s__staked__total__" + LPstr))
98
-
    fraction(burnxtnInWX, addressStakeWX, totalStakeWX)
99
-
    }
100
-
101
-
102
-
func totalBalance (address) = {
103
-
    let PZ1balance = fraction(PZbal(PZ1, address, burnxtn), (10000 - tryGetInteger(Address(PZ1), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
104
-
    let PZ2balance = fraction(PZbal(PZ2, address, burnxtn), (10000 - tryGetInteger(Address(PZ2), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
105
-
    let PZ3balance = fraction(PZbal(PZ3, address, burnxtn), (10000 - tryGetInteger(Address(PZ3), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
106
-
    let PZ4balance = fraction(PZbal(PZ4, address, burnxtn), (10000 - tryGetInteger(Address(PZ4), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
107
-
    let PZ7balance = fraction(PZbal(PZ7, address, burnxtn), (10000 - tryGetInteger(Address(PZ7), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
108
-
    let PZ9balance = fraction(PZbal(PZ9, address, burnxtn), (10000 - tryGetInteger(Address(PZ9), (("static_" + toBase58String(burnxtn)) + "_weight"))), 10000)
109
-
    let WX1balance = fraction(WXbal(WX1, address, LP1), 50, 100)
110
-
    let WX2balance = fraction(WXbal(WX2, address, LP2), 50, 100)
111
-
    let WX3balance = fraction(WXbal(WX3, address, LP3), 50, 100)
112
-
    ((((((((PZ1balance + PZ2balance) + PZ3balance) + PZ4balance) + PZ7balance) + PZ9balance) + WX1balance) + WX2balance) + WX3balance)
113
-
    }
114
-
115
-
116
-
func rewardAmount (address) = {
117
-
    func foldFunc (acc,WFS) =     ((acc + assetBalance(addressFromStringValue(address), fromBase58String(WFS))) + (if ((tryGetString(puzzleMarket, (("nft_" + WFS) + "_seller")) == address))
118
-
        then 1
119
-
        else 0))
120
-
121
-
    let shareWFS = {
122
-
        let $l = WFSlist
123
-
        let $s = size($l)
124
-
        let $acc0 = 0
125
-
        func $f0_1 ($a,$i) =         if (($i >= $s))
126
-
            then $a
127
-
            else foldFunc($a, $l[$i])
128
-
129
-
        func $f0_2 ($a,$i) =         if (($i >= $s))
130
-
            then $a
131
-
            else throw("List size exceeds 10")
132
-
133
-
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
134
-
        }
135
-
    let WFSbonus = if ((shareWFS > 0))
136
-
        then 1
137
-
        else 0
138
-
    func foldFuncB (acc,BBB) =     ((acc + assetBalance(addressFromStringValue(address), fromBase58String(BBB))) + (if ((tryGetString(puzzleMarket, (("nft_" + BBB) + "_seller")) == address))
139
-
        then 1
140
-
        else 0))
141
-
142
-
    let shareBBB = {
143
-
        let $l = BBBlist
144
-
        let $s = size($l)
145
-
        let $acc0 = 0
146
-
        func $f1_1 ($a,$i) =         if (($i >= $s))
147
-
            then $a
148
-
            else foldFuncB($a, $l[$i])
149
-
150
-
        func $f1_2 ($a,$i) =         if (($i >= $s))
151
-
            then $a
152
-
            else throw("List size exceeds 10")
153
-
154
-
        $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
155
-
        }
156
-
    let BBBbonus = if ((shareBBB > 0))
157
-
        then 9
158
-
        else 0
159
-
    fraction(tryGetInteger(this, keyBurnxtnBalance), (((100 + WFSbonus) + BBBbonus) * tryGetInteger(this, address)), (110 * tryGetInteger(this, keyTotalBalanceCount)))
160
-
    }
161
-
10
+
let burnxtnId = base58'3SjxA2YLdfF9fTRbzLm9xFn27C6MW34W1YsdJ6Axefns'
162
11
 
163
12
 
@Callable(i)
164
-
func register () = if (contains(tryGetString(this, keyAddressesRegistered), toString(i.caller)))
165
-
    then throw("already registered")
166
-
    else if ((tryGetInteger(this, keyAmountRegistered) >= 76))
167
-
        then throw("max registered users")
168
-
        else [IntegerEntry(keyAmountRegistered, (tryGetInteger(this, keyAmountRegistered) + 1)), StringEntry(("Register liquidity mining bounty: " + toString((tryGetInteger(this, keyAmountRegistered) + 1))), toString(i.caller)), StringEntry(keyAddressesRegistered, ((tryGetString(this, keyAddressesRegistered) + toString(i.caller)) + ","))]
169
-
170
-
171
-
172
-
@Callable(i)
173
-
func invokeAll () = if ((i.caller != this))
174
-
    then throw("access only by project owner")
175
-
    else {
176
-
        let update = invoke(this, "updateBalanceEntry", nil, nil)
177
-
        if ((update == update))
178
-
            then {
179
-
                let total = invoke(this, "totalBalanceAll", nil, nil)
180
-
                if ((total == total))
181
-
                    then {
182
-
                        let pay = invoke(this, "payRewards", nil, nil)
183
-
                        if ((pay == pay))
184
-
                            then nil
185
-
                            else throw("Strict value is not equal to itself.")
186
-
                        }
187
-
                    else throw("Strict value is not equal to itself.")
188
-
                }
189
-
            else throw("Strict value is not equal to itself.")
190
-
        }
191
-
192
-
193
-
194
-
@Callable(i)
195
-
func updateBalanceEntry () = if (if ((i.caller != this))
196
-
    then (i.caller != invoker)
13
+
func boostPoolAPY () = if (if ((i.caller != this))
14
+
    then (i.caller != whirlpoolProjectAddress)
197
15
 
    else false)
198
16
 
    then throw("access only by project owner")
199
17
 
    else {
200
-
        let list = split_4C(addresses, ",")
201
-
        func bal (accum,address) =         (accum ++ [IntegerEntry(address, totalBalance(addressFromStringValue(address)))])
202
-
203
-
        let updateBalance = {
204
-
            let $l = list
205
-
            let $s = size($l)
206
-
            let $acc0 = nil
207
-
            func $f0_1 ($a,$i) =             if (($i >= $s))
208
-
                then $a
209
-
                else bal($a, $l[$i])
210
-
211
-
            func $f0_2 ($a,$i) =             if (($i >= $s))
212
-
                then $a
213
-
                else throw("List size exceeds 76")
214
-
215
-
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76)
216
-
            }
217
-
        ([IntegerEntry(keyBurnxtnBalance, assetBalance(this, burnxtn))] ++ updateBalance)
218
-
        }
219
-
220
-
221
-
222
-
@Callable(i)
223
-
func claim () = if (if ((i.caller != this))
224
-
    then (i.caller != invoker)
225
-
    else false)
226
-
    then throw("access only by project owner")
227
-
    else {
228
-
        let claimInv = invoke(Address(PZ1), "claimIndexRewards", nil, nil)
229
-
        if ((claimInv == claimInv))
18
+
        let boost = invoke(Address(poolboostSC), "addBoosting", [poolBBB, 7], [AttachedPayment(burnxtnId, assetBalance(this, burnxtnId))])
19
+
        if ((boost == boost))
230
20
 
            then nil
231
21
 
            else throw("Strict value is not equal to itself.")
232
-
        }
233
-
234
-
235
-
236
-
@Callable(i)
237
-
func swap () = if (if ((i.caller != this))
238
-
    then (i.caller != invoker)
239
-
    else false)
240
-
    then throw("access only by project owner")
241
-
    else {
242
-
        let swest = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(westId, assetBalance(this, westId))])
243
-
        if ((swest == swest))
244
-
            then {
245
-
                let svires = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(viresId, assetBalance(this, viresId))])
246
-
                if ((svires == svires))
247
-
                    then {
248
-
                        let segg = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(eggId, assetBalance(this, eggId))])
249
-
                        if ((segg == segg))
250
-
                            then {
251
-
                                let ssurf = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(surfId, assetBalance(this, surfId))])
252
-
                                if ((ssurf == ssurf))
253
-
                                    then {
254
-
                                        let snsbt = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(nsbtId, assetBalance(this, nsbtId))])
255
-
                                        if ((snsbt == snsbt))
256
-
                                            then {
257
-
                                                let swx = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(wxId, assetBalance(this, wxId))])
258
-
                                                if ((swx == swx))
259
-
                                                    then {
260
-
                                                        let sswop = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(swopId, assetBalance(this, swopId))])
261
-
                                                        if ((sswop == sswop))
262
-
                                                            then {
263
-
                                                                let sxtn = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(xtn, assetBalance(this, xtn))])
264
-
                                                                if ((sxtn == sxtn))
265
-
                                                                    then {
266
-
                                                                        let swapwaves = invoke(Address(PZ1), "swap", [burnxtnString, 0], [AttachedPayment(unit, if (((wavesBalance(this).available - d8) > 0))
267
-
                                                                            then (wavesBalance(this).available - d8)
268
-
                                                                            else 0)])
269
-
                                                                        if ((swapwaves == swapwaves))
270
-
                                                                            then [IntegerEntry(keyBurnxtnBalance, assetBalance(this, burnxtn))]
271
-
                                                                            else throw("Strict value is not equal to itself.")
272
-
                                                                        }
273
-
                                                                    else throw("Strict value is not equal to itself.")
274
-
                                                                }
275
-
                                                            else throw("Strict value is not equal to itself.")
276
-
                                                        }
277
-
                                                    else throw("Strict value is not equal to itself.")
278
-
                                                }
279
-
                                            else throw("Strict value is not equal to itself.")
280
-
                                        }
281
-
                                    else throw("Strict value is not equal to itself.")
282
-
                                }
283
-
                            else throw("Strict value is not equal to itself.")
284
-
                        }
285
-
                    else throw("Strict value is not equal to itself.")
286
-
                }
287
-
            else throw("Strict value is not equal to itself.")
288
-
        }
289
-
290
-
291
-
292
-
@Callable(i)
293
-
func totalBalanceAll () = if (if ((i.caller != this))
294
-
    then (i.caller != invoker)
295
-
    else false)
296
-
    then throw("access only by project owner")
297
-
    else {
298
-
        let list = split_4C(addresses, ",")
299
-
        func ba (accum,address) =         (accum + totalBalance(addressFromStringValue(address)))
300
-
301
-
        let enterTotalBalanceAll = {
302
-
            let $l = list
303
-
            let $s = size($l)
304
-
            let $acc0 = 0
305
-
            func $f0_1 ($a,$i) =             if (($i >= $s))
306
-
                then $a
307
-
                else ba($a, $l[$i])
308
-
309
-
            func $f0_2 ($a,$i) =             if (($i >= $s))
310
-
                then $a
311
-
                else throw("List size exceeds 76")
312
-
313
-
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76)
314
-
            }
315
-
[IntegerEntry(keyTotalBalanceCount, enterTotalBalanceAll)]
316
-
        }
317
-
318
-
319
-
320
-
@Callable(i)
321
-
func payRewards () = if (if ((i.caller != this))
322
-
    then (i.caller != invoker)
323
-
    else false)
324
-
    then throw("access only by project owner")
325
-
    else {
326
-
        let list = split_4C(addresses, ",")
327
-
        func pay (accum,address) =         (accum ++ [ScriptTransfer(addressFromStringValue(address), rewardAmount(address), burnxtn)])
328
-
329
-
        let payReward = {
330
-
            let $l = list
331
-
            let $s = size($l)
332
-
            let $acc0 = nil
333
-
            func $f0_1 ($a,$i) =             if (($i >= $s))
334
-
                then $a
335
-
                else pay($a, $l[$i])
336
-
337
-
            func $f0_2 ($a,$i) =             if (($i >= $s))
338
-
                then $a
339
-
                else throw("List size exceeds 76")
340
-
341
-
            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76)
342
-
            }
343
-
        (nil ++ payReward)
344
22
 
        }
345
23
 
346
24
 

github/deemru/w8io/3ef1775 
47.37 ms ◑