tx · FoSZnYRKBgsHP6hELgLV7b2NtYV84nbUBa3siPcpkXaS

3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao:  -0.01000000 Waves

2021.12.22 19:46 [1845722] smart account 3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FoSZnYRKBgsHP6hELgLV7b2NtYV84nbUBa3siPcpkXaS",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1640191577478,
    "version": 1,
    "sender": "3MvdzbvEZLHEE3EXHXxaRQjgpNqq28733ao",
    "senderPublicKey": "HQmnkZjA2Ehwb2iKXAadqRsrXsHGZChU6WfgmHRsMW8t",
    "proofs": [
        "KxV9Qvn44pb4GbnFNVzd31PPvaXjKvnxqD7J3pKDDxpJ9cKX6zk4e4qYJG1PQvWxKZJYbaLLY2mecLJBjEMCxrS"
    ],
    "script": "base64:AAIFAAAAAAAAAAoIAhIGCgQICAEBAAAACAAAAAAJY29sbGVjdG9yCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAABHRoaXMCAAAACWNvbGxlY3RvcgIAAAAAAgAAAAAAAAAABm9yYWNsZQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzAgAAAAZvcmFjbGUCAAAAAAIAAAAAAAAAAAVwb29scwkABLUAAAACCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAGb3JhY2xlAgAAAAVwb29scwIAAAAAAgAAAAEsAQAAAApnZXRBc3NldElkAAAAAQAAAAVhc3NldAMJAAAAAAAAAgUAAAAFYXNzZXQCAAAABVdBVkVTBQAAAAR1bml0CQACWQAAAAEFAAAABWFzc2V0AQAAAApnZXRCYWxhbmNlAAAAAQAAAAdhc3NldElkBAAAAAckbWF0Y2gwBQAAAAdhc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAVhc3NldAUAAAAHJG1hdGNoMAkAA/AAAAACBQAAAAR0aGlzBQAAAAVhc3NldAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAAFd2F2ZXMFAAAAByRtYXRjaDAICQAD7wAAAAEFAAAABHRoaXMAAAAJYXZhaWxhYmxlCQAAAgAAAAECAAAAC01hdGNoIGVycm9yAQAAAAlkZWR1Y3RGZWUAAAABAAAABmFtb3VudAkAAGsAAAADBQAAAAZhbW91bnQAAAAAAAAAAAEAAAAAAAAAA+gBAAAADWRlZHVjdEZsYXRGZWUAAAABAAAABmFtb3VudAkAAGsAAAADBQAAAAZhbW91bnQAAAAAAAAAAAEAAAAAAAAAJxABAAAABmRvU3dhcAAAAAUAAAAEcG9vbAAAAAdwYXltZW50AAAADWFzc2V0UmVjZWl2ZWQAAAALbWluUmVjZWl2ZWQAAAALZXN0UmVjZWl2ZWQEAAAAC3Bvb2xBZGRyZXNzCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQmAAAAAQUAAAAEcG9vbAIAAAAABAAAAA9hc3NldFJlY2VpdmVkSWQJAQAAAApnZXRBc3NldElkAAAAAQUAAAANYXNzZXRSZWNlaXZlZAMJAABnAAAAAgAAAAAAAAAAAAUAAAALbWluUmVjZWl2ZWQJAAACAAAAAQIAAAAAAwkAAGYAAAACAAAAAAAAAAAABQAAAAtlc3RSZWNlaXZlZAkAAAIAAAABAgAAAAAEAAAADWJhbGFuY2VCZWZvcmUJAQAAAApnZXRCYWxhbmNlAAAAAQUAAAAPYXNzZXRSZWNlaXZlZElkAwkAAAAAAAACBQAAAA1iYWxhbmNlQmVmb3JlBQAAAA1iYWxhbmNlQmVmb3JlAwkBAAAAASEAAAABCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAAFcG9vbHMFAAAABHBvb2wJAAACAAAAAQIAAAAABAAAAApwb29sQXNzZXRBCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAALcG9vbEFkZHJlc3MCAAAACkFfYXNzZXRfaWQCAAAAAAQAAAAKcG9vbEFzc2V0QgkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAC3Bvb2xBZGRyZXNzAgAAAApCX2Fzc2V0X2lkAgAAAAAEAAAADHBvb2xBc3NldElkQQkBAAAACmdldEFzc2V0SWQAAAABBQAAAApwb29sQXNzZXRBBAAAAAxwb29sQXNzZXRJZEIJAQAAAApnZXRBc3NldElkAAAAAQUAAAAKcG9vbEFzc2V0QgQAAAAMdmVyc2lvbk1ham9yCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAS2AAAAAQkAAZEAAAACCQAEtQAAAAIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAtwb29sQWRkcmVzcwIAAAAHdmVyc2lvbgIAAAAAAgAAAAEuAAAAAAAAAAAAAgAAAAAEAAAABGFyZ3MDCQAAAAAAAAIFAAAADHZlcnNpb25NYWpvcgAAAAAAAAAAAQkABEwAAAACCQAAZAAAAAIFAAAAC21pblJlY2VpdmVkCQEAAAAJZGVkdWN0RmVlAAAAAQUAAAALbWluUmVjZWl2ZWQFAAAAA25pbAMJAAAAAAAAAgUAAAAMdmVyc2lvbk1ham9yAAAAAAAAAAACAwkAAGcAAAACAAAAAAAAAAAABQAAAAtlc3RSZWNlaXZlZAkAAAIAAAABAgAAAAAJAARMAAAAAgkAAGQAAAACBQAAAAtlc3RSZWNlaXZlZAkBAAAADWRlZHVjdEZsYXRGZWUAAAABBQAAAAtlc3RSZWNlaXZlZAkABEwAAAACCQAAZAAAAAIFAAAAC21pblJlY2VpdmVkCQEAAAAJZGVkdWN0RmVlAAAAAQUAAAALbWluUmVjZWl2ZWQFAAAAA25pbAkAAAIAAAABAgAAAAAEAAAABnJlc3VsdAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAIZXhjaGFuZ2UFAAAABGFyZ3MJAARMAAAAAgUAAAAHcGF5bWVudAUAAAADbmlsAwkAAAAAAAACBQAAAAZyZXN1bHQFAAAABnJlc3VsdAQAAAAIcmVjZWl2ZWQJAABlAAAAAgkBAAAACmdldEJhbGFuY2UAAAABBQAAAA9hc3NldFJlY2VpdmVkSWQFAAAADWJhbGFuY2VCZWZvcmUDCQAAAAAAAAIFAAAACHJlY2VpdmVkBQAAAAhyZWNlaXZlZAQAAAADZmVlAwkAAAAAAAACBQAAAAx2ZXJzaW9uTWFqb3IAAAAAAAAAAAEJAQAAAAlkZWR1Y3RGZWUAAAABBQAAAAhyZWNlaXZlZAMJAAAAAAAAAgUAAAAMdmVyc2lvbk1ham9yAAAAAAAAAAACCQEAAAANZGVkdWN0RmxhdEZlZQAAAAEFAAAACHJlY2VpdmVkCQAAAgAAAAECAAAAAAMJAABnAAAAAgAAAAAAAAAAAAUAAAAIcmVjZWl2ZWQJAAACAAAAAQIAAAAACQAFFQAAAAMFAAAADWJhbGFuY2VCZWZvcmUFAAAACHJlY2VpdmVkBQAAAANmZWUJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABAAAAA2ludgEAAAAEc3dhcAAAAAQAAAAEcG9vbAAAAA5hc3NldFRvUmVjZWl2ZQAAAAttaW5SZWNlaXZlZAAAAAtlc3RSZWNlaXZlZAQAAAADcG10AwkAAGYAAAACCQABkAAAAAEIBQAAAANpbnYAAAAIcGF5bWVudHMAAAAAAAAAAAAJAAGRAAAAAggFAAAAA2ludgAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABAgAAAAAEAAAAD2Fzc2V0UmVjZWl2ZWRJZAkBAAAACmdldEFzc2V0SWQAAAABBQAAAA5hc3NldFRvUmVjZWl2ZQMJAABnAAAAAgAAAAAAAAAAAAUAAAALbWluUmVjZWl2ZWQJAAACAAAAAQIAAAAABAAAAAskdDAyODU5MzA4NAQAAAAHJG1hdGNoMAkBAAAABmRvU3dhcAAAAAUFAAAABHBvb2wFAAAAA3BtdAUAAAAOYXNzZXRUb1JlY2VpdmUFAAAAC21pblJlY2VpdmVkBQAAAAtlc3RSZWNlaXZlZAMDAwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfMQIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfMgIAAAADSW50CQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8zAgAAAANJbnQHBwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA8oSW50LCBJbnQsIEludCkHBAAAAAZiZWZvcmUIBQAAAAckbWF0Y2gwAAAAAl8xBAAAAAZpbmNvbWUIBQAAAAckbWF0Y2gwAAAAAl8yBAAAAANmZWUIBQAAAAckbWF0Y2gwAAAAAl8zCQAFFQAAAAMFAAAABmJlZm9yZQUAAAAGaW5jb21lBQAAAANmZWUJAAACAAAAAQIAAAAABAAAAA1iYWxhbmNlQmVmb3JlCAUAAAALJHQwMjg1OTMwODQAAAACXzEEAAAACHJlY2VpdmVkCAUAAAALJHQwMjg1OTMwODQAAAACXzIEAAAAA2ZlZQgFAAAACyR0MDI4NTkzMDg0AAAAAl8zCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAANpbnYAAAAGY2FsbGVyCQAAZQAAAAIFAAAACHJlY2VpdmVkBQAAAANmZWUFAAAAD2Fzc2V0UmVjZWl2ZWRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAljb2xsZWN0b3IFAAAAA2ZlZQUAAAAPYXNzZXRSZWNlaXZlZElkBQAAAANuaWwAAAAAOP/EJw==",
    "chainId": 84,
    "height": 1845722,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FxjNe2pKqF72t9wPXdKqP31ovr2p7hjn4JqkJkMhYyBd
Next: EAFn41YHcdH9ZciASRWoGSGcETaejUiRe4v8ArGTEtvb

Diff: 
Old
New
Differences
64
64
 
                                                else if ((versionMajor == 2))
65
65
 
                                                    then deductFlatFee(received)
66
66
 
                                                    else throw("")
67
-
                                            $Tuple3(balanceBefore, received, fee)
67
+
                                            if ((0 >= received))
68
+
                                                then throw("")
69
+
                                                else $Tuple3(balanceBefore, received, fee)
68
70
 
                                            }
69
71
 
                                        else throw("Strict value is not equal to itself.")
70
72
 
                                    }
84
86
 
    if ((0 >= minReceived))
85
87
 
        then throw("")
86
88
 
        else {
87
-
            let $t027783003 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
89
+
            let $t028593084 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
88
90
 
                case _ => 
89
91
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
90
92
 
                        then if ($isInstanceOf($match0._2, "Int"))
101
103
 
                            }
102
104
 
                        else throw("")
103
105
 
            }
104
-
            let balanceBefore = $t027783003._1
105
-
            let received = $t027783003._2
106
-
            let fee = $t027783003._3
107
-
            if ((0 >= received))
108
-
                then throw("")
109
-
                else [ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
106
+
            let balanceBefore = $t028593084._1
107
+
            let received = $t028593084._2
108
+
            let fee = $t028593084._3
109
+
[ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
110
110
 
            }
111
111
 
    }
112
112
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
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
24
 
25
25
 
func deductFee (amount) = fraction(amount, 1, 1000)
26
26
 
27
27
 
28
28
 
func deductFlatFee (amount) = fraction(amount, 1, 10000)
29
29
 
30
30
 
31
31
 
func doSwap (pool,payment,assetReceived,minReceived,estReceived) = {
32
32
 
    let poolAddress = valueOrErrorMessage(addressFromString(pool), "")
33
33
 
    let assetReceivedId = getAssetId(assetReceived)
34
34
 
    if ((0 >= minReceived))
35
35
 
        then throw("")
36
36
 
        else if ((0 > estReceived))
37
37
 
            then throw("")
38
38
 
            else {
39
39
 
                let balanceBefore = getBalance(assetReceivedId)
40
40
 
                if ((balanceBefore == balanceBefore))
41
41
 
                    then if (!(containsElement(pools, pool)))
42
42
 
                        then throw("")
43
43
 
                        else {
44
44
 
                            let poolAssetA = valueOrErrorMessage(getString(poolAddress, "A_asset_id"), "")
45
45
 
                            let poolAssetB = valueOrErrorMessage(getString(poolAddress, "B_asset_id"), "")
46
46
 
                            let poolAssetIdA = getAssetId(poolAssetA)
47
47
 
                            let poolAssetIdB = getAssetId(poolAssetB)
48
48
 
                            let versionMajor = valueOrErrorMessage(parseInt(split(valueOrErrorMessage(getString(poolAddress, "version"), ""), ".")[0]), "")
49
49
 
                            let args = if ((versionMajor == 1))
50
50
 
                                then [(minReceived + deductFee(minReceived))]
51
51
 
                                else if ((versionMajor == 2))
52
52
 
                                    then if ((0 >= estReceived))
53
53
 
                                        then throw("")
54
54
 
                                        else [(estReceived + deductFlatFee(estReceived)), (minReceived + deductFee(minReceived))]
55
55
 
                                    else throw("")
56
56
 
                            let result = invoke(poolAddress, "exchange", args, [payment])
57
57
 
                            if ((result == result))
58
58
 
                                then {
59
59
 
                                    let received = (getBalance(assetReceivedId) - balanceBefore)
60
60
 
                                    if ((received == received))
61
61
 
                                        then {
62
62
 
                                            let fee = if ((versionMajor == 1))
63
63
 
                                                then deductFee(received)
64
64
 
                                                else if ((versionMajor == 2))
65
65
 
                                                    then deductFlatFee(received)
66
66
 
                                                    else throw("")
67
-
                                            $Tuple3(balanceBefore, received, fee)
67
+
                                            if ((0 >= received))
68
+
                                                then throw("")
69
+
                                                else $Tuple3(balanceBefore, received, fee)
68
70
 
                                            }
69
71
 
                                        else throw("Strict value is not equal to itself.")
70
72
 
                                    }
71
73
 
                                else throw("Strict value is not equal to itself.")
72
74
 
                            }
73
75
 
                    else throw("Strict value is not equal to itself.")
74
76
 
                }
75
77
 
    }
76
78
 
77
79
 
78
80
 
@Callable(inv)
79
81
 
func swap (pool,assetToReceive,minReceived,estReceived) = {
80
82
 
    let pmt = if ((size(inv.payments) > 0))
81
83
 
        then inv.payments[0]
82
84
 
        else throw("")
83
85
 
    let assetReceivedId = getAssetId(assetToReceive)
84
86
 
    if ((0 >= minReceived))
85
87
 
        then throw("")
86
88
 
        else {
87
-
            let $t027783003 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
89
+
            let $t028593084 =             match doSwap(pool, pmt, assetToReceive, minReceived, estReceived) {
88
90
 
                case _ => 
89
91
 
                    if (if (if ($isInstanceOf($match0._1, "Int"))
90
92
 
                        then if ($isInstanceOf($match0._2, "Int"))
91
93
 
                            then $isInstanceOf($match0._3, "Int")
92
94
 
                            else false
93
95
 
                        else false)
94
96
 
                        then $isInstanceOf($match0, "(Int, Int, Int)")
95
97
 
                        else false)
96
98
 
                        then {
97
99
 
                            let before = $match0._1
98
100
 
                            let income = $match0._2
99
101
 
                            let fee = $match0._3
100
102
 
                            $Tuple3(before, income, fee)
101
103
 
                            }
102
104
 
                        else throw("")
103
105
 
            }
104
-
            let balanceBefore = $t027783003._1
105
-
            let received = $t027783003._2
106
-
            let fee = $t027783003._3
107
-
            if ((0 >= received))
108
-
                then throw("")
109
-
                else [ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
106
+
            let balanceBefore = $t028593084._1
107
+
            let received = $t028593084._2
108
+
            let fee = $t028593084._3
109
+
[ScriptTransfer(inv.caller, (received - fee), assetReceivedId), ScriptTransfer(collector, fee, assetReceivedId)]
110
110
 
            }
111
111
 
    }
112
112
 
113
113
 

github/deemru/w8io/873ac7e 
38.91 ms ◑