tx · 8pUe4G6CMft4BcS29qBkRwiyCnpsmixyf6P1cZGAWEJD

3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni:  -0.03200000 Waves

2023.01.10 13:41 [2398740] smart account 3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8pUe4G6CMft4BcS29qBkRwiyCnpsmixyf6P1cZGAWEJD",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1673347328860,
    "version": 1,
    "sender": "3MtP3m8hWMxYcyDxXB6n299KrsLLyT8ehni",
    "senderPublicKey": "BRyVaCURUMe7ssUbXucteig1g44bGwWirJQzugKahUQ1",
    "proofs": [
        "LgzsexWiSRgwnUaNjFgFamdeDqZ2utXHKHJeKw5dM1n5sBm5sVcp8jUtM8g7uvtMR5RVgFG2gp2Uj6gN7cFTTeq"
    ],
    "script": "base64:BgKmIggCEgMKAQgSAwoBCBIAEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEBARIFCgMBCAESBAoCAQgSBAoCAQgSBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCCIGc2NhbGU4IgxzY2FsZThCaWdJbnQiB3NjYWxlMTgiCnplcm9CaWdJbnQiBGJpZzAiBGJpZzEiBGJpZzIiCnNsaXBwYWdlNEQiC3dhdmVzU3RyaW5nIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhJpZHhGYWN0b3J5UmVzdENudHIiEGlkeEZhY3RTbGlwcENudHIiEWlkeEZhY3RHd3hSZXdDbnRyIgpmZWVEZWZhdWx0IgJ0MSIHb3JpZ1ZhbCINb3JpZ1NjYWxlTXVsdCICZjEiA3ZhbCIPcmVzdWx0U2NhbGVNdWx0IgJ0cyIDYW10IghyZXNTY2FsZSIIY3VyU2NhbGUiA2FicyIJYWJzQmlnSW50IgJmYyIDbXBrIgRwbXBrIgJwbCICcGgiAWgiAXQiA3BhdSICdWEiBHR4SWQiA2dhdSICYWEiAnBhIgNhbXAiA2FkYSIEZmNmZyIEbXRwayICcGMiBmlBbXRBcyIFaVByQXMiA21iYSIFYkFTdHIiA2FwcyIca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIDdG9lIgNvclYiBnNlbmRyViIGbWF0Y2hWIgNzdHIiByRtYXRjaDAiBnZhbFN0ciIEc3RyZiIEYWRkciIDa2V5IgRpbnRmIgh0aHJvd0VyciIDbXNnIgNmY2EiBWluRmVlIgFAIgZvdXRGZWUiAUEiA2lncyICbXAiE2ZlZUNvbGxlY3RvckFkZHJlc3MiA2dwYyIFYW10QXMiB3ByaWNlQXMiCGlQcmljZUFzIgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNjkwOTcwOTUiDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIgNnZmMiDWZhY3RvcnlDb25maWciD3N0YWtpbmdDb250cmFjdCIPc2xpcGFnZUNvbnRyYWN0Igtnd3hDb250cmFjdCIMcmVzdENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIDZmVlIglmZWVBbW91bnQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiCWluQW1JZFN0ciIJaW5QcklkU3RyIgZhbXREY20iCHByaWNlRGNtIgRscEVtIg9pbkFtQXNzZXRBbXRYMTgiD2luUHJBc3NldEFtdFgxOCIMdXNlclByaWNlWDE4IgFyIgtzbGlwcGFnZVgxOCIPc2xpcHBhZ2VSZWFsWDE4Ig1scEVtaXNzaW9uWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIg0kdDAxNzU2MjE3OTA3Igp3cml0ZUFtQW10Igp3cml0ZVByQW10Igtjb21tb25TdGF0ZSIDbW9hIgVvcmRlciIHYW10QXNJZCIGcHJBc0lkIg9hY2NBbXRBc0JhbGFuY2UiDmFjY1ByQXNCYWxhbmNlIgpvckFtdEFzc2V0IgpvckFtdEFzU3RyIglvclByQXNzZXQiCW9yUHJBc1N0ciIKb3JkZXJQcmljZSIOY2FzdE9yZGVyUHJpY2UiEWlzT3JkZXJQcmljZVZhbGlkIgJjZyIBaSIDcG10IgJjcCIGY2FsbGVyIgdhbUFzUG10IgdwckFzUG10IgRnZXREIgJ4cCIBbiIDeHAwIgN4cDEiCmFQcmVjaXNpb24iAWEiAXMiA2FubiILeHAwX3hwMV9uX24iEGFubl9zX2FQcmVjaXNpb24iDmFubl9hUHJlY2lzaW9uIgJuMSIEY2FsYyIDYWNjIgNjdXIiDSR0MDIyNDU5MjI0NzkiAWQiBWZvdW5kIgJkcCIFZE5leHQiBWREaWZmIgNhcnIiDSR0MDIyOTAwMjI5NDciAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjM0NDcyMzQ2NyIBeSIFeU5leHQiBXlEaWZmIg0kdDAyMzc3NDIzODIxIg1jYWxjUHV0T25lVGtuIglwbXRBbXRSYXciC3dpdGhUYWtlRmVlIg9scEFzc2V0RW1pc3Npb24iDWNoZWNoRW1pc3Npb24iDSR0MDI0NjA0MjUwNjYiDGFtQmFsYW5jZU9sZCIMcHJCYWxhbmNlT2xkIg0kdDAyNTA3MjI1MjQ4IgthbUFtb3VudFJhdyILcHJBbW91bnRSYXciDSR0MDI1MjUyMjU1MDYiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciBmNoZWNrRCIIbHBBbW91bnQiDnBvb2xQcm9wb3J0aW9uIg9hbW91bnRBc3NldFBhcnQiDnByaWNlQXNzZXRQYXJ0IglscEFtdEJvdGgiBWJvbnVzIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDI3NTA4Mjc2MTkiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjc4MDkyODExNiIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgFtIgJwbSICcGQiCWlzTWFuYWdlciICcGsiAm1tIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSICY20iA2hwbSIDY3BtIgRzbGlwIglhdXRvU3Rha2UiB2ZhY3RDZmciC3N0YWtpbmdDbnRyIghzbGlwQ250ciIBZSIJbHBBc3NldElkIgJlbCIGbGVnYWN5IgJzYSICc3AiCGxwVHJuc2ZyIgJzcyIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiBmNoZWNrcyINJHQwMzM0NzgzMzYzNiIHZXN0aW1MUCIHbWF4U2xwZyIGZXN0UHV0IglvdXRBbXRBbXQiDWlzR2V0RGlzYWJsZWQiDSR0MDM2MjU4MzY0MTMiDWxwQXNzZXRBbW91bnQiCmxwRW1pc3Npb24iBWluZGV4IgRuZXdZIgJkeSILdG90YWxHZXRSYXciDSR0MDM3MjAzMzcyNTgiDSR0MDM3NjAzMzc3MTgiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDXVuc3Rha2VBbW91bnQiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIDcmVzIgxjaGVja0Ftb3VudHMiDSR0MDQxNTU2NDE3NDQiEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIg0kdDA0MjAwMzQyMTA2Ig0kdDA0MjM4NTQyNDg5IghhbXRBc1N0ciIHcHJBc1N0ciIBayICcHIiDHJlc1NjYWxlTXVsdCIHdXNyQWRkciIHcG10QXNJZCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2htAAFhAIDC1y8AAWIJALYCAQCAwtcvAAFjCQC2AgEAgICQu7rWrfANAAFkCQC2AgEAAAABZQkAtgIBAAAAAWYJALYCAQABAAFnCQC2AgEAAgABaAkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWkCBVdBVkVTAAFqAgMxMDAAAWsCATEAAWwCAl9fAAFtAgAAAW4AAQABbwACAAFwAAMAAXEABAABcgABAAFzAAIAAXQAAwABdQAEAAF2AAUAAXcABgABeAAHAAF5AAgAAXoACQABQQABAAFCAAYAAUMABwABRAAKAAFFCQBrAwAKBQFhAJBOAQFGAgFHAUgJALwCAwkAtgIBBQFHBQFjCQC2AgEFAUgBAUkCAUoBSwkAoAMBCQC8AgMFAUoJALYCAQUBSwUBYwEBTAMBTQFOAU8JAGsDBQFNBQFOBQFPAQFQAQFKAwkAvwICBQFkBQFKCQC+AgEFAUoFAUoBAVEBAUoDCQC/AgIFAWQFAUoJAL4CAQUBSgUBSgEBUgACEyVzX19mYWN0b3J5Q29udHJhY3QBAVMAAhQlc19fbWFuYWdlclB1YmxpY0tleQEBVAACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQEBVQACESVzJXNfX3ByaWNlX19sYXN0AQFWAgFXAVgJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFXCQDMCAIJAKQDAQUBWAUDbmlsBQFsAQFZAgFaAmFhCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUBWgICX18FAmFhAQJhYgIBWgJhYQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAVoCAl9fBQJhYQECYWMAAg8lc19fYW1vdW50QXNzZXQBAmFkAAIOJXNfX3ByaWNlQXNzZXQBAmFlAAIHJXNfX2FtcAECYWYAAg0lc19fYWRkb25BZGRyAQJhZwACESVzX19mYWN0b3J5Q29uZmlnAQJhaAACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQECYWkCAmFqAmFrCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQJhagICX18FAmFrAghfX2NvbmZpZwECYWwBAmFtCQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FAmFtAQJhbgACDCVzX19zaHV0ZG93bgECYW8AAh0lc19fYWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAECYXAAAhclc19fZmVlQ29sbGVjdG9yQWRkcmVzcwECYXEDAmFyAmFzAmF0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEUZhaWxlZDogb3JkVmFsaWQ9CQClAwEFAmFyAgsgc25kclZhbGlkPQkApQMBBQJhcwIMIG10Y2hyVmFsaWQ9CQClAwEFAmF0AQJhdQEBSgQCYXYFAUoDCQABAgUCYXYCBlN0cmluZwQCYXcFAmF2BQJhdwkAAgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBAmF4AgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFBAgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFCAQJhQwkAAgEJALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYUMFA25pbAIBIAACYUQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJheAIFBHRoaXMJAQFSAAACYUUKAAJhRgkA/AcEBQJhRAIQZ2V0SW5GZWVSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgNJbnQFAmFGCQACAQkArAICCQADAQUCYUYCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAACYUcKAAJhRgkA/AcEBQJhRAIRZ2V0T3V0RmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIDSW50BQJhRgkAAgEJAKwCAgkAAwEFAmFGAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFICQECYXgCBQR0aGlzCQECYWUAAQJhSQAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUQJAQJhbgAHAQJhSgAJANkEAQkBAmF4AgUCYUQJAQJhaAAAAmFLCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXgCBQJhRAkBAmFwAAECYUwABAJhTQkBAmF4AgUEdGhpcwkBAmFjAAQCYU4JAQJheAIFBHRoaXMJAQJhZAAEAmFPCQECYUECBQJhRAkBAmFsAQUCYU4EAmFqCQECYUECBQJhRAkBAmFsAQUCYU0JALUJAgkBAmF4AgUCYUQJAQJhaQIJAKQDAQUCYWoJAKQDAQUCYU8FAWwBAmFQAQJhUQMJAAACBQJhUQUBaQUEdW5pdAkA2QQBBQJhUQECYVIBAmFRAwkAAAIFAmFRBQR1bml0BQFpCQDYBAEJAQV2YWx1ZQEFAmFRAQJhUwECYVQJAJkKBwkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJhVAUBcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQFzCQDZBAEJAJEDAgUCYVQFAXQJAQJhUAEJAJEDAgUCYVQFAXUJAQJhUAEJAJEDAgUCYVQFAXYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4AAJhVQkBAmFTAQkBAmFMAAACYVYFAmFVAAJhVwgFAmFWAl8xAAJhWAgFAmFWAl8yAAJhWQgFAmFWAl8zAAJhWggFAmFWAl80AAJiYQgFAmFWAl81AAJiYggFAmFWAl82AAJiYwgFAmFWAl83AQJiZAAJALUJAgkBAmF4AgUCYUQJAQJhZwAFAWwAAmJlCQECYmQAAAJiZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUECIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJiZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUMCIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJiaAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUQCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MAAmJpCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiZQUBQgIcSW52YWxpZCBnd3ggY29udHJhY3QgYWRkcmVzcwECYmoKAmJrAmJsAmJtAmJuAmJvAmJwAmJxAmJyAmJzAmJ0CQC5CQIJAMwIAgIUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJiawkAzAgCCQCkAwEFAmJsCQDMCAIJAKQDAQUCYm0JAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJvCQDMCAIJAKQDAQUCYnAJAMwIAgkApAMBBQJicQkAzAgCCQCkAwEFAmJyCQDMCAIJAKQDAQUCYnMJAMwIAgkApAMBBQJidAUDbmlsBQFsAQJidQYCYnYCYncCYngCYm4CYnECYnIJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJidgkAzAgCCQCkAwEFAmJ3CQDMCAIJAKQDAQUCYngJAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJxCQDMCAIJAKQDAQUCYnIFA25pbAUBbAECYnkBAmJ6AwkAAAIFAmJ6AgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQJiegECYkECAmJCAmJDCQC8AgMFAmJCBQFjBQJiQwECYkQDAmJFAmJGAmJHBAJiSAkAvAIDCQC4AgIFAmJFBQJiRgUBYgUCYkYEAmJJCQC/AgIJALgCAgUCYkcJAQFQAQUCYkgFAWQDCQEBIQEFAmJJCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFAmJICQCUCgIFAmJJCQCZAwEJAMwIAgUCYkUJAMwIAgUCYkYFA25pbAECYkoDAmJLAmJMAmJNBAJiSAkAvAIDBQJiTAUBYgUCYksEAmJOCQC/AgIFAmJNBQJiSAMDBQJiTgYJAL8CAgUCYkwFAmJLCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJiTAIBIAkApgMBBQJiSwIBIAkApgMBBQJiSAIBIAkApgMBBQJiTQUCYk4BAmJPBAJiUAJiUQJiUgJiUwQCYlQJAQFGAgUCYlIFAmJQBAJiVQkBAUYCBQJiUwUCYlEJAQJiQQIFAmJVBQJiVAECYlYDAmJSAmJTAmJXBAJiWAkBAmFMAAQCYlkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCYloJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY2EJAQJiTwQFAmJZBQJiWgUCYlIFAmJTBAJiQwkBAUYCBQJiUgUCYlkEAmJCCQEBRgIFAmJTBQJiWgQCY2IJAQFGAgUCYlcFAWEEAmNjCQECYkECBQJiQwUCY2IEAmNkCQECYkECBQJiQgUCY2IJAMwIAgUCY2EJAMwIAgUCY2MJAMwIAgUCY2QFA25pbAECY2UDAmJSAmJTAmJXBAJjZgkBAmJWAwUCYlIFAmJTBQJiVwkAzAgCCQEBSQIJAJEDAgUCY2YAAAUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAQUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAgUBYQUDbmlsAQJjZwICY2gCY2kEAmNqAwkAAAIFAmNpAAAAAAkAawMFAmNoBQJjaQUBYQkAlAoCCQBlAgUCY2gFAmNqBQJjagECY2sEAmNsAmNtAmNuAmNvBAJiWAkBAmFMAAQCY3AJAJEDAgUCYlgFAXQEAmNxCQCRAwIFAmJYBQF1BAJjcgkAkQMCBQJiWAUBdgQCY3MJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY3QJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmN2CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCY3ACC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUCY3AFAmNtCQACAQIPV3JvbmcgcG10IGFzc2V0BAJjdwkBAmJ5AQUCY3EEAmN4CQEBRgIFAmN3BQJjcwQCY3kJAQJieQEFAmNyBAJjegkBAUYCBQJjeQUCY3QEAmNBCQECYkECBQJjegUCY3gEAmNCCQEBSQIFAmNBBQFhBAJjQwkBAUYCBQJjbgUBYQQCY0QJAQFGAgUCY3YFAWEEAmNFCQC8AgMFAmN4BQJjQwUCY0QEAmNGCQC8AgMFAmN6BQJjQwUCY0QEAmNHCQEBSQIFAmNFBQJjcwQCY0gJAQFJAgUCY0YFAmN0BAJjSQMJAAACBQJjbAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCY28FAmNHAwkAAAIFAmNxAgVXQVZFUwUEdW5pdAkA2QQBBQJjcQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJjbwUCY0gDCQAAAgUCY3ICBVdBVkVTBQR1bml0CQDZBAEFAmNyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYgIJAKUIAQUCY28FAmNsCQECYnUGBQJjRwUCY0gFAmNuBQJjQgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVUABQJjQgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVYCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjQgUDbmlsCQCcCgoFAmNHBQJjSAUCY3EFAmNyBQJjdwUCY3kFAmN2BQJjQQUCY3UFAmNJAQJjSg0CY2wCYkcCY0sCY0wCY00CY04CY28CY08CY1ACY1ECY1ICY1MCY1QEAmJYCQECYUwABAJjcAkA2QQBCQCRAwIFAmJYBQF0BAJjVQkAkQMCBQJiWAUBdQQCY1YJAJEDAgUCYlgFAXYEAmNXCQCRAwIFAmJYBQF5BAJjWAkAkQMCBQJiWAUBegQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmRhCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNwAghXciBscCBhcwhxdWFudGl0eQQCY3cDBQJjTwkBAmJ5AQUCY1UDAwUCY1EJAAACBQJjVAUCY1UHCQBlAgkBAmJ5AQUCY1UFAmNTAwUCY1EJAQJieQEFAmNVCQBlAgkBAmJ5AQUCY1UFAmNLBAJjeQMFAmNPCQECYnkBBQJjVgMDBQJjUQkAAAIFAmNUBQJjVgcJAGUCCQECYnkBBQJjVgUCY1MDBQJjUQkBAmJ5AQUCY1YJAGUCCQECYnkBBQJjVgUCY00EAmRiCQEBRgIFAmNLBQJjWQQCZGMJAQFGAgUCY00FAmNaBAJkZAkBAmJBAgUCZGMFAmRiBAJjeAkBAUYCBQJjdwUCY1kEAmN6CQEBRgIFAmN5BQJjWgQCZGUDCQAAAgUCZGEAAAQCY0EFAWQEAmRmBQFkBAJjYgkAdgYJALkCAgUCZGIFAmRjAAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEBSQIFAmNiBQFhCQEBSQIFAmRiBQJjWQkBAUkCBQJkYwUCY1oJAQJiQQIJALcCAgUCY3oFAmRjCQC3AgIFAmN4BQJkYgUCZGYEAmNBCQECYkECBQJjegUCY3gEAmRnCQC8AgMJAQFQAQkAuAICBQJjQQUCZGQFAWMFAmNBBAJkZgkBAUYCBQJiRwUBYQMDAwUCY1IJAQIhPQIFAmNBBQFkBwkAvwICBQJkZwUCZGYHCQACAQkArAICCQCsAgIJAKwCAgIPUHJpY2Ugc2xpcHBhZ2UgCQCmAwEFAmRnAgMgPiAJAKYDAQUCZGYEAmRoCQEBRgIFAmRhBQFhBAJkaQkAvAIDBQJkYgUCY0EFAWMEAmRqCQC8AgMFAmRjBQFjBQJjQQQCZGsDCQC/AgIFAmRpBQJkYwkAlAoCBQJkagUCZGMJAJQKAgUCZGIFAmRpBAJkbAgFAmRrAl8xBAJkbQgFAmRrAl8yBAJjYgkAvAIDBQJkaAUCZG0FAmN6CQCXCgUJAQFJAgUCY2IFAWEJAQFJAgUCZGwFAmNZCQEBSQIFAmRtBQJjWgUCY0EFAmRmBAJkbggFAmRlAl8xBAJkbwgFAmRlAl8yBAJkcAgFAmRlAl8zBAJjQgkBAUkCCAUCZGUCXzQFAWEEAmRxCQEBSQIIBQJkZQJfNQUBYQMJAGcCAAAFAmRuCQACAQIHTFAgPD0gMAQCZHIDCQEBIQEFAmNQAAAFAmRuBAJkcwkAZQIFAmNLBQJkbwQCZHQJAGUCBQJjTQUCZHAEAmR1AwMFAmNRCQAAAgUCY1QFAmNVBwkAlAoCBQJjUwAAAwMFAmNRCQAAAgUCY1QFAmNWBwkAlAoCAAAFAmNTCQCUCgIFAmRvBQJkcAQCZHYIBQJkdQJfMQQCZHcIBQJkdQJfMgQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCY2wJAQJiagoFAmR2BQJkdwUCZHIFAmNCBQJiRwUCZHEFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmRzBQJkdAUDbmlsCQCfCg0FAmRuBQJkcgUCY0IFAmN3BQJjeQUCZGEFAmNwBQJjdQUCZHgFAmRzBQJkdAUCY0wFAmNOAQJkeQECZHoEAmJYCQECYUwABAJkQQkAkQMCBQJiWAUBdQQCZEIJAJEDAgUCYlgFAXYEAmN1CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXMEAmJZCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXcEAmJaCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXgEAmRDCQECYnkBBQJkQQQCZEQJAQJieQEFAmRCBAJjQQMJAAACCAUCZHoJb3JkZXJUeXBlBQNCdXkJAQJiTwQFAmJZBQJiWgkAZAIFAmRDCAUCZHoGYW1vdW50BQJkRAkBAmJPBAUCYlkFAmJaCQBlAgUCZEMIBQJkegZhbW91bnQFAmREBAJjQgkBAUkCBQJjQQUBYQMDAwkBAmFJAAYJAAACBQJjdQUBcAYJAAACBQJjdQUBcQkAAgECDUFkbWluIGJsb2NrZWQEAmRFCAgFAmR6CWFzc2V0UGFpcgthbW91bnRBc3NldAQCZEYDCQAAAgUCZEUFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRFBAJkRwgIBQJkeglhc3NldFBhaXIKcHJpY2VBc3NldAQCZEgDCQAAAgUCZEcFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRHAwMJAQIhPQIFAmRGBQJkQQYJAQIhPQIFAmRIBQJkQgkAAgECCVdyIGFzc2V0cwQCZEkIBQJkegVwcmljZQQCY1oJAGsDBQFhBQJiWgUCYlkEAmRKCQEBTAMFAmRJBQFhBQJjWgQCZEsDCQAAAggFAmR6CW9yZGVyVHlwZQUDQnV5CQBnAgUCY0IFAmRKCQBnAgUCZEoFAmNCBgECZEwBAmRNAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmROCQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABAJjbQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJkZQkBAmNrBAkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkA2AQBBQJjbQUCY1MIBQJkTQZjYWxsZXIEAmNHCAUCZGUCXzEEAmNICAUCZGUCXzIEAmN1CQENcGFyc2VJbnRWYWx1ZQEIBQJkZQJfOQQCY0kIBQJkZQNfMTADAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmN1CQCXCgUFAmNHBQJjSAUCY1MFAmNtBQJjSQECZE8KAmRQAmFhAmRRAmRSAmJHAmNQAmNRAmNSAmNTAmNUBAJkZQkBAmNKDQUCYWEFAmJHCAkBBXZhbHVlAQUCZFEGYW1vdW50CAkBBXZhbHVlAQUCZFEHYXNzZXRJZAgJAQV2YWx1ZQEFAmRSBmFtb3VudAgJAQV2YWx1ZQEFAmRSB2Fzc2V0SWQFAmRQCQAAAgUCYWECAAUCY1AFAmNRBQJjUgUCY1MFAmNUBAJjdQkBDXBhcnNlSW50VmFsdWUBCAUCZGUCXzgDAwMJAQJhSQAGCQAAAgUCY3UFAW8GCQAAAgUCY3UFAXEJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmN1BQJkZQECZFMBAmRUBAJkVQUBZwQCZFYJAJEDAgUCZFQAAAQCZFcJAJEDAgUCZFQAAQQCZFgJAKcDAQUBagQCZFkJALkCAgkApwMBBQJhSAUCZFgEAmRaCQC3AgIFAmRWBQJkVwMJAAACBQJkWgUBZQUBZQQCZWEJALkCAgUCZFkFAmRVBAJlYgkAuQICCQC5AgIJALkCAgUCZFYFAmRXBQJkVQUCZFUEAmVjCQC6AgIJALkCAgUCZWEFAmRaBQJkWAQCZWQJALgCAgUCZWEFAmRYBAJlZQkAtwICBQJkVQUBZgoBAmVmAgJlZwJlaAQCZWkFAmVnBAJlaggFAmVpAl8xBAJlawgFAmVpAl8yAwkBAiE9AgUCZWsFBHVuaXQFAmVnBAJlbAkAugICCQC5AgIJALkCAgUCZWoFAmVqBQJlagUCZWIEAmVtCQC6AgIJALkCAgkAtwICBQJlYwkAuQICBQJlbAUCZFUFAmVqCQC3AgIJALoCAgkAuQICBQJlZAUCZWoFAmRYCQC5AgIFAmVlBQJlbAQCZW4JAQFRAQkAuAICBQJlbQkBBXZhbHVlAQUCZWoDCQDAAgIFAWYFAmVuCQCUCgIFAmVtBQJlaAkAlAoCBQJlbQUEdW5pdAQCZW8JAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZXAKAAJlcQUCZW8KAAJlcgkAkAMBBQJlcQoAAmVzCQCUCgIFAmRaBQR1bml0CgECZXQCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAQJlZgIFAmV1CQCRAwIFAmVxBQJldgoBAmV3AgJldQJldgMJAGcCBQJldgUCZXIFAmV1CQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJldwIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIFAmVzAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmVqCAUCZXACXzEEAmVrCAUCZXACXzIDCQECIT0CBQJlawUEdW5pdAUCZWoJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZWoBAmV4AwJkVAJkTQJleQQCZFUFAWcEAmV6CQCRAwIFAmRUAwkAAAIFAmRNAAAAAQAABAJkWAkApwMBBQFqBAJkWQkAuQICCQCnAwEFAmFIBQJkWAQCZFoFAmV6BAJlYQkAuQICBQJkWQUCZFUEAmVBCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXkFAmV5CQC5AgIFAmV6BQJkVQUCZXkFAmRYCQC5AgIFAmVhBQJkVQQCZUIJALgCAgkAtwICBQJkWgkAugICCQC5AgIFAmV5BQJkWAUCZWEFAmV5CgECZWYCAmVnAmVoBAJlQwUCZWcEAmVECAUCZUMCXzEEAmVrCAUCZUMCXzIDCQECIT0CBQJlawUEdW5pdAUCZWcEAmVFCQC6AgIJALcCAgkAuQICBQJlRAUCZUQFAmVBCQC3AgIJALkCAgUBZwUCZUQFAmVCBAJlRgkBAVEBCQC4AgIFAmVFCQEFdmFsdWUBBQJlRAMJAMACAgUBZgUCZUYJAJQKAgUCZUUFAmVoCQCUCgIFAmVFBQR1bml0BAJlbwkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlRwoAAmVxBQJlbwoAAmVyCQCQAwEFAmVxCgACZXMJAJQKAgUCZXkFBHVuaXQKAQJldAICZXUCZXYDCQBnAgUCZXYFAmVyBQJldQkBAmVmAgUCZXUJAJEDAgUCZXEFAmV2CgECZXcCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmV3AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgUCZXMAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUQIBQJlRwJfMQQCZWsIBQJlRwJfMgMJAQIhPQIFAmVrBQR1bml0BQJlRAkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlRAECZUgFAmVJAmNtAmNvAmFhAmVKBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBeAQCZUsJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmNwAhBpbnZhbGlkIGxwIGFzc2V0CHF1YW50aXR5BAJlTAMJAL8CAgUCZUsFAWUGCQACAQIiaW5pdGlhbCBkZXBvc2l0IHJlcXVpcmVzIGFsbCBjb2lucwMJAAACBQJlTAUCZUwEAmN3CQECYnkBBQJjcQQCY3kJAQJieQEFAmNyBAJlTQMJAAACBQJhYQIACQCUCgIFAmN3BQJjeQMJAAACBQJjbQUCY3EDCQBmAgUCZUkFAmN3CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY3cFAmVJBQJjeQMJAAACBQJjbQUCY3IDCQBmAgUCZUkFAmN5CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjdwkAZQIFAmN5BQJlSQkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmVOCAUCZU0CXzEEAmVPCAUCZU0CXzIEAmVQAwkAAAIFAmNtBQJjcQkAlAoCBQJlSQAAAwkAAAIFAmNtBQJjcgkAlAoCAAAFAmVJCQACAQIPaW52YWxpZCBwYXltZW50BAJlUQgFAmVQAl8xBAJlUggFAmVQAl8yBAJlUwMFAmVKCQCVCgMICQECY2cCBQJlUQUCYUUCXzEICQECY2cCBQJlUgUCYUUCXzEICQECY2cCBQJlSQUCYUUCXzIJAJUKAwUCZVEFAmVSAAAEAmVUCAUCZVMCXzEEAmVVCAUCZVMCXzIEAmNqCAUCZVMCXzMEAmVWCQBkAgUCZU4FAmVUBAJlVwkAZAIFAmVPBQJlVQQCYkwJAQJkUwEJAMwIAgkAtgIBBQJlTgkAzAgCCQC2AgEFAmVPBQNuaWwEAmJLCQECZFMBCQDMCAIJALYCAQUCZVYJAMwIAgkAtgIBBQJlVwUDbmlsBAJlWAMJAL8CAgUCYksFAmJMBgkBBXRocm93AAMJAAACBQJlWAUCZVgEAmVZCQC8AgMFAmVLCQC4AgIFAmJLBQJiTAUCYkwEAmNCCQEBSQIJAQJiQQIJAQFGAgUCZVcFAmNaCQEBRgIFAmVWBQJjWQUBYQQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCYWEJAQJiagoFAmVRBQJlUgkAoAMBBQJlWQUCY0IAAAAABQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wAAAAAAUDbmlsBAJlWgkAawMFAmVPBQFhBQJlTgQCZmEJAGsDBQJlSQUBYQkAZAIFAmVaBQFhBAJmYgkAZQIFAmVJBQJmYQQCZmMJALwCAwUCZUsJALYCAQUCZmIJALYCAQUCZU8EAmZkCQCgAwEJALwCAwkAuAICBQJlWQUCZmMFAWIFAmZjCQCWCgQJAKADAQUCZVkFAmR4BQJjagUCZmQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmZlBgJmZgJmZwJmaAJkUAJmaQJmagQCYVQJAQJhTAAEAmNwCQCRAwIFAmFUBQF0BAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmZrCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXcEAmZsCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXgEAmZtCQCRAwIFAmFUBQFzBAJjbwMJAAACBQJkUAUCYmkFAmZpBQJkUAQCZE4JAQV2YWx1ZQEJAJEDAgUCZmgAAAQCY20JAQV2YWx1ZQEIBQJkTgdhc3NldElkBAJjUwgFAmROBmFtb3VudAQCY2wJANgEAQUCZmoDCQECIT0CBQJjcAkA2AQBBQJjbQkAAgECCFdyb25nIExQBAJjdwkBAmJ5AQUCY3EEAmN5CQECYnkBBQJjcgQCZm4KAAJhRgkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZmCQDMCAIFAmNTBQNuaWwFA25pbAMJAAECBQJhRgIKKEludCwgSW50KQUCYUYJAAIBCQCsAgIJAAMBBQJhRgIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQJmbgUCZm4EAmNqCAUCZm4CXzIEAmZvCAUCZm4CXzEEAmZwAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZvBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZvBAJmcQMJAAACBQJmZgUCY3EJAJYKBAUCZnAAAAkAZQIJAGUCBQJjdwUCZnAFAmNqBQJjeQMJAAACBQJmZgUCY3IJAJYKBAAABQJmcAUCY3cJAGUCCQBlAgUCY3kFAmZwBQJjagkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJmcggFAmZxAl8xBAJmcwgFAmZxAl8yBAJlVggFAmZxAl8zBAJlVwgFAmZxAl80BAJmdAkBAmJBAgkBAUYCBQJlVwUCZmwJAQFGAgUCZVYFAmZrBAJmdQkBAUkCBQJmdAUBYQQCZnYDCQAAAgUCZmYCBVdBVkVTBQR1bml0CQDZBAEFAmZmBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagUCZnYFA25pbAUDbmlsBAJjSQkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmNvBQJmcAUCZnYJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAgkApQgBBQJjbwUCY2wJAQJidQYFAmZyBQJmcwUCY1MFAmZ1BQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVQAFAmZ1CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmZ1BQNuaWwFAmZ3AwkAAAIFAmNJBQJjSQQCZngJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCY1MFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY20FAmNTBQNuaWwDCQAAAgUCZngFAmZ4CQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZnkABAJhdgkAoggBCQEBUwADCQABAgUCYXYCBlN0cmluZwQCZFoFAmF2CQDZBAEFAmRaAwkAAQIFAmF2AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmZ6AAQCYXYJAKIIAQkBAVQAAwkAAQIFAmF2AgZTdHJpbmcEAmRaBQJhdgkA2QQBBQJkWgMJAAECBQJhdgIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJmQQkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJmQgECZE0EAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYJAAACCAUCZE0PY2FsbGVyUHVibGljS2V5BQJmQwMJAAECBQJhdgIEVW5pdAkAAAIIBQJkTQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgECZkQBAmRNBAJhdgkBAmZ5AAMJAAECBQJhdgIKQnl0ZVZlY3RvcgQCZkMFAmF2AwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkFAmZDBgUCZkEDCQABAgUCYXYCBFVuaXQDCQAAAggFAmRNBmNhbGxlcgUEdGhpcwYFAmZBCQACAQILTWF0Y2ggZXJyb3IbAmRNAQtjb25zdHJ1Y3RvcgEBUgQCZUEJAQJmRAEFAmRNAwkAAAIFAmVBBQJlQQkAzAgCCQELU3RyaW5nRW50cnkCCQEBUgAFAVIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEKc2V0TWFuYWdlcgECZkUEAmVBCQECZkQBBQJkTQMJAAACBQJlQQUCZUEEAmZGCQDZBAEFAmZFAwkAAAIFAmZGBQJmRgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVAAFAmZFBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDmNvbmZpcm1NYW5hZ2VyAAQCY2YJAQJmegAEAmZHAwkBCWlzRGVmaW5lZAEFAmNmBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmRwUCZkcEAmZIAwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmNmBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmSAUCZkgJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVMACQDYBAEJAQV2YWx1ZQEFAmNmCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFUAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQNwdXQCAmZJAmZKBAJmSwkBAmJkAAQCZkwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZLBQFBAgpXciBzdCBhZGRyBAJmTQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZksFAUMCCldyIHNsIGFkZHIDCQBmAgAABQJmSQkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZk4JAQJkTwoJAKUIAQgFAmRNBmNhbGxlcgkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZE0IcGF5bWVudHMAAQUCZkkGBwYAAAIABAJkcggFAmZOAl8yBAJmTwgFAmZOAl83BAJjSQgFAmZOAl85BAJkcwgFAmZOA18xMAQCZHQIBQJmTgNfMTEEAmNxCAUCZk4DXzEyBAJjcggFAmZOA18xMwQCZGUJAPwHBAUCYUQCBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsAwkAAAIFAmRlBQJkZQQCZlAEAmF2BQJkZQMJAAECBQJhdgIHQWRkcmVzcwQCZlEFAmF2CQD8BwQFAmZRAgRlbWl0CQDMCAIFAmRyBQNuaWwFA25pbAUEdW5pdAMJAAACBQJmUAUCZlAEAmZSAwkAZgIFAmRzAAAJAPwHBAUCZk0CA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjcQUCZHMFA25pbAUDbmlsAwkAAAIFAmZSBQJmUgQCZlMDCQBmAgUCZHQAAAkA/AcEBQJmTQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNyBQJkdAUDbmlsBQNuaWwDCQAAAgUCZlMFAmZTBAJmVAMFAmZKBAJmVQkA/AcEBQJmTAIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmRyBQNuaWwDCQAAAgUCZlUFAmZVBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRNBmNhbGxlcgUCZHIFAmZPBQNuaWwJAM4IAgUCY0kFAmZUCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQtwdXRPbmVUa25WMgICZmcCZkoEAmZWCgACYUYJAPwHBAUCYUQCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIHQm9vbGVhbgUCYUYJAAIBCQCsAgIJAAMBBQJhRgIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZlcDAwMJAQJhSQAGCQAAAgUCYVgFAW8GCQAAAgUCYVgFAXEGBQJmVgQCZlgJAMwIAgMDCQEBIQEFAmZXBgkBAmZCAQUCZE0GCQECYUIBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkTQhwYXltZW50cwABBgkBAmFCAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkA2QQBCQCRAwIFAmFUBQF0BAJmawkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF3BAJmbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4BAJjbwMJAAACCAUCZE0GY2FsbGVyBQR0aGlzCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0GY2FsbGVyBAJkTgkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAQCY20JANgEAQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJmWQkBAmVIBQUCY1MFAmNtCQClCAEFAmNvCQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkBgMJAAACBQJmWQUCZlkEAmNqCAUCZlkCXzMEAmNJCAUCZlkCXzIEAmZaCAUCZlkCXzEEAmRyAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZaBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZaBAJmTgkA/AcEBQJhRAIEZW1pdAkAzAgCBQJkcgUDbmlsBQNuaWwDCQAAAgUCZk4FAmZOBAJmUAQCYXYFAmZOAwkAAQIFAmF2AgdBZGRyZXNzBAJmUQUCYXYJAPwHBAUCZlECBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsBQR1bml0AwkAAAIFAmZQBQJmUAQCZlQDBQJmSgQCZlUJAPwHBAUCYmYCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNwBQJkcgUDbmlsAwkAAAIFAmZVBQJmVQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkTQZjYWxsZXIFAmRyBQJjcAUDbmlsBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagkA2QQBBQJjbQUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNJBQJmVAUCZncFAmRyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQpwdXRGb3JGcmVlAQJnYQMJAGYCAAAFAmdhCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdiCQECZE8KCQClCAEIBQJkTQZjYWxsZXIJANgEAQgFAmRNDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRNCHBheW1lbnRzAAEFAmdhBwcGAAACAAgFAmdiAl85AmRNAQNnZXQABAJkZQkBAmRMAQUCZE0EAmdjCAUCZGUCXzEEAmNICAUCZGUCXzIEAmNTCAUCZGUCXzMEAmNtCAUCZGUCXzQEAmNJCAUCZGUCXzUEAmVCCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmVCBQJlQgUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BC2dldE9uZVRrblYyAgJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAQYJAQJhQgECHmV4YWN0bHkgMSBwYXltZW50IGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCZ2UJAQJmZQYFAmZmBQJmZwgFAmRNCHBheW1lbnRzCAUCZE0GY2FsbGVyCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0NdHJhbnNhY3Rpb25JZAQCY0kIBQJnZQJfMQQCZnAIBQJnZQJfMgkAlAoCBQJjSQUCZnAJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE2dldE9uZVRrblYyUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCZFQJAMwIAgkAtgIBCQECYnkBBQJjcQkAzAgCCQC2AgEJAQJieQEFAmNyBQNuaWwEAmdnCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJjcAIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCYkwJAQJkUwEFAmRUBAJiSwkAuAICBQJiTAkAvAIDCQC2AgEFAmdmBQJiTAUCZ2cEAmdoAwkAAAIFAmZmBQJjcQAAAwkAAAIFAmZmBQJjcgABCQACAQIUaW52YWxpZCBvdXQgYXNzZXQgaWQEAmdpCQECZXgDBQJkVAUCZ2gFAmJLBAJnagkAuAICCQCRAwIFAmRUBQJnaAUCZ2kEAmdrCQCWAwEJAMwIAgAACQDMCAIJAKADAQkAuAICBQJnagUBZgUDbmlsBAJnbAkBAmNnAgUCZ2sFAmFHBAJmbwgFAmdsAl8xBAJjaggFAmdsAl8yCQCUCgIFA25pbAkAlAoCBQJmbwUCY2oCZE0BHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY3cJAQJieQEFAmNxBAJjeQkBAmJ5AQUCY3IEAmdtCgACYUYJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmZgkAzAgCBQJnZgUDbmlsBQNuaWwDCQABAgUCYUYCCihJbnQsIEludCkFAmFGCQACAQkArAICCQADAQUCYUYCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmZvCAUCZ20CXzEEAmNqCAUCZ20CXzIEAmRlCQECY2sEAgAFAmNwBQJnZgUEdGhpcwQCY0cIBQJkZQJfMQQCY0gIBQJkZQJfMgQCZ24JAGQCBQJjRwUCY0gEAmZkAwkAAAIFAmduAAADCQAAAgUCZm8AAAAACQACAQIXYm9udXMgY2FsY3VsYXRpb24gZXJyb3IJAGsDCQBlAgUCZm8FAmduBQFhBQJnbgkAlAoCBQNuaWwJAJUKAwUCZm8FAmNqBQJmZAJkTQEJZ2V0Tm9MZXNzAgJnbwJncAQCZGUJAQJkTAEFAmRNBAJjRwgFAmRlAl8xBAJjSAgFAmRlAl8yBAJjUwgFAmRlAl8zBAJjbQgFAmRlAl80BAJjSQgFAmRlAl81AwkAZgIFAmdvBQJjRwkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQJjRwIDIDwgCQCkAwEFAmdvAwkAZgIFAmdwBQJjSAkAAgEJAKwCAgkArAICCQCsAgICCEZhaWxlZDogCQCkAwEFAmNIAgMgPCAJAKQDAQUCZ3AEAmdxCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmdxBQJncQUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDXVuc3Rha2VBbmRHZXQBAmNoBAJncgMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAAJAAIBAg1ObyBwbW50cyBleHBkBgMJAAACBQJncgUCZ3IEAmJYCQECYUwABAJncwkBAmJkAAQCZk8JANkEAQkAkQMCBQJiWAUBdAQCZ3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdzBQFBAgpXciBzdCBhZGRyBAJndQkA/AcEBQJndAIHdW5zdGFrZQkAzAgCCQDYBAEFAmZPCQDMCAIFAmNoBQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmRlCQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmZPBQJjaAgFAmRNBmNhbGxlcgQCY3UJAQ1wYXJzZUludFZhbHVlAQgFAmRlAl85BAJjSQgFAmRlA18xMAQCZ3YDAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIJQmxvY2tlZDogCQCkAwEFAmN1BgMJAAACBQJndgUCZ3YEAmd3CQD8BwQFAmFEAgRidXJuCQDMCAIFAmNoBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmZPBQJjaAUDbmlsAwkAAAIFAmd3BQJndwUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmd4Amd5AmdwBAJnZAMJAQJhSQAGCQAAAgUCYVgFAXEEAmZYCQDMCAIDCQEBIQEFAmdkBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRNCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJndQkA/AcEBQJiZgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFZCQDMCAIFAmd4BQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmd6CQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmFZBQJneAgFAmRNBmNhbGxlcgQCY0cIBQJnegJfMQQCY0gIBQJnegJfMgQCY0kIBQJnegNfMTAEAmdBCQDMCAIDCQBnAgUCY0cFAmd5BgkAAgEJALkJAgkAzAgCAixhbW91bnQgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmd5BQNuaWwCAAkAzAgCAwkAZwIFAmNIBQJncAYJAAIBCQC5CQIJAMwIAgIrcHJpY2UgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmdwBQNuaWwCAAUDbmlsAwkAAAIFAmdBBQJnQQQCZ3EJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCZ3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYVkFAmd4BQNuaWwDCQAAAgUCZ3EFAmdxBQJjSQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJneAJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAAYJAQJhQgECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCYlgJAQJhTAAEAmdzCQECYmQABAJmTwkA2QQBCQCRAwIFAmJYBQF0BAJndAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3MFAUECCldyIHN0IGFkZHIEAmd1CQD8BwQFAmd0Agd1bnN0YWtlCQDMCAIJANgEAQUCZk8JAMwIAgUCZ3gFA25pbAUDbmlsAwkAAAIFAmd1BQJndQQCZ0IJAQJmZQYFAmZmBQJmZwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmd4BQNuaWwIBQJkTQZjYWxsZXIIBQJkTQxvcmlnaW5DYWxsZXIIBQJkTQ10cmFuc2FjdGlvbklkBAJjSQgFAmdCAl8xBAJmcAgFAmdCAl8yCQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEccHV0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRQkBAmVIBQUCZ0MFAmdEAgACAAYEAmVZCAUCZ0UCXzEEAmNJCAUCZ0UCXzIEAmNqCAUCZ0UCXzMEAmZkCAUCZ0UCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BIXB1dE9uZVRrblYyV2l0aG91dFRha2VGZWVSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRgkBAmVIBQUCZ0MFAmdEAgACAAcEAmVZCAUCZ0YCXzEEAmNJCAUCZ0YCXzIEAmNqCAUCZ0YCXzMEAmZkCAUCZ0YCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BCGFjdGl2YXRlAgJnRwJnSAMJAQIhPQIJAKUIAQgFAmRNBmNhbGxlcgkApQgBBQJhRAkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYwAFAmdHCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZAAFAmdIBQNuaWwCB3N1Y2Nlc3MCZE0BBHNldFMCAmdJAmd2AwkBAiE9AgkApQgBCAUCZE0GY2FsbGVyCQECYXgCBQR0aGlzCQECYWYABQJmQQkAzAgCCQELU3RyaW5nRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEEc2V0SQICZ0kCZ3YDCQECIT0CCQClCAEIBQJkTQZjYWxsZXIJAQJheAIFBHRoaXMJAQJhZgAFAmZBCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYUwAAmRNARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJiegkAlAoCBQNuaWwJAQJieQEFAmJ6AmRNARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJiUgJiUwJiVwQCZ0oJAQJiVgMFAmJSBQJiUwUCYlcJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJnSgAACQDMCAIJAKYDAQkAkQMCBQJnSgABCQDMCAIJAKYDAQkAkQMCBQJnSgACBQNuaWwCZE0BFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCAUoCZ0sJAJQKAgUDbmlsCQEBSQIJAKcDAQUBSgUCZ0sCZE0BFHRvWDE4V3JhcHBlclJFQURPTkxZAgFHAUgJAJQKAgUDbmlsCQCmAwEJAQFGAgUBRwUBSAJkTQEeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZAgJiQgJiQwkAlAoCBQNuaWwJAKYDAQkBAmJBAgkApwMBBQJiQgkApwMBBQJiQwJkTQEjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAmNsAmJHAmNLAmNMAmNNAmNOAmdMAmNPAmNQCQCUCgIFA25pbAkBAmNKDQUCY2wFAmJHBQJjSwUCY0wFAmNNBQJjTgUCZ0wFAmNPBQJjUAYHAAACAAJkTQEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEAmNsAmdNAmNuAmdMBAJkZQkBAmNrBAUCY2wFAmdNBQJjbgkBEUBleHRyTmF0aXZlKDEwNjIpAQUCZ0wJAJQKAgUDbmlsCQCcCgoIBQJkZQJfMQgFAmRlAl8yCAUCZGUCXzMIBQJkZQJfNAgFAmRlAl81CAUCZGUCXzYIBQJkZQJfNwkApgMBCAUCZGUCXzgIBQJkZQJfOQgFAmRlA18xMAECZ04BAmdPAAQCZ1AEAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYFAmZDAwkAAQIFAmF2AgRVbml0CAUCZ04Pc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmF2BQJnTgMJAAECBQJhdgIFT3JkZXIEAmR6BQJhdgQCZ1EJAQJhSgAEAmdSCQECZHkBBQJkegQCZ1MJAPQDAwgFAmR6CWJvZHlCeXRlcwkAkQMCCAUCZHoGcHJvb2ZzAAAIBQJkeg9zZW5kZXJQdWJsaWNLZXkEAmdUCQD0AwMIBQJkeglib2R5Qnl0ZXMJAJEDAggFAmR6BnByb29mcwABBQJnUQMDAwUCZ1IFAmdTBwUCZ1QHBgkBAmFxAwUCZ1IFAmdTBQJnVAMJAAECBQJhdgIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmRaBQJhdgQCZ1UJAPYDAQkBBXZhbHVlAQgFAmRaBnNjcmlwdAQCZ1YJANsEAQkBBXZhbHVlAQkAnQgCBQJhRAkBAmFvAAQCZ1cJAPEHAQUEdGhpcwMDCQAAAgUCZ1YFAmdVCQECIT0CBQJnVwUCZ1UHBgkA9AMDCAUCZ04JYm9keUJ5dGVzCQCRAwIIBQJnTgZwcm9vZnMAAAUCZ1AJAPQDAwgFAmdOCWJvZHlCeXRlcwkAkQMCCAUCZ04GcHJvb2ZzAAAFAmdQf6Cfrw==",
    "chainId": 84,
    "height": 2398740,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5h79haBY3wNJ973QYPMQwMwxpW97sPrBLXD1oYZcUaUv
Next: 6JfXGKFmXEw4AVzHKcGZS2eJ1bzj5Cqt5gD3ahmxoCvh

Diff: 

OldNewDifferences
1414 let big1 = toBigInt(1)
1515 
1616 let big2 = toBigInt(2)
17-
18-let big3 = toBigInt(3)
19-
20-let big4 = toBigInt(4)
2117 
2218 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
2319 
7369 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
7470 
7571 
76-func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
77-
78-
7972 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
8073 
8174 
122115 func ada () = "%s__addonAddr"
123116 
124117 
125-let keyFee = "%s__fee"
126-
127-let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
128-
129-let keyDLp = makeString(["%s", "dLp"], SEP)
130-
131-let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
132-
133-let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
134-
135-let dLpRefreshDelayDefault = 1
136-
137-let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
138-
139118 func fcfg () = "%s__factoryConfig"
140119 
141120 
160139 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
161140 
162141 
142+func str (val) = match val {
143+    case valStr: String => 
144+        valStr
145+    case _ => 
146+        throw("fail cast to String")
147+}
148+
149+
163150 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
164151 
165152 
167154 
168155 
169156 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
170-
171-
172-func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
173157 
174158 
175159 let fca = addressFromStringValue(strf(this, fc()))
217201     else toBase58String(value(input))
218202 
219203 
220-func parsePoolConfig (poolConfig) = $Tuple9(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]), fromBase58String(poolConfig[idxIAmtAsId]), fromBase58String(poolConfig[idxIPriceAsId]))
204+func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
221205 
222206 
223207 let poolConfigParsed = parsePoolConfig(gpc())
224208 
225-let $t075447773 = poolConfigParsed
209+let $t069097095 = poolConfigParsed
226210 
227-let cfgPoolAddress = $t075447773._1
211+let cfgPoolAddress = $t069097095._1
228212 
229-let cfgPoolStatus = $t075447773._2
213+let cfgPoolStatus = $t069097095._2
230214 
231-let cfgLpAssetId = $t075447773._3
215+let cfgLpAssetId = $t069097095._3
232216 
233-let cfgAmountAssetId = $t075447773._4
217+let cfgAmountAssetId = $t069097095._4
234218 
235-let cfgPriceAssetId = $t075447773._5
219+let cfgPriceAssetId = $t069097095._5
236220 
237-let cfgAmountAssetDecimals = $t075447773._6
221+let cfgAmountAssetDecimals = $t069097095._6
238222 
239-let cfgPriceAssetDecimals = $t075447773._7
240-
241-let cfgInAmountAssedId = $t075447773._8
242-
243-let cfgInPriceAssetId = $t075447773._9
223+let cfgPriceAssetDecimals = $t069097095._7
244224 
245225 func gfc () = split(strf(fca, fcfg()), SEP)
246226 
267247 
268248 
269249 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
270-
271-
272-func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
273250 
274251 
275252 func vad (A1,A2,slippage) = {
300277 
301278 
302279 func calcPrices (amAmt,prAmt,lpAmt) = {
303-    let amtAsDcm = cfgAmountAssetDecimals
304-    let prAsDcm = cfgPriceAssetDecimals
280+    let cfg = gpc()
281+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
305283     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
306284     let amAmtX18 = t1(amAmt, amtAsDcm)
307285     let prAmtX18 = t1(prAmt, prAsDcm)
327305 
328306 
329307 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
330-    let lpId = cfgLpAssetId
331-    let amId = toBase58String(value(cfgAmountAssetId))
332-    let prId = toBase58String(value(cfgPriceAssetId))
333-    let amDcm = cfgAmountAssetDecimals
334-    let prDcm = cfgPriceAssetDecimals
335-    let sts = toString(cfgPoolStatus)
336-    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
337-    if ((toBase58String(lpId) != pmtAssetId))
308+    let cfg = gpc()
309+    let lpId = cfg[idxLPAsId]
310+    let amId = cfg[idxAmAsId]
311+    let prId = cfg[idxPrAsId]
312+    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
313+    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
314+    let sts = cfg[idxPoolSt]
315+    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
316+    if ((lpId != pmtAssetId))
338317         then throw("Wrong pmt asset")
339318         else {
340319             let amBalance = getAccBalance(amId)
347326             let lpEmissX18 = t1(lpEmiss, scale8)
348327             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
349328             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
350-            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
351-            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
329+            let outAmAmt = f1(outAmAmtX18, amDcm)
330+            let outPrAmt = f1(outPrAmtX18, prDcm)
352331             let state = if ((txId58 == ""))
353332                 then nil
354333                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
362341 
363342 
364343 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
365-    let lpId = cfgLpAssetId
366-    let amIdStr = toBase58String(value(cfgAmountAssetId))
367-    let prIdStr = toBase58String(value(cfgPriceAssetId))
368-    let inAmIdStr = cfgInAmountAssedId
369-    let inPrIdStr = cfgInPriceAssetId
370-    let amtDcm = cfgAmountAssetDecimals
371-    let priceDcm = cfgPriceAssetDecimals
372-    let sts = toString(cfgPoolStatus)
344+    let cfg = gpc()
345+    let lpId = fromBase58String(cfg[idxLPAsId])
346+    let amIdStr = cfg[idxAmAsId]
347+    let prIdStr = cfg[idxPrAsId]
348+    let inAmIdStr = cfg[idxIAmtAsId]
349+    let inPrIdStr = cfg[idxIPriceAsId]
350+    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
351+    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
352+    let sts = cfg[idxPoolSt]
373353     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
374354     let amBalance = if (isEval)
375355         then getAccBalance(amIdStr)
413393                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
414394                 else {
415395                     let lpEmissionX18 = t1(lpEm, scale8)
416-                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, FLOOR), scale18, FLOOR)
417-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), FLOOR)
396+                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
418398                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
419399                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
420400                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
421401                     let expAmtAssetAmtX18 = expectedAmts._1
422402                     let expPriceAssetAmtX18 = expectedAmts._2
423-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
424-                    $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
403+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404+                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
425405                     }
426406             }
427407     let calcLpAmt = r._1
437417                 else calcLpAmt
438418             let amDiff = (inAmAmt - calcAmAssetPmt)
439419             let prDiff = (inPrAmt - calcPrAssetPmt)
440-            let $t01841718762 = if (if (isOneAsset)
420+            let $t01756217907 = if (if (isOneAsset)
441421                 then (pmtId == amIdStr)
442422                 else false)
443423                 then $Tuple2(pmtAmt, 0)
446426                     else false)
447427                     then $Tuple2(0, pmtAmt)
448428                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
449-            let writeAmAmt = $t01841718762._1
450-            let writePrAmt = $t01841718762._2
429+            let writeAmAmt = $t01756217907._1
430+            let writePrAmt = $t01756217907._2
451431             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))]
452432             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
453433             }
454434     }
455435 
456436 
457-func getD (xp) = {
458-    let xp0 = xp[0]
459-    let xp1 = xp[1]
460-    let s = (xp0 + xp1)
461-    if ((s == big0))
462-        then big0
463-        else {
464-            let a = parseIntValue(A)
465-            let ann = (a * 2)
466-            let p = fraction(xp0, xp1, big1)
467-            let xp0_xp1_n_n = fraction(p, big4, big1)
468-            let ann_s = fraction(toBigInt(ann), s, big1)
469-            let ann_1 = toBigInt((ann - 1))
470-            func calcDNext (d) =             {
471-                let dd = fraction(d, d, big1)
472-                let ddd = fraction(dd, d, big1)
473-                let dp = fraction(ddd, big1, xp0_xp1_n_n)
474-                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
475-                }
476-
477-            func calc (acc,i) =             if (acc._2)
478-                then acc
479-                else {
480-                    let d = acc._1
481-                    let dNext = calcDNext(d)
482-                    let dDiffRaw = toInt((dNext - value(d)))
483-                    let dDiff = if ((0 > dDiffRaw))
484-                        then -(dDiffRaw)
485-                        else dDiffRaw
486-                    if ((1 >= dDiff))
487-                        then $Tuple2(dNext, true)
488-                        else $Tuple2(dNext, false)
489-                    }
490-
491-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
492-            let $t02069020738 = {
493-                let $l = arr
494-                let $s = size($l)
495-                let $acc0 = $Tuple2(s, false)
496-                func $f0_1 ($a,$i) =                 if (($i >= $s))
497-                    then $a
498-                    else calc($a, $l[$i])
499-
500-                func $f0_2 ($a,$i) =                 if (($i >= $s))
501-                    then $a
502-                    else throw("List size exceeds 15")
503-
504-                $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)
505-                }
506-            let d = $t02069020738._1
507-            let found = $t02069020738._2
508-            if (found)
509-                then d
510-                else throw(("D calculation error, D = " + toString(d)))
511-            }
512-    }
513-
514-
515-func getDOld (xp) = {
516-    let n = big2
517-    let xp0 = xp[0]
518-    let xp1 = xp[1]
519-    let aPrecision = parseBigIntValue(Amult)
520-    let a = (parseBigIntValue(A) * aPrecision)
521-    let s = (xp0 + xp1)
522-    if ((s == big0))
523-        then big0
524-        else {
525-            let ann = (a * n)
526-            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
527-            let ann_s_aPrecision = ((ann * s) / aPrecision)
528-            let ann_aPrecision = (ann - aPrecision)
529-            let n1 = (n + big1)
530-            func calc (acc,cur) =             {
531-                let $t02136721387 = acc
532-                let d = $t02136721387._1
533-                let found = $t02136721387._2
534-                if ((found != unit))
535-                    then acc
536-                    else {
537-                        let dp = (((d * d) * d) / xp0_xp1_n_n)
538-                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
539-                        let dDiff = absBigInt((dNext - value(d)))
540-                        if ((big1 >= dDiff))
541-                            then $Tuple2(dNext, cur)
542-                            else $Tuple2(dNext, unit)
543-                        }
544-                }
545-
546-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
547-            let $t02180821855 = {
548-                let $l = arr
549-                let $s = size($l)
550-                let $acc0 = $Tuple2(s, unit)
551-                func $f0_1 ($a,$i) =                 if (($i >= $s))
552-                    then $a
553-                    else calc($a, $l[$i])
554-
555-                func $f0_2 ($a,$i) =                 if (($i >= $s))
556-                    then $a
557-                    else throw("List size exceeds 15")
558-
559-                $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)
560-                }
561-            let d = $t02180821855._1
562-            let found = $t02180821855._2
563-            if ((found != unit))
564-                then d
565-                else throw(("D calculation error, D = " + toString(d)))
566-            }
567-    }
568-
569-
570-func getYD (xp,i,D) = {
571-    let n = big2
572-    let x = xp[if ((i == 0))
573-        then 1
574-        else 0]
575-    let aPrecision = parseBigIntValue(Amult)
576-    let a = (parseBigIntValue(A) * aPrecision)
577-    let s = x
578-    let ann = (a * n)
579-    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
580-    let b = ((s + ((D * aPrecision) / ann)) - D)
581-    func calc (acc,cur) =     {
582-        let $t02235522375 = acc
583-        let y = $t02235522375._1
584-        let found = $t02235522375._2
585-        if ((found != unit))
586-            then acc
587-            else {
588-                let yNext = (((y * y) + c) / ((big2 * y) + b))
589-                let yDiff = absBigInt((yNext - value(y)))
590-                if ((big1 >= yDiff))
591-                    then $Tuple2(yNext, cur)
592-                    else $Tuple2(yNext, unit)
593-                }
594-        }
595-
596-    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
597-    let $t02268222729 = {
598-        let $l = arr
599-        let $s = size($l)
600-        let $acc0 = $Tuple2(D, unit)
601-        func $f0_1 ($a,$i) =         if (($i >= $s))
602-            then $a
603-            else calc($a, $l[$i])
604-
605-        func $f0_2 ($a,$i) =         if (($i >= $s))
606-            then $a
607-            else throw("List size exceeds 15")
608-
609-        $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)
610-        }
611-    let y = $t02268222729._1
612-    let found = $t02268222729._2
613-    if ((found != unit))
614-        then y
615-        else throw(("Y calculation error, Y = " + toString(y)))
616-    }
617-
618-
619-func calcDLp (amountBalance,priceBalance,lpEmission) = {
620-    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
621-    if ((lpEmission == big0))
622-        then big0
623-        else updatedDLp
624-    }
625-
626-
627-func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
628-    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
629-    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
630-    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
631-    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
632-    currentDLp
633-    }
634-
635-
636-func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
637-    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
638-    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
639-    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
640-    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
641-    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
642-    $Tuple2(actions, updatedDLp)
643-    }
644-
645-
646-func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
647-    then true
648-    else throwErr("updated DLp lower than current DLp")
649-
650-
651-func validateMatcherOrderAllowed (order) = {
652-    let amountAssetAmount = order.amount
653-    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
654-    let $t02466824880 = if ((order.orderType == Buy))
655-        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
656-        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
657-    let amountAssetBalanceDelta = $t02466824880._1
658-    let priceAssetBalanceDelta = $t02466824880._2
437+func moa (order) = {
438+    let cfg = gpc()
439+    let amtAsId = cfg[idxAmAsId]
440+    let prAsId = cfg[idxPrAsId]
441+    let sts = parseIntValue(cfg[idxPoolSt])
442+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
443+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
444+    let accAmtAsBalance = getAccBalance(amtAsId)
445+    let accPrAsBalance = getAccBalance(prAsId)
446+    let curPriceX18 = if ((order.orderType == Buy))
447+        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
448+        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
449+    let curPrice = f1(curPriceX18, scale8)
659450     if (if (if (igs())
660451         then true
661-        else (cfgPoolStatus == PoolMatcherDis))
452+        else (sts == PoolMatcherDis))
662453         then true
663-        else (cfgPoolStatus == PoolShutdown))
454+        else (sts == PoolShutdown))
664455         then throw("Admin blocked")
665-        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
666-            then true
667-            else (order.assetPair.priceAsset != cfgPriceAssetId))
668-            then throw("Wr assets")
669-            else {
670-                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
671-                let $t02521025310 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
672-                let unusedActions = $t02521025310._1
673-                let dLpNew = $t02521025310._2
674-                let isOrderValid = (dLpNew >= dLp)
675-                isOrderValid
676-                }
456+        else {
457+            let orAmtAsset = order.assetPair.amountAsset
458+            let orAmtAsStr = if ((orAmtAsset == unit))
459+                then "WAVES"
460+                else toBase58String(value(orAmtAsset))
461+            let orPrAsset = order.assetPair.priceAsset
462+            let orPrAsStr = if ((orPrAsset == unit))
463+                then "WAVES"
464+                else toBase58String(value(orPrAsset))
465+            if (if ((orAmtAsStr != amtAsId))
466+                then true
467+                else (orPrAsStr != prAsId))
468+                then throw("Wr assets")
469+                else {
470+                    let orderPrice = order.price
471+                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
472+                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
473+                    let isOrderPriceValid = if ((order.orderType == Buy))
474+                        then (curPrice >= castOrderPrice)
475+                        else (castOrderPrice >= curPrice)
476+                    true
477+                    }
478+            }
677479     }
678480 
679481 
709511     }
710512 
711513 
514+func getD (xp) = {
515+    let n = big2
516+    let xp0 = xp[0]
517+    let xp1 = xp[1]
518+    let aPrecision = parseBigIntValue(Amult)
519+    let a = (parseBigIntValue(A) * aPrecision)
520+    let s = (xp0 + xp1)
521+    if ((s == big0))
522+        then big0
523+        else {
524+            let ann = (a * n)
525+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
526+            let ann_s_aPrecision = ((ann * s) / aPrecision)
527+            let ann_aPrecision = (ann - aPrecision)
528+            let n1 = (n + big1)
529+            func calc (acc,cur) =             {
530+                let $t02245922479 = acc
531+                let d = $t02245922479._1
532+                let found = $t02245922479._2
533+                if ((found != unit))
534+                    then acc
535+                    else {
536+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
537+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
538+                        let dDiff = absBigInt((dNext - value(d)))
539+                        if ((big1 >= dDiff))
540+                            then $Tuple2(dNext, cur)
541+                            else $Tuple2(dNext, unit)
542+                        }
543+                }
544+
545+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
546+            let $t02290022947 = {
547+                let $l = arr
548+                let $s = size($l)
549+                let $acc0 = $Tuple2(s, unit)
550+                func $f0_1 ($a,$i) =                 if (($i >= $s))
551+                    then $a
552+                    else calc($a, $l[$i])
553+
554+                func $f0_2 ($a,$i) =                 if (($i >= $s))
555+                    then $a
556+                    else throw("List size exceeds 15")
557+
558+                $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)
559+                }
560+            let d = $t02290022947._1
561+            let found = $t02290022947._2
562+            if ((found != unit))
563+                then d
564+                else throw(("D calculation error, D = " + toString(d)))
565+            }
566+    }
567+
568+
569+func getYD (xp,i,D) = {
570+    let n = big2
571+    let x = xp[if ((i == 0))
572+        then 1
573+        else 0]
574+    let aPrecision = parseBigIntValue(Amult)
575+    let a = (parseBigIntValue(A) * aPrecision)
576+    let s = x
577+    let ann = (a * n)
578+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
579+    let b = ((s + ((D * aPrecision) / ann)) - D)
580+    func calc (acc,cur) =     {
581+        let $t02344723467 = acc
582+        let y = $t02344723467._1
583+        let found = $t02344723467._2
584+        if ((found != unit))
585+            then acc
586+            else {
587+                let yNext = (((y * y) + c) / ((big2 * y) + b))
588+                let yDiff = absBigInt((yNext - value(y)))
589+                if ((big1 >= yDiff))
590+                    then $Tuple2(yNext, cur)
591+                    else $Tuple2(yNext, unit)
592+                }
593+        }
594+
595+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
596+    let $t02377423821 = {
597+        let $l = arr
598+        let $s = size($l)
599+        let $acc0 = $Tuple2(D, unit)
600+        func $f0_1 ($a,$i) =         if (($i >= $s))
601+            then $a
602+            else calc($a, $l[$i])
603+
604+        func $f0_2 ($a,$i) =         if (($i >= $s))
605+            then $a
606+            else throw("List size exceeds 15")
607+
608+        $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)
609+        }
610+    let y = $t02377423821._1
611+    let found = $t02377423821._2
612+    if ((found != unit))
613+        then y
614+        else throw(("Y calculation error, Y = " + toString(y)))
615+    }
616+
617+
712618 func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
713-    let amId = toBase58String(value(cfgAmountAssetId))
714-    let prId = toBase58String(value(cfgPriceAssetId))
715-    let lpId = cfgLpAssetId
716-    let amtDcm = cfgAmountAssetDecimals
717-    let priceDcm = cfgPriceAssetDecimals
718-    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
619+    let poolConfig = gpc()
620+    let amId = poolConfig[idxAmAsId]
621+    let prId = poolConfig[idxPrAsId]
622+    let lpId = poolConfig[idxLPAsId]
623+    let amtDcm = parseIntValue(poolConfig[idxAmtAsDcm])
624+    let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
625+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
719626     let chechEmission = if ((lpAssetEmission > big0))
720627         then true
721628         else throw("initial deposit requires all coins")
723630         then {
724631             let amBalance = getAccBalance(amId)
725632             let prBalance = getAccBalance(prId)
726-            let $t02757628038 = if ((txId == ""))
633+            let $t02460425066 = if ((txId == ""))
727634                 then $Tuple2(amBalance, prBalance)
728635                 else if ((pmtAssetId == amId))
729636                     then if ((pmtAmtRaw > amBalance))
734641                             then throw("invalid payment amount")
735642                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
736643                         else throw("wrong pmtAssetId")
737-            let amBalanceOld = $t02757628038._1
738-            let prBalanceOld = $t02757628038._2
739-            let $t02804428220 = if ((pmtAssetId == amId))
644+            let amBalanceOld = $t02460425066._1
645+            let prBalanceOld = $t02460425066._2
646+            let $t02507225248 = if ((pmtAssetId == amId))
740647                 then $Tuple2(pmtAmtRaw, 0)
741648                 else if ((pmtAssetId == prId))
742649                     then $Tuple2(0, pmtAmtRaw)
743650                     else throw("invalid payment")
744-            let amAmountRaw = $t02804428220._1
745-            let prAmountRaw = $t02804428220._2
746-            let $t02822428478 = if (withTakeFee)
651+            let amAmountRaw = $t02507225248._1
652+            let prAmountRaw = $t02507225248._2
653+            let $t02525225506 = if (withTakeFee)
747654                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
748655                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
749-            let amAmount = $t02822428478._1
750-            let prAmount = $t02822428478._2
751-            let feeAmount = $t02822428478._3
656+            let amAmount = $t02525225506._1
657+            let prAmount = $t02525225506._2
658+            let feeAmount = $t02525225506._3
752659             let amBalanceNew = (amBalanceOld + amAmount)
753660             let prBalanceNew = (prBalanceOld + prAmount)
754661             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
758665                 else throw()
759666             if ((checkD == checkD))
760667                 then {
761-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
668+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
762669                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
763670                     let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
764671                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
775682 
776683 
777684 func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = {
778-    let lpId = toBase58String(value(cfgLpAssetId))
779-    let amId = toBase58String(value(cfgAmountAssetId))
780-    let prId = toBase58String(value(cfgPriceAssetId))
781-    let amDecimals = cfgAmountAssetDecimals
782-    let prDecimals = cfgPriceAssetDecimals
783-    let poolStatus = cfgPoolStatus
685+    let poolConfig = gpc()
686+    let lpId = poolConfig[idxLPAsId]
687+    let amId = poolConfig[idxAmAsId]
688+    let prId = poolConfig[idxPrAsId]
689+    let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
690+    let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
691+    let poolStatus = poolConfig[idxPoolSt]
784692     let userAddress = if ((caller == restContract))
785693         then originCaller
786694         else caller
787695     let pmt = value(payments[0])
788696     let pmtAssetId = value(pmt.assetId)
789697     let pmtAmt = pmt.amount
790-    let currentDLp = calcCurrentDLp(big0, big0, big0)
791-    if ((currentDLp == currentDLp))
792-        then {
793-            let txId58 = toBase58String(transactionId)
794-            if ((lpId != toBase58String(pmtAssetId)))
795-                then throw("Wrong LP")
796-                else {
797-                    let amBalance = getAccBalance(amId)
798-                    let prBalance = getAccBalance(prId)
799-                    let $t03052830639 = {
800-                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
801-                        if ($isInstanceOf(@, "(Int, Int)"))
802-                            then @
803-                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
804-                        }
805-                    if (($t03052830639 == $t03052830639))
698+    let txId58 = toBase58String(transactionId)
699+    if ((lpId != toBase58String(pmtAssetId)))
700+        then throw("Wrong LP")
701+        else {
702+            let amBalance = getAccBalance(amId)
703+            let prBalance = getAccBalance(prId)
704+            let $t02750827619 = {
705+                let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
706+                if ($isInstanceOf(@, "(Int, Int)"))
707+                    then @
708+                    else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
709+                }
710+            if (($t02750827619 == $t02750827619))
711+                then {
712+                    let feeAmount = $t02750827619._2
713+                    let totalGet = $t02750827619._1
714+                    let totalAmount = if (if ((minOutAmount > 0))
715+                        then (minOutAmount > totalGet)
716+                        else false)
717+                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
718+                        else totalGet
719+                    let $t02780928116 = if ((outAssetId == amId))
720+                        then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
721+                        else if ((outAssetId == prId))
722+                            then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
723+                            else throw("invalid out asset id")
724+                    let outAm = $t02780928116._1
725+                    let outPr = $t02780928116._2
726+                    let amBalanceNew = $t02780928116._3
727+                    let prBalanceNew = $t02780928116._4
728+                    let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
729+                    let curPr = f1(curPrX18, scale8)
730+                    let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
731+                        then unit
732+                        else fromBase58String(outAssetId)
733+                    let sendFeeToMatcher = if ((feeAmount > 0))
734+                        then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
735+                        else nil
736+                    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)
737+                    if ((state == state))
806738                         then {
807-                            let feeAmount = $t03052830639._2
808-                            let totalGet = $t03052830639._1
809-                            let totalAmount = if (if ((minOutAmount > 0))
810-                                then (minOutAmount > totalGet)
811-                                else false)
812-                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
813-                                else totalGet
814-                            let $t03082931136 = if ((outAssetId == amId))
815-                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
816-                                else if ((outAssetId == prId))
817-                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
818-                                    else throw("invalid out asset id")
819-                            let outAm = $t03082931136._1
820-                            let outPr = $t03082931136._2
821-                            let amBalanceNew = $t03082931136._3
822-                            let prBalanceNew = $t03082931136._4
823-                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
824-                            let curPr = f1(curPrX18, scale8)
825-                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
826-                                then unit
827-                                else fromBase58String(outAssetId)
828-                            let sendFeeToMatcher = if ((feeAmount > 0))
829-                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
830-                                else nil
831-                            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)
832-                            if ((state == state))
833-                                then {
834-                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
835-                                    if ((burn == burn))
836-                                        then {
837-                                            let $t03192132271 = {
838-                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
839-                                                    then 0
840-                                                    else feeAmount
841-                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
842-                                                    then true
843-                                                    else false
844-                                                if (outInAmountAsset)
845-                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
846-                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
847-                                                }
848-                                            let amountAssetBalanceDelta = $t03192132271._1
849-                                            let priceAssetBalanceDelta = $t03192132271._2
850-                                            let $t03227432382 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
851-                                            let refreshDLpActions = $t03227432382._1
852-                                            let updatedDLp = $t03227432382._2
853-                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
854-                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
855-                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
856-                                                else throw("Strict value is not equal to itself.")
857-                                            }
858-                                        else throw("Strict value is not equal to itself.")
859-                                    }
739+                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740+                            if ((burn == burn))
741+                                then $Tuple2(state, totalAmount)
860742                                 else throw("Strict value is not equal to itself.")
861743                             }
862744                         else throw("Strict value is not equal to itself.")
863745                     }
746+                else throw("Strict value is not equal to itself.")
864747             }
865-        else throw("Strict value is not equal to itself.")
866748     }
867749 
868750 
967849         else if ((size(i.payments) != 2))
968850             then throw("2 pmnts expd")
969851             else {
970-                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
971-                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
972-                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
973-                if ((amountAssetBalance == amountAssetBalance))
852+                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, "")
853+                let emitLpAmt = e._2
854+                let lpAssetId = e._7
855+                let state = e._9
856+                let amDiff = e._10
857+                let prDiff = e._11
858+                let amId = e._12
859+                let prId = e._13
860+                let r = invoke(fca, "emit", [emitLpAmt], nil)
861+                if ((r == r))
974862                     then {
975-                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
976-                        if ((priceAssetBalance == priceAssetBalance))
863+                        let el =                         match r {
864+                            case legacy: Address => 
865+                                invoke(legacy, "emit", [emitLpAmt], nil)
866+                            case _ => 
867+                                unit
868+                        }
869+                        if ((el == el))
977870                             then {
978-                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
979-                                if ((lpAssetEmission == lpAssetEmission))
871+                                let sa = if ((amDiff > 0))
872+                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873+                                    else nil
874+                                if ((sa == sa))
980875                                     then {
981-                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
982-                                        if ((currentDLp == currentDLp))
876+                                        let sp = if ((prDiff > 0))
877+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878+                                            else nil
879+                                        if ((sp == sp))
983880                                             then {
984-                                                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, "")
985-                                                let emitLpAmt = e._2
986-                                                let lpAssetId = e._7
987-                                                let state = e._9
988-                                                let amDiff = e._10
989-                                                let prDiff = e._11
990-                                                let amId = e._12
991-                                                let prId = e._13
992-                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
993-                                                if ((r == r))
881+                                                let lpTrnsfr = if (autoStake)
994882                                                     then {
995-                                                        let el =                                                         match r {
996-                                                            case legacy: Address => 
997-                                                                invoke(legacy, "emit", [emitLpAmt], nil)
998-                                                            case _ => 
999-                                                                unit
1000-                                                        }
1001-                                                        if ((el == el))
1002-                                                            then {
1003-                                                                let sa = if ((amDiff > 0))
1004-                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1005-                                                                    else nil
1006-                                                                if ((sa == sa))
1007-                                                                    then {
1008-                                                                        let sp = if ((prDiff > 0))
1009-                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1010-                                                                            else nil
1011-                                                                        if ((sp == sp))
1012-                                                                            then {
1013-                                                                                let lpTrnsfr = if (autoStake)
1014-                                                                                    then {
1015-                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1016-                                                                                        if ((ss == ss))
1017-                                                                                            then nil
1018-                                                                                            else throw("Strict value is not equal to itself.")
1019-                                                                                        }
1020-                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1021-                                                                                let $t03653136673 = refreshDLpInternal(0, 0, 0)
1022-                                                                                let refreshDLpActions = $t03653136673._1
1023-                                                                                let updatedDLp = $t03653136673._2
1024-                                                                                let check = if ((updatedDLp >= currentDLp))
1025-                                                                                    then true
1026-                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1027-                                                                                if ((check == check))
1028-                                                                                    then {
1029-                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1030-                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1031-                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1032-                                                                                            else throw("Strict value is not equal to itself.")
1033-                                                                                        }
1034-                                                                                    else throw("Strict value is not equal to itself.")
1035-                                                                                }
1036-                                                                            else throw("Strict value is not equal to itself.")
1037-                                                                        }
1038-                                                                    else throw("Strict value is not equal to itself.")
1039-                                                                }
883+                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884+                                                        if ((ss == ss))
885+                                                            then nil
1040886                                                             else throw("Strict value is not equal to itself.")
1041887                                                         }
1042-                                                    else throw("Strict value is not equal to itself.")
888+                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889+                                                (state ++ lpTrnsfr)
1043890                                                 }
1044891                                             else throw("Strict value is not equal to itself.")
1045892                                         }
1077924         else throwErr("exactly 1 payment are expected")]
1078925     if ((checks == checks))
1079926         then {
1080-            let amId = toBase58String(value(cfgAmountAssetId))
1081-            let prId = toBase58String(value(cfgPriceAssetId))
1082-            let lpId = cfgLpAssetId
1083-            let amDecimals = cfgAmountAssetDecimals
1084-            let prDecimals = cfgPriceAssetDecimals
927+            let poolConfig = gpc()
928+            let amId = poolConfig[idxAmAsId]
929+            let prId = poolConfig[idxPrAsId]
930+            let lpId = fromBase58String(poolConfig[idxLPAsId])
931+            let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
932+            let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
1085933             let userAddress = if ((i.caller == this))
1086934                 then i.originCaller
1087935                 else i.caller
1088936             let pmt = value(i.payments[0])
1089937             let pmtAssetId = toBase58String(value(pmt.assetId))
1090938             let pmtAmt = pmt.amount
1091-            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1092-                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1093-                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1094-            if ((currentDLp == currentDLp))
939+            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940+            if (($t03347833636 == $t03347833636))
1095941                 then {
1096-                    let $t03831438472 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1097-                    if (($t03831438472 == $t03831438472))
942+                    let feeAmount = $t03347833636._3
943+                    let state = $t03347833636._2
944+                    let estimLP = $t03347833636._1
945+                    let emitLpAmt = if (if ((minOutAmount > 0))
946+                        then (minOutAmount > estimLP)
947+                        else false)
948+                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
949+                        else estimLP
950+                    let e = invoke(fca, "emit", [emitLpAmt], nil)
951+                    if ((e == e))
1098952                         then {
1099-                            let feeAmount = $t03831438472._3
1100-                            let state = $t03831438472._2
1101-                            let estimLP = $t03831438472._1
1102-                            let emitLpAmt = if (if ((minOutAmount > 0))
1103-                                then (minOutAmount > estimLP)
1104-                                else false)
1105-                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1106-                                else estimLP
1107-                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1108-                            if ((e == e))
953+                            let el =                             match e {
954+                                case legacy: Address => 
955+                                    invoke(legacy, "emit", [emitLpAmt], nil)
956+                                case _ => 
957+                                    unit
958+                            }
959+                            if ((el == el))
1109960                                 then {
1110-                                    let el =                                     match e {
1111-                                        case legacy: Address => 
1112-                                            invoke(legacy, "emit", [emitLpAmt], nil)
1113-                                        case _ => 
1114-                                            unit
1115-                                    }
1116-                                    if ((el == el))
961+                                    let lpTrnsfr = if (autoStake)
1117962                                         then {
1118-                                            let lpTrnsfr = if (autoStake)
1119-                                                then {
1120-                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1121-                                                    if ((ss == ss))
1122-                                                        then nil
1123-                                                        else throw("Strict value is not equal to itself.")
1124-                                                    }
1125-                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1126-                                            let sendFeeToMatcher = if ((feeAmount > 0))
1127-                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1128-                                                else nil
1129-                                            let $t03928739636 = if ((this == feeCollectorAddress))
1130-                                                then $Tuple2(0, 0)
1131-                                                else {
1132-                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1133-                                                        then true
1134-                                                        else false
1135-                                                    if (paymentInAmountAsset)
1136-                                                        then $Tuple2(-(feeAmount), 0)
1137-                                                        else $Tuple2(0, -(feeAmount))
1138-                                                    }
1139-                                            let amountAssetBalanceDelta = $t03928739636._1
1140-                                            let priceAssetBalanceDelta = $t03928739636._2
1141-                                            let $t03963939747 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1142-                                            let refreshDLpActions = $t03963939747._1
1143-                                            let updatedDLp = $t03963939747._2
1144-                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1145-                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1146-                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
963+                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964+                                            if ((ss == ss))
965+                                                then nil
1147966                                                 else throw("Strict value is not equal to itself.")
1148967                                             }
1149-                                        else throw("Strict value is not equal to itself.")
968+                                        else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
969+                                    let sendFeeToMatcher = if ((feeAmount > 0))
970+                                        then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
971+                                        else nil
972+                                    $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
1150973                                     }
1151974                                 else throw("Strict value is not equal to itself.")
1152975                             }
1166989         then throw("2 pmnts expd")
1167990         else {
1168991             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, "")
1169-            let state = estPut._9
1170-            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1171-            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1172-            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1173-            if ((currentDLp == currentDLp))
1174-                then {
1175-                    let $t04077740842 = refreshDLpInternal(0, 0, 0)
1176-                    let refreshDLpActions = $t04077740842._1
1177-                    let updatedDLp = $t04077740842._2
1178-                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1179-                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1180-                        then (state ++ refreshDLpActions)
1181-                        else throw("Strict value is not equal to itself.")
1182-                    }
1183-                else throw("Strict value is not equal to itself.")
992+            estPut._9
1184993             }
1185994 
1186995 
1187996 
1188997 @Callable(i)
1189998 func get () = {
1190-    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1191-    if ((currentDLp == currentDLp))
1192-        then {
1193-            let r = cg(i)
1194-            let outAmtAmt = r._1
1195-            let outPrAmt = r._2
1196-            let pmtAmt = r._3
1197-            let pmtAssetId = r._4
1198-            let state = r._5
1199-            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1200-            if ((b == b))
1201-                then {
1202-                    let $t04201542097 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1203-                    let refreshDLpActions = $t04201542097._1
1204-                    let updatedDLp = $t04201542097._2
1205-                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1206-                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1207-                        then (state ++ refreshDLpActions)
1208-                        else throw("Strict value is not equal to itself.")
1209-                    }
1210-                else throw("Strict value is not equal to itself.")
1211-            }
999+    let r = cg(i)
1000+    let outAmtAmt = r._1
1001+    let outPrAmt = r._2
1002+    let pmtAmt = r._3
1003+    let pmtAssetId = r._4
1004+    let state = r._5
1005+    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1006+    if ((b == b))
1007+        then state
12121008         else throw("Strict value is not equal to itself.")
12131009     }
12141010 
12361032         else throwErr("exactly 1 payment are expected")]
12371033     if ((checks == checks))
12381034         then {
1239-            let $t04271542870 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1240-            let state = $t04271542870._1
1241-            let totalAmount = $t04271542870._2
1035+            let $t03625836413 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1036+            let state = $t03625836413._1
1037+            let totalAmount = $t03625836413._2
12421038             $Tuple2(state, totalAmount)
12431039             }
12441040         else throw("Strict value is not equal to itself.")
12471043 
12481044 
12491045 @Callable(i)
1250-func refreshDLp () = {
1251-    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1252-    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1253-        then unit
1254-        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1255-    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1256-        then {
1257-            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1258-            let $t04339443458 = refreshDLpInternal(0, 0, 0)
1259-            let dLpUpdateActions = $t04339443458._1
1260-            let updatedDLp = $t04339443458._2
1261-            let actions = if ((dLp != updatedDLp))
1262-                then dLpUpdateActions
1263-                else throwErr("nothing to refresh")
1264-            $Tuple2(actions, toString(updatedDLp))
1265-            }
1266-        else throw("Strict value is not equal to itself.")
1267-    }
1268-
1269-
1270-
1271-@Callable(i)
12721046 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1273-    let amId = toBase58String(value(cfgAmountAssetId))
1274-    let prId = toBase58String(value(cfgPriceAssetId))
1275-    let lpId = toBase58String(value(cfgLpAssetId))
1047+    let poolConfig = gpc()
1048+    let amId = poolConfig[idxAmAsId]
1049+    let prId = poolConfig[idxPrAsId]
1050+    let lpId = poolConfig[idxLPAsId]
12761051     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
12771052     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
12781053     let D0 = getD(xp)
12851060     let newY = getYD(xp, index, D1)
12861061     let dy = (xp[index] - newY)
12871062     let totalGetRaw = max([0, toInt((dy - big1))])
1288-    let $t04438844443 = takeFee(totalGetRaw, outFee)
1289-    let totalGet = $t04438844443._1
1290-    let feeAmount = $t04438844443._2
1063+    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064+    let totalGet = $t03720337258._1
1065+    let feeAmount = $t03720337258._2
12911066     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
12921067     }
12931068 
12951070 
12961071 @Callable(i)
12971072 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1298-    let amId = toBase58String(value(cfgAmountAssetId))
1299-    let prId = toBase58String(value(cfgPriceAssetId))
1300-    let lpId = toBase58String(value(cfgLpAssetId))
1073+    let poolConfig = gpc()
1074+    let amId = poolConfig[idxAmAsId]
1075+    let prId = poolConfig[idxPrAsId]
1076+    let lpId = poolConfig[idxLPAsId]
13011077     let amBalance = getAccBalance(amId)
13021078     let prBalance = getAccBalance(prId)
1303-    let $t04481844933 = {
1079+    let $t03760337718 = {
13041080         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
13051081         if ($isInstanceOf(@, "(Int, Int)"))
13061082             then @
13071083             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
13081084         }
1309-    let totalGet = $t04481844933._1
1310-    let feeAmount = $t04481844933._2
1085+    let totalGet = $t03760337718._1
1086+    let feeAmount = $t03760337718._2
13111087     let r = ego("", lpId, lpAssetAmount, this)
13121088     let outAmAmt = r._1
13131089     let outPrAmt = r._2
13351111         else if ((noLessThenPriceAsset > outPrAmt))
13361112             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
13371113             else {
1338-                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1339-                if ((currentDLp == currentDLp))
1340-                    then {
1341-                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1342-                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1343-                            then {
1344-                                let $t04609946180 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1345-                                let refreshDLpActions = $t04609946180._1
1346-                                let updatedDLp = $t04609946180._2
1347-                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1348-                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1349-                                    then (state ++ refreshDLpActions)
1350-                                    else throw("Strict value is not equal to itself.")
1351-                                }
1352-                            else throw("Strict value is not equal to itself.")
1353-                        }
1114+                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116+                    then state
13541117                     else throw("Strict value is not equal to itself.")
13551118                 }
13561119     }
13641127         else true
13651128     if ((checkPayments == checkPayments))
13661129         then {
1130+            let cfg = gpc()
13671131             let factoryCfg = gfc()
1368-            let lpAssetId = cfgLpAssetId
1132+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
13691133             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1370-            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
13711134             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
13721135             if ((unstakeInv == unstakeInv))
13731136                 then {
13741137                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1375-                    let outAmAmt = r._1
1376-                    let outPrAmt = r._2
13771138                     let sts = parseIntValue(r._9)
13781139                     let state = r._10
13791140                     let v = if (if (igs())
13851146                         then {
13861147                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
13871148                             if ((burnA == burnA))
1388-                                then {
1389-                                    let $t04720447285 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1390-                                    let refreshDLpActions = $t04720447285._1
1391-                                    let updatedDLp = $t04720447285._2
1392-                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1393-                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1394-                                        then (state ++ refreshDLpActions)
1395-                                        else throw("Strict value is not equal to itself.")
1396-                                    }
1149+                                then state
13971150                                 else throw("Strict value is not equal to itself.")
13981151                             }
13991152                         else throw("Strict value is not equal to itself.")
14171170         else throw("no payments are expected")]
14181171     if ((checks == checks))
14191172         then {
1420-            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
14211173             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
14221174             if ((unstakeInv == unstakeInv))
14231175                 then {
14341186                         then {
14351187                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
14361188                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1437-                                then {
1438-                                    let $t04853348614 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1439-                                    let refreshDLpActions = $t04853348614._1
1440-                                    let updatedDLp = $t04853348614._2
1441-                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1442-                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1443-                                        then (state ++ refreshDLpActions)
1444-                                        else throw("Strict value is not equal to itself.")
1445-                                    }
1189+                                then state
14461190                                 else throw("Strict value is not equal to itself.")
14471191                             }
14481192                         else throw("Strict value is not equal to itself.")
14761220         else throwErr("no payments are expected")]
14771221     if ((checks == checks))
14781222         then {
1223+            let cfg = gpc()
14791224             let factoryCfg = gfc()
1480-            let lpAssetId = cfgLpAssetId
1225+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
14811226             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
14821227             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
14831228             if ((unstakeInv == unstakeInv))
14841229                 then {
1485-                    let $t04950949697 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1486-                    let state = $t04950949697._1
1487-                    let totalAmount = $t04950949697._2
1230+                    let $t04155641744 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1231+                    let state = $t04155641744._1
1232+                    let totalAmount = $t04155641744._2
14881233                     $Tuple2(state, totalAmount)
14891234                     }
14901235                 else throw("Strict value is not equal to itself.")
14961241 
14971242 @Callable(i)
14981243 func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1499-    let $t04982549928 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1500-    let lpAmount = $t04982549928._1
1501-    let state = $t04982549928._2
1502-    let feeAmount = $t04982549928._3
1503-    let bonus = $t04982549928._4
1244+    let poolConfig = gpc()
1245+    let amId = poolConfig[idxAmAsId]
1246+    let prId = poolConfig[idxPrAsId]
1247+    let lpId = poolConfig[idxLPAsId]
1248+    let $t04200342106 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1249+    let lpAmount = $t04200342106._1
1250+    let state = $t04200342106._2
1251+    let feeAmount = $t04200342106._3
1252+    let bonus = $t04200342106._4
15041253     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
15051254     }
15061255 
15081257 
15091258 @Callable(i)
15101259 func putOneTknV2WithoutTakeFeeREADONLY (paymentAmountRaw,paymentAssetId) = {
1511-    let $t05007650180 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1512-    let lpAmount = $t05007650180._1
1513-    let state = $t05007650180._2
1514-    let feeAmount = $t05007650180._3
1515-    let bonus = $t05007650180._4
1260+    let poolConfig = gpc()
1261+    let amId = poolConfig[idxAmAsId]
1262+    let prId = poolConfig[idxPrAsId]
1263+    let lpId = poolConfig[idxLPAsId]
1264+    let $t04238542489 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1265+    let lpAmount = $t04238542489._1
1266+    let state = $t04238542489._2
1267+    let feeAmount = $t04238542489._3
1268+    let bonus = $t04238542489._4
15161269     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
15171270     }
15181271 
15971350     match tx {
15981351         case order: Order => 
15991352             let matcherPub = mp()
1600-            let orderValid = validateMatcherOrderAllowed(order)
1353+            let orderValid = moa(order)
16011354             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
16021355             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
16031356             if (if (if (orderValid)

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let scale8 = 100000000
55 
66 let scale8BigInt = toBigInt(100000000)
77 
88 let scale18 = toBigInt(1000000000000000000)
99 
1010 let zeroBigInt = toBigInt(0)
1111 
1212 let big0 = toBigInt(0)
1313 
1414 let big1 = toBigInt(1)
1515 
1616 let big2 = toBigInt(2)
17-
18-let big3 = toBigInt(3)
19-
20-let big4 = toBigInt(4)
2117 
2218 let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
2319 
2420 let wavesString = "WAVES"
2521 
2622 let Amult = "100"
2723 
2824 let Dconv = "1"
2925 
3026 let SEP = "__"
3127 
3228 let EMPTY = ""
3329 
3430 let PoolActive = 1
3531 
3632 let PoolPutDis = 2
3733 
3834 let PoolMatcherDis = 3
3935 
4036 let PoolShutdown = 4
4137 
4238 let idxPoolAddress = 1
4339 
4440 let idxPoolSt = 2
4541 
4642 let idxLPAsId = 3
4743 
4844 let idxAmAsId = 4
4945 
5046 let idxPrAsId = 5
5147 
5248 let idxAmtAsDcm = 6
5349 
5450 let idxPriceAsDcm = 7
5551 
5652 let idxIAmtAsId = 8
5753 
5854 let idxIPriceAsId = 9
5955 
6056 let idxFactStakCntr = 1
6157 
6258 let idxFactoryRestCntr = 6
6359 
6460 let idxFactSlippCntr = 7
6561 
6662 let idxFactGwxRewCntr = 10
6763 
6864 let feeDefault = fraction(10, scale8, 10000)
6965 
7066 func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
7167 
7268 
7369 func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
7470 
7571 
76-func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
77-
78-
7972 func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
8073 
8174 
8275 func abs (val) = if ((zeroBigInt > val))
8376     then -(val)
8477     else val
8578 
8679 
8780 func absBigInt (val) = if ((zeroBigInt > val))
8881     then -(val)
8982     else val
9083 
9184 
9285 func fc () = "%s__factoryContract"
9386 
9487 
9588 func mpk () = "%s__managerPublicKey"
9689 
9790 
9891 func pmpk () = "%s__pendingManagerPublicKey"
9992 
10093 
10194 func pl () = "%s%s__price__last"
10295 
10396 
10497 func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
10598 
10699 
107100 func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
108101 
109102 
110103 func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
111104 
112105 
113106 func aa () = "%s__amountAsset"
114107 
115108 
116109 func pa () = "%s__priceAsset"
117110 
118111 
119112 func amp () = "%s__amp"
120113 
121114 
122115 func ada () = "%s__addonAddr"
123116 
124117 
125-let keyFee = "%s__fee"
126-
127-let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
128-
129-let keyDLp = makeString(["%s", "dLp"], SEP)
130-
131-let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
132-
133-let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
134-
135-let dLpRefreshDelayDefault = 1
136-
137-let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
138-
139118 func fcfg () = "%s__factoryConfig"
140119 
141120 
142121 func mtpk () = "%s%s__matcher__publicKey"
143122 
144123 
145124 func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
146125 
147126 
148127 func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
149128 
150129 
151130 func aps () = "%s__shutdown"
152131 
153132 
154133 func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
155134 
156135 
157136 func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
158137 
159138 
160139 func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
161140 
162141 
142+func str (val) = match val {
143+    case valStr: String => 
144+        valStr
145+    case _ => 
146+        throw("fail cast to String")
147+}
148+
149+
163150 func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
164151 
165152 
166153 func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
167154 
168155 
169156 func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
170-
171-
172-func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
173157 
174158 
175159 let fca = addressFromStringValue(strf(this, fc()))
176160 
177161 let inFee = {
178162     let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
179163     if ($isInstanceOf(@, "Int"))
180164         then @
181165         else throw(($getType(@) + " couldn't be cast to Int"))
182166     }
183167 
184168 let outFee = {
185169     let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
186170     if ($isInstanceOf(@, "Int"))
187171         then @
188172         else throw(($getType(@) + " couldn't be cast to Int"))
189173     }
190174 
191175 let A = strf(this, amp())
192176 
193177 func igs () = valueOrElse(getBoolean(fca, aps()), false)
194178 
195179 
196180 func mp () = fromBase58String(strf(fca, mtpk()))
197181 
198182 
199183 let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
200184 
201185 func gpc () = {
202186     let amtAs = strf(this, aa())
203187     let priceAs = strf(this, pa())
204188     let iPriceAs = intf(fca, mba(priceAs))
205189     let iAmtAs = intf(fca, mba(amtAs))
206190     split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
207191     }
208192 
209193 
210194 func parseAssetId (input) = if ((input == wavesString))
211195     then unit
212196     else fromBase58String(input)
213197 
214198 
215199 func assetIdToString (input) = if ((input == unit))
216200     then wavesString
217201     else toBase58String(value(input))
218202 
219203 
220-func parsePoolConfig (poolConfig) = $Tuple9(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]), fromBase58String(poolConfig[idxIAmtAsId]), fromBase58String(poolConfig[idxIPriceAsId]))
204+func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
221205 
222206 
223207 let poolConfigParsed = parsePoolConfig(gpc())
224208 
225-let $t075447773 = poolConfigParsed
209+let $t069097095 = poolConfigParsed
226210 
227-let cfgPoolAddress = $t075447773._1
211+let cfgPoolAddress = $t069097095._1
228212 
229-let cfgPoolStatus = $t075447773._2
213+let cfgPoolStatus = $t069097095._2
230214 
231-let cfgLpAssetId = $t075447773._3
215+let cfgLpAssetId = $t069097095._3
232216 
233-let cfgAmountAssetId = $t075447773._4
217+let cfgAmountAssetId = $t069097095._4
234218 
235-let cfgPriceAssetId = $t075447773._5
219+let cfgPriceAssetId = $t069097095._5
236220 
237-let cfgAmountAssetDecimals = $t075447773._6
221+let cfgAmountAssetDecimals = $t069097095._6
238222 
239-let cfgPriceAssetDecimals = $t075447773._7
240-
241-let cfgInAmountAssedId = $t075447773._8
242-
243-let cfgInPriceAssetId = $t075447773._9
223+let cfgPriceAssetDecimals = $t069097095._7
244224 
245225 func gfc () = split(strf(fca, fcfg()), SEP)
246226 
247227 
248228 let factoryConfig = gfc()
249229 
250230 let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
251231 
252232 let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
253233 
254234 let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
255235 
256236 let restContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactoryRestCntr]), "Invalid gwx contract address")
257237 
258238 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)
259239 
260240 
261241 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)
262242 
263243 
264244 func getAccBalance (assetId) = if ((assetId == "WAVES"))
265245     then wavesBalance(this).available
266246     else assetBalance(this, fromBase58String(assetId))
267247 
268248 
269249 func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
270-
271-
272-func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
273250 
274251 
275252 func vad (A1,A2,slippage) = {
276253     let diff = fraction((A1 - A2), scale8BigInt, A2)
277254     let pass = ((slippage - abs(diff)) > zeroBigInt)
278255     if (!(pass))
279256         then throw(("Big slpg: " + toString(diff)))
280257         else $Tuple2(pass, min([A1, A2]))
281258     }
282259 
283260 
284261 func vd (D1,D0,slpg) = {
285262     let diff = fraction(D0, scale8BigInt, D1)
286263     let fail = (slpg > diff)
287264     if (if (fail)
288265         then true
289266         else (D0 > D1))
290267         then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
291268         else fail
292269     }
293270 
294271 
295272 func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
296273     let amtAsAmtX18 = t1(amAmt, amAssetDcm)
297274     let prAsAmtX18 = t1(prAmt, prAssetDcm)
298275     cpbi(prAsAmtX18, amtAsAmtX18)
299276     }
300277 
301278 
302279 func calcPrices (amAmt,prAmt,lpAmt) = {
303-    let amtAsDcm = cfgAmountAssetDecimals
304-    let prAsDcm = cfgPriceAssetDecimals
280+    let cfg = gpc()
281+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
282+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
305283     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
306284     let amAmtX18 = t1(amAmt, amtAsDcm)
307285     let prAmtX18 = t1(prAmt, prAsDcm)
308286     let lpAmtX18 = t1(lpAmt, scale8)
309287     let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
310288     let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
311289 [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
312290     }
313291 
314292 
315293 func calculatePrices (amAmt,prAmt,lpAmt) = {
316294     let p = calcPrices(amAmt, prAmt, lpAmt)
317295 [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
318296     }
319297 
320298 
321299 func takeFee (amount,fee) = {
322300     let feeAmount = if ((fee == 0))
323301         then 0
324302         else fraction(amount, fee, scale8)
325303     $Tuple2((amount - feeAmount), feeAmount)
326304     }
327305 
328306 
329307 func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
330-    let lpId = cfgLpAssetId
331-    let amId = toBase58String(value(cfgAmountAssetId))
332-    let prId = toBase58String(value(cfgPriceAssetId))
333-    let amDcm = cfgAmountAssetDecimals
334-    let prDcm = cfgPriceAssetDecimals
335-    let sts = toString(cfgPoolStatus)
336-    let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
337-    if ((toBase58String(lpId) != pmtAssetId))
308+    let cfg = gpc()
309+    let lpId = cfg[idxLPAsId]
310+    let amId = cfg[idxAmAsId]
311+    let prId = cfg[idxPrAsId]
312+    let amDcm = parseIntValue(cfg[idxAmtAsDcm])
313+    let prDcm = parseIntValue(cfg[idxPriceAsDcm])
314+    let sts = cfg[idxPoolSt]
315+    let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
316+    if ((lpId != pmtAssetId))
338317         then throw("Wrong pmt asset")
339318         else {
340319             let amBalance = getAccBalance(amId)
341320             let amBalanceX18 = t1(amBalance, amDcm)
342321             let prBalance = getAccBalance(prId)
343322             let prBalanceX18 = t1(prBalance, prDcm)
344323             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
345324             let curPrice = f1(curPriceX18, scale8)
346325             let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
347326             let lpEmissX18 = t1(lpEmiss, scale8)
348327             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
349328             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
350-            let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
351-            let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
329+            let outAmAmt = f1(outAmAmtX18, amDcm)
330+            let outPrAmt = f1(outPrAmtX18, prDcm)
352331             let state = if ((txId58 == ""))
353332                 then nil
354333                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
355334                     then unit
356335                     else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
357336                     then unit
358337                     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)]
359338             $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
360339             }
361340     }
362341 
363342 
364343 func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
365-    let lpId = cfgLpAssetId
366-    let amIdStr = toBase58String(value(cfgAmountAssetId))
367-    let prIdStr = toBase58String(value(cfgPriceAssetId))
368-    let inAmIdStr = cfgInAmountAssedId
369-    let inPrIdStr = cfgInPriceAssetId
370-    let amtDcm = cfgAmountAssetDecimals
371-    let priceDcm = cfgPriceAssetDecimals
372-    let sts = toString(cfgPoolStatus)
344+    let cfg = gpc()
345+    let lpId = fromBase58String(cfg[idxLPAsId])
346+    let amIdStr = cfg[idxAmAsId]
347+    let prIdStr = cfg[idxPrAsId]
348+    let inAmIdStr = cfg[idxIAmtAsId]
349+    let inPrIdStr = cfg[idxIPriceAsId]
350+    let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
351+    let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
352+    let sts = cfg[idxPoolSt]
373353     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
374354     let amBalance = if (isEval)
375355         then getAccBalance(amIdStr)
376356         else if (if (isOneAsset)
377357             then (pmtId == amIdStr)
378358             else false)
379359             then (getAccBalance(amIdStr) - pmtAmt)
380360             else if (isOneAsset)
381361                 then getAccBalance(amIdStr)
382362                 else (getAccBalance(amIdStr) - inAmAmt)
383363     let prBalance = if (isEval)
384364         then getAccBalance(prIdStr)
385365         else if (if (isOneAsset)
386366             then (pmtId == prIdStr)
387367             else false)
388368             then (getAccBalance(prIdStr) - pmtAmt)
389369             else if (isOneAsset)
390370                 then getAccBalance(prIdStr)
391371                 else (getAccBalance(prIdStr) - inPrAmt)
392372     let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
393373     let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
394374     let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
395375     let amBalanceX18 = t1(amBalance, amtDcm)
396376     let prBalanceX18 = t1(prBalance, priceDcm)
397377     let r = if ((lpEm == 0))
398378         then {
399379             let curPriceX18 = zeroBigInt
400380             let slippageX18 = zeroBigInt
401381             let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
402382             $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
403383             }
404384         else {
405385             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
406386             let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
407387             let slippageX18 = t1(slippage, scale8)
408388             if (if (if (validateSlippage)
409389                 then (curPriceX18 != zeroBigInt)
410390                 else false)
411391                 then (slippageRealX18 > slippageX18)
412392                 else false)
413393                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
414394                 else {
415395                     let lpEmissionX18 = t1(lpEm, scale8)
416-                    let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, FLOOR), scale18, FLOOR)
417-                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), FLOOR)
396+                    let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
397+                    let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
418398                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
419399                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
420400                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
421401                     let expAmtAssetAmtX18 = expectedAmts._1
422402                     let expPriceAssetAmtX18 = expectedAmts._2
423-                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
424-                    $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
403+                    let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
404+                    $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
425405                     }
426406             }
427407     let calcLpAmt = r._1
428408     let calcAmAssetPmt = r._2
429409     let calcPrAssetPmt = r._3
430410     let curPrice = f1(r._4, scale8)
431411     let slippageCalc = f1(r._5, scale8)
432412     if ((0 >= calcLpAmt))
433413         then throw("LP <= 0")
434414         else {
435415             let emitLpAmt = if (!(emitLp))
436416                 then 0
437417                 else calcLpAmt
438418             let amDiff = (inAmAmt - calcAmAssetPmt)
439419             let prDiff = (inPrAmt - calcPrAssetPmt)
440-            let $t01841718762 = if (if (isOneAsset)
420+            let $t01756217907 = if (if (isOneAsset)
441421                 then (pmtId == amIdStr)
442422                 else false)
443423                 then $Tuple2(pmtAmt, 0)
444424                 else if (if (isOneAsset)
445425                     then (pmtId == prIdStr)
446426                     else false)
447427                     then $Tuple2(0, pmtAmt)
448428                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
449-            let writeAmAmt = $t01841718762._1
450-            let writePrAmt = $t01841718762._2
429+            let writeAmAmt = $t01756217907._1
430+            let writePrAmt = $t01756217907._2
451431             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))]
452432             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
453433             }
454434     }
455435 
456436 
457-func getD (xp) = {
458-    let xp0 = xp[0]
459-    let xp1 = xp[1]
460-    let s = (xp0 + xp1)
461-    if ((s == big0))
462-        then big0
463-        else {
464-            let a = parseIntValue(A)
465-            let ann = (a * 2)
466-            let p = fraction(xp0, xp1, big1)
467-            let xp0_xp1_n_n = fraction(p, big4, big1)
468-            let ann_s = fraction(toBigInt(ann), s, big1)
469-            let ann_1 = toBigInt((ann - 1))
470-            func calcDNext (d) =             {
471-                let dd = fraction(d, d, big1)
472-                let ddd = fraction(dd, d, big1)
473-                let dp = fraction(ddd, big1, xp0_xp1_n_n)
474-                fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
475-                }
476-
477-            func calc (acc,i) =             if (acc._2)
478-                then acc
479-                else {
480-                    let d = acc._1
481-                    let dNext = calcDNext(d)
482-                    let dDiffRaw = toInt((dNext - value(d)))
483-                    let dDiff = if ((0 > dDiffRaw))
484-                        then -(dDiffRaw)
485-                        else dDiffRaw
486-                    if ((1 >= dDiff))
487-                        then $Tuple2(dNext, true)
488-                        else $Tuple2(dNext, false)
489-                    }
490-
491-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
492-            let $t02069020738 = {
493-                let $l = arr
494-                let $s = size($l)
495-                let $acc0 = $Tuple2(s, false)
496-                func $f0_1 ($a,$i) =                 if (($i >= $s))
497-                    then $a
498-                    else calc($a, $l[$i])
499-
500-                func $f0_2 ($a,$i) =                 if (($i >= $s))
501-                    then $a
502-                    else throw("List size exceeds 15")
503-
504-                $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)
505-                }
506-            let d = $t02069020738._1
507-            let found = $t02069020738._2
508-            if (found)
509-                then d
510-                else throw(("D calculation error, D = " + toString(d)))
511-            }
512-    }
513-
514-
515-func getDOld (xp) = {
516-    let n = big2
517-    let xp0 = xp[0]
518-    let xp1 = xp[1]
519-    let aPrecision = parseBigIntValue(Amult)
520-    let a = (parseBigIntValue(A) * aPrecision)
521-    let s = (xp0 + xp1)
522-    if ((s == big0))
523-        then big0
524-        else {
525-            let ann = (a * n)
526-            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
527-            let ann_s_aPrecision = ((ann * s) / aPrecision)
528-            let ann_aPrecision = (ann - aPrecision)
529-            let n1 = (n + big1)
530-            func calc (acc,cur) =             {
531-                let $t02136721387 = acc
532-                let d = $t02136721387._1
533-                let found = $t02136721387._2
534-                if ((found != unit))
535-                    then acc
536-                    else {
537-                        let dp = (((d * d) * d) / xp0_xp1_n_n)
538-                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
539-                        let dDiff = absBigInt((dNext - value(d)))
540-                        if ((big1 >= dDiff))
541-                            then $Tuple2(dNext, cur)
542-                            else $Tuple2(dNext, unit)
543-                        }
544-                }
545-
546-            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
547-            let $t02180821855 = {
548-                let $l = arr
549-                let $s = size($l)
550-                let $acc0 = $Tuple2(s, unit)
551-                func $f0_1 ($a,$i) =                 if (($i >= $s))
552-                    then $a
553-                    else calc($a, $l[$i])
554-
555-                func $f0_2 ($a,$i) =                 if (($i >= $s))
556-                    then $a
557-                    else throw("List size exceeds 15")
558-
559-                $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)
560-                }
561-            let d = $t02180821855._1
562-            let found = $t02180821855._2
563-            if ((found != unit))
564-                then d
565-                else throw(("D calculation error, D = " + toString(d)))
566-            }
567-    }
568-
569-
570-func getYD (xp,i,D) = {
571-    let n = big2
572-    let x = xp[if ((i == 0))
573-        then 1
574-        else 0]
575-    let aPrecision = parseBigIntValue(Amult)
576-    let a = (parseBigIntValue(A) * aPrecision)
577-    let s = x
578-    let ann = (a * n)
579-    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
580-    let b = ((s + ((D * aPrecision) / ann)) - D)
581-    func calc (acc,cur) =     {
582-        let $t02235522375 = acc
583-        let y = $t02235522375._1
584-        let found = $t02235522375._2
585-        if ((found != unit))
586-            then acc
587-            else {
588-                let yNext = (((y * y) + c) / ((big2 * y) + b))
589-                let yDiff = absBigInt((yNext - value(y)))
590-                if ((big1 >= yDiff))
591-                    then $Tuple2(yNext, cur)
592-                    else $Tuple2(yNext, unit)
593-                }
594-        }
595-
596-    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
597-    let $t02268222729 = {
598-        let $l = arr
599-        let $s = size($l)
600-        let $acc0 = $Tuple2(D, unit)
601-        func $f0_1 ($a,$i) =         if (($i >= $s))
602-            then $a
603-            else calc($a, $l[$i])
604-
605-        func $f0_2 ($a,$i) =         if (($i >= $s))
606-            then $a
607-            else throw("List size exceeds 15")
608-
609-        $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)
610-        }
611-    let y = $t02268222729._1
612-    let found = $t02268222729._2
613-    if ((found != unit))
614-        then y
615-        else throw(("Y calculation error, Y = " + toString(y)))
616-    }
617-
618-
619-func calcDLp (amountBalance,priceBalance,lpEmission) = {
620-    let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
621-    if ((lpEmission == big0))
622-        then big0
623-        else updatedDLp
624-    }
625-
626-
627-func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
628-    let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
629-    let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
630-    let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
631-    let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
632-    currentDLp
633-    }
634-
635-
636-func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
637-    let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
638-    let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
639-    let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
640-    let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
641-    let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
642-    $Tuple2(actions, updatedDLp)
643-    }
644-
645-
646-func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
647-    then true
648-    else throwErr("updated DLp lower than current DLp")
649-
650-
651-func validateMatcherOrderAllowed (order) = {
652-    let amountAssetAmount = order.amount
653-    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
654-    let $t02466824880 = if ((order.orderType == Buy))
655-        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
656-        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
657-    let amountAssetBalanceDelta = $t02466824880._1
658-    let priceAssetBalanceDelta = $t02466824880._2
437+func moa (order) = {
438+    let cfg = gpc()
439+    let amtAsId = cfg[idxAmAsId]
440+    let prAsId = cfg[idxPrAsId]
441+    let sts = parseIntValue(cfg[idxPoolSt])
442+    let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
443+    let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
444+    let accAmtAsBalance = getAccBalance(amtAsId)
445+    let accPrAsBalance = getAccBalance(prAsId)
446+    let curPriceX18 = if ((order.orderType == Buy))
447+        then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
448+        else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
449+    let curPrice = f1(curPriceX18, scale8)
659450     if (if (if (igs())
660451         then true
661-        else (cfgPoolStatus == PoolMatcherDis))
452+        else (sts == PoolMatcherDis))
662453         then true
663-        else (cfgPoolStatus == PoolShutdown))
454+        else (sts == PoolShutdown))
664455         then throw("Admin blocked")
665-        else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
666-            then true
667-            else (order.assetPair.priceAsset != cfgPriceAssetId))
668-            then throw("Wr assets")
669-            else {
670-                let dLp = parseBigIntValue(getStringValue(this, keyDLp))
671-                let $t02521025310 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
672-                let unusedActions = $t02521025310._1
673-                let dLpNew = $t02521025310._2
674-                let isOrderValid = (dLpNew >= dLp)
675-                isOrderValid
676-                }
456+        else {
457+            let orAmtAsset = order.assetPair.amountAsset
458+            let orAmtAsStr = if ((orAmtAsset == unit))
459+                then "WAVES"
460+                else toBase58String(value(orAmtAsset))
461+            let orPrAsset = order.assetPair.priceAsset
462+            let orPrAsStr = if ((orPrAsset == unit))
463+                then "WAVES"
464+                else toBase58String(value(orPrAsset))
465+            if (if ((orAmtAsStr != amtAsId))
466+                then true
467+                else (orPrAsStr != prAsId))
468+                then throw("Wr assets")
469+                else {
470+                    let orderPrice = order.price
471+                    let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
472+                    let castOrderPrice = ts(orderPrice, scale8, priceDcm)
473+                    let isOrderPriceValid = if ((order.orderType == Buy))
474+                        then (curPrice >= castOrderPrice)
475+                        else (castOrderPrice >= curPrice)
476+                    true
477+                    }
478+            }
677479     }
678480 
679481 
680482 func cg (i) = if ((size(i.payments) != 1))
681483     then throw("1 pmnt exp")
682484     else {
683485         let pmt = value(i.payments[0])
684486         let pmtAssetId = value(pmt.assetId)
685487         let pmtAmt = pmt.amount
686488         let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
687489         let outAmAmt = r._1
688490         let outPrAmt = r._2
689491         let sts = parseIntValue(r._9)
690492         let state = r._10
691493         if (if (igs())
692494             then true
693495             else (sts == PoolShutdown))
694496             then throw(("Admin blocked: " + toString(sts)))
695497             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
696498         }
697499 
698500 
699501 func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
700502     let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
701503     let sts = parseIntValue(r._8)
702504     if (if (if (igs())
703505         then true
704506         else (sts == PoolPutDis))
705507         then true
706508         else (sts == PoolShutdown))
707509         then throw(("Blocked:" + toString(sts)))
708510         else r
709511     }
710512 
711513 
514+func getD (xp) = {
515+    let n = big2
516+    let xp0 = xp[0]
517+    let xp1 = xp[1]
518+    let aPrecision = parseBigIntValue(Amult)
519+    let a = (parseBigIntValue(A) * aPrecision)
520+    let s = (xp0 + xp1)
521+    if ((s == big0))
522+        then big0
523+        else {
524+            let ann = (a * n)
525+            let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
526+            let ann_s_aPrecision = ((ann * s) / aPrecision)
527+            let ann_aPrecision = (ann - aPrecision)
528+            let n1 = (n + big1)
529+            func calc (acc,cur) =             {
530+                let $t02245922479 = acc
531+                let d = $t02245922479._1
532+                let found = $t02245922479._2
533+                if ((found != unit))
534+                    then acc
535+                    else {
536+                        let dp = (((d * d) * d) / xp0_xp1_n_n)
537+                        let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
538+                        let dDiff = absBigInt((dNext - value(d)))
539+                        if ((big1 >= dDiff))
540+                            then $Tuple2(dNext, cur)
541+                            else $Tuple2(dNext, unit)
542+                        }
543+                }
544+
545+            let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
546+            let $t02290022947 = {
547+                let $l = arr
548+                let $s = size($l)
549+                let $acc0 = $Tuple2(s, unit)
550+                func $f0_1 ($a,$i) =                 if (($i >= $s))
551+                    then $a
552+                    else calc($a, $l[$i])
553+
554+                func $f0_2 ($a,$i) =                 if (($i >= $s))
555+                    then $a
556+                    else throw("List size exceeds 15")
557+
558+                $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)
559+                }
560+            let d = $t02290022947._1
561+            let found = $t02290022947._2
562+            if ((found != unit))
563+                then d
564+                else throw(("D calculation error, D = " + toString(d)))
565+            }
566+    }
567+
568+
569+func getYD (xp,i,D) = {
570+    let n = big2
571+    let x = xp[if ((i == 0))
572+        then 1
573+        else 0]
574+    let aPrecision = parseBigIntValue(Amult)
575+    let a = (parseBigIntValue(A) * aPrecision)
576+    let s = x
577+    let ann = (a * n)
578+    let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
579+    let b = ((s + ((D * aPrecision) / ann)) - D)
580+    func calc (acc,cur) =     {
581+        let $t02344723467 = acc
582+        let y = $t02344723467._1
583+        let found = $t02344723467._2
584+        if ((found != unit))
585+            then acc
586+            else {
587+                let yNext = (((y * y) + c) / ((big2 * y) + b))
588+                let yDiff = absBigInt((yNext - value(y)))
589+                if ((big1 >= yDiff))
590+                    then $Tuple2(yNext, cur)
591+                    else $Tuple2(yNext, unit)
592+                }
593+        }
594+
595+    let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
596+    let $t02377423821 = {
597+        let $l = arr
598+        let $s = size($l)
599+        let $acc0 = $Tuple2(D, unit)
600+        func $f0_1 ($a,$i) =         if (($i >= $s))
601+            then $a
602+            else calc($a, $l[$i])
603+
604+        func $f0_2 ($a,$i) =         if (($i >= $s))
605+            then $a
606+            else throw("List size exceeds 15")
607+
608+        $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)
609+        }
610+    let y = $t02377423821._1
611+    let found = $t02377423821._2
612+    if ((found != unit))
613+        then y
614+        else throw(("Y calculation error, Y = " + toString(y)))
615+    }
616+
617+
712618 func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
713-    let amId = toBase58String(value(cfgAmountAssetId))
714-    let prId = toBase58String(value(cfgPriceAssetId))
715-    let lpId = cfgLpAssetId
716-    let amtDcm = cfgAmountAssetDecimals
717-    let priceDcm = cfgPriceAssetDecimals
718-    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
619+    let poolConfig = gpc()
620+    let amId = poolConfig[idxAmAsId]
621+    let prId = poolConfig[idxPrAsId]
622+    let lpId = poolConfig[idxLPAsId]
623+    let amtDcm = parseIntValue(poolConfig[idxAmtAsDcm])
624+    let priceDcm = parseIntValue(poolConfig[idxPriceAsDcm])
625+    let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
719626     let chechEmission = if ((lpAssetEmission > big0))
720627         then true
721628         else throw("initial deposit requires all coins")
722629     if ((chechEmission == chechEmission))
723630         then {
724631             let amBalance = getAccBalance(amId)
725632             let prBalance = getAccBalance(prId)
726-            let $t02757628038 = if ((txId == ""))
633+            let $t02460425066 = if ((txId == ""))
727634                 then $Tuple2(amBalance, prBalance)
728635                 else if ((pmtAssetId == amId))
729636                     then if ((pmtAmtRaw > amBalance))
730637                         then throw("invalid payment amount")
731638                         else $Tuple2((amBalance - pmtAmtRaw), prBalance)
732639                     else if ((pmtAssetId == prId))
733640                         then if ((pmtAmtRaw > prBalance))
734641                             then throw("invalid payment amount")
735642                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
736643                         else throw("wrong pmtAssetId")
737-            let amBalanceOld = $t02757628038._1
738-            let prBalanceOld = $t02757628038._2
739-            let $t02804428220 = if ((pmtAssetId == amId))
644+            let amBalanceOld = $t02460425066._1
645+            let prBalanceOld = $t02460425066._2
646+            let $t02507225248 = if ((pmtAssetId == amId))
740647                 then $Tuple2(pmtAmtRaw, 0)
741648                 else if ((pmtAssetId == prId))
742649                     then $Tuple2(0, pmtAmtRaw)
743650                     else throw("invalid payment")
744-            let amAmountRaw = $t02804428220._1
745-            let prAmountRaw = $t02804428220._2
746-            let $t02822428478 = if (withTakeFee)
651+            let amAmountRaw = $t02507225248._1
652+            let prAmountRaw = $t02507225248._2
653+            let $t02525225506 = if (withTakeFee)
747654                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
748655                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
749-            let amAmount = $t02822428478._1
750-            let prAmount = $t02822428478._2
751-            let feeAmount = $t02822428478._3
656+            let amAmount = $t02525225506._1
657+            let prAmount = $t02525225506._2
658+            let feeAmount = $t02525225506._3
752659             let amBalanceNew = (amBalanceOld + amAmount)
753660             let prBalanceNew = (prBalanceOld + prAmount)
754661             let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
755662             let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
756663             let checkD = if ((D1 > D0))
757664                 then true
758665                 else throw()
759666             if ((checkD == checkD))
760667                 then {
761-                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
668+                    let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0)
762669                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
763670                     let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
764671                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
765672                     let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
766673                     let priceAssetPart = (pmtAmtRaw - amountAssetPart)
767674                     let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
768675                     let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
769676                     $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
770677                     }
771678                 else throw("Strict value is not equal to itself.")
772679             }
773680         else throw("Strict value is not equal to itself.")
774681     }
775682 
776683 
777684 func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = {
778-    let lpId = toBase58String(value(cfgLpAssetId))
779-    let amId = toBase58String(value(cfgAmountAssetId))
780-    let prId = toBase58String(value(cfgPriceAssetId))
781-    let amDecimals = cfgAmountAssetDecimals
782-    let prDecimals = cfgPriceAssetDecimals
783-    let poolStatus = cfgPoolStatus
685+    let poolConfig = gpc()
686+    let lpId = poolConfig[idxLPAsId]
687+    let amId = poolConfig[idxAmAsId]
688+    let prId = poolConfig[idxPrAsId]
689+    let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
690+    let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
691+    let poolStatus = poolConfig[idxPoolSt]
784692     let userAddress = if ((caller == restContract))
785693         then originCaller
786694         else caller
787695     let pmt = value(payments[0])
788696     let pmtAssetId = value(pmt.assetId)
789697     let pmtAmt = pmt.amount
790-    let currentDLp = calcCurrentDLp(big0, big0, big0)
791-    if ((currentDLp == currentDLp))
792-        then {
793-            let txId58 = toBase58String(transactionId)
794-            if ((lpId != toBase58String(pmtAssetId)))
795-                then throw("Wrong LP")
796-                else {
797-                    let amBalance = getAccBalance(amId)
798-                    let prBalance = getAccBalance(prId)
799-                    let $t03052830639 = {
800-                        let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
801-                        if ($isInstanceOf(@, "(Int, Int)"))
802-                            then @
803-                            else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
804-                        }
805-                    if (($t03052830639 == $t03052830639))
698+    let txId58 = toBase58String(transactionId)
699+    if ((lpId != toBase58String(pmtAssetId)))
700+        then throw("Wrong LP")
701+        else {
702+            let amBalance = getAccBalance(amId)
703+            let prBalance = getAccBalance(prId)
704+            let $t02750827619 = {
705+                let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
706+                if ($isInstanceOf(@, "(Int, Int)"))
707+                    then @
708+                    else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
709+                }
710+            if (($t02750827619 == $t02750827619))
711+                then {
712+                    let feeAmount = $t02750827619._2
713+                    let totalGet = $t02750827619._1
714+                    let totalAmount = if (if ((minOutAmount > 0))
715+                        then (minOutAmount > totalGet)
716+                        else false)
717+                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
718+                        else totalGet
719+                    let $t02780928116 = if ((outAssetId == amId))
720+                        then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
721+                        else if ((outAssetId == prId))
722+                            then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
723+                            else throw("invalid out asset id")
724+                    let outAm = $t02780928116._1
725+                    let outPr = $t02780928116._2
726+                    let amBalanceNew = $t02780928116._3
727+                    let prBalanceNew = $t02780928116._4
728+                    let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
729+                    let curPr = f1(curPrX18, scale8)
730+                    let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
731+                        then unit
732+                        else fromBase58String(outAssetId)
733+                    let sendFeeToMatcher = if ((feeAmount > 0))
734+                        then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
735+                        else nil
736+                    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)
737+                    if ((state == state))
806738                         then {
807-                            let feeAmount = $t03052830639._2
808-                            let totalGet = $t03052830639._1
809-                            let totalAmount = if (if ((minOutAmount > 0))
810-                                then (minOutAmount > totalGet)
811-                                else false)
812-                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
813-                                else totalGet
814-                            let $t03082931136 = if ((outAssetId == amId))
815-                                then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
816-                                else if ((outAssetId == prId))
817-                                    then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
818-                                    else throw("invalid out asset id")
819-                            let outAm = $t03082931136._1
820-                            let outPr = $t03082931136._2
821-                            let amBalanceNew = $t03082931136._3
822-                            let prBalanceNew = $t03082931136._4
823-                            let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
824-                            let curPr = f1(curPrX18, scale8)
825-                            let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
826-                                then unit
827-                                else fromBase58String(outAssetId)
828-                            let sendFeeToMatcher = if ((feeAmount > 0))
829-                                then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
830-                                else nil
831-                            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)
832-                            if ((state == state))
833-                                then {
834-                                    let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
835-                                    if ((burn == burn))
836-                                        then {
837-                                            let $t03192132271 = {
838-                                                let feeAmountForCalc = if ((this == feeCollectorAddress))
839-                                                    then 0
840-                                                    else feeAmount
841-                                                let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
842-                                                    then true
843-                                                    else false
844-                                                if (outInAmountAsset)
845-                                                    then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
846-                                                    else $Tuple2(0, -((totalGet + feeAmountForCalc)))
847-                                                }
848-                                            let amountAssetBalanceDelta = $t03192132271._1
849-                                            let priceAssetBalanceDelta = $t03192132271._2
850-                                            let $t03227432382 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
851-                                            let refreshDLpActions = $t03227432382._1
852-                                            let updatedDLp = $t03227432382._2
853-                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
854-                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
855-                                                then $Tuple2((state ++ refreshDLpActions), totalAmount)
856-                                                else throw("Strict value is not equal to itself.")
857-                                            }
858-                                        else throw("Strict value is not equal to itself.")
859-                                    }
739+                            let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
740+                            if ((burn == burn))
741+                                then $Tuple2(state, totalAmount)
860742                                 else throw("Strict value is not equal to itself.")
861743                             }
862744                         else throw("Strict value is not equal to itself.")
863745                     }
746+                else throw("Strict value is not equal to itself.")
864747             }
865-        else throw("Strict value is not equal to itself.")
866748     }
867749 
868750 
869751 func m () = match getString(mpk()) {
870752     case s: String => 
871753         fromBase58String(s)
872754     case _: Unit => 
873755         unit
874756     case _ => 
875757         throw("Match error")
876758 }
877759 
878760 
879761 func pm () = match getString(pmpk()) {
880762     case s: String => 
881763         fromBase58String(s)
882764     case _: Unit => 
883765         unit
884766     case _ => 
885767         throw("Match error")
886768 }
887769 
888770 
889771 let pd = throw("Permission denied")
890772 
891773 func isManager (i) = match m() {
892774     case pk: ByteVector => 
893775         (i.callerPublicKey == pk)
894776     case _: Unit => 
895777         (i.caller == this)
896778     case _ => 
897779         throw("Match error")
898780 }
899781 
900782 
901783 func mm (i) = match m() {
902784     case pk: ByteVector => 
903785         if ((i.callerPublicKey == pk))
904786             then true
905787             else pd
906788     case _: Unit => 
907789         if ((i.caller == this))
908790             then true
909791             else pd
910792     case _ => 
911793         throw("Match error")
912794 }
913795 
914796 
915797 @Callable(i)
916798 func constructor (fc) = {
917799     let c = mm(i)
918800     if ((c == c))
919801         then [StringEntry(fc(), fc)]
920802         else throw("Strict value is not equal to itself.")
921803     }
922804 
923805 
924806 
925807 @Callable(i)
926808 func setManager (pendingManagerPublicKey) = {
927809     let c = mm(i)
928810     if ((c == c))
929811         then {
930812             let cm = fromBase58String(pendingManagerPublicKey)
931813             if ((cm == cm))
932814                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
933815                 else throw("Strict value is not equal to itself.")
934816             }
935817         else throw("Strict value is not equal to itself.")
936818     }
937819 
938820 
939821 
940822 @Callable(i)
941823 func confirmManager () = {
942824     let p = pm()
943825     let hpm = if (isDefined(p))
944826         then true
945827         else throw("No pending manager")
946828     if ((hpm == hpm))
947829         then {
948830             let cpm = if ((i.callerPublicKey == value(p)))
949831                 then true
950832                 else throw("You are not pending manager")
951833             if ((cpm == cpm))
952834                 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
953835                 else throw("Strict value is not equal to itself.")
954836             }
955837         else throw("Strict value is not equal to itself.")
956838     }
957839 
958840 
959841 
960842 @Callable(i)
961843 func put (slip,autoStake) = {
962844     let factCfg = gfc()
963845     let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
964846     let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
965847     if ((0 > slip))
966848         then throw("Wrong slippage")
967849         else if ((size(i.payments) != 2))
968850             then throw("2 pmnts expd")
969851             else {
970-                let amAssetPmt = toBigInt(value(i.payments[0]).amount)
971-                let prAssetPmt = toBigInt(value(i.payments[1]).amount)
972-                let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
973-                if ((amountAssetBalance == amountAssetBalance))
852+                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, "")
853+                let emitLpAmt = e._2
854+                let lpAssetId = e._7
855+                let state = e._9
856+                let amDiff = e._10
857+                let prDiff = e._11
858+                let amId = e._12
859+                let prId = e._13
860+                let r = invoke(fca, "emit", [emitLpAmt], nil)
861+                if ((r == r))
974862                     then {
975-                        let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
976-                        if ((priceAssetBalance == priceAssetBalance))
863+                        let el =                         match r {
864+                            case legacy: Address => 
865+                                invoke(legacy, "emit", [emitLpAmt], nil)
866+                            case _ => 
867+                                unit
868+                        }
869+                        if ((el == el))
977870                             then {
978-                                let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
979-                                if ((lpAssetEmission == lpAssetEmission))
871+                                let sa = if ((amDiff > 0))
872+                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
873+                                    else nil
874+                                if ((sa == sa))
980875                                     then {
981-                                        let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
982-                                        if ((currentDLp == currentDLp))
876+                                        let sp = if ((prDiff > 0))
877+                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
878+                                            else nil
879+                                        if ((sp == sp))
983880                                             then {
984-                                                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, "")
985-                                                let emitLpAmt = e._2
986-                                                let lpAssetId = e._7
987-                                                let state = e._9
988-                                                let amDiff = e._10
989-                                                let prDiff = e._11
990-                                                let amId = e._12
991-                                                let prId = e._13
992-                                                let r = invoke(fca, "emit", [emitLpAmt], nil)
993-                                                if ((r == r))
881+                                                let lpTrnsfr = if (autoStake)
994882                                                     then {
995-                                                        let el =                                                         match r {
996-                                                            case legacy: Address => 
997-                                                                invoke(legacy, "emit", [emitLpAmt], nil)
998-                                                            case _ => 
999-                                                                unit
1000-                                                        }
1001-                                                        if ((el == el))
1002-                                                            then {
1003-                                                                let sa = if ((amDiff > 0))
1004-                                                                    then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1005-                                                                    else nil
1006-                                                                if ((sa == sa))
1007-                                                                    then {
1008-                                                                        let sp = if ((prDiff > 0))
1009-                                                                            then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1010-                                                                            else nil
1011-                                                                        if ((sp == sp))
1012-                                                                            then {
1013-                                                                                let lpTrnsfr = if (autoStake)
1014-                                                                                    then {
1015-                                                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1016-                                                                                        if ((ss == ss))
1017-                                                                                            then nil
1018-                                                                                            else throw("Strict value is not equal to itself.")
1019-                                                                                        }
1020-                                                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1021-                                                                                let $t03653136673 = refreshDLpInternal(0, 0, 0)
1022-                                                                                let refreshDLpActions = $t03653136673._1
1023-                                                                                let updatedDLp = $t03653136673._2
1024-                                                                                let check = if ((updatedDLp >= currentDLp))
1025-                                                                                    then true
1026-                                                                                    else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1027-                                                                                if ((check == check))
1028-                                                                                    then {
1029-                                                                                        let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1030-                                                                                        if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1031-                                                                                            then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1032-                                                                                            else throw("Strict value is not equal to itself.")
1033-                                                                                        }
1034-                                                                                    else throw("Strict value is not equal to itself.")
1035-                                                                                }
1036-                                                                            else throw("Strict value is not equal to itself.")
1037-                                                                        }
1038-                                                                    else throw("Strict value is not equal to itself.")
1039-                                                                }
883+                                                        let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
884+                                                        if ((ss == ss))
885+                                                            then nil
1040886                                                             else throw("Strict value is not equal to itself.")
1041887                                                         }
1042-                                                    else throw("Strict value is not equal to itself.")
888+                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
889+                                                (state ++ lpTrnsfr)
1043890                                                 }
1044891                                             else throw("Strict value is not equal to itself.")
1045892                                         }
1046893                                     else throw("Strict value is not equal to itself.")
1047894                                 }
1048895                             else throw("Strict value is not equal to itself.")
1049896                         }
1050897                     else throw("Strict value is not equal to itself.")
1051898                 }
1052899     }
1053900 
1054901 
1055902 
1056903 @Callable(i)
1057904 func putOneTknV2 (minOutAmount,autoStake) = {
1058905     let isPoolOneTokenOperationsDisabled = {
1059906         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
1060907         if ($isInstanceOf(@, "Boolean"))
1061908             then @
1062909             else throw(($getType(@) + " couldn't be cast to Boolean"))
1063910         }
1064911     let isPutDisabled = if (if (if (igs())
1065912         then true
1066913         else (cfgPoolStatus == PoolPutDis))
1067914         then true
1068915         else (cfgPoolStatus == PoolShutdown))
1069916         then true
1070917         else isPoolOneTokenOperationsDisabled
1071918     let checks = [if (if (!(isPutDisabled))
1072919         then true
1073920         else isManager(i))
1074921         then true
1075922         else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
1076923         then true
1077924         else throwErr("exactly 1 payment are expected")]
1078925     if ((checks == checks))
1079926         then {
1080-            let amId = toBase58String(value(cfgAmountAssetId))
1081-            let prId = toBase58String(value(cfgPriceAssetId))
1082-            let lpId = cfgLpAssetId
1083-            let amDecimals = cfgAmountAssetDecimals
1084-            let prDecimals = cfgPriceAssetDecimals
927+            let poolConfig = gpc()
928+            let amId = poolConfig[idxAmAsId]
929+            let prId = poolConfig[idxPrAsId]
930+            let lpId = fromBase58String(poolConfig[idxLPAsId])
931+            let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
932+            let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
1085933             let userAddress = if ((i.caller == this))
1086934                 then i.originCaller
1087935                 else i.caller
1088936             let pmt = value(i.payments[0])
1089937             let pmtAssetId = toBase58String(value(pmt.assetId))
1090938             let pmtAmt = pmt.amount
1091-            let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1092-                then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1093-                else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1094-            if ((currentDLp == currentDLp))
939+            let $t03347833636 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
940+            if (($t03347833636 == $t03347833636))
1095941                 then {
1096-                    let $t03831438472 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1097-                    if (($t03831438472 == $t03831438472))
942+                    let feeAmount = $t03347833636._3
943+                    let state = $t03347833636._2
944+                    let estimLP = $t03347833636._1
945+                    let emitLpAmt = if (if ((minOutAmount > 0))
946+                        then (minOutAmount > estimLP)
947+                        else false)
948+                        then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
949+                        else estimLP
950+                    let e = invoke(fca, "emit", [emitLpAmt], nil)
951+                    if ((e == e))
1098952                         then {
1099-                            let feeAmount = $t03831438472._3
1100-                            let state = $t03831438472._2
1101-                            let estimLP = $t03831438472._1
1102-                            let emitLpAmt = if (if ((minOutAmount > 0))
1103-                                then (minOutAmount > estimLP)
1104-                                else false)
1105-                                then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1106-                                else estimLP
1107-                            let e = invoke(fca, "emit", [emitLpAmt], nil)
1108-                            if ((e == e))
953+                            let el =                             match e {
954+                                case legacy: Address => 
955+                                    invoke(legacy, "emit", [emitLpAmt], nil)
956+                                case _ => 
957+                                    unit
958+                            }
959+                            if ((el == el))
1109960                                 then {
1110-                                    let el =                                     match e {
1111-                                        case legacy: Address => 
1112-                                            invoke(legacy, "emit", [emitLpAmt], nil)
1113-                                        case _ => 
1114-                                            unit
1115-                                    }
1116-                                    if ((el == el))
961+                                    let lpTrnsfr = if (autoStake)
1117962                                         then {
1118-                                            let lpTrnsfr = if (autoStake)
1119-                                                then {
1120-                                                    let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
1121-                                                    if ((ss == ss))
1122-                                                        then nil
1123-                                                        else throw("Strict value is not equal to itself.")
1124-                                                    }
1125-                                                else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1126-                                            let sendFeeToMatcher = if ((feeAmount > 0))
1127-                                                then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1128-                                                else nil
1129-                                            let $t03928739636 = if ((this == feeCollectorAddress))
1130-                                                then $Tuple2(0, 0)
1131-                                                else {
1132-                                                    let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1133-                                                        then true
1134-                                                        else false
1135-                                                    if (paymentInAmountAsset)
1136-                                                        then $Tuple2(-(feeAmount), 0)
1137-                                                        else $Tuple2(0, -(feeAmount))
1138-                                                    }
1139-                                            let amountAssetBalanceDelta = $t03928739636._1
1140-                                            let priceAssetBalanceDelta = $t03928739636._2
1141-                                            let $t03963939747 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1142-                                            let refreshDLpActions = $t03963939747._1
1143-                                            let updatedDLp = $t03963939747._2
1144-                                            let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1145-                                            if ((isUpdatedDLpValid == isUpdatedDLpValid))
1146-                                                then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
963+                                            let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpId, emitLpAmt)])
964+                                            if ((ss == ss))
965+                                                then nil
1147966                                                 else throw("Strict value is not equal to itself.")
1148967                                             }
1149-                                        else throw("Strict value is not equal to itself.")
968+                                        else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
969+                                    let sendFeeToMatcher = if ((feeAmount > 0))
970+                                        then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
971+                                        else nil
972+                                    $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
1150973                                     }
1151974                                 else throw("Strict value is not equal to itself.")
1152975                             }
1153976                         else throw("Strict value is not equal to itself.")
1154977                     }
1155978                 else throw("Strict value is not equal to itself.")
1156979             }
1157980         else throw("Strict value is not equal to itself.")
1158981     }
1159982 
1160983 
1161984 
1162985 @Callable(i)
1163986 func putForFree (maxSlpg) = if ((0 > maxSlpg))
1164987     then throw("Wrong slpg")
1165988     else if ((size(i.payments) != 2))
1166989         then throw("2 pmnts expd")
1167990         else {
1168991             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, "")
1169-            let state = estPut._9
1170-            let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1171-            let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1172-            let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1173-            if ((currentDLp == currentDLp))
1174-                then {
1175-                    let $t04077740842 = refreshDLpInternal(0, 0, 0)
1176-                    let refreshDLpActions = $t04077740842._1
1177-                    let updatedDLp = $t04077740842._2
1178-                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1179-                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1180-                        then (state ++ refreshDLpActions)
1181-                        else throw("Strict value is not equal to itself.")
1182-                    }
1183-                else throw("Strict value is not equal to itself.")
992+            estPut._9
1184993             }
1185994 
1186995 
1187996 
1188997 @Callable(i)
1189998 func get () = {
1190-    let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1191-    if ((currentDLp == currentDLp))
1192-        then {
1193-            let r = cg(i)
1194-            let outAmtAmt = r._1
1195-            let outPrAmt = r._2
1196-            let pmtAmt = r._3
1197-            let pmtAssetId = r._4
1198-            let state = r._5
1199-            let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1200-            if ((b == b))
1201-                then {
1202-                    let $t04201542097 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1203-                    let refreshDLpActions = $t04201542097._1
1204-                    let updatedDLp = $t04201542097._2
1205-                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1206-                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1207-                        then (state ++ refreshDLpActions)
1208-                        else throw("Strict value is not equal to itself.")
1209-                    }
1210-                else throw("Strict value is not equal to itself.")
1211-            }
999+    let r = cg(i)
1000+    let outAmtAmt = r._1
1001+    let outPrAmt = r._2
1002+    let pmtAmt = r._3
1003+    let pmtAssetId = r._4
1004+    let state = r._5
1005+    let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1006+    if ((b == b))
1007+        then state
12121008         else throw("Strict value is not equal to itself.")
12131009     }
12141010 
12151011 
12161012 
12171013 @Callable(i)
12181014 func getOneTknV2 (outAssetId,minOutAmount) = {
12191015     let isPoolOneTokenOperationsDisabled = {
12201016         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
12211017         if ($isInstanceOf(@, "Boolean"))
12221018             then @
12231019             else throw(($getType(@) + " couldn't be cast to Boolean"))
12241020         }
12251021     let isGetDisabled = if (if (igs())
12261022         then true
12271023         else (cfgPoolStatus == PoolShutdown))
12281024         then true
12291025         else isPoolOneTokenOperationsDisabled
12301026     let checks = [if (if (!(isGetDisabled))
12311027         then true
12321028         else isManager(i))
12331029         then true
12341030         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
12351031         then true
12361032         else throwErr("exactly 1 payment are expected")]
12371033     if ((checks == checks))
12381034         then {
1239-            let $t04271542870 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1240-            let state = $t04271542870._1
1241-            let totalAmount = $t04271542870._2
1035+            let $t03625836413 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1036+            let state = $t03625836413._1
1037+            let totalAmount = $t03625836413._2
12421038             $Tuple2(state, totalAmount)
12431039             }
12441040         else throw("Strict value is not equal to itself.")
12451041     }
12461042 
12471043 
12481044 
12491045 @Callable(i)
1250-func refreshDLp () = {
1251-    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1252-    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1253-        then unit
1254-        else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1255-    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1256-        then {
1257-            let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1258-            let $t04339443458 = refreshDLpInternal(0, 0, 0)
1259-            let dLpUpdateActions = $t04339443458._1
1260-            let updatedDLp = $t04339443458._2
1261-            let actions = if ((dLp != updatedDLp))
1262-                then dLpUpdateActions
1263-                else throwErr("nothing to refresh")
1264-            $Tuple2(actions, toString(updatedDLp))
1265-            }
1266-        else throw("Strict value is not equal to itself.")
1267-    }
1268-
1269-
1270-
1271-@Callable(i)
12721046 func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1273-    let amId = toBase58String(value(cfgAmountAssetId))
1274-    let prId = toBase58String(value(cfgPriceAssetId))
1275-    let lpId = toBase58String(value(cfgLpAssetId))
1047+    let poolConfig = gpc()
1048+    let amId = poolConfig[idxAmAsId]
1049+    let prId = poolConfig[idxPrAsId]
1050+    let lpId = poolConfig[idxLPAsId]
12761051     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
12771052     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
12781053     let D0 = getD(xp)
12791054     let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
12801055     let index = if ((outAssetId == amId))
12811056         then 0
12821057         else if ((outAssetId == prId))
12831058             then 1
12841059             else throw("invalid out asset id")
12851060     let newY = getYD(xp, index, D1)
12861061     let dy = (xp[index] - newY)
12871062     let totalGetRaw = max([0, toInt((dy - big1))])
1288-    let $t04438844443 = takeFee(totalGetRaw, outFee)
1289-    let totalGet = $t04438844443._1
1290-    let feeAmount = $t04438844443._2
1063+    let $t03720337258 = takeFee(totalGetRaw, outFee)
1064+    let totalGet = $t03720337258._1
1065+    let feeAmount = $t03720337258._2
12911066     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
12921067     }
12931068 
12941069 
12951070 
12961071 @Callable(i)
12971072 func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1298-    let amId = toBase58String(value(cfgAmountAssetId))
1299-    let prId = toBase58String(value(cfgPriceAssetId))
1300-    let lpId = toBase58String(value(cfgLpAssetId))
1073+    let poolConfig = gpc()
1074+    let amId = poolConfig[idxAmAsId]
1075+    let prId = poolConfig[idxPrAsId]
1076+    let lpId = poolConfig[idxLPAsId]
13011077     let amBalance = getAccBalance(amId)
13021078     let prBalance = getAccBalance(prId)
1303-    let $t04481844933 = {
1079+    let $t03760337718 = {
13041080         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
13051081         if ($isInstanceOf(@, "(Int, Int)"))
13061082             then @
13071083             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
13081084         }
1309-    let totalGet = $t04481844933._1
1310-    let feeAmount = $t04481844933._2
1085+    let totalGet = $t03760337718._1
1086+    let feeAmount = $t03760337718._2
13111087     let r = ego("", lpId, lpAssetAmount, this)
13121088     let outAmAmt = r._1
13131089     let outPrAmt = r._2
13141090     let sumOfGetAssets = (outAmAmt + outPrAmt)
13151091     let bonus = if ((sumOfGetAssets == 0))
13161092         then if ((totalGet == 0))
13171093             then 0
13181094             else throw("bonus calculation error")
13191095         else fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
13201096     $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
13211097     }
13221098 
13231099 
13241100 
13251101 @Callable(i)
13261102 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
13271103     let r = cg(i)
13281104     let outAmAmt = r._1
13291105     let outPrAmt = r._2
13301106     let pmtAmt = r._3
13311107     let pmtAssetId = r._4
13321108     let state = r._5
13331109     if ((noLessThenAmtAsset > outAmAmt))
13341110         then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
13351111         else if ((noLessThenPriceAsset > outPrAmt))
13361112             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
13371113             else {
1338-                let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1339-                if ((currentDLp == currentDLp))
1340-                    then {
1341-                        let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1342-                        if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1343-                            then {
1344-                                let $t04609946180 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1345-                                let refreshDLpActions = $t04609946180._1
1346-                                let updatedDLp = $t04609946180._2
1347-                                let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1348-                                if ((isUpdatedDLpValid == isUpdatedDLpValid))
1349-                                    then (state ++ refreshDLpActions)
1350-                                    else throw("Strict value is not equal to itself.")
1351-                                }
1352-                            else throw("Strict value is not equal to itself.")
1353-                        }
1114+                let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1115+                if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1116+                    then state
13541117                     else throw("Strict value is not equal to itself.")
13551118                 }
13561119     }
13571120 
13581121 
13591122 
13601123 @Callable(i)
13611124 func unstakeAndGet (amount) = {
13621125     let checkPayments = if ((size(i.payments) != 0))
13631126         then throw("No pmnts expd")
13641127         else true
13651128     if ((checkPayments == checkPayments))
13661129         then {
1130+            let cfg = gpc()
13671131             let factoryCfg = gfc()
1368-            let lpAssetId = cfgLpAssetId
1132+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
13691133             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1370-            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
13711134             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
13721135             if ((unstakeInv == unstakeInv))
13731136                 then {
13741137                     let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1375-                    let outAmAmt = r._1
1376-                    let outPrAmt = r._2
13771138                     let sts = parseIntValue(r._9)
13781139                     let state = r._10
13791140                     let v = if (if (igs())
13801141                         then true
13811142                         else (sts == PoolShutdown))
13821143                         then throw(("Blocked: " + toString(sts)))
13831144                         else true
13841145                     if ((v == v))
13851146                         then {
13861147                             let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
13871148                             if ((burnA == burnA))
1388-                                then {
1389-                                    let $t04720447285 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1390-                                    let refreshDLpActions = $t04720447285._1
1391-                                    let updatedDLp = $t04720447285._2
1392-                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1393-                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1394-                                        then (state ++ refreshDLpActions)
1395-                                        else throw("Strict value is not equal to itself.")
1396-                                    }
1149+                                then state
13971150                                 else throw("Strict value is not equal to itself.")
13981151                             }
13991152                         else throw("Strict value is not equal to itself.")
14001153                     }
14011154                 else throw("Strict value is not equal to itself.")
14021155             }
14031156         else throw("Strict value is not equal to itself.")
14041157     }
14051158 
14061159 
14071160 
14081161 @Callable(i)
14091162 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
14101163     let isGetDisabled = if (igs())
14111164         then true
14121165         else (cfgPoolStatus == PoolShutdown)
14131166     let checks = [if (!(isGetDisabled))
14141167         then true
14151168         else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
14161169         then true
14171170         else throw("no payments are expected")]
14181171     if ((checks == checks))
14191172         then {
1420-            let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
14211173             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
14221174             if ((unstakeInv == unstakeInv))
14231175                 then {
14241176                     let res = ego(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
14251177                     let outAmAmt = res._1
14261178                     let outPrAmt = res._2
14271179                     let state = res._10
14281180                     let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
14291181                         then true
14301182                         else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
14311183                         then true
14321184                         else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
14331185                     if ((checkAmounts == checkAmounts))
14341186                         then {
14351187                             let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
14361188                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1437-                                then {
1438-                                    let $t04853348614 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1439-                                    let refreshDLpActions = $t04853348614._1
1440-                                    let updatedDLp = $t04853348614._2
1441-                                    let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1442-                                    if ((isUpdatedDLpValid == isUpdatedDLpValid))
1443-                                        then (state ++ refreshDLpActions)
1444-                                        else throw("Strict value is not equal to itself.")
1445-                                    }
1189+                                then state
14461190                                 else throw("Strict value is not equal to itself.")
14471191                             }
14481192                         else throw("Strict value is not equal to itself.")
14491193                     }
14501194                 else throw("Strict value is not equal to itself.")
14511195             }
14521196         else throw("Strict value is not equal to itself.")
14531197     }
14541198 
14551199 
14561200 
14571201 @Callable(i)
14581202 func unstakeAndGetOneTknV2 (unstakeAmount,outAssetId,minOutAmount) = {
14591203     let isPoolOneTokenOperationsDisabled = {
14601204         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
14611205         if ($isInstanceOf(@, "Boolean"))
14621206             then @
14631207             else throw(($getType(@) + " couldn't be cast to Boolean"))
14641208         }
14651209     let isGetDisabled = if (if (igs())
14661210         then true
14671211         else (cfgPoolStatus == PoolShutdown))
14681212         then true
14691213         else isPoolOneTokenOperationsDisabled
14701214     let checks = [if (if (!(isGetDisabled))
14711215         then true
14721216         else isManager(i))
14731217         then true
14741218         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
14751219         then true
14761220         else throwErr("no payments are expected")]
14771221     if ((checks == checks))
14781222         then {
1223+            let cfg = gpc()
14791224             let factoryCfg = gfc()
1480-            let lpAssetId = cfgLpAssetId
1225+            let lpAssetId = fromBase58String(cfg[idxLPAsId])
14811226             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
14821227             let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
14831228             if ((unstakeInv == unstakeInv))
14841229                 then {
1485-                    let $t04950949697 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1486-                    let state = $t04950949697._1
1487-                    let totalAmount = $t04950949697._2
1230+                    let $t04155641744 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1231+                    let state = $t04155641744._1
1232+                    let totalAmount = $t04155641744._2
14881233                     $Tuple2(state, totalAmount)
14891234                     }
14901235                 else throw("Strict value is not equal to itself.")
14911236             }
14921237         else throw("Strict value is not equal to itself.")
14931238     }
14941239 
14951240 
14961241 
14971242 @Callable(i)
14981243 func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1499-    let $t04982549928 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1500-    let lpAmount = $t04982549928._1
1501-    let state = $t04982549928._2
1502-    let feeAmount = $t04982549928._3
1503-    let bonus = $t04982549928._4
1244+    let poolConfig = gpc()
1245+    let amId = poolConfig[idxAmAsId]
1246+    let prId = poolConfig[idxPrAsId]
1247+    let lpId = poolConfig[idxLPAsId]
1248+    let $t04200342106 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1249+    let lpAmount = $t04200342106._1
1250+    let state = $t04200342106._2
1251+    let feeAmount = $t04200342106._3
1252+    let bonus = $t04200342106._4
15041253     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
15051254     }
15061255 
15071256 
15081257 
15091258 @Callable(i)
15101259 func putOneTknV2WithoutTakeFeeREADONLY (paymentAmountRaw,paymentAssetId) = {
1511-    let $t05007650180 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1512-    let lpAmount = $t05007650180._1
1513-    let state = $t05007650180._2
1514-    let feeAmount = $t05007650180._3
1515-    let bonus = $t05007650180._4
1260+    let poolConfig = gpc()
1261+    let amId = poolConfig[idxAmAsId]
1262+    let prId = poolConfig[idxPrAsId]
1263+    let lpId = poolConfig[idxLPAsId]
1264+    let $t04238542489 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1265+    let lpAmount = $t04238542489._1
1266+    let state = $t04238542489._2
1267+    let feeAmount = $t04238542489._3
1268+    let bonus = $t04238542489._4
15161269     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
15171270     }
15181271 
15191272 
15201273 
15211274 @Callable(i)
15221275 func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
15231276     then throw("denied")
15241277     else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
15251278 
15261279 
15271280 
15281281 @Callable(i)
15291282 func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
15301283     then pd
15311284     else [StringEntry(k, v)]
15321285 
15331286 
15341287 
15351288 @Callable(i)
15361289 func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
15371290     then pd
15381291     else [IntegerEntry(k, v)]
15391292 
15401293 
15411294 
15421295 @Callable(i)
15431296 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
15441297 
15451298 
15461299 
15471300 @Callable(i)
15481301 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
15491302 
15501303 
15511304 
15521305 @Callable(i)
15531306 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
15541307     let pr = calcPrices(amAmt, prAmt, lpAmt)
15551308     $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
15561309     }
15571310 
15581311 
15591312 
15601313 @Callable(i)
15611314 func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
15621315 
15631316 
15641317 
15651318 @Callable(i)
15661319 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
15671320 
15681321 
15691322 
15701323 @Callable(i)
15711324 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
15721325 
15731326 
15741327 
15751328 @Callable(i)
15761329 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, ""))
15771330 
15781331 
15791332 
15801333 @Callable(i)
15811334 func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
15821335     let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
15831336     $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
15841337     }
15851338 
15861339 
15871340 @Verifier(tx)
15881341 func verify () = {
15891342     let targetPublicKey =     match m() {
15901343         case pk: ByteVector => 
15911344             pk
15921345         case _: Unit => 
15931346             tx.senderPublicKey
15941347         case _ => 
15951348             throw("Match error")
15961349     }
15971350     match tx {
15981351         case order: Order => 
15991352             let matcherPub = mp()
1600-            let orderValid = validateMatcherOrderAllowed(order)
1353+            let orderValid = moa(order)
16011354             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
16021355             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
16031356             if (if (if (orderValid)
16041357                 then senderValid
16051358                 else false)
16061359                 then matcherValid
16071360                 else false)
16081361                 then true
16091362                 else toe(orderValid, senderValid, matcherValid)
16101363         case s: SetScriptTransaction => 
16111364             let newHash = blake2b256(value(s.script))
16121365             let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
16131366             let currentHash = scriptHash(this)
16141367             if (if ((allowedHash == newHash))
16151368                 then (currentHash != newHash)
16161369                 else false)
16171370                 then true
16181371                 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
16191372         case _ => 
16201373             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
16211374     }
16221375     }
16231376 
github/deemru/w8io/3ef1775 
243.01 ms ◑