w8 · tx · 25f···bE8

tx · 25f8t1snD62qzckptRSWsL8NEyom8SbdE3z6J7P2GbE8

3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA:  -0.03400000 Waves

2022.10.06 11:45 [2260237] smart account 3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "25f8t1snD62qzckptRSWsL8NEyom8SbdE3z6J7P2GbE8",
    "fee": 3400000,
    "feeAssetId": null,
    "timestamp": 1665045945979,
    "version": 1,
    "sender": "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA",
    "senderPublicKey": "35yd3qw1gxKDxKwGAykHN9fANbXNWwseaUwbWDj24o3x",
    "proofs": [
        "5JEHN4MdhHidDSGsuG1gwCzKRTf9sC8n1m9PDCHcd2QgxLJk8YAPiyiHx7qhvW15WTsgjL8m9t1imT8mJpjuxZrH"
    ],
    "script": "base64:BgKkIggCEgMKAQgSAwoBCBIAEgQKAgEEEgcKBQEBAQEEEgQKAgEEEgQKAgEIEgQKAgEIEgMKAQESABIHCgUBAQEIARIECgIIARIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEIARIECgIBCBIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIEgAiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgpzbGlwcGFnZTREIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhBpZHhGYWN0U2xpcHBDbnRyIhFpZHhGYWN0R3d4UmV3Q250ciIKZmVlRGVmYXVsdCICdDEiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiAmYxIgN2YWwiD3Jlc3VsdFNjYWxlTXVsdCICdHMiA2FtdCIIcmVzU2NhbGUiCGN1clNjYWxlIgNhYnMiCWFic0JpZ0ludCICZmMiA21wayIEcG1wayICcGwiAnBoIgFoIgF0IgNwYXUiAnVhIgR0eElkIgNnYXUiAmFhIgJwYSIDYW1wIgNhZGEiBmtleUZlZSIDZmVlIgRmY2ZnIgRtdHBrIgJwYyIGaUFtdEFzIgVpUHJBcyIDbWJhIgViQVN0ciIDYXBzIhxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIgN0b2UiA29yViIGc2VuZHJWIgZtYXRjaFYiA3N0ciIHJG1hdGNoMCIGdmFsU3RyIgRzdHJmIgRhZGRyIgNrZXkiBGludGYiA2ZjYSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIJZmVlQW1vdW50IgNlZ28iBnR4SWQ1OCIKcG10QXNzZXRJZCIIcG10THBBbXQiC3VzZXJBZGRyZXNzIgRscElkIgRhbUlkIgRwcklkIgVhbURjbSIFcHJEY20iA3N0cyIHbHBFbWlzcyIJYW1CYWxhbmNlIgxhbUJhbGFuY2VYMTgiCXByQmFsYW5jZSIMcHJCYWxhbmNlWDE4IgtjdXJQcmljZVgxOCIIY3VyUHJpY2UiC3BtdExwQW10WDE4IgpscEVtaXNzWDE4IgtvdXRBbUFtdFgxOCILb3V0UHJBbXRYMTgiCG91dEFtQW10IghvdXRQckFtdCIFc3RhdGUiA2VwbyIHaW5BbUFtdCIGaW5BbUlkIgdpblByQW10IgZpblBySWQiBmlzRXZhbCIGZW1pdExwIgppc09uZUFzc2V0IhB2YWxpZGF0ZVNsaXBwYWdlIgZwbXRBbXQiBXBtdElkIgdhbUlkU3RyIgdwcklkU3RyIglpbkFtSWRTdHIiCWluUHJJZFN0ciIGYW10RGNtIghwcmljZURjbSIEbHBFbSIPaW5BbUFzc2V0QW10WDE4Ig9pblByQXNzZXRBbXRYMTgiDHVzZXJQcmljZVgxOCIBciILc2xpcHBhZ2VYMTgiD3NsaXBwYWdlUmVhbFgxOCINbHBFbWlzc2lvblgxOCIKcHJWaWFBbVgxOCIKYW1WaWFQclgxOCIMZXhwZWN0ZWRBbXRzIhFleHBBbXRBc3NldEFtdFgxOCITZXhwUHJpY2VBc3NldEFtdFgxOCIJY2FsY0xwQW10Ig5jYWxjQW1Bc3NldFBtdCIOY2FsY1ByQXNzZXRQbXQiDHNsaXBwYWdlQ2FsYyIJZW1pdExwQW10IgZhbURpZmYiBnByRGlmZiINJHQwMTYzMjcxNjY3MiIKd3JpdGVBbUFtdCIKd3JpdGVQckFtdCILY29tbW9uU3RhdGUiA21vYSIFb3JkZXIiB2FtdEFzSWQiBnByQXNJZCIPYWNjQW10QXNCYWxhbmNlIg5hY2NQckFzQmFsYW5jZSIKb3JBbXRBc3NldCIKb3JBbXRBc1N0ciIJb3JQckFzc2V0IglvclByQXNTdHIiCm9yZGVyUHJpY2UiDmNhc3RPcmRlclByaWNlIhFpc09yZGVyUHJpY2VWYWxpZCICY2ciAWkiA3BtdCICY3AiBmNhbGxlciIHYW1Bc1BtdCIHcHJBc1BtdCITZXN0aW1hdGVQdXRPbmVUa25WMiIJcG10QW10UmF3Igpwb29sQ29uZmlnIg0kdDAyMTAwMzIxMDQ4Ig0kdDAyMTA1MjIxNTEzIgxhbUJhbGFuY2VOb3ciDHByQmFsYW5jZU5vdyINJHQwMjE1MTcyMTY1MSIQYW1CYWxhbmNlRm9yQ2FsYyIQcHJCYWxhbmNlRm9yQ2FsYyIKeFByZWNpc2lvbiIGcmVzdWx0IgFAIg0kdDAyMjEyMDIyMjE2IgthbUFzc2V0UGFydCILcHJBc3NldFBhcnQiBmVzdFB1dCIHZXN0aW1MUCIJbHBBc3NldElkIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDIzNTcxMjM2NzkiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjM4NjYyMzk1MyIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgRnZXREIgJ4cCIBbiIDeHAwIgN4cDEiCmFQcmVjaXNpb24iAWEiAXMiA2FubiIEY2FsYyIDYWNjIgNjdXIiDSR0MDI1MTE5MjUxMzkiAWQiBWZvdW5kIgJkcCIFZE5leHQiBWREaWZmIgNhcnIiDSR0MDI1NTYzMjU2MDkiAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjYxMTcyNjEzNyIBeSIFeU5leHQiBXlEaWZmIg0kdDAyNjQ1MjI2NDk5IgFtIgJwbSICcGQiAm1tIgJwayIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiAmNtIgNocG0iA2NwbSIEc2xpcCIJYXV0b1N0YWtlIgdmYWN0Q2ZnIgtzdGFraW5nQ250ciIIc2xpcENudHIiAWUiAmVsIgZsZWdhY3kiAnNhIgJzcCIIbHBUcm5zZnIiAnNzIgVvdXRMcCIHZ3d4Q250ciIHcG9vbENmZyIFYWRkb24iEHBheW1lbnRBbW91bnRSYXciDSR0MDMxMTk1MzEyNDciDSR0MDMxNDA3MzIwMjMiDHZpcnRTd2FwSW5BbSINdmlydFN3YXBPdXRQciIMdmlydFN3YXBJblByIg12aXJ0U3dhcE91dEFtIgZEMHZzRDEiCWxwQ2FsY1JlcyINcGF5bWVudEFtb3VudCIOcGF5bWVudEFzc2V0SWQiD2xwQXNzZXRFbWlzc2lvbiIOcG9vbFByb3BvcnRpb24iD2Ftb3VudEFzc2V0UGFydCIOcHJpY2VBc3NldFBhcnQiCWxwQW10Qm90aCIFYm9udXMiB21heFNscGciCW91dEFtdEFtdCIKZXhjaFJlc3VsdCIHbm90VXNlZCIJb3V0QW1vdW50Igplc3RpbUFtQW10Igplc3RpbVByQW10Ig0kdDA0MDI4MTQwNzQxIgt0b3RhbEdldFJhdyIIZmluYWxSZXMiDSR0MDQxNDg4NDE1OTIiDSR0MDQyNjE3NDI3NzIiDWxwQXNzZXRBbW91bnQiDSR0MDQzMjg1NDM1OTMiFGFtb3VudEJhbGFuY2VGb3JTd2FwIhNwcmljZUJhbGFuY2VGb3JTd2FwIgxhbW91bnRUb1N3YXAiC2Ftb3VudFRvQWRkIgp5UHJlY2lzaW9uIg0kdDA0NDEyMTQ0MTcwIgpscEVtaXNzaW9uIgVpbmRleCIEbmV3WSICZHkiDSR0MDQ0ODUzNDQ5MDIiDSR0MDQ1MjQ3NDUzNjIiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDXVuc3Rha2VBbW91bnQiDSR0MDQ3NjY3NDc4NTUiBWFzc2V0IgxwYXltZW50QXNzZXQiDSR0MDQ4MjgzNDgzNzMiDSR0MDQ4Mzc3NDg1NTkiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlT2xkIgxwckJhbGFuY2VPbGQiDGFtQmFsYW5jZU5ldyIMcHJCYWxhbmNlTmV3IghscEFtb3VudCIIYW10QXNTdHIiB3ByQXNTdHIiAWsiAnByIgxyZXNTY2FsZU11bHQiB3VzckFkZHIiB3BtdEFzSWQiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleSIKbWF0Y2hlclB1YiIKb3JkZXJWYWxpZCILc2VuZGVyVmFsaWQiDG1hdGNoZXJWYWxpZCIHbmV3SGFzaCILYWxsb3dlZEhhc2giC2N1cnJlbnRIYXNoWwABYQCAwtcvAAFiCQC2AgEAgMLXLwABYwkAtgIBAICAkLu61q3wDQABZAkAtgIBAAAAAWUJALYCAQAAAAFmCQC2AgEAAQABZwkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWgCAzEwMAABaQIBMQABagICX18AAWsCAAABbAABAAFtAAIAAW4AAwABbwAEAAFwAAEAAXEAAgABcgADAAFzAAQAAXQABQABdQAGAAF2AAcAAXcACAABeAAJAAF5AAEAAXoABwABQQAKAAFCCQBrAwAFBQFhAJBOAQFDAgFEAUUJALwCAwkAtgIBBQFEBQFjCQC2AgEFAUUBAUYCAUcBSAkAoAMBCQC8AgMFAUcJALYCAQUBSAUBYwEBSQMBSgFLAUwJAGsDBQFKBQFLBQFMAQFNAQFHAwkAvwICBQFkBQFHCQC+AgEFAUcFAUcBAU4BAUcDCQC/AgIFAWQFAUcJAL4CAQUBRwUBRwEBTwACEyVzX19mYWN0b3J5Q29udHJhY3QBAVAAAhQlc19fbWFuYWdlclB1YmxpY0tleQEBUQACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQEBUgACESVzJXNfX3ByaWNlX19sYXN0AQFTAgFUAVUJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFUCQDMCAIJAKQDAQUBVQUDbmlsBQFqAQFWAgFXAVgJAKwCAgkArAICCQCsAgICCyVzJXMlc19fUF9fBQFXAgJfXwUBWAEBWQIBVwFYCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUBVwICX18FAVgBAVoAAg8lc19fYW1vdW50QXNzZXQBAmFhAAIOJXNfX3ByaWNlQXNzZXQBAmFiAAIHJXNfX2FtcAECYWMAAg0lc19fYWRkb25BZGRyAAJhZAIHJXNfX2ZlZQACYWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUCYWQFAUIBAmFmAAIRJXNfX2ZhY3RvcnlDb25maWcBAmFnAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhaAICYWkCYWoJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmFpAgJfXwUCYWoCCF9fY29uZmlnAQJhawECYWwJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYWwBAmFtAAIMJXNfX3NodXRkb3duAQJhbgACHSVzX19hbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAQJhbwACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhcAMCYXECYXICYXMJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIRRmFpbGVkOiBvcmRWYWxpZD0JAKUDAQUCYXECCyBzbmRyVmFsaWQ9CQClAwEFAmFyAgwgbXRjaHJWYWxpZD0JAKUDAQUCYXMBAmF0AQFHBAJhdQUBRwMJAAECBQJhdQIGU3RyaW5nBAJhdgUCYXUFAmF2CQACAQITZmFpbCBjYXN0IHRvIFN0cmluZwECYXcCAmF4AmF5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYXgFAmF5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF4CQDMCAICAS4JAMwIAgUCYXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAECYXoCAmF4AmF5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUCYXgFAmF5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF4CQDMCAICAS4JAMwIAgUCYXkJAMwIAgIMIG5vdCBkZWZpbmVkBQNuaWwCAAACYUEJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJhdwIFBHRoaXMJAQFPAAACYUIJAQJhdwIFBHRoaXMJAQJhYgABAmFDAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQJhQQkBAmFtAAcBAmFEAAkA2QQBCQECYXcCBQJhQQkBAmFnAAACYUUJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJhdwIFAmFBCQECYW8AAQJhRgAEAmFHCQECYXcCBQR0aGlzCQEBWgAEAmFICQECYXcCBQR0aGlzCQECYWEABAJhSQkBAmF6AgUCYUEJAQJhawEFAmFIBAJhaQkBAmF6AgUCYUEJAQJhawEFAmFHCQC1CQIJAQJhdwIFAmFBCQECYWgCCQCkAwEFAmFpCQCkAwEFAmFJBQFqAQJhSgAJALUJAgkBAmF3AgUCYUEJAQJhZgAFAWoAAmFLCQECYUoAAAJhTAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUsFAXkCIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJhTQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUsFAXoCIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJhTgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUsFAUECHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MBAmFPCgJhUAJhUQJhUgJhUwJhVAJhVQJhVgJhVwJhWAJhWQkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYVAJAMwIAgkApAMBBQJhUQkAzAgCCQCkAwEFAmFSCQDMCAIJAKQDAQUCYVMJAMwIAgkApAMBBQJhVAkAzAgCCQCkAwEFAmFVCQDMCAIJAKQDAQUCYVYJAMwIAgkApAMBBQJhVwkAzAgCCQCkAwEFAmFYCQDMCAIJAKQDAQUCYVkFA25pbAUBagECYVoGAmJhAmJiAmJjAmFTAmFWAmFXCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYmEJAMwIAgkApAMBBQJiYgkAzAgCCQCkAwEFAmJjCQDMCAIJAKQDAQUCYVMJAMwIAgkApAMBBQJhVgkAzAgCCQCkAwEFAmFXBQNuaWwFAWoBAmJkAQJiZQMJAAACBQJiZQIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYmUBAmJmAgJiZwJiaAkAvAIDBQJiZwUBYwUCYmgBAmJpAwJiagJiawJibAQCYm0JALwCAwkAuAICBQJiagUCYmsFAWIFAmJrBAJibgkAvwICCQC4AgIFAmJsCQEBTQEFAmJtBQFkAwkBASEBBQJibgkAAgEJAKwCAgIKQmlnIHNscGc6IAkApgMBBQJibQkAlAoCBQJibgkAmQMBCQDMCAIFAmJqCQDMCAIFAmJrBQNuaWwBAmJvAwJicAJicQJicgQCYm0JALwCAwUCYnEFAWIFAmJwBAJicwkAvwICBQJicgUCYm0DAwUCYnMGCQC/AgIFAmJxBQJicAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKYDAQUCYnECASAJAKYDAQUCYnACASAJAKYDAQUCYm0CASAJAKYDAQUCYnIFAmJzAQJidAQCYnUCYnYCYncCYngEAmJ5CQEBQwIFAmJ3BQJidQQCYnoJAQFDAgUCYngFAmJ2CQECYmYCBQJiegUCYnkBAmJBAwJidwJieAJiQgQCYkMJAQJhRgAEAmJECQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkMFAXUEAmJFCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkMFAXYEAmJGCQECYnQEBQJiRAUCYkUFAmJ3BQJieAQCYmgJAQFDAgUCYncFAmJEBAJiZwkBAUMCBQJieAUCYkUEAmJHCQEBQwIFAmJCBQFhBAJiSAkBAmJmAgUCYmgFAmJHBAJiSQkBAmJmAgUCYmcFAmJHCQDMCAIFAmJGCQDMCAIFAmJICQDMCAIFAmJJBQNuaWwBAmJKAwJidwJieAJiQgQCYksJAQJiQQMFAmJ3BQJieAUCYkIJAMwIAgkBAUYCCQCRAwIFAmJLAAAFAWEJAMwIAgkBAUYCCQCRAwIFAmJLAAEFAWEJAMwIAgkBAUYCCQCRAwIFAmJLAAIFAWEFA25pbAECYkwBAmJNBAJiTgkAawMFAmJNBQJhZQUBYQkAlAoCCQBlAgUCYk0FAmJOBQJiTgECYk8EAmJQAmJRAmJSAmJTBAJiQwkBAmFGAAQCYlQJAJEDAgUCYkMFAXIEAmJVCQCRAwIFAmJDBQFzBAJiVgkAkQMCBQJiQwUBdAQCYlcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiQwUBdQQCYlgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiQwUBdgQCYlkJAJEDAgUCYkMFAXEEAmJaCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCYlQCC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUCYlQFAmJRCQACAQIPV3JvbmcgcG10IGFzc2V0BAJjYQkBAmJkAQUCYlUEAmNiCQEBQwIFAmNhBQJiVwQCY2MJAQJiZAEFAmJWBAJjZAkBAUMCBQJjYwUCYlgEAmNlCQECYmYCBQJjZAUCY2IEAmNmCQEBRgIFAmNlBQFhBAJjZwkBAUMCBQJiUgUBYQQCY2gJAQFDAgUCYloFAWEEAmNpCQC8AgMFAmNiBQJjZwUCY2gEAmNqCQC8AgMFAmNkBQJjZwUCY2gEAmNrCQEBRgIFAmNpBQJiVwQCY2wJAQFGAgUCY2oFAmJYBAJjbQMJAAACBQJiUAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlMFAmNrAwkAAAIFAmJVAgVXQVZFUwUEdW5pdAkA2QQBBQJiVQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiUwUCY2wDCQAAAgUCYlYCBVdBVkVTBQR1bml0CQDZBAEFAmJWCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFZAgkApQgBBQJiUwUCYlAJAQJhWgYFAmNrBQJjbAUCYlIFAmNmBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBUgAFAmNmCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBUwIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNmBQNuaWwJAJwKCgUCY2sFAmNsBQJiVQUCYlYFAmNhBQJjYwUCYloFAmNlBQJiWQUCY20BAmNuDQJiUAJibAJjbwJjcAJjcQJjcgJiUwJjcwJjdAJjdQJjdgJjdwJjeAQCYkMJAQJhRgAEAmJUCQDZBAEJAJEDAgUCYkMFAXIEAmN5CQCRAwIFAmJDBQFzBAJjegkAkQMCBQJiQwUBdAQCY0EJAJEDAgUCYkMFAXcEAmNCCQCRAwIFAmJDBQF4BAJjQwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJDBQF1BAJjRAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJDBQF2BAJiWQkAkQMCBQJiQwUBcQQCY0UICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlQCCFdyIGxwIGFzCHF1YW50aXR5BAJjYQMFAmNzCQECYmQBBQJjeQMDBQJjdQkAAAIFAmN4BQJjeQcJAGUCCQECYmQBBQJjeQUCY3cDBQJjdQkBAmJkAQUCY3kJAGUCCQECYmQBBQJjeQUCY28EAmNjAwUCY3MJAQJiZAEFAmN6AwMFAmN1CQAAAgUCY3gFAmN6BwkAZQIJAQJiZAEFAmN6BQJjdwMFAmN1CQECYmQBBQJjegkAZQIJAQJiZAEFAmN6BQJjcQQCY0YJAQFDAgUCY28FAmNDBAJjRwkBAUMCBQJjcQUCY0QEAmNICQECYmYCBQJjRwUCY0YEAmNiCQEBQwIFAmNhBQJjQwQCY2QJAQFDAgUCY2MFAmNEBAJjSQMJAAACBQJjRQAABAJjZQUBZAQCY0oFAWQEAmJHCQB2BgkAuQICBQJjRgUCY0cAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQFGAgUCYkcFAWEJAQFGAgUCY0YFAmNDCQEBRgIFAmNHBQJjRAkBAmJmAgkAtwICBQJjZAUCY0cJALcCAgUCY2IFAmNGBQJjSgQCY2UJAQJiZgIFAmNkBQJjYgQCY0sJALwCAwkBAU0BCQC4AgIFAmNlBQJjSAUBYwUCY2UEAmNKCQEBQwIFAmJsBQFhAwMDBQJjdgkBAiE9AgUCY2UFAWQHCQC/AgIFAmNLBQJjSgcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUCY0sCAyA+IAkApgMBBQJjSgQCY0wJAQFDAgUCY0UFAWEEAmNNCQC8AgMFAmNGBQJjZQUBYwQCY04JALwCAwUCY0cFAWMFAmNlBAJjTwMJAL8CAgUCY00FAmNHCQCUCgIFAmNOBQJjRwkAlAoCBQJjRgUCY00EAmNQCAUCY08CXzEEAmNRCAUCY08CXzIEAmJHCQC8AgMFAmNMBQJjUQUCY2QJAJcKBQkBAUYCBQJiRwUBYQkBAUYCBQJjUAUCY0MJAQFGAgUCY1EFAmNEBQJjZQUCY0oEAmNSCAUCY0kCXzEEAmNTCAUCY0kCXzIEAmNUCAUCY0kCXzMEAmNmCQEBRgIIBQJjSQJfNAUBYQQCY1UJAQFGAggFAmNJAl81BQFhAwkAZwIAAAUCY1IJAAIBAgdMUCA8PSAwBAJjVgMJAQEhAQUCY3QAAAUCY1IEAmNXCQBlAgUCY28FAmNTBAJjWAkAZQIFAmNxBQJjVAQCY1kDAwUCY3UJAAACBQJjeAUCY3kHCQCUCgIFAmN3AAADAwUCY3UJAAACBQJjeAUCY3oHCQCUCgIAAAUCY3cJAJQKAgUCY1MFAmNUBAJjWggFAmNZAl8xBAJkYQgFAmNZAl8yBAJkYgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVIABQJjZgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjZgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVgIFAmJTBQJiUAkBAmFPCgUCY1oFAmRhBQJjVgUCY2YFAmJsBQJjVQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY1cFAmNYBQNuaWwJAJ8KDQUCY1IFAmNWBQJjZgUCY2EFAmNjBQJjRQUCYlQFAmJZBQJkYgUCY1cFAmNYBQJjcAUCY3IBAmRjAQJkZAQCYkMJAQJhRgAEAmRlCQCRAwIFAmJDBQFzBAJkZgkAkQMCBQJiQwUBdAQCYlkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiQwUBcQQCYkQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiQwUBdQQCYkUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiQwUBdgQCZGcJAQJiZAEFAmRlBAJkaAkBAmJkAQUCZGYEAmNlAwkAAAIIBQJkZAlvcmRlclR5cGUFA0J1eQkBAmJ0BAUCYkQFAmJFCQBkAgUCZGcIBQJkZAZhbW91bnQFAmRoCQECYnQEBQJiRAUCYkUJAGUCBQJkZwgFAmRkBmFtb3VudAUCZGgEAmNmCQEBRgIFAmNlBQFhAwMDCQECYUMABgkAAAIFAmJZBQFuBgkAAAIFAmJZBQFvCQACAQINQWRtaW4gYmxvY2tlZAQCZGkICAUCZGQJYXNzZXRQYWlyC2Ftb3VudEFzc2V0BAJkagMJAAACBQJkaQUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUCZGkEAmRrCAgFAmRkCWFzc2V0UGFpcgpwcmljZUFzc2V0BAJkbAMJAAACBQJkawUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUCZGsDAwkBAiE9AgUCZGoFAmRlBgkBAiE9AgUCZGwFAmRmCQACAQIJV3IgYXNzZXRzBAJkbQgFAmRkBXByaWNlBAJjRAkAawMFAWEFAmJFBQJiRAQCZG4JAQFJAwUCZG0FAWEFAmNEBAJkbwMJAAACCAUCZGQJb3JkZXJUeXBlBQNCdXkJAGcCBQJjZgUCZG4JAGcCBQJkbgUCY2YGAQJkcAECZHEDCQECIT0CCQCQAwEIBQJkcQhwYXltZW50cwABCQACAQIKMSBwbW50IGV4cAQCZHIJAQV2YWx1ZQEJAJEDAggFAmRxCHBheW1lbnRzAAAEAmJRCQEFdmFsdWUBCAUCZHIHYXNzZXRJZAQCY3cIBQJkcgZhbW91bnQEAmNJCQECYk8ECQDYBAEIBQJkcQ10cmFuc2FjdGlvbklkCQDYBAEFAmJRBQJjdwgFAmRxBmNhbGxlcgQCY2sIBQJjSQJfMQQCY2wIBQJjSQJfMgQCYlkJAQ1wYXJzZUludFZhbHVlAQgFAmNJAl85BAJjbQgFAmNJA18xMAMDCQECYUMABgkAAAIFAmJZBQFvCQACAQkArAICAg9BZG1pbiBibG9ja2VkOiAJAKQDAQUCYlkJAJcKBQUCY2sFAmNsBQJjdwUCYlEFAmNtAQJkcwoCZHQBWAJkdQJkdgJibAJjdAJjdQJjdgJjdwJjeAQCY0kJAQJjbg0FAVgFAmJsCAkBBXZhbHVlAQUCZHUGYW1vdW50CAkBBXZhbHVlAQUCZHUHYXNzZXRJZAgJAQV2YWx1ZQEFAmR2BmFtb3VudAgJAQV2YWx1ZQEFAmR2B2Fzc2V0SWQFAmR0CQAAAgUBWAIABQJjdAUCY3UFAmN2BQJjdwUCY3gEAmJZCQENcGFyc2VJbnRWYWx1ZQEIBQJjSQJfOAMDAwkBAmFDAAYJAAACBQJiWQUBbQYJAAACBQJiWQUBbwkAAgEJAKwCAgIIQmxvY2tlZDoJAKQDAQUCYlkFAmNJAQJkdwQCZHgCYlECYlMBWAQCZHkJAQJhRgAEAmJVCQCRAwIFAmR5BQFzBAJiVgkAkQMCBQJkeQUBdAQCY2EJAQJiZAEFAmJVBAJjYwkBAmJkAQUCYlYEAmR6CQECYkwBBQJkeAQCY3cIBQJkegJfMQQCYk4IBQJkegJfMgQCZEEDCQAAAgUBWAIACQCUCgIFAmNhBQJjYwMJAAACBQJiUQUCYlUDCQBmAgUCZHgFAmNhCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY2EFAmR4BQJjYwMJAAACBQJiUQUCYlYDCQBmAgUCZHgFAmNjCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjYQkAZQIFAmNjBQJkeAkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmRCCAUCZEECXzEEAmRDCAUCZEECXzIEAmREAwkAAAIFAmJRBQJiVQkAlAoCBQJkQgUCZEMJAJQKAgUCZEMFAmRCBAJkRQgFAmREAl8xBAJkRggFAmREAl8yBAJkRwABBAJkSAoAAmRJCQD8BwQFAmFOAgxjYWxjUHV0WE9ubHkJAMwIAgkApAMBBQJjdwkAzAgCCQCkAwEFAmRFCQDMCAIJAKQDAQUCZEYJAMwIAgIACQDMCAIFAmFCCQDMCAIFAWgJAMwIAgkApAMBBQJkRwkAzAgCBQFpBQNuaWwFA25pbAMJAAECBQJkSQIKKEludCwgSW50KQUCZEkJAAIBCQCsAgIJAAMBBQJkSQIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQQCZEoDCQAAAgUCYlEFAmJVBQJkSAkAlAoCCAUCZEgCXzIIBQJkSAJfMQQCZEsIBQJkSgJfMQQCZEwIBQJkSgJfMgQCZE0JAQJkcwoFAmJTBQFYCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVQUCZEsJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJWBQJkTAAABgYHBQJkeAUCYlEEAmROCAUCZE0CXzIEAmRPCAUCZE0CXzcEAmNtCAUCZE0CXzkEAmNXCAUCZE0DXzEwBAJjWAgFAmRNA18xMQUCZE0BAmRQBgJkUQJkUgJkUwJkdAJkVAJkVQMJAQIhPQIJAJADAQUCZFMAAQkAAgECCzEgcG1udCBleHBkBAJkeQkBAmFGAAQCYlQJAJEDAgUCZHkFAXIEAmJVCQCRAwIFAmR5BQFzBAJiVgkAkQMCBQJkeQUBdAQCZFYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJkeQUBdQQCZFcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJkeQUBdgQCZFgJAJEDAgUCZHkFAXEEAmJTAwkAAAIFAmR0BQR0aGlzBQJkVAUCZHQEAmRyCQEFdmFsdWUBCQCRAwIFAmRTAAAEAmJRCQEFdmFsdWUBCAUCZHIHYXNzZXRJZAQCY3cIBQJkcgZhbW91bnQDCQBmAgCAlOvcAwUCY3cJAAIBAg1NaW4gcG10IDEwIExQBAJiUAkA2AQBBQJkVQMJAQIhPQIFAmJUCQDYBAEFAmJRCQACAQIIV3JvbmcgTFAEAmNhCQECYmQBBQJiVQQCY2MJAQJiZAEFAmJWBAJkWQoAAmRJCQD8BwQFBHRoaXMCE2dldE9uZVRrblYyUkVBRE9OTFkJAMwIAgUCZFEJAMwIAgUCY3cFA25pbAUDbmlsAwkAAQIFAmRJAgooSW50LCBJbnQpBQJkSQkAAgEJAKwCAgkAAwEFAmRJAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpBAJkWggFAmRZAl8xBAJiTggFAmRZAl8yBAJlYQMDCQBmAgUCZFIAAAkAZgIFAmRSBQJkWgcJAAIBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmRSBQNuaWwCAAUCZFoEAmViAwkAAAIFAmRRBQJiVQkAlAoCBQJlYQAACQCUCgIAAAUCZWEEAmVjCAUCZWICXzEEAmVkCAUCZWICXzIEAmVlCQECYmYCCQEBQwIFAmNjBQJkVwkBAUMCBQJjYQUCZFYEAmVmCQEBRgIFAmVlBQFhBAJlZwMJAAACBQJkUQIFV0FWRVMFBHVuaXQJANkEAQUCZFEEAmVoAwkAZgIFAmJOAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUUFAmJOBQJlZwUDbmlsBQNuaWwEAmNtCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlMFAmVhBQJlZwkAzAgCCQELU3RyaW5nRW50cnkCCQEBWQIJAKUIAQUCYlMFAmJQCQECYVoGBQJlYwUCZWQFAmN3BQJlZgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVIABQJlZgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJlZgUDbmlsBQJlaAMJAAACBQJjbQUCY20EAmVpCQD8BwQFAmFBAgRidXJuCQDMCAIFAmN3BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJRBQJjdwUDbmlsAwkAAAIFAmVpBQJlaQkAlAoCBQJjbQUCZWEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmVqAQJlawQCZWwJALYCAQACBAJlbQkAkQMCBQJlawAABAJlbgkAkQMCBQJlawABBAJlbwkApwMBBQFoBAJlcAkAuQICCQCnAwEFAmFCBQJlbwQCZXEJALcCAgUCZW0FAmVuAwkAAAIFAmVxBQFlBQFlBAJlcgkAuQICBQJlcAUCZWwKAQJlcwICZXQCZXUEAmV2BQJldAQCZXcIBQJldgJfMQQCZXgIBQJldgJfMgMJAQIhPQIFAmV4BQR1bml0BQJldAQCZXkJALoCAgkAuQICCQC5AgIFAmV3BQJldwUCZXcJALkCAgkAuQICCQC5AgIFAmVtBQJlbgUCZWwFAmVsBAJlegkAugICCQC5AgIJALcCAgkAugICCQC5AgIFAmVyBQJlcQUCZW8JALkCAgUCZXkFAmVsBQJldwkAtwICCQC6AgIJALkCAgkAuAICBQJlcgUCZW8FAmV3BQJlbwkAuQICCQC3AgIFAmVsCQC2AgEAAQUCZXkEAmVBCQEBTgEJALgCAgUCZXoJAQV2YWx1ZQEFAmV3AwkAwAICBQFmBQJlQQkAlAoCBQJlegUCZXUJAJQKAgUCZXoFBHVuaXQEAmVCCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgUDbmlsBAJlQwoAAmVEBQJlQgoAAmVFCQCQAwEFAmVECgACZUYJAJQKAgUCZXEFBHVuaXQKAQJlRwICZUgCZUkDCQBnAgUCZUkFAmVFBQJlSAkBAmVzAgUCZUgJAJEDAgUCZUQFAmVJCgECZUoCAmVIAmVJAwkAZwIFAmVJBQJlRQUCZUgJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA3CQECZUoCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCBQJlRgAAAAEAAgADAAQABQAGAAcEAmV3CAUCZUMCXzEEAmV4CAUCZUMCXzIDCQECIT0CBQJleAUEdW5pdAUCZXcJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZXcBAmVLAwJlawJkcQJlTAQCZWwJALYCAQACBAJlTQkAkQMCBQJlawMJAAACBQJkcQAAAAEAAAQCZW8JAKcDAQUBaAQCZXAJALkCAgkApwMBBQJhQgUCZW8EAmVxBQJlTQQCZXIJALkCAgUCZXAFAmVsBAJlTgkAugICCQC5AgIJALkCAgkAugICCQC5AgIFAmVMBQJlTAkAuQICBQJlTQUCZWwFAmVMBQJlbwkAuQICBQJlcgUCZWwEAmVPCQC4AgIJALcCAgUCZXEJALoCAgkAuQICBQJlTAUCZW8FAmVyBQJlTAoBAmVzAgJldAJldQQCZVAFAmV0BAJlUQgFAmVQAl8xBAJleAgFAmVQAl8yAwkBAiE9AgUCZXgFBHVuaXQFAmV0BAJlUgkAugICCQC3AgIJALkCAgUCZVEFAmVRBQJlTgkAtwICCQC5AgIJALYCAQACBQJlUQUCZU8EAmVTCQEBTgEJALgCAgUCZVIJAQV2YWx1ZQEFAmVRAwkAwAICBQFmBQJlUwkAlAoCBQJlUgUCZXUJAJQKAgUCZVIFBHVuaXQEAmVCCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOBQNuaWwEAmVUCgACZUQFAmVCCgACZUUJAJADAQUCZUQKAAJlRgkAlAoCBQJlcQUEdW5pdAoBAmVHAgJlSAJlSQMJAGcCBQJlSQUCZUUFAmVICQECZXMCBQJlSAkAkQMCBQJlRAUCZUkKAQJlSgICZUgCZUkDCQBnAgUCZUkFAmVFBQJlSAkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE1CQECZUoCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCCQECZUcCBQJlRgAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPBAJlUQgFAmVUAl8xBAJleAgFAmVUAl8yAwkBAiE9AgUCZXgFBHVuaXQFAmVRCQACAQkArAICAhlZIGNhbGN1bGF0aW9uIGVycm9yLCBZID0gCQCmAwEFAmVRAQJlVQAEAmF1CQCiCAEJAQFQAAMJAAECBQJhdQIGU3RyaW5nBAJlcQUCYXUJANkEAQUCZXEDCQABAgUCYXUCBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZVYABAJhdQkAoggBCQEBUQADCQABAgUCYXUCBlN0cmluZwQCZXEFAmF1CQDZBAEFAmVxAwkAAQIFAmF1AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAAmVXCQACAQIRUGVybWlzc2lvbiBkZW5pZWQBAmVYAQJkcQQCYXUJAQJlVQADCQABAgUCYXUCCkJ5dGVWZWN0b3IEAmVZBQJhdQMJAAACCAUCZHEPY2FsbGVyUHVibGljS2V5BQJlWQYFAmVXAwkAAQIFAmF1AgRVbml0AwkAAAIIBQJkcQZjYWxsZXIFBHRoaXMGBQJlVwkAAgECC01hdGNoIGVycm9yHwJkcQELY29uc3RydWN0b3IBAU8EAmVOCQECZVgBBQJkcQMJAAACBQJlTgUCZU4JAMwIAgkBC1N0cmluZ0VudHJ5AgkBAU8ABQFPBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHEBCnNldE1hbmFnZXIBAmVaBAJlTgkBAmVYAQUCZHEDCQAAAgUCZU4FAmVOBAJmYQkA2QQBBQJlWgMJAAACBQJmYQUCZmEJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVEABQJlWgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRxAQ5jb25maXJtTWFuYWdlcgAEAmJLCQECZVYABAJmYgMJAQlpc0RlZmluZWQBBQJiSwYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmIFAmZiBAJmYwMJAAACCAUCZHEPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJiSwYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmMFAmZjCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFQAAkA2AQBCQEFdmFsdWUBBQJiSwkAzAgCCQELRGVsZXRlRW50cnkBCQEBUQAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcQEDcHV0AgJmZAJmZQQCZmYJAQJhSgAEAmZnCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJmZgUBeQIKV3Igc3QgYWRkcgQCZmgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZmBQF6AgpXciBzbCBhZGRyAwkAZgIAAAUCZmQJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmRxCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmZpCQECZHMKCQClCAEIBQJkcQZjYWxsZXIJANgEAQgFAmRxDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZHEIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZHEIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRxCHBheW1lbnRzAAEFAmZkBgcGAAACAAQCY1YIBQJmaQJfMgQCZE8IBQJmaQJfNwQCY20IBQJmaQJfOQQCY1cIBQJmaQNfMTAEAmNYCAUCZmkDXzExBAJiVQgFAmZpA18xMgQCYlYIBQJmaQNfMTMEAmNJCQD8BwQFAmFBAgRlbWl0CQDMCAIFAmNWBQNuaWwFA25pbAMJAAACBQJjSQUCY0kEAmZqBAJhdQUCY0kDCQABAgUCYXUCB0FkZHJlc3MEAmZrBQJhdQkA/AcEBQJmawIEZW1pdAkAzAgCBQJjVgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZmoFAmZqBAJmbAMJAGYCBQJjVwAACQD8BwQFAmZoAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlUFAmNXBQNuaWwFA25pbAMJAAACBQJmbAUCZmwEAmZtAwkAZgIFAmNYAAAJAPwHBAUCZmgCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiVgUCY1gFA25pbAUDbmlsAwkAAAIFAmZtBQJmbQQCZm4DBQJmZQQCZm8JAPwHBAUCZmcCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmRPBQJjVgUDbmlsAwkAAAIFAmZvBQJmbwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkcQZjYWxsZXIFAmNWBQJkTwUDbmlsCQDOCAIFAmNtBQJmbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcQEJcHV0T25lVGtuBQJkSwJkTAJmcAJibAJmZQQCYkMJAQJhSgAEAmZnCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiQwUBeQIKV3Igc3QgYWRkcgQCZmgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJDBQF6AgpXciBzbCBhZGRyBAJmcQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYkMFAUECC1dyIGd3eCBhZGRyBAJmcgkBAmFGAAQCYlUJAJEDAgUCZnIFAXMEAmJWCQCRAwIFAmZyBQF0BAJiVwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZyBQF1BAJiWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZyBQF2BAJmcwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQECYWMAAgAEAmJTAwkAAAIFAmZzCQClCAEIBQJkcQZjYWxsZXIIBQJkcQxvcmlnaW5DYWxsZXIIBQJkcQZjYWxsZXIDAwMDCQBnAgAABQJibAYJAGcCAAAFAmRLBgkAZwIAAAUCZEwGCQBnAgAABQJmcAkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIJAJADAQgFAmRxCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQCZHIJAQV2YWx1ZQEJAJEDAggFAmRxCHBheW1lbnRzAAAEAmJRCQDYBAEJAQV2YWx1ZQEIBQJkcgdhc3NldElkBAJmdAgFAmRyBmFtb3VudAQCZnUJAQJiTAEFAmZ0BAJjdwgFAmZ1Al8xBAJiTggFAmZ1Al8yAwkAZgIAgK3iBAUCZnQJAAIBAg1Xcm9uZyBwbXQgYW10BAJjYQkBAmJkAQUCYlUEAmNjCQECYmQBBQJiVgQCZnYDCQAAAgUCYlEFAmJVAwMJAGYCBQJmdAUCY2EGCQBmAgUCZEsFAmN3CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGCQBlAgUCY2EFAmZ0BQJjYwkAZQIFAmN3BQJkSwUCZEwAAAAAAwkAAAIFAmJRBQJiVgMDCQBmAgUCZnQFAmNjBgkAZgIFAmRMBQJjdwkAAgECFmludmFsaWQgcGF5bWVudCBhbW91bnQJAJgKBgUCY2EJAGUCBQJjYwUCZnQAAAAACQBlAgUCY3cFAmRMBQJkSwkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmRCCAUCZnYCXzEEAmRDCAUCZnYCXzIEAmZ3CAUCZnYCXzMEAmZ4CAUCZnYCXzQEAmZ5CAUCZnYCXzUEAmZ6CAUCZnYCXzYEAmJxCQD8BwQFAmZxAgVjYWxjRAkAzAgCCQCkAwEFAmRCCQDMCAIJAKQDAQUCZEMJAMwIAgUCYUIJAMwIAgUBaAkAzAgCBQFpBQNuaWwFA25pbAQCYnAJAPwHBAUCZnECBWNhbGNECQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFAmRCBQJmdwUCZnoJAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUCZEMFAmZ5BQJmeAkAzAgCBQJhQgkAzAgCBQFoCQDMCAIFAWkFA25pbAUDbmlsBAJmQQkBAmJvAwkApwMBCQECYXQBBQJicAkApwMBCQECYXQBBQJicQUBZwMJAAACBQJmQQUCZkEEAmRNCQECZHMKCQClCAEIBQJkcQZjYWxsZXIJANgEAQgFAmRxDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJVBQJkSwkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlYFAmRMBQJibAYGBgUCY3cFAmJRBAJkTggFAmRNAl8yBAJkTwgFAmRNAl83BAJjbQgFAmRNAl85BAJjVwgFAmRNA18xMAQCY1gIBQJkTQNfMTEEAmZCCQECYmkDCQC2AgEFAmROCQC2AgEFAmZwCQC2AgEFAmJsBAJjVgkAoAMBCAUCZkICXzIEAmZpCQD8BwQFAmFBAgRlbWl0CQDMCAIFAmNWBQNuaWwFA25pbAMJAAACBQJmaQUCZmkEAmZqBAJhdQUCZmkDCQABAgUCYXUCB0FkZHJlc3MEAmZrBQJhdQkA/AcEBQJmawIEZW1pdAkAzAgCBQJjVgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZmoFAmZqBAJmbAMJAGYCBQJjVwAACQD8BwQFAmZoAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVQUCY1cFA25pbAUDbmlsAwkAAAIFAmZsBQJmbAQCZm0DCQBmAgUCY1gAAAkA/AcEBQJmaAIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlYFAmNYBQNuaWwFA25pbAMJAAACBQJmbQUCZm0EAmZuAwUCZmUEAmZvCQD8BwQFAmZnAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkTwUCY1YFA25pbAMJAAACBQJmbwUCZm8FA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCZHEGY2FsbGVyBQJjVgUCZE8FA25pbAQCZWgDCQBmAgUCYk4AAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhRQUCYk4JANkEAQUCYlEFA25pbAUDbmlsCQDOCAIJAM4IAgUCY20FAmZuBQJlaAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcQELcHV0T25lVGtuVjICAmRSAmZlAwkBAiE9AgkAkAMBCAUCZHEIcGF5bWVudHMAAQkAAgECCzEgcG1udCBleHBkBAJkeQkBAmFGAAQCYlUJAJEDAgUCZHkFAXMEAmJWCQCRAwIFAmR5BQF0BAJkVgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmR5BQF1BAJkVwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmR5BQF2BAJiUwMJAAACCAUCZHEGY2FsbGVyBQR0aGlzCAUCZHEMb3JpZ2luQ2FsbGVyCAUCZHEGY2FsbGVyBAJkcgkBBXZhbHVlAQkAkQMCCAUCZHEIcGF5bWVudHMAAAQCYlEJANgEAQkBBXZhbHVlAQgFAmRyB2Fzc2V0SWQEAmN3CAUCZHIGYW1vdW50AwkAZgIAgK3iBAUCY3cJAAIBAg1Xcm9uZyBwbXQgYW10BAJjSQkBAmR3BAUCY3cFAmJRCQClCAEFAmJTCQDYBAEIBQJkcQ10cmFuc2FjdGlvbklkBAJkTggFAmNJAl8yBAJkTwgFAmNJAl83BAJjbQgFAmNJAl85BAJjVwgFAmNJA18xMAQCY1gIBQJjSQNfMTEEAmNWAwMJAGYCBQJkUgAACQBmAgUCZFIFAmROBwkAAgEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZFIFA25pbAIABQJkTgQCZmkJAPwHBAUCYUECBGVtaXQJAMwIAgUCY1YFA25pbAUDbmlsAwkAAAIFAmZpBQJmaQQCZmoEAmF1BQJmaQMJAAECBQJhdQIHQWRkcmVzcwQCZmsFAmF1CQD8BwQFAmZrAgRlbWl0CQDMCAIFAmNWBQNuaWwFA25pbAUEdW5pdAMJAAACBQJmagUCZmoEAmZsAwkAZgIFAmNXAAAJAPwHBAUCYU0CA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJVBQJjVwUDbmlsBQNuaWwDCQAAAgUCZmwFAmZsBAJmbQMJAGYCBQJjWAAACQD8BwQFAmFNAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVgUCY1gFA25pbAUDbmlsAwkAAAIFAmZtBQJmbQQCZm4DBQJmZQQCZm8JAPwHBAUCYUwCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmRPBQJjVgUDbmlsAwkAAAIFAmZvBQJmbwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkcQZjYWxsZXIFAmNWBQJkTwUDbmlsBAJiTggJAQJiTAEFAmN3Al8yBAJlaAMJAGYCBQJiTgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFFBQJiTgkA2QQBBQJiUQUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNtBQJmbgUCZWgFAmNWCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRxARZwdXRPbmVUa25WMk9sZFJFQURPTkxZAgJmQwJmRAQCY0kJAQJkdwQFAmZDBQJmRAIAAgAEAmROCAUCY0kCXzIEAmRPCAUCY0kCXzcEAmNtCAUCY0kCXzkEAmNXCAUCY0kDXzEwBAJjWAgFAmNJA18xMQkAlAoCBQNuaWwFAmROAmRxARxwdXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJmQwJmRAQCZHkJAQJhRgAEAmJVCQCRAwIFAmR5BQFzBAJiVgkAkQMCBQJkeQUBdAQCY0kJAQJkdwQFAmZDBQJmRAIAAgAEAmROCAUCY0kCXzIEAmNmCAUCY0kCXzMEAmZFCAUCY0kCXzYEAmRPCAUCY0kCXzcEAmNhCQECYmQBBQJiVQQCY2MJAQJiZAEFAmJWBAJmRgkAawMFAmNjBQFhBQJjYQQCZkcJAGsDBQJmQwUBYQkAZAIFAmZGBQFhBAJmSAkAZQIFAmZDBQJmRwQCZkkJAGsDBQJmRQUCZkgFAmNjBAJmSgkAawMJAGUCBQJkTgUCZkkFAWEFAmZJBAJiTggJAQJiTAEFAmZDAl8yCQCUCgIFA25pbAkAlQoDBQJkTgUCYk4FAmZKAmRxAQpwdXRGb3JGcmVlAQJmSwMJAGYCAAAFAmZLCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmRxCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmRNCQECZHMKCQClCAEIBQJkcQZjYWxsZXIJANgEAQgFAmRxDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZHEIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZHEIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRxCHBheW1lbnRzAAEFAmZLBwcGAAACAAgFAmRNAl85AmRxAQNnZXQABAJjSQkBAmRwAQUCZHEEAmZMCAUCY0kCXzEEAmNsCAUCY0kCXzIEAmN3CAUCY0kCXzMEAmJRCAUCY0kCXzQEAmNtCAUCY0kCXzUEAmVPCQD8BwQFAmFBAgRidXJuCQDMCAIFAmN3BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJRBQJjdwUDbmlsAwkAAAIFAmVPBQJlTwUCY20JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHEBCWdldE9uZVRrbgUCZk0CZk4CZk8CZFECYmwDCQECIT0CCQCQAwEIBQJkcQhwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEAmJDCQECYUYABAJiVAkAkQMCBQJiQwUBcgQCYlUJAJEDAgUCYkMFAXMEAmJWCQCRAwIFAmJDBQF0BAJiVwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJDBQF1BAJiWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJDBQF2BAJiWQkAkQMCBQJiQwUBcQQCZmYJAQJhSgAEAmZxCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJmZgUBQQIKV3Igc2wgYWRkcgQCZHIJAQV2YWx1ZQEJAJEDAggFAmRxCHBheW1lbnRzAAAEAmZzCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQJhYwACAAQCYlMDCQAAAgUCZnMJAKUIAQgFAmRxBmNhbGxlcggFAmRxDG9yaWdpbkNhbGxlcggFAmRxBmNhbGxlcgQCYlAJANgEAQgFAmRxDXRyYW5zYWN0aW9uSWQEAmJRCQEFdmFsdWUBCAUCZHIHYXNzZXRJZAQCY3cIBQJkcgZhbW91bnQDCQBmAgCAlOvcAwUCY3cJAAIBAg1NaW4gcG10IDEwIExQAwMDCQBmAgAABQJibAYJAGYCAAAFAmZNBgkAZgIAAAUCZk8JAAIBAgxXcm9uZyBwYXJhbXMDCQECIT0CBQJiVAkA2AQBBQJiUQkAAgECCFdyb25nIExQBAJjSQkBAmJPBAkA2AQBCAUCZHENdHJhbnNhY3Rpb25JZAkA2AQBBQJiUQUCY3cIBQJkcQZjYWxsZXIEAmZQCAUCY0kCXzEEAmZRCAUCY0kCXzIEAmNhCQECYmQBBQJiVQQCY2MJAQJiZAEFAmJWBAJmUgMJAAACBQJkUQUCYlUJAJkKBwkAZQIFAmNhBQJmUAkAZQIFAmNjBQJmUQUCZk0FAmZRAAAAAAkAZAIFAmZQBQJmTQMJAAACBQJkUQUCYlYJAJkKBwkAZQIFAmNhBQJmUAkAZQIFAmNjBQJmUQAAAAAFAmZNBQJmUAkAZAIFAmZRBQJmTQkAAgECEHdyb25nIG91dEFzc2V0SWQEAmRCCAUCZlICXzEEAmRDCAUCZlICXzIEAmZ3CAUCZlICXzMEAmZ4CAUCZlICXzQEAmZ5CAUCZlICXzUEAmZ6CAUCZlICXzYEAmZTCAUCZlICXzcDAwkAZgIAAAUCZncGCQBmAgAABQJmeQkAAgECCldyb25nIGNhbGMEAmJxCQD8BwQFAmZxAgVjYWxjRAkAzAgCCQCkAwEFAmRCCQDMCAIJAKQDAQUCZEMJAMwIAgUCYUIJAMwIAgUBaAkAzAgCBQFpBQNuaWwFA25pbAQCYnAJAPwHBAUCZnECBWNhbGNECQDMCAIJAKQDAQkAZAIJAGUCBQJkQgUCZncFAmZ6CQDMCAIJAKQDAQkAZQIJAGQCBQJkQwUCZngFAmZ5CQDMCAIFAmFCCQDMCAIFAWgJAMwIAgUBaQUDbmlsBQNuaWwEAmZBCQECYm8DCQCnAwEJAQJhdAEFAmJwCQCnAwEJAQJhdAEFAmJxBQFnAwkAAAIFAmZBBQJmQQQCZFoICQECYkwBBQJmUwJfMQQCZlQJAQJiaQMJALYCAQUCZFoJALYCAQUCZk8JALYCAQUCYmwDCQAAAgUCZlQFAmZUBAJmVQMJAAACBQJkUQUCYlUJAJQKAgkAoAMBCAUCZlQCXzIAAAkAlAoCAAAJAKADAQgFAmZUAl8yBAJlYwgFAmZVAl8xBAJlZAgFAmZVAl8yBAJlYQkAZAIFAmVjBQJlZAQCYk4JAGUCBQJmUwUCZFoEAmVnAwkAAAIFAmRRAgVXQVZFUwUEdW5pdAkA2QQBBQJkUQQCZWgDCQBmAgUCYk4AAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhRQUCYk4FAmVnBQNuaWwFA25pbAQCZWUJAQJiZgIJAQFDAgUCY2MFAmJYCQEBQwIFAmNhBQJiVwQCZWYJAQFGAgUCZWUFAWEEAmNtCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmJTBQJlYQUCZWcJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCCQClCAEFAmJTBQJiUAkBAmFaBgUCZWMFAmVkBQJjdwUCZWYFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFSAAUCZWYJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZWYFA25pbAMJAAACBQJjbQUCY20EAmVpCQD8BwQFAmFBAgRidXJuCQDMCAIFAmN3BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJRBQJjdwUDbmlsAwkAAAIFAmVpBQJlaQkAzggCBQJjbQUCZWgJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHEBC2dldE9uZVRrblYyAgJkUQJkUgQCZlYJAQJkUAYFAmRRBQJkUggFAmRxCHBheW1lbnRzCAUCZHEGY2FsbGVyCAUCZHEMb3JpZ2luQ2FsbGVyCAUCZHENdHJhbnNhY3Rpb25JZAQCY20IBQJmVgJfMQQCZWEIBQJmVgJfMgkAlAoCBQJjbQUCZWECZHEBFmdldE9uZVRrblYyT2xkUkVBRE9OTFkCAmRRAmZXBAJkeQkBAmFGAAQCYlQJAJEDAgUCZHkFAXIEAmJVCQCRAwIFAmR5BQFzBAJiVgkAkQMCBQJkeQUBdAQCY0kJAQJiTwQCAAUCYlQFAmZXBQR0aGlzBAJmUAgFAmNJAl8xBAJmUQgFAmNJAl8yBAJjYQkBAmJkAQUCYlUEAmNjCQECYmQBBQJiVgQCZEIJAGUCBQJjYQUCZlAEAmRDCQBlAgUCY2MFAmZRBAJmWAMJAAACBQJkUQUCYlUJAJYKBAUCZEMFAmRCBQJmUQUCZlADCQAAAgUCZFEFAmJWCQCWCgQFAmRCBQJkQwUCZlAFAmZRCQACAQIQd3Jvbmcgb3V0QXNzZXRJZAQCZlkIBQJmWAJfMQQCZloIBQJmWAJfMgQCZ2EIBQJmWAJfMwQCZ2IIBQJmWAJfNAQCZ2MAAQQCZk0KAAJkSQkA/AcEBQJhTgIMY2FsY1N3YXBYVG9ZCQDMCAIJAKQDAQUCZ2EJAMwIAgkApAMBBQJmWQkAzAgCCQCkAwEFAmZaCQDMCAICAAkAzAgCBQJhQgkAzAgCBQFoCQDMCAIJAKQDAQUCZ2MJAMwIAgUBaQUDbmlsBQNuaWwDCQABAgUCZEkCA0ludAUCZEkJAAIBCQCsAgIJAAMBBQJkSQIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50BAJmUwkAZAIFAmZNBQJnYgQCZ2QJAQJiTAEFAmZTBAJkWggFAmdkAl8xBAJiTggFAmdkAl8yCQCUCgIFA25pbAkAlAoCBQJkWgUCYk4CZHEBE2dldE9uZVRrblYyUkVBRE9OTFkCAmRRAmZXBAJkeQkBAmFGAAQCYlUJAJEDAgUCZHkFAXMEAmJWCQCRAwIFAmR5BQF0BAJiVAkAkQMCBQJkeQUBcgQCZWsJAMwIAgkAtgIBCQECYmQBBQJiVQkAzAgCCQC2AgEJAQJiZAEFAmJWBQNuaWwEAmdlCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJiVAIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCYnEJAQJlagEFAmVrBAJicAkAuAICBQJicQkAugICCQC5AgIJALYCAQUCZlcFAmJxBQJnZQQCZ2YDCQAAAgUCZFEFAmJVAAAAAQQCZ2cJAQJlSwMFAmVrBQJnZgUCYnAEAmdoCQC4AgIJAJEDAgUCZWsFAmdmBQJnZwQCZlMJAKADAQkAuAICBQJnaAUBZgQCZ2kJAQJiTAEFAmZTBAJkWggFAmdpAl8xBAJiTggFAmdpAl8yCQCUCgIFA25pbAkAlAoCBQJkWgUCYk4CZHEBHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmRRAmZXBAJkeQkBAmFGAAQCYlUJAJEDAgUCZHkFAXMEAmJWCQCRAwIFAmR5BQF0BAJiVAkAkQMCBQJkeQUBcgQCY2EJAQJiZAEFAmJVBAJjYwkBAmJkAQUCYlYEAmdqCgACZEkJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJkUQkAzAgCBQJmVwUDbmlsBQNuaWwDCQABAgUCZEkCCihJbnQsIEludCkFAmRJCQACAQkArAICCQADAQUCZEkCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmRaCAUCZ2oCXzEEAmJOCAUCZ2oCXzIEAmNJCQECYk8EAgAFAmJUBQJmVwUEdGhpcwQCY2sIBQJjSQJfMQQCY2wIBQJjSQJfMgQCZ2sJAGQCBQJjawUCY2wEAmZKCQBrAwkAZQIFAmRaBQJnawUBYQUCZ2sJAJQKAgUDbmlsCQCVCgMFAmRaBQJiTgUCZkoCZHEBCWdldE5vTGVzcwICZ2wCZ20EAmNJCQECZHABBQJkcQQCY2sIBQJjSQJfMQQCY2wIBQJjSQJfMgQCY3cIBQJjSQJfMwQCYlEIBQJjSQJfNAQCY20IBQJjSQJfNQMJAGYCBQJnbAUCY2sJAAIBCQCsAgIJAKwCAgkArAICAglGYWlsZWQ6ICAJAKQDAQUCY2sCAyA8IAkApAMBBQJnbAMJAGYCBQJnbQUCY2wJAAIBCQCsAgIJAKwCAgkArAICAghGYWlsZWQ6IAkApAMBBQJjbAIDIDwgCQCkAwEFAmdtBAJnbgkA/AcEBQJhQQIEYnVybgkAzAgCBQJjdwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiUQUCY3cFA25pbAMJAAACBQJnbgUCZ24FAmNtCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRxAQ11bnN0YWtlQW5kR2V0AQJiTQQCZ28DCQECIT0CCQCQAwEIBQJkcQhwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUCZ28FAmdvBAJiQwkBAmFGAAQCZ3AJAQJhSgAEAmRPCQDZBAEJAJEDAgUCYkMFAXIEAmdxCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJncAUBeQIKV3Igc3QgYWRkcgQCZ3IJAPwHBAUCZ3ECB3Vuc3Rha2UJAMwIAgkA2AQBBQJkTwkAzAgCBQJiTQUDbmlsBQNuaWwDCQAAAgUCZ3IFAmdyBAJjSQkBAmJPBAkA2AQBCAUCZHENdHJhbnNhY3Rpb25JZAkA2AQBBQJkTwUCYk0IBQJkcQZjYWxsZXIEAmJZCQENcGFyc2VJbnRWYWx1ZQEIBQJjSQJfOQQCY20IBQJjSQNfMTAEAmdzAwMJAQJhQwAGCQAAAgUCYlkFAW8JAAIBCQCsAgICCUJsb2NrZWQ6IAkApAMBBQJiWQYDCQAAAgUCZ3MFAmdzBAJndAkA/AcEBQJhQQIEYnVybgkAzAgCBQJiTQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkTwUCYk0FA25pbAMJAAACBQJndAUCZ3QFAmNtCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRxARN1bnN0YWtlQW5kR2V0T25lVGtuAwJndQJkUQJkUgQCZ28DCQECIT0CCQCQAwEIBQJkcQhwYXltZW50cwAACQACAQINTm8gcG1udHMgZXhwZAYDCQAAAgUCZ28FAmdvBAJiQwkBAmFGAAQCZ3AJAQJhSgAEAmRPCQDZBAEJAJEDAgUCYkMFAXIEAmdxCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJncAUBeQIKV3Igc3QgYWRkcgQCZ3IJAPwHBAUCZ3ECB3Vuc3Rha2UJAMwIAgkA2AQBBQJkTwkAzAgCBQJndQUDbmlsBQNuaWwDCQAAAgUCZ3IFAmdyBAJndgkBAmRQBgUCZFEFAmRSCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkTwUCZ3UFA25pbAgFAmRxBmNhbGxlcggFAmRxDG9yaWdpbkNhbGxlcggFAmRxDXRyYW5zYWN0aW9uSWQEAmNtCAUCZ3YCXzEEAmVhCAUCZ3YCXzIJAJQKAgUCY20FAmVhCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRxARNwdXRPbmVUa25WMlJFQURPTkxZAgJiTQJndwQCZHkJAQJhRgAEAmJVCQCRAwIFAmR5BQFzBAJiVgkAkQMCBQJkeQUBdAQCYlQJAJEDAgUCZHkFAXIEAmd4BQJndwQCZnQFAmJNBAJneQkBAmJMAQUCZnQEAmZDCAUCZ3kCXzEEAmJOCAUCZ3kCXzIEAmd6AwkAAAIFAmd4BQJiVQkAlAoCBQJmQwAAAwkAAAIFAmd4BQJiVgkAlAoCAAAFAmZDCQACAQIPaW52YWxpZCBwYXltZW50BAJnQQgFAmd6Al8xBAJnQggFAmd6Al8yBAJnQwkBAmJkAQUCYlUEAmdECQECYmQBBQJiVgQCZ0UJAGQCBQJnQwUCZ0EEAmdGCQBkAgUCZ0MFAmdCBAJicQkBAmVqAQkAzAgCCQC2AgEFAmdDCQDMCAIJALYCAQUCZ0QFA25pbAQCYnAJAQJlagEJAMwIAgkAtgIBBQJnRQkAzAgCCQC2AgEFAmdGBQNuaWwEAmdlCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJiVAIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCZ0cJALoCAgkAuQICBQJnZQkAuAICBQJicAUCYnEFAmJxCQCUCgIFA25pbAkAoAMBBQJnRwJkcQEIYWN0aXZhdGUCAmdIAmdJAwkBAiE9AgkApQgBCAUCZHEGY2FsbGVyCQClCAEFAmFBCQACAQIGZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVoABQJnSAkAzAgCCQELU3RyaW5nRW50cnkCCQECYWEABQJnSQUDbmlsAgdzdWNjZXNzAmRxAQRzZXRTAgJnSgJncwMJAQIhPQIJAKUIAQgFAmRxBmNhbGxlcgkBAmF3AgUEdGhpcwkBAmFjAAUCZVcJAMwIAgkBC1N0cmluZ0VudHJ5AgUCZ0oFAmdzBQNuaWwCZHEBBHNldEkCAmdKAmdzAwkBAiE9AgkApQgBCAUCZHEGY2FsbGVyCQECYXcCBQR0aGlzCQECYWMABQJlVwkAzAgCCQEMSW50ZWdlckVudHJ5AgUCZ0oFAmdzBQNuaWwCZHEBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBAmFGAAJkcQEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQECYmUJAJQKAgUDbmlsCQECYmQBBQJiZQJkcQEZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQMCYncCYngCYkIEAmdLCQECYkEDBQJidwUCYngFAmJCCQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCZ0sAAAkAzAgCCQCmAwEJAJEDAgUCZ0sAAQkAzAgCCQCmAwEJAJEDAgUCZ0sAAgUDbmlsAmRxARZmcm9tWDE4V3JhcHBlclJFQURPTkxZAgFHAmdMCQCUCgIFA25pbAkBAUYCCQCnAwEFAUcFAmdMAmRxARR0b1gxOFdyYXBwZXJSRUFET05MWQIBRAFFCQCUCgIFA25pbAkApgMBCQEBQwIFAUQFAUUCZHEBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQICYmcCYmgJAJQKAgUDbmlsCQCmAwEJAQJiZgIJAKcDAQUCYmcJAKcDAQUCYmgCZHEBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQJiUAJibAJjbwJjcAJjcQJjcgJnTQJjcwJjdAkAlAoCBQNuaWwJAQJjbg0FAmJQBQJibAUCY28FAmNwBQJjcQUCY3IFAmdNBQJjcwUCY3QGBwAAAgACZHEBI2VzdGltYXRlR2V0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZBAJiUAJnTgJiUgJnTQQCY0kJAQJiTwQFAmJQBQJnTgUCYlIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAmdNCQCUCgIFA25pbAkAnAoKCAUCY0kCXzEIBQJjSQJfMggFAmNJAl8zCAUCY0kCXzQIBQJjSQJfNQgFAmNJAl82CAUCY0kCXzcJAKYDAQgFAmNJAl84CAUCY0kCXzkIBQJjSQNfMTACZHEBDmdldEZlZVJFQURPTkxZAAkAlAoCBQNuaWwFAmFlAQJnTwECZ1AABAJnUQQCYXUJAQJlVQADCQABAgUCYXUCCkJ5dGVWZWN0b3IEAmVZBQJhdQUCZVkDCQABAgUCYXUCBFVuaXQIBQJnTw9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCYXUFAmdPAwkAAQIFAmF1AgVPcmRlcgQCZGQFAmF1BAJnUgkBAmFEAAQCZ1MJAQJkYwEFAmRkBAJnVAkA9AMDCAUCZGQJYm9keUJ5dGVzCQCRAwIIBQJkZAZwcm9vZnMAAAgFAmRkD3NlbmRlclB1YmxpY0tleQQCZ1UJAPQDAwgFAmRkCWJvZHlCeXRlcwkAkQMCCAUCZGQGcHJvb2ZzAAEFAmdSAwMDBQJnUwUCZ1QHBQJnVQcGCQECYXADBQJnUwUCZ1QFAmdVAwkAAQIFAmF1AhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQCZXEFAmF1BAJnVgkA9gMBCQEFdmFsdWUBCAUCZXEGc2NyaXB0BAJnVwkA2wQBCQEFdmFsdWUBCQCdCAIFAmFBCQECYW4ABAJnWAkA8QcBBQR0aGlzAwMJAAACBQJnVwUCZ1YJAQIhPQIFAmdYBQJnVgcGCQD0AwMIBQJnTwlib2R5Qnl0ZXMJAJEDAggFAmdPBnByb29mcwAABQJnUQkA9AMDCAUCZ08JYm9keUJ5dGVzCQCRAwIIBQJnTwZwcm9vZnMAAAUCZ1GQDnED",
    "chainId": 84,
    "height": 2260237,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3ppjAW5aoof9hAMn2ybH48vyf8RhKxBYPqJJKpiLZj65
Next: 5XGzi9cqEmgov9qmND2Fm4hBAoQwJQCiwKHcnPKGmPZ

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

Old	New		Differences
622	622		}
623	623
624	624
	625	+	func getYD (xp,i,D) = {
	626	+	let n = toBigInt(2)
	627	+	let x = xp[if ((i == 0))
	628	+	then 1
	629	+	else 0]
	630	+	let aPrecision = parseBigIntValue(Amult)
	631	+	let a = (parseBigIntValue(A) * aPrecision)
	632	+	let s = x
	633	+	let ann = (a * n)
	634	+	let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
	635	+	let b = ((s + ((D * aPrecision) / ann)) - D)
	636	+	func calc (acc,cur) = {
	637	+	let $t02611726137 = acc
	638	+	let y = $t02611726137._1
	639	+	let found = $t02611726137._2
	640	+	if ((found != unit))
	641	+	then acc
	642	+	else {
	643	+	let yNext = (((y * y) + c) / ((toBigInt(2) * y) + b))
	644	+	let yDiff = absBigInt((yNext - value(y)))
	645	+	if ((big1 >= yDiff))
	646	+	then $Tuple2(yNext, cur)
	647	+	else $Tuple2(yNext, unit)
	648	+	}
	649	+	}
	650	+
	651	+	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
	652	+	let $t02645226499 = {
	653	+	let $l = arr
	654	+	let $s = size($l)
	655	+	let $acc0 = $Tuple2(s, unit)
	656	+	func $f0_1 ($a,$i) = if (($i >= $s))
	657	+	then $a
	658	+	else calc($a, $l[$i])
	659	+
	660	+	func $f0_2 ($a,$i) = if (($i >= $s))
	661	+	then $a
	662	+	else throw("List size exceeds 15")
	663	+
	664	+	$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)
	665	+	}
	666	+	let y = $t02645226499._1
	667	+	let found = $t02645226499._2
	668	+	if ((found != unit))
	669	+	then y
	670	+	else throw(("Y calculation error, Y = " + toString(y)))
	671	+	}
	672	+
	673	+
625	674		func m () = match getString(mpk()) {
626	675		case s: String =>
627	676		fromBase58String(s)

793	842		let pmt = value(i.payments[0])
794	843		let pmtAssetId = toBase58String(value(pmt.assetId))
795	844		let paymentAmountRaw = pmt.amount
796		-	let $~~t03031930371~~ = takeFee(paymentAmountRaw)
797		-	let pmtAmt = $~~t03031930371~~._1
798		-	let feeAmount = $~~t03031930371~~._2
	845	+	let $t03119531247 = takeFee(paymentAmountRaw)
	846	+	let pmtAmt = $t03119531247._1
	847	+	let feeAmount = $t03119531247._2
799	848		if ((10000000 > paymentAmountRaw))
800	849		then throw("Wrong pmt amt")
801	850		else {
802	851		let amBalance = getAccBalance(amId)
803	852		let prBalance = getAccBalance(prId)
804		-	let $~~t03053131147~~ = if ((pmtAssetId == amId))
	853	+	let $t03140732023 = if ((pmtAssetId == amId))
805	854		then if (if ((paymentAmountRaw > amBalance))
806	855		then true
807	856		else (amAssetPart > pmtAmt))

814	863		then throw("invalid payment amount")
815	864		else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
816	865		else throw("wrong pmtAssetId")
817		-	let amBalanceNow = $~~t03053131147~~._1
818		-	let prBalanceNow = $~~t03053131147~~._2
819		-	let virtSwapInAm = $~~t03053131147~~._3
820		-	let virtSwapOutPr = $~~t03053131147~~._4
821		-	let virtSwapInPr = $~~t03053131147~~._5
822		-	let virtSwapOutAm = $~~t03053131147~~._6
	866	+	let amBalanceNow = $t03140732023._1
	867	+	let prBalanceNow = $t03140732023._2
	868	+	let virtSwapInAm = $t03140732023._3
	869	+	let virtSwapOutPr = $t03140732023._4
	870	+	let virtSwapInPr = $t03140732023._5
	871	+	let virtSwapOutAm = $t03140732023._6
823	872		let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
824	873		let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
825	874		let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)

1059	1108		let estimPrAmt = r._2
1060	1109		let amBalance = getAccBalance(amId)
1061	1110		let prBalance = getAccBalance(prId)
1062		-	let $~~t03940539865~~ = if ((outAssetId == amId))
	1111	+	let $t04028140741 = if ((outAssetId == amId))
1063	1112		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1064	1113		else if ((outAssetId == prId))
1065	1114		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1066	1115		else throw("wrong outAssetId")
1067		-	let amBalanceNow = $~~t03940539865~~._1
1068		-	let prBalanceNow = $~~t03940539865~~._2
1069		-	let virtSwapInAm = $~~t03940539865~~._3
1070		-	let virtSwapOutPr = $~~t03940539865~~._4
1071		-	let virtSwapInPr = $~~t03940539865~~._5
1072		-	let virtSwapOutAm = $~~t03940539865~~._6
1073		-	let totalGetRaw = $~~t03940539865~~._7
	1116	+	let amBalanceNow = $t04028140741._1
	1117	+	let prBalanceNow = $t04028140741._2
	1118	+	let virtSwapInAm = $t04028140741._3
	1119	+	let virtSwapOutPr = $t04028140741._4
	1120	+	let virtSwapInPr = $t04028140741._5
	1121	+	let virtSwapOutAm = $t04028140741._6
	1122	+	let totalGetRaw = $t04028140741._7
1074	1123		if (if ((0 > virtSwapInAm))
1075	1124		then true
1076	1125		else (0 > virtSwapInPr))

1085	1134		let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1086	1135		if ((finalRes == finalRes))
1087	1136		then {
1088		-	let $~~t04061240716~~ = if ((outAssetId == amId))
	1137	+	let $t04148841592 = if ((outAssetId == amId))
1089	1138		then $Tuple2(toInt(finalRes._2), 0)
1090	1139		else $Tuple2(0, toInt(finalRes._2))
1091		-	let outAm = $~~t04061240716~~._1
1092		-	let outPr = $~~t04061240716~~._2
	1140	+	let outAm = $t04148841592._1
	1141	+	let outPr = $t04148841592._2
1093	1142		let totalAmount = (outAm + outPr)
1094	1143		let feeAmount = (totalGetRaw - totalGet)
1095	1144		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

1121	1170
1122	1171		@Callable(i)
1123	1172		func getOneTknV2 (outAssetId,minOutAmount) = {
1124		-	let $~~t04174141896~~ = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1125		-	let state = $~~t04174141896~~._1
1126		-	let totalAmount = $~~t04174141896~~._2
	1173	+	let $t04261742772 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
	1174	+	let state = $t04261742772._1
	1175	+	let totalAmount = $t04261742772._2
1127	1176		$Tuple2(state, totalAmount)
1128	1177		}
1129	1178
1130	1179
1131	1180
1132	1181		@Callable(i)
1133		-	func ~~getOneTknV2READONLY~~ (outAssetId,lpAssetAmount) = {
	1182	+	func getOneTknV2OldREADONLY (outAssetId,lpAssetAmount) = {
1134	1183		let poolConfig = gpc()
1135	1184		let lpId = poolConfig[idxLPAsId]
1136	1185		let amId = poolConfig[idxAmAsId]

1142	1191		let prBalance = getAccBalance(prId)
1143	1192		let amBalanceNow = (amBalance - estimAmAmt)
1144	1193		let prBalanceNow = (prBalance - estimPrAmt)
1145		-	let $~~t04240642714~~ = if ((outAssetId == amId))
	1194	+	let $t04328543593 = if ((outAssetId == amId))
1146	1195		then $Tuple4(prBalanceNow, amBalanceNow, estimPrAmt, estimAmAmt)
1147	1196		else if ((outAssetId == prId))
1148	1197		then $Tuple4(amBalanceNow, prBalanceNow, estimAmAmt, estimPrAmt)
1149	1198		else throw("wrong outAssetId")
1150		-	let amountBalanceForSwap = $~~t04240642714~~._1
1151		-	let priceBalanceForSwap = $~~t04240642714~~._2
1152		-	let amountToSwap = $~~t04240642714~~._3
1153		-	let amountToAdd = $~~t04240642714~~._4
	1199	+	let amountBalanceForSwap = $t04328543593._1
	1200	+	let priceBalanceForSwap = $t04328543593._2
	1201	+	let amountToSwap = $t04328543593._3
	1202	+	let amountToAdd = $t04328543593._4
1154	1203		let yPrecision = 1
1155	1204		let exchResult = {
1156	1205		let @ = invoke(gwxContract, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)

1159	1208		else throw(($getType(@) + " couldn't be cast to Int"))
1160	1209		}
1161	1210		let totalGetRaw = (exchResult + amountToAdd)
1162		-	let $t04324243291 = takeFee(totalGetRaw)
1163		-	let totalGet = $t04324243291._1
1164		-	let feeAmount = $t04324243291._2
	1211	+	let $t04412144170 = takeFee(totalGetRaw)
	1212	+	let totalGet = $t04412144170._1
	1213	+	let feeAmount = $t04412144170._2
	1214	+	$Tuple2(nil, $Tuple2(totalGet, feeAmount))
	1215	+	}
	1216	+
	1217	+
	1218	+
	1219	+	@Callable(i)
	1220	+	func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
	1221	+	let poolConfig = gpc()
	1222	+	let amId = poolConfig[idxAmAsId]
	1223	+	let prId = poolConfig[idxPrAsId]
	1224	+	let lpId = poolConfig[idxLPAsId]
	1225	+	let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
	1226	+	let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
	1227	+	let D0 = getD(xp)
	1228	+	let D1 = (D0 - ((toBigInt(lpAssetAmount) * D0) / lpEmission))
	1229	+	let index = if ((outAssetId == amId))
	1230	+	then 0
	1231	+	else 1
	1232	+	let newY = getYD(xp, index, D1)
	1233	+	let dy = (xp[index] - newY)
	1234	+	let totalGetRaw = toInt((dy - big1))
	1235	+	let $t04485344902 = takeFee(totalGetRaw)
	1236	+	let totalGet = $t04485344902._1
	1237	+	let feeAmount = $t04485344902._2
1165	1238		$Tuple2(nil, $Tuple2(totalGet, feeAmount))
1166	1239		}
1167	1240

1175	1248		let lpId = poolConfig[idxLPAsId]
1176	1249		let amBalance = getAccBalance(amId)
1177	1250		let prBalance = getAccBalance(prId)
1178		-	let $~~t04363543750~~ = {
	1251	+	let $t04524745362 = {
1179	1252		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1180	1253		if ($isInstanceOf(@, "(Int, Int)"))
1181	1254		then @
1182	1255		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1183	1256		}
1184		-	let totalGet = $~~t04363543750~~._1
1185		-	let feeAmount = $~~t04363543750~~._2
	1257	+	let totalGet = $t04524745362._1
	1258	+	let feeAmount = $t04524745362._2
1186	1259		let r = ego("", lpId, lpAssetAmount, this)
1187	1260		let outAmAmt = r._1
1188	1261		let outPrAmt = r._2

1267	1340		let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1268	1341		if ((unstakeInv == unstakeInv))
1269	1342		then {
1270		-	let $~~t04605546243~~ = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1271		-	let state = $~~t04605546243~~._1
1272		-	let totalAmount = $~~t04605546243~~._2
	1343	+	let $t04766747855 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
	1344	+	let state = $t04766747855._1
	1345	+	let totalAmount = $t04766747855._2
1273	1346		$Tuple2(state, totalAmount)
1274	1347		}
1275	1348		else throw("Strict value is not equal to itself.")

1287	1360		let lpId = poolConfig[idxLPAsId]
1288	1361		let paymentAsset = asset
1289	1362		let paymentAmountRaw = amount
1290		-	let $~~t04667146761~~ = takeFee(paymentAmountRaw)
1291		-	let paymentAmount = $~~t04667146761~~._1
1292		-	let feeAmount = $~~t04667146761~~._2
1293		-	let $~~t04676546947~~ = if ((paymentAsset == amId))
	1363	+	let $t04828348373 = takeFee(paymentAmountRaw)
	1364	+	let paymentAmount = $t04828348373._1
	1365	+	let feeAmount = $t04828348373._2
	1366	+	let $t04837748559 = if ((paymentAsset == amId))
1294	1367		then $Tuple2(paymentAmount, 0)
1295	1368		else if ((paymentAsset == prId))
1296	1369		then $Tuple2(0, paymentAmount)
1297	1370		else throw("invalid payment")
1298		-	let amAmount = $~~t04676546947~~._1
1299		-	let prAmount = $~~t04676546947~~._2
	1371	+	let amAmount = $t04837748559._1
	1372	+	let prAmount = $t04837748559._2
1300	1373		let amBalanceOld = getAccBalance(amId)
1301	1374		let prBalanceOld = getAccBalance(prId)
1302	1375		let amBalanceNew = (amBalanceOld + amAmount)

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

github/deemru/w8io/c3f4982 
138.45 ms ◑