w8 · tx · CFW···FHt

tx · CFWPUccGbc6SooPMwrAyEumopuTnkM9Fm9DXtZUs6FHt

3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8:  -0.01400000 Waves

2022.09.14 17:28 [2228893] smart account 3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CFWPUccGbc6SooPMwrAyEumopuTnkM9Fm9DXtZUs6FHt",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1663165677772,
    "version": 2,
    "chainId": 84,
    "sender": "3MqDf9VgoL9eqrCPx8F74Au6xBpvdTm9UP8",
    "senderPublicKey": "4ja2PX5eqM576zv9KGzu5Qe7M92Z3jbuSmkLPdGjK4ue",
    "proofs": [
        "3aMyWG6Sy1S9wyqhDum8o6TuitusmoGLyFTbP5EtBqg5UL8sRnFMJvodSiZuEZ8XocMWd1ftNyFmMKnzfnCp6tLv",
        "LKDNaXhBBd6f8mzq5g5WHzyQYnUVTBPhpF2iqnyYbUc8g2qL8LJf7DR8vcwJYpf91eBGmC2gyMpGEi5xUtJwq8P"
    ],
    "script": "base64:BgIQCAISCAoGGBgRERgBEgASACYAB2tBY3RpdmUCBmFjdGl2ZQAGa0NhdXNlAg5zaHV0ZG93bl9jYXVzZQANa1Bvb2xJbk9yYWNsZQIFcG9vbF8ADmtVc2VyU3dvcEluR292AgxfU1dPUF9hbW91bnQACmtEaXNjb3VudHMCCWRpc2NvdW50cwAPa0Rpc2NvdW50VmFsdWVzAg9kaXNjb3VudF92YWx1ZXMAC2tSb3V0aW5nRmVlAgtyb3V0aW5nX2ZlZQANa0FkbWluUHViS2V5MQILYWRtaW5fcHViXzEADWtBZG1pblB1YktleTICC2FkbWluX3B1Yl8yAA1rQWRtaW5QdWJLZXkzAgthZG1pbl9wdWJfMwAQa01vbmV5Qm94QWRkcmVzcwIRbW9uZXlfYm94X2FkZHJlc3MAC2tHb3ZBZGRyZXNzAhJnb3Zlcm5hbmNlX2FkZHJlc3MABGtGZWUCCmNvbW1pc3Npb24AEmtNdWx0eUFzc2V0QmFsYW5jZQIIX2JhbGFuY2UAB2RpZ2l0czgACAAGc2NhbGU4AIDC1y8AB3NjYWxlMTYAgICE/qbe4REABWFscGhhADIAC2FscGhhRGlnaXRzAAIABGJldGEAgIDer8/1lQgABm9yYWNsZQkBB0FkZHJlc3MBARoBVOlFqh6QLzqu8boO5i6akl8amITh82KzCAETZ2V0QmFzZTU4RnJvbU9yYWNsZQEDa2V5BAckbWF0Y2gwCQCdCAIFBm9yYWNsZQUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQGc3RyaW5nBQckbWF0Y2gwCQDZBAEFBnN0cmluZwQHbm90aGluZwUHJG1hdGNoMAkAAgEJAKwCAgUDa2V5AghpcyBlbXB0eQAMYWRtaW5QdWJLZXkxCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFDWtBZG1pblB1YktleTEADGFkbWluUHViS2V5MgkBE2dldEJhc2U1OEZyb21PcmFjbGUBBQ1rQWRtaW5QdWJLZXkyAAxhZG1pblB1YktleTMJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUNa0FkbWluUHViS2V5MwAPbW9uZXlCb3hBZGRyZXNzCQEHQWRkcmVzcwEJARNnZXRCYXNlNThGcm9tT3JhY2xlAQUQa01vbmV5Qm94QWRkcmVzcwAKZ292QWRkcmVzcwkBB0FkZHJlc3MBCQETZ2V0QmFzZTU4RnJvbU9yYWNsZQEFC2tHb3ZBZGRyZXNzAAZhY3RpdmUJAQt2YWx1ZU9yRWxzZQIJAJsIAgUEdGhpcwUHa0FjdGl2ZQYACnJvdXRpbmdGZWUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQZvcmFjbGUFC2tSb3V0aW5nRmVlAhRyb3V0aW5nX2ZlZSBpcyBlbXB0eQAJZmVlU2NhbGU2AMCEPQEIaXNBY3RpdmUAAwUGYWN0aXZlBQR1bml0CQACAQIfREFwcCBpcyBpbmFjdGl2ZSBhdCB0aGlzIG1vbWVudAELaXNBZG1pbkNhbGwBAWkDCQEPY29udGFpbnNFbGVtZW50AgkAzAgCBQxhZG1pblB1YktleTEJAMwIAgUMYWRtaW5QdWJLZXkyCQDMCAIFDGFkbWluUHViS2V5MwUDbmlsCAUBaQ9jYWxsZXJQdWJsaWNLZXkFBHVuaXQJAAIBAiFPbmx5IGFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BDXRocm93SXNBY3RpdmUACQACAQIWREFwcCBpcyBhbHJlYWR5IGFjdGl2ZQEHc3VzcGVuZAEFY2F1c2UJAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2tBY3RpdmUHCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmtDYXVzZQUFY2F1c2UFA25pbAEIc2tld25lc3MCAXgBeQkAaQIJAGQCCQBrAwUHc2NhbGUxNgUBeAUBeQkAawMFB3NjYWxlMTYFAXkFAXgAAgENaW52YXJpYW50Q2FsYwIBeAF5BAJzawkBCHNrZXduZXNzAgUBeAUBeQkAZAIJAGsDCQBkAgUBeAUBeQUHc2NhbGUxNgkAbAYFAnNrBQdkaWdpdHM4BQVhbHBoYQULYWxwaGFEaWdpdHMFB2RpZ2l0czgFB0NFSUxJTkcJAGgCAAIJAGsDCQCgAwEJAHYGCQC8AgMJALYCAQUBeAkAtgIBBQF5CQC2AgEFBnNjYWxlOAAACQC2AgEABQABCQBpAgUHZGlnaXRzOAACBQRET1dOCQBsBgkAZQIFAnNrBQRiZXRhBQdkaWdpdHM4BQVhbHBoYQULYWxwaGFEaWdpdHMFB2RpZ2l0czgFBERPV04FBnNjYWxlOAEUY2FsY3VsYXRlRmVlRGlzY291bnQBCHVzZXJBZGRyBApzd29wQW1vdW50CQELdmFsdWVPckVsc2UCCQCaCAIFCmdvdkFkZHJlc3MJAKwCAgkApQgBBQh1c2VyQWRkcgUOa1VzZXJTd29wSW5Hb3YAAAQOZGlzY291bnRWYWx1ZXMJALUJAgkBEUBleHRyTmF0aXZlKDEwNTMpAgUGb3JhY2xlBQ9rRGlzY291bnRWYWx1ZXMCASwECWRpc2NvdW50cwkAtQkCCQERQGV4dHJOYXRpdmUoMTA1MykCBQZvcmFjbGUFCmtEaXNjb3VudHMCASwDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwAACQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAEFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAADAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwABCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAIFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAEDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwACCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAMFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAIDAwkAZwIFCnN3b3BBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5kaXNjb3VudFZhbHVlcwADCQBmAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAQFCnN3b3BBbW91bnQHCQBlAgUJZmVlU2NhbGU2CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJZGlzY291bnRzAAMDCQBnAgUKc3dvcEFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmRpc2NvdW50VmFsdWVzAAQJAGUCBQlmZWVTY2FsZTYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlkaXNjb3VudHMABAUJZmVlU2NhbGU2ARBjaGVja1Bvc3NpYmlsaXR5CAZjYWxsZXIJcG10QW1vdW50Em1pbkFtb3VudFRvUmVjZWl2ZQpleGNoYW5nZXJzDmV4Y2hhbmdlcnNUeXBlEXJvdXRpbmdBc3NldHNLZXlzBWFyZ3MxBWFyZ3MyBAtmZWVEaXNjb3VudAkBFGNhbGN1bGF0ZUZlZURpc2NvdW50AQUGY2FsbGVyBBRnZXRGcm9tMVRyYWRlV2l0aEZlZQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwAAAgVnZXREeQkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAAJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwABCQDMCAIFCXBtdEFtb3VudAkAzAgCCQClCAEFBmNhbGxlcgUDbmlsBQNuaWwDCQABAgUBQAIKKEludCwgSW50KQUBQAkAAgEJAKwCAgkAAwEJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAACBWdldER5CQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAAkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAEJAMwIAgUJcG10QW1vdW50CQDMCAIJAKUIAQUGY2FsbGVyBQNuaWwFA25pbAIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQNpbnYFA2ludggFA2ludgJfMQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQNZEFwcDFUb2tlblBheQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAAQNZEFwcDFUb2tlbkdldAkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACBGNwbW0EA2ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAAFBGtGZWUEF2dldEZyb20xVHJhZGVXaXRob3V0RmVlCQBrAwUNZEFwcDFUb2tlbkdldAUJcG10QW1vdW50CQBkAgUJcG10QW1vdW50BQ1kQXBwMVRva2VuUGF5CQBrAwUXZ2V0RnJvbTFUcmFkZVdpdGhvdXRGZWUJAGUCBQlmZWVTY2FsZTYJAGsDBQNmZWUFC2ZlZURpc2NvdW50BQlmZWVTY2FsZTYFCWZlZVNjYWxlNgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAACBGZsYXQECWludmFyaWFudAkBDWludmFyaWFudENhbGMCBQ1kQXBwMVRva2VuUGF5BQ1kQXBwMVRva2VuR2V0BBNtaW5BbW91bnRUb1JlY2VpdmUxCQCRAwIFBWFyZ3MyAAAEDGludmFyaWFudE5ldwkBDWludmFyaWFudENhbGMCCQBkAgUNZEFwcDFUb2tlblBheQUJcG10QW1vdW50CQBlAgUNZEFwcDFUb2tlbkdldAUTbWluQW1vdW50VG9SZWNlaXZlMQMJAGcCBQxpbnZhcmlhbnROZXcFCWludmFyaWFudAUTbWluQW1vdW50VG9SZWNlaXZlMQkAAgECJ0ZsYXQgY29udHJhY3Q6IGludmFyaWFudE5ldyA8IGludmFyaWFudAkAAgECF0luY29ycmVjdCBleGNoYW5nZSB0eXBlBBRnZXRGcm9tMlRyYWRlV2l0aEZlZQMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlAAECDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABAgVnZXREeQkAzAgCCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAIJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwADCQDMCAIFFGdldEZyb20xVHJhZGVXaXRoRmVlCQDMCAIJAKUIAQUGY2FsbGVyBQNuaWwFA25pbAMJAAECBQFAAgooSW50LCBJbnQpBQFACQACAQkArAICCQADAQkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFCmV4Y2hhbmdlcnMAAQIFZ2V0RHkJAMwIAgkAkQMCBRFyb3V0aW5nQXNzZXRzS2V5cwACCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMAAwkAzAgCBRRnZXRGcm9tMVRyYWRlV2l0aEZlZQkAzAgCCQClCAEFBmNhbGxlcgUDbmlsBQNuaWwCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkDCQAAAgUDaW52BQNpbnYIBQNpbnYCXzEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EDWRBcHAyVG9rZW5QYXkJARFAZXh0ck5hdGl2ZSgxMDUwKQIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAIEDWRBcHAyVG9rZW5HZXQJARFAZXh0ck5hdGl2ZSgxMDUwKQIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUKZXhjaGFuZ2VycwABCQCRAwIFEXJvdXRpbmdBc3NldHNLZXlzAAMDCQAAAgkAkQMCBQ5leGNoYW5nZXJzVHlwZQABAgRjcG1tBBdnZXRGcm9tMlRyYWRlV2l0aG91dEZlZQkAawMFDWRBcHAyVG9rZW5HZXQFFGdldEZyb20xVHJhZGVXaXRoRmVlCQBkAgUUZ2V0RnJvbTFUcmFkZVdpdGhGZWUFDWRBcHAyVG9rZW5QYXkEA2ZlZQkBEUBleHRyTmF0aXZlKDEwNTApAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQpleGNoYW5nZXJzAAEFBGtGZWUJAGsDBRdnZXRGcm9tMlRyYWRlV2l0aG91dEZlZQkAZQIFCWZlZVNjYWxlNgkAawMFA2ZlZQULZmVlRGlzY291bnQFCWZlZVNjYWxlNgUJZmVlU2NhbGU2AwkAAAIJAJEDAgUOZXhjaGFuZ2Vyc1R5cGUAAQIEZmxhdAQJaW52YXJpYW50CQENaW52YXJpYW50Q2FsYwIFDWRBcHAyVG9rZW5QYXkFDWRBcHAyVG9rZW5HZXQEE21pbkFtb3VudFRvUmVjZWl2ZTIJAJEDAgUFYXJnczIAAQQMaW52YXJpYW50TmV3CQENaW52YXJpYW50Q2FsYwIJAGQCBQ1kQXBwMlRva2VuUGF5BRRnZXRGcm9tMVRyYWRlV2l0aEZlZQkAZQIFDWRBcHAyVG9rZW5HZXQFE21pbkFtb3VudFRvUmVjZWl2ZTIDCQBnAgUMaW52YXJpYW50TmV3BQlpbnZhcmlhbnQFE21pbkFtb3VudFRvUmVjZWl2ZTIJAAIBAidGbGF0IGNvbnRyYWN0OiBpbnZhcmlhbnROZXcgPCBpbnZhcmlhbnQJAAIBAhdJbmNvcnJlY3QgZXhjaGFuZ2UgdHlwZQkAZwIFFGdldEZyb20yVHJhZGVXaXRoRmVlBRJtaW5BbW91bnRUb1JlY2VpdmUDAWkBDHJvdXRpbmdUcmFkZQYKZXhjaGFuZ2Vycw5leGNoYW5nZXJzVHlwZQVhcmdzMQVhcmdzMhFyb3V0aW5nQXNzZXRzS2V5cxJtaW5BbW91bnRUb1JlY2VpdmUJAQt2YWx1ZU9yRWxzZQIJAQhpc0FjdGl2ZQAECyR0MDc0NDE3NTE1CQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQECXBtdEFtb3VudAgFCyR0MDc0NDE3NTE1Al8xBApwbXRBc3NldElkCAULJHQwNzQ0MTc1MTUCXzIDCQEBIQEJARBjaGVja1Bvc3NpYmlsaXR5CAgFAWkGY2FsbGVyBQlwbXRBbW91bnQFEm1pbkFtb3VudFRvUmVjZWl2ZQUKZXhjaGFuZ2VycwUOZXhjaGFuZ2Vyc1R5cGUFEXJvdXRpbmdBc3NldHNLZXlzBQVhcmdzMQUFYXJnczIJAAIBAiZDaGVjayB0cmFuc2FjdGlvbiBwb3NzaWJpbHR5OiBkZWNsaW5lZAMDCQEBIQEJAQlpc0RlZmluZWQBCQCdCAIFBm9yYWNsZQkArAICBQ1rUG9vbEluT3JhY2xlCQCRAwIFCmV4Y2hhbmdlcnMAAAYJAQEhAQkBCWlzRGVmaW5lZAEJAJ0IAgUGb3JhY2xlCQCsAgIFDWtQb29sSW5PcmFjbGUJAJEDAgUKZXhjaGFuZ2VycwABCQACAQIVUG9vbCBpcyBub3QgaW4gb3JhY2xlBAtyb3V0aW5nU2l6ZQkAkAMBBQpleGNoYW5nZXJzCgEMZXhjaGFuZ2VGb2xkAgthY2N1bXVsYXRlZAlleGNoYW5nZXIECyR0MDgwMjk4MDk0BQthY2N1bXVsYXRlZAQPZXhjaGFuZ2VDb3VudGVyCAULJHQwODAyOTgwOTQCXzEEDmFtb3VudHNXaXRoRmVlCAULJHQwODAyOTgwOTQCXzIEDGFzc2V0c0lkU2VuZAgFCyR0MDgwMjk4MDk0Al8zBAskdDA4MTA3ODMwNQMJAAACBQ9leGNoYW5nZUNvdW50ZXIAAAkAlAoCBQpwbXRBc3NldElkBQlwbXRBbW91bnQJAJQKAgUMYXNzZXRzSWRTZW5kBQ5hbW91bnRzV2l0aEZlZQQOcG10QXNzZXRJZFJvdXQIBQskdDA4MTA3ODMwNQJfMQQNcG10QW1vdW50Um91dAgFCyR0MDgxMDc4MzA1Al8yAwkAAAIDCQBnAgUPZXhjaGFuZ2VDb3VudGVyAAAJAGYCBQtyb3V0aW5nU2l6ZQUPZXhjaGFuZ2VDb3VudGVyBwYEEGV4Y2hhbmdlckFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWV4Y2hhbmdlcgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlBQ9leGNoYW5nZUNvdW50ZXICBGNwbW0EA2ludgoAAUAJAPwHBAUQZXhjaGFuZ2VyQWRkcmVzcwIIZXhjaGFuZ2UJAMwIAgkAkQMCBQVhcmdzMQUPZXhjaGFuZ2VDb3VudGVyBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFDnBtdEFzc2V0SWRSb3V0BQ1wbXRBbW91bnRSb3V0BQNuaWwDCQABAgUBQAIRKEludCwgQnl0ZVZlY3RvcikFAUAJAAIBCQCsAgIJAAMBCQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgUFYXJnczEFD2V4Y2hhbmdlQ291bnRlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQ5wbXRBc3NldElkUm91dAUNcG10QW1vdW50Um91dAUDbmlsAiYgY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBCeXRlVmVjdG9yKQMJAAACBQNpbnYFA2ludgkAlQoDCQBkAgUPZXhjaGFuZ2VDb3VudGVyAAEIBQNpbnYCXzEIBQNpbnYCXzIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQAAAgkAkQMCBQ5leGNoYW5nZXJzVHlwZQUPZXhjaGFuZ2VDb3VudGVyAgRmbGF0BANpbnYKAAFACQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgUFYXJnczEFD2V4Y2hhbmdlQ291bnRlcgkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAMJAAECBQFAAglMaXN0W0FueV0FAUAJAAIBCQCsAgIJAAMBCQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgUFYXJnczEFD2V4Y2hhbmdlQ291bnRlcgkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAIeIGNvdWxkbid0IGJlIGNhc3QgdG8gTGlzdFtBbnldAwkAAAIFA2ludgUDaW52CQCVCgMJAGQCBQ9leGNoYW5nZUNvdW50ZXIAAQkAkQMCBQNpbnYAAAkAkQMCBQNpbnYAAQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgMJAAACCQCRAwIFDmV4Y2hhbmdlcnNUeXBlBQ9leGNoYW5nZUNvdW50ZXICDmN1cnZlTXVsdHlGbGF0BANpbnYKAAFACQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMJAGQCCQBoAgUPZXhjaGFuZ2VDb3VudGVyAAIAAQkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAMJAAECBQFAAglMaXN0W0FueV0FAUAJAAIBCQCsAgIJAAMBCQD8BwQFEGV4Y2hhbmdlckFkZHJlc3MCCGV4Y2hhbmdlCQDMCAIJAJEDAgURcm91dGluZ0Fzc2V0c0tleXMJAGQCCQBoAgUPZXhjaGFuZ2VDb3VudGVyAAIAAQkAzAgCCQCRAwIFBWFyZ3MyBQ9leGNoYW5nZUNvdW50ZXIFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUOcG10QXNzZXRJZFJvdXQFDXBtdEFtb3VudFJvdXQFA25pbAIeIGNvdWxkbid0IGJlIGNhc3QgdG8gTGlzdFtBbnldAwkAAAIFA2ludgUDaW52CQCVCgMJAGQCBQ9leGNoYW5nZUNvdW50ZXIAAQkAkQMCBQNpbnYAAAkAkQMCBQNpbnYAAQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECF0luY29ycmVjdCBleGNoYW5nZSB0eXBlBQthY2N1bXVsYXRlZAQLJHQwOTU2MDk2NjYKAAIkbAUKZXhjaGFuZ2VycwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwAAAAABAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMZXhjaGFuZ2VGb2xkAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAzCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADBA9leGNoYW5nZUNvdW50ZXIIBQskdDA5NTYwOTY2NgJfMQQQYW1vdW50V2l0aG91dEZlZQgFCyR0MDk1NjA5NjY2Al8yBAthc3NldElkU2VuZAgFCyR0MDk1NjA5NjY2Al8zBA1hbW91bnRXaXRoRmVlCQBrAwUQYW1vdW50V2l0aG91dEZlZQkAZQIFCWZlZVNjYWxlNgUKcm91dGluZ0ZlZQUJZmVlU2NhbGU2AwMJAAACBQ9leGNoYW5nZUNvdW50ZXIFC3JvdXRpbmdTaXplCQBnAgUNYW1vdW50V2l0aEZlZQUSbWluQW1vdW50VG9SZWNlaXZlBwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDWFtb3VudFdpdGhGZWUFC2Fzc2V0SWRTZW5kCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFD21vbmV5Qm94QWRkcmVzcwkAZQIFEGFtb3VudFdpdGhvdXRGZWUFDWFtb3VudFdpdGhGZWUFC2Fzc2V0SWRTZW5kBQNuaWwJAAIBAj5yb3V0aW5nICE9IHJvdXRpbmdTaXplIG9yIGFtb3VudFRvUmVjaWV2ZSA8IG1pbkFtb3VudFRvUmVjZWl2ZQFpAQhzaHV0ZG93bgAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDCQEBIQEFBmFjdGl2ZQkAAgEJAKwCAgIiREFwcCBpcyBhbHJlYWR5IHN1c3BlbmRlZC4gQ2F1c2U6IAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzBQZrQ2F1c2UCGnRoZSBjYXVzZSB3YXNuJ3Qgc3BlY2lmaWVkCQEHc3VzcGVuZAECD1BhdXNlZCBieSBhZG1pbgFpAQhhY3RpdmF0ZQAJAQt2YWx1ZU9yRWxzZQIJAQtpc0FkbWluQ2FsbAEFAWkDBQZhY3RpdmUJAQ10aHJvd0lzQWN0aXZlAAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHa0FjdGl2ZQYJAMwIAgkBC0RlbGV0ZUVudHJ5AQUGa0NhdXNlBQNuaWwBAnR4AQZ2ZXJpZnkABBNtdWx0aVNpZ25lZEJ5QWRtaW5zBBJhZG1pblB1YktleTFTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAABQxhZG1pblB1YktleTEAAQAABBJhZG1pblB1YktleTJTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwABBQxhZG1pblB1YktleTIAAQAABBJhZG1pblB1YktleTNTaWduZWQDCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwACBQxhZG1pblB1YktleTMAAQAACQBnAgkAZAIJAGQCBRJhZG1pblB1YktleTFTaWduZWQFEmFkbWluUHViS2V5MlNpZ25lZAUSYWRtaW5QdWJLZXkzU2lnbmVkAAIEByRtYXRjaDAFAnR4BRNtdWx0aVNpZ25lZEJ5QWRtaW5zdrJntg==",
    "height": 2228893,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2H3adsHairCBijtE37fpZ4b4buUvnSZuBNmJxZhsyPKG
Next: BspVMrbjVo7FTTkma8cdcRXbgciwnNdorLRYKLVdTitx

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

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"

126	126		let @ = invoke(addressFromStringValue(exchangers[0]), "getDy", [routingAssetsKeys[0], routingAssetsKeys[1], pmtAmount, toString(caller)], nil)
127	127		if ($isInstanceOf(@, "(Int, Int)"))
128	128		then @
129		-	else throw("~~Couldn~~'t cast ~~Any~~ to (Int, Int)")
	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	130		}
131	131		if ((inv == inv))
132	132		then inv._1

158	158		let @ = invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)
159	159		if ($isInstanceOf(@, "(Int, Int)"))
160	160		then @
161		-	else throw("~~Couldn~~'t cast ~~Any~~ to (Int, Int)")
	161	+	else throw(($getType(invoke(addressFromStringValue(exchangers[1]), "getDy", [routingAssetsKeys[2], routingAssetsKeys[3], getFrom1TradeWithFee, toString(caller)], nil)) + " couldn't be cast to (Int, Int)"))
162	162		}
163	163		if ((inv == inv))
164	164		then inv._1

222	222		let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
223	223		if ($isInstanceOf(@, "(Int, ByteVector)"))
224	224		then @
225		-	else throw("~~Couldn~~'t cast ~~Any~~ to (Int, ByteVector)")
	225	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to (Int, ByteVector)"))
226	226		}
227	227		if ((inv == inv))
228	228		then $Tuple3((exchangeCounter + 1), inv._1, inv._2)

234	234		let @ = invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
235	235		if ($isInstanceOf(@, "List[Any]"))
236	236		then @
237		-	else throw("~~Couldn~~'t cast ~~Any~~ to List[Any]")
	237	+	else throw(($getType(invoke(exchangerAddress, "exchange", [args1[exchangeCounter], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
238	238		}
239	239		if ((inv == inv))
240	240		then $Tuple3((exchangeCounter + 1), inv[0], inv[1])

246	246		let @ = invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])
247	247		if ($isInstanceOf(@, "List[Any]"))
248	248		then @
249		-	else throw("~~Couldn~~'t cast ~~Any~~ to List[Any]")
	249	+	else throw(($getType(invoke(exchangerAddress, "exchange", [routingAssetsKeys[((exchangeCounter * 2) + 1)], args2[exchangeCounter]], [AttachedPayment(pmtAssetIdRout, pmtAmountRout)])) + " couldn't be cast to List[Any]"))
250	250		}
251	251		if ((inv == inv))
252	252		then $Tuple3((exchangeCounter + 1), inv[0], inv[1])

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

github/deemru/w8io/026f985 
62.58 ms ◑