w8 · tx · 992···4S6

tx · 9922meKgC3fkWX2itfeaHUKhNTCJ5GfdoasNvt4pE4S6

3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8:  -0.01400000 Waves

2022.09.14 15:20 [2228759] smart account 3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9922meKgC3fkWX2itfeaHUKhNTCJ5GfdoasNvt4pE4S6",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1663158058314,
    "version": 2,
    "chainId": 84,
    "sender": "3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8",
    "senderPublicKey": "4ja2PX5eqM576zv9KGzu5Qe7M92Z3jbuSmkLPdGjK4ue",
    "proofs": [
        "3xB47gTJRaPveqRQgDoPsp7YsPug3pQCYLLw6xTSZd8Ejw4m8BCSWfp1PH151KrMWg79CeJc3fro1fuRFqikZsd3",
        "3cTj4XZknxCuXJfRjX7DQk1qQkUMYe9PKCm7FiJQshmwFy4BbUWijg8bfDTTNbL25g6oCBL6nnXQs88H3WN2vaf9"
    ],
    "script": "base64:BgIQCAISCAoGGBgRERgBEgASACYAB2tBY3RpdmUCBmFjdGl2ZQAGa0NhdXNlAg5zaHV0ZG93bl9jYXVzZQANa1Bvb2xJbk9yYWNsZQIFcG9vbF8ADmtVc2VyU3dvcEluR292AgxfU1dPUF9hbW91bnQACmtEaXNjb3VudHMCCWRpc2NvdW50cwAPa0Rpc2NvdW50VmFsdWVzAg9kaXNjb3VudF92YWx1ZXMAC2tSb3V0aW5nRmVlAgtyb3V0aW5nX2ZlZQANa0FkbWluUHViS2V5MQILYWRtaW5fcHViXzEADWtBZG1pblB1YktleTICC2FkbWluX3B1Yl8yAA1rQWRtaW5QdWJLZXkzAgthZG1pbl9wdWJfMwAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MAC2tHb3ZBZGRyZXNzAhJnb3Zlcm5hbmNlX2FkZHJlc3MABGtGZWUCCmNvbW1pc3Npb24AEmtNdWx0eUFzc2V0QmFsYW5jZQIIX2JhbGFuY2UAB2RpZ2l0czgACAAGc2NhbGU4AIDC1y8AB3NjYWxlMTYAgICE/qbe4REABWFscGhhADIAC2FscGhhRGlnaXRzAAIABGJldGEAgIDer8/1lQgABm9yYWNsZQkBB0FkZHJlc3MBARoBVOlFqh6QLzqu8boO5i6akl8amITh82KzCAETZ2V0QmFzZTU4RnJvbU9yYWNsZQEDa2V5BAckbWF0Y2gwCQCdCAIFBm9yYWNsZQUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQGc3RyaW5nBQckbWF0Y2gwCQDZBAEFBnN0cmluZwQHbm90aGluZwUHJG1hdGNoMAkAAgEJAKwCAgUDa2V5AghpcyBlbXB0eQAMYWRtaW5QdWJLZXkxCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTEADGFkbWluUHViS2V5MgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkyAAxhZG1pblB1YktleTMJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MwAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUQa01vbmV5Qm94QWRkcmVzcwAKZ292QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFC2tHb3ZBZGRyZXNzAAZhY3RpdmUJAQt2YWx1ZU9yRWxzZQIJAJsIAgUEdGhpcwUHa0FjdGl2ZQYACnJvdXRpbmdGZWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZvcmFjbGUFC2tSb3V0aW5nRmVlAhRyb3V0aW5nX2ZlZSBpcyBlbXB0eQAJZmVlU2NhbGU2AMCEPQEIaXNBY3RpdmUAAwUGYWN0aXZlBQR1bml0CQACAQIfREFwcCBpcyBpbmFjdGl2ZSBhdCB0aGlzIG1vbWVudAELaXNBZG1pbkNhbGwBAWkDCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQxhZG1pblB1YktleTEJAMwIAgUMYWRtaW5QdWJLZXkyCQDMCAIFDGFkbWluUHViS2V5MwUDbmlsCAUBaQ9jYWxsZXJQdWJsaWNLZXkFBHVuaXQJAAIBAiFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BDXRocm93SXNBY3RpdmUACQACAQIWREFwcCBpcyBhbHJlYWR5IGFjdGl2ZQEHc3VzcGVuZAEFY2F1c2UJAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2tBY3RpdmUHCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmtDYXVzZQUFY2F1c2UFA25pbAEIc2tld25lc3MCAXgBeQkAaQIJAGQCCQBrAwUHc2NhbGUxNgUBeAUBeQkAawMFB3NjYWxlMTYFAXkFAXgAAgENaW52YXJpYW50Q2FsYwIBeAF5BAJzawkBCHNrZXduZXNzAgUBeAUBeQkAZAIJAGsDCQBkAgUBeAUBeQUHc2NhbGUxNgkAbAYFAnNrBQdkaWdpdHM4BQVhbHBoYQULYWxwaGFEaWdpdHMFB2RpZ2l0czgFB0NFSUxJTkcJAGgCAAIJAGsDCQCgAwEJAHYGCQC8AgMJALYCAQUBeAkAtgIBBQF5CQC2AgEFBnNjYWxlOAAACQC2AgEABQABCQBpAgUHZGlnaXRzOAACBQRET1dOCQBsBgkAZQIFAnNrBQRiZXRhBQdkaWdpdHM4BQVhbHBoYQULYWxwaGFEaWdpdHMFB2RpZ2l0czgFBERPV04FBnNjYWxlOAEUY2FsY3VsYXRlRmVlRGlzY291bnQBCHVzZXJBZGRyBApzd29wQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgkApQgBBQh1c2VyQWRkcgUOa1VzZXJTd29wSW5Hb3YAAAQOZGlzY291bnRWYWx1ZXMJALUJAgkBEUBleHRyTmF0aXZlKDEwNTMpAgUGb3JhY2xlBQ9rRGlzY291bnRWYWx1ZXMCASwECWRpc2NvdW50cwkAtQkCCQERQGV4dHJOYXRpdmUoMTA1MykCBQZvcmFjbGUFCmtEaXNjb3VudHMCASwDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwAACQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAEFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAADAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwABCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAIFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAEDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwACCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAMFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAIDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwADCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAQFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAMDCQBnAgUKc3dvcEFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAQJAGUCBQlmZWVTY2FsZTYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlkaXNjb3VudHMABAUJZmVlU2NhbGU2ARBjaGVja1Bvc3NpYmlsaXR5CAZjYWxsZXIJcG10QW1vdW50Em1pbkFtb3VudFRvUmVjZWl2ZQpleGNoYW5nZXJzDmV4Y2hhbmdlcnNUeXBlEXJvdXRpbmdBc3NldHNLZXlzBWFyZ3MxBWFyZ3MyBAtmZWVEaXNjb3VudAkBFGNhbGN1bGF0ZUZlZURpc2NvdW50AQUGY2FsbGVyBBRnZXRGcm9tMVRyYWRlV2l0aEZlZQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwAAAgVnZXREeQkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAAJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwABCQDMCAIFCXBtdEFtb3VudAkAzAgCCQClCAEFBmNhbGxlcgUDbmlsBQNuaWwDCQABAgUBQAIKKEludCwgSW50KQUBQAkAAgEJAKwCAgkAAwEJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAACBWdldER5CQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAAkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAEJAMwIAgUJcG10QW1vdW50CQDMCAIJAKUIAQUGY2FsbGVyBQNuaWwFA25pbAIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQNpbnYFA2ludggFA2ludgJfMQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQNZEFwcDFUb2tlblBheQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAAQNZEFwcDFUb2tlbkdldAkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACBGNwbW0EA2ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAFBGtGZWUEF2dldEZyb20xVHJhZGVXaXRob3V0RmVlCQBrAwUNZEFwcDFUb2tlbkdldAUJcG10QW1vdW50CQBkAgUJcG10QW1vdW50BQ1kQXBwMVRva2VuUGF5CQBrAwUXZ2V0RnJvbTFUcmFkZVdpdGhvdXRGZWUJAGUCBQlmZWVTY2FsZTYJAGsDBQNmZWUFC2ZlZURpc2NvdW50BQlmZWVTY2FsZTYFCWZlZVNjYWxlNgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACBGZsYXQECWludmFyaWFudAkBDWludmFyaWFudENhbGMCBQ1kQXBwMVRva2VuUGF5BQ1kQXBwMVRva2VuR2V0BBNtaW5BbW91bnRUb1JlY2VpdmUxCQCRAwIFBWFyZ3MyAAAEDGludmFyaWFudE5ldwkBDWludmFyaWFudENhbGMCCQBkAgUNZEFwcDFUb2tlblBheQUJcG10QW1vdW50CQBlAgUNZEFwcDFUb2tlbkdldAUTbWluQW1vdW50VG9SZWNlaXZlMQMJAGcCBQxpbnZhcmlhbnROZXcFCWludmFyaWFudAUTbWluQW1vdW50VG9SZWNlaXZlMQkAAgECJ0ZsYXQgY29udHJhY3Q6IGludmFyaWFudE5ldyA8IGludmFyaWFudAkAAgECF0luY29ycmVjdCBleGNoYW5nZSB0eXBlBBRnZXRGcm9tMlRyYWRlV2l0aEZlZQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAECDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABAgVnZXREeQkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAIJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwADCQDMCAIFFGdldEZyb20xVHJhZGVXaXRoRmVlCQDMCAIJAKUIAQUGY2FsbGVyBQNuaWwFA25pbAMJAAECBQFAAgooSW50LCBJbnQpBQFACQACAQkArAICCQADAQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFCmV4Y2hhbmdlcnMAAQIFZ2V0RHkJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwACCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAwkAzAgCBRRnZXRGcm9tMVRyYWRlV2l0aEZlZQkAzAgCCQClCAEFBmNhbGxlcgUDbmlsBQNuaWwCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkDCQAAAgUDaW52BQNpbnYIBQNpbnYCXzEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EDWRBcHAyVG9rZW5QYXkJARFAZXh0ck5hdGl2ZSgxMDUwKQIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAIEDWRBcHAyVG9rZW5HZXQJARFAZXh0ck5hdGl2ZSgxMDUwKQIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAMDCQAAAgkAkQMCBQ5leGNoYW5nZXJzVHlwZQABAgRjcG1tBBdnZXRGcm9tMlRyYWRlV2l0aG91dEZlZQkAawMFDWRBcHAyVG9rZW5HZXQFFGdldEZyb20xVHJhZGVXaXRoRmVlCQBkAgUUZ2V0RnJvbTFUcmFkZVdpdGhGZWUFDWRBcHAyVG9rZW5QYXkEA2ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAEFBGtGZWUJAGsDBRdnZXRGcm9tMlRyYWRlV2l0aG91dEZlZQkAZQIFCWZlZVNjYWxlNgkAawMFA2ZlZQULZmVlRGlzY291bnQFCWZlZVNjYWxlNgUJZmVlU2NhbGU2AwkAAAIJAJEDAgUOZXhjaGFuZ2Vyc1R5cGUAAQIEZmxhdAQJaW52YXJpYW50CQENaW52YXJpYW50Q2FsYwIFDWRBcHAyVG9rZW5QYXkFDWRBcHAyVG9rZW5HZXQEE21pbkFtb3VudFRvUmVjZWl2ZTIJAJEDAgUFYXJnczIAAQQMaW52YXJpYW50TmV3CQENaW52YXJpYW50Q2FsYwIJAGQCBQ1kQXBwMlRva2VuUGF5BRRnZXRGcm9tMVRyYWRlV2l0aEZlZQkAZQIFDWRBcHAyVG9rZW5HZXQFE21pbkFtb3VudFRvUmVjZWl2ZTIDCQBnAgUMaW52YXJpYW50TmV3BQlpbnZhcmlhbnQFE21pbkFtb3VudFRvUmVjZWl2ZTIJAAIBAidGbGF0IGNvbnRyYWN0OiBpbnZhcmlhbnROZXcgPCBpbnZhcmlhbnQJAAIBAhdJbmNvcnJlY3QgZXhjaGFuZ2UgdHlwZQkAZwIFFGdldEZyb20yVHJhZGVXaXRoRmVlBRJtaW5BbW91bnRUb1JlY2VpdmUDAWkBDHJvdXRpbmdUcmFkZQYKZXhjaGFuZ2Vycw5leGNoYW5nZXJzVHlwZQVhcmdzMQVhcmdzMhFyb3V0aW5nQXNzZXRzS2V5cxJtaW5BbW91bnRUb1JlY2VpdmUJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAECyR0MDc0NDE3NTE1CQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQECXBtdEFtb3VudAgFCyR0MDc0NDE3NTE1Al8xBApwbXRBc3NldElkCAULJHQwNzQ0MTc1MTUCXzIDCQEBIQEJARBjaGVja1Bvc3NpYmlsaXR5CAgFAWkGY2FsbGVyBQlwbXRBbW91bnQFEm1pbkFtb3VudFRvUmVjZWl2ZQUKZXhjaGFuZ2VycwUOZXhjaGFuZ2Vyc1R5cGUFEXJvdXRpbmdBc3NldHNLZXlzBQVhcmdzMQUFYXJnczIJAAIBAiZDaGVjayB0cmFuc2FjdGlvbiBwb3NzaWJpbHR5OiBkZWNsaW5lZAMDCQEBIQEJAQlpc0RlZmluZWQBCQCdCAIFBm9yYWNsZQkArAICBQ1rUG9vbEluT3JhY2xlCQCRAwIFCmV4Y2hhbmdlcnMAAAYJAQEhAQkBCWlzRGVmaW5lZAEJAJ0IAgUGb3JhY2xlCQCsAgIFDWtQb29sSW5PcmFjbGUJAJEDAgUKZXhjaGFuZ2VycwABCQACAQIVUG9vbCBpcyBub3QgaW4gb3JhY2xlBAtyb3V0aW5nU2l6ZQkAkAMBBQpleGNoYW5nZXJzCgEMZXhjaGFuZ2VGb2xkAgthY2N1bXVsYXRlZAlleGNoYW5nZXIECyR0MDgwMjk4MDk0BQthY2N1bXVsYXRlZAQPZXhjaGFuZ2VDb3VudGVyCAULJHQwODAyOTgwOTQCXzEEDmFtb3VudHNXaXRoRmVlCAULJHQwODAyOTgwOTQCXzIEDGFzc2V0c0lkU2VuZAgFCyR0MDgwMjk4MDk0Al8zBAskdDA4MTA3ODMwNQMJAAACBQ9leGNoYW5nZUNvdW50ZXIAAAkAlAoCBQpwbXRBc3NldElkBQlwbXRBbW91bnQJAJQKAgUMYXNzZXRzSWRTZW5kBQ5hbW91bnRzV2l0aEZlZQQOcG10QXNzZXRJZFJvdXQIBQskdDA4MTA3ODMwNQJfMQQNcG10QW1vdW50Um91dAgFCyR0MDgxMDc4MzA1Al8yAwkAAAIDCQBnAgUPZXhjaGFuZ2VDb3VudGVyAAAJAGYCBQtyb3V0aW5nU2l6ZQUPZXhjaGFuZ2VDb3VudGVyBwYEEGV4Y2hhbmdlckFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWV4Y2hhbmdlcgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlBQ9leGNoYW5nZUNvdW50ZXICBGNwbW0ECyR0MDg1NTI4NzExCgABQAkA/AcEBRBleGNoYW5nZXJBZGRyZXNzAghleGNoYW5nZQkAzAgCCQCRAwIFBWFyZ3MxBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAMJAAECBQFAAgooSW50LCBJbnQpBQFACQACAQkArAICCQADAQkA/AcEBRBleGNoYW5nZXJBZGRyZXNzAghleGNoYW5nZQkAzAgCCQCRAwIFBWFyZ3MxBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQskdDA4NTUyODcxMQULJHQwODU1Mjg3MTEEB2Fzc2V0SWQIBQskdDA4NTUyODcxMQJfMgQGYW1vdW50CAULJHQwODU1Mjg3MTECXzEJAJUKAwkAZAIFD2V4Y2hhbmdlQ291bnRlcgABBQZhbW91bnQFB2Fzc2V0SWQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQAAAgkAkQMCBQ5leGNoYW5nZXJzVHlwZQUPZXhjaGFuZ2VDb3VudGVyAgRmbGF0BANpbnYKAAFACQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgUFYXJnczEFD2V4Y2hhbmdlQ291bnRlcgkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAMJAAECBQFAAglMaXN0W0FueV0FAUAJAAIBCQCsAgIJAAMBCQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgUFYXJnczEFD2V4Y2hhbmdlQ291bnRlcgkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAIeIGNvdWxkbid0IGJlIGNhc3QgdG8gTGlzdFtBbnldAwkAAAIFA2ludgUDaW52CQCVCgMJAGQCBQ9leGNoYW5nZUNvdW50ZXIAAQkAkQMCBQNpbnYAAAkAkQMCBQNpbnYAAQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlBQ9leGNoYW5nZUNvdW50ZXICDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMJAGQCCQBoAgUPZXhjaGFuZ2VDb3VudGVyAAIAAQkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAMJAAECBQFAAglMaXN0W0FueV0FAUAJAAIBCQCsAgIJAAMBCQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMJAGQCCQBoAgUPZXhjaGFuZ2VDb3VudGVyAAIAAQkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAIeIGNvdWxkbid0IGJlIGNhc3QgdG8gTGlzdFtBbnldAwkAAAIFA2ludgUDaW52CQCVCgMJAGQCBQ9leGNoYW5nZUNvdW50ZXIAAQkAkQMCBQNpbnYAAAkAkQMCBQNpbnYAAQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECF0luY29ycmVjdCBleGNoYW5nZSB0eXBlBQthY2N1bXVsYXRlZAQLJHQwOTU2ODk2NzQKAAIkbAUKZXhjaGFuZ2VycwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwAAAAABAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMZXhjaGFuZ2VGb2xkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAzCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADBA9leGNoYW5nZUNvdW50ZXIIBQskdDA5NTY4OTY3NAJfMQQQYW1vdW50V2l0aG91dEZlZQgFCyR0MDk1Njg5Njc0Al8yBAthc3NldElkU2VuZAgFCyR0MDk1Njg5Njc0Al8zBA1hbW91bnRXaXRoRmVlCQBrAwUQYW1vdW50V2l0aG91dEZlZQkAZQIFCWZlZVNjYWxlNgUKcm91dGluZ0ZlZQUJZmVlU2NhbGU2AwMJAAACBQ9leGNoYW5nZUNvdW50ZXIFC3JvdXRpbmdTaXplCQBnAgUNYW1vdW50V2l0aEZlZQUSbWluQW1vdW50VG9SZWNlaXZlBwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDWFtb3VudFdpdGhGZWUFC2Fzc2V0SWRTZW5kCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD21vbmV5Qm94QWRkcmVzcwkAZQIFEGFtb3VudFdpdGhvdXRGZWUFDWFtb3VudFdpdGhGZWUFC2Fzc2V0SWRTZW5kBQNuaWwJAAIBAj5yb3V0aW5nICE9IHJvdXRpbmdTaXplIG9yIGFtb3VudFRvUmVjaWV2ZSA8IG1pbkFtb3VudFRvUmVjZWl2ZQFpAQhzaHV0ZG93bgAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDCQEBIQEFBmFjdGl2ZQkAAgEJAKwCAgIiREFwcCBpcyBhbHJlYWR5IHN1c3BlbmRlZC4gQ2F1c2U6IAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQZrQ2F1c2UCGnRoZSBjYXVzZSB3YXNuJ3Qgc3BlY2lmaWVkCQEHc3VzcGVuZAECD1BhdXNlZCBieSBhZG1pbgFpAQhhY3RpdmF0ZQAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDBQZhY3RpdmUJAQ10aHJvd0lzQWN0aXZlAAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQYJAMwIAgkBC0RlbGV0ZUVudHJ5AQUGa0NhdXNlBQNuaWwBAnR4AQZ2ZXJpZnkABBNtdWx0aVNpZ25lZEJ5QWRtaW5zBBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAIEByRtYXRjaDAFAnR4BRNtdWx0aVNpZ25lZEJ5QWRtaW5zgk6e/A==",
    "height": 2228759,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: H4VGBBU9ZmrA8XG9vmczGMcjAAV8SKNLbViTLz48Mfym
Next: 71JE7V6wKjCbGbgtWhk4gSeV2duKEy4aX6qT6RKthMpk

Diff: 
Old New Differences
1 - {-# STDLIB_VERSION 5 #-}
1 + {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let kActive = "active"
26 26  let kGovAddress = "governance_address"
27 27  
28 28  let kFee = "commission"
29 + 
30 + let kMultyAssetBalance = "_balance"
29 31  
30 32  let digits8 = 8
31 33  
117 119  
118 120  
119 121  func checkPossibility (caller,pmtAmount,minAmountToReceive,exchangers,exchangersType,routingAssetsKeys,args1,args2) = {
120 -     let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
121 -     let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
122 -     let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
123 -     let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
124 122      let feeDiscount = calculateFeeDiscount(caller)
125 -     let getFrom1TradeWithFee = if ((exchangersType[0] == "cpmm"))
123 +     let getFrom1TradeWithFee = if ((exchangersType[0] == "curveMultyFlat"))
126 124          then {
127 -             let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
128 -             let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
129 -             fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
125 +             let inv = {
126 +                 let @ = invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)
127 +                 if ($isInstanceOf(@, "(Int, Int)"))
128 +                     then @
129 +                     else throw(($getType(invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
130 +                 }
131 +             if ((inv == inv))
132 +                 then inv._1
133 +                 else throw("Strict value is not equal to itself.")
130 134              }
131 -         else if ((exchangersType[0] == "flat"))
132 -             then {
133 -                 let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
134 -                 let minAmountToReceive1 = args2[0]
135 -                 let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
136 -                 if ((invariantNew >= invariant))
137 -                     then minAmountToReceive1
138 -                     else throw("Flat contract: invariantNew < invariant")
135 +         else {
136 +             let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
137 +             let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
138 +             if ((exchangersType[0] == "cpmm"))
139 +                 then {
140 +                     let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
141 +                     let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
142 +                     fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
143 +                     }
144 +                 else if ((exchangersType[0] == "flat"))
145 +                     then {
146 +                         let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
147 +                         let minAmountToReceive1 = args2[0]
148 +                         let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
149 +                         if ((invariantNew >= invariant))
150 +                             then minAmountToReceive1
151 +                             else throw("Flat contract: invariantNew < invariant")
152 +                         }
153 +                     else throw("Incorrect exchange type")
154 +             }
155 +     let getFrom2TradeWithFee = if ((exchangersType[1] == "curveMultyFlat"))
156 +         then {
157 +             let inv = {
158 +                 let @ = invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)
159 +                 if ($isInstanceOf(@, "(Int, Int)"))
160 +                     then @
161 +                     else throw(($getType(invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
139 162                  }
140 -             else throw("Incorrect exchange type")
141 -     let getFrom2TradeWithFee = if ((exchangersType[1] == "cpmm"))
142 -         then {
143 -             let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
144 -             let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
145 -             fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
163 +             if ((inv == inv))
164 +                 then inv._1
165 +                 else throw("Strict value is not equal to itself.")
146 166              }
147 -         else if ((exchangersType[1] == "flat"))
148 -             then {
149 -                 let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
150 -                 let minAmountToReceive2 = args2[1]
151 -                 let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
152 -                 if ((invariantNew >= invariant))
153 -                     then minAmountToReceive2
154 -                     else throw("Flat contract: invariantNew < invariant")
155 -                 }
156 -             else throw("Incorrect exchange type")
167 +         else {
168 +             let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
169 +             let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
170 +             if ((exchangersType[1] == "cpmm"))
171 +                 then {
172 +                     let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
173 +                     let fee = getIntegerValue(addressFromStringValue(exchangers[1]), kFee)
174 +                     fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
175 +                     }
176 +                 else if ((exchangersType[1] == "flat"))
177 +                     then {
178 +                         let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
179 +                         let minAmountToReceive2 = args2[1]
180 +                         let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
181 +                         if ((invariantNew >= invariant))
182 +                             then minAmountToReceive2
183 +                             else throw("Flat contract: invariantNew < invariant")
184 +                         }
185 +                     else throw("Incorrect exchange type")
186 +             }
157 187      (getFrom2TradeWithFee >= minAmountToReceive)
158 188      }
159 189  
160 190  
161 191  @Callable(i)
162 192  func routingTrade (exchangers,exchangersType,args1,args2,routingAssetsKeys,minAmountToReceive) = valueOrElse(isActive(), {
163 -     let $t067036777 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
164 -     let pmtAmount = $t067036777._1
165 -     let pmtAssetId = $t067036777._2
193 +     let $t074417515 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
194 +     let pmtAmount = $t074417515._1
195 +     let pmtAssetId = $t074417515._2
166 196      if (!(checkPossibility(i.caller, pmtAmount, minAmountToReceive, exchangers, exchangersType, routingAssetsKeys, args1, args2)))
167 197          then throw("Check transaction possibilty: declined")
168 198          else if (if (!(isDefined(getString(oracle, (kPoolInOracle + exchangers[0])))))
172 202              else {
173 203                  let routingSize = size(exchangers)
174 204                  func exchangeFold (accumulated,exchanger) =                 {
175 -                     let $t072917356 = accumulated
176 -                     let exchangeCounter = $t072917356._1
177 -                     let amountsWithFee = $t072917356._2
178 -                     let assetsIdSend = $t072917356._3
179 -                     let $t073697567 = if ((exchangeCounter == 0))
205 +                     let $t080298094 = accumulated
206 +                     let exchangeCounter = $t080298094._1
207 +                     let amountsWithFee = $t080298094._2
208 +                     let assetsIdSend = $t080298094._3
209 +                     let $t081078305 = if ((exchangeCounter == 0))
180 210                          then $Tuple2(pmtAssetId, pmtAmount)
181 211                          else $Tuple2(assetsIdSend, amountsWithFee)
182 -                     let pmtAssetIdRout = $t073697567._1
183 -                     let pmtAmountRout = $t073697567._2
212 +                     let pmtAssetIdRout = $t081078305._1
213 +                     let pmtAmountRout = $t081078305._2
184 214                      if (((if ((exchangeCounter >= 0))
185 215                          then (routingSize > exchangeCounter)
186 216                          else false) == true))
187 217                          then {
188 218                              let exchangerAddress = addressFromStringValue(exchanger)
189 -                             let inv = if ((exchangersType[exchangeCounter] == "cpmm"))
190 -                                 then invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
219 +                             if ((exchangersType[exchangeCounter] == "cpmm"))
220 +                                 then {
221 +                                     let $t085528711 = {
222 +                                         let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
223 +                                         if ($isInstanceOf(@, "(Int, Int)"))
224 +                                             then @
225 +                                             else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to (Int, Int)"))
226 +                                         }
227 +                                     if (($t085528711 == $t085528711))
228 +                                         then {
229 +                                             let assetId = $t085528711._2
230 +                                             let amount = $t085528711._1
231 +                                             $Tuple3((exchangeCounter + 1), amount, assetId)
232 +                                             }
233 +                                         else throw("Strict value is not equal to itself.")
234 +                                     }
191 235                                  else if ((exchangersType[exchangeCounter] == "flat"))
192 -                                     then invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
193 -                                     else throw("Incorrect exchange type")
194 -                             if ((inv == inv))
195 -                                 then                                 match inv {
196 -                                     case inv: (Int, Unit)|(Int, ByteVector) => 
197 -                                         let $t084158453 = inv
198 -                                         let amountWithFee = $t084158453._1
199 -                                         let assetIdSend = $t084158453._2
200 -                                         $Tuple3((exchangeCounter + 1), amountWithFee, assetIdSend)
201 -                                     case _ => 
202 -                                         throw("Incorrect invoke result: expected amountWithFee and assetsIdSend")
203 -                                 }
204 -                                 else throw("Strict value is not equal to itself.")
236 +                                     then {
237 +                                         let inv = {
238 +                                             let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
239 +                                             if ($isInstanceOf(@, "List[Any]"))
240 +                                                 then @
241 +                                                 else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
242 +                                             }
243 +                                         if ((inv == inv))
244 +                                             then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
245 +                                             else throw("Strict value is not equal to itself.")
246 +                                         }
247 +                                     else if ((exchangersType[exchangeCounter] == "curveMultyFlat"))
248 +                                         then {
249 +                                             let inv = {
250 +                                                 let @ = invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
251 +                                                 if ($isInstanceOf(@, "List[Any]"))
252 +                                                     then @
253 +                                                     else throw(($getType(invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
254 +                                                 }
255 +                                             if ((inv == inv))
256 +                                                 then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
257 +                                                 else throw("Strict value is not equal to itself.")
258 +                                             }
259 +                                         else throw("Incorrect exchange type")
205 260                              }
206 261                          else accumulated
207 262                      }
208 263  
209 -                 let $t087338839 = {
264 +                 let $t095689674 = {
210 265                      let $l = exchangers
211 266                      let $s = size($l)
212 267                      let $acc0 = $Tuple3(0, 0, base58'')
220 275  
221 276                      $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
222 277                      }
223 -                 let exchangeCounter = $t087338839._1
224 -                 let amountWithoutFee = $t087338839._2
225 -                 let assetIdSend = $t087338839._3
278 +                 let exchangeCounter = $t095689674._1
279 +                 let amountWithoutFee = $t095689674._2
280 +                 let assetIdSend = $t095689674._3
226 281                  let amountWithFee = fraction(amountWithoutFee, (feeScale6 - routingFee), feeScale6)
227 282                  if (if ((exchangeCounter == routingSize))
228 283                      then (amountWithFee >= minAmountToReceive)
Full: 
Old New Differences
1 - {-# STDLIB_VERSION 5 #-}
1 + {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let kActive = "active"
5 5  
6 6  let kCause = "shutdown_cause"
7 7  
8 8  let kPoolInOracle = "pool_"
9 9  
10 10  let kUserSwopInGov = "_SWOP_amount"
11 11  
12 12  let kDiscounts = "discounts"
13 13  
14 14  let kDiscountValues = "discount_values"
15 15  
16 16  let kRoutingFee = "routing_fee"
17 17  
18 18  let kAdminPubKey1 = "admin_pub_1"
19 19  
20 20  let kAdminPubKey2 = "admin_pub_2"
21 21  
22 22  let kAdminPubKey3 = "admin_pub_3"
23 23  
24 24  let kMoneyBoxAddress = "money_box_address"
25 25  
26 26  let kGovAddress = "governance_address"
27 27  
28 28  let kFee = "commission"
29 + 
30 + let kMultyAssetBalance = "_balance"
29 31  
30 32  let digits8 = 8
31 33  
32 34  let scale8 = 100000000
33 35  
34 36  let scale16 = 10000000000000000
35 37  
36 38  let alpha = 50
37 39  
38 40  let alphaDigits = 2
39 41  
40 42  let beta = 4600000000000000
41 43  
42 44  let oracle = Address(base58'3NBBWfzZtZtszaXbitTKnrB2xXwv26Bn7H9')
43 45  
44 46  func getBase58FromOracle (key) = match getString(oracle, key) {
45 47      case string: String => 
46 48          fromBase58String(string)
47 49      case nothing => 
48 50          throw((key + "is empty"))
49 51  }
50 52  
51 53  
52 54  let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
53 55  
54 56  let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
55 57  
56 58  let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
57 59  
58 60  let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
59 61  
60 62  let govAddress = Address(getBase58FromOracle(kGovAddress))
61 63  
62 64  let active = valueOrElse(getBoolean(this, kActive), true)
63 65  
64 66  let routingFee = valueOrErrorMessage(getInteger(oracle, kRoutingFee), "routing_fee is empty")
65 67  
66 68  let feeScale6 = 1000000
67 69  
68 70  func isActive () = if (active)
69 71      then unit
70 72      else throw("DApp is inactive at this moment")
71 73  
72 74  
73 75  func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
74 76      then unit
75 77      else throw("Only admin can call this function")
76 78  
77 79  
78 80  func throwIsActive () = throw("DApp is already active")
79 81  
80 82  
81 83  func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
82 84  
83 85  
84 86  func skewness (x,y) = ((fraction(scale16, x, y) + fraction(scale16, y, x)) / 2)
85 87  
86 88  
87 89  func invariantCalc (x,y) = {
88 90      let sk = skewness(x, y)
89 91      (fraction((x + y), scale16, pow(sk, digits8, alpha, alphaDigits, digits8, CEILING)) + (2 * fraction(toInt(pow(fraction(toBigInt(x), toBigInt(y), toBigInt(scale8)), 0, toBigInt(5), 1, (digits8 / 2), DOWN)), pow((sk - beta), digits8, alpha, alphaDigits, digits8, DOWN), scale8)))
90 92      }
91 93  
92 94  
93 95  func calculateFeeDiscount (userAddr) = {
94 96      let swopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserSwopInGov)), 0)
95 97      let discountValues = split(getStringValue(oracle, kDiscountValues), ",")
96 98      let discounts = split(getStringValue(oracle, kDiscounts), ",")
97 99      if (if ((swopAmount >= parseIntValue(discountValues[0])))
98 100          then (parseIntValue(discountValues[1]) > swopAmount)
99 101          else false)
100 102          then (feeScale6 - parseIntValue(discounts[0]))
101 103          else if (if ((swopAmount >= parseIntValue(discountValues[1])))
102 104              then (parseIntValue(discountValues[2]) > swopAmount)
103 105              else false)
104 106              then (feeScale6 - parseIntValue(discounts[1]))
105 107              else if (if ((swopAmount >= parseIntValue(discountValues[2])))
106 108                  then (parseIntValue(discountValues[3]) > swopAmount)
107 109                  else false)
108 110                  then (feeScale6 - parseIntValue(discounts[2]))
109 111                  else if (if ((swopAmount >= parseIntValue(discountValues[3])))
110 112                      then (parseIntValue(discountValues[4]) > swopAmount)
111 113                      else false)
112 114                      then (feeScale6 - parseIntValue(discounts[3]))
113 115                      else if ((swopAmount >= parseIntValue(discountValues[4])))
114 116                          then (feeScale6 - parseIntValue(discounts[4]))
115 117                          else feeScale6
116 118      }
117 119  
118 120  
119 121  func checkPossibility (caller,pmtAmount,minAmountToReceive,exchangers,exchangersType,routingAssetsKeys,args1,args2) = {
120 -     let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
121 -     let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
122 -     let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
123 -     let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
124 122      let feeDiscount = calculateFeeDiscount(caller)
125 -     let getFrom1TradeWithFee = if ((exchangersType[0] == "cpmm"))
123 +     let getFrom1TradeWithFee = if ((exchangersType[0] == "curveMultyFlat"))
126 124          then {
127 -             let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
128 -             let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
129 -             fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
125 +             let inv = {
126 +                 let @ = invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)
127 +                 if ($isInstanceOf(@, "(Int, Int)"))
128 +                     then @
129 +                     else throw(($getType(invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
130 +                 }
131 +             if ((inv == inv))
132 +                 then inv._1
133 +                 else throw("Strict value is not equal to itself.")
130 134              }
131 -         else if ((exchangersType[0] == "flat"))
132 -             then {
133 -                 let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
134 -                 let minAmountToReceive1 = args2[0]
135 -                 let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
136 -                 if ((invariantNew >= invariant))
137 -                     then minAmountToReceive1
138 -                     else throw("Flat contract: invariantNew < invariant")
135 +         else {
136 +             let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
137 +             let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
138 +             if ((exchangersType[0] == "cpmm"))
139 +                 then {
140 +                     let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
141 +                     let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
142 +                     fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
143 +                     }
144 +                 else if ((exchangersType[0] == "flat"))
145 +                     then {
146 +                         let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
147 +                         let minAmountToReceive1 = args2[0]
148 +                         let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
149 +                         if ((invariantNew >= invariant))
150 +                             then minAmountToReceive1
151 +                             else throw("Flat contract: invariantNew < invariant")
152 +                         }
153 +                     else throw("Incorrect exchange type")
154 +             }
155 +     let getFrom2TradeWithFee = if ((exchangersType[1] == "curveMultyFlat"))
156 +         then {
157 +             let inv = {
158 +                 let @ = invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)
159 +                 if ($isInstanceOf(@, "(Int, Int)"))
160 +                     then @
161 +                     else throw(($getType(invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
139 162                  }
140 -             else throw("Incorrect exchange type")
141 -     let getFrom2TradeWithFee = if ((exchangersType[1] == "cpmm"))
142 -         then {
143 -             let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
144 -             let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
145 -             fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
163 +             if ((inv == inv))
164 +                 then inv._1
165 +                 else throw("Strict value is not equal to itself.")
146 166              }
147 -         else if ((exchangersType[1] == "flat"))
148 -             then {
149 -                 let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
150 -                 let minAmountToReceive2 = args2[1]
151 -                 let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
152 -                 if ((invariantNew >= invariant))
153 -                     then minAmountToReceive2
154 -                     else throw("Flat contract: invariantNew < invariant")
155 -                 }
156 -             else throw("Incorrect exchange type")
167 +         else {
168 +             let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
169 +             let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
170 +             if ((exchangersType[1] == "cpmm"))
171 +                 then {
172 +                     let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
173 +                     let fee = getIntegerValue(addressFromStringValue(exchangers[1]), kFee)
174 +                     fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
175 +                     }
176 +                 else if ((exchangersType[1] == "flat"))
177 +                     then {
178 +                         let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
179 +                         let minAmountToReceive2 = args2[1]
180 +                         let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
181 +                         if ((invariantNew >= invariant))
182 +                             then minAmountToReceive2
183 +                             else throw("Flat contract: invariantNew < invariant")
184 +                         }
185 +                     else throw("Incorrect exchange type")
186 +             }
157 187      (getFrom2TradeWithFee >= minAmountToReceive)
158 188      }
159 189  
160 190  
161 191  @Callable(i)
162 192  func routingTrade (exchangers,exchangersType,args1,args2,routingAssetsKeys,minAmountToReceive) = valueOrElse(isActive(), {
163 -     let $t067036777 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
164 -     let pmtAmount = $t067036777._1
165 -     let pmtAssetId = $t067036777._2
193 +     let $t074417515 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
194 +     let pmtAmount = $t074417515._1
195 +     let pmtAssetId = $t074417515._2
166 196      if (!(checkPossibility(i.caller, pmtAmount, minAmountToReceive, exchangers, exchangersType, routingAssetsKeys, args1, args2)))
167 197          then throw("Check transaction possibilty: declined")
168 198          else if (if (!(isDefined(getString(oracle, (kPoolInOracle + exchangers[0])))))
169 199              then true
170 200              else !(isDefined(getString(oracle, (kPoolInOracle + exchangers[1])))))
171 201              then throw("Pool is not in oracle")
172 202              else {
173 203                  let routingSize = size(exchangers)
174 204                  func exchangeFold (accumulated,exchanger) =                 {
175 -                     let $t072917356 = accumulated
176 -                     let exchangeCounter = $t072917356._1
177 -                     let amountsWithFee = $t072917356._2
178 -                     let assetsIdSend = $t072917356._3
179 -                     let $t073697567 = if ((exchangeCounter == 0))
205 +                     let $t080298094 = accumulated
206 +                     let exchangeCounter = $t080298094._1
207 +                     let amountsWithFee = $t080298094._2
208 +                     let assetsIdSend = $t080298094._3
209 +                     let $t081078305 = if ((exchangeCounter == 0))
180 210                          then $Tuple2(pmtAssetId, pmtAmount)
181 211                          else $Tuple2(assetsIdSend, amountsWithFee)
182 -                     let pmtAssetIdRout = $t073697567._1
183 -                     let pmtAmountRout = $t073697567._2
212 +                     let pmtAssetIdRout = $t081078305._1
213 +                     let pmtAmountRout = $t081078305._2
184 214                      if (((if ((exchangeCounter >= 0))
185 215                          then (routingSize > exchangeCounter)
186 216                          else false) == true))
187 217                          then {
188 218                              let exchangerAddress = addressFromStringValue(exchanger)
189 -                             let inv = if ((exchangersType[exchangeCounter] == "cpmm"))
190 -                                 then invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
219 +                             if ((exchangersType[exchangeCounter] == "cpmm"))
220 +                                 then {
221 +                                     let $t085528711 = {
222 +                                         let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
223 +                                         if ($isInstanceOf(@, "(Int, Int)"))
224 +                                             then @
225 +                                             else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to (Int, Int)"))
226 +                                         }
227 +                                     if (($t085528711 == $t085528711))
228 +                                         then {
229 +                                             let assetId = $t085528711._2
230 +                                             let amount = $t085528711._1
231 +                                             $Tuple3((exchangeCounter + 1), amount, assetId)
232 +                                             }
233 +                                         else throw("Strict value is not equal to itself.")
234 +                                     }
191 235                                  else if ((exchangersType[exchangeCounter] == "flat"))
192 -                                     then invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
193 -                                     else throw("Incorrect exchange type")
194 -                             if ((inv == inv))
195 -                                 then                                 match inv {
196 -                                     case inv: (Int, Unit)|(Int, ByteVector) => 
197 -                                         let $t084158453 = inv
198 -                                         let amountWithFee = $t084158453._1
199 -                                         let assetIdSend = $t084158453._2
200 -                                         $Tuple3((exchangeCounter + 1), amountWithFee, assetIdSend)
201 -                                     case _ => 
202 -                                         throw("Incorrect invoke result: expected amountWithFee and assetsIdSend")
203 -                                 }
204 -                                 else throw("Strict value is not equal to itself.")
236 +                                     then {
237 +                                         let inv = {
238 +                                             let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
239 +                                             if ($isInstanceOf(@, "List[Any]"))
240 +                                                 then @
241 +                                                 else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
242 +                                             }
243 +                                         if ((inv == inv))
244 +                                             then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
245 +                                             else throw("Strict value is not equal to itself.")
246 +                                         }
247 +                                     else if ((exchangersType[exchangeCounter] == "curveMultyFlat"))
248 +                                         then {
249 +                                             let inv = {
250 +                                                 let @ = invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
251 +                                                 if ($isInstanceOf(@, "List[Any]"))
252 +                                                     then @
253 +                                                     else throw(($getType(invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
254 +                                                 }
255 +                                             if ((inv == inv))
256 +                                                 then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
257 +                                                 else throw("Strict value is not equal to itself.")
258 +                                             }
259 +                                         else throw("Incorrect exchange type")
205 260                              }
206 261                          else accumulated
207 262                      }
208 263  
209 -                 let $t087338839 = {
264 +                 let $t095689674 = {
210 265                      let $l = exchangers
211 266                      let $s = size($l)
212 267                      let $acc0 = $Tuple3(0, 0, base58'')
213 268                      func $f0_1 ($a,$i) =                     if (($i >= $s))
214 269                          then $a
215 270                          else exchangeFold($a, $l[$i])
216 271  
217 272                      func $f0_2 ($a,$i) =                     if (($i >= $s))
218 273                          then $a
219 274                          else throw("List size exceeds 3")
220 275  
221 276                      $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
222 277                      }
223 -                 let exchangeCounter = $t087338839._1
224 -                 let amountWithoutFee = $t087338839._2
225 -                 let assetIdSend = $t087338839._3
278 +                 let exchangeCounter = $t095689674._1
279 +                 let amountWithoutFee = $t095689674._2
280 +                 let assetIdSend = $t095689674._3
226 281                  let amountWithFee = fraction(amountWithoutFee, (feeScale6 - routingFee), feeScale6)
227 282                  if (if ((exchangeCounter == routingSize))
228 283                      then (amountWithFee >= minAmountToReceive)
229 284                      else false)
230 285                      then [ScriptTransfer(i.caller, amountWithFee, assetIdSend), ScriptTransfer(moneyBoxAddress, (amountWithoutFee - amountWithFee), assetIdSend)]
231 286                      else throw("routing != routingSize or amountToRecieve < minAmountToReceive")
232 287                  }
233 288      })
234 289  
235 290  
236 291  
237 292  @Callable(i)
238 293  func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
239 294      then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
240 295      else suspend("Paused by admin"))
241 296  
242 297  
243 298  
244 299  @Callable(i)
245 300  func activate () = valueOrElse(isAdminCall(i), if (active)
246 301      then throwIsActive()
247 302      else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
248 303  
249 304  
250 305  @Verifier(tx)
251 306  func verify () = {
252 307      let multiSignedByAdmins = {
253 308          let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
254 309              then 1
255 310              else 0
256 311          let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
257 312              then 1
258 313              else 0
259 314          let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
260 315              then 1
261 316              else 0
262 317          (((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
263 318          }
264 319      match tx {
265 320          case _ => 
266 321              multiSignedByAdmins
267 322      }
268 323      }
269 324

Old	New		Differences
1		-	{-# STDLIB_VERSION 5 #-}
	1	+	{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let kActive = "active"

26	26		let kGovAddress = "governance_address"
27	27
28	28		let kFee = "commission"
	29	+
	30	+	let kMultyAssetBalance = "_balance"
29	31
30	32		let digits8 = 8
31	33

117	119
118	120
119	121		func checkPossibility (caller,pmtAmount,minAmountToReceive,exchangers,exchangersType,routingAssetsKeys,args1,args2) = {
120		-	let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
121		-	let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
122		-	let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
123		-	let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
124	122		let feeDiscount = calculateFeeDiscount(caller)
125		-	let getFrom1TradeWithFee = if ((exchangersType[0] == "~~cpmm~~"))
	123	+	let getFrom1TradeWithFee = if ((exchangersType[0] == "curveMultyFlat"))
126	124		then {
127		-	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
128		-	let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
129		-	fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	125	+	let inv = {
	126	+	let @ = invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)
	127	+	if ($isInstanceOf(@, "(Int, Int)"))
	128	+	then @
	129	+	else throw(($getType(invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
	130	+	}
	131	+	if ((inv == inv))
	132	+	then inv._1
	133	+	else throw("Strict value is not equal to itself.")
130	134		}
131		-	else if ((exchangersType[0] == "flat"))
132		-	then {
133		-	let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
134		-	let minAmountToReceive1 = args2[0]
135		-	let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
136		-	if ((invariantNew >= invariant))
137		-	then minAmountToReceive1
138		-	else throw("Flat contract: invariantNew < invariant")
	135	+	else {
	136	+	let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
	137	+	let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
	138	+	if ((exchangersType[0] == "cpmm"))
	139	+	then {
	140	+	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
	141	+	let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
	142	+	fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	143	+	}
	144	+	else if ((exchangersType[0] == "flat"))
	145	+	then {
	146	+	let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
	147	+	let minAmountToReceive1 = args2[0]
	148	+	let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
	149	+	if ((invariantNew >= invariant))
	150	+	then minAmountToReceive1
	151	+	else throw("Flat contract: invariantNew < invariant")
	152	+	}
	153	+	else throw("Incorrect exchange type")
	154	+	}
	155	+	let getFrom2TradeWithFee = if ((exchangersType[1] == "curveMultyFlat"))
	156	+	then {
	157	+	let inv = {
	158	+	let @ = invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)
	159	+	if ($isInstanceOf(@, "(Int, Int)"))
	160	+	then @
	161	+	else throw(($getType(invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
139	162		}
140		-	else throw("Incorrect exchange type")
141		-	let getFrom2TradeWithFee = if ((exchangersType[1] == "cpmm"))
142		-	then {
143		-	let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
144		-	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
145		-	fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	163	+	if ((inv == inv))
	164	+	then inv._1
	165	+	else throw("Strict value is not equal to itself.")
146	166		}
147		-	else if ((exchangersType[1] == "flat"))
148		-	then {
149		-	let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
150		-	let minAmountToReceive2 = args2[1]
151		-	let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
152		-	if ((invariantNew >= invariant))
153		-	then minAmountToReceive2
154		-	else throw("Flat contract: invariantNew < invariant")
155		-	}
156		-	else throw("Incorrect exchange type")
	167	+	else {
	168	+	let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
	169	+	let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
	170	+	if ((exchangersType[1] == "cpmm"))
	171	+	then {
	172	+	let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
	173	+	let fee = getIntegerValue(addressFromStringValue(exchangers[1]), kFee)
	174	+	fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	175	+	}
	176	+	else if ((exchangersType[1] == "flat"))
	177	+	then {
	178	+	let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
	179	+	let minAmountToReceive2 = args2[1]
	180	+	let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
	181	+	if ((invariantNew >= invariant))
	182	+	then minAmountToReceive2
	183	+	else throw("Flat contract: invariantNew < invariant")
	184	+	}
	185	+	else throw("Incorrect exchange type")
	186	+	}
157	187		(getFrom2TradeWithFee >= minAmountToReceive)
158	188		}
159	189
160	190
161	191		@Callable(i)
162	192		func routingTrade (exchangers,exchangersType,args1,args2,routingAssetsKeys,minAmountToReceive) = valueOrElse(isActive(), {
163		-	let $~~t067036777~~ = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
164		-	let pmtAmount = $~~t067036777~~._1
165		-	let pmtAssetId = $~~t067036777~~._2
	193	+	let $t074417515 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
	194	+	let pmtAmount = $t074417515._1
	195	+	let pmtAssetId = $t074417515._2
166	196		if (!(checkPossibility(i.caller, pmtAmount, minAmountToReceive, exchangers, exchangersType, routingAssetsKeys, args1, args2)))
167	197		then throw("Check transaction possibilty: declined")
168	198		else if (if (!(isDefined(getString(oracle, (kPoolInOracle + exchangers[0])))))

172	202		else {
173	203		let routingSize = size(exchangers)
174	204		func exchangeFold (accumulated,exchanger) = {
175		-	let $~~t072917356~~ = accumulated
176		-	let exchangeCounter = $~~t072917356~~._1
177		-	let amountsWithFee = $~~t072917356~~._2
178		-	let assetsIdSend = $~~t072917356~~._3
179		-	let $~~t073697567~~ = if ((exchangeCounter == 0))
	205	+	let $t080298094 = accumulated
	206	+	let exchangeCounter = $t080298094._1
	207	+	let amountsWithFee = $t080298094._2
	208	+	let assetsIdSend = $t080298094._3
	209	+	let $t081078305 = if ((exchangeCounter == 0))
180	210		then $Tuple2(pmtAssetId, pmtAmount)
181	211		else $Tuple2(assetsIdSend, amountsWithFee)
182		-	let pmtAssetIdRout = $~~t073697567~~._1
183		-	let pmtAmountRout = $~~t073697567~~._2
	212	+	let pmtAssetIdRout = $t081078305._1
	213	+	let pmtAmountRout = $t081078305._2
184	214		if (((if ((exchangeCounter >= 0))
185	215		then (routingSize > exchangeCounter)
186	216		else false) == true))
187	217		then {
188	218		let exchangerAddress = addressFromStringValue(exchanger)
189		-	let inv = if ((exchangersType[exchangeCounter] == "cpmm"))
190		-	then invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	219	+	if ((exchangersType[exchangeCounter] == "cpmm"))
	220	+	then {
	221	+	let $t085528711 = {
	222	+	let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	223	+	if ($isInstanceOf(@, "(Int, Int)"))
	224	+	then @
	225	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to (Int, Int)"))
	226	+	}
	227	+	if (($t085528711 == $t085528711))
	228	+	then {
	229	+	let assetId = $t085528711._2
	230	+	let amount = $t085528711._1
	231	+	$Tuple3((exchangeCounter + 1), amount, assetId)
	232	+	}
	233	+	else throw("Strict value is not equal to itself.")
	234	+	}
191	235		else if ((exchangersType[exchangeCounter] == "flat"))
192		-	then invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
193		-	else throw("Incorrect exchange type")
194		-	if ((inv == inv))
195		-	then match inv {
196		-	case inv: (Int, Unit)\|(Int, ByteVector) =>
197		-	let $t084158453 = inv
198		-	let amountWithFee = $t084158453._1
199		-	let assetIdSend = $t084158453._2
200		-	$Tuple3((exchangeCounter + 1), amountWithFee, assetIdSend)
201		-	case _ =>
202		-	throw("Incorrect invoke result: expected amountWithFee and assetsIdSend")
203		-	}
204		-	else throw("Strict value is not equal to itself.")
	236	+	then {
	237	+	let inv = {
	238	+	let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	239	+	if ($isInstanceOf(@, "List[Any]"))
	240	+	then @
	241	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
	242	+	}
	243	+	if ((inv == inv))
	244	+	then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
	245	+	else throw("Strict value is not equal to itself.")
	246	+	}
	247	+	else if ((exchangersType[exchangeCounter] == "curveMultyFlat"))
	248	+	then {
	249	+	let inv = {
	250	+	let @ = invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	251	+	if ($isInstanceOf(@, "List[Any]"))
	252	+	then @
	253	+	else throw(($getType(invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
	254	+	}
	255	+	if ((inv == inv))
	256	+	then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
	257	+	else throw("Strict value is not equal to itself.")
	258	+	}
	259	+	else throw("Incorrect exchange type")
205	260		}
206	261		else accumulated
207	262		}
208	263
209		-	let $~~t087338839~~ = {
	264	+	let $t095689674 = {
210	265		let $l = exchangers
211	266		let $s = size($l)
212	267		let $acc0 = $Tuple3(0, 0, base58'')

220	275
221	276		$f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
222	277		}
223		-	let exchangeCounter = $~~t087338839~~._1
224		-	let amountWithoutFee = $~~t087338839~~._2
225		-	let assetIdSend = $~~t087338839~~._3
	278	+	let exchangeCounter = $t095689674._1
	279	+	let amountWithoutFee = $t095689674._2
	280	+	let assetIdSend = $t095689674._3
226	281		let amountWithFee = fraction(amountWithoutFee, (feeScale6 - routingFee), feeScale6)
227	282		if (if ((exchangeCounter == routingSize))
228	283		then (amountWithFee >= minAmountToReceive)

Old	New		Differences
1		-	{-# STDLIB_VERSION 5 #-}
	1	+	{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let kActive = "active"
5	5
6	6		let kCause = "shutdown_cause"
7	7
8	8		let kPoolInOracle = "pool_"
9	9
10	10		let kUserSwopInGov = "_SWOP_amount"
11	11
12	12		let kDiscounts = "discounts"
13	13
14	14		let kDiscountValues = "discount_values"
15	15
16	16		let kRoutingFee = "routing_fee"
17	17
18	18		let kAdminPubKey1 = "admin_pub_1"
19	19
20	20		let kAdminPubKey2 = "admin_pub_2"
21	21
22	22		let kAdminPubKey3 = "admin_pub_3"
23	23
24	24		let kMoneyBoxAddress = "money_box_address"
25	25
26	26		let kGovAddress = "governance_address"
27	27
28	28		let kFee = "commission"
	29	+
	30	+	let kMultyAssetBalance = "_balance"
29	31
30	32		let digits8 = 8
31	33
32	34		let scale8 = 100000000
33	35
34	36		let scale16 = 10000000000000000
35	37
36	38		let alpha = 50
37	39
38	40		let alphaDigits = 2
39	41
40	42		let beta = 4600000000000000
41	43
42	44		let oracle = Address(base58'3NBBWfzZtZtszaXbitTKnrB2xXwv26Bn7H9')
43	45
44	46		func getBase58FromOracle (key) = match getString(oracle, key) {
45	47		case string: String =>
46	48		fromBase58String(string)
47	49		case nothing =>
48	50		throw((key + "is empty"))
49	51		}
50	52
51	53
52	54		let adminPubKey1 = getBase58FromOracle(kAdminPubKey1)
53	55
54	56		let adminPubKey2 = getBase58FromOracle(kAdminPubKey2)
55	57
56	58		let adminPubKey3 = getBase58FromOracle(kAdminPubKey3)
57	59
58	60		let moneyBoxAddress = Address(getBase58FromOracle(kMoneyBoxAddress))
59	61
60	62		let govAddress = Address(getBase58FromOracle(kGovAddress))
61	63
62	64		let active = valueOrElse(getBoolean(this, kActive), true)
63	65
64	66		let routingFee = valueOrErrorMessage(getInteger(oracle, kRoutingFee), "routing_fee is empty")
65	67
66	68		let feeScale6 = 1000000
67	69
68	70		func isActive () = if (active)
69	71		then unit
70	72		else throw("DApp is inactive at this moment")
71	73
72	74
73	75		func isAdminCall (i) = if (containsElement([adminPubKey1, adminPubKey2, adminPubKey3], i.callerPublicKey))
74	76		then unit
75	77		else throw("Only admin can call this function")
76	78
77	79
78	80		func throwIsActive () = throw("DApp is already active")
79	81
80	82
81	83		func suspend (cause) = [BooleanEntry(kActive, false), StringEntry(kCause, cause)]
82	84
83	85
84	86		func skewness (x,y) = ((fraction(scale16, x, y) + fraction(scale16, y, x)) / 2)
85	87
86	88
87	89		func invariantCalc (x,y) = {
88	90		let sk = skewness(x, y)
89	91		(fraction((x + y), scale16, pow(sk, digits8, alpha, alphaDigits, digits8, CEILING)) + (2 * fraction(toInt(pow(fraction(toBigInt(x), toBigInt(y), toBigInt(scale8)), 0, toBigInt(5), 1, (digits8 / 2), DOWN)), pow((sk - beta), digits8, alpha, alphaDigits, digits8, DOWN), scale8)))
90	92		}
91	93
92	94
93	95		func calculateFeeDiscount (userAddr) = {
94	96		let swopAmount = valueOrElse(getInteger(govAddress, (toString(userAddr) + kUserSwopInGov)), 0)
95	97		let discountValues = split(getStringValue(oracle, kDiscountValues), ",")
96	98		let discounts = split(getStringValue(oracle, kDiscounts), ",")
97	99		if (if ((swopAmount >= parseIntValue(discountValues[0])))
98	100		then (parseIntValue(discountValues[1]) > swopAmount)
99	101		else false)
100	102		then (feeScale6 - parseIntValue(discounts[0]))
101	103		else if (if ((swopAmount >= parseIntValue(discountValues[1])))
102	104		then (parseIntValue(discountValues[2]) > swopAmount)
103	105		else false)
104	106		then (feeScale6 - parseIntValue(discounts[1]))
105	107		else if (if ((swopAmount >= parseIntValue(discountValues[2])))
106	108		then (parseIntValue(discountValues[3]) > swopAmount)
107	109		else false)
108	110		then (feeScale6 - parseIntValue(discounts[2]))
109	111		else if (if ((swopAmount >= parseIntValue(discountValues[3])))
110	112		then (parseIntValue(discountValues[4]) > swopAmount)
111	113		else false)
112	114		then (feeScale6 - parseIntValue(discounts[3]))
113	115		else if ((swopAmount >= parseIntValue(discountValues[4])))
114	116		then (feeScale6 - parseIntValue(discounts[4]))
115	117		else feeScale6
116	118		}
117	119
118	120
119	121		func checkPossibility (caller,pmtAmount,minAmountToReceive,exchangers,exchangersType,routingAssetsKeys,args1,args2) = {
120		-	let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
121		-	let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
122		-	let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
123		-	let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
124	122		let feeDiscount = calculateFeeDiscount(caller)
125		-	let getFrom1TradeWithFee = if ((exchangersType[0] == "~~cpmm~~"))
	123	+	let getFrom1TradeWithFee = if ((exchangersType[0] == "curveMultyFlat"))
126	124		then {
127		-	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
128		-	let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
129		-	fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	125	+	let inv = {
	126	+	let @ = invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)
	127	+	if ($isInstanceOf(@, "(Int, Int)"))
	128	+	then @
	129	+	else throw(($getType(invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
	130	+	}
	131	+	if ((inv == inv))
	132	+	then inv._1
	133	+	else throw("Strict value is not equal to itself.")
130	134		}
131		-	else if ((exchangersType[0] == "flat"))
132		-	then {
133		-	let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
134		-	let minAmountToReceive1 = args2[0]
135		-	let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
136		-	if ((invariantNew >= invariant))
137		-	then minAmountToReceive1
138		-	else throw("Flat contract: invariantNew < invariant")
	135	+	else {
	136	+	let dApp1TokenPay = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[0])
	137	+	let dApp1TokenGet = getIntegerValue(addressFromStringValue(exchangers[0]), routingAssetsKeys[1])
	138	+	if ((exchangersType[0] == "cpmm"))
	139	+	then {
	140	+	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
	141	+	let getFrom1TradeWithoutFee = fraction(dApp1TokenGet, pmtAmount, (pmtAmount + dApp1TokenPay))
	142	+	fraction(getFrom1TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	143	+	}
	144	+	else if ((exchangersType[0] == "flat"))
	145	+	then {
	146	+	let invariant = invariantCalc(dApp1TokenPay, dApp1TokenGet)
	147	+	let minAmountToReceive1 = args2[0]
	148	+	let invariantNew = invariantCalc((dApp1TokenPay + pmtAmount), (dApp1TokenGet - minAmountToReceive1))
	149	+	if ((invariantNew >= invariant))
	150	+	then minAmountToReceive1
	151	+	else throw("Flat contract: invariantNew < invariant")
	152	+	}
	153	+	else throw("Incorrect exchange type")
	154	+	}
	155	+	let getFrom2TradeWithFee = if ((exchangersType[1] == "curveMultyFlat"))
	156	+	then {
	157	+	let inv = {
	158	+	let @ = invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)
	159	+	if ($isInstanceOf(@, "(Int, Int)"))
	160	+	then @
	161	+	else throw(($getType(invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
139	162		}
140		-	else throw("Incorrect exchange type")
141		-	let getFrom2TradeWithFee = if ((exchangersType[1] == "cpmm"))
142		-	then {
143		-	let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
144		-	let fee = getIntegerValue(addressFromStringValue(exchangers[0]), kFee)
145		-	fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	163	+	if ((inv == inv))
	164	+	then inv._1
	165	+	else throw("Strict value is not equal to itself.")
146	166		}
147		-	else if ((exchangersType[1] == "flat"))
148		-	then {
149		-	let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
150		-	let minAmountToReceive2 = args2[1]
151		-	let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
152		-	if ((invariantNew >= invariant))
153		-	then minAmountToReceive2
154		-	else throw("Flat contract: invariantNew < invariant")
155		-	}
156		-	else throw("Incorrect exchange type")
	167	+	else {
	168	+	let dApp2TokenPay = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[2])
	169	+	let dApp2TokenGet = getIntegerValue(addressFromStringValue(exchangers[1]), routingAssetsKeys[3])
	170	+	if ((exchangersType[1] == "cpmm"))
	171	+	then {
	172	+	let getFrom2TradeWithoutFee = fraction(dApp2TokenGet, getFrom1TradeWithFee, (getFrom1TradeWithFee + dApp2TokenPay))
	173	+	let fee = getIntegerValue(addressFromStringValue(exchangers[1]), kFee)
	174	+	fraction(getFrom2TradeWithoutFee, (feeScale6 - fraction(fee, feeDiscount, feeScale6)), feeScale6)
	175	+	}
	176	+	else if ((exchangersType[1] == "flat"))
	177	+	then {
	178	+	let invariant = invariantCalc(dApp2TokenPay, dApp2TokenGet)
	179	+	let minAmountToReceive2 = args2[1]
	180	+	let invariantNew = invariantCalc((dApp2TokenPay + getFrom1TradeWithFee), (dApp2TokenGet - minAmountToReceive2))
	181	+	if ((invariantNew >= invariant))
	182	+	then minAmountToReceive2
	183	+	else throw("Flat contract: invariantNew < invariant")
	184	+	}
	185	+	else throw("Incorrect exchange type")
	186	+	}
157	187		(getFrom2TradeWithFee >= minAmountToReceive)
158	188		}
159	189
160	190
161	191		@Callable(i)
162	192		func routingTrade (exchangers,exchangersType,args1,args2,routingAssetsKeys,minAmountToReceive) = valueOrElse(isActive(), {
163		-	let $~~t067036777~~ = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
164		-	let pmtAmount = $~~t067036777~~._1
165		-	let pmtAssetId = $~~t067036777~~._2
	193	+	let $t074417515 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
	194	+	let pmtAmount = $t074417515._1
	195	+	let pmtAssetId = $t074417515._2
166	196		if (!(checkPossibility(i.caller, pmtAmount, minAmountToReceive, exchangers, exchangersType, routingAssetsKeys, args1, args2)))
167	197		then throw("Check transaction possibilty: declined")
168	198		else if (if (!(isDefined(getString(oracle, (kPoolInOracle + exchangers[0])))))
169	199		then true
170	200		else !(isDefined(getString(oracle, (kPoolInOracle + exchangers[1])))))
171	201		then throw("Pool is not in oracle")
172	202		else {
173	203		let routingSize = size(exchangers)
174	204		func exchangeFold (accumulated,exchanger) = {
175		-	let $~~t072917356~~ = accumulated
176		-	let exchangeCounter = $~~t072917356~~._1
177		-	let amountsWithFee = $~~t072917356~~._2
178		-	let assetsIdSend = $~~t072917356~~._3
179		-	let $~~t073697567~~ = if ((exchangeCounter == 0))
	205	+	let $t080298094 = accumulated
	206	+	let exchangeCounter = $t080298094._1
	207	+	let amountsWithFee = $t080298094._2
	208	+	let assetsIdSend = $t080298094._3
	209	+	let $t081078305 = if ((exchangeCounter == 0))
180	210		then $Tuple2(pmtAssetId, pmtAmount)
181	211		else $Tuple2(assetsIdSend, amountsWithFee)
182		-	let pmtAssetIdRout = $~~t073697567~~._1
183		-	let pmtAmountRout = $~~t073697567~~._2
	212	+	let pmtAssetIdRout = $t081078305._1
	213	+	let pmtAmountRout = $t081078305._2
184	214		if (((if ((exchangeCounter >= 0))
185	215		then (routingSize > exchangeCounter)
186	216		else false) == true))
187	217		then {
188	218		let exchangerAddress = addressFromStringValue(exchanger)
189		-	let inv = if ((exchangersType[exchangeCounter] == "cpmm"))
190		-	then invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	219	+	if ((exchangersType[exchangeCounter] == "cpmm"))
	220	+	then {
	221	+	let $t085528711 = {
	222	+	let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	223	+	if ($isInstanceOf(@, "(Int, Int)"))
	224	+	then @
	225	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to (Int, Int)"))
	226	+	}
	227	+	if (($t085528711 == $t085528711))
	228	+	then {
	229	+	let assetId = $t085528711._2
	230	+	let amount = $t085528711._1
	231	+	$Tuple3((exchangeCounter + 1), amount, assetId)
	232	+	}
	233	+	else throw("Strict value is not equal to itself.")
	234	+	}
191	235		else if ((exchangersType[exchangeCounter] == "flat"))
192		-	then invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
193		-	else throw("Incorrect exchange type")
194		-	if ((inv == inv))
195		-	then match inv {
196		-	case inv: (Int, Unit)\|(Int, ByteVector) =>
197		-	let $t084158453 = inv
198		-	let amountWithFee = $t084158453._1
199		-	let assetIdSend = $t084158453._2
200		-	$Tuple3((exchangeCounter + 1), amountWithFee, assetIdSend)
201		-	case _ =>
202		-	throw("Incorrect invoke result: expected amountWithFee and assetsIdSend")
203		-	}
204		-	else throw("Strict value is not equal to itself.")
	236	+	then {
	237	+	let inv = {
	238	+	let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	239	+	if ($isInstanceOf(@, "List[Any]"))
	240	+	then @
	241	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
	242	+	}
	243	+	if ((inv == inv))
	244	+	then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
	245	+	else throw("Strict value is not equal to itself.")
	246	+	}
	247	+	else if ((exchangersType[exchangeCounter] == "curveMultyFlat"))
	248	+	then {
	249	+	let inv = {
	250	+	let @ = invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
	251	+	if ($isInstanceOf(@, "List[Any]"))
	252	+	then @
	253	+	else throw(($getType(invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
	254	+	}
	255	+	if ((inv == inv))
	256	+	then $Tuple3((exchangeCounter + 1), inv[0], inv[1])
	257	+	else throw("Strict value is not equal to itself.")
	258	+	}
	259	+	else throw("Incorrect exchange type")
205	260		}
206	261		else accumulated
207	262		}
208	263
209		-	let $~~t087338839~~ = {
	264	+	let $t095689674 = {
210	265		let $l = exchangers
211	266		let $s = size($l)
212	267		let $acc0 = $Tuple3(0, 0, base58'')
213	268		func $f0_1 ($a,$i) = if (($i >= $s))
214	269		then $a
215	270		else exchangeFold($a, $l[$i])
216	271
217	272		func $f0_2 ($a,$i) = if (($i >= $s))
218	273		then $a
219	274		else throw("List size exceeds 3")
220	275
221	276		$f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
222	277		}
223		-	let exchangeCounter = $~~t087338839~~._1
224		-	let amountWithoutFee = $~~t087338839~~._2
225		-	let assetIdSend = $~~t087338839~~._3
	278	+	let exchangeCounter = $t095689674._1
	279	+	let amountWithoutFee = $t095689674._2
	280	+	let assetIdSend = $t095689674._3
226	281		let amountWithFee = fraction(amountWithoutFee, (feeScale6 - routingFee), feeScale6)
227	282		if (if ((exchangeCounter == routingSize))
228	283		then (amountWithFee >= minAmountToReceive)
229	284		else false)
230	285		then [ScriptTransfer(i.caller, amountWithFee, assetIdSend), ScriptTransfer(moneyBoxAddress, (amountWithoutFee - amountWithFee), assetIdSend)]
231	286		else throw("routing != routingSize or amountToRecieve < minAmountToReceive")
232	287		}
233	288		})
234	289
235	290
236	291
237	292		@Callable(i)
238	293		func shutdown () = valueOrElse(isAdminCall(i), if (!(active))
239	294		then throw(("DApp is already suspended. Cause: " + valueOrElse(getString(this, kCause), "the cause wasn't specified")))
240	295		else suspend("Paused by admin"))
241	296
242	297
243	298
244	299		@Callable(i)
245	300		func activate () = valueOrElse(isAdminCall(i), if (active)
246	301		then throwIsActive()
247	302		else [BooleanEntry(kActive, true), DeleteEntry(kCause)])
248	303
249	304
250	305		@Verifier(tx)
251	306		func verify () = {
252	307		let multiSignedByAdmins = {
253	308		let adminPubKey1Signed = if (sigVerify(tx.bodyBytes, tx.proofs[0], adminPubKey1))
254	309		then 1
255	310		else 0
256	311		let adminPubKey2Signed = if (sigVerify(tx.bodyBytes, tx.proofs[1], adminPubKey2))
257	312		then 1
258	313		else 0
259	314		let adminPubKey3Signed = if (sigVerify(tx.bodyBytes, tx.proofs[2], adminPubKey3))
260	315		then 1
261	316		else 0
262	317		(((adminPubKey1Signed + adminPubKey2Signed) + adminPubKey3Signed) >= 2)
263	318		}
264	319		match tx {
265	320		case _ =>
266	321		multiSignedByAdmins
267	322		}
268	323		}
269	324

github/deemru/w8io/026f985 
50.67 ms ◑