tx · 9sQUqDwGaVxajT1m54LTYd3KTpPzC9V8a8ZtkBgPNdnc

3P52TtidVCVeSQiC38weUFGZWcP1r5VRw1B:  -0.00500000 Waves

2023.12.19 16:30 [3959546] smart account 3P52TtidVCVeSQiC38weUFGZWcP1r5VRw1B > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9sQUqDwGaVxajT1m54LTYd3KTpPzC9V8a8ZtkBgPNdnc",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1702992585896,
    "version": 2,
    "chainId": 87,
    "sender": "3P52TtidVCVeSQiC38weUFGZWcP1r5VRw1B",
    "senderPublicKey": "87q18YNQT35ZcKk6Q3aSFCAv4dvkkBf4iuzic7qHbikw",
    "proofs": [
        "f3D3vhwbTyf6QLK3k18p9TNPBRaUKSAehTLArnSoPeufYdTWbV9jhFGPPpBnjyoacMFT942TM9bSx3hZnehRaUf"
    ],
    "script": "base64:BgIMCAISAwoBCBIDCgEICAAGY2FsbGVyCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUE1ibnFpZmZyeDVOUkFzZ3VuNmJHZEU0VDRNOWd4V0xnZwAFYWRtaW4JARFAZXh0ck5hdGl2ZSgxMDYyKQECIzNQOU1VcmJlUWtlZjVkS3BIdzdRTjdqdjd5NHE3WFZVaTZKAARwb29sCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUERCck5QR1JHUW03d2J4c2o3Z1BzZk1QVHhUNWVQMU1VZwABUgkBEUBleHRyTmF0aXZlKDEwNjIpAQIjM1A2OHpOaXVmc3UxdmlacHUxYVkzY2RhaFJSS2N2VjVOOTMBDWdldEFzc2V0Qnl0ZXMBCmFzc2V0SWRTdHIDCQAAAgUKYXNzZXRJZFN0cgIFV0FWRVMFBHVuaXQJANkEAQUKYXNzZXRJZFN0cgEKZ2V0QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAF4BQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQEFdmFsdWUBBQdhc3NldElkAQ5nZXRBc3NldFN0cmluZwEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWICBVdBVkVTAQFiAgFjAWQEBHR5cGUJALwJAgUBZAIBOgMJAAACBQR0eXBlBQR0eXBlBAF0CQCRAwIFBHR5cGUAAAMJAAACBQF0BQF0BANhZGQJALwJAgkAkQMCBQR0eXBlAAECASwDCQAAAgUDYWRkBQNhZGQEBmFtb3VudAgFAWMCXzEDCQAAAgUGYW1vdW50BQZhbW91bnQEB2Fzc2V0SWQIBQFjAl8yAwkAAAIFB2Fzc2V0SWQFB2Fzc2V0SWQEA2JhbAkBCmdldEJhbGFuY2UBCQENZ2V0QXNzZXRCeXRlcwEJAJEDAgUDYWRkAAEDCQAAAgUDYmFsBQNiYWwEBXN3YXAxAwkAAAIFAXQCATAJAPwHBAkBB0FkZHJlc3MBCQDZBAEJAJEDAgUDYWRkAAACCGV4Y2hhbmdlCQDMCAIAAQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQENZ2V0QXNzZXRCeXRlcwEFB2Fzc2V0SWQFBmFtb3VudAUDbmlsAwkAAAIFAXQCATEJAPwHBAUBUgIEc3dhcAkAzAgCAAEJAMwIAgkAkQMCBQNhZGQAAQkAzAgCCQClCAEFBHRoaXMFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDWdldEFzc2V0Qnl0ZXMBBQdhc3NldElkBQZhbW91bnQFA25pbAMJAAACBQF0AgEyCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDYWRkAAACBHN3YXAJAMwIAgkAkQMCBQNhZGQAAQkAzAgCAAEFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDWdldEFzc2V0Qnl0ZXMBBQdhc3NldElkBQZhbW91bnQFA25pbAMJAAACBQF0AgEzCQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDYWRkAAACGVN3YXBXQVZFU1RvQXNzZXRQYWlyRW50cnkJAMwIAgkAkQMCBQNhZGQAAQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQENZ2V0QXNzZXRCeXRlcwEFB2Fzc2V0SWQFBmFtb3VudAUDbmlsAwkAAAIFAXQCATQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNhZGQAAAIZU3dhcEFzc2V0VG9XQVZFU1BhaXJFbnRyeQkAzAgCBQdhc3NldElkBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJAQ1nZXRBc3NldEJ5dGVzAQUHYXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUBdAIBNQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFA2FkZAAAAhdTd2FwWFROVG9Bc3NldFBhaXJFbnRyeQkAzAgCCQCRAwIFA2FkZAABBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJAQ1nZXRBc3NldEJ5dGVzAQUHYXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUBdAIBNgkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFA2FkZAAAAhdTd2FwQXNzZXRUb1hUTlBhaXJFbnRyeQkAzAgCBQdhc3NldElkBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJAQ1nZXRBc3NldEJ5dGVzAQUHYXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUBdAIBNwkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFA2FkZAAAAgh3aXRoZHJhdwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQENZ2V0QXNzZXRCeXRlcwEFB2Fzc2V0SWQJAGUCBQZhbW91bnQAAQUDbmlsAwkAAAIFAXQCATcJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNhZGQAAAIMZnVsZmlsbE9yZGVyCQDMCAIJALYJAQkAkQMCBQNhZGQAAgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQENZ2V0QXNzZXRCeXRlcwEFB2Fzc2V0SWQFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUFc3dhcDEFBXN3YXAxBARuYmFsCQBlAgkBCmdldEJhbGFuY2UBCQENZ2V0QXNzZXRCeXRlcwEJAJEDAgUDYWRkAAEFA2JhbAMJAAACBQRuYmFsBQRuYmFsCQCUCgIFBG5iYWwJAJEDAgUDYWRkAAEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CAWkBBHN3YXABBWlucHV0AwkBAiE9AggFAWkGY2FsbGVyBQZjYWxsZXIJAAIBAgEhBAFhCQC8CQIFBWlucHV0AgE7AwkAAAIFAWEFAWEEAXMJAJQKAggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAQ5nZXRBc3NldFN0cmluZwEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAMJAAACBQFzBQFzBAFwCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAMJAAACBQFwBQFwBANiYWwJAQpnZXRCYWxhbmNlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkAwkAAAIFA2JhbAUDYmFsBAF6CgACJGwFAWEKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQFzCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQFiAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAwkAAAIFAXoFAXoEBG5iYWwJAGUCCQEKZ2V0QmFsYW5jZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDYmFsAwkAAAIFBG5iYWwFBG5iYWwDCQBmAgUEbmJhbAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZAIFAXAFBG5iYWwICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDbmlsCQACAQkApAMBBQRuYmFsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBAXcBBWlucHV0AwkBAiE9AggFAWkMb3JpZ2luQ2FsbGVyBQZjYWxsZXIJAAIBAgEhAwkBAiE9AggFAWkGY2FsbGVyBQRwb29sCQACAQIBIQQBYQkAvAkCBQVpbnB1dAIBOwMJAAACBQFhBQFhBAFzCQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQEOZ2V0QXNzZXRTdHJpbmcBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQDCQAAAgUBcwUBcwQBcAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQDCQAAAgUBcAUBcAQDYmFsCQEKZ2V0QmFsYW5jZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAMJAAACBQNiYWwFA2JhbAQBegoAAiRsBQFhCgACJHMJAJADAQUCJGwKAAUkYWNjMAUBcwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEBYgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAwkAAAIFAXoFAXoEBG5iYWwJAGUCCQEKZ2V0QmFsYW5jZQEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDYmFsAwkAAAIFBG5iYWwFBG5iYWwDCQBmAgUEbmJhbAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBWFkbWluBQRuYmFsCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUEcG9vbAUBcAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNuaWwJAAIBCQCkAwEFBG5iYWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAnR4AQZ2ZXJpZnkACQDFEwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5dO0JPg==",
    "height": 3959546,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5RhD3AGa8t9XduusSfjubRd6bcA718VVa4i1zLY7sWoi
Next: 52Ux9mQo7bmG8Lz7e436VNc8zXtvxwdkRnSxQed657a9

Diff: 
Old
New
Differences
64
64
 
                                                                            else if ((t == "6"))
65
65
 
                                                                                then invoke(addressFromStringValue(add[0]), "SwapAssetToXTNPairEntry", [assetId], [AttachedPayment(getAssetBytes(assetId), amount)])
66
66
 
                                                                                else if ((t == "7"))
67
-
                                                                                    then invoke(addressFromStringValue(add[0]), "withdraw", nil, [AttachedPayment(getAssetBytes(assetId), amount)])
68
-
                                                                                    else nil
67
+
                                                                                    then invoke(addressFromStringValue(add[0]), "withdraw", nil, [AttachedPayment(getAssetBytes(assetId), (amount - 1))])
68
+
                                                                                    else if ((t == "7"))
69
+
                                                                                        then invoke(addressFromStringValue(add[0]), "fulfillOrder", [parseInt(add[2])], [AttachedPayment(getAssetBytes(assetId), amount)])
70
+
                                                                                        else nil
69
71
 
                                                    if ((swap1 == swap1))
70
72
 
                                                        then {
71
73
 
                                                            let nbal = (getBalance(getAssetBytes(add[1])) - bal)
169
171
 
170
172
 
                                                func $f0_2 ($a,$i) =                                                 if (($i >= $s))
171
173
 
                                                    then $a
172
-
                                                    else throw("List size exceeds 10")
174
+
                                                    else throw("List size exceeds 20")
173
175
 
174
-
                                                $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)
176
+
                                                $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
175
177
 
                                                }
176
178
 
                                            if ((z == z))
177
179
 
                                                then {
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let caller = addressFromStringValue("3PMbnqiffrx5NRAsgun6bGdE4T4M9gxWLgg")
5
5
 
6
6
 
let admin = addressFromStringValue("3P9MUrbeQkef5dKpHw7QN7jv7y4q7XVUi6J")
7
7
 
8
8
 
let pool = addressFromStringValue("3PDBrNPGRGQm7wbxsj7gPsfMPTxT5eP1MUg")
9
9
 
10
10
 
let R = addressFromStringValue("3P68zNiufsu1viZpu1aY3cdahRRKcvV5N93")
11
11
 
12
12
 
func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
13
13
 
    then unit
14
14
 
    else fromBase58String(assetIdStr)
15
15
 
16
16
 
17
17
 
func getBalance (assetId) = match assetId {
18
18
 
    case x: Unit => 
19
19
 
        wavesBalance(this).available
20
20
 
    case _ => 
21
21
 
        assetBalance(this, value(assetId))
22
22
 
}
23
23
 
24
24
 
25
25
 
func getAssetString (assetId) = match assetId {
26
26
 
    case b: ByteVector => 
27
27
 
        toBase58String(b)
28
28
 
    case _ => 
29
29
 
        "WAVES"
30
30
 
}
31
31
 
32
32
 
33
33
 
func b (c,d) = {
34
34
 
    let type = split_4C(d, ":")
35
35
 
    if ((type == type))
36
36
 
        then {
37
37
 
            let t = type[0]
38
38
 
            if ((t == t))
39
39
 
                then {
40
40
 
                    let add = split_4C(type[1], ",")
41
41
 
                    if ((add == add))
42
42
 
                        then {
43
43
 
                            let amount = c._1
44
44
 
                            if ((amount == amount))
45
45
 
                                then {
46
46
 
                                    let assetId = c._2
47
47
 
                                    if ((assetId == assetId))
48
48
 
                                        then {
49
49
 
                                            let bal = getBalance(getAssetBytes(add[1]))
50
50
 
                                            if ((bal == bal))
51
51
 
                                                then {
52
52
 
                                                    let swap1 = if ((t == "0"))
53
53
 
                                                        then invoke(Address(fromBase58String(add[0])), "exchange", [1], [AttachedPayment(getAssetBytes(assetId), amount)])
54
54
 
                                                        else if ((t == "1"))
55
55
 
                                                            then invoke(R, "swap", [1, add[1], toString(this)], [AttachedPayment(getAssetBytes(assetId), amount)])
56
56
 
                                                            else if ((t == "2"))
57
57
 
                                                                then invoke(addressFromStringValue(add[0]), "swap", [add[1], 1], [AttachedPayment(getAssetBytes(assetId), amount)])
58
58
 
                                                                else if ((t == "3"))
59
59
 
                                                                    then invoke(addressFromStringValue(add[0]), "SwapWAVESToAssetPairEntry", [add[1]], [AttachedPayment(getAssetBytes(assetId), amount)])
60
60
 
                                                                    else if ((t == "4"))
61
61
 
                                                                        then invoke(addressFromStringValue(add[0]), "SwapAssetToWAVESPairEntry", [assetId], [AttachedPayment(getAssetBytes(assetId), amount)])
62
62
 
                                                                        else if ((t == "5"))
63
63
 
                                                                            then invoke(addressFromStringValue(add[0]), "SwapXTNToAssetPairEntry", [add[1]], [AttachedPayment(getAssetBytes(assetId), amount)])
64
64
 
                                                                            else if ((t == "6"))
65
65
 
                                                                                then invoke(addressFromStringValue(add[0]), "SwapAssetToXTNPairEntry", [assetId], [AttachedPayment(getAssetBytes(assetId), amount)])
66
66
 
                                                                                else if ((t == "7"))
67
-
                                                                                    then invoke(addressFromStringValue(add[0]), "withdraw", nil, [AttachedPayment(getAssetBytes(assetId), amount)])
68
-
                                                                                    else nil
67
+
                                                                                    then invoke(addressFromStringValue(add[0]), "withdraw", nil, [AttachedPayment(getAssetBytes(assetId), (amount - 1))])
68
+
                                                                                    else if ((t == "7"))
69
+
                                                                                        then invoke(addressFromStringValue(add[0]), "fulfillOrder", [parseInt(add[2])], [AttachedPayment(getAssetBytes(assetId), amount)])
70
+
                                                                                        else nil
69
71
 
                                                    if ((swap1 == swap1))
70
72
 
                                                        then {
71
73
 
                                                            let nbal = (getBalance(getAssetBytes(add[1])) - bal)
72
74
 
                                                            if ((nbal == nbal))
73
75
 
                                                                then $Tuple2(nbal, add[1])
74
76
 
                                                                else throw("Strict value is not equal to itself.")
75
77
 
                                                            }
76
78
 
                                                        else throw("Strict value is not equal to itself.")
77
79
 
                                                    }
78
80
 
                                                else throw("Strict value is not equal to itself.")
79
81
 
                                            }
80
82
 
                                        else throw("Strict value is not equal to itself.")
81
83
 
                                    }
82
84
 
                                else throw("Strict value is not equal to itself.")
83
85
 
                            }
84
86
 
                        else throw("Strict value is not equal to itself.")
85
87
 
                    }
86
88
 
                else throw("Strict value is not equal to itself.")
87
89
 
            }
88
90
 
        else throw("Strict value is not equal to itself.")
89
91
 
    }
90
92
 
91
93
 
92
94
 
@Callable(i)
93
95
 
func swap (input) = if ((i.caller != caller))
94
96
 
    then throw("!")
95
97
 
    else {
96
98
 
        let a = split_4C(input, ";")
97
99
 
        if ((a == a))
98
100
 
            then {
99
101
 
                let s = $Tuple2(i.payments[0].amount, getAssetString(i.payments[0].assetId))
100
102
 
                if ((s == s))
101
103
 
                    then {
102
104
 
                        let p = i.payments[0].amount
103
105
 
                        if ((p == p))
104
106
 
                            then {
105
107
 
                                let bal = getBalance(i.payments[0].assetId)
106
108
 
                                if ((bal == bal))
107
109
 
                                    then {
108
110
 
                                        let z = {
109
111
 
                                            let $l = a
110
112
 
                                            let $s = size($l)
111
113
 
                                            let $acc0 = s
112
114
 
                                            func $f0_1 ($a,$i) =                                             if (($i >= $s))
113
115
 
                                                then $a
114
116
 
                                                else b($a, $l[$i])
115
117
 
116
118
 
                                            func $f0_2 ($a,$i) =                                             if (($i >= $s))
117
119
 
                                                then $a
118
120
 
                                                else throw("List size exceeds 10")
119
121
 
120
122
 
                                            $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)
121
123
 
                                            }
122
124
 
                                        if ((z == z))
123
125
 
                                            then {
124
126
 
                                                let nbal = (getBalance(i.payments[0].assetId) - bal)
125
127
 
                                                if ((nbal == nbal))
126
128
 
                                                    then if ((nbal > 0))
127
129
 
                                                        then [ScriptTransfer(i.caller, (p + nbal), i.payments[0].assetId)]
128
130
 
                                                        else throw(toString(nbal))
129
131
 
                                                    else throw("Strict value is not equal to itself.")
130
132
 
                                                }
131
133
 
                                            else throw("Strict value is not equal to itself.")
132
134
 
                                        }
133
135
 
                                    else throw("Strict value is not equal to itself.")
134
136
 
                                }
135
137
 
                            else throw("Strict value is not equal to itself.")
136
138
 
                        }
137
139
 
                    else throw("Strict value is not equal to itself.")
138
140
 
                }
139
141
 
            else throw("Strict value is not equal to itself.")
140
142
 
        }
141
143
 
142
144
 
143
145
 
144
146
 
@Callable(i)
145
147
 
func w (input) = if ((i.originCaller != caller))
146
148
 
    then throw("!")
147
149
 
    else if ((i.caller != pool))
148
150
 
        then throw("!")
149
151
 
        else {
150
152
 
            let a = split_4C(input, ";")
151
153
 
            if ((a == a))
152
154
 
                then {
153
155
 
                    let s = $Tuple2(i.payments[0].amount, getAssetString(i.payments[0].assetId))
154
156
 
                    if ((s == s))
155
157
 
                        then {
156
158
 
                            let p = i.payments[0].amount
157
159
 
                            if ((p == p))
158
160
 
                                then {
159
161
 
                                    let bal = getBalance(i.payments[0].assetId)
160
162
 
                                    if ((bal == bal))
161
163
 
                                        then {
162
164
 
                                            let z = {
163
165
 
                                                let $l = a
164
166
 
                                                let $s = size($l)
165
167
 
                                                let $acc0 = s
166
168
 
                                                func $f0_1 ($a,$i) =                                                 if (($i >= $s))
167
169
 
                                                    then $a
168
170
 
                                                    else b($a, $l[$i])
169
171
 
170
172
 
                                                func $f0_2 ($a,$i) =                                                 if (($i >= $s))
171
173
 
                                                    then $a
172
-
                                                    else throw("List size exceeds 10")
174
+
                                                    else throw("List size exceeds 20")
173
175
 
174
-
                                                $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)
176
+
                                                $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($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
175
177
 
                                                }
176
178
 
                                            if ((z == z))
177
179
 
                                                then {
178
180
 
                                                    let nbal = (getBalance(i.payments[0].assetId) - bal)
179
181
 
                                                    if ((nbal == nbal))
180
182
 
                                                        then if ((nbal > 0))
181
183
 
                                                            then [ScriptTransfer(admin, nbal, i.payments[0].assetId), ScriptTransfer(pool, p, i.payments[0].assetId)]
182
184
 
                                                            else throw(toString(nbal))
183
185
 
                                                        else throw("Strict value is not equal to itself.")
184
186
 
                                                    }
185
187
 
                                                else throw("Strict value is not equal to itself.")
186
188
 
                                            }
187
189
 
                                        else throw("Strict value is not equal to itself.")
188
190
 
                                    }
189
191
 
                                else throw("Strict value is not equal to itself.")
190
192
 
                            }
191
193
 
                        else throw("Strict value is not equal to itself.")
192
194
 
                    }
193
195
 
                else throw("Strict value is not equal to itself.")
194
196
 
            }
195
197
 
196
198
 
197
199
 
@Verifier(tx)
198
200
 
func verify () = sigVerify_16Kb(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
199
201
 

github/deemru/w8io/6500d08 
35.57 ms ◑