w8 · tx · 2M1···Swc

tx · 2M1F4FYuYAmRxF5umDT7fkao33akzWdcNdxQBRyX5Swc

3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT:  -0.03300000 Waves

2022.10.07 15:09 [2261894] smart account 3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2M1F4FYuYAmRxF5umDT7fkao33akzWdcNdxQBRyX5Swc",
    "fee": 3300000,
    "feeAssetId": null,
    "timestamp": 1665144592828,
    "version": 1,
    "sender": "3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT",
    "senderPublicKey": "D1BL65meykxFZTCuq7jq9HSGLLnWvQamQPUNrguW5w39",
    "proofs": [
        "288Adr9BSUVueweUaJJWgX6wue65vi5j8PVKRpVbrtiutqfuwzT9bnqh95NiyGMroJR783dcFdSyvAZsPakUaJMW"
    ],
    "script": "base64:BgL9IAgCEgMKAQgSAwoBCBIAEgQKAgEEEgcKBQEBAQEEEgQKAgEEEgMKAQESABIHCgUBAQEIARIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEIARIECgIBCBIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIEgAiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgRiaWcyIgpzbGlwcGFnZTREIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhBpZHhGYWN0U2xpcHBDbnRyIhFpZHhGYWN0R3d4UmV3Q250ciIKZmVlRGVmYXVsdCICdDEiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiAmYxIgN2YWwiD3Jlc3VsdFNjYWxlTXVsdCICdHMiA2FtdCIIcmVzU2NhbGUiCGN1clNjYWxlIgNhYnMiCWFic0JpZ0ludCICZmMiA21wayIEcG1wayICcGwiAnBoIgFoIgF0IgNwYXUiAnVhIgR0eElkIgNnYXUiAmFhIgJwYSIDYW1wIgNhZGEiBmtleUZlZSIDZmVlIgRmY2ZnIgRtdHBrIgJwYyIGaUFtdEFzIgVpUHJBcyIDbWJhIgViQVN0ciIDYXBzIhxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIgN0b2UiA29yViIGc2VuZHJWIgZtYXRjaFYiA3N0ciIHJG1hdGNoMCIGdmFsU3RyIgRzdHJmIgRhZGRyIgNrZXkiBGludGYiA2ZjYSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIJZmVlQW1vdW50IgNlZ28iBnR4SWQ1OCIKcG10QXNzZXRJZCIIcG10THBBbXQiC3VzZXJBZGRyZXNzIgRscElkIgRhbUlkIgRwcklkIgVhbURjbSIFcHJEY20iA3N0cyIHbHBFbWlzcyIJYW1CYWxhbmNlIgxhbUJhbGFuY2VYMTgiCXByQmFsYW5jZSIMcHJCYWxhbmNlWDE4IgtjdXJQcmljZVgxOCIIY3VyUHJpY2UiC3BtdExwQW10WDE4IgpscEVtaXNzWDE4IgtvdXRBbUFtdFgxOCILb3V0UHJBbXRYMTgiCG91dEFtQW10IghvdXRQckFtdCIFc3RhdGUiA2VwbyIHaW5BbUFtdCIGaW5BbUlkIgdpblByQW10IgZpblBySWQiBmlzRXZhbCIGZW1pdExwIgppc09uZUFzc2V0IhB2YWxpZGF0ZVNsaXBwYWdlIgZwbXRBbXQiBXBtdElkIgdhbUlkU3RyIgdwcklkU3RyIglpbkFtSWRTdHIiCWluUHJJZFN0ciIGYW10RGNtIghwcmljZURjbSIEbHBFbSIPaW5BbUFzc2V0QW10WDE4Ig9pblByQXNzZXRBbXRYMTgiDHVzZXJQcmljZVgxOCIBciILc2xpcHBhZ2VYMTgiD3NsaXBwYWdlUmVhbFgxOCINbHBFbWlzc2lvblgxOCIKcHJWaWFBbVgxOCIKYW1WaWFQclgxOCIMZXhwZWN0ZWRBbXRzIhFleHBBbXRBc3NldEFtdFgxOCITZXhwUHJpY2VBc3NldEFtdFgxOCIJY2FsY0xwQW10Ig5jYWxjQW1Bc3NldFBtdCIOY2FsY1ByQXNzZXRQbXQiDHNsaXBwYWdlQ2FsYyIJZW1pdExwQW10IgZhbURpZmYiBnByRGlmZiINJHQwMTYzNTExNjY5NiIKd3JpdGVBbUFtdCIKd3JpdGVQckFtdCILY29tbW9uU3RhdGUiA21vYSIFb3JkZXIiB2FtdEFzSWQiBnByQXNJZCIPYWNjQW10QXNCYWxhbmNlIg5hY2NQckFzQmFsYW5jZSIKb3JBbXRBc3NldCIKb3JBbXRBc1N0ciIJb3JQckFzc2V0IglvclByQXNTdHIiCm9yZGVyUHJpY2UiDmNhc3RPcmRlclByaWNlIhFpc09yZGVyUHJpY2VWYWxpZCICY2ciAWkiA3BtdCICY3AiBmNhbGxlciIHYW1Bc1BtdCIHcHJBc1BtdCIEZ2V0RCICeHAiAW4iA3hwMCIDeHAxIgphUHJlY2lzaW9uIgFhIgFzIgNhbm4iC3hwMF94cDFfbl9uIhBhbm5fc19hUHJlY2lzaW9uIg5hbm5fYVByZWNpc2lvbiICbjEiBGNhbGMiA2FjYyIDY3VyIg0kdDAyMTI0ODIxMjY4IgFkIgVmb3VuZCICZHAiBWROZXh0IgVkRGlmZiIDYXJyIg0kdDAyMTY4OTIxNzM2IgIkbCICJHMiBSRhY2MwIgUkZjBfMSICJGEiAiRpIgUkZjBfMiIFZ2V0WUQiAUQiAXgiAWMiAWIiDSR0MDIyMjM2MjIyNTYiAXkiBXlOZXh0IgV5RGlmZiINJHQwMjI1NjMyMjYxMCINY2FsY1B1dE9uZVRrbiIJcG10QW10UmF3Igpwb29sQ29uZmlnIg0kdDAyMzE1MjIzNjEzIgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCINJHQwMjM2MTkyMzc5NSILYW1BbW91bnRSYXciC3ByQW1vdW50UmF3IghhbUFtb3VudCIIcHJBbW91bnQiDGFtQmFsYW5jZU5ldyIMcHJCYWxhbmNlTmV3IgZjaGVja0QiD2xwQXNzZXRFbWlzc2lvbiIIbHBBbW91bnQiDnBvb2xQcm9wb3J0aW9uIg9hbW91bnRBc3NldFBhcnQiDnByaWNlQXNzZXRQYXJ0IglscEFtdEJvdGgiBWJvbnVzIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDI2MjQ2MjYzNTQiAUAiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjY1NDEyNjcyNCIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgFtIgJwbSICcGQiAm1tIgJwayIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiAmNtIgNocG0iA2NwbSIEc2xpcCIJYXV0b1N0YWtlIgdmYWN0Q2ZnIgtzdGFraW5nQ250ciIIc2xpcENudHIiAWUiCWxwQXNzZXRJZCICZWwiBmxlZ2FjeSICc2EiAnNwIghscFRybnNmciICc3MiC2FtQXNzZXRQYXJ0IgtwckFzc2V0UGFydCIFb3V0THAiB2d3eENudHIiB3Bvb2xDZmciBWFkZG9uIhBwYXltZW50QW1vdW50UmF3Ig0kdDAzMjExMDMyMTYyIg0kdDAzMjMyMjMyOTM4IgxhbUJhbGFuY2VOb3ciDHByQmFsYW5jZU5vdyIMdmlydFN3YXBJbkFtIg12aXJ0U3dhcE91dFByIgx2aXJ0U3dhcEluUHIiDXZpcnRTd2FwT3V0QW0iBkQwdnNEMSIGZXN0UHV0Igdlc3RpbUxQIglscENhbGNSZXMiDSR0MDM1ODQ0MzU5NjkiB21heFNscGciCW91dEFtdEFtdCIKZXhjaFJlc3VsdCIHbm90VXNlZCIJb3V0QW1vdW50Igplc3RpbUFtQW10Igplc3RpbVByQW10Ig0kdDAzOTYwMDQwMDYwIgt0b3RhbEdldFJhdyIIZmluYWxSZXMiDSR0MDQwODA3NDA5MTEiDSR0MDQxOTM2NDIwOTEiDWxwQXNzZXRBbW91bnQiCmxwRW1pc3Npb24iBWluZGV4IgRuZXdZIgJkeSINJHQwNDI4NzA0MjkxOSINJHQwNDMyNjQ0MzM3OSIOc3VtT2ZHZXRBc3NldHMiEm5vTGVzc1RoZW5BbXRBc3NldCIUbm9MZXNzVGhlblByaWNlQXNzZXQiFGJ1cm5MUEFzc2V0T25GYWN0b3J5Ig1jaGVja1BheW1lbnRzIgpmYWN0b3J5Q2ZnIgdzdGFraW5nIgp1bnN0YWtlSW52IgF2IgVidXJuQSINdW5zdGFrZUFtb3VudCINJHQwNDU2ODQ0NTg3MiIOcGF5bWVudEFzc2V0SWQiDSR0MDQ2MTMxNDYyMjgiCGFtdEFzU3RyIgdwckFzU3RyIgFrIgJwciIMcmVzU2NhbGVNdWx0Igd1c3JBZGRyIgdwbXRBc0lkIgJ0eCIGdmVyaWZ5Ig90YXJnZXRQdWJsaWNLZXkiCm1hdGNoZXJQdWIiCm9yZGVyVmFsaWQiC3NlbmRlclZhbGlkIgxtYXRjaGVyVmFsaWQiB25ld0hhc2giC2FsbG93ZWRIYXNoIgtjdXJyZW50SGFzaFwAAWEAgMLXLwABYgkAtgIBAIDC1y8AAWMJALYCAQCAgJC7utat8A0AAWQJALYCAQAAAAFlCQC2AgEAAAABZgkAtgIBAAEAAWcJALYCAQACAAFoCQC2AgEJAGUCBQFhCQBpAgkAaAIFAWEAAQUBYQABaQIDMTAwAAFqAgExAAFrAgJfXwABbAIAAAFtAAEAAW4AAgABbwADAAFwAAQAAXEAAQABcgACAAFzAAMAAXQABAABdQAFAAF2AAYAAXcABwABeAAIAAF5AAkAAXoAAQABQQAHAAFCAAoAAUMJAGsDAAUFAWEAkE4BAUQCAUUBRgkAvAIDCQC2AgEFAUUFAWMJALYCAQUBRgEBRwIBSAFJCQCgAwEJALwCAwUBSAkAtgIBBQFJBQFjAQFKAwFLAUwBTQkAawMFAUsFAUwFAU0BAU4BAUgDCQC/AgIFAWQFAUgJAL4CAQUBSAUBSAEBTwEBSAMJAL8CAgUBZAUBSAkAvgIBBQFIBQFIAQFQAAITJXNfX2ZhY3RvcnlDb250cmFjdAEBUQACFCVzX19tYW5hZ2VyUHVibGljS2V5AQFSAAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQFTAAIRJXMlc19fcHJpY2VfX2xhc3QBAVQCAVUBVgkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAVUJAMwIAgkApAMBBQFWBQNuaWwFAWsBAVcCAVgBWQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAVgCAl9fBQFZAQFaAgFYAVkJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQFYAgJfXwUBWQECYWEAAg8lc19fYW1vdW50QXNzZXQBAmFiAAIOJXNfX3ByaWNlQXNzZXQBAmFjAAIHJXNfX2FtcAECYWQAAg0lc19fYWRkb25BZGRyAAJhZQIHJXNfX2ZlZQACYWYJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUCYWUFAUMBAmFnAAIRJXNfX2ZhY3RvcnlDb25maWcBAmFoAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhaQICYWoCYWsJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmFqAgJfXwUCYWsCCF9fY29uZmlnAQJhbAECYW0JAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYW0BAmFuAAIMJXNfX3NodXRkb3duAQJhbwACHSVzX19hbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAQJhcAACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhcQMCYXICYXMCYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIRRmFpbGVkOiBvcmRWYWxpZD0JAKUDAQUCYXICCyBzbmRyVmFsaWQ9CQClAwEFAmFzAgwgbXRjaHJWYWxpZD0JAKUDAQUCYXQBAmF1AQFIBAJhdgUBSAMJAAECBQJhdgIGU3RyaW5nBAJhdwUCYXYFAmF3CQACAQITZmFpbCBjYXN0IHRvIFN0cmluZwECYXgCAmF5AmF6CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYXkFAmF6CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF5CQDMCAICAS4JAMwIAgUCYXoJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAECYUECAmF5AmF6CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUCYXkFAmF6CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF5CQDMCAICAS4JAMwIAgUCYXoJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAACYUIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJheAIFBHRoaXMJAQFQAAACYUMJAQJheAIFBHRoaXMJAQJhYwABAmFEAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQJhQgkBAmFuAAcBAmFFAAkA2QQBCQECYXgCBQJhQgkBAmFoAAACYUYJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJheAIFAmFCCQECYXAAAQJhRwAEAmFICQECYXgCBQR0aGlzCQECYWEABAJhSQkBAmF4AgUEdGhpcwkBAmFiAAQCYUoJAQJhQQIFAmFCCQECYWwBBQJhSQQCYWoJAQJhQQIFAmFCCQECYWwBBQJhSAkAtQkCCQECYXgCBQJhQgkBAmFpAgkApAMBBQJhagkApAMBBQJhSgUBawECYUsACQC1CQIJAQJheAIFAmFCCQECYWcABQFrAAJhTAkBAmFLAAACYU0JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmFMBQF6AiBJbnZhbGlkIHN0YWtpbmcgY29udHJhY3QgYWRkcmVzcwACYU4JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmFMBQFBAiBJbnZhbGlkIHNsaXBhZ2UgY29udHJhY3QgYWRkcmVzcwACYU8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmFMBQFCAhxJbnZhbGlkIGd3eCBjb250cmFjdCBhZGRyZXNzAQJhUAoCYVECYVICYVMCYVQCYVUCYVYCYVcCYVgCYVkCYVoJALkJAgkAzAgCAhQlZCVkJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmFRCQDMCAIJAKQDAQUCYVIJAMwIAgkApAMBBQJhUwkAzAgCCQCkAwEFAmFUCQDMCAIJAKQDAQUCYVUJAMwIAgkApAMBBQJhVgkAzAgCCQCkAwEFAmFXCQDMCAIJAKQDAQUCYVgJAMwIAgkApAMBBQJhWQkAzAgCCQCkAwEFAmFaBQNuaWwFAWsBAmJhBgJiYgJiYwJiZAJhVAJhVwJhWAkAuQkCCQDMCAICDCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmJiCQDMCAIJAKQDAQUCYmMJAMwIAgkApAMBBQJiZAkAzAgCCQCkAwEFAmFUCQDMCAIJAKQDAQUCYVcJAMwIAgkApAMBBQJhWAUDbmlsBQFrAQJiZQECYmYDCQAAAgUCYmYCBVdBVkVTCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkA8AcCBQR0aGlzCQDZBAEFAmJmAQJiZwICYmgCYmkJALwCAwUCYmgFAWMFAmJpAQJiagMCYmsCYmwCYm0EAmJuCQC8AgMJALgCAgUCYmsFAmJsBQFiBQJibAQCYm8JAL8CAgkAuAICBQJibQkBAU4BBQJibgUBZAMJAQEhAQUCYm8JAAIBCQCsAgICCkJpZyBzbHBnOiAJAKYDAQUCYm4JAJQKAgUCYm8JAJkDAQkAzAgCBQJiawkAzAgCBQJibAUDbmlsAQJicAMCYnECYnICYnMEAmJuCQC8AgMFAmJyBQFiBQJicQQCYnQJAL8CAgUCYnMFAmJuAwMFAmJ0BgkAvwICBQJicgUCYnEJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCmAwEFAmJyAgEgCQCmAwEFAmJxAgEgCQCmAwEFAmJuAgEgCQCmAwEFAmJzBQJidAECYnUEAmJ2AmJ3AmJ4AmJ5BAJiegkBAUQCBQJieAUCYnYEAmJBCQEBRAIFAmJ5BQJidwkBAmJnAgUCYkEFAmJ6AQJiQgMCYngCYnkCYkMEAmJECQECYUcABAJiRQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF2BAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF3BAJiRwkBAmJ1BAUCYkUFAmJGBQJieAUCYnkEAmJpCQEBRAIFAmJ4BQJiRQQCYmgJAQFEAgUCYnkFAmJGBAJiSAkBAUQCBQJiQwUBYQQCYkkJAQJiZwIFAmJpBQJiSAQCYkoJAQJiZwIFAmJoBQJiSAkAzAgCBQJiRwkAzAgCBQJiSQkAzAgCBQJiSgUDbmlsAQJiSwMCYngCYnkCYkMEAmJMCQECYkIDBQJieAUCYnkFAmJDCQDMCAIJAQFHAgkAkQMCBQJiTAAABQFhCQDMCAIJAQFHAgkAkQMCBQJiTAABBQFhCQDMCAIJAQFHAgkAkQMCBQJiTAACBQFhBQNuaWwBAmJNAQJiTgQCYk8JAGsDBQJiTgUCYWYFAWEJAJQKAgkAZQIFAmJOBQJiTwUCYk8BAmJQBAJiUQJiUgJiUwJiVAQCYkQJAQJhRwAEAmJVCQCRAwIFAmJEBQFzBAJiVgkAkQMCBQJiRAUBdAQCYlcJAJEDAgUCYkQFAXUEAmJYCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXYEAmJZCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXcEAmJaCQCRAwIFAmJEBQFyBAJjYQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmJVAgtXcm9uZyBMUCBpZAhxdWFudGl0eQMJAQIhPQIFAmJVBQJiUgkAAgECD1dyb25nIHBtdCBhc3NldAQCY2IJAQJiZQEFAmJWBAJjYwkBAUQCBQJjYgUCYlgEAmNkCQECYmUBBQJiVwQCY2UJAQFEAgUCY2QFAmJZBAJjZgkBAmJnAgUCY2UFAmNjBAJjZwkBAUcCBQJjZgUBYQQCY2gJAQFEAgUCYlMFAWEEAmNpCQEBRAIFAmNhBQFhBAJjagkAvAIDBQJjYwUCY2gFAmNpBAJjawkAvAIDBQJjZQUCY2gFAmNpBAJjbAkBAUcCBQJjagUCYlgEAmNtCQEBRwIFAmNrBQJiWQQCY24DCQAAAgUCYlECAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmJUBQJjbAMJAAACBQJiVgIFV0FWRVMFBHVuaXQJANkEAQUCYlYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlQFAmNtAwkAAAIFAmJXAgVXQVZFUwUEdW5pdAkA2QQBBQJiVwkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgIJAKUIAQUCYlQFAmJRCQECYmEGBQJjbAUCY20FAmJTBQJjZwUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJjZwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjZwUDbmlsCQCcCgoFAmNsBQJjbQUCYlYFAmJXBQJjYgUCY2QFAmNhBQJjZgUCYloFAmNuAQJjbw0CYlECYm0CY3ACY3ECY3ICY3MCYlQCY3QCY3UCY3YCY3cCY3gCY3kEAmJECQECYUcABAJiVQkA2QQBCQCRAwIFAmJEBQFzBAJjegkAkQMCBQJiRAUBdAQCY0EJAJEDAgUCYkQFAXUEAmNCCQCRAwIFAmJEBQF4BAJjQwkAkQMCBQJiRAUBeQQCY0QJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdgQCY0UJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdwQCYloJAJEDAgUCYkQFAXIEAmNGCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmJVAghXciBscCBhcwhxdWFudGl0eQQCY2IDBQJjdAkBAmJlAQUCY3oDAwUCY3YJAAACBQJjeQUCY3oHCQBlAgkBAmJlAQUCY3oFAmN4AwUCY3YJAQJiZQEFAmN6CQBlAgkBAmJlAQUCY3oFAmNwBAJjZAMFAmN0CQECYmUBBQJjQQMDBQJjdgkAAAIFAmN5BQJjQQcJAGUCCQECYmUBBQJjQQUCY3gDBQJjdgkBAmJlAQUCY0EJAGUCCQECYmUBBQJjQQUCY3IEAmNHCQEBRAIFAmNwBQJjRAQCY0gJAQFEAgUCY3IFAmNFBAJjSQkBAmJnAgUCY0gFAmNHBAJjYwkBAUQCBQJjYgUCY0QEAmNlCQEBRAIFAmNkBQJjRQQCY0oDCQAAAgUCY0YAAAQCY2YFAWQEAmNLBQFkBAJiSAkAdgYJALkCAgUCY0cFAmNIAAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEBRwIFAmJIBQFhCQEBRwIFAmNHBQJjRAkBAUcCBQJjSAUCY0UJAQJiZwIJALcCAgUCY2UFAmNICQC3AgIFAmNjBQJjRwUCY0sEAmNmCQECYmcCBQJjZQUCY2MEAmNMCQC8AgMJAQFOAQkAuAICBQJjZgUCY0kFAWMFAmNmBAJjSwkBAUQCBQJibQUBYQMDAwUCY3cJAQIhPQIFAmNmBQFkBwkAvwICBQJjTAUCY0sHCQACAQkArAICCQCsAgIJAKwCAgIPUHJpY2Ugc2xpcHBhZ2UgCQCmAwEFAmNMAgMgPiAJAKYDAQUCY0sEAmNNCQEBRAIFAmNGBQFhBAJjTgkAvAIDBQJjRwUCY2YFAWMEAmNPCQC8AgMFAmNIBQFjBQJjZgQCY1ADCQC/AgIFAmNOBQJjSAkAlAoCBQJjTwUCY0gJAJQKAgUCY0cFAmNOBAJjUQgFAmNQAl8xBAJjUggFAmNQAl8yBAJiSAkAvAIDBQJjTQUCY1IFAmNlCQCXCgUJAQFHAgUCYkgFAWEJAQFHAgUCY1EFAmNECQEBRwIFAmNSBQJjRQUCY2YFAmNLBAJjUwgFAmNKAl8xBAJjVAgFAmNKAl8yBAJjVQgFAmNKAl8zBAJjZwkBAUcCCAUCY0oCXzQFAWEEAmNWCQEBRwIIBQJjSgJfNQUBYQMJAGcCAAAFAmNTCQACAQIHTFAgPD0gMAQCY1cDCQEBIQEFAmN1AAAFAmNTBAJjWAkAZQIFAmNwBQJjVAQCY1kJAGUCBQJjcgUCY1UEAmNaAwMFAmN2CQAAAgUCY3kFAmN6BwkAlAoCBQJjeAAAAwMFAmN2CQAAAgUCY3kFAmNBBwkAlAoCAAAFAmN4CQCUCgIFAmNUBQJjVQQCZGEIBQJjWgJfMQQCZGIIBQJjWgJfMgQCZGMJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAAUCY2cJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFUAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY2cJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVcCBQJiVAUCYlEJAQJhUAoFAmRhBQJkYgUCY1cFAmNnBQJibQUCY1YFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNYBQJjWQUDbmlsCQCfCg0FAmNTBQJjVwUCY2cFAmNiBQJjZAUCY0YFAmJVBQJiWgUCZGMFAmNYBQJjWQUCY3EFAmNzAQJkZAECZGUEAmJECQECYUcABAJkZgkAkQMCBQJiRAUBdAQCZGcJAJEDAgUCYkQFAXUEAmJaCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXIEAmJFCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXYEAmJGCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXcEAmRoCQECYmUBBQJkZgQCZGkJAQJiZQEFAmRnBAJjZgMJAAACCAUCZGUJb3JkZXJUeXBlBQNCdXkJAQJidQQFAmJFBQJiRgkAZAIFAmRoCAUCZGUGYW1vdW50BQJkaQkBAmJ1BAUCYkUFAmJGCQBlAgUCZGgIBQJkZQZhbW91bnQFAmRpBAJjZwkBAUcCBQJjZgUBYQMDAwkBAmFEAAYJAAACBQJiWgUBbwYJAAACBQJiWgUBcAkAAgECDUFkbWluIGJsb2NrZWQEAmRqCAgFAmRlCWFzc2V0UGFpcgthbW91bnRBc3NldAQCZGsDCQAAAgUCZGoFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRqBAJkbAgIBQJkZQlhc3NldFBhaXIKcHJpY2VBc3NldAQCZG0DCQAAAgUCZGwFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRsAwMJAQIhPQIFAmRrBQJkZgYJAQIhPQIFAmRtBQJkZwkAAgECCVdyIGFzc2V0cwQCZG4IBQJkZQVwcmljZQQCY0UJAGsDBQFhBQJiRgUCYkUEAmRvCQEBSgMFAmRuBQFhBQJjRQQCZHADCQAAAggFAmRlCW9yZGVyVHlwZQUDQnV5CQBnAgUCY2cFAmRvCQBnAgUCZG8FAmNnBgECZHEBAmRyAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmRzCQEFdmFsdWUBCQCRAwIIBQJkcghwYXltZW50cwAABAJiUgkBBXZhbHVlAQgFAmRzB2Fzc2V0SWQEAmN4CAUCZHMGYW1vdW50BAJjSgkBAmJQBAkA2AQBCAUCZHINdHJhbnNhY3Rpb25JZAkA2AQBBQJiUgUCY3gIBQJkcgZjYWxsZXIEAmNsCAUCY0oCXzEEAmNtCAUCY0oCXzIEAmJaCQENcGFyc2VJbnRWYWx1ZQEIBQJjSgJfOQQCY24IBQJjSgNfMTADAwkBAmFEAAYJAAACBQJiWgUBcAkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmJaCQCXCgUFAmNsBQJjbQUCY3gFAmJSBQJjbgECZHQKAmR1AVkCZHYCZHcCYm0CY3UCY3YCY3cCY3gCY3kEAmNKCQECY28NBQFZBQJibQgJAQV2YWx1ZQEFAmR2BmFtb3VudAgJAQV2YWx1ZQEFAmR2B2Fzc2V0SWQICQEFdmFsdWUBBQJkdwZhbW91bnQICQEFdmFsdWUBBQJkdwdhc3NldElkBQJkdQkAAAIFAVkCAAUCY3UFAmN2BQJjdwUCY3gFAmN5BAJiWgkBDXBhcnNlSW50VmFsdWUBCAUCY0oCXzgDAwMJAQJhRAAGCQAAAgUCYloFAW4GCQAAAgUCYloFAXAJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmJaBQJjSgECZHgBAmR5BAJkegUBZwQCZEEJAJEDAgUCZHkAAAQCZEIJAJEDAgUCZHkAAQQCZEMJAKcDAQUBaQQCZEQJALkCAgkApwMBBQJhQwUCZEMEAmRFCQC3AgIFAmRBBQJkQgMJAAACBQJkRQUBZQUBZQQCZEYJALkCAgUCZEQFAmR6BAJkRwkAuQICCQC5AgIJALkCAgUCZEEFAmRCBQJkegUCZHoEAmRICQC6AgIJALkCAgUCZEYFAmRFBQJkQwQCZEkJALgCAgUCZEYFAmRDBAJkSgkAtwICBQJkegUBZgoBAmRLAgJkTAJkTQQCZE4FAmRMBAJkTwgFAmROAl8xBAJkUAgFAmROAl8yAwkBAiE9AgUCZFAFBHVuaXQFAmRMBAJkUQkAugICCQC5AgIJALkCAgUCZE8FAmRPBQJkTwUCZEcEAmRSCQC6AgIJALkCAgkAtwICBQJkSAkAuQICBQJkUQUCZHoFAmRPCQC3AgIJALoCAgkAuQICBQJkSQUCZE8FAmRDCQC5AgIFAmRKBQJkUQQCZFMJAQFPAQkAuAICBQJkUgkBBXZhbHVlAQUCZE8DCQDAAgIFAWYFAmRTCQCUCgIFAmRSBQJkTQkAlAoCBQJkUgUEdW5pdAQCZFQJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZFUKAAJkVgUCZFQKAAJkVwkAkAMBBQJkVgoAAmRYCQCUCgIFAmRFBQR1bml0CgECZFkCAmRaAmVhAwkAZwIFAmVhBQJkVwUCZFoJAQJkSwIFAmRaCQCRAwIFAmRWBQJlYQoBAmViAgJkWgJlYQMJAGcCBQJlYQUCZFcFAmRaCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJlYgIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIJAQJkWQIFAmRYAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmRPCAUCZFUCXzEEAmRQCAUCZFUCXzIDCQECIT0CBQJkUAUEdW5pdAUCZE8JAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZE8BAmVjAwJkeQJkcgJlZAQCZHoFAWcEAmVlCQCRAwIFAmR5AwkAAAIFAmRyAAAAAQAABAJkQwkApwMBBQFpBAJkRAkAuQICCQCnAwEFAmFDBQJkQwQCZEUFAmVlBAJkRgkAuQICBQJkRAUCZHoEAmVmCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZWQFAmVkCQC5AgIFAmVlBQJkegUCZWQFAmRDCQC5AgIFAmRGBQJkegQCZWcJALgCAgkAtwICBQJkRQkAugICCQC5AgIFAmVkBQJkQwUCZEYFAmVkCgECZEsCAmRMAmRNBAJlaAUCZEwEAmVpCAUCZWgCXzEEAmRQCAUCZWgCXzIDCQECIT0CBQJkUAUEdW5pdAUCZEwEAmVqCQC6AgIJALcCAgkAuQICBQJlaQUCZWkFAmVmCQC3AgIJALkCAgUBZwUCZWkFAmVnBAJlawkBAU8BCQC4AgIFAmVqCQEFdmFsdWUBBQJlaQMJAMACAgUBZgUCZWsJAJQKAgUCZWoFAmRNCQCUCgIFAmVqBQR1bml0BAJkVAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlbAoAAmRWBQJkVAoAAmRXCQCQAwEFAmRWCgACZFgJAJQKAgUCZWQFBHVuaXQKAQJkWQICZFoCZWEDCQBnAgUCZWEFAmRXBQJkWgkBAmRLAgUCZFoJAJEDAgUCZFYFAmVhCgECZWICAmRaAmVhAwkAZwIFAmVhBQJkVwUCZFoJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmViAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgkBAmRZAgUCZFgAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZWkIBQJlbAJfMQQCZFAIBQJlbAJfMgMJAQIhPQIFAmRQBQR1bml0BQJlaQkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlaQECZW0EAmVuAmJSAmJUAVkEAmVvCQECYUcABAJiVgkAkQMCBQJlbwUBdAQCYlcJAJEDAgUCZW8FAXUEAmJVCQCRAwIFAmVvBQFzBAJjRAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmVvBQF2BAJjRQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmVvBQF3BAJjYgkBAmJlAQUCYlYEAmNkCQECYmUBBQJiVwQCZXADCQAAAgUBWQIACQCUCgIFAmNiBQJjZAMJAAACBQJiUgUCYlYDCQBmAgUCZW4FAmNiCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY2IFAmVuBQJjZAMJAAACBQJiUgUCYlcDCQBmAgUCZW4FAmNkCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjYgkAZQIFAmNkBQJlbgkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmVxCAUCZXACXzEEAmVyCAUCZXACXzIEAmVzAwkAAAIFAmJSBQJiVgkAlAoCBQJlbgAAAwkAAAIFAmJSBQJiVwkAlAoCAAAFAmVuCQACAQIPaW52YWxpZCBwYXltZW50BAJldAgFAmVzAl8xBAJldQgFAmVzAl8yBAJldggJAQJiTQEFAmV0Al8xBAJldwgJAQJiTQEFAmV1Al8xBAJiTwgJAQJiTQEFAmVuAl8yBAJleAkAZAIFAmVxBQJldgQCZXkJAGQCBQJlcgUCZXcEAmJyCQECZHgBCQDMCAIJALYCAQUCZXEJAMwIAgkAtgIBBQJlcgUDbmlsBAJicQkBAmR4AQkAzAgCCQC2AgEFAmV4CQDMCAIJALYCAQUCZXkFA25pbAQCZXoDCQC/AgIFAmJxBQJicgYJAQV0aHJvdwADCQAAAgUCZXoFAmV6BAJlQQkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCYlUCEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmVCAwkAvwICBQJlQQUBZQkAvAIDBQJlQQkAuAICBQJicQUCYnIFAmJyCQACAQIiaW5pdGlhbCBkZXBvc2l0IHJlcXVpcmVzIGFsbCBjb2lucwQCY2cJAQFHAgkBAmJnAgkBAUQCBQJjZAUCY0UJAQFEAgUCY2IFAmNEBQFhBAJkYwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJjZwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjZwkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIFAmJUBQFZCQECYVAKBQJldAUCZXUJAKADAQUCZUIFAmNnAAAAAAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAAAAAAFA25pbAQCZUMJAGsDBQJlcgUBYQUCZXEEAmVECQBrAwUCZW4FAWEJAGQCBQJlQwUBYQQCZUUJAGUCBQJlbgUCZUQEAmVGCQC8AgMFAmVBCQC2AgEFAmVFCQC2AgEFAmVyBAJlRwkAoAMBCQC8AgMJALgCAgUCZUIFAmVGBQFiBQJlRgkAlgoECQCgAwEFAmVCBQJkYwUCYk8FAmVHCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJlSAYCZUkCZUoCZUsCZHUCZUwCZU0DCQECIT0CCQCQAwEFAmVLAAEJAAIBAgsxIHBtbnQgZXhwZAQCZW8JAQJhRwAEAmJVCQCRAwIFAmVvBQFzBAJiVgkAkQMCBQJlbwUBdAQCYlcJAJEDAgUCZW8FAXUEAmVOCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCZW8FAXYEAmVPCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCZW8FAXcEAmVQCQCRAwIFAmVvBQFyBAJiVAMJAAACBQJkdQUEdGhpcwUCZUwFAmR1BAJkcwkBBXZhbHVlAQkAkQMCBQJlSwAABAJiUgkBBXZhbHVlAQgFAmRzB2Fzc2V0SWQEAmN4CAUCZHMGYW1vdW50AwkAZgIAgJTr3AMFAmN4CQACAQINTWluIHBtdCAxMCBMUAQCYlEJANgEAQUCZU0DCQECIT0CBQJiVQkA2AQBBQJiUgkAAgECCFdyb25nIExQBAJjYgkBAmJlAQUCYlYEAmNkCQECYmUBBQJiVwQCZVEKAAJlUgkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmVJCQDMCAIFAmN4BQNuaWwFA25pbAMJAAECBQJlUgIKKEludCwgSW50KQUCZVIJAAIBCQCsAgIJAAMBBQJlUgIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQQCZVMIBQJlUQJfMQQCYk8IBQJlUQJfMgQCZVQDAwkAZgIFAmVKAAAJAGYCBQJlSgUCZVMHCQACAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJlSgUDbmlsAgAFAmVTBAJlVQMJAAACBQJlSQUCYlYJAJQKAgUCZVQAAAMJAAACBQJlSQUCYlcJAJQKAgAABQJlVAkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJlVggFAmVVAl8xBAJlVwgFAmVVAl8yBAJlWAkBAmJnAgkBAUQCBQJjZAUCZU8JAQFEAgUCY2IFAmVOBAJlWQkBAUcCBQJlWAUBYQQCZVoDCQAAAgUCZUkCBVdBVkVTBQR1bml0CQDZBAEFAmVJBAJmYQMJAGYCBQJiTwAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFGBQJiTwUCZVoFA25pbAUDbmlsBAJjbgkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmJUBQJlVAUCZVoJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVoCCQClCAEFAmJUBQJiUQkBAmJhBgUCZVYFAmVXBQJjeAUCZVkFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAAUCZVkJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFUAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZVkFA25pbAUCZmEDCQAAAgUCY24FAmNuBAJmYgkA/AcEBQJhQgIEYnVybgkAzAgCBQJjeAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiUgUCY3gFA25pbAMJAAACBQJmYgUCZmIJAJQKAgUCY24FAmVUCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJmYwAEAmF2CQCiCAEJAQFRAAMJAAECBQJhdgIGU3RyaW5nBAJkRQUCYXYJANkEAQUCZEUDCQABAgUCYXYCBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZmQABAJhdgkAoggBCQEBUgADCQABAgUCYXYCBlN0cmluZwQCZEUFAmF2CQDZBAEFAmRFAwkAAQIFAmF2AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAAmZlCQACAQIRUGVybWlzc2lvbiBkZW5pZWQBAmZmAQJkcgQCYXYJAQJmYwADCQABAgUCYXYCCkJ5dGVWZWN0b3IEAmZnBQJhdgMJAAACCAUCZHIPY2FsbGVyUHVibGljS2V5BQJmZwYFAmZlAwkAAQIFAmF2AgRVbml0AwkAAAIIBQJkcgZjYWxsZXIFBHRoaXMGBQJmZQkAAgECC01hdGNoIGVycm9yHAJkcgELY29uc3RydWN0b3IBAVAEAmVmCQECZmYBBQJkcgMJAAACBQJlZgUCZWYJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVAABQFQBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHIBCnNldE1hbmFnZXIBAmZoBAJlZgkBAmZmAQUCZHIDCQAAAgUCZWYFAmVmBAJmaQkA2QQBBQJmaAMJAAACBQJmaQUCZmkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVIABQJmaAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyAQ5jb25maXJtTWFuYWdlcgAEAmJMCQECZmQABAJmagMJAQlpc0RlZmluZWQBBQJiTAYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmoFAmZqBAJmawMJAAACCAUCZHIPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJiTAYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmsFAmZrCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFRAAkA2AQBCQEFdmFsdWUBBQJiTAkAzAgCCQELRGVsZXRlRW50cnkBCQEBUgAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEDcHV0AgJmbAJmbQQCZm4JAQJhSwAEAmZvCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJmbgUBegIKV3Igc3QgYWRkcgQCZnAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZuBQFBAgpXciBzbCBhZGRyAwkAZgIAAAUCZmwJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmZxCQECZHQKCQClCAEIBQJkcgZjYWxsZXIJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRyCHBheW1lbnRzAAEFAmZsBgcGAAACAAQCY1cIBQJmcQJfMgQCZnIIBQJmcQJfNwQCY24IBQJmcQJfOQQCY1gIBQJmcQNfMTAEAmNZCAUCZnEDXzExBAJiVggFAmZxA18xMgQCYlcIBQJmcQNfMTMEAmNKCQD8BwQFAmFCAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAMJAAACBQJjSgUCY0oEAmZzBAJhdgUCY0oDCQABAgUCYXYCB0FkZHJlc3MEAmZ0BQJhdgkA/AcEBQJmdAIEZW1pdAkAzAgCBQJjVwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZnMFAmZzBAJmdQMJAGYCBQJjWAAACQD8BwQFAmZwAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlYFAmNYBQNuaWwFA25pbAMJAAACBQJmdQUCZnUEAmZ2AwkAZgIFAmNZAAAJAPwHBAUCZnACA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiVwUCY1kFA25pbAUDbmlsAwkAAAIFAmZ2BQJmdgQCZncDBQJmbQQCZngJAPwHBAUCZm8CBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmZyBQJjVwUDbmlsAwkAAAIFAmZ4BQJmeAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkcgZjYWxsZXIFAmNXBQJmcgUDbmlsCQDOCAIFAmNuBQJmdwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEJcHV0T25lVGtuBQJmeQJmegJmQQJibQJmbQQCYkQJAQJhSwAEAmZvCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiRAUBegIKV3Igc3QgYWRkcgQCZnAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJEBQFBAgpXciBzbCBhZGRyBAJmQgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYkQFAUICC1dyIGd3eCBhZGRyBAJmQwkBAmFHAAQCYlYJAJEDAgUCZkMFAXQEAmJXCQCRAwIFAmZDBQF1BAJiWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZDBQF2BAJiWQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZDBQF3BAJmRAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQECYWQAAgAEAmJUAwkAAAIFAmZECQClCAEIBQJkcgZjYWxsZXIIBQJkcgxvcmlnaW5DYWxsZXIIBQJkcgZjYWxsZXIDAwMDCQBnAgAABQJibQYJAGcCAAAFAmZ5BgkAZwIAAAUCZnoGCQBnAgAABQJmQQkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQCZHMJAQV2YWx1ZQEJAJEDAggFAmRyCHBheW1lbnRzAAAEAmJSCQDYBAEJAQV2YWx1ZQEIBQJkcwdhc3NldElkBAJmRQgFAmRzBmFtb3VudAQCZkYJAQJiTQEFAmZFBAJjeAgFAmZGAl8xBAJiTwgFAmZGAl8yAwkAZgIAgK3iBAUCZkUJAAIBAg1Xcm9uZyBwbXQgYW10BAJjYgkBAmJlAQUCYlYEAmNkCQECYmUBBQJiVwQCZkcDCQAAAgUCYlIFAmJWAwMJAGYCBQJmRQUCY2IGCQBmAgUCZnkFAmN4CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGCQBlAgUCY2IFAmZFBQJjZAkAZQIFAmN4BQJmeQUCZnoAAAAAAwkAAAIFAmJSBQJiVwMDCQBmAgUCZkUFAmNkBgkAZgIFAmZ6BQJjeAkAAgECFmludmFsaWQgcGF5bWVudCBhbW91bnQJAJgKBgUCY2IJAGUCBQJjZAUCZkUAAAAACQBlAgUCY3gFAmZ6BQJmeQkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmZICAUCZkcCXzEEAmZJCAUCZkcCXzIEAmZKCAUCZkcCXzMEAmZLCAUCZkcCXzQEAmZMCAUCZkcCXzUEAmZNCAUCZkcCXzYEAmJyCQD8BwQFAmZCAgVjYWxjRAkAzAgCCQCkAwEFAmZICQDMCAIJAKQDAQUCZkkJAMwIAgUCYUMJAMwIAgUBaQkAzAgCBQFqBQNuaWwFA25pbAQCYnEJAPwHBAUCZkICBWNhbGNECQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFAmZIBQJmSgUCZk0JAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUCZkkFAmZMBQJmSwkAzAgCBQJhQwkAzAgCBQFpCQDMCAIFAWoFA25pbAUDbmlsBAJmTgkBAmJwAwkApwMBCQECYXUBBQJicQkApwMBCQECYXUBBQJicgUBaAMJAAACBQJmTgUCZk4EAmZPCQECZHQKCQClCAEIBQJkcgZjYWxsZXIJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJWBQJmeQkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlcFAmZ6BQJibQYGBgUCY3gFAmJSBAJmUAgFAmZPAl8yBAJmcggFAmZPAl83BAJjbggFAmZPAl85BAJjWAgFAmZPA18xMAQCY1kIBQJmTwNfMTEEAmZRCQECYmoDCQC2AgEFAmZQCQC2AgEFAmZBCQC2AgEFAmJtBAJjVwkAoAMBCAUCZlECXzIEAmZxCQD8BwQFAmFCAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAMJAAACBQJmcQUCZnEEAmZzBAJhdgUCZnEDCQABAgUCYXYCB0FkZHJlc3MEAmZ0BQJhdgkA/AcEBQJmdAIEZW1pdAkAzAgCBQJjVwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZnMFAmZzBAJmdQMJAGYCBQJjWAAACQD8BwQFAmZwAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVgUCY1gFA25pbAUDbmlsAwkAAAIFAmZ1BQJmdQQCZnYDCQBmAgUCY1kAAAkA/AcEBQJmcAIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlcFAmNZBQNuaWwFA25pbAMJAAACBQJmdgUCZnYEAmZ3AwUCZm0EAmZ4CQD8BwQFAmZvAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJmcgUCY1cFA25pbAMJAAACBQJmeAUCZngFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCZHIGY2FsbGVyBQJjVwUCZnIFA25pbAQCZmEDCQBmAgUCYk8AAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhRgUCYk8JANkEAQUCYlIFA25pbAUDbmlsCQDOCAIJAM4IAgUCY24FAmZ3BQJmYQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgELcHV0T25lVGtuVjICAmVKAmZtAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAQkAAgECCzEgcG1udCBleHBkBAJlbwkBAmFHAAQCYlYJAJEDAgUCZW8FAXQEAmJXCQCRAwIFAmVvBQF1BAJiVQkA2QQBCQCRAwIFAmVvBQFzBAJlTgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmVvBQF2BAJlTwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmVvBQF3BAJiVAMJAAACCAUCZHIGY2FsbGVyBQR0aGlzCAUCZHIMb3JpZ2luQ2FsbGVyCAUCZHIGY2FsbGVyBAJkcwkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAQCYlIJANgEAQkBBXZhbHVlAQgFAmRzB2Fzc2V0SWQEAmN4CAUCZHMGYW1vdW50AwkAZgIAgK3iBAUCY3gJAAIBAg1Xcm9uZyBwbXQgYW10BAJmUgkBAmVtBAUCY3gFAmJSCQClCAEFAmJUCQDYBAEIBQJkcg10cmFuc2FjdGlvbklkBAJmUAgFAmZSAl8xBAJjbggFAmZSAl8yBAJiTwgFAmZSAl8zBAJjVwMDCQBmAgUCZUoAAAkAZgIFAmVKBQJmUAcJAAIBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmVKBQNuaWwCAAUCZlAEAmZxCQD8BwQFAmFCAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAMJAAACBQJmcQUCZnEEAmZzBAJhdgUCZnEDCQABAgUCYXYCB0FkZHJlc3MEAmZ0BQJhdgkA/AcEBQJmdAIEZW1pdAkAzAgCBQJjVwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZnMFAmZzBAJmdwMFAmZtBAJmeAkA/AcEBQJhTQIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlUFAmNXBQNuaWwDCQAAAgUCZngFAmZ4BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRyBmNhbGxlcgUCY1cFAmJVBQNuaWwEAmZhAwkAZgIFAmJPAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUYFAmJPCQDZBAEFAmJSBQNuaWwFA25pbAkAlAoCCQDOCAIJAM4IAgUCY24FAmZ3BQJmYQUCY1cJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHIBCnB1dEZvckZyZWUBAmZTAwkAZgIAAAUCZlMJAAIBAgpXcm9uZyBzbHBnAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZk8JAQJkdAoJAKUIAQgFAmRyBmNhbGxlcgkA2AQBCAUCZHINdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkcghwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkcghwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZHIIcGF5bWVudHMAAQUCZlMHBwYAAAIACAUCZk8CXzkCZHIBA2dldAAEAmNKCQECZHEBBQJkcgQCZlQIBQJjSgJfMQQCY20IBQJjSgJfMgQCY3gIBQJjSgJfMwQCYlIIBQJjSgJfNAQCY24IBQJjSgJfNQQCZWcJAPwHBAUCYUICBGJ1cm4JAMwIAgUCY3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlIFAmN4BQNuaWwDCQAAAgUCZWcFAmVnBQJjbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEJZ2V0T25lVGtuBQJmVQJmVgJmVwJlSQJibQMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQCYkQJAQJhRwAEAmJVCQCRAwIFAmJEBQFzBAJiVgkAkQMCBQJiRAUBdAQCYlcJAJEDAgUCYkQFAXUEAmJYCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXYEAmJZCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXcEAmJaCQCRAwIFAmJEBQFyBAJmbgkBAmFLAAQCZkIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZuBQFCAgpXciBzbCBhZGRyBAJkcwkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAQCZkQJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBAmFkAAIABAJiVAMJAAACBQJmRAkApQgBCAUCZHIGY2FsbGVyCAUCZHIMb3JpZ2luQ2FsbGVyCAUCZHIGY2FsbGVyBAJiUQkA2AQBCAUCZHINdHJhbnNhY3Rpb25JZAQCYlIJAQV2YWx1ZQEIBQJkcwdhc3NldElkBAJjeAgFAmRzBmFtb3VudAMJAGYCAICU69wDBQJjeAkAAgECDU1pbiBwbXQgMTAgTFADAwMJAGYCAAAFAmJtBgkAZgIAAAUCZlUGCQBmAgAABQJmVwkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIFAmJVCQDYBAEFAmJSCQACAQIIV3JvbmcgTFAEAmNKCQECYlAECQDYBAEIBQJkcg10cmFuc2FjdGlvbklkCQDYBAEFAmJSBQJjeAgFAmRyBmNhbGxlcgQCZlgIBQJjSgJfMQQCZlkIBQJjSgJfMgQCY2IJAQJiZQEFAmJWBAJjZAkBAmJlAQUCYlcEAmZaAwkAAAIFAmVJBQJiVgkAmQoHCQBlAgUCY2IFAmZYCQBlAgUCY2QFAmZZBQJmVQUCZlkAAAAACQBkAgUCZlgFAmZVAwkAAAIFAmVJBQJiVwkAmQoHCQBlAgUCY2IFAmZYCQBlAgUCY2QFAmZZAAAAAAUCZlUFAmZYCQBkAgUCZlkFAmZVCQACAQIQd3Jvbmcgb3V0QXNzZXRJZAQCZkgIBQJmWgJfMQQCZkkIBQJmWgJfMgQCZkoIBQJmWgJfMwQCZksIBQJmWgJfNAQCZkwIBQJmWgJfNQQCZk0IBQJmWgJfNgQCZ2EIBQJmWgJfNwMDCQBmAgAABQJmSgYJAGYCAAAFAmZMCQACAQIKV3JvbmcgY2FsYwQCYnIJAPwHBAUCZkICBWNhbGNECQDMCAIJAKQDAQUCZkgJAMwIAgkApAMBBQJmSQkAzAgCBQJhQwkAzAgCBQFpCQDMCAIFAWoFA25pbAUDbmlsBAJicQkA/AcEBQJmQgIFY2FsY0QJAMwIAgkApAMBCQBkAgkAZQIFAmZIBQJmSgUCZk0JAMwIAgkApAMBCQBlAgkAZAIFAmZJBQJmSwUCZkwJAMwIAgUCYUMJAMwIAgUBaQkAzAgCBQFqBQNuaWwFA25pbAQCZk4JAQJicAMJAKcDAQkBAmF1AQUCYnEJAKcDAQkBAmF1AQUCYnIFAWgDCQAAAgUCZk4FAmZOBAJlUwgJAQJiTQEFAmdhAl8xBAJnYgkBAmJqAwkAtgIBBQJlUwkAtgIBBQJmVwkAtgIBBQJibQMJAAACBQJnYgUCZ2IEAmdjAwkAAAIFAmVJBQJiVgkAlAoCCQCgAwEIBQJnYgJfMgAACQCUCgIAAAkAoAMBCAUCZ2ICXzIEAmVWCAUCZ2MCXzEEAmVXCAUCZ2MCXzIEAmVUCQBkAgUCZVYFAmVXBAJiTwkAZQIFAmdhBQJlUwQCZVoDCQAAAgUCZUkCBVdBVkVTBQR1bml0CQDZBAEFAmVJBAJmYQMJAGYCBQJiTwAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFGBQJiTwUCZVoFA25pbAUDbmlsBAJlWAkBAmJnAgkBAUQCBQJjZAUCYlkJAQFEAgUCY2IFAmJYBAJlWQkBAUcCBQJlWAUBYQQCY24JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlQFAmVUBQJlWgkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgIJAKUIAQUCYlQFAmJRCQECYmEGBQJlVgUCZVcFAmN4BQJlWQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJlWQkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJlWQUDbmlsAwkAAAIFAmNuBQJjbgQCZmIJAPwHBAUCYUICBGJ1cm4JAMwIAgUCY3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlIFAmN4BQNuaWwDCQAAAgUCZmIFAmZiCQDOCAIFAmNuBQJmYQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgELZ2V0T25lVGtuVjICAmVJAmVKBAJnZAkBAmVIBgUCZUkFAmVKCAUCZHIIcGF5bWVudHMIBQJkcgZjYWxsZXIIBQJkcgxvcmlnaW5DYWxsZXIIBQJkcg10cmFuc2FjdGlvbklkBAJjbggFAmdkAl8xBAJlVAgFAmdkAl8yCQCUCgIFAmNuBQJlVAJkcgETZ2V0T25lVGtuVjJSRUFET05MWQICZUkCZ2UEAmVvCQECYUcABAJiVgkAkQMCBQJlbwUBdAQCYlcJAJEDAgUCZW8FAXUEAmJVCQCRAwIFAmVvBQFzBAJkeQkAzAgCCQC2AgEJAQJiZQEFAmJWCQDMCAIJALYCAQkBAmJlAQUCYlcFA25pbAQCZ2YJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmJVAhBpbnZhbGlkIGxwIGFzc2V0CHF1YW50aXR5BAJicgkBAmR4AQUCZHkEAmJxCQC4AgIFAmJyCQC8AgMJALYCAQUCZ2UFAmJyBQJnZgQCZ2cDCQAAAgUCZUkFAmJWAAADCQAAAgUCZUkFAmJXAAEJAAIBAhRpbnZhbGlkIG91dCBhc3NldCBpZAQCZ2gJAQJlYwMFAmR5BQJnZwUCYnEEAmdpCQC4AgIJAJEDAgUCZHkFAmdnBQJnaAQCZ2EJAKADAQkAuAICBQJnaQUBZgQCZ2oJAQJiTQEFAmdhBAJlUwgFAmdqAl8xBAJiTwgFAmdqAl8yCQCUCgIFA25pbAkAlAoCBQJlUwUCYk8CZHIBHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmVJAmdlBAJlbwkBAmFHAAQCYlYJAJEDAgUCZW8FAXQEAmJXCQCRAwIFAmVvBQF1BAJiVQkAkQMCBQJlbwUBcwQCY2IJAQJiZQEFAmJWBAJjZAkBAmJlAQUCYlcEAmdrCgACZVIJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJlSQkAzAgCBQJnZQUDbmlsBQNuaWwDCQABAgUCZVICCihJbnQsIEludCkFAmVSCQACAQkArAICCQADAQUCZVICHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmVTCAUCZ2sCXzEEAmJPCAUCZ2sCXzIEAmNKCQECYlAEAgAFAmJVBQJnZQUEdGhpcwQCY2wIBQJjSgJfMQQCY20IBQJjSgJfMgQCZ2wJAGQCBQJjbAUCY20EAmVHCQBrAwkAZQIFAmVTBQJnbAUBYQUCZ2wJAJQKAgUDbmlsCQCVCgMFAmVTBQJiTwUCZUcCZHIBCWdldE5vTGVzcwICZ20CZ24EAmNKCQECZHEBBQJkcgQCY2wIBQJjSgJfMQQCY20IBQJjSgJfMgQCY3gIBQJjSgJfMwQCYlIIBQJjSgJfNAQCY24IBQJjSgJfNQMJAGYCBQJnbQUCY2wJAAIBCQCsAgIJAKwCAgkArAICAglGYWlsZWQ6ICAJAKQDAQUCY2wCAyA8IAkApAMBBQJnbQMJAGYCBQJnbgUCY20JAAIBCQCsAgIJAKwCAgkArAICAghGYWlsZWQ6IAkApAMBBQJjbQIDIDwgCQCkAwEFAmduBAJnbwkA/AcEBQJhQgIEYnVybgkAzAgCBQJjeAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiUgUCY3gFA25pbAMJAAACBQJnbwUCZ28FAmNuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyAQ11bnN0YWtlQW5kR2V0AQJiTgQCZ3ADCQECIT0CCQCQAwEIBQJkcghwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUCZ3AFAmdwBAJiRAkBAmFHAAQCZ3EJAQJhSwAEAmZyCQDZBAEJAJEDAgUCYkQFAXMEAmdyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJncQUBegIKV3Igc3QgYWRkcgQCZ3MJAPwHBAUCZ3ICB3Vuc3Rha2UJAMwIAgkA2AQBBQJmcgkAzAgCBQJiTgUDbmlsBQNuaWwDCQAAAgUCZ3MFAmdzBAJjSgkBAmJQBAkA2AQBCAUCZHINdHJhbnNhY3Rpb25JZAkA2AQBBQJmcgUCYk4IBQJkcgZjYWxsZXIEAmJaCQENcGFyc2VJbnRWYWx1ZQEIBQJjSgJfOQQCY24IBQJjSgNfMTAEAmd0AwMJAQJhRAAGCQAAAgUCYloFAXAJAAIBCQCsAgICCUJsb2NrZWQ6IAkApAMBBQJiWgYDCQAAAgUCZ3QFAmd0BAJndQkA/AcEBQJhQgIEYnVybgkAzAgCBQJiTgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJmcgUCYk4FA25pbAMJAAACBQJndQUCZ3UFAmNuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyARN1bnN0YWtlQW5kR2V0T25lVGtuAwJndgJlSQJlSgQCZ3ADCQECIT0CCQCQAwEIBQJkcghwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUCZ3AFAmdwBAJiRAkBAmFHAAQCZ3EJAQJhSwAEAmZyCQDZBAEJAJEDAgUCYkQFAXMEAmdyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJncQUBegIKV3Igc3QgYWRkcgQCZ3MJAPwHBAUCZ3ICB3Vuc3Rha2UJAMwIAgkA2AQBBQJmcgkAzAgCBQJndgUDbmlsBQNuaWwDCQAAAgUCZ3MFAmdzBAJndwkBAmVIBgUCZUkFAmVKCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJmcgUCZ3YFA25pbAgFAmRyBmNhbGxlcggFAmRyDG9yaWdpbkNhbGxlcggFAmRyDXRyYW5zYWN0aW9uSWQEAmNuCAUCZ3cCXzEEAmVUCAUCZ3cCXzIJAJQKAgUCY24FAmVUCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyARxwdXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJmRQJneAQCZW8JAQJhRwAEAmJWCQCRAwIFAmVvBQF0BAJiVwkAkQMCBQJlbwUBdQQCYlUJAJEDAgUCZW8FAXMEAmd5CQECZW0EBQJmRQUCZ3gCAAIABAJlQggFAmd5Al8xBAJjbggFAmd5Al8yBAJiTwgFAmd5Al8zBAJlRwgFAmd5Al80CQCUCgIFA25pbAkAlQoDBQJlQgUCYk8FAmVHAmRyAQhhY3RpdmF0ZQICZ3oCZ0EDCQECIT0CCQClCAEIBQJkcgZjYWxsZXIJAKUIAQUCYUIJAAIBAgZkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWEABQJnegkAzAgCCQELU3RyaW5nRW50cnkCCQECYWIABQJnQQUDbmlsAgdzdWNjZXNzAmRyAQRzZXRTAgJnQgJndAMJAQIhPQIJAKUIAQgFAmRyBmNhbGxlcgkBAmF4AgUEdGhpcwkBAmFkAAUCZmUJAMwIAgkBC1N0cmluZ0VudHJ5AgUCZ0IFAmd0BQNuaWwCZHIBBHNldEkCAmdCAmd0AwkBAiE9AgkApQgBCAUCZHIGY2FsbGVyCQECYXgCBQR0aGlzCQECYWQABQJmZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUCZ0IFAmd0BQNuaWwCZHIBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBAmFHAAJkcgEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQECYmYJAJQKAgUDbmlsCQECYmUBBQJiZgJkcgEZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQMCYngCYnkCYkMEAmdDCQECYkIDBQJieAUCYnkFAmJDCQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCZ0MAAAkAzAgCCQCmAwEJAJEDAgUCZ0MAAQkAzAgCCQCmAwEJAJEDAgUCZ0MAAgUDbmlsAmRyARZmcm9tWDE4V3JhcHBlclJFQURPTkxZAgFIAmdECQCUCgIFA25pbAkBAUcCCQCnAwEFAUgFAmdEAmRyARR0b1gxOFdyYXBwZXJSRUFET05MWQIBRQFGCQCUCgIFA25pbAkApgMBCQEBRAIFAUUFAUYCZHIBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQICYmgCYmkJAJQKAgUDbmlsCQCmAwEJAQJiZwIJAKcDAQUCYmgJAKcDAQUCYmkCZHIBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQJiUQJibQJjcAJjcQJjcgJjcwJnRQJjdAJjdQkAlAoCBQNuaWwJAQJjbw0FAmJRBQJibQUCY3AFAmNxBQJjcgUCY3MFAmdFBQJjdAUCY3UGBwAAAgACZHIBI2VzdGltYXRlR2V0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZBAJiUQJnRgJiUwJnRQQCY0oJAQJiUAQFAmJRBQJnRgUCYlMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAmdFCQCUCgIFA25pbAkAnAoKCAUCY0oCXzEIBQJjSgJfMggFAmNKAl8zCAUCY0oCXzQIBQJjSgJfNQgFAmNKAl82CAUCY0oCXzcJAKYDAQgFAmNKAl84CAUCY0oCXzkIBQJjSgNfMTACZHIBDmdldEZlZVJFQURPTkxZAAkAlAoCBQNuaWwFAmFmAQJnRwECZ0gABAJnSQQCYXYJAQJmYwADCQABAgUCYXYCCkJ5dGVWZWN0b3IEAmZnBQJhdgUCZmcDCQABAgUCYXYCBFVuaXQIBQJnRw9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCYXYFAmdHAwkAAQIFAmF2AgVPcmRlcgQCZGUFAmF2BAJnSgkBAmFFAAQCZ0sJAQJkZAEFAmRlBAJnTAkA9AMDCAUCZGUJYm9keUJ5dGVzCQCRAwIIBQJkZQZwcm9vZnMAAAgFAmRlD3NlbmRlclB1YmxpY0tleQQCZ00JAPQDAwgFAmRlCWJvZHlCeXRlcwkAkQMCCAUCZGUGcHJvb2ZzAAEFAmdKAwMDBQJnSwUCZ0wHBQJnTQcGCQECYXEDBQJnSwUCZ0wFAmdNAwkAAQIFAmF2AhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQCZEUFAmF2BAJnTgkA9gMBCQEFdmFsdWUBCAUCZEUGc2NyaXB0BAJnTwkA2wQBCQEFdmFsdWUBCQCdCAIFAmFCCQECYW8ABAJnUAkA8QcBBQR0aGlzAwMJAAACBQJnTwUCZ04JAQIhPQIFAmdQBQJnTgcGCQD0AwMIBQJnRwlib2R5Qnl0ZXMJAJEDAggFAmdHBnByb29mcwAABQJnSQkA9AMDCAUCZ0cJYm9keUJ5dGVzCQCRAwIIBQJnRwZwcm9vZnMAAAUCZ0mXXr66",
    "chainId": 84,
    "height": 2261894,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EzHxBJuVrVyX36gKRpysEm3nWaTEoSZKu9iZhhNchJES
Next: 9xXhHRxvySGeAeQbsBfugrPda3S9FRREjB9Pf3YEQzHk

Diff: 
Old New Differences
470 470          then big0
471 471          else {
472 472              let ann = (a * n)
473 +             let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
474 +             let ann_s_aPrecision = ((ann * s) / aPrecision)
475 +             let ann_aPrecision = (ann - aPrecision)
476 +             let n1 = (n + big1)
473 477              func calc (acc,cur) =             {
474 -                 let $t02109621116 = acc
475 -                 let d = $t02109621116._1
476 -                 let found = $t02109621116._2
478 +                 let $t02124821268 = acc
479 +                 let d = $t02124821268._1
480 +                 let found = $t02124821268._2
477 481                  if ((found != unit))
478 482                      then acc
479 483                      else {
480 -                         let dp = (((d * d) * d) / (((xp0 * xp1) * n) * n))
481 -                         let dNext = (((((ann * s) / aPrecision) + (dp * n)) * d) / ((((ann - aPrecision) * d) / aPrecision) + ((n + big1) * dp)))
484 +                         let dp = (((d * d) * d) / xp0_xp1_n_n)
485 +                         let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
482 486                          let dDiff = absBigInt((dNext - value(d)))
483 487                          if ((big1 >= dDiff))
484 488                              then $Tuple2(dNext, cur)
486 490                          }
487 491                  }
488 492  
489 -             let arr = [0, 1, 2, 3, 4, 5, 6]
490 -             let $t02153221578 = {
493 +             let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
494 +             let $t02168921736 = {
491 495                  let $l = arr
492 496                  let $s = size($l)
493 497                  let $acc0 = $Tuple2(s, unit)
497 501  
498 502                  func $f0_2 ($a,$i) =                 if (($i >= $s))
499 503                      then $a
500 -                     else throw("List size exceeds 7")
504 +                     else throw("List size exceeds 15")
501 505  
502 -                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
506 +                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
503 507                  }
504 -             let d = $t02153221578._1
505 -             let found = $t02153221578._2
508 +             let d = $t02168921736._1
509 +             let found = $t02168921736._2
506 510              if ((found != unit))
507 511                  then d
508 512                  else throw(("D calculation error, D = " + toString(d)))
522 526      let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
523 527      let b = ((s + ((D * aPrecision) / ann)) - D)
524 528      func calc (acc,cur) =     {
525 -         let $t02207822098 = acc
526 -         let y = $t02207822098._1
527 -         let found = $t02207822098._2
529 +         let $t02223622256 = acc
530 +         let y = $t02223622256._1
531 +         let found = $t02223622256._2
528 532          if ((found != unit))
529 533              then acc
530 534              else {
537 541          }
538 542  
539 543      let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
540 -     let $t02240522452 = {
544 +     let $t02256322610 = {
541 545          let $l = arr
542 546          let $s = size($l)
543 547          let $acc0 = $Tuple2(D, unit)
551 555  
552 556          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
553 557          }
554 -     let y = $t02240522452._1
555 -     let found = $t02240522452._2
558 +     let y = $t02256322610._1
559 +     let found = $t02256322610._2
556 560      if ((found != unit))
557 561          then y
558 562          else throw(("Y calculation error, Y = " + toString(y)))
568 572      let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
569 573      let amBalance = getAccBalance(amId)
570 574      let prBalance = getAccBalance(prId)
571 -     let $t02299423039 = takeFee(pmtAmtRaw)
572 -     let pmtAmt = $t02299423039._1
573 -     let feeAmount = $t02299423039._2
574 -     let $t02304323504 = if ((txId == ""))
575 +     let $t02315223613 = if ((txId == ""))
575 576          then $Tuple2(amBalance, prBalance)
576 577          else if ((pmtAssetId == amId))
577 578              then if ((pmtAmtRaw > amBalance))
582 583                      then throw("invalid payment amount")
583 584                      else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
584 585                  else throw("wrong pmtAssetId")
585 -     let amBalanceOld = $t02304323504._1
586 -     let prBalanceOld = $t02304323504._2
587 -     let $t02351023674 = if ((pmtAssetId == amId))
588 -         then $Tuple2(pmtAmt, 0)
586 +     let amBalanceOld = $t02315223613._1
587 +     let prBalanceOld = $t02315223613._2
588 +     let $t02361923795 = if ((pmtAssetId == amId))
589 +         then $Tuple2(pmtAmtRaw, 0)
589 590          else if ((pmtAssetId == prId))
590 -             then $Tuple2(0, pmtAmt)
591 +             then $Tuple2(0, pmtAmtRaw)
591 592              else throw("invalid payment")
592 -     let amAmount = $t02351023674._1
593 -     let prAmount = $t02351023674._2
593 +     let amAmountRaw = $t02361923795._1
594 +     let prAmountRaw = $t02361923795._2
595 +     let amAmount = takeFee(amAmountRaw)._1
596 +     let prAmount = takeFee(prAmountRaw)._1
597 +     let feeAmount = takeFee(pmtAmtRaw)._2
594 598      let amBalanceNew = (amBalanceOld + amAmount)
595 599      let prBalanceNew = (prBalanceOld + prAmount)
596 600      let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
605 609                  then fraction(lpAssetEmission, (D1 - D0), D0)
606 610                  else throw("initial deposit requires all coins")
607 611              let curPrice = f1(cpbi(t1(prBalance, priceDcm), t1(amBalance, amtDcm)), scale8)
608 -             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmount, prAmount, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
612 +             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
609 613              let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
610 -             let amountAssetPart = fraction(pmtAmt, scale8, (poolProportion + scale8))
611 -             let priceAssetPart = (pmtAmt - amountAssetPart)
614 +             let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
615 +             let priceAssetPart = (pmtAmtRaw - amountAssetPart)
612 616              let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
613 617              let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
614 618              $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
642 646                      else {
643 647                          let amBalance = getAccBalance(amId)
644 648                          let prBalance = getAccBalance(prId)
645 -                         let $t02598726095 = {
649 +                         let $t02624626354 = {
646 650                              let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
647 651                              if ($isInstanceOf(@, "(Int, Int)"))
648 652                                  then @
649 653                                  else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
650 654                              }
651 -                         let totalGet = $t02598726095._1
652 -                         let feeAmount = $t02598726095._2
655 +                         let totalGet = $t02624626354._1
656 +                         let feeAmount = $t02624626354._2
653 657                          let totalAmount = if (if ((minOutAmount > 0))
654 658                              then (minOutAmount > totalGet)
655 659                              else false)
656 660                              then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
657 661                              else totalGet
658 -                         let $t02628226369 = if ((outAssetId == amId))
662 +                         let $t02654126724 = if ((outAssetId == amId))
659 663                              then $Tuple2(totalAmount, 0)
660 -                             else $Tuple2(0, totalAmount)
661 -                         let outAm = $t02628226369._1
662 -                         let outPr = $t02628226369._2
664 +                             else if ((outAssetId == prId))
665 +                                 then $Tuple2(0, totalAmount)
666 +                                 else throw("invalid out asset id")
667 +                         let outAm = $t02654126724._1
668 +                         let outPr = $t02654126724._2
663 669                          let curPrX18 = cpbi(t1(prBalance, prDecimals), t1(amBalance, amDecimals))
664 670                          let curPr = f1(curPrX18, scale8)
665 671                          let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
853 859                  let pmt = value(i.payments[0])
854 860                  let pmtAssetId = toBase58String(value(pmt.assetId))
855 861                  let paymentAmountRaw = pmt.amount
856 -                 let $t03175531807 = takeFee(paymentAmountRaw)
857 -                 let pmtAmt = $t03175531807._1
858 -                 let feeAmount = $t03175531807._2
862 +                 let $t03211032162 = takeFee(paymentAmountRaw)
863 +                 let pmtAmt = $t03211032162._1
864 +                 let feeAmount = $t03211032162._2
859 865                  if ((10000000 > paymentAmountRaw))
860 866                      then throw("Wrong pmt amt")
861 867                      else {
862 868                          let amBalance = getAccBalance(amId)
863 869                          let prBalance = getAccBalance(prId)
864 -                         let $t03196732583 = if ((pmtAssetId == amId))
870 +                         let $t03232232938 = if ((pmtAssetId == amId))
865 871                              then if (if ((paymentAmountRaw > amBalance))
866 872                                  then true
867 873                                  else (amAssetPart > pmtAmt))
874 880                                      then throw("invalid payment amount")
875 881                                      else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
876 882                                  else throw("wrong pmtAssetId")
877 -                         let amBalanceNow = $t03196732583._1
878 -                         let prBalanceNow = $t03196732583._2
879 -                         let virtSwapInAm = $t03196732583._3
880 -                         let virtSwapOutPr = $t03196732583._4
881 -                         let virtSwapInPr = $t03196732583._5
882 -                         let virtSwapOutAm = $t03196732583._6
883 +                         let amBalanceNow = $t03232232938._1
884 +                         let prBalanceNow = $t03232232938._2
885 +                         let virtSwapInAm = $t03232232938._3
886 +                         let virtSwapOutPr = $t03232232938._4
887 +                         let virtSwapInPr = $t03232232938._5
888 +                         let virtSwapOutAm = $t03232232938._6
883 889                          let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
884 890                          let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
885 891                          let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
961 967          if ((10000000 > pmtAmt))
962 968              then throw("Wrong pmt amt")
963 969              else {
964 -                 let $t03548935614 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
965 -                 let estimLP = $t03548935614._1
966 -                 let state = $t03548935614._2
967 -                 let feeAmount = $t03548935614._3
970 +                 let $t03584435969 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
971 +                 let estimLP = $t03584435969._1
972 +                 let state = $t03584435969._2
973 +                 let feeAmount = $t03584435969._3
968 974                  let emitLpAmt = if (if ((minOutAmount > 0))
969 975                      then (minOutAmount > estimLP)
970 976                      else false)
1067 1073                          let estimPrAmt = r._2
1068 1074                          let amBalance = getAccBalance(amId)
1069 1075                          let prBalance = getAccBalance(prId)
1070 -                         let $t03924539705 = if ((outAssetId == amId))
1076 +                         let $t03960040060 = if ((outAssetId == amId))
1071 1077                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1072 1078                              else if ((outAssetId == prId))
1073 1079                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1074 1080                                  else throw("wrong outAssetId")
1075 -                         let amBalanceNow = $t03924539705._1
1076 -                         let prBalanceNow = $t03924539705._2
1077 -                         let virtSwapInAm = $t03924539705._3
1078 -                         let virtSwapOutPr = $t03924539705._4
1079 -                         let virtSwapInPr = $t03924539705._5
1080 -                         let virtSwapOutAm = $t03924539705._6
1081 -                         let totalGetRaw = $t03924539705._7
1081 +                         let amBalanceNow = $t03960040060._1
1082 +                         let prBalanceNow = $t03960040060._2
1083 +                         let virtSwapInAm = $t03960040060._3
1084 +                         let virtSwapOutPr = $t03960040060._4
1085 +                         let virtSwapInPr = $t03960040060._5
1086 +                         let virtSwapOutAm = $t03960040060._6
1087 +                         let totalGetRaw = $t03960040060._7
1082 1088                          if (if ((0 > virtSwapInAm))
1083 1089                              then true
1084 1090                              else (0 > virtSwapInPr))
1093 1099                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1094 1100                                          if ((finalRes == finalRes))
1095 1101                                              then {
1096 -                                                 let $t04045240556 = if ((outAssetId == amId))
1102 +                                                 let $t04080740911 = if ((outAssetId == amId))
1097 1103                                                      then $Tuple2(toInt(finalRes._2), 0)
1098 1104                                                      else $Tuple2(0, toInt(finalRes._2))
1099 -                                                 let outAm = $t04045240556._1
1100 -                                                 let outPr = $t04045240556._2
1105 +                                                 let outAm = $t04080740911._1
1106 +                                                 let outPr = $t04080740911._2
1101 1107                                                  let totalAmount = (outAm + outPr)
1102 1108                                                  let feeAmount = (totalGetRaw - totalGet)
1103 1109                                                  let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
1129 1135  
1130 1136  @Callable(i)
1131 1137  func getOneTknV2 (outAssetId,minOutAmount) = {
1132 -     let $t04158141736 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1133 -     let state = $t04158141736._1
1134 -     let totalAmount = $t04158141736._2
1138 +     let $t04193642091 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1139 +     let state = $t04193642091._1
1140 +     let totalAmount = $t04193642091._2
1135 1141      $Tuple2(state, totalAmount)
1136 1142      }
1137 1143  
1149 1155      let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
1150 1156      let index = if ((outAssetId == amId))
1151 1157          then 0
1152 -         else 1
1158 +         else if ((outAssetId == prId))
1159 +             then 1
1160 +             else throw("invalid out asset id")
1153 1161      let newY = getYD(xp, index, D1)
1154 1162      let dy = (xp[index] - newY)
1155 1163      let totalGetRaw = toInt((dy - big1))
1156 -     let $t04242042469 = takeFee(totalGetRaw)
1157 -     let totalGet = $t04242042469._1
1158 -     let feeAmount = $t04242042469._2
1164 +     let $t04287042919 = takeFee(totalGetRaw)
1165 +     let totalGet = $t04287042919._1
1166 +     let feeAmount = $t04287042919._2
1159 1167      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1160 1168      }
1161 1169  
1169 1177      let lpId = poolConfig[idxLPAsId]
1170 1178      let amBalance = getAccBalance(amId)
1171 1179      let prBalance = getAccBalance(prId)
1172 -     let $t04281442929 = {
1180 +     let $t04326443379 = {
1173 1181          let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1174 1182          if ($isInstanceOf(@, "(Int, Int)"))
1175 1183              then @
1176 1184              else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1177 1185          }
1178 -     let totalGet = $t04281442929._1
1179 -     let feeAmount = $t04281442929._2
1186 +     let totalGet = $t04326443379._1
1187 +     let feeAmount = $t04326443379._2
1180 1188      let r = ego("", lpId, lpAssetAmount, this)
1181 1189      let outAmAmt = r._1
1182 1190      let outPrAmt = r._2
1261 1269              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1262 1270              if ((unstakeInv == unstakeInv))
1263 1271                  then {
1264 -                     let $t04523445422 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1265 -                     let state = $t04523445422._1
1266 -                     let totalAmount = $t04523445422._2
1272 +                     let $t04568445872 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1273 +                     let state = $t04568445872._1
1274 +                     let totalAmount = $t04568445872._2
1267 1275                      $Tuple2(state, totalAmount)
1268 1276                      }
1269 1277                  else throw("Strict value is not equal to itself.")
1279 1287      let amId = poolConfig[idxAmAsId]
1280 1288      let prId = poolConfig[idxPrAsId]
1281 1289      let lpId = poolConfig[idxLPAsId]
1282 -     let $t04568145778 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
1283 -     let lpAmount = $t04568145778._1
1284 -     let state = $t04568145778._2
1285 -     let feeAmount = $t04568145778._3
1286 -     let bonus = $t04568145778._4
1290 +     let $t04613146228 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
1291 +     let lpAmount = $t04613146228._1
1292 +     let state = $t04613146228._2
1293 +     let feeAmount = $t04613146228._3
1294 +     let bonus = $t04613146228._4
1287 1295      $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
1288 1296      }
1289 1297  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let scale8 = 100000000
5 5  
6 6  let scale8BigInt = toBigInt(100000000)
7 7  
8 8  let scale18 = toBigInt(1000000000000000000)
9 9  
10 10  let zeroBigInt = toBigInt(0)
11 11  
12 12  let big0 = toBigInt(0)
13 13  
14 14  let big1 = toBigInt(1)
15 15  
16 16  let big2 = toBigInt(2)
17 17  
18 18  let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19 19  
20 20  let Amult = "100"
21 21  
22 22  let Dconv = "1"
23 23  
24 24  let SEP = "__"
25 25  
26 26  let EMPTY = ""
27 27  
28 28  let PoolActive = 1
29 29  
30 30  let PoolPutDis = 2
31 31  
32 32  let PoolMatcherDis = 3
33 33  
34 34  let PoolShutdown = 4
35 35  
36 36  let idxPoolAddress = 1
37 37  
38 38  let idxPoolSt = 2
39 39  
40 40  let idxLPAsId = 3
41 41  
42 42  let idxAmAsId = 4
43 43  
44 44  let idxPrAsId = 5
45 45  
46 46  let idxAmtAsDcm = 6
47 47  
48 48  let idxPriceAsDcm = 7
49 49  
50 50  let idxIAmtAsId = 8
51 51  
52 52  let idxIPriceAsId = 9
53 53  
54 54  let idxFactStakCntr = 1
55 55  
56 56  let idxFactSlippCntr = 7
57 57  
58 58  let idxFactGwxRewCntr = 10
59 59  
60 60  let feeDefault = fraction(5, scale8, 10000)
61 61  
62 62  func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63 63  
64 64  
65 65  func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66 66  
67 67  
68 68  func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69 69  
70 70  
71 71  func abs (val) = if ((zeroBigInt > val))
72 72      then -(val)
73 73      else val
74 74  
75 75  
76 76  func absBigInt (val) = if ((zeroBigInt > val))
77 77      then -(val)
78 78      else val
79 79  
80 80  
81 81  func fc () = "%s__factoryContract"
82 82  
83 83  
84 84  func mpk () = "%s__managerPublicKey"
85 85  
86 86  
87 87  func pmpk () = "%s__pendingManagerPublicKey"
88 88  
89 89  
90 90  func pl () = "%s%s__price__last"
91 91  
92 92  
93 93  func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
94 94  
95 95  
96 96  func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
97 97  
98 98  
99 99  func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
100 100  
101 101  
102 102  func aa () = "%s__amountAsset"
103 103  
104 104  
105 105  func pa () = "%s__priceAsset"
106 106  
107 107  
108 108  func amp () = "%s__amp"
109 109  
110 110  
111 111  func ada () = "%s__addonAddr"
112 112  
113 113  
114 114  let keyFee = "%s__fee"
115 115  
116 116  let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
117 117  
118 118  func fcfg () = "%s__factoryConfig"
119 119  
120 120  
121 121  func mtpk () = "%s%s__matcher__publicKey"
122 122  
123 123  
124 124  func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125 125  
126 126  
127 127  func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128 128  
129 129  
130 130  func aps () = "%s__shutdown"
131 131  
132 132  
133 133  func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134 134  
135 135  
136 136  func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137 137  
138 138  
139 139  func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140 140  
141 141  
142 142  func str (val) = match val {
143 143      case valStr: String => 
144 144          valStr
145 145      case _ => 
146 146          throw("fail cast to String")
147 147  }
148 148  
149 149  
150 150  func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151 151  
152 152  
153 153  func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154 154  
155 155  
156 156  let fca = addressFromStringValue(strf(this, fc()))
157 157  
158 158  let A = strf(this, amp())
159 159  
160 160  func igs () = valueOrElse(getBoolean(fca, aps()), false)
161 161  
162 162  
163 163  func mp () = fromBase58String(strf(fca, mtpk()))
164 164  
165 165  
166 166  let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
167 167  
168 168  func gpc () = {
169 169      let amtAs = strf(this, aa())
170 170      let priceAs = strf(this, pa())
171 171      let iPriceAs = intf(fca, mba(priceAs))
172 172      let iAmtAs = intf(fca, mba(amtAs))
173 173      split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
174 174      }
175 175  
176 176  
177 177  func gfc () = split(strf(fca, fcfg()), SEP)
178 178  
179 179  
180 180  let factoryConfig = gfc()
181 181  
182 182  let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
183 183  
184 184  let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
185 185  
186 186  let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
187 187  
188 188  func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
189 189  
190 190  
191 191  func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
192 192  
193 193  
194 194  func getAccBalance (assetId) = if ((assetId == "WAVES"))
195 195      then wavesBalance(this).available
196 196      else assetBalance(this, fromBase58String(assetId))
197 197  
198 198  
199 199  func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
200 200  
201 201  
202 202  func vad (A1,A2,slippage) = {
203 203      let diff = fraction((A1 - A2), scale8BigInt, A2)
204 204      let pass = ((slippage - abs(diff)) > zeroBigInt)
205 205      if (!(pass))
206 206          then throw(("Big slpg: " + toString(diff)))
207 207          else $Tuple2(pass, min([A1, A2]))
208 208      }
209 209  
210 210  
211 211  func vd (D1,D0,slpg) = {
212 212      let diff = fraction(D0, scale8BigInt, D1)
213 213      let fail = (slpg > diff)
214 214      if (if (fail)
215 215          then true
216 216          else (D0 > D1))
217 217          then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
218 218          else fail
219 219      }
220 220  
221 221  
222 222  func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
223 223      let amtAsAmtX18 = t1(amAmt, amAssetDcm)
224 224      let prAsAmtX18 = t1(prAmt, prAssetDcm)
225 225      cpbi(prAsAmtX18, amtAsAmtX18)
226 226      }
227 227  
228 228  
229 229  func calcPrices (amAmt,prAmt,lpAmt) = {
230 230      let cfg = gpc()
231 231      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
232 232      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
233 233      let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
234 234      let amAmtX18 = t1(amAmt, amtAsDcm)
235 235      let prAmtX18 = t1(prAmt, prAsDcm)
236 236      let lpAmtX18 = t1(lpAmt, scale8)
237 237      let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
238 238      let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
239 239  [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
240 240      }
241 241  
242 242  
243 243  func calculatePrices (amAmt,prAmt,lpAmt) = {
244 244      let p = calcPrices(amAmt, prAmt, lpAmt)
245 245  [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
246 246      }
247 247  
248 248  
249 249  func takeFee (amount) = {
250 250      let feeAmount = fraction(amount, fee, scale8)
251 251      $Tuple2((amount - feeAmount), feeAmount)
252 252      }
253 253  
254 254  
255 255  func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
256 256      let cfg = gpc()
257 257      let lpId = cfg[idxLPAsId]
258 258      let amId = cfg[idxAmAsId]
259 259      let prId = cfg[idxPrAsId]
260 260      let amDcm = parseIntValue(cfg[idxAmtAsDcm])
261 261      let prDcm = parseIntValue(cfg[idxPriceAsDcm])
262 262      let sts = cfg[idxPoolSt]
263 263      let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
264 264      if ((lpId != pmtAssetId))
265 265          then throw("Wrong pmt asset")
266 266          else {
267 267              let amBalance = getAccBalance(amId)
268 268              let amBalanceX18 = t1(amBalance, amDcm)
269 269              let prBalance = getAccBalance(prId)
270 270              let prBalanceX18 = t1(prBalance, prDcm)
271 271              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
272 272              let curPrice = f1(curPriceX18, scale8)
273 273              let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
274 274              let lpEmissX18 = t1(lpEmiss, scale8)
275 275              let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
276 276              let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
277 277              let outAmAmt = f1(outAmAmtX18, amDcm)
278 278              let outPrAmt = f1(outPrAmtX18, prDcm)
279 279              let state = if ((txId58 == ""))
280 280                  then nil
281 281                  else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
282 282                      then unit
283 283                      else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
284 284                      then unit
285 285                      else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
286 286              $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
287 287              }
288 288      }
289 289  
290 290  
291 291  func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
292 292      let cfg = gpc()
293 293      let lpId = fromBase58String(cfg[idxLPAsId])
294 294      let amIdStr = cfg[idxAmAsId]
295 295      let prIdStr = cfg[idxPrAsId]
296 296      let inAmIdStr = cfg[idxIAmtAsId]
297 297      let inPrIdStr = cfg[idxIPriceAsId]
298 298      let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
299 299      let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
300 300      let sts = cfg[idxPoolSt]
301 301      let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
302 302      let amBalance = if (isEval)
303 303          then getAccBalance(amIdStr)
304 304          else if (if (isOneAsset)
305 305              then (pmtId == amIdStr)
306 306              else false)
307 307              then (getAccBalance(amIdStr) - pmtAmt)
308 308              else if (isOneAsset)
309 309                  then getAccBalance(amIdStr)
310 310                  else (getAccBalance(amIdStr) - inAmAmt)
311 311      let prBalance = if (isEval)
312 312          then getAccBalance(prIdStr)
313 313          else if (if (isOneAsset)
314 314              then (pmtId == prIdStr)
315 315              else false)
316 316              then (getAccBalance(prIdStr) - pmtAmt)
317 317              else if (isOneAsset)
318 318                  then getAccBalance(prIdStr)
319 319                  else (getAccBalance(prIdStr) - inPrAmt)
320 320      let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
321 321      let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
322 322      let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
323 323      let amBalanceX18 = t1(amBalance, amtDcm)
324 324      let prBalanceX18 = t1(prBalance, priceDcm)
325 325      let r = if ((lpEm == 0))
326 326          then {
327 327              let curPriceX18 = zeroBigInt
328 328              let slippageX18 = zeroBigInt
329 329              let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
330 330              $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
331 331              }
332 332          else {
333 333              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
334 334              let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
335 335              let slippageX18 = t1(slippage, scale8)
336 336              if (if (if (validateSlippage)
337 337                  then (curPriceX18 != zeroBigInt)
338 338                  else false)
339 339                  then (slippageRealX18 > slippageX18)
340 340                  else false)
341 341                  then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
342 342                  else {
343 343                      let lpEmissionX18 = t1(lpEm, scale8)
344 344                      let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
345 345                      let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
346 346                      let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
347 347                          then $Tuple2(amViaPrX18, inPrAssetAmtX18)
348 348                          else $Tuple2(inAmAssetAmtX18, prViaAmX18)
349 349                      let expAmtAssetAmtX18 = expectedAmts._1
350 350                      let expPriceAssetAmtX18 = expectedAmts._2
351 351                      let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
352 352                      $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
353 353                      }
354 354              }
355 355      let calcLpAmt = r._1
356 356      let calcAmAssetPmt = r._2
357 357      let calcPrAssetPmt = r._3
358 358      let curPrice = f1(r._4, scale8)
359 359      let slippageCalc = f1(r._5, scale8)
360 360      if ((0 >= calcLpAmt))
361 361          then throw("LP <= 0")
362 362          else {
363 363              let emitLpAmt = if (!(emitLp))
364 364                  then 0
365 365                  else calcLpAmt
366 366              let amDiff = (inAmAmt - calcAmAssetPmt)
367 367              let prDiff = (inPrAmt - calcPrAssetPmt)
368 368              let $t01635116696 = if (if (isOneAsset)
369 369                  then (pmtId == amIdStr)
370 370                  else false)
371 371                  then $Tuple2(pmtAmt, 0)
372 372                  else if (if (isOneAsset)
373 373                      then (pmtId == prIdStr)
374 374                      else false)
375 375                      then $Tuple2(0, pmtAmt)
376 376                      else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
377 377              let writeAmAmt = $t01635116696._1
378 378              let writePrAmt = $t01635116696._2
379 379              let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
380 380              $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
381 381              }
382 382      }
383 383  
384 384  
385 385  func moa (order) = {
386 386      let cfg = gpc()
387 387      let amtAsId = cfg[idxAmAsId]
388 388      let prAsId = cfg[idxPrAsId]
389 389      let sts = parseIntValue(cfg[idxPoolSt])
390 390      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
391 391      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
392 392      let accAmtAsBalance = getAccBalance(amtAsId)
393 393      let accPrAsBalance = getAccBalance(prAsId)
394 394      let curPriceX18 = if ((order.orderType == Buy))
395 395          then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
396 396          else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
397 397      let curPrice = f1(curPriceX18, scale8)
398 398      if (if (if (igs())
399 399          then true
400 400          else (sts == PoolMatcherDis))
401 401          then true
402 402          else (sts == PoolShutdown))
403 403          then throw("Admin blocked")
404 404          else {
405 405              let orAmtAsset = order.assetPair.amountAsset
406 406              let orAmtAsStr = if ((orAmtAsset == unit))
407 407                  then "WAVES"
408 408                  else toBase58String(value(orAmtAsset))
409 409              let orPrAsset = order.assetPair.priceAsset
410 410              let orPrAsStr = if ((orPrAsset == unit))
411 411                  then "WAVES"
412 412                  else toBase58String(value(orPrAsset))
413 413              if (if ((orAmtAsStr != amtAsId))
414 414                  then true
415 415                  else (orPrAsStr != prAsId))
416 416                  then throw("Wr assets")
417 417                  else {
418 418                      let orderPrice = order.price
419 419                      let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
420 420                      let castOrderPrice = ts(orderPrice, scale8, priceDcm)
421 421                      let isOrderPriceValid = if ((order.orderType == Buy))
422 422                          then (curPrice >= castOrderPrice)
423 423                          else (castOrderPrice >= curPrice)
424 424                      true
425 425                      }
426 426              }
427 427      }
428 428  
429 429  
430 430  func cg (i) = if ((size(i.payments) != 1))
431 431      then throw("1 pmnt exp")
432 432      else {
433 433          let pmt = value(i.payments[0])
434 434          let pmtAssetId = value(pmt.assetId)
435 435          let pmtAmt = pmt.amount
436 436          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
437 437          let outAmAmt = r._1
438 438          let outPrAmt = r._2
439 439          let sts = parseIntValue(r._9)
440 440          let state = r._10
441 441          if (if (igs())
442 442              then true
443 443              else (sts == PoolShutdown))
444 444              then throw(("Admin blocked: " + toString(sts)))
445 445              else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
446 446          }
447 447  
448 448  
449 449  func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
450 450      let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
451 451      let sts = parseIntValue(r._8)
452 452      if (if (if (igs())
453 453          then true
454 454          else (sts == PoolPutDis))
455 455          then true
456 456          else (sts == PoolShutdown))
457 457          then throw(("Blocked:" + toString(sts)))
458 458          else r
459 459      }
460 460  
461 461  
462 462  func getD (xp) = {
463 463      let n = big2
464 464      let xp0 = xp[0]
465 465      let xp1 = xp[1]
466 466      let aPrecision = parseBigIntValue(Amult)
467 467      let a = (parseBigIntValue(A) * aPrecision)
468 468      let s = (xp0 + xp1)
469 469      if ((s == big0))
470 470          then big0
471 471          else {
472 472              let ann = (a * n)
473 +             let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
474 +             let ann_s_aPrecision = ((ann * s) / aPrecision)
475 +             let ann_aPrecision = (ann - aPrecision)
476 +             let n1 = (n + big1)
473 477              func calc (acc,cur) =             {
474 -                 let $t02109621116 = acc
475 -                 let d = $t02109621116._1
476 -                 let found = $t02109621116._2
478 +                 let $t02124821268 = acc
479 +                 let d = $t02124821268._1
480 +                 let found = $t02124821268._2
477 481                  if ((found != unit))
478 482                      then acc
479 483                      else {
480 -                         let dp = (((d * d) * d) / (((xp0 * xp1) * n) * n))
481 -                         let dNext = (((((ann * s) / aPrecision) + (dp * n)) * d) / ((((ann - aPrecision) * d) / aPrecision) + ((n + big1) * dp)))
484 +                         let dp = (((d * d) * d) / xp0_xp1_n_n)
485 +                         let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
482 486                          let dDiff = absBigInt((dNext - value(d)))
483 487                          if ((big1 >= dDiff))
484 488                              then $Tuple2(dNext, cur)
485 489                              else $Tuple2(dNext, unit)
486 490                          }
487 491                  }
488 492  
489 -             let arr = [0, 1, 2, 3, 4, 5, 6]
490 -             let $t02153221578 = {
493 +             let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
494 +             let $t02168921736 = {
491 495                  let $l = arr
492 496                  let $s = size($l)
493 497                  let $acc0 = $Tuple2(s, unit)
494 498                  func $f0_1 ($a,$i) =                 if (($i >= $s))
495 499                      then $a
496 500                      else calc($a, $l[$i])
497 501  
498 502                  func $f0_2 ($a,$i) =                 if (($i >= $s))
499 503                      then $a
500 -                     else throw("List size exceeds 7")
504 +                     else throw("List size exceeds 15")
501 505  
502 -                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
506 +                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
503 507                  }
504 -             let d = $t02153221578._1
505 -             let found = $t02153221578._2
508 +             let d = $t02168921736._1
509 +             let found = $t02168921736._2
506 510              if ((found != unit))
507 511                  then d
508 512                  else throw(("D calculation error, D = " + toString(d)))
509 513              }
510 514      }
511 515  
512 516  
513 517  func getYD (xp,i,D) = {
514 518      let n = big2
515 519      let x = xp[if ((i == 0))
516 520          then 1
517 521          else 0]
518 522      let aPrecision = parseBigIntValue(Amult)
519 523      let a = (parseBigIntValue(A) * aPrecision)
520 524      let s = x
521 525      let ann = (a * n)
522 526      let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
523 527      let b = ((s + ((D * aPrecision) / ann)) - D)
524 528      func calc (acc,cur) =     {
525 -         let $t02207822098 = acc
526 -         let y = $t02207822098._1
527 -         let found = $t02207822098._2
529 +         let $t02223622256 = acc
530 +         let y = $t02223622256._1
531 +         let found = $t02223622256._2
528 532          if ((found != unit))
529 533              then acc
530 534              else {
531 535                  let yNext = (((y * y) + c) / ((big2 * y) + b))
532 536                  let yDiff = absBigInt((yNext - value(y)))
533 537                  if ((big1 >= yDiff))
534 538                      then $Tuple2(yNext, cur)
535 539                      else $Tuple2(yNext, unit)
536 540                  }
537 541          }
538 542  
539 543      let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
540 -     let $t02240522452 = {
544 +     let $t02256322610 = {
541 545          let $l = arr
542 546          let $s = size($l)
543 547          let $acc0 = $Tuple2(D, unit)
544 548          func $f0_1 ($a,$i) =         if (($i >= $s))
545 549              then $a
546 550              else calc($a, $l[$i])
547 551  
548 552          func $f0_2 ($a,$i) =         if (($i >= $s))
549 553              then $a
550 554              else throw("List size exceeds 15")
551 555  
552 556          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
553 557          }
554 -     let y = $t02240522452._1
555 -     let found = $t02240522452._2
558 +     let y = $t02256322610._1
559 +     let found = $t02256322610._2
556 560      if ((found != unit))
557 561          then y
558 562          else throw(("Y calculation error, Y = " + toString(y)))
559 563      }
560 564  
561 565  
562 566  func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId) = {
563 567      let poolConfig = gpc()
564 568      let amId = poolConfig[idxAmAsId]
565 569      let prId = poolConfig[idxPrAsId]
566 570      let lpId = poolConfig[idxLPAsId]
567 571      let amtDcm = parseIntValue(poolConfig[idxAmtAsDcm])
568 572      let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
569 573      let amBalance = getAccBalance(amId)
570 574      let prBalance = getAccBalance(prId)
571 -     let $t02299423039 = takeFee(pmtAmtRaw)
572 -     let pmtAmt = $t02299423039._1
573 -     let feeAmount = $t02299423039._2
574 -     let $t02304323504 = if ((txId == ""))
575 +     let $t02315223613 = if ((txId == ""))
575 576          then $Tuple2(amBalance, prBalance)
576 577          else if ((pmtAssetId == amId))
577 578              then if ((pmtAmtRaw > amBalance))
578 579                  then throw("invalid payment amount")
579 580                  else $Tuple2((amBalance - pmtAmtRaw), prBalance)
580 581              else if ((pmtAssetId == prId))
581 582                  then if ((pmtAmtRaw > prBalance))
582 583                      then throw("invalid payment amount")
583 584                      else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
584 585                  else throw("wrong pmtAssetId")
585 -     let amBalanceOld = $t02304323504._1
586 -     let prBalanceOld = $t02304323504._2
587 -     let $t02351023674 = if ((pmtAssetId == amId))
588 -         then $Tuple2(pmtAmt, 0)
586 +     let amBalanceOld = $t02315223613._1
587 +     let prBalanceOld = $t02315223613._2
588 +     let $t02361923795 = if ((pmtAssetId == amId))
589 +         then $Tuple2(pmtAmtRaw, 0)
589 590          else if ((pmtAssetId == prId))
590 -             then $Tuple2(0, pmtAmt)
591 +             then $Tuple2(0, pmtAmtRaw)
591 592              else throw("invalid payment")
592 -     let amAmount = $t02351023674._1
593 -     let prAmount = $t02351023674._2
593 +     let amAmountRaw = $t02361923795._1
594 +     let prAmountRaw = $t02361923795._2
595 +     let amAmount = takeFee(amAmountRaw)._1
596 +     let prAmount = takeFee(prAmountRaw)._1
597 +     let feeAmount = takeFee(pmtAmtRaw)._2
594 598      let amBalanceNew = (amBalanceOld + amAmount)
595 599      let prBalanceNew = (prBalanceOld + prAmount)
596 600      let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
597 601      let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
598 602      let checkD = if ((D1 > D0))
599 603          then true
600 604          else throw()
601 605      if ((checkD == checkD))
602 606          then {
603 607              let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
604 608              let lpAmount = if ((lpAssetEmission > big0))
605 609                  then fraction(lpAssetEmission, (D1 - D0), D0)
606 610                  else throw("initial deposit requires all coins")
607 611              let curPrice = f1(cpbi(t1(prBalance, priceDcm), t1(amBalance, amtDcm)), scale8)
608 -             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmount, prAmount, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
612 +             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
609 613              let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
610 -             let amountAssetPart = fraction(pmtAmt, scale8, (poolProportion + scale8))
611 -             let priceAssetPart = (pmtAmt - amountAssetPart)
614 +             let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
615 +             let priceAssetPart = (pmtAmtRaw - amountAssetPart)
612 616              let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
613 617              let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
614 618              $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
615 619              }
616 620          else throw("Strict value is not equal to itself.")
617 621      }
618 622  
619 623  
620 624  func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = if ((size(payments) != 1))
621 625      then throw("1 pmnt expd")
622 626      else {
623 627          let poolConfig = gpc()
624 628          let lpId = poolConfig[idxLPAsId]
625 629          let amId = poolConfig[idxAmAsId]
626 630          let prId = poolConfig[idxPrAsId]
627 631          let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
628 632          let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
629 633          let poolStatus = poolConfig[idxPoolSt]
630 634          let userAddress = if ((caller == this))
631 635              then originCaller
632 636              else caller
633 637          let pmt = value(payments[0])
634 638          let pmtAssetId = value(pmt.assetId)
635 639          let pmtAmt = pmt.amount
636 640          if ((1000000000 > pmtAmt))
637 641              then throw("Min pmt 10 LP")
638 642              else {
639 643                  let txId58 = toBase58String(transactionId)
640 644                  if ((lpId != toBase58String(pmtAssetId)))
641 645                      then throw("Wrong LP")
642 646                      else {
643 647                          let amBalance = getAccBalance(amId)
644 648                          let prBalance = getAccBalance(prId)
645 -                         let $t02598726095 = {
649 +                         let $t02624626354 = {
646 650                              let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
647 651                              if ($isInstanceOf(@, "(Int, Int)"))
648 652                                  then @
649 653                                  else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
650 654                              }
651 -                         let totalGet = $t02598726095._1
652 -                         let feeAmount = $t02598726095._2
655 +                         let totalGet = $t02624626354._1
656 +                         let feeAmount = $t02624626354._2
653 657                          let totalAmount = if (if ((minOutAmount > 0))
654 658                              then (minOutAmount > totalGet)
655 659                              else false)
656 660                              then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
657 661                              else totalGet
658 -                         let $t02628226369 = if ((outAssetId == amId))
662 +                         let $t02654126724 = if ((outAssetId == amId))
659 663                              then $Tuple2(totalAmount, 0)
660 -                             else $Tuple2(0, totalAmount)
661 -                         let outAm = $t02628226369._1
662 -                         let outPr = $t02628226369._2
664 +                             else if ((outAssetId == prId))
665 +                                 then $Tuple2(0, totalAmount)
666 +                                 else throw("invalid out asset id")
667 +                         let outAm = $t02654126724._1
668 +                         let outPr = $t02654126724._2
663 669                          let curPrX18 = cpbi(t1(prBalance, prDecimals), t1(amBalance, amDecimals))
664 670                          let curPr = f1(curPrX18, scale8)
665 671                          let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
666 672                              then unit
667 673                              else fromBase58String(outAssetId)
668 674                          let sendFeeToMatcher = if ((feeAmount > 0))
669 675                              then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
670 676                              else nil
671 677                          let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
672 678                          if ((state == state))
673 679                              then {
674 680                                  let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
675 681                                  if ((burn == burn))
676 682                                      then $Tuple2(state, totalAmount)
677 683                                      else throw("Strict value is not equal to itself.")
678 684                                  }
679 685                              else throw("Strict value is not equal to itself.")
680 686                          }
681 687                  }
682 688          }
683 689  
684 690  
685 691  func m () = match getString(mpk()) {
686 692      case s: String => 
687 693          fromBase58String(s)
688 694      case _: Unit => 
689 695          unit
690 696      case _ => 
691 697          throw("Match error")
692 698  }
693 699  
694 700  
695 701  func pm () = match getString(pmpk()) {
696 702      case s: String => 
697 703          fromBase58String(s)
698 704      case _: Unit => 
699 705          unit
700 706      case _ => 
701 707          throw("Match error")
702 708  }
703 709  
704 710  
705 711  let pd = throw("Permission denied")
706 712  
707 713  func mm (i) = match m() {
708 714      case pk: ByteVector => 
709 715          if ((i.callerPublicKey == pk))
710 716              then true
711 717              else pd
712 718      case _: Unit => 
713 719          if ((i.caller == this))
714 720              then true
715 721              else pd
716 722      case _ => 
717 723          throw("Match error")
718 724  }
719 725  
720 726  
721 727  @Callable(i)
722 728  func constructor (fc) = {
723 729      let c = mm(i)
724 730      if ((c == c))
725 731          then [StringEntry(fc(), fc)]
726 732          else throw("Strict value is not equal to itself.")
727 733      }
728 734  
729 735  
730 736  
731 737  @Callable(i)
732 738  func setManager (pendingManagerPublicKey) = {
733 739      let c = mm(i)
734 740      if ((c == c))
735 741          then {
736 742              let cm = fromBase58String(pendingManagerPublicKey)
737 743              if ((cm == cm))
738 744                  then [StringEntry(pmpk(), pendingManagerPublicKey)]
739 745                  else throw("Strict value is not equal to itself.")
740 746              }
741 747          else throw("Strict value is not equal to itself.")
742 748      }
743 749  
744 750  
745 751  
746 752  @Callable(i)
747 753  func confirmManager () = {
748 754      let p = pm()
749 755      let hpm = if (isDefined(p))
750 756          then true
751 757          else throw("No pending manager")
752 758      if ((hpm == hpm))
753 759          then {
754 760              let cpm = if ((i.callerPublicKey == value(p)))
755 761                  then true
756 762                  else throw("You are not pending manager")
757 763              if ((cpm == cpm))
758 764                  then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
759 765                  else throw("Strict value is not equal to itself.")
760 766              }
761 767          else throw("Strict value is not equal to itself.")
762 768      }
763 769  
764 770  
765 771  
766 772  @Callable(i)
767 773  func put (slip,autoStake) = {
768 774      let factCfg = gfc()
769 775      let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
770 776      let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
771 777      if ((0 > slip))
772 778          then throw("Wrong slippage")
773 779          else if ((size(i.payments) != 2))
774 780              then throw("2 pmnts expd")
775 781              else {
776 782                  let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
777 783                  let emitLpAmt = e._2
778 784                  let lpAssetId = e._7
779 785                  let state = e._9
780 786                  let amDiff = e._10
781 787                  let prDiff = e._11
782 788                  let amId = e._12
783 789                  let prId = e._13
784 790                  let r = invoke(fca, "emit", [emitLpAmt], nil)
785 791                  if ((r == r))
786 792                      then {
787 793                          let el =                         match r {
788 794                              case legacy: Address => 
789 795                                  invoke(legacy, "emit", [emitLpAmt], nil)
790 796                              case _ => 
791 797                                  unit
792 798                          }
793 799                          if ((el == el))
794 800                              then {
795 801                                  let sa = if ((amDiff > 0))
796 802                                      then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
797 803                                      else nil
798 804                                  if ((sa == sa))
799 805                                      then {
800 806                                          let sp = if ((prDiff > 0))
801 807                                              then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
802 808                                              else nil
803 809                                          if ((sp == sp))
804 810                                              then {
805 811                                                  let lpTrnsfr = if (autoStake)
806 812                                                      then {
807 813                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
808 814                                                          if ((ss == ss))
809 815                                                              then nil
810 816                                                              else throw("Strict value is not equal to itself.")
811 817                                                          }
812 818                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
813 819                                                  (state ++ lpTrnsfr)
814 820                                                  }
815 821                                              else throw("Strict value is not equal to itself.")
816 822                                          }
817 823                                      else throw("Strict value is not equal to itself.")
818 824                                  }
819 825                              else throw("Strict value is not equal to itself.")
820 826                          }
821 827                      else throw("Strict value is not equal to itself.")
822 828                  }
823 829      }
824 830  
825 831  
826 832  
827 833  @Callable(i)
828 834  func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
829 835      let cfg = gfc()
830 836      let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
831 837      let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
832 838      let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
833 839      let poolCfg = gpc()
834 840      let amId = poolCfg[idxAmAsId]
835 841      let prId = poolCfg[idxPrAsId]
836 842      let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
837 843      let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
838 844      let addon = valueOrElse(getString(this, ada()), "")
839 845      let userAddress = if ((addon == toString(i.caller)))
840 846          then i.originCaller
841 847          else i.caller
842 848      if (if (if (if ((0 >= slippage))
843 849          then true
844 850          else (0 >= amAssetPart))
845 851          then true
846 852          else (0 >= prAssetPart))
847 853          then true
848 854          else (0 >= outLp))
849 855          then throw("Wrong params")
850 856          else if ((size(i.payments) != 1))
851 857              then throw("1 pmnt expd")
852 858              else {
853 859                  let pmt = value(i.payments[0])
854 860                  let pmtAssetId = toBase58String(value(pmt.assetId))
855 861                  let paymentAmountRaw = pmt.amount
856 -                 let $t03175531807 = takeFee(paymentAmountRaw)
857 -                 let pmtAmt = $t03175531807._1
858 -                 let feeAmount = $t03175531807._2
862 +                 let $t03211032162 = takeFee(paymentAmountRaw)
863 +                 let pmtAmt = $t03211032162._1
864 +                 let feeAmount = $t03211032162._2
859 865                  if ((10000000 > paymentAmountRaw))
860 866                      then throw("Wrong pmt amt")
861 867                      else {
862 868                          let amBalance = getAccBalance(amId)
863 869                          let prBalance = getAccBalance(prId)
864 -                         let $t03196732583 = if ((pmtAssetId == amId))
870 +                         let $t03232232938 = if ((pmtAssetId == amId))
865 871                              then if (if ((paymentAmountRaw > amBalance))
866 872                                  then true
867 873                                  else (amAssetPart > pmtAmt))
868 874                                  then throw("invalid payment amount")
869 875                                  else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
870 876                              else if ((pmtAssetId == prId))
871 877                                  then if (if ((paymentAmountRaw > prBalance))
872 878                                      then true
873 879                                      else (prAssetPart > pmtAmt))
874 880                                      then throw("invalid payment amount")
875 881                                      else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
876 882                                  else throw("wrong pmtAssetId")
877 -                         let amBalanceNow = $t03196732583._1
878 -                         let prBalanceNow = $t03196732583._2
879 -                         let virtSwapInAm = $t03196732583._3
880 -                         let virtSwapOutPr = $t03196732583._4
881 -                         let virtSwapInPr = $t03196732583._5
882 -                         let virtSwapOutAm = $t03196732583._6
883 +                         let amBalanceNow = $t03232232938._1
884 +                         let prBalanceNow = $t03232232938._2
885 +                         let virtSwapInAm = $t03232232938._3
886 +                         let virtSwapOutPr = $t03232232938._4
887 +                         let virtSwapInPr = $t03232232938._5
888 +                         let virtSwapOutAm = $t03232232938._6
883 889                          let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
884 890                          let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
885 891                          let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
886 892                          if ((D0vsD1 == D0vsD1))
887 893                              then {
888 894                                  let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, true, pmtAmt, pmtAssetId)
889 895                                  let estimLP = estPut._2
890 896                                  let lpAssetId = estPut._7
891 897                                  let state = estPut._9
892 898                                  let amDiff = estPut._10
893 899                                  let prDiff = estPut._11
894 900                                  let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
895 901                                  let emitLpAmt = toInt(lpCalcRes._2)
896 902                                  let e = invoke(fca, "emit", [emitLpAmt], nil)
897 903                                  if ((e == e))
898 904                                      then {
899 905                                          let el =                                         match e {
900 906                                              case legacy: Address => 
901 907                                                  invoke(legacy, "emit", [emitLpAmt], nil)
902 908                                              case _ => 
903 909                                                  unit
904 910                                          }
905 911                                          if ((el == el))
906 912                                              then {
907 913                                                  let sa = if ((amDiff > 0))
908 914                                                      then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
909 915                                                      else nil
910 916                                                  if ((sa == sa))
911 917                                                      then {
912 918                                                          let sp = if ((prDiff > 0))
913 919                                                              then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
914 920                                                              else nil
915 921                                                          if ((sp == sp))
916 922                                                              then {
917 923                                                                  let lpTrnsfr = if (autoStake)
918 924                                                                      then {
919 925                                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
920 926                                                                          if ((ss == ss))
921 927                                                                              then nil
922 928                                                                              else throw("Strict value is not equal to itself.")
923 929                                                                          }
924 930                                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
925 931                                                                  let sendFeeToMatcher = if ((feeAmount > 0))
926 932                                                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
927 933                                                                      else nil
928 934                                                                  ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
929 935                                                                  }
930 936                                                              else throw("Strict value is not equal to itself.")
931 937                                                          }
932 938                                                      else throw("Strict value is not equal to itself.")
933 939                                                  }
934 940                                              else throw("Strict value is not equal to itself.")
935 941                                          }
936 942                                      else throw("Strict value is not equal to itself.")
937 943                                  }
938 944                              else throw("Strict value is not equal to itself.")
939 945                          }
940 946                  }
941 947      }
942 948  
943 949  
944 950  
945 951  @Callable(i)
946 952  func putOneTknV2 (minOutAmount,autoStake) = if ((size(i.payments) != 1))
947 953      then throw("1 pmnt expd")
948 954      else {
949 955          let poolConfig = gpc()
950 956          let amId = poolConfig[idxAmAsId]
951 957          let prId = poolConfig[idxPrAsId]
952 958          let lpId = fromBase58String(poolConfig[idxLPAsId])
953 959          let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
954 960          let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
955 961          let userAddress = if ((i.caller == this))
956 962              then i.originCaller
957 963              else i.caller
958 964          let pmt = value(i.payments[0])
959 965          let pmtAssetId = toBase58String(value(pmt.assetId))
960 966          let pmtAmt = pmt.amount
961 967          if ((10000000 > pmtAmt))
962 968              then throw("Wrong pmt amt")
963 969              else {
964 -                 let $t03548935614 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
965 -                 let estimLP = $t03548935614._1
966 -                 let state = $t03548935614._2
967 -                 let feeAmount = $t03548935614._3
970 +                 let $t03584435969 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
971 +                 let estimLP = $t03584435969._1
972 +                 let state = $t03584435969._2
973 +                 let feeAmount = $t03584435969._3
968 974                  let emitLpAmt = if (if ((minOutAmount > 0))
969 975                      then (minOutAmount > estimLP)
970 976                      else false)
971 977                      then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
972 978                      else estimLP
973 979                  let e = invoke(fca, "emit", [emitLpAmt], nil)
974 980                  if ((e == e))
975 981                      then {
976 982                          let el =                         match e {
977 983                              case legacy: Address => 
978 984                                  invoke(legacy, "emit", [emitLpAmt], nil)
979 985                              case _ => 
980 986                                  unit
981 987                          }
982 988                          if ((el == el))
983 989                              then {
984 990                                  let lpTrnsfr = if (autoStake)
985 991                                      then {
986 992                                          let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
987 993                                          if ((ss == ss))
988 994                                              then nil
989 995                                              else throw("Strict value is not equal to itself.")
990 996                                          }
991 997                                      else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
992 998                                  let sendFeeToMatcher = if ((feeAmount > 0))
993 999                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
994 1000                                      else nil
995 1001                                  $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
996 1002                                  }
997 1003                              else throw("Strict value is not equal to itself.")
998 1004                          }
999 1005                      else throw("Strict value is not equal to itself.")
1000 1006                  }
1001 1007          }
1002 1008  
1003 1009  
1004 1010  
1005 1011  @Callable(i)
1006 1012  func putForFree (maxSlpg) = if ((0 > maxSlpg))
1007 1013      then throw("Wrong slpg")
1008 1014      else if ((size(i.payments) != 2))
1009 1015          then throw("2 pmnts expd")
1010 1016          else {
1011 1017              let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, true, 0, "")
1012 1018              estPut._9
1013 1019              }
1014 1020  
1015 1021  
1016 1022  
1017 1023  @Callable(i)
1018 1024  func get () = {
1019 1025      let r = cg(i)
1020 1026      let outAmtAmt = r._1
1021 1027      let outPrAmt = r._2
1022 1028      let pmtAmt = r._3
1023 1029      let pmtAssetId = r._4
1024 1030      let state = r._5
1025 1031      let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1026 1032      if ((b == b))
1027 1033          then state
1028 1034          else throw("Strict value is not equal to itself.")
1029 1035      }
1030 1036  
1031 1037  
1032 1038  
1033 1039  @Callable(i)
1034 1040  func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
1035 1041      then throw("1 pmnt expd")
1036 1042      else {
1037 1043          let cfg = gpc()
1038 1044          let lpId = cfg[idxLPAsId]
1039 1045          let amId = cfg[idxAmAsId]
1040 1046          let prId = cfg[idxPrAsId]
1041 1047          let amDcm = parseIntValue(cfg[idxAmtAsDcm])
1042 1048          let prDcm = parseIntValue(cfg[idxPriceAsDcm])
1043 1049          let sts = cfg[idxPoolSt]
1044 1050          let factCfg = gfc()
1045 1051          let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
1046 1052          let pmt = value(i.payments[0])
1047 1053          let addon = valueOrElse(getString(this, ada()), "")
1048 1054          let userAddress = if ((addon == toString(i.caller)))
1049 1055              then i.originCaller
1050 1056              else i.caller
1051 1057          let txId58 = toBase58String(i.transactionId)
1052 1058          let pmtAssetId = value(pmt.assetId)
1053 1059          let pmtAmt = pmt.amount
1054 1060          if ((1000000000 > pmtAmt))
1055 1061              then throw("Min pmt 10 LP")
1056 1062              else if (if (if ((0 > slippage))
1057 1063                  then true
1058 1064                  else (0 > exchResult))
1059 1065                  then true
1060 1066                  else (0 > outAmount))
1061 1067                  then throw("Wrong params")
1062 1068                  else if ((lpId != toBase58String(pmtAssetId)))
1063 1069                      then throw("Wrong LP")
1064 1070                      else {
1065 1071                          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
1066 1072                          let estimAmAmt = r._1
1067 1073                          let estimPrAmt = r._2
1068 1074                          let amBalance = getAccBalance(amId)
1069 1075                          let prBalance = getAccBalance(prId)
1070 -                         let $t03924539705 = if ((outAssetId == amId))
1076 +                         let $t03960040060 = if ((outAssetId == amId))
1071 1077                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1072 1078                              else if ((outAssetId == prId))
1073 1079                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1074 1080                                  else throw("wrong outAssetId")
1075 -                         let amBalanceNow = $t03924539705._1
1076 -                         let prBalanceNow = $t03924539705._2
1077 -                         let virtSwapInAm = $t03924539705._3
1078 -                         let virtSwapOutPr = $t03924539705._4
1079 -                         let virtSwapInPr = $t03924539705._5
1080 -                         let virtSwapOutAm = $t03924539705._6
1081 -                         let totalGetRaw = $t03924539705._7
1081 +                         let amBalanceNow = $t03960040060._1
1082 +                         let prBalanceNow = $t03960040060._2
1083 +                         let virtSwapInAm = $t03960040060._3
1084 +                         let virtSwapOutPr = $t03960040060._4
1085 +                         let virtSwapInPr = $t03960040060._5
1086 +                         let virtSwapOutAm = $t03960040060._6
1087 +                         let totalGetRaw = $t03960040060._7
1082 1088                          if (if ((0 > virtSwapInAm))
1083 1089                              then true
1084 1090                              else (0 > virtSwapInPr))
1085 1091                              then throw("Wrong calc")
1086 1092                              else {
1087 1093                                  let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
1088 1094                                  let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
1089 1095                                  let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
1090 1096                                  if ((D0vsD1 == D0vsD1))
1091 1097                                      then {
1092 1098                                          let totalGet = takeFee(totalGetRaw)._1
1093 1099                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1094 1100                                          if ((finalRes == finalRes))
1095 1101                                              then {
1096 -                                                 let $t04045240556 = if ((outAssetId == amId))
1102 +                                                 let $t04080740911 = if ((outAssetId == amId))
1097 1103                                                      then $Tuple2(toInt(finalRes._2), 0)
1098 1104                                                      else $Tuple2(0, toInt(finalRes._2))
1099 -                                                 let outAm = $t04045240556._1
1100 -                                                 let outPr = $t04045240556._2
1105 +                                                 let outAm = $t04080740911._1
1106 +                                                 let outPr = $t04080740911._2
1101 1107                                                  let totalAmount = (outAm + outPr)
1102 1108                                                  let feeAmount = (totalGetRaw - totalGet)
1103 1109                                                  let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
1104 1110                                                      then unit
1105 1111                                                      else fromBase58String(outAssetId)
1106 1112                                                  let sendFeeToMatcher = if ((feeAmount > 0))
1107 1113                                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
1108 1114                                                      else nil
1109 1115                                                  let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
1110 1116                                                  let curPr = f1(curPrX18, scale8)
1111 1117                                                  let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
1112 1118                                                  if ((state == state))
1113 1119                                                      then {
1114 1120                                                          let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115 1121                                                          if ((burn == burn))
1116 1122                                                              then (state ++ sendFeeToMatcher)
1117 1123                                                              else throw("Strict value is not equal to itself.")
1118 1124                                                          }
1119 1125                                                      else throw("Strict value is not equal to itself.")
1120 1126                                                  }
1121 1127                                              else throw("Strict value is not equal to itself.")
1122 1128                                          }
1123 1129                                      else throw("Strict value is not equal to itself.")
1124 1130                                  }
1125 1131                          }
1126 1132          }
1127 1133  
1128 1134  
1129 1135  
1130 1136  @Callable(i)
1131 1137  func getOneTknV2 (outAssetId,minOutAmount) = {
1132 -     let $t04158141736 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1133 -     let state = $t04158141736._1
1134 -     let totalAmount = $t04158141736._2
1138 +     let $t04193642091 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1139 +     let state = $t04193642091._1
1140 +     let totalAmount = $t04193642091._2
1135 1141      $Tuple2(state, totalAmount)
1136 1142      }
1137 1143  
1138 1144  
1139 1145  
1140 1146  @Callable(i)
1141 1147  func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1142 1148      let poolConfig = gpc()
1143 1149      let amId = poolConfig[idxAmAsId]
1144 1150      let prId = poolConfig[idxPrAsId]
1145 1151      let lpId = poolConfig[idxLPAsId]
1146 1152      let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
1147 1153      let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1148 1154      let D0 = getD(xp)
1149 1155      let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
1150 1156      let index = if ((outAssetId == amId))
1151 1157          then 0
1152 -         else 1
1158 +         else if ((outAssetId == prId))
1159 +             then 1
1160 +             else throw("invalid out asset id")
1153 1161      let newY = getYD(xp, index, D1)
1154 1162      let dy = (xp[index] - newY)
1155 1163      let totalGetRaw = toInt((dy - big1))
1156 -     let $t04242042469 = takeFee(totalGetRaw)
1157 -     let totalGet = $t04242042469._1
1158 -     let feeAmount = $t04242042469._2
1164 +     let $t04287042919 = takeFee(totalGetRaw)
1165 +     let totalGet = $t04287042919._1
1166 +     let feeAmount = $t04287042919._2
1159 1167      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1160 1168      }
1161 1169  
1162 1170  
1163 1171  
1164 1172  @Callable(i)
1165 1173  func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1166 1174      let poolConfig = gpc()
1167 1175      let amId = poolConfig[idxAmAsId]
1168 1176      let prId = poolConfig[idxPrAsId]
1169 1177      let lpId = poolConfig[idxLPAsId]
1170 1178      let amBalance = getAccBalance(amId)
1171 1179      let prBalance = getAccBalance(prId)
1172 -     let $t04281442929 = {
1180 +     let $t04326443379 = {
1173 1181          let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1174 1182          if ($isInstanceOf(@, "(Int, Int)"))
1175 1183              then @
1176 1184              else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1177 1185          }
1178 -     let totalGet = $t04281442929._1
1179 -     let feeAmount = $t04281442929._2
1186 +     let totalGet = $t04326443379._1
1187 +     let feeAmount = $t04326443379._2
1180 1188      let r = ego("", lpId, lpAssetAmount, this)
1181 1189      let outAmAmt = r._1
1182 1190      let outPrAmt = r._2
1183 1191      let sumOfGetAssets = (outAmAmt + outPrAmt)
1184 1192      let bonus = fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
1185 1193      $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
1186 1194      }
1187 1195  
1188 1196  
1189 1197  
1190 1198  @Callable(i)
1191 1199  func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
1192 1200      let r = cg(i)
1193 1201      let outAmAmt = r._1
1194 1202      let outPrAmt = r._2
1195 1203      let pmtAmt = r._3
1196 1204      let pmtAssetId = r._4
1197 1205      let state = r._5
1198 1206      if ((noLessThenAmtAsset > outAmAmt))
1199 1207          then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
1200 1208          else if ((noLessThenPriceAsset > outPrAmt))
1201 1209              then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1202 1210              else {
1203 1211                  let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1204 1212                  if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1205 1213                      then state
1206 1214                      else throw("Strict value is not equal to itself.")
1207 1215                  }
1208 1216      }
1209 1217  
1210 1218  
1211 1219  
1212 1220  @Callable(i)
1213 1221  func unstakeAndGet (amount) = {
1214 1222      let checkPayments = if ((size(i.payments) != 0))
1215 1223          then throw("No pmnts expd")
1216 1224          else true
1217 1225      if ((checkPayments == checkPayments))
1218 1226          then {
1219 1227              let cfg = gpc()
1220 1228              let factoryCfg = gfc()
1221 1229              let lpAssetId = fromBase58String(cfg[idxLPAsId])
1222 1230              let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1223 1231              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
1224 1232              if ((unstakeInv == unstakeInv))
1225 1233                  then {
1226 1234                      let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1227 1235                      let sts = parseIntValue(r._9)
1228 1236                      let state = r._10
1229 1237                      let v = if (if (igs())
1230 1238                          then true
1231 1239                          else (sts == PoolShutdown))
1232 1240                          then throw(("Blocked: " + toString(sts)))
1233 1241                          else true
1234 1242                      if ((v == v))
1235 1243                          then {
1236 1244                              let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1237 1245                              if ((burnA == burnA))
1238 1246                                  then state
1239 1247                                  else throw("Strict value is not equal to itself.")
1240 1248                              }
1241 1249                          else throw("Strict value is not equal to itself.")
1242 1250                      }
1243 1251                  else throw("Strict value is not equal to itself.")
1244 1252              }
1245 1253          else throw("Strict value is not equal to itself.")
1246 1254      }
1247 1255  
1248 1256  
1249 1257  
1250 1258  @Callable(i)
1251 1259  func unstakeAndGetOneTkn (unstakeAmount,outAssetId,minOutAmount) = {
1252 1260      let checkPayments = if ((size(i.payments) != 0))
1253 1261          then throw("No pmnts expd")
1254 1262          else true
1255 1263      if ((checkPayments == checkPayments))
1256 1264          then {
1257 1265              let cfg = gpc()
1258 1266              let factoryCfg = gfc()
1259 1267              let lpAssetId = fromBase58String(cfg[idxLPAsId])
1260 1268              let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1261 1269              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1262 1270              if ((unstakeInv == unstakeInv))
1263 1271                  then {
1264 -                     let $t04523445422 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1265 -                     let state = $t04523445422._1
1266 -                     let totalAmount = $t04523445422._2
1272 +                     let $t04568445872 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1273 +                     let state = $t04568445872._1
1274 +                     let totalAmount = $t04568445872._2
1267 1275                      $Tuple2(state, totalAmount)
1268 1276                      }
1269 1277                  else throw("Strict value is not equal to itself.")
1270 1278              }
1271 1279          else throw("Strict value is not equal to itself.")
1272 1280      }
1273 1281  
1274 1282  
1275 1283  
1276 1284  @Callable(i)
1277 1285  func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1278 1286      let poolConfig = gpc()
1279 1287      let amId = poolConfig[idxAmAsId]
1280 1288      let prId = poolConfig[idxPrAsId]
1281 1289      let lpId = poolConfig[idxLPAsId]
1282 -     let $t04568145778 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
1283 -     let lpAmount = $t04568145778._1
1284 -     let state = $t04568145778._2
1285 -     let feeAmount = $t04568145778._3
1286 -     let bonus = $t04568145778._4
1290 +     let $t04613146228 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
1291 +     let lpAmount = $t04613146228._1
1292 +     let state = $t04613146228._2
1293 +     let feeAmount = $t04613146228._3
1294 +     let bonus = $t04613146228._4
1287 1295      $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
1288 1296      }
1289 1297  
1290 1298  
1291 1299  
1292 1300  @Callable(i)
1293 1301  func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
1294 1302      then throw("denied")
1295 1303      else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
1296 1304  
1297 1305  
1298 1306  
1299 1307  @Callable(i)
1300 1308  func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
1301 1309      then pd
1302 1310      else [StringEntry(k, v)]
1303 1311  
1304 1312  
1305 1313  
1306 1314  @Callable(i)
1307 1315  func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
1308 1316      then pd
1309 1317      else [IntegerEntry(k, v)]
1310 1318  
1311 1319  
1312 1320  
1313 1321  @Callable(i)
1314 1322  func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
1315 1323  
1316 1324  
1317 1325  
1318 1326  @Callable(i)
1319 1327  func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
1320 1328  
1321 1329  
1322 1330  
1323 1331  @Callable(i)
1324 1332  func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
1325 1333      let pr = calcPrices(amAmt, prAmt, lpAmt)
1326 1334      $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
1327 1335      }
1328 1336  
1329 1337  
1330 1338  
1331 1339  @Callable(i)
1332 1340  func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
1333 1341  
1334 1342  
1335 1343  
1336 1344  @Callable(i)
1337 1345  func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
1338 1346  
1339 1347  
1340 1348  
1341 1349  @Callable(i)
1342 1350  func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
1343 1351  
1344 1352  
1345 1353  
1346 1354  @Callable(i)
1347 1355  func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, true, false, 0, ""))
1348 1356  
1349 1357  
1350 1358  
1351 1359  @Callable(i)
1352 1360  func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
1353 1361      let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
1354 1362      $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
1355 1363      }
1356 1364  
1357 1365  
1358 1366  
1359 1367  @Callable(i)
1360 1368  func getFeeREADONLY () = $Tuple2(nil, fee)
1361 1369  
1362 1370  
1363 1371  @Verifier(tx)
1364 1372  func verify () = {
1365 1373      let targetPublicKey =     match m() {
1366 1374          case pk: ByteVector => 
1367 1375              pk
1368 1376          case _: Unit => 
1369 1377              tx.senderPublicKey
1370 1378          case _ => 
1371 1379              throw("Match error")
1372 1380      }
1373 1381      match tx {
1374 1382          case order: Order => 
1375 1383              let matcherPub = mp()
1376 1384              let orderValid = moa(order)
1377 1385              let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1378 1386              let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
1379 1387              if (if (if (orderValid)
1380 1388                  then senderValid
1381 1389                  else false)
1382 1390                  then matcherValid
1383 1391                  else false)
1384 1392                  then true
1385 1393                  else toe(orderValid, senderValid, matcherValid)
1386 1394          case s: SetScriptTransaction => 
1387 1395              let newHash = blake2b256(value(s.script))
1388 1396              let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
1389 1397              let currentHash = scriptHash(this)
1390 1398              if (if ((allowedHash == newHash))
1391 1399                  then (currentHash != newHash)
1392 1400                  else false)
1393 1401                  then true
1394 1402                  else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1395 1403          case _ => 
1396 1404              sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1397 1405      }
1398 1406      }
1399 1407

Old	New		Differences
470	470		then big0
471	471		else {
472	472		let ann = (a * n)
	473	+	let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
	474	+	let ann_s_aPrecision = ((ann * s) / aPrecision)
	475	+	let ann_aPrecision = (ann - aPrecision)
	476	+	let n1 = (n + big1)
473	477		func calc (acc,cur) = {
474		-	let $~~t02109621116~~ = acc
475		-	let d = $~~t02109621116~~._1
476		-	let found = $~~t02109621116~~._2
	478	+	let $t02124821268 = acc
	479	+	let d = $t02124821268._1
	480	+	let found = $t02124821268._2
477	481		if ((found != unit))
478	482		then acc
479	483		else {
480		-	let dp = (((d * d) * d) / ~~(((~~xp0 * xp1) * n) * n))
481		-	let dNext = (((((ann * s~~) /~~ aPrecision) + (dp * n)) * d) / ((((ann - aPrecision) * d) / aPrecision) + (~~(n + big1)~~ * dp)))
	484	+	let dp = (((d * d) * d) / xp0_xp1_n_n)
	485	+	let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
482	486		let dDiff = absBigInt((dNext - value(d)))
483	487		if ((big1 >= dDiff))
484	488		then $Tuple2(dNext, cur)

486	490		}
487	491		}
488	492
489		-	let arr = [0, 1, 2, 3, 4, 5, 6]
490		-	let $~~t02153221578~~ = {
	493	+	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
	494	+	let $t02168921736 = {
491	495		let $l = arr
492	496		let $s = size($l)
493	497		let $acc0 = $Tuple2(s, unit)

497	501
498	502		func $f0_2 ($a,$i) = if (($i >= $s))
499	503		then $a
500		-	else throw("List size exceeds 7")
	504	+	else throw("List size exceeds 15")
501	505
502		-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
	506	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
503	507		}
504		-	let d = $~~t02153221578~~._1
505		-	let found = $~~t02153221578~~._2
	508	+	let d = $t02168921736._1
	509	+	let found = $t02168921736._2
506	510		if ((found != unit))
507	511		then d
508	512		else throw(("D calculation error, D = " + toString(d)))

522	526		let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
523	527		let b = ((s + ((D * aPrecision) / ann)) - D)
524	528		func calc (acc,cur) = {
525		-	let $~~t02207822098~~ = acc
526		-	let y = $~~t02207822098~~._1
527		-	let found = $~~t02207822098~~._2
	529	+	let $t02223622256 = acc
	530	+	let y = $t02223622256._1
	531	+	let found = $t02223622256._2
528	532		if ((found != unit))
529	533		then acc
530	534		else {

537	541		}
538	542
539	543		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
540		-	let $~~t02240522452~~ = {
	544	+	let $t02256322610 = {
541	545		let $l = arr
542	546		let $s = size($l)
543	547		let $acc0 = $Tuple2(D, unit)

551	555
552	556		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
553	557		}
554		-	let y = $~~t02240522452~~._1
555		-	let found = $~~t02240522452~~._2
	558	+	let y = $t02256322610._1
	559	+	let found = $t02256322610._2
556	560		if ((found != unit))
557	561		then y
558	562		else throw(("Y calculation error, Y = " + toString(y)))

568	572		let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
569	573		let amBalance = getAccBalance(amId)
570	574		let prBalance = getAccBalance(prId)
571		-	let $t02299423039 = takeFee(pmtAmtRaw)
572		-	let pmtAmt = $t02299423039._1
573		-	let feeAmount = $t02299423039._2
574		-	let $t02304323504 = if ((txId == ""))
	575	+	let $t02315223613 = if ((txId == ""))
575	576		then $Tuple2(amBalance, prBalance)
576	577		else if ((pmtAssetId == amId))
577	578		then if ((pmtAmtRaw > amBalance))

582	583		then throw("invalid payment amount")
583	584		else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
584	585		else throw("wrong pmtAssetId")
585		-	let amBalanceOld = $~~t02304323504~~._1
586		-	let prBalanceOld = $~~t02304323504~~._2
587		-	let $~~t02351023674~~ = if ((pmtAssetId == amId))
588		-	then $Tuple2(~~pmtAmt~~, 0)
	586	+	let amBalanceOld = $t02315223613._1
	587	+	let prBalanceOld = $t02315223613._2
	588	+	let $t02361923795 = if ((pmtAssetId == amId))
	589	+	then $Tuple2(pmtAmtRaw, 0)
589	590		else if ((pmtAssetId == prId))
590		-	then $Tuple2(0, ~~pmtAmt~~)
	591	+	then $Tuple2(0, pmtAmtRaw)
591	592		else throw("invalid payment")
592		-	let amAmount = $t02351023674._1
593		-	let prAmount = $t02351023674._2
	593	+	let amAmountRaw = $t02361923795._1
	594	+	let prAmountRaw = $t02361923795._2
	595	+	let amAmount = takeFee(amAmountRaw)._1
	596	+	let prAmount = takeFee(prAmountRaw)._1
	597	+	let feeAmount = takeFee(pmtAmtRaw)._2
594	598		let amBalanceNew = (amBalanceOld + amAmount)
595	599		let prBalanceNew = (prBalanceOld + prAmount)
596	600		let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])

605	609		then fraction(lpAssetEmission, (D1 - D0), D0)
606	610		else throw("initial deposit requires all coins")
607	611		let curPrice = f1(cpbi(t1(prBalance, priceDcm), t1(amBalance, amtDcm)), scale8)
608		-	let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(~~amAmount~~, ~~prAmount~~, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
	612	+	let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
609	613		let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
610		-	let amountAssetPart = fraction(~~pmtAmt~~, scale8, (poolProportion + scale8))
611		-	let priceAssetPart = (~~pmtAmt~~ - amountAssetPart)
	614	+	let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
	615	+	let priceAssetPart = (pmtAmtRaw - amountAssetPart)
612	616		let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
613	617		let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
614	618		$Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)

642	646		else {
643	647		let amBalance = getAccBalance(amId)
644	648		let prBalance = getAccBalance(prId)
645		-	let $~~t02598726095~~ = {
	649	+	let $t02624626354 = {
646	650		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
647	651		if ($isInstanceOf(@, "(Int, Int)"))
648	652		then @
649	653		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
650	654		}
651		-	let totalGet = $~~t02598726095~~._1
652		-	let feeAmount = $~~t02598726095~~._2
	655	+	let totalGet = $t02624626354._1
	656	+	let feeAmount = $t02624626354._2
653	657		let totalAmount = if (if ((minOutAmount > 0))
654	658		then (minOutAmount > totalGet)
655	659		else false)
656	660		then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
657	661		else totalGet
658		-	let $~~t02628226369~~ = if ((outAssetId == amId))
	662	+	let $t02654126724 = if ((outAssetId == amId))
659	663		then $Tuple2(totalAmount, 0)
660		-	else $Tuple2(0, totalAmount)
661		-	let outAm = $t02628226369._1
662		-	let outPr = $t02628226369._2
	664	+	else if ((outAssetId == prId))
	665	+	then $Tuple2(0, totalAmount)
	666	+	else throw("invalid out asset id")
	667	+	let outAm = $t02654126724._1
	668	+	let outPr = $t02654126724._2
663	669		let curPrX18 = cpbi(t1(prBalance, prDecimals), t1(amBalance, amDecimals))
664	670		let curPr = f1(curPrX18, scale8)
665	671		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

853	859		let pmt = value(i.payments[0])
854	860		let pmtAssetId = toBase58String(value(pmt.assetId))
855	861		let paymentAmountRaw = pmt.amount
856		-	let $~~t03175531807~~ = takeFee(paymentAmountRaw)
857		-	let pmtAmt = $~~t03175531807~~._1
858		-	let feeAmount = $~~t03175531807~~._2
	862	+	let $t03211032162 = takeFee(paymentAmountRaw)
	863	+	let pmtAmt = $t03211032162._1
	864	+	let feeAmount = $t03211032162._2
859	865		if ((10000000 > paymentAmountRaw))
860	866		then throw("Wrong pmt amt")
861	867		else {
862	868		let amBalance = getAccBalance(amId)
863	869		let prBalance = getAccBalance(prId)
864		-	let $~~t03196732583~~ = if ((pmtAssetId == amId))
	870	+	let $t03232232938 = if ((pmtAssetId == amId))
865	871		then if (if ((paymentAmountRaw > amBalance))
866	872		then true
867	873		else (amAssetPart > pmtAmt))

874	880		then throw("invalid payment amount")
875	881		else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
876	882		else throw("wrong pmtAssetId")
877		-	let amBalanceNow = $~~t03196732583~~._1
878		-	let prBalanceNow = $~~t03196732583~~._2
879		-	let virtSwapInAm = $~~t03196732583~~._3
880		-	let virtSwapOutPr = $~~t03196732583~~._4
881		-	let virtSwapInPr = $~~t03196732583~~._5
882		-	let virtSwapOutAm = $~~t03196732583~~._6
	883	+	let amBalanceNow = $t03232232938._1
	884	+	let prBalanceNow = $t03232232938._2
	885	+	let virtSwapInAm = $t03232232938._3
	886	+	let virtSwapOutPr = $t03232232938._4
	887	+	let virtSwapInPr = $t03232232938._5
	888	+	let virtSwapOutAm = $t03232232938._6
883	889		let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
884	890		let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
885	891		let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)

961	967		if ((10000000 > pmtAmt))
962	968		then throw("Wrong pmt amt")
963	969		else {
964		-	let $~~t03548935614~~ = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
965		-	let estimLP = $~~t03548935614~~._1
966		-	let state = $~~t03548935614~~._2
967		-	let feeAmount = $~~t03548935614~~._3
	970	+	let $t03584435969 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
	971	+	let estimLP = $t03584435969._1
	972	+	let state = $t03584435969._2
	973	+	let feeAmount = $t03584435969._3
968	974		let emitLpAmt = if (if ((minOutAmount > 0))
969	975		then (minOutAmount > estimLP)
970	976		else false)

1067	1073		let estimPrAmt = r._2
1068	1074		let amBalance = getAccBalance(amId)
1069	1075		let prBalance = getAccBalance(prId)
1070		-	let $~~t03924539705~~ = if ((outAssetId == amId))
	1076	+	let $t03960040060 = if ((outAssetId == amId))
1071	1077		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1072	1078		else if ((outAssetId == prId))
1073	1079		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1074	1080		else throw("wrong outAssetId")
1075		-	let amBalanceNow = $~~t03924539705~~._1
1076		-	let prBalanceNow = $~~t03924539705~~._2
1077		-	let virtSwapInAm = $~~t03924539705~~._3
1078		-	let virtSwapOutPr = $~~t03924539705~~._4
1079		-	let virtSwapInPr = $~~t03924539705~~._5
1080		-	let virtSwapOutAm = $~~t03924539705~~._6
1081		-	let totalGetRaw = $~~t03924539705~~._7
	1081	+	let amBalanceNow = $t03960040060._1
	1082	+	let prBalanceNow = $t03960040060._2
	1083	+	let virtSwapInAm = $t03960040060._3
	1084	+	let virtSwapOutPr = $t03960040060._4
	1085	+	let virtSwapInPr = $t03960040060._5
	1086	+	let virtSwapOutAm = $t03960040060._6
	1087	+	let totalGetRaw = $t03960040060._7
1082	1088		if (if ((0 > virtSwapInAm))
1083	1089		then true
1084	1090		else (0 > virtSwapInPr))

1093	1099		let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1094	1100		if ((finalRes == finalRes))
1095	1101		then {
1096		-	let $~~t04045240556~~ = if ((outAssetId == amId))
	1102	+	let $t04080740911 = if ((outAssetId == amId))
1097	1103		then $Tuple2(toInt(finalRes._2), 0)
1098	1104		else $Tuple2(0, toInt(finalRes._2))
1099		-	let outAm = $~~t04045240556~~._1
1100		-	let outPr = $~~t04045240556~~._2
	1105	+	let outAm = $t04080740911._1
	1106	+	let outPr = $t04080740911._2
1101	1107		let totalAmount = (outAm + outPr)
1102	1108		let feeAmount = (totalGetRaw - totalGet)
1103	1109		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

1129	1135
1130	1136		@Callable(i)
1131	1137		func getOneTknV2 (outAssetId,minOutAmount) = {
1132		-	let $~~t04158141736~~ = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1133		-	let state = $~~t04158141736~~._1
1134		-	let totalAmount = $~~t04158141736~~._2
	1138	+	let $t04193642091 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
	1139	+	let state = $t04193642091._1
	1140	+	let totalAmount = $t04193642091._2
1135	1141		$Tuple2(state, totalAmount)
1136	1142		}
1137	1143

1149	1155		let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
1150	1156		let index = if ((outAssetId == amId))
1151	1157		then 0
1152		-	else 1
	1158	+	else if ((outAssetId == prId))
	1159	+	then 1
	1160	+	else throw("invalid out asset id")
1153	1161		let newY = getYD(xp, index, D1)
1154	1162		let dy = (xp[index] - newY)
1155	1163		let totalGetRaw = toInt((dy - big1))
1156		-	let $~~t04242042469~~ = takeFee(totalGetRaw)
1157		-	let totalGet = $~~t04242042469~~._1
1158		-	let feeAmount = $~~t04242042469~~._2
	1164	+	let $t04287042919 = takeFee(totalGetRaw)
	1165	+	let totalGet = $t04287042919._1
	1166	+	let feeAmount = $t04287042919._2
1159	1167		$Tuple2(nil, $Tuple2(totalGet, feeAmount))
1160	1168		}
1161	1169

1169	1177		let lpId = poolConfig[idxLPAsId]
1170	1178		let amBalance = getAccBalance(amId)
1171	1179		let prBalance = getAccBalance(prId)
1172		-	let $~~t04281442929~~ = {
	1180	+	let $t04326443379 = {
1173	1181		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1174	1182		if ($isInstanceOf(@, "(Int, Int)"))
1175	1183		then @
1176	1184		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1177	1185		}
1178		-	let totalGet = $~~t04281442929~~._1
1179		-	let feeAmount = $~~t04281442929~~._2
	1186	+	let totalGet = $t04326443379._1
	1187	+	let feeAmount = $t04326443379._2
1180	1188		let r = ego("", lpId, lpAssetAmount, this)
1181	1189		let outAmAmt = r._1
1182	1190		let outPrAmt = r._2

1261	1269		let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1262	1270		if ((unstakeInv == unstakeInv))
1263	1271		then {
1264		-	let $~~t04523445422~~ = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1265		-	let state = $~~t04523445422~~._1
1266		-	let totalAmount = $~~t04523445422~~._2
	1272	+	let $t04568445872 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
	1273	+	let state = $t04568445872._1
	1274	+	let totalAmount = $t04568445872._2
1267	1275		$Tuple2(state, totalAmount)
1268	1276		}
1269	1277		else throw("Strict value is not equal to itself.")

1279	1287		let amId = poolConfig[idxAmAsId]
1280	1288		let prId = poolConfig[idxPrAsId]
1281	1289		let lpId = poolConfig[idxLPAsId]
1282		-	let $~~t04568145778~~ = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
1283		-	let lpAmount = $~~t04568145778~~._1
1284		-	let state = $~~t04568145778~~._2
1285		-	let feeAmount = $~~t04568145778~~._3
1286		-	let bonus = $~~t04568145778~~._4
	1290	+	let $t04613146228 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "")
	1291	+	let lpAmount = $t04613146228._1
	1292	+	let state = $t04613146228._2
	1293	+	let feeAmount = $t04613146228._3
	1294	+	let bonus = $t04613146228._4
1287	1295		$Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
1288	1296		}
1289	1297

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let scale8 = 100000000
5	5
6	6		let scale8BigInt = toBigInt(100000000)
7	7
8	8		let scale18 = toBigInt(1000000000000000000)
9	9
10	10		let zeroBigInt = toBigInt(0)
11	11
12	12		let big0 = toBigInt(0)
13	13
14	14		let big1 = toBigInt(1)
15	15
16	16		let big2 = toBigInt(2)
17	17
18	18		let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19	19
20	20		let Amult = "100"
21	21
22	22		let Dconv = "1"
23	23
24	24		let SEP = "__"
25	25
26	26		let EMPTY = ""
27	27
28	28		let PoolActive = 1
29	29
30	30		let PoolPutDis = 2
31	31
32	32		let PoolMatcherDis = 3
33	33
34	34		let PoolShutdown = 4
35	35
36	36		let idxPoolAddress = 1
37	37
38	38		let idxPoolSt = 2
39	39
40	40		let idxLPAsId = 3
41	41
42	42		let idxAmAsId = 4
43	43
44	44		let idxPrAsId = 5
45	45
46	46		let idxAmtAsDcm = 6
47	47
48	48		let idxPriceAsDcm = 7
49	49
50	50		let idxIAmtAsId = 8
51	51
52	52		let idxIPriceAsId = 9
53	53
54	54		let idxFactStakCntr = 1
55	55
56	56		let idxFactSlippCntr = 7
57	57
58	58		let idxFactGwxRewCntr = 10
59	59
60	60		let feeDefault = fraction(5, scale8, 10000)
61	61
62	62		func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63	63
64	64
65	65		func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66	66
67	67
68	68		func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69	69
70	70
71	71		func abs (val) = if ((zeroBigInt > val))
72	72		then -(val)
73	73		else val
74	74
75	75
76	76		func absBigInt (val) = if ((zeroBigInt > val))
77	77		then -(val)
78	78		else val
79	79
80	80
81	81		func fc () = "%s__factoryContract"
82	82
83	83
84	84		func mpk () = "%s__managerPublicKey"
85	85
86	86
87	87		func pmpk () = "%s__pendingManagerPublicKey"
88	88
89	89
90	90		func pl () = "%s%s__price__last"
91	91
92	92
93	93		func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
94	94
95	95
96	96		func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
97	97
98	98
99	99		func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
100	100
101	101
102	102		func aa () = "%s__amountAsset"
103	103
104	104
105	105		func pa () = "%s__priceAsset"
106	106
107	107
108	108		func amp () = "%s__amp"
109	109
110	110
111	111		func ada () = "%s__addonAddr"
112	112
113	113
114	114		let keyFee = "%s__fee"
115	115
116	116		let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
117	117
118	118		func fcfg () = "%s__factoryConfig"
119	119
120	120
121	121		func mtpk () = "%s%s__matcher__publicKey"
122	122
123	123
124	124		func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125	125
126	126
127	127		func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128	128
129	129
130	130		func aps () = "%s__shutdown"
131	131
132	132
133	133		func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134	134
135	135
136	136		func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137	137
138	138
139	139		func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140	140
141	141
142	142		func str (val) = match val {
143	143		case valStr: String =>
144	144		valStr
145	145		case _ =>
146	146		throw("fail cast to String")
147	147		}
148	148
149	149
150	150		func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151	151
152	152
153	153		func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154	154
155	155
156	156		let fca = addressFromStringValue(strf(this, fc()))
157	157
158	158		let A = strf(this, amp())
159	159
160	160		func igs () = valueOrElse(getBoolean(fca, aps()), false)
161	161
162	162
163	163		func mp () = fromBase58String(strf(fca, mtpk()))
164	164
165	165
166	166		let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
167	167
168	168		func gpc () = {
169	169		let amtAs = strf(this, aa())
170	170		let priceAs = strf(this, pa())
171	171		let iPriceAs = intf(fca, mba(priceAs))
172	172		let iAmtAs = intf(fca, mba(amtAs))
173	173		split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
174	174		}
175	175
176	176
177	177		func gfc () = split(strf(fca, fcfg()), SEP)
178	178
179	179
180	180		let factoryConfig = gfc()
181	181
182	182		let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
183	183
184	184		let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
185	185
186	186		let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
187	187
188	188		func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
189	189
190	190
191	191		func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
192	192
193	193
194	194		func getAccBalance (assetId) = if ((assetId == "WAVES"))
195	195		then wavesBalance(this).available
196	196		else assetBalance(this, fromBase58String(assetId))
197	197
198	198
199	199		func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
200	200
201	201
202	202		func vad (A1,A2,slippage) = {
203	203		let diff = fraction((A1 - A2), scale8BigInt, A2)
204	204		let pass = ((slippage - abs(diff)) > zeroBigInt)
205	205		if (!(pass))
206	206		then throw(("Big slpg: " + toString(diff)))
207	207		else $Tuple2(pass, min([A1, A2]))
208	208		}
209	209
210	210
211	211		func vd (D1,D0,slpg) = {
212	212		let diff = fraction(D0, scale8BigInt, D1)
213	213		let fail = (slpg > diff)
214	214		if (if (fail)
215	215		then true
216	216		else (D0 > D1))
217	217		then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
218	218		else fail
219	219		}
220	220
221	221
222	222		func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
223	223		let amtAsAmtX18 = t1(amAmt, amAssetDcm)
224	224		let prAsAmtX18 = t1(prAmt, prAssetDcm)
225	225		cpbi(prAsAmtX18, amtAsAmtX18)
226	226		}
227	227
228	228
229	229		func calcPrices (amAmt,prAmt,lpAmt) = {
230	230		let cfg = gpc()
231	231		let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
232	232		let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
233	233		let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
234	234		let amAmtX18 = t1(amAmt, amtAsDcm)
235	235		let prAmtX18 = t1(prAmt, prAsDcm)
236	236		let lpAmtX18 = t1(lpAmt, scale8)
237	237		let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
238	238		let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
239	239		[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
240	240		}
241	241
242	242
243	243		func calculatePrices (amAmt,prAmt,lpAmt) = {
244	244		let p = calcPrices(amAmt, prAmt, lpAmt)
245	245		[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
246	246		}
247	247
248	248
249	249		func takeFee (amount) = {
250	250		let feeAmount = fraction(amount, fee, scale8)
251	251		$Tuple2((amount - feeAmount), feeAmount)
252	252		}
253	253
254	254
255	255		func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
256	256		let cfg = gpc()
257	257		let lpId = cfg[idxLPAsId]
258	258		let amId = cfg[idxAmAsId]
259	259		let prId = cfg[idxPrAsId]
260	260		let amDcm = parseIntValue(cfg[idxAmtAsDcm])
261	261		let prDcm = parseIntValue(cfg[idxPriceAsDcm])
262	262		let sts = cfg[idxPoolSt]
263	263		let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
264	264		if ((lpId != pmtAssetId))
265	265		then throw("Wrong pmt asset")
266	266		else {
267	267		let amBalance = getAccBalance(amId)
268	268		let amBalanceX18 = t1(amBalance, amDcm)
269	269		let prBalance = getAccBalance(prId)
270	270		let prBalanceX18 = t1(prBalance, prDcm)
271	271		let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
272	272		let curPrice = f1(curPriceX18, scale8)
273	273		let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
274	274		let lpEmissX18 = t1(lpEmiss, scale8)
275	275		let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
276	276		let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
277	277		let outAmAmt = f1(outAmAmtX18, amDcm)
278	278		let outPrAmt = f1(outPrAmtX18, prDcm)
279	279		let state = if ((txId58 == ""))
280	280		then nil
281	281		else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
282	282		then unit
283	283		else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
284	284		then unit
285	285		else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
286	286		$Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
287	287		}
288	288		}
289	289
290	290
291	291		func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
292	292		let cfg = gpc()
293	293		let lpId = fromBase58String(cfg[idxLPAsId])
294	294		let amIdStr = cfg[idxAmAsId]
295	295		let prIdStr = cfg[idxPrAsId]
296	296		let inAmIdStr = cfg[idxIAmtAsId]
297	297		let inPrIdStr = cfg[idxIPriceAsId]
298	298		let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
299	299		let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
300	300		let sts = cfg[idxPoolSt]
301	301		let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
302	302		let amBalance = if (isEval)
303	303		then getAccBalance(amIdStr)
304	304		else if (if (isOneAsset)
305	305		then (pmtId == amIdStr)
306	306		else false)
307	307		then (getAccBalance(amIdStr) - pmtAmt)
308	308		else if (isOneAsset)
309	309		then getAccBalance(amIdStr)
310	310		else (getAccBalance(amIdStr) - inAmAmt)
311	311		let prBalance = if (isEval)
312	312		then getAccBalance(prIdStr)
313	313		else if (if (isOneAsset)
314	314		then (pmtId == prIdStr)
315	315		else false)
316	316		then (getAccBalance(prIdStr) - pmtAmt)
317	317		else if (isOneAsset)
318	318		then getAccBalance(prIdStr)
319	319		else (getAccBalance(prIdStr) - inPrAmt)
320	320		let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
321	321		let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
322	322		let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
323	323		let amBalanceX18 = t1(amBalance, amtDcm)
324	324		let prBalanceX18 = t1(prBalance, priceDcm)
325	325		let r = if ((lpEm == 0))
326	326		then {
327	327		let curPriceX18 = zeroBigInt
328	328		let slippageX18 = zeroBigInt
329	329		let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
330	330		$Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
331	331		}
332	332		else {
333	333		let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
334	334		let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
335	335		let slippageX18 = t1(slippage, scale8)
336	336		if (if (if (validateSlippage)
337	337		then (curPriceX18 != zeroBigInt)
338	338		else false)
339	339		then (slippageRealX18 > slippageX18)
340	340		else false)
341	341		then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
342	342		else {
343	343		let lpEmissionX18 = t1(lpEm, scale8)
344	344		let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
345	345		let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
346	346		let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
347	347		then $Tuple2(amViaPrX18, inPrAssetAmtX18)
348	348		else $Tuple2(inAmAssetAmtX18, prViaAmX18)
349	349		let expAmtAssetAmtX18 = expectedAmts._1
350	350		let expPriceAssetAmtX18 = expectedAmts._2
351	351		let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
352	352		$Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
353	353		}
354	354		}
355	355		let calcLpAmt = r._1
356	356		let calcAmAssetPmt = r._2
357	357		let calcPrAssetPmt = r._3
358	358		let curPrice = f1(r._4, scale8)
359	359		let slippageCalc = f1(r._5, scale8)
360	360		if ((0 >= calcLpAmt))
361	361		then throw("LP <= 0")
362	362		else {
363	363		let emitLpAmt = if (!(emitLp))
364	364		then 0
365	365		else calcLpAmt
366	366		let amDiff = (inAmAmt - calcAmAssetPmt)
367	367		let prDiff = (inPrAmt - calcPrAssetPmt)
368	368		let $t01635116696 = if (if (isOneAsset)
369	369		then (pmtId == amIdStr)
370	370		else false)
371	371		then $Tuple2(pmtAmt, 0)
372	372		else if (if (isOneAsset)
373	373		then (pmtId == prIdStr)
374	374		else false)
375	375		then $Tuple2(0, pmtAmt)
376	376		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
377	377		let writeAmAmt = $t01635116696._1
378	378		let writePrAmt = $t01635116696._2
379	379		let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
380	380		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
381	381		}
382	382		}
383	383
384	384
385	385		func moa (order) = {
386	386		let cfg = gpc()
387	387		let amtAsId = cfg[idxAmAsId]
388	388		let prAsId = cfg[idxPrAsId]
389	389		let sts = parseIntValue(cfg[idxPoolSt])
390	390		let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
391	391		let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
392	392		let accAmtAsBalance = getAccBalance(amtAsId)
393	393		let accPrAsBalance = getAccBalance(prAsId)
394	394		let curPriceX18 = if ((order.orderType == Buy))
395	395		then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
396	396		else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
397	397		let curPrice = f1(curPriceX18, scale8)
398	398		if (if (if (igs())
399	399		then true
400	400		else (sts == PoolMatcherDis))
401	401		then true
402	402		else (sts == PoolShutdown))
403	403		then throw("Admin blocked")
404	404		else {
405	405		let orAmtAsset = order.assetPair.amountAsset
406	406		let orAmtAsStr = if ((orAmtAsset == unit))
407	407		then "WAVES"
408	408		else toBase58String(value(orAmtAsset))
409	409		let orPrAsset = order.assetPair.priceAsset
410	410		let orPrAsStr = if ((orPrAsset == unit))
411	411		then "WAVES"
412	412		else toBase58String(value(orPrAsset))
413	413		if (if ((orAmtAsStr != amtAsId))
414	414		then true
415	415		else (orPrAsStr != prAsId))
416	416		then throw("Wr assets")
417	417		else {
418	418		let orderPrice = order.price
419	419		let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
420	420		let castOrderPrice = ts(orderPrice, scale8, priceDcm)
421	421		let isOrderPriceValid = if ((order.orderType == Buy))
422	422		then (curPrice >= castOrderPrice)
423	423		else (castOrderPrice >= curPrice)
424	424		true
425	425		}
426	426		}
427	427		}
428	428
429	429
430	430		func cg (i) = if ((size(i.payments) != 1))
431	431		then throw("1 pmnt exp")
432	432		else {
433	433		let pmt = value(i.payments[0])
434	434		let pmtAssetId = value(pmt.assetId)
435	435		let pmtAmt = pmt.amount
436	436		let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
437	437		let outAmAmt = r._1
438	438		let outPrAmt = r._2
439	439		let sts = parseIntValue(r._9)
440	440		let state = r._10
441	441		if (if (igs())
442	442		then true
443	443		else (sts == PoolShutdown))
444	444		then throw(("Admin blocked: " + toString(sts)))
445	445		else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
446	446		}
447	447
448	448
449	449		func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
450	450		let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
451	451		let sts = parseIntValue(r._8)
452	452		if (if (if (igs())
453	453		then true
454	454		else (sts == PoolPutDis))
455	455		then true
456	456		else (sts == PoolShutdown))
457	457		then throw(("Blocked:" + toString(sts)))
458	458		else r
459	459		}
460	460
461	461
462	462		func getD (xp) = {
463	463		let n = big2
464	464		let xp0 = xp[0]
465	465		let xp1 = xp[1]
466	466		let aPrecision = parseBigIntValue(Amult)
467	467		let a = (parseBigIntValue(A) * aPrecision)
468	468		let s = (xp0 + xp1)
469	469		if ((s == big0))
470	470		then big0
471	471		else {
472	472		let ann = (a * n)
	473	+	let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
	474	+	let ann_s_aPrecision = ((ann * s) / aPrecision)
	475	+	let ann_aPrecision = (ann - aPrecision)
	476	+	let n1 = (n + big1)
473	477		func calc (acc,cur) = {
474		-	let $~~t02109621116~~ = acc
475		-	let d = $~~t02109621116~~._1
476		-	let found = $~~t02109621116~~._2
	478	+	let $t02124821268 = acc
	479	+	let d = $t02124821268._1
	480	+	let found = $t02124821268._2
477	481		if ((found != unit))
478	482		then acc
479	483		else {
480		-	let dp = (((d * d) * d) / ~~(((~~xp0 * xp1) * n) * n))
481		-	let dNext = (((((ann * s~~) /~~ aPrecision) + (dp * n)) * d) / ((((ann - aPrecision) * d) / aPrecision) + (~~(n + big1)~~ * dp)))
	484	+	let dp = (((d * d) * d) / xp0_xp1_n_n)
	485	+	let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
482	486		let dDiff = absBigInt((dNext - value(d)))
483	487		if ((big1 >= dDiff))
484	488		then $Tuple2(dNext, cur)
485	489		else $Tuple2(dNext, unit)
486	490		}
487	491		}
488	492
489		-	let arr = [0, 1, 2, 3, 4, 5, 6]
490		-	let $~~t02153221578~~ = {
	493	+	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]

github/deemru/w8io/03bedc9 
152.62 ms ◑