tx · hJc2yCLUiTiqXXmM6Yfdxcx3mkVCU52bBFs721pry4S

3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao:  -0.01000000 Waves

2021.12.22 17:30 [1845590] smart account 3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "hJc2yCLUiTiqXXmM6Yfdxcx3mkVCU52bBFs721pry4S",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1640183415693,
    "version": 1,
    "sender": "3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao",
    "senderPublicKey": "HQmnkZjA2Ehwb2iKXAadqRsrXsHGZChU6WfgmHRsMW8t",
    "proofs": [
        "3NftwZr5wAeuDHSdiep2rtz2TKkghvhivh5Taf8rCWGdnKnst17uAimjPfSb2v8g2EBJj9dcGsoRSk32FAhXdQGb"
    ],
    "script": "base64:AAIFAAAAAAAAAAoIAhIGCgQICAEBAAAABwAAAAAJY29sbGVjdG9yCQEAAAAHQWRkcmVzcwAAAAEBAAAAAAAAAAAGb3JhY2xlCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMCAAAABm9yYWNsZQIAAAAAAgAAAAAAAAAABXBvb2xzCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAZvcmFjbGUCAAAABXBvb2xzAgAAAAACAAAAASwBAAAACmdldEFzc2V0SWQAAAABAAAABWFzc2V0AwkAAAAAAAACBQAAAAVhc3NldAIAAAAFV0FWRVMFAAAABHVuaXQJAAJZAAAAAQUAAAAFYXNzZXQBAAAACmdldEJhbGFuY2UAAAABAAAAB2Fzc2V0SWQEAAAAByRtYXRjaDAFAAAAB2Fzc2V0SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAABWFzc2V0BQAAAAckbWF0Y2gwCQAD8AAAAAIFAAAABHRoaXMFAAAABWFzc2V0AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAARVbml0BAAAAAV3YXZlcwUAAAAHJG1hdGNoMAgJAAPvAAAAAQUAAAAEdGhpcwAAAAlhdmFpbGFibGUJAAACAAAAAQIAAAALTWF0Y2ggZXJyb3IAAAAACWZlZUFzc2V0cwQAAAAGYXNzZXRzCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzAgAAAApmZWUtYXNzZXRzAgAAAAACAAAAASwKAQAAAAp0b0Fzc2V0SWRzAAAAAgAAAANhY2MAAAAIYXNzZXRTdHIJAARNAAAAAgUAAAADYWNjCQEAAAAKZ2V0QXNzZXRJZAAAAAEFAAAACGFzc2V0U3RyCgAAAAACJGwFAAAABmFzc2V0cwoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAKdG9Bc3NldElkcwAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAAATIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoBAAAABmRvU3dhcAAAAAUAAAAEcG9vbAAAAAdwYXltZW50AAAADWFzc2V0UmVjZWl2ZWQAAAALbWluUmVjZWl2ZWQAAAALZXN0UmVjZWl2ZWQEAAAAC3Bvb2xBZGRyZXNzCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQUAAAAEcG9vbAIAAAAABAAAAA9hc3NldFJlY2VpdmVkSWQJAQAAAApnZXRBc3NldElkAAAAAQUAAAANYXNzZXRSZWNlaXZlZAMJAABnAAAAAgAAAAAAAAAAAAUAAAALbWluUmVjZWl2ZWQJAAACAAAAAQIAAAAAAwkAAGYAAAACAAAAAAAAAAAABQAAAAtlc3RSZWNlaXZlZAkAAAIAAAABAgAAAAAEAAAADWJhbGFuY2VCZWZvcmUJAQAAAApnZXRCYWxhbmNlAAAAAQUAAAAPYXNzZXRSZWNlaXZlZElkAwkAAAAAAAACBQAAAA1iYWxhbmNlQmVmb3JlBQAAAA1iYWxhbmNlQmVmb3JlBAAAAAZyZXN1bHQDCQEAAAABIQAAAAEJAQAAAA9jb250YWluc0VsZW1lbnQAAAACBQAAAAVwb29scwUAAAAEcG9vbAkAAAIAAAABAgAAAAAEAAAACnBvb2xBc3NldEEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAtwb29sQWRkcmVzcwIAAAAKQV9hc3NldF9pZAIAAAAABAAAAApwb29sQXNzZXRCCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAALcG9vbEFkZHJlc3MCAAAACkJfYXNzZXRfaWQCAAAAAAQAAAAMcG9vbEFzc2V0SWRBCQEAAAAKZ2V0QXNzZXRJZAAAAAEFAAAACnBvb2xBc3NldEEEAAAADHBvb2xBc3NldElkQgkBAAAACmdldEFzc2V0SWQAAAABBQAAAApwb29sQXNzZXRCBAAAAAx2ZXJzaW9uTWFqb3IJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABLYAAAABCQABkQAAAAIJAAS1AAAAAgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAC3Bvb2xBZGRyZXNzAgAAAAd2ZXJzaW9uAgAAAAACAAAAAS4AAAAAAAAAAAACAAAAAAQAAAAEYXJncwMJAAAAAAAAAgUAAAAMdmVyc2lvbk1ham9yAAAAAAAAAAABCQAETAAAAAIFAAAAC21pblJlY2VpdmVkBQAAAANuaWwDCQAAAAAAAAIFAAAADHZlcnNpb25NYWpvcgAAAAAAAAAAAgMJAABnAAAAAgAAAAAAAAAAAAUAAAALZXN0UmVjZWl2ZWQJAAACAAAAAQIAAAAACQAETAAAAAIFAAAAC2VzdFJlY2VpdmVkCQAETAAAAAIFAAAAC21pblJlY2VpdmVkBQAAAANuaWwJAAACAAAAAQIAAAAACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAAhleGNoYW5nZQUAAAAEYXJncwkABEwAAAACBQAAAAdwYXltZW50BQAAAANuaWwDCQAAAAAAAAIFAAAABnJlc3VsdAUAAAAGcmVzdWx0BAAAAAhyZWNlaXZlZAkAAGUAAAACCQEAAAAKZ2V0QmFsYW5jZQAAAAEFAAAAD2Fzc2V0UmVjZWl2ZWRJZAUAAAANYmFsYW5jZUJlZm9yZQMJAAAAAAAAAgUAAAAIcmVjZWl2ZWQFAAAACHJlY2VpdmVkCQAFFAAAAAIFAAAADWJhbGFuY2VCZWZvcmUFAAAACHJlY2VpdmVkCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAAAAAQAAAANpbnYBAAAABHN3YXAAAAAEAAAABHBvb2wAAAAOYXNzZXRUb1JlY2VpdmUAAAALbWluUmVjZWl2ZWQAAAALZXN0UmVjZWl2ZWQEAAAAA3BtdAMJAABmAAAAAgkAAZAAAAABCAUAAAADaW52AAAACHBheW1lbnRzAAAAAAAAAAAACQABkQAAAAIIBQAAAANpbnYAAAAIcGF5bWVudHMAAAAAAAAAAAAJAAACAAAAAQIAAAAABAAAAA9hc3NldFJlY2VpdmVkSWQJAQAAAApnZXRBc3NldElkAAAAAQUAAAAOYXNzZXRUb1JlY2VpdmUKAQAAAAlkZWR1Y3RGZWUAAAABAAAABmFtb3VudAkAAGsAAAADBQAAAAZhbW91bnQAAAAAAAAAAAEAAAAAAAAAA+gDCQAAZwAAAAIAAAAAAAAAAAAFAAAAC21pblJlY2VpdmVkCQAAAgAAAAECAAAAAAQAAAALJHQwMjgxNjMwMjEEAAAAByRtYXRjaDAJAQAAAAZkb1N3YXAAAAAFBQAAAARwb29sBQAAAANwbXQFAAAADmFzc2V0VG9SZWNlaXZlBQAAAAttaW5SZWNlaXZlZAUAAAALZXN0UmVjZWl2ZWQDAwMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzECAAAAA0ludAkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfMgIAAAADSW50BwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAooSW50LCBJbnQpBwQAAAAGYmVmb3JlCAUAAAAHJG1hdGNoMAAAAAJfMQQAAAAGaW5jb21lCAUAAAAHJG1hdGNoMAAAAAJfMgkABRQAAAACBQAAAAZiZWZvcmUFAAAABmluY29tZQkAAAIAAAABAgAAAAAEAAAADWJhbGFuY2VCZWZvcmUIBQAAAAskdDAyODE2MzAyMQAAAAJfMQQAAAAIcmVjZWl2ZWQIBQAAAAskdDAyODE2MzAyMQAAAAJfMgMJAABnAAAAAgAAAAAAAAAAAAUAAAAIcmVjZWl2ZWQJAAACAAAAAQIAAAAABAAAAANmZWUJAQAAAAlkZWR1Y3RGZWUAAAABBQAAAAhyZWNlaXZlZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAADaW52AAAABmNhbGxlcgkAAGUAAAACBQAAAAhyZWNlaXZlZAUAAAADZmVlBQAAAA9hc3NldFJlY2VpdmVkSWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAJY29sbGVjdG9yBQAAAANmZWUFAAAAD2Fzc2V0UmVjZWl2ZWRJZAUAAAADbmlsAAAAAFy0SgI=",
    "chainId": 84,
    "height": 1845590,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9fj3ZmTGFxyvvQvRMp6zCJbStp2HExHRHauZGsuUG2MT
Next: Fx4EaN274qJ7Y6v7kuJArMNcuzi1y1kfouCQeq7MzKCa

Diff: 
Old
New
Differences
88
88
 
        then inv.payments[0]
89
89
 
        else throw("")
90
90
 
    let assetReceivedId = getAssetId(assetToReceive)
91
-
    let isFeeFromPayment = {
92
-
        let indexAssetFrom = valueOrElse(indexOf(feeAssets, pmt.assetId), -1)
93
-
        let indexAssetTo = valueOrElse(indexOf(feeAssets, assetReceivedId), -1)
94
-
        (indexAssetTo > indexAssetFrom)
95
-
        }
96
91
 
    func deductFee (amount) =     fraction(amount, 1, 1000)
97
92
 
98
93
 
    if ((0 >= minReceived))
99
94
 
        then throw("")
100
95
 
        else {
101
-
            let from = if (isFeeFromPayment)
102
-
                then AttachedPayment(pmt.assetId, deductFee(pmt.amount))
103
-
                else pmt
104
-
            let $t031513356 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
96
+
            let $t028163021 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
105
97
 
                case _ => 
106
98
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
107
99
 
                        then $isInstanceOf($match0._2, "Int")
115
107
 
                            }
116
108
 
                        else throw("")
117
109
 
            }
118
-
            let balanceBefore = $t031513356._1
119
-
            let received = $t031513356._2
110
+
            let balanceBefore = $t028163021._1
111
+
            let received = $t028163021._2
120
112
 
            if ((0 >= received))
121
113
 
                then throw("")
122
-
                else if (isFeeFromPayment)
123
-
                    then [ScriptTransfer(inv.caller, received, assetReceivedId), ScriptTransfer(collector, (pmt.amount - from.amount), from.assetId)]
124
-
                    else {
125
-
                        let fee = deductFee(received)
114
+
                else {
115
+
                    let fee = deductFee(received)
126
116
 
[ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
127
-
                        }
117
+
                    }
128
118
 
            }
129
119
 
    }
130
120
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let collector = Address(base58'')
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
24
 
25
25
 
let feeAssets = {
26
26
 
    let assets = split(valueOrErrorMessage(getString(this, "fee-assets"), ""), ",")
27
27
 
    func toAssetIds (acc,assetStr) =     (acc :+ getAssetId(assetStr))
28
28
 
29
29
 
    let $l = assets
30
30
 
    let $s = size($l)
31
31
 
    let $acc0 = nil
32
32
 
    func 1 ($a,$i) =     if (($i >= $s))
33
33
 
        then $a
34
34
 
        else toAssetIds($a, $l[$i])
35
35
 
36
36
 
    func 2 ($a,$i) =     if (($i >= $s))
37
37
 
        then $a
38
38
 
        else throw("List size exceeds 10")
39
39
 
40
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
41
 
    }
42
42
 
43
43
 
func doSwap (pool,payment,assetReceived,minReceived,estReceived) = {
44
44
 
    let poolAddress = valueOrErrorMessage(addressFromString(pool), "")
45
45
 
    let assetReceivedId = getAssetId(assetReceived)
46
46
 
    if ((0 >= minReceived))
47
47
 
        then throw("")
48
48
 
        else if ((0 > estReceived))
49
49
 
            then throw("")
50
50
 
            else {
51
51
 
                let balanceBefore = getBalance(assetReceivedId)
52
52
 
                if ((balanceBefore == balanceBefore))
53
53
 
                    then {
54
54
 
                        let result = if (!(containsElement(pools, pool)))
55
55
 
                            then throw("")
56
56
 
                            else {
57
57
 
                                let poolAssetA = valueOrErrorMessage(getString(poolAddress, "A_asset_id"), "")
58
58
 
                                let poolAssetB = valueOrErrorMessage(getString(poolAddress, "B_asset_id"), "")
59
59
 
                                let poolAssetIdA = getAssetId(poolAssetA)
60
60
 
                                let poolAssetIdB = getAssetId(poolAssetB)
61
61
 
                                let versionMajor = valueOrErrorMessage(parseInt(split(valueOrErrorMessage(getString(poolAddress, "version"), ""), ".")[0]), "")
62
62
 
                                let args = if ((versionMajor == 1))
63
63
 
                                    then [minReceived]
64
64
 
                                    else if ((versionMajor == 2))
65
65
 
                                        then if ((0 >= estReceived))
66
66
 
                                            then throw("")
67
67
 
                                            else [estReceived, minReceived]
68
68
 
                                        else throw("")
69
69
 
                                invoke(poolAddress, "exchange", args, [payment])
70
70
 
                                }
71
71
 
                        if ((result == result))
72
72
 
                            then {
73
73
 
                                let received = (getBalance(assetReceivedId) - balanceBefore)
74
74
 
                                if ((received == received))
75
75
 
                                    then $Tuple2(balanceBefore, received)
76
76
 
                                    else throw("Strict value is not equal to itself.")
77
77
 
                                }
78
78
 
                            else throw("Strict value is not equal to itself.")
79
79
 
                        }
80
80
 
                    else throw("Strict value is not equal to itself.")
81
81
 
                }
82
82
 
    }
83
83
 
84
84
 
85
85
 
@Callable(inv)
86
86
 
func swap (pool,assetToReceive,minReceived,estReceived) = {
87
87
 
    let pmt = if ((size(inv.payments) > 0))
88
88
 
        then inv.payments[0]
89
89
 
        else throw("")
90
90
 
    let assetReceivedId = getAssetId(assetToReceive)
91
-
    let isFeeFromPayment = {
92
-
        let indexAssetFrom = valueOrElse(indexOf(feeAssets, pmt.assetId), -1)
93
-
        let indexAssetTo = valueOrElse(indexOf(feeAssets, assetReceivedId), -1)
94
-
        (indexAssetTo > indexAssetFrom)
95
-
        }
96
91
 
    func deductFee (amount) =     fraction(amount, 1, 1000)
97
92
 
98
93
 
    if ((0 >= minReceived))
99
94
 
        then throw("")
100
95
 
        else {
101
-
            let from = if (isFeeFromPayment)
102
-
                then AttachedPayment(pmt.assetId, deductFee(pmt.amount))
103
-
                else pmt
104
-
            let $t031513356 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
96
+
            let $t028163021 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
105
97
 
                case _ => 
106
98
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
107
99
 
                        then $isInstanceOf($match0._2, "Int")
108
100
 
                        else false)
109
101
 
                        then $isInstanceOf($match0, "(Int, Int)")
110
102
 
                        else false)
111
103
 
                        then {
112
104
 
                            let before = $match0._1
113
105
 
                            let income = $match0._2
114
106
 
                            $Tuple2(before, income)
115
107
 
                            }
116
108
 
                        else throw("")
117
109
 
            }
118
-
            let balanceBefore = $t031513356._1
119
-
            let received = $t031513356._2
110
+
            let balanceBefore = $t028163021._1
111
+
            let received = $t028163021._2
120
112
 
            if ((0 >= received))
121
113
 
                then throw("")
122
-
                else if (isFeeFromPayment)
123
-
                    then [ScriptTransfer(inv.caller, received, assetReceivedId), ScriptTransfer(collector, (pmt.amount - from.amount), from.assetId)]
124
-
                    else {
125
-
                        let fee = deductFee(received)
114
+
                else {
115
+
                    let fee = deductFee(received)
126
116
 
[ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
127
-
                        }
117
+
                    }
128
118
 
            }
129
119
 
    }
130
120
 
131
121
 

github/deemru/w8io/169f3d6 
43.24 ms ◑