tx · 6k2vTG5CAvAXfoXBN4Ytbjtz6pAEGhzrmxR7wCGW5H2U

3MxiR4vDPzVeaEPgznfS4zi4uLd2nnQuGy9:  -0.01000000 Waves

2023.10.06 10:10 [2786449] smart account 3MxiR4vDPzVeaEPgznfS4zi4uLd2nnQuGy9 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6k2vTG5CAvAXfoXBN4Ytbjtz6pAEGhzrmxR7wCGW5H2U",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1696576348374,
    "version": 2,
    "chainId": 84,
    "sender": "3MxiR4vDPzVeaEPgznfS4zi4uLd2nnQuGy9",
    "senderPublicKey": "4AVkL2DQJ8sngCNyArYueNuPS7cvygnakPJhU65LfPfu",
    "proofs": [
        "s9r7wV3SvWuAnmXC36oEr2md6xesrS5k3FuzZi6Af4HuhRvUTaUgi898M92dMxeMFcTy4ph3PksFXHf2RstJJGi",
        "Vb192w3VBPHXJcqbEKKTtfszQnNMB6czk1MZKEg6gazNyz3W2szK4A6FsXzkjy9Aikr7qgvQZv3693QEi9APqvA"
    ],
    "script": "base64:BgIMCAISAwoBGBIDCgEYEQAOQVhMWV9NQUlOX0FERFIJAQdBZGRyZXNzAQEaAVRHYdFKTc5/+9vupfS91sItmkjqQtK5YZsAB1NGX1BPT0wCAlNGAAdXWF9QT09MAgJXWAAKa1NoYXJlUG9vbAIMX3Bvb2xTaGFyZUlkAAVrUG9vbAIFcG9vbF8ACWtBZG1pbjFQSwIVZ3JvdXAxX2FkbWluMV9wdWJfa2V5AAlrQWRtaW4yUEsCFWdyb3VwMV9hZG1pbjJfcHViX2tleQAJa0FkbWluM1BLAhVncm91cDFfYWRtaW4zX3B1Yl9rZXkAD2tPcGVyYXRvckNhbGxQSwISYWRtaW5fY2FsbF9wdWJfa2V5AAhhZG1pbjFQSwkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUOQVhMWV9NQUlOX0FERFIFCWtBZG1pbjFQSwISQ2FuJ3QgZ2V0IGFkbWluMVBLAAhhZG1pbjJQSwkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUOQVhMWV9NQUlOX0FERFIFCWtBZG1pbjJQSwISQ2FuJ3QgZ2V0IGFkbWluMlBLAAhhZG1pbjNQSwkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUOQVhMWV9NQUlOX0FERFIFCWtBZG1pbjNQSwISQ2FuJ3QgZ2V0IGFkbWluM1BLAApvcGVyYXRvclBLCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ5BWExZX01BSU5fQUREUgUPa09wZXJhdG9yQ2FsbFBLAhRDYW4ndCBnZXQgb3BlcmF0b3JQSwEPdW5rbm93blBvb2xUeXBlAAkAAgECD1dyb25nIHBvb2wgdHlwZQEJbGlzdFRvSW50AgFhBGl0ZW0JAM0IAgUBYQkBDXBhcnNlSW50VmFsdWUBBQRpdGVtARBkaXJlY3RTd29wZmlDUE1NAQVyQXJncwQEZEFwcAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQVyQXJncwABBANwbXQEBHBtdFAJALUJAgkAkQMCBQVyQXJncwACAgF8CQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEJAJEDAgUEcG10UAAACQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEcG10UAABBQNuaWwEC21pblRvUmVjaXZlCQCRAwIFBXJBcmdzAAMJAPwHBAUEZEFwcAIMY2FsbEZ1bmN0aW9uCQDMCAICCGV4Y2hhbmdlCQDMCAIJAMwIAgULbWluVG9SZWNpdmUFA25pbAUDbmlsBQNwbXQBE2RpcmVjdFJvdXRpbmdTd29wZmkBBXJBcmdzBARkQXBwCQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFBXJBcmdzAAEEA3BtdAQEcG10UAkAtQkCCQCRAwIFBXJBcmdzAAICAXwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQkAkQMCBQRwbXRQAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQRwbXRQAAEFA25pbAQEYXJncwQFZUFyZ3MJALUJAgkAkQMCBQVyQXJncwADAgF8BApleGNoYW5nZXJzCQC1CQIJAJEDAgUFZUFyZ3MAAAIBLAQOZXhjaGFuZ2Vyc1R5cGUJALUJAgkAkQMCBQVlQXJncwABAgEsBAVhcmdzMQoAAiRsCQC1CQIJAJEDAgUFZUFyZ3MAAgIBLAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJbGlzdFRvSW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAzCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADBAVhcmdzMgoAAiRsCQC1CQIJAJEDAgUFZUFyZ3MAAwIBLAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJbGlzdFRvSW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAzCQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADBBFyb3V0aW5nQXNzZXRzS2V5cwkAtQkCCQCRAwIFBWVBcmdzAAQCASwEC21pblRvUmVjaXZlCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFZUFyZ3MABAkAzAgCBQpleGNoYW5nZXJzCQDMCAIFDmV4Y2hhbmdlcnNUeXBlCQDMCAIFBWFyZ3MxCQDMCAIFBWFyZ3MyCQDMCAIFEXJvdXRpbmdBc3NldHNLZXlzCQDMCAIFC21pblRvUmVjaXZlBQNuaWwJAPwHBAUEZEFwcAIMcm91dGluZ1RyYWRlBQRhcmdzBQNwbXQCAWkBC2V4Y2hhbmdlTHBzAQNscHMKAQRleExQAgFhAmxwBANscEIJANkEAQUCbHAEB2JhbGFuY2UJAPAHAgUEdGhpcwUDbHBCBARwb29sCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUOQVhMWV9NQUlOX0FERFIJAKwCAgUCbHAFCmtTaGFyZVBvb2wJAKwCAgIVQ2FuJ3QgZ2V0IHBvb2wgb2YgbHA6BQJscAQFcFR5cGUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ5BWExZX01BSU5fQUREUgkArAICBQVrUG9vbAUEcG9vbAISUG9vbCBpcyBub3QgaW5pdGVkBAhwb29sQWRkcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEFBHBvb2wCDHVua25vd24gYWRkcgMJAGYCBQdiYWxhbmNlAAAEA2ludgMJAAACBQVwVHlwZQUHU0ZfUE9PTAkA/AcEBQhwb29sQWRkcgIMY2FsbEZ1bmN0aW9uCQDMCAICCHdpdGhkcmF3CQDMCAIJAMwIAgIBMAUDbmlsBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFA2xwQgUHYmFsYW5jZQUDbmlsAwkAAAIFBXBUeXBlBQdXWF9QT09MCQD8BwQFCHBvb2xBZGRyAgNnZXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUDbHBCBQdiYWxhbmNlBQNuaWwJAQ91bmtub3duUG9vbFR5cGUAAwkAAAIFA2ludgUDaW52CQDNCAIFAWEGCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDNCAIFAWEHBANyZXMKAAIkbAUDbHBzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRleExQAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIJAJQKAgUDbmlsBQNyZXMBaQEOZXhjaGFuZ2VUb2tlbnMBBnJvdXRlcwoBDWV4Y2hhbmdlVG9rZW4CAXIFcm91dGUEBXJBcmdzCQC1CQIFBXJvdXRlAgJfXwMJAAACCQCRAwIFBXJBcmdzAAACEGRpcmVjdFN3b3BmaUNQTU0EA2ludgkBEGRpcmVjdFN3b3BmaUNQTU0BBQVyQXJncwMJAAACBQNpbnYFA2ludgkAzQgCBQFyBQNpbnYJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQAAAgkAkQMCBQVyQXJncwAAAg1yb3V0aW5nU3dvcGZpBANpbnYJARNkaXJlY3RSb3V0aW5nU3dvcGZpAQUFckFyZ3MDCQAAAgUDaW52BQNpbnYJAM0IAgUBcgUDaW52CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQISVW5rbm93biByb3V0ZSB0eXBlBANyZXMKAAIkbAUGcm91dGVzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQ1leGNoYW5nZVRva2VuAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAzMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgUDbmlsAQJ0eAEGdmVyaWZ5AAQHJG1hdGNoMAUCdHgDCQABAgUHJG1hdGNoMAIXSW52b2tlU2NyaXB0VHJhbnNhY3Rpb24EA2ludgUHJG1hdGNoMAQKaXNSaWdodEZlZQMJAAACCAUDaW52A2ZlZQCg9zYJAAACCAUDaW52CmZlZUFzc2V0SWQFBHVuaXQHBAppc0V4THBDYWxsCQAAAggFA2ludghmdW5jdGlvbgILZXhjaGFuZ2VMcHMEEmFkbWluUHViS2V5MVNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFCGFkbWluMVBLAAEAAAQSYWRtaW5QdWJLZXkyU2lnbmVkAwkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAUIYWRtaW4yUEsAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQhhZG1pbjNQSwABAAAEFWFkbWluUHViS2V5Q2FsbFNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAFCm9wZXJhdG9yUEsAAQAABBBzaWduZWRCeU9uZUFkbWluCQBnAgkAZAIJAGQCCQBkAgUSYWRtaW5QdWJLZXkxU2lnbmVkBRJhZG1pblB1YktleTJTaWduZWQFEmFkbWluUHViS2V5M1NpZ25lZAUVYWRtaW5QdWJLZXlDYWxsU2lnbmVkAAEDAwUKaXNSaWdodEZlZQUKaXNFeExwQ2FsbAcFEHNpZ25lZEJ5T25lQWRtaW4HBBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQhhZG1pbjFQSwABAAAEEmFkbWluUHViS2V5MlNpZ25lZAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAEFCGFkbWluMlBLAAEAAAQSYWRtaW5QdWJLZXkzU2lnbmVkAwkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAgUIYWRtaW4zUEsAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAKqSuQp",
    "height": 2786449,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DVHYTiNpa3SRApNXgm1Dv3EKgUWRYEpAuuNfM9VRwuvG
Next: 4K7aLKSLrQb8TF4gsC9xk2YQ1Qz3pmnA4W6bPaPejAej

Diff: 
Old
New
Differences
28
28
 
let operatorPK = fromBase58String(valueOrErrorMessage(getString(AXLY_MAIN_ADDR, kOperatorCallPK), "Can't get operatorPK"))
29
29
 
30
30
 
func unknownPoolType () = throw("Wrong pool type")
31
+
32
+
33
+
func listToInt (a,item) = (a :+ parseIntValue(item))
34
+
35
+
36
+
func directSwopfiCPMM (rArgs) = {
37
+
    let dApp = addressFromStringValue(rArgs[1])
38
+
    let pmt = {
39
+
        let pmtP = split(rArgs[2], "|")
40
+
[AttachedPayment(fromBase58String(pmtP[0]), parseIntValue(pmtP[1]))]
41
+
        }
42
+
    let minToRecive = rArgs[3]
43
+
    invoke(dApp, "callFunction", ["exchange", [minToRecive]], pmt)
44
+
    }
45
+
46
+
47
+
func directRoutingSwopfi (rArgs) = {
48
+
    let dApp = addressFromStringValue(rArgs[1])
49
+
    let pmt = {
50
+
        let pmtP = split(rArgs[2], "|")
51
+
[AttachedPayment(fromBase58String(pmtP[0]), parseIntValue(pmtP[1]))]
52
+
        }
53
+
    let args = {
54
+
        let eArgs = split(rArgs[3], "|")
55
+
        let exchangers = split(eArgs[0], ",")
56
+
        let exchangersType = split(eArgs[1], ",")
57
+
        let args1 = {
58
+
            let $l = split(eArgs[2], ",")
59
+
            let $s = size($l)
60
+
            let $acc0 = nil
61
+
            func $f0_1 ($a,$i) =             if (($i >= $s))
62
+
                then $a
63
+
                else listToInt($a, $l[$i])
64
+
65
+
            func $f0_2 ($a,$i) =             if (($i >= $s))
66
+
                then $a
67
+
                else throw("List size exceeds 3")
68
+
69
+
            $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
70
+
            }
71
+
        let args2 = {
72
+
            let $l = split(eArgs[3], ",")
73
+
            let $s = size($l)
74
+
            let $acc0 = nil
75
+
            func $f1_1 ($a,$i) =             if (($i >= $s))
76
+
                then $a
77
+
                else listToInt($a, $l[$i])
78
+
79
+
            func $f1_2 ($a,$i) =             if (($i >= $s))
80
+
                then $a
81
+
                else throw("List size exceeds 3")
82
+
83
+
            $f1_2($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3)
84
+
            }
85
+
        let routingAssetsKeys = split(eArgs[4], ",")
86
+
        let minToRecive = parseIntValue(eArgs[4])
87
+
[exchangers, exchangersType, args1, args2, routingAssetsKeys, minToRecive]
88
+
        }
89
+
    invoke(dApp, "routingTrade", args, pmt)
90
+
    }
31
91
 
32
92
 
33
93
 
@Callable(i)
72
132
 
73
133
 
74
134
 
@Callable(i)
75
-
func exchangeTokens (route) = nil
135
+
func exchangeTokens (routes) = {
136
+
    func exchangeToken (r,route) =     {
137
+
        let rArgs = split(route, "__")
138
+
        if ((rArgs[0] == "directSwopfiCPMM"))
139
+
            then {
140
+
                let inv = directSwopfiCPMM(rArgs)
141
+
                if ((inv == inv))
142
+
                    then (r :+ inv)
143
+
                    else throw("Strict value is not equal to itself.")
144
+
                }
145
+
            else if ((rArgs[0] == "routingSwopfi"))
146
+
                then {
147
+
                    let inv = directRoutingSwopfi(rArgs)
148
+
                    if ((inv == inv))
149
+
                        then (r :+ inv)
150
+
                        else throw("Strict value is not equal to itself.")
151
+
                    }
152
+
                else throw("Unknown route type")
153
+
        }
154
+
155
+
    let res = {
156
+
        let $l = routes
157
+
        let $s = size($l)
158
+
        let $acc0 = nil
159
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
160
+
            then $a
161
+
            else exchangeToken($a, $l[$i])
162
+
163
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
164
+
            then $a
165
+
            else throw("List size exceeds 30")
166
+
167
+
        $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($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)
168
+
        }
169
+
    nil
170
+
    }
76
171
 
77
172
 
78
173
 
@Verifier(tx)
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let AXLY_MAIN_ADDR = Address(base58'3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS')
5
5
 
6
6
 
let SF_POOL = "SF"
7
7
 
8
8
 
let WX_POOL = "WX"
9
9
 
10
10
 
let kSharePool = "_poolShareId"
11
11
 
12
12
 
let kPool = "pool_"
13
13
 
14
14
 
let kAdmin1PK = "group1_admin1_pub_key"
15
15
 
16
16
 
let kAdmin2PK = "group1_admin2_pub_key"
17
17
 
18
18
 
let kAdmin3PK = "group1_admin3_pub_key"
19
19
 
20
20
 
let kOperatorCallPK = "admin_call_pub_key"
21
21
 
22
22
 
let admin1PK = fromBase58String(valueOrErrorMessage(getString(AXLY_MAIN_ADDR, kAdmin1PK), "Can't get admin1PK"))
23
23
 
24
24
 
let admin2PK = fromBase58String(valueOrErrorMessage(getString(AXLY_MAIN_ADDR, kAdmin2PK), "Can't get admin2PK"))
25
25
 
26
26
 
let admin3PK = fromBase58String(valueOrErrorMessage(getString(AXLY_MAIN_ADDR, kAdmin3PK), "Can't get admin3PK"))
27
27
 
28
28
 
let operatorPK = fromBase58String(valueOrErrorMessage(getString(AXLY_MAIN_ADDR, kOperatorCallPK), "Can't get operatorPK"))
29
29
 
30
30
 
func unknownPoolType () = throw("Wrong pool type")
31
+
32
+
33
+
func listToInt (a,item) = (a :+ parseIntValue(item))
34
+
35
+
36
+
func directSwopfiCPMM (rArgs) = {
37
+
    let dApp = addressFromStringValue(rArgs[1])
38
+
    let pmt = {
39
+
        let pmtP = split(rArgs[2], "|")
40
+
[AttachedPayment(fromBase58String(pmtP[0]), parseIntValue(pmtP[1]))]
41
+
        }
42
+
    let minToRecive = rArgs[3]
43
+
    invoke(dApp, "callFunction", ["exchange", [minToRecive]], pmt)
44
+
    }
45
+
46
+
47
+
func directRoutingSwopfi (rArgs) = {
48
+
    let dApp = addressFromStringValue(rArgs[1])
49
+
    let pmt = {
50
+
        let pmtP = split(rArgs[2], "|")
51
+
[AttachedPayment(fromBase58String(pmtP[0]), parseIntValue(pmtP[1]))]
52
+
        }
53
+
    let args = {
54
+
        let eArgs = split(rArgs[3], "|")
55
+
        let exchangers = split(eArgs[0], ",")
56
+
        let exchangersType = split(eArgs[1], ",")
57
+
        let args1 = {
58
+
            let $l = split(eArgs[2], ",")
59
+
            let $s = size($l)
60
+
            let $acc0 = nil
61
+
            func $f0_1 ($a,$i) =             if (($i >= $s))
62
+
                then $a
63
+
                else listToInt($a, $l[$i])
64
+
65
+
            func $f0_2 ($a,$i) =             if (($i >= $s))
66
+
                then $a
67
+
                else throw("List size exceeds 3")
68
+
69
+
            $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
70
+
            }
71
+
        let args2 = {
72
+
            let $l = split(eArgs[3], ",")
73
+
            let $s = size($l)
74
+
            let $acc0 = nil
75
+
            func $f1_1 ($a,$i) =             if (($i >= $s))
76
+
                then $a
77
+
                else listToInt($a, $l[$i])
78
+
79
+
            func $f1_2 ($a,$i) =             if (($i >= $s))
80
+
                then $a
81
+
                else throw("List size exceeds 3")
82
+
83
+
            $f1_2($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3)
84
+
            }
85
+
        let routingAssetsKeys = split(eArgs[4], ",")
86
+
        let minToRecive = parseIntValue(eArgs[4])
87
+
[exchangers, exchangersType, args1, args2, routingAssetsKeys, minToRecive]
88
+
        }
89
+
    invoke(dApp, "routingTrade", args, pmt)
90
+
    }
31
91
 
32
92
 
33
93
 
@Callable(i)
34
94
 
func exchangeLps (lps) = {
35
95
 
    func exLP (a,lp) =     {
36
96
 
        let lpB = fromBase58String(lp)
37
97
 
        let balance = assetBalance(this, lpB)
38
98
 
        let pool = valueOrErrorMessage(getString(AXLY_MAIN_ADDR, (lp + kSharePool)), ("Can't get pool of lp:" + lp))
39
99
 
        let pType = valueOrErrorMessage(getString(AXLY_MAIN_ADDR, (kPool + pool)), "Pool is not inited")
40
100
 
        let poolAddr = valueOrErrorMessage(addressFromString(pool), "unknown addr")
41
101
 
        if ((balance > 0))
42
102
 
            then {
43
103
 
                let inv = if ((pType == SF_POOL))
44
104
 
                    then invoke(poolAddr, "callFunction", ["withdraw", ["0"]], [AttachedPayment(lpB, balance)])
45
105
 
                    else if ((pType == WX_POOL))
46
106
 
                        then invoke(poolAddr, "get", nil, [AttachedPayment(lpB, balance)])
47
107
 
                        else unknownPoolType()
48
108
 
                if ((inv == inv))
49
109
 
                    then (a :+ true)
50
110
 
                    else throw("Strict value is not equal to itself.")
51
111
 
                }
52
112
 
            else (a :+ false)
53
113
 
        }
54
114
 
55
115
 
    let res = {
56
116
 
        let $l = lps
57
117
 
        let $s = size($l)
58
118
 
        let $acc0 = nil
59
119
 
        func $f0_1 ($a,$i) =         if (($i >= $s))
60
120
 
            then $a
61
121
 
            else exLP($a, $l[$i])
62
122
 
63
123
 
        func $f0_2 ($a,$i) =         if (($i >= $s))
64
124
 
            then $a
65
125
 
            else throw("List size exceeds 50")
66
126
 
67
127
 
        $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($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)
68
128
 
        }
69
129
 
    $Tuple2(nil, res)
70
130
 
    }
71
131
 
72
132
 
73
133
 
74
134
 
@Callable(i)
75
-
func exchangeTokens (route) = nil
135
+
func exchangeTokens (routes) = {
136
+
    func exchangeToken (r,route) =     {
137
+
        let rArgs = split(route, "__")
138
+
        if ((rArgs[0] == "directSwopfiCPMM"))
139
+
            then {
140
+
                let inv = directSwopfiCPMM(rArgs)
141
+
                if ((inv == inv))
142
+
                    then (r :+ inv)
143
+
                    else throw("Strict value is not equal to itself.")
144
+
                }
145
+
            else if ((rArgs[0] == "routingSwopfi"))
146
+
                then {
147
+
                    let inv = directRoutingSwopfi(rArgs)
148
+
                    if ((inv == inv))
149
+
                        then (r :+ inv)
150
+
                        else throw("Strict value is not equal to itself.")
151
+
                    }
152
+
                else throw("Unknown route type")
153
+
        }
154
+
155
+
    let res = {
156
+
        let $l = routes
157
+
        let $s = size($l)
158
+
        let $acc0 = nil
159
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
160
+
            then $a
161
+
            else exchangeToken($a, $l[$i])
162
+
163
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
164
+
            then $a
165
+
            else throw("List size exceeds 30")
166
+
167
+
        $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($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)
168
+
        }
169
+
    nil
170
+
    }
76
171
 
77
172
 
78
173
 
@Verifier(tx)
79
174
 
func verify () = match tx {
80
175
 
    case inv: InvokeScriptTransaction => 
81
176
 
        let isRightFee = if ((inv.fee == 900000))
82
177
 
            then (inv.feeAssetId == unit)
83
178
 
            else false
84
179
 
        let isExLpCall = (inv.function == "exchangeLps")
85
180
 
        let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], admin1PK))
86
181
 
            then 1
87
182
 
            else 0
88
183
 
        let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], admin2PK))
89
184
 
            then 1
90
185
 
            else 0
91
186
 
        let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], admin3PK))
92
187
 
            then 1
93
188
 
            else 0
94
189
 
        let adminPubKeyCallSigned = if (sigVerify(tx.bodyBytes, tx.proofs[0], operatorPK))
95
190
 
            then 1
96
191
 
            else 0
97
192
 
        let signedByOneAdmin = ((((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) + adminPubKeyCallSigned) >= 1)
98
193
 
        if (if (isRightFee)
99
194
 
            then isExLpCall
100
195
 
            else false)
101
196
 
            then signedByOneAdmin
102
197
 
            else false
103
198
 
    case _ => 
104
199
 
        let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], admin1PK))
105
200
 
            then 1
106
201
 
            else 0
107
202
 
        let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], admin2PK))
108
203
 
            then 1
109
204
 
            else 0
110
205
 
        let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], admin3PK))
111
206
 
            then 1
112
207
 
            else 0
113
208
 
        (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
114
209
 
}
115
210
 

github/deemru/w8io/026f985 
29.74 ms ◑