tx · 28rFLZUpaFTfsrNinwV1sYCSHdfjkzRJbwFLBgUY5ps8

3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao:  -0.01000000 Waves

2021.12.22 18:17 [1845634] smart account 3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "28rFLZUpaFTfsrNinwV1sYCSHdfjkzRJbwFLBgUY5ps8",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1640186234670,
    "version": 1,
    "sender": "3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao",
    "senderPublicKey": "HQmnkZjA2Ehwb2iKXAadqRsrXsHGZChU6WfgmHRsMW8t",
    "proofs": [
        "289893Sk8Sp9DZpnB2z4Ak9g21TVSobktdjgS6d9Ei4mRbrYGfoYoLUk9aGtxfsgCwRpWvwwKAAykG947iyv3MbZ"
    ],
    "script": "base64:AAIFAAAAAAAAAAoIAhIGCgQICAEBAAAABgAAAAAJY29sbGVjdG9yCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMCAAAACWNvbGxlY3RvcgIAAAAAAgAAAAAAAAAABm9yYWNsZQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzAgAAAAZvcmFjbGUCAAAAAAIAAAAAAAAAAAVwb29scwkABLUAAAACCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAGb3JhY2xlAgAAAAVwb29scwIAAAAAAgAAAAEsAQAAAApnZXRBc3NldElkAAAAAQAAAAVhc3NldAMJAAAAAAAAAgUAAAAFYXNzZXQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAABWFzc2V0AQAAAApnZXRCYWxhbmNlAAAAAQAAAAdhc3NldElkBAAAAAckbWF0Y2gwBQAAAAdhc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAVhc3NldAUAAAAHJG1hdGNoMAkAA/AAAAACBQAAAAR0aGlzBQAAAAVhc3NldAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAAFd2F2ZXMFAAAAByRtYXRjaDAICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAZkb1N3YXAAAAAFAAAABHBvb2wAAAAHcGF5bWVudAAAAA1hc3NldFJlY2VpdmVkAAAAC21pblJlY2VpdmVkAAAAC2VzdFJlY2VpdmVkBAAAAAtwb29sQWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEFAAAABHBvb2wCAAAAAAQAAAAPYXNzZXRSZWNlaXZlZElkCQEAAAAKZ2V0QXNzZXRJZAAAAAEFAAAADWFzc2V0UmVjZWl2ZWQDCQAAZwAAAAIAAAAAAAAAAAAFAAAAC21pblJlY2VpdmVkCQAAAgAAAAECAAAAAAMJAABmAAAAAgAAAAAAAAAAAAUAAAALZXN0UmVjZWl2ZWQJAAACAAAAAQIAAAAABAAAAA1iYWxhbmNlQmVmb3JlCQEAAAAKZ2V0QmFsYW5jZQAAAAEFAAAAD2Fzc2V0UmVjZWl2ZWRJZAMJAAAAAAAAAgUAAAANYmFsYW5jZUJlZm9yZQUAAAANYmFsYW5jZUJlZm9yZQQAAAAGcmVzdWx0AwkBAAAAASEAAAABCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAAFcG9vbHMFAAAABHBvb2wJAAACAAAAAQIAAAAABAAAAApwb29sQXNzZXRBCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAALcG9vbEFkZHJlc3MCAAAACkFfYXNzZXRfaWQCAAAAAAQAAAAKcG9vbEFzc2V0QgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAC3Bvb2xBZGRyZXNzAgAAAApCX2Fzc2V0X2lkAgAAAAAEAAAADHBvb2xBc3NldElkQQkBAAAACmdldEFzc2V0SWQAAAABBQAAAApwb29sQXNzZXRBBAAAAAxwb29sQXNzZXRJZEIJAQAAAApnZXRBc3NldElkAAAAAQUAAAAKcG9vbEFzc2V0QgQAAAAMdmVyc2lvbk1ham9yCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAS2AAAAAQkAAZEAAAACCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAtwb29sQWRkcmVzcwIAAAAHdmVyc2lvbgIAAAAAAgAAAAEuAAAAAAAAAAAAAgAAAAAEAAAABGFyZ3MDCQAAAAAAAAIFAAAADHZlcnNpb25NYWpvcgAAAAAAAAAAAQkABEwAAAACBQAAAAttaW5SZWNlaXZlZAUAAAADbmlsAwkAAAAAAAACBQAAAAx2ZXJzaW9uTWFqb3IAAAAAAAAAAAIDCQAAZwAAAAIAAAAAAAAAAAAFAAAAC2VzdFJlY2VpdmVkCQAAAgAAAAECAAAAAAkABEwAAAACBQAAAAtlc3RSZWNlaXZlZAkABEwAAAACBQAAAAttaW5SZWNlaXZlZAUAAAADbmlsCQAAAgAAAAECAAAAAAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAIZXhjaGFuZ2UFAAAABGFyZ3MJAARMAAAAAgUAAAAHcGF5bWVudAUAAAADbmlsAwkAAAAAAAACBQAAAAZyZXN1bHQFAAAABnJlc3VsdAQAAAAIcmVjZWl2ZWQJAABlAAAAAgkBAAAACmdldEJhbGFuY2UAAAABBQAAAA9hc3NldFJlY2VpdmVkSWQFAAAADWJhbGFuY2VCZWZvcmUDCQAAAAAAAAIFAAAACHJlY2VpdmVkBQAAAAhyZWNlaXZlZAkABRQAAAACBQAAAA1iYWxhbmNlQmVmb3JlBQAAAAhyZWNlaXZlZAkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAEAAAADaW52AQAAAARzd2FwAAAABAAAAARwb29sAAAADmFzc2V0VG9SZWNlaXZlAAAAC21pblJlY2VpdmVkAAAAC2VzdFJlY2VpdmVkBAAAAANwbXQDCQAAZgAAAAIJAAGQAAAAAQgFAAAAA2ludgAAAAhwYXltZW50cwAAAAAAAAAAAAkAAZEAAAACCAUAAAADaW52AAAACHBheW1lbnRzAAAAAAAAAAAACQAAAgAAAAECAAAAAAQAAAAPYXNzZXRSZWNlaXZlZElkCQEAAAAKZ2V0QXNzZXRJZAAAAAEFAAAADmFzc2V0VG9SZWNlaXZlCgEAAAAJZGVkdWN0RmVlAAAAAQAAAAZhbW91bnQJAABrAAAAAwUAAAAGYW1vdW50AAAAAAAAAAABAAAAAAAAAAPoAwkAAGcAAAACAAAAAAAAAAAABQAAAAttaW5SZWNlaXZlZAkAAAIAAAABAgAAAAAEAAAACyR0MDI1NzQyNzc5BAAAAAckbWF0Y2gwCQEAAAAGZG9Td2FwAAAABQUAAAAEcG9vbAUAAAADcG10BQAAAA5hc3NldFRvUmVjZWl2ZQUAAAALbWluUmVjZWl2ZWQFAAAAC2VzdFJlY2VpdmVkAwMDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8xAgAAAANJbnQJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzICAAAAA0ludAcJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAKKEludCwgSW50KQcEAAAABmJlZm9yZQgFAAAAByRtYXRjaDAAAAACXzEEAAAABmluY29tZQgFAAAAByRtYXRjaDAAAAACXzIJAAUUAAAAAgUAAAAGYmVmb3JlBQAAAAZpbmNvbWUJAAACAAAAAQIAAAAABAAAAA1iYWxhbmNlQmVmb3JlCAUAAAALJHQwMjU3NDI3NzkAAAACXzEEAAAACHJlY2VpdmVkCAUAAAALJHQwMjU3NDI3NzkAAAACXzIDCQAAZwAAAAIAAAAAAAAAAAAFAAAACHJlY2VpdmVkCQAAAgAAAAECAAAAAAQAAAADZmVlCQEAAAAJZGVkdWN0RmVlAAAAAQUAAAAIcmVjZWl2ZWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAA2ludgAAAAZjYWxsZXIJAABlAAAAAgUAAAAIcmVjZWl2ZWQFAAAAA2ZlZQUAAAAPYXNzZXRSZWNlaXZlZElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAACWNvbGxlY3RvcgUAAAADZmVlBQAAAA9hc3NldFJlY2VpdmVkSWQFAAAAA25pbAAAAADorcBQ",
    "chainId": 84,
    "height": 1845634,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Fx4EaN274qJ7Y6v7kuJArMNcuzi1y1kfouCQeq7MzKCa
Next: E5mCvSeSZrZS7Giay7LM2G19PqQdGWpovMSdCzJcbVs8

Diff: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let collector = Address(base58'3NAg88thAKj5n9SNE3PkyBj1e8bBM2k8qun')
4
+
let collector = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, "collector"), "")), "")
5
5
 
6
6
 
let oracle = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, "oracle"), "")), "")
7
7
 
21
21
 
        throw("Match error")
22
22
 
}
23
23
 
24
-
25
-
let feeAssets = {
26
-
    let assets = split(valueOrErrorMessage(getString(this, "fee-assets"), ""), ",")
27
-
    func toAssetIds (acc,assetStr) =     (acc :+ getAssetId(assetStr))
28
-
29
-
    let $l = assets
30
-
    let $s = size($l)
31
-
    let $acc0 = nil
32
-
    func 1 ($a,$i) =     if (($i >= $s))
33
-
        then $a
34
-
        else toAssetIds($a, $l[$i])
35
-
36
-
    func 2 ($a,$i) =     if (($i >= $s))
37
-
        then $a
38
-
        else throw("List size exceeds 10")
39
-
40
-
    2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
41
-
    }
42
24
 
43
25
 
func doSwap (pool,payment,assetReceived,minReceived,estReceived) = {
44
26
 
    let poolAddress = valueOrErrorMessage(addressFromString(pool), "")
93
75
 
    if ((0 >= minReceived))
94
76
 
        then throw("")
95
77
 
        else {
96
-
            let $t028513056 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
78
+
            let $t025742779 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
97
79
 
                case _ => 
98
80
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
99
81
 
                        then $isInstanceOf($match0._2, "Int")
107
89
 
                            }
108
90
 
                        else throw("")
109
91
 
            }
110
-
            let balanceBefore = $t028513056._1
111
-
            let received = $t028513056._2
92
+
            let balanceBefore = $t025742779._1
93
+
            let received = $t025742779._2
112
94
 
            if ((0 >= received))
113
95
 
                then throw("")
114
96
 
                else {
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let collector = Address(base58'3NAg88thAKj5n9SNE3PkyBj1e8bBM2k8qun')
4
+
let collector = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, "collector"), "")), "")
5
5
 
6
6
 
let oracle = valueOrErrorMessage(addressFromString(valueOrErrorMessage(getString(this, "oracle"), "")), "")
7
7
 
8
8
 
let pools = split(valueOrErrorMessage(getString(oracle, "pools"), ""), ",")
9
9
 
10
10
 
func getAssetId (asset) = if ((asset == "WAVES"))
11
11
 
    then unit
12
12
 
    else fromBase58String(asset)
13
13
 
14
14
 
15
15
 
func getBalance (assetId) = match assetId {
16
16
 
    case asset: ByteVector => 
17
17
 
        assetBalance(this, asset)
18
18
 
    case waves: Unit => 
19
19
 
        wavesBalance(this).available
20
20
 
    case _ => 
21
21
 
        throw("Match error")
22
22
 
}
23
23
 
24
-
25
-
let feeAssets = {
26
-
    let assets = split(valueOrErrorMessage(getString(this, "fee-assets"), ""), ",")
27
-
    func toAssetIds (acc,assetStr) =     (acc :+ getAssetId(assetStr))
28
-
29
-
    let $l = assets
30
-
    let $s = size($l)
31
-
    let $acc0 = nil
32
-
    func 1 ($a,$i) =     if (($i >= $s))
33
-
        then $a
34
-
        else toAssetIds($a, $l[$i])
35
-
36
-
    func 2 ($a,$i) =     if (($i >= $s))
37
-
        then $a
38
-
        else throw("List size exceeds 10")
39
-
40
-
    2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
41
-
    }
42
24
 
43
25
 
func doSwap (pool,payment,assetReceived,minReceived,estReceived) = {
44
26
 
    let poolAddress = valueOrErrorMessage(addressFromString(pool), "")
45
27
 
    let assetReceivedId = getAssetId(assetReceived)
46
28
 
    if ((0 >= minReceived))
47
29
 
        then throw("")
48
30
 
        else if ((0 > estReceived))
49
31
 
            then throw("")
50
32
 
            else {
51
33
 
                let balanceBefore = getBalance(assetReceivedId)
52
34
 
                if ((balanceBefore == balanceBefore))
53
35
 
                    then {
54
36
 
                        let result = if (!(containsElement(pools, pool)))
55
37
 
                            then throw("")
56
38
 
                            else {
57
39
 
                                let poolAssetA = valueOrErrorMessage(getString(poolAddress, "A_asset_id"), "")
58
40
 
                                let poolAssetB = valueOrErrorMessage(getString(poolAddress, "B_asset_id"), "")
59
41
 
                                let poolAssetIdA = getAssetId(poolAssetA)
60
42
 
                                let poolAssetIdB = getAssetId(poolAssetB)
61
43
 
                                let versionMajor = valueOrErrorMessage(parseInt(split(valueOrErrorMessage(getString(poolAddress, "version"), ""), ".")[0]), "")
62
44
 
                                let args = if ((versionMajor == 1))
63
45
 
                                    then [minReceived]
64
46
 
                                    else if ((versionMajor == 2))
65
47
 
                                        then if ((0 >= estReceived))
66
48
 
                                            then throw("")
67
49
 
                                            else [estReceived, minReceived]
68
50
 
                                        else throw("")
69
51
 
                                invoke(poolAddress, "exchange", args, [payment])
70
52
 
                                }
71
53
 
                        if ((result == result))
72
54
 
                            then {
73
55
 
                                let received = (getBalance(assetReceivedId) - balanceBefore)
74
56
 
                                if ((received == received))
75
57
 
                                    then $Tuple2(balanceBefore, received)
76
58
 
                                    else throw("Strict value is not equal to itself.")
77
59
 
                                }
78
60
 
                            else throw("Strict value is not equal to itself.")
79
61
 
                        }
80
62
 
                    else throw("Strict value is not equal to itself.")
81
63
 
                }
82
64
 
    }
83
65
 
84
66
 
85
67
 
@Callable(inv)
86
68
 
func swap (pool,assetToReceive,minReceived,estReceived) = {
87
69
 
    let pmt = if ((size(inv.payments) > 0))
88
70
 
        then inv.payments[0]
89
71
 
        else throw("")
90
72
 
    let assetReceivedId = getAssetId(assetToReceive)
91
73
 
    func deductFee (amount) =     fraction(amount, 1, 1000)
92
74
 
93
75
 
    if ((0 >= minReceived))
94
76
 
        then throw("")
95
77
 
        else {
96
-
            let $t028513056 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
78
+
            let $t025742779 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
97
79
 
                case _ => 
98
80
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
99
81
 
                        then $isInstanceOf($match0._2, "Int")
100
82
 
                        else false)
101
83
 
                        then $isInstanceOf($match0, "(Int, Int)")
102
84
 
                        else false)
103
85
 
                        then {
104
86
 
                            let before = $match0._1
105
87
 
                            let income = $match0._2
106
88
 
                            $Tuple2(before, income)
107
89
 
                            }
108
90
 
                        else throw("")
109
91
 
            }
110
-
            let balanceBefore = $t028513056._1
111
-
            let received = $t028513056._2
92
+
            let balanceBefore = $t025742779._1
93
+
            let received = $t025742779._2
112
94
 
            if ((0 >= received))
113
95
 
                then throw("")
114
96
 
                else {
115
97
 
                    let fee = deductFee(received)
116
98
 
[ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
117
99
 
                    }
118
100
 
            }
119
101
 
    }
120
102
 
121
103
 

github/deemru/w8io/873ac7e 
27.71 ms ◑