w8 · tx · 5gC···Dti

tx · 5gCUdNqJQU8GRpiae2f7s2UiZDKZ84GKZTGScAVf3Dti

3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA:  -0.03200000 Waves

2022.12.20 12:50 [2368450] smart account 3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5gCUdNqJQU8GRpiae2f7s2UiZDKZ84GKZTGScAVf3Dti",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1671529739810,
    "version": 1,
    "sender": "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA",
    "senderPublicKey": "35yd3qw1gxKDxKwGAykHN9fANbXNWwseaUwbWDj24o3x",
    "proofs": [
        "5eDmv4ciVtd18kGqXpcSru7nXkRdKGEFvxyL4jkWkD8pPxF8R5tK9LUvsMeFPgBLGWFBshmSUpAfE4KMSL56iQnX"
    ],
    "script": "base64:BgKmIggCEgMKAQgSAwoBCBIAEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEBARIFCgMBCAESBAoCAQgSBAoCAQgSBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCCIGc2NhbGU4IgxzY2FsZThCaWdJbnQiB3NjYWxlMTgiCnplcm9CaWdJbnQiBGJpZzAiBGJpZzEiBGJpZzIiCnNsaXBwYWdlNEQiC3dhdmVzU3RyaW5nIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhJpZHhGYWN0b3J5UmVzdENudHIiEGlkeEZhY3RTbGlwcENudHIiEWlkeEZhY3RHd3hSZXdDbnRyIgpmZWVEZWZhdWx0IgJ0MSIHb3JpZ1ZhbCINb3JpZ1NjYWxlTXVsdCICZjEiA3ZhbCIPcmVzdWx0U2NhbGVNdWx0IgJ0cyIDYW10IghyZXNTY2FsZSIIY3VyU2NhbGUiA2FicyIJYWJzQmlnSW50IgJmYyIDbXBrIgRwbXBrIgJwbCICcGgiAWgiAXQiA3BhdSICdWEiBHR4SWQiA2dhdSICYWEiAnBhIgNhbXAiA2FkYSIEZmNmZyIEbXRwayICcGMiBmlBbXRBcyIFaVByQXMiA21iYSIFYkFTdHIiA2FwcyIca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIDdG9lIgNvclYiBnNlbmRyViIGbWF0Y2hWIgNzdHIiByRtYXRjaDAiBnZhbFN0ciIEc3RyZiIEYWRkciIDa2V5IgRpbnRmIgh0aHJvd0VyciIDbXNnIgNmY2EiBWluRmVlIgFAIgZvdXRGZWUiAUEiA2lncyICbXAiE2ZlZUNvbGxlY3RvckFkZHJlc3MiA2dwYyIFYW10QXMiB3ByaWNlQXMiCGlQcmljZUFzIgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNjkwOTcwOTUiDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIgNnZmMiDWZhY3RvcnlDb25maWciD3N0YWtpbmdDb250cmFjdCIPc2xpcGFnZUNvbnRyYWN0Igtnd3hDb250cmFjdCIMcmVzdENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIDZmVlIglmZWVBbW91bnQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiCWluQW1JZFN0ciIJaW5QcklkU3RyIgZhbXREY20iCHByaWNlRGNtIgRscEVtIg9pbkFtQXNzZXRBbXRYMTgiD2luUHJBc3NldEFtdFgxOCIMdXNlclByaWNlWDE4IgFyIgtzbGlwcGFnZVgxOCIPc2xpcHBhZ2VSZWFsWDE4Ig1scEVtaXNzaW9uWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIg0kdDAxNzU2MjE3OTA3Igp3cml0ZUFtQW10Igp3cml0ZVByQW10Igtjb21tb25TdGF0ZSIDbW9hIgVvcmRlciIHYW10QXNJZCIGcHJBc0lkIg9hY2NBbXRBc0JhbGFuY2UiDmFjY1ByQXNCYWxhbmNlIgpvckFtdEFzc2V0IgpvckFtdEFzU3RyIglvclByQXNzZXQiCW9yUHJBc1N0ciIKb3JkZXJQcmljZSIOY2FzdE9yZGVyUHJpY2UiEWlzT3JkZXJQcmljZVZhbGlkIgJjZyIBaSIDcG10IgJjcCIGY2FsbGVyIgdhbUFzUG10IgdwckFzUG10IgRnZXREIgJ4cCIBbiIDeHAwIgN4cDEiCmFQcmVjaXNpb24iAWEiAXMiA2FubiILeHAwX3hwMV9uX24iEGFubl9zX2FQcmVjaXNpb24iDmFubl9hUHJlY2lzaW9uIgJuMSIEY2FsYyIDYWNjIgNjdXIiDSR0MDIyNDU5MjI0NzkiAWQiBWZvdW5kIgJkcCIFZE5leHQiBWREaWZmIgNhcnIiDSR0MDIyOTAwMjI5NDciAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjM0NDcyMzQ2NyIBeSIFeU5leHQiBXlEaWZmIg0kdDAyMzc3NDIzODIxIg1jYWxjUHV0T25lVGtuIglwbXRBbXRSYXciC3dpdGhUYWtlRmVlIg9scEFzc2V0RW1pc3Npb24iDWNoZWNoRW1pc3Npb24iDSR0MDI0NjA0MjUwNjYiDGFtQmFsYW5jZU9sZCIMcHJCYWxhbmNlT2xkIg0kdDAyNTA3MjI1MjQ4IgthbUFtb3VudFJhdyILcHJBbW91bnRSYXciDSR0MDI1MjUyMjU1MDYiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciBmNoZWNrRCIIbHBBbW91bnQiDnBvb2xQcm9wb3J0aW9uIg9hbW91bnRBc3NldFBhcnQiDnByaWNlQXNzZXRQYXJ0IglscEFtdEJvdGgiBWJvbnVzIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDI3NTA4Mjc2MTkiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjc4MDkyODExNiIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgFtIgJwbSICcGQiCWlzTWFuYWdlciICcGsiAm1tIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSICY20iA2hwbSIDY3BtIgRzbGlwIglhdXRvU3Rha2UiB2ZhY3RDZmciC3N0YWtpbmdDbnRyIghzbGlwQ250ciIBZSIJbHBBc3NldElkIgJlbCIGbGVnYWN5IgJzYSICc3AiCGxwVHJuc2ZyIgJzcyIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiBmNoZWNrcyINJHQwMzM0NzgzMzYzNiIHZXN0aW1MUCIHbWF4U2xwZyIGZXN0UHV0IglvdXRBbXRBbXQiDWlzR2V0RGlzYWJsZWQiDSR0MDM2MjU4MzY0MTMiDWxwQXNzZXRBbW91bnQiCmxwRW1pc3Npb24iBWluZGV4IgRuZXdZIgJkeSILdG90YWxHZXRSYXciDSR0MDM3MjAzMzcyNTgiDSR0MDM3NjAzMzc3MTgiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDXVuc3Rha2VBbW91bnQiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIDcmVzIgxjaGVja0Ftb3VudHMiDSR0MDQxNTU2NDE3NDQiEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIg0kdDA0MjAwMzQyMTA2Ig0kdDA0MjM4NTQyNDg5IghhbXRBc1N0ciIHcHJBc1N0ciIBayICcHIiDHJlc1NjYWxlTXVsdCIHdXNyQWRkciIHcG10QXNJZCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2htAAFhAIDC1y8AAWIJALYCAQCAwtcvAAFjCQC2AgEAgICQu7rWrfANAAFkCQC2AgEAAAABZQkAtgIBAAAAAWYJALYCAQABAAFnCQC2AgEAAgABaAkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWkCBVdBVkVTAAFqAgMxMDAAAWsCATEAAWwCAl9fAAFtAgAAAW4AAQABbwACAAFwAAMAAXEABAABcgABAAFzAAIAAXQAAwABdQAEAAF2AAUAAXcABgABeAAHAAF5AAgAAXoACQABQQABAAFCAAYAAUMABwABRAAKAAFFCQBrAwAKBQFhAJBOAQFGAgFHAUgJALwCAwkAtgIBBQFHBQFjCQC2AgEFAUgBAUkCAUoBSwkAoAMBCQC8AgMFAUoJALYCAQUBSwUBYwEBTAMBTQFOAU8JAGsDBQFNBQFOBQFPAQFQAQFKAwkAvwICBQFkBQFKCQC+AgEFAUoFAUoBAVEBAUoDCQC/AgIFAWQFAUoJAL4CAQUBSgUBSgEBUgACEyVzX19mYWN0b3J5Q29udHJhY3QBAVMAAhQlc19fbWFuYWdlclB1YmxpY0tleQEBVAACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQEBVQACESVzJXNfX3ByaWNlX19sYXN0AQFWAgFXAVgJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFXCQDMCAIJAKQDAQUBWAUDbmlsBQFsAQFZAgFaAmFhCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUBWgICX18FAmFhAQJhYgIBWgJhYQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAVoCAl9fBQJhYQECYWMAAg8lc19fYW1vdW50QXNzZXQBAmFkAAIOJXNfX3ByaWNlQXNzZXQBAmFlAAIHJXNfX2FtcAECYWYAAg0lc19fYWRkb25BZGRyAQJhZwACESVzX19mYWN0b3J5Q29uZmlnAQJhaAACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQECYWkCAmFqAmFrCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQJhagICX18FAmFrAghfX2NvbmZpZwECYWwBAmFtCQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FAmFtAQJhbgACDCVzX19zaHV0ZG93bgECYW8AAh0lc19fYWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAECYXAAAhclc19fZmVlQ29sbGVjdG9yQWRkcmVzcwECYXEDAmFyAmFzAmF0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEUZhaWxlZDogb3JkVmFsaWQ9CQClAwEFAmFyAgsgc25kclZhbGlkPQkApQMBBQJhcwIMIG10Y2hyVmFsaWQ9CQClAwEFAmF0AQJhdQEBSgQCYXYFAUoDCQABAgUCYXYCBlN0cmluZwQCYXcFAmF2BQJhdwkAAgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBAmF4AgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFBAgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFCAQJhQwkAAgEJALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYUMFA25pbAIBIAACYUQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJheAIFBHRoaXMJAQFSAAACYUUKAAJhRgkA/AcEBQJhRAIQZ2V0SW5GZWVSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgNJbnQFAmFGCQACAQkArAICCQADAQUCYUYCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAACYUcKAAJhRgkA/AcEBQJhRAIRZ2V0T3V0RmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIDSW50BQJhRgkAAgEJAKwCAgkAAwEFAmFGAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFICQECYXgCBQR0aGlzCQECYWUAAQJhSQAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUQJAQJhbgAHAQJhSgAJANkEAQkBAmF4AgUCYUQJAQJhaAAAAmFLCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXgCBQJhRAkBAmFwAAECYUwABAJhTQkBAmF4AgUEdGhpcwkBAmFjAAQCYU4JAQJheAIFBHRoaXMJAQJhZAAEAmFPCQECYUECBQJhRAkBAmFsAQUCYU4EAmFqCQECYUECBQJhRAkBAmFsAQUCYU0JALUJAgkBAmF4AgUCYUQJAQJhaQIJAKQDAQUCYWoJAKQDAQUCYU8FAWwBAmFQAQJhUQMJAAACBQJhUQUBaQUEdW5pdAkA2QQBBQJhUQECYVIBAmFRAwkAAAIFAmFRBQR1bml0BQFpCQDYBAEJAQV2YWx1ZQEFAmFRAQJhUwECYVQJAJkKBwkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJhVAUBcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQFzCQDZBAEJAJEDAgUCYVQFAXQJAQJhUAEJAJEDAgUCYVQFAXUJAQJhUAEJAJEDAgUCYVQFAXYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4AAJhVQkBAmFTAQkBAmFMAAACYVYFAmFVAAJhVwgFAmFWAl8xAAJhWAgFAmFWAl8yAAJhWQgFAmFWAl8zAAJhWggFAmFWAl80AAJiYQgFAmFWAl81AAJiYggFAmFWAl82AAJiYwgFAmFWAl83AQJiZAAJALUJAgkBAmF4AgUCYUQJAQJhZwAFAWwAAmJlCQECYmQAAAJiZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUECIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJiZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUMCIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJiaAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUQCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MAAmJpCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiZQUBQgIcSW52YWxpZCBnd3ggY29udHJhY3QgYWRkcmVzcwECYmoKAmJrAmJsAmJtAmJuAmJvAmJwAmJxAmJyAmJzAmJ0CQC5CQIJAMwIAgIUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJiawkAzAgCCQCkAwEFAmJsCQDMCAIJAKQDAQUCYm0JAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJvCQDMCAIJAKQDAQUCYnAJAMwIAgkApAMBBQJicQkAzAgCCQCkAwEFAmJyCQDMCAIJAKQDAQUCYnMJAMwIAgkApAMBBQJidAUDbmlsBQFsAQJidQYCYnYCYncCYngCYm4CYnECYnIJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJidgkAzAgCCQCkAwEFAmJ3CQDMCAIJAKQDAQUCYngJAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJxCQDMCAIJAKQDAQUCYnIFA25pbAUBbAECYnkBAmJ6AwkAAAIFAmJ6AgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQJiegECYkECAmJCAmJDCQC8AgMFAmJCBQFjBQJiQwECYkQDAmJFAmJGAmJHBAJiSAkAvAIDCQC4AgIFAmJFBQJiRgUBYgUCYkYEAmJJCQC/AgIJALgCAgUCYkcJAQFQAQUCYkgFAWQDCQEBIQEFAmJJCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFAmJICQCUCgIFAmJJCQCZAwEJAMwIAgUCYkUJAMwIAgUCYkYFA25pbAECYkoDAmJLAmJMAmJNBAJiSAkAvAIDBQJiTAUBYgUCYksEAmJOCQC/AgIFAmJNBQJiSAMDBQJiTgYJAL8CAgUCYkwFAmJLCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJiTAIBIAkApgMBBQJiSwIBIAkApgMBBQJiSAIBIAkApgMBBQJiTQUCYk4BAmJPBAJiUAJiUQJiUgJiUwQCYlQJAQFGAgUCYlIFAmJQBAJiVQkBAUYCBQJiUwUCYlEJAQJiQQIFAmJVBQJiVAECYlYDAmJSAmJTAmJXBAJiWAkBAmFMAAQCYlkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCYloJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY2EJAQJiTwQFAmJZBQJiWgUCYlIFAmJTBAJiQwkBAUYCBQJiUgUCYlkEAmJCCQEBRgIFAmJTBQJiWgQCY2IJAQFGAgUCYlcFAWEEAmNjCQECYkECBQJiQwUCY2IEAmNkCQECYkECBQJiQgUCY2IJAMwIAgUCY2EJAMwIAgUCY2MJAMwIAgUCY2QFA25pbAECY2UDAmJSAmJTAmJXBAJjZgkBAmJWAwUCYlIFAmJTBQJiVwkAzAgCCQEBSQIJAJEDAgUCY2YAAAUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAQUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAgUBYQUDbmlsAQJjZwICY2gCY2kEAmNqAwkAAAIFAmNpAAAAAAkAawMFAmNoBQJjaQUBYQkAlAoCCQBlAgUCY2gFAmNqBQJjagECY2sEAmNsAmNtAmNuAmNvBAJiWAkBAmFMAAQCY3AJAJEDAgUCYlgFAXQEAmNxCQCRAwIFAmJYBQF1BAJjcgkAkQMCBQJiWAUBdgQCY3MJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY3QJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmN2CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCY3ACC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUCY3AFAmNtCQACAQIPV3JvbmcgcG10IGFzc2V0BAJjdwkBAmJ5AQUCY3EEAmN4CQEBRgIFAmN3BQJjcwQCY3kJAQJieQEFAmNyBAJjegkBAUYCBQJjeQUCY3QEAmNBCQECYkECBQJjegUCY3gEAmNCCQEBSQIFAmNBBQFhBAJjQwkBAUYCBQJjbgUBYQQCY0QJAQFGAgUCY3YFAWEEAmNFCQC8AgMFAmN4BQJjQwUCY0QEAmNGCQC8AgMFAmN6BQJjQwUCY0QEAmNHCQEBSQIFAmNFBQJjcwQCY0gJAQFJAgUCY0YFAmN0BAJjSQMJAAACBQJjbAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCY28FAmNHAwkAAAIFAmNxAgVXQVZFUwUEdW5pdAkA2QQBBQJjcQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJjbwUCY0gDCQAAAgUCY3ICBVdBVkVTBQR1bml0CQDZBAEFAmNyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYgIJAKUIAQUCY28FAmNsCQECYnUGBQJjRwUCY0gFAmNuBQJjQgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVUABQJjQgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVYCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjQgUDbmlsCQCcCgoFAmNHBQJjSAUCY3EFAmNyBQJjdwUCY3kFAmN2BQJjQQUCY3UFAmNJAQJjSg0CY2wCYkcCY0sCY0wCY00CY04CY28CY08CY1ACY1ECY1ICY1MCY1QEAmJYCQECYUwABAJjcAkA2QQBCQCRAwIFAmJYBQF0BAJjVQkAkQMCBQJiWAUBdQQCY1YJAJEDAgUCYlgFAXYEAmNXCQCRAwIFAmJYBQF5BAJjWAkAkQMCBQJiWAUBegQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmRhCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNwAghXciBscCBhcwhxdWFudGl0eQQCY3cDBQJjTwkBAmJ5AQUCY1UDAwUCY1EJAAACBQJjVAUCY1UHCQBlAgkBAmJ5AQUCY1UFAmNTAwUCY1EJAQJieQEFAmNVCQBlAgkBAmJ5AQUCY1UFAmNLBAJjeQMFAmNPCQECYnkBBQJjVgMDBQJjUQkAAAIFAmNUBQJjVgcJAGUCCQECYnkBBQJjVgUCY1MDBQJjUQkBAmJ5AQUCY1YJAGUCCQECYnkBBQJjVgUCY00EAmRiCQEBRgIFAmNLBQJjWQQCZGMJAQFGAgUCY00FAmNaBAJkZAkBAmJBAgUCZGMFAmRiBAJjeAkBAUYCBQJjdwUCY1kEAmN6CQEBRgIFAmN5BQJjWgQCZGUDCQAAAgUCZGEAAAQCY0EFAWQEAmRmBQFkBAJjYgkAdgYJALkCAgUCZGIFAmRjAAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEBSQIFAmNiBQFhCQEBSQIFAmRiBQJjWQkBAUkCBQJkYwUCY1oJAQJiQQIJALcCAgUCY3oFAmRjCQC3AgIFAmN4BQJkYgUCZGYEAmNBCQECYkECBQJjegUCY3gEAmRnCQC8AgMJAQFQAQkAuAICBQJjQQUCZGQFAWMFAmNBBAJkZgkBAUYCBQJiRwUBYQMDAwUCY1IJAQIhPQIFAmNBBQFkBwkAvwICBQJkZwUCZGYHCQACAQkArAICCQCsAgIJAKwCAgIPUHJpY2Ugc2xpcHBhZ2UgCQCmAwEFAmRnAgMgPiAJAKYDAQUCZGYEAmRoCQEBRgIFAmRhBQFhBAJkaQkAvAIDBQJkYgUCY0EFAWMEAmRqCQC8AgMFAmRjBQFjBQJjQQQCZGsDCQC/AgIFAmRpBQJkYwkAlAoCBQJkagUCZGMJAJQKAgUCZGIFAmRpBAJkbAgFAmRrAl8xBAJkbQgFAmRrAl8yBAJjYgkAvAIDBQJkaAUCZG0FAmN6CQCXCgUJAQFJAgUCY2IFAWEJAQFJAgUCZGwFAmNZCQEBSQIFAmRtBQJjWgUCY0EFAmRmBAJkbggFAmRlAl8xBAJkbwgFAmRlAl8yBAJkcAgFAmRlAl8zBAJjQgkBAUkCCAUCZGUCXzQFAWEEAmRxCQEBSQIIBQJkZQJfNQUBYQMJAGcCAAAFAmRuCQACAQIHTFAgPD0gMAQCZHIDCQEBIQEFAmNQAAAFAmRuBAJkcwkAZQIFAmNLBQJkbwQCZHQJAGUCBQJjTQUCZHAEAmR1AwMFAmNRCQAAAgUCY1QFAmNVBwkAlAoCBQJjUwAAAwMFAmNRCQAAAgUCY1QFAmNWBwkAlAoCAAAFAmNTCQCUCgIFAmRvBQJkcAQCZHYIBQJkdQJfMQQCZHcIBQJkdQJfMgQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCY2wJAQJiagoFAmR2BQJkdwUCZHIFAmNCBQJiRwUCZHEFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmRzBQJkdAUDbmlsCQCfCg0FAmRuBQJkcgUCY0IFAmN3BQJjeQUCZGEFAmNwBQJjdQUCZHgFAmRzBQJkdAUCY0wFAmNOAQJkeQECZHoEAmJYCQECYUwABAJkQQkAkQMCBQJiWAUBdQQCZEIJAJEDAgUCYlgFAXYEAmN1CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXMEAmJZCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXcEAmJaCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXgEAmRDCQECYnkBBQJkQQQCZEQJAQJieQEFAmRCBAJjQQMJAAACCAUCZHoJb3JkZXJUeXBlBQNCdXkJAQJiTwQFAmJZBQJiWgkAZAIFAmRDCAUCZHoGYW1vdW50BQJkRAkBAmJPBAUCYlkFAmJaCQBlAgUCZEMIBQJkegZhbW91bnQFAmREBAJjQgkBAUkCBQJjQQUBYQMDAwkBAmFJAAYJAAACBQJjdQUBcAYJAAACBQJjdQUBcQkAAgECDUFkbWluIGJsb2NrZWQEAmRFCAgFAmR6CWFzc2V0UGFpcgthbW91bnRBc3NldAQCZEYDCQAAAgUCZEUFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRFBAJkRwgIBQJkeglhc3NldFBhaXIKcHJpY2VBc3NldAQCZEgDCQAAAgUCZEcFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRHAwMJAQIhPQIFAmRGBQJkQQYJAQIhPQIFAmRIBQJkQgkAAgECCVdyIGFzc2V0cwQCZEkIBQJkegVwcmljZQQCY1oJAGsDBQFhBQJiWgUCYlkEAmRKCQEBTAMFAmRJBQFhBQJjWgQCZEsDCQAAAggFAmR6CW9yZGVyVHlwZQUDQnV5CQBnAgUCY0IFAmRKCQBnAgUCZEoFAmNCBgECZEwBAmRNAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmROCQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABAJjbQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJkZQkBAmNrBAkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkA2AQBBQJjbQUCY1MIBQJkTQZjYWxsZXIEAmNHCAUCZGUCXzEEAmNICAUCZGUCXzIEAmN1CQENcGFyc2VJbnRWYWx1ZQEIBQJkZQJfOQQCY0kIBQJkZQNfMTADAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmN1CQCXCgUFAmNHBQJjSAUCY1MFAmNtBQJjSQECZE8KAmRQAmFhAmRRAmRSAmJHAmNQAmNRAmNSAmNTAmNUBAJkZQkBAmNKDQUCYWEFAmJHCAkBBXZhbHVlAQUCZFEGYW1vdW50CAkBBXZhbHVlAQUCZFEHYXNzZXRJZAgJAQV2YWx1ZQEFAmRSBmFtb3VudAgJAQV2YWx1ZQEFAmRSB2Fzc2V0SWQFAmRQCQAAAgUCYWECAAUCY1AFAmNRBQJjUgUCY1MFAmNUBAJjdQkBDXBhcnNlSW50VmFsdWUBCAUCZGUCXzgDAwMJAQJhSQAGCQAAAgUCY3UFAW8GCQAAAgUCY3UFAXEJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmN1BQJkZQECZFMBAmRUBAJkVQUBZwQCZFYJAJEDAgUCZFQAAAQCZFcJAJEDAgUCZFQAAQQCZFgJAKcDAQUBagQCZFkJALkCAgkApwMBBQJhSAUCZFgEAmRaCQC3AgIFAmRWBQJkVwMJAAACBQJkWgUBZQUBZQQCZWEJALkCAgUCZFkFAmRVBAJlYgkAuQICCQC5AgIJALkCAgUCZFYFAmRXBQJkVQUCZFUEAmVjCQC6AgIJALkCAgUCZWEFAmRaBQJkWAQCZWQJALgCAgUCZWEFAmRYBAJlZQkAtwICBQJkVQUBZgoBAmVmAgJlZwJlaAQCZWkFAmVnBAJlaggFAmVpAl8xBAJlawgFAmVpAl8yAwkBAiE9AgUCZWsFBHVuaXQFAmVnBAJlbAkAugICCQC5AgIJALkCAgUCZWoFAmVqBQJlagUCZWIEAmVtCQC6AgIJALkCAgkAtwICBQJlYwkAuQICBQJlbAUCZFUFAmVqCQC3AgIJALoCAgkAuQICBQJlZAUCZWoFAmRYCQC5AgIFAmVlBQJlbAQCZW4JAQFRAQkAuAICBQJlbQkBBXZhbHVlAQUCZWoDCQDAAgIFAWYFAmVuCQCUCgIFAmVtBQJlaAkAlAoCBQJlbQUEdW5pdAQCZW8JAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZXAKAAJlcQUCZW8KAAJlcgkAkAMBBQJlcQoAAmVzCQCUCgIFAmRaBQR1bml0CgECZXQCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAQJlZgIFAmV1CQCRAwIFAmVxBQJldgoBAmV3AgJldQJldgMJAGcCBQJldgUCZXIFAmV1CQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJldwIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIFAmVzAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmVqCAUCZXACXzEEAmVrCAUCZXACXzIDCQECIT0CBQJlawUEdW5pdAUCZWoJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZWoBAmV4AwJkVAJkTQJleQQCZFUFAWcEAmV6CQCRAwIFAmRUAwkAAAIFAmRNAAAAAQAABAJkWAkApwMBBQFqBAJkWQkAuQICCQCnAwEFAmFIBQJkWAQCZFoFAmV6BAJlYQkAuQICBQJkWQUCZFUEAmVBCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXkFAmV5CQC5AgIFAmV6BQJkVQUCZXkFAmRYCQC5AgIFAmVhBQJkVQQCZUIJALgCAgkAtwICBQJkWgkAugICCQC5AgIFAmV5BQJkWAUCZWEFAmV5CgECZWYCAmVnAmVoBAJlQwUCZWcEAmVECAUCZUMCXzEEAmVrCAUCZUMCXzIDCQECIT0CBQJlawUEdW5pdAUCZWcEAmVFCQC6AgIJALcCAgkAuQICBQJlRAUCZUQFAmVBCQC3AgIJALkCAgUBZwUCZUQFAmVCBAJlRgkBAVEBCQC4AgIFAmVFCQEFdmFsdWUBBQJlRAMJAMACAgUBZgUCZUYJAJQKAgUCZUUFAmVoCQCUCgIFAmVFBQR1bml0BAJlbwkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlRwoAAmVxBQJlbwoAAmVyCQCQAwEFAmVxCgACZXMJAJQKAgUCZXkFBHVuaXQKAQJldAICZXUCZXYDCQBnAgUCZXYFAmVyBQJldQkBAmVmAgUCZXUJAJEDAgUCZXEFAmV2CgECZXcCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmV3AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgUCZXMAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUQIBQJlRwJfMQQCZWsIBQJlRwJfMgMJAQIhPQIFAmVrBQR1bml0BQJlRAkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlRAECZUgFAmVJAmNtAmNvAmFhAmVKBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBeAQCZUsJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmNwAhBpbnZhbGlkIGxwIGFzc2V0CHF1YW50aXR5BAJlTAMJAL8CAgUCZUsFAWUGCQACAQIiaW5pdGlhbCBkZXBvc2l0IHJlcXVpcmVzIGFsbCBjb2lucwMJAAACBQJlTAUCZUwEAmN3CQECYnkBBQJjcQQCY3kJAQJieQEFAmNyBAJlTQMJAAACBQJhYQIACQCUCgIFAmN3BQJjeQMJAAACBQJjbQUCY3EDCQBmAgUCZUkFAmN3CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY3cFAmVJBQJjeQMJAAACBQJjbQUCY3IDCQBmAgUCZUkFAmN5CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjdwkAZQIFAmN5BQJlSQkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmVOCAUCZU0CXzEEAmVPCAUCZU0CXzIEAmVQAwkAAAIFAmNtBQJjcQkAlAoCBQJlSQAAAwkAAAIFAmNtBQJjcgkAlAoCAAAFAmVJCQACAQIPaW52YWxpZCBwYXltZW50BAJlUQgFAmVQAl8xBAJlUggFAmVQAl8yBAJlUwMFAmVKCQCVCgMICQECY2cCBQJlUQUCYUUCXzEICQECY2cCBQJlUgUCYUUCXzEICQECY2cCBQJlSQUCYUUCXzIJAJUKAwUCZVEFAmVSAAAEAmVUCAUCZVMCXzEEAmVVCAUCZVMCXzIEAmNqCAUCZVMCXzMEAmVWCQBkAgUCZU4FAmVUBAJlVwkAZAIFAmVPBQJlVQQCYkwJAQJkUwEJAMwIAgkAtgIBBQJlTgkAzAgCCQC2AgEFAmVPBQNuaWwEAmJLCQECZFMBCQDMCAIJALYCAQUCZVYJAMwIAgkAtgIBBQJlVwUDbmlsBAJlWAMJAL8CAgUCYksFAmJMBgkBBXRocm93AAMJAAACBQJlWAUCZVgEAmVZCQC8AgMFAmVLCQC4AgIFAmJLBQJiTAUCYkwEAmNCCQEBSQIJAQJiQQIJAQFGAgUCZVcFAmNaCQEBRgIFAmVWBQJjWQUBYQQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCYWEJAQJiagoFAmVRBQJlUgkAoAMBBQJlWQUCY0IAAAAABQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wAAAAAAUDbmlsBAJlWgkAawMFAmVPBQFhBQJlTgQCZmEJAGsDBQJlSQUBYQkAZAIFAmVaBQFhBAJmYgkAZQIFAmVJBQJmYQQCZmMJALwCAwUCZUsJALYCAQUCZmIJALYCAQUCZU8EAmZkCQCgAwEJALwCAwkAuAICBQJlWQUCZmMFAWIFAmZjCQCWCgQJAKADAQUCZVkFAmR4BQJjagUCZmQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmZlBgJmZgJmZwJmaAJkUAJmaQJmagQCYVQJAQJhTAAEAmNwCQCRAwIFAmFUBQF0BAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmZrCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXcEAmZsCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXgEAmZtCQCRAwIFAmFUBQFzBAJjbwMJAAACBQJkUAUCYmkFAmZpBQJkUAQCZE4JAQV2YWx1ZQEJAJEDAgUCZmgAAAQCY20JAQV2YWx1ZQEIBQJkTgdhc3NldElkBAJjUwgFAmROBmFtb3VudAQCY2wJANgEAQUCZmoDCQECIT0CBQJjcAkA2AQBBQJjbQkAAgECCFdyb25nIExQBAJjdwkBAmJ5AQUCY3EEAmN5CQECYnkBBQJjcgQCZm4KAAJhRgkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZmCQDMCAIFAmNTBQNuaWwFA25pbAMJAAECBQJhRgIKKEludCwgSW50KQUCYUYJAAIBCQCsAgIJAAMBBQJhRgIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQJmbgUCZm4EAmNqCAUCZm4CXzIEAmZvCAUCZm4CXzEEAmZwAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZvBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZvBAJmcQMJAAACBQJmZgUCY3EJAJYKBAUCZnAAAAkAZQIJAGUCBQJjdwUCZnAFAmNqBQJjeQMJAAACBQJmZgUCY3IJAJYKBAAABQJmcAUCY3cJAGUCCQBlAgUCY3kFAmZwBQJjagkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJmcggFAmZxAl8xBAJmcwgFAmZxAl8yBAJlVggFAmZxAl8zBAJlVwgFAmZxAl80BAJmdAkBAmJBAgkBAUYCBQJlVwUCZmwJAQFGAgUCZVYFAmZrBAJmdQkBAUkCBQJmdAUBYQQCZnYDCQAAAgUCZmYCBVdBVkVTBQR1bml0CQDZBAEFAmZmBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagUCZnYFA25pbAUDbmlsBAJjSQkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmNvBQJmcAUCZnYJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAgkApQgBBQJjbwUCY2wJAQJidQYFAmZyBQJmcwUCY1MFAmZ1BQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVQAFAmZ1CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmZ1BQNuaWwFAmZ3AwkAAAIFAmNJBQJjSQQCZngJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCY1MFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY20FAmNTBQNuaWwDCQAAAgUCZngFAmZ4CQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZnkABAJhdgkAoggBCQEBUwADCQABAgUCYXYCBlN0cmluZwQCZFoFAmF2CQDZBAEFAmRaAwkAAQIFAmF2AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmZ6AAQCYXYJAKIIAQkBAVQAAwkAAQIFAmF2AgZTdHJpbmcEAmRaBQJhdgkA2QQBBQJkWgMJAAECBQJhdgIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJmQQkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJmQgECZE0EAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYJAAACCAUCZE0PY2FsbGVyUHVibGljS2V5BQJmQwMJAAECBQJhdgIEVW5pdAkAAAIIBQJkTQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgECZkQBAmRNBAJhdgkBAmZ5AAMJAAECBQJhdgIKQnl0ZVZlY3RvcgQCZkMFAmF2AwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkFAmZDBgUCZkEDCQABAgUCYXYCBFVuaXQDCQAAAggFAmRNBmNhbGxlcgUEdGhpcwYFAmZBCQACAQILTWF0Y2ggZXJyb3IbAmRNAQtjb25zdHJ1Y3RvcgEBUgQCZUEJAQJmRAEFAmRNAwkAAAIFAmVBBQJlQQkAzAgCCQELU3RyaW5nRW50cnkCCQEBUgAFAVIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEKc2V0TWFuYWdlcgECZkUEAmVBCQECZkQBBQJkTQMJAAACBQJlQQUCZUEEAmZGCQDZBAEFAmZFAwkAAAIFAmZGBQJmRgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVAAFAmZFBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDmNvbmZpcm1NYW5hZ2VyAAQCY2YJAQJmegAEAmZHAwkBCWlzRGVmaW5lZAEFAmNmBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmRwUCZkcEAmZIAwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmNmBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmSAUCZkgJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVMACQDYBAEJAQV2YWx1ZQEFAmNmCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFUAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQNwdXQCAmZJAmZKBAJmSwkBAmJkAAQCZkwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZLBQFBAgpXciBzdCBhZGRyBAJmTQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZksFAUMCCldyIHNsIGFkZHIDCQBmAgAABQJmSQkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZk4JAQJkTwoJAKUIAQgFAmRNBmNhbGxlcgkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZE0IcGF5bWVudHMAAQUCZkkGBwYAAAIABAJkcggFAmZOAl8yBAJmTwgFAmZOAl83BAJjSQgFAmZOAl85BAJkcwgFAmZOA18xMAQCZHQIBQJmTgNfMTEEAmNxCAUCZk4DXzEyBAJjcggFAmZOA18xMwQCZGUJAPwHBAUCYUQCBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsAwkAAAIFAmRlBQJkZQQCZlAEAmF2BQJkZQMJAAECBQJhdgIHQWRkcmVzcwQCZlEFAmF2CQD8BwQFAmZRAgRlbWl0CQDMCAIFAmRyBQNuaWwFA25pbAUEdW5pdAMJAAACBQJmUAUCZlAEAmZSAwkAZgIFAmRzAAAJAPwHBAUCZk0CA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjcQUCZHMFA25pbAUDbmlsAwkAAAIFAmZSBQJmUgQCZlMDCQBmAgUCZHQAAAkA/AcEBQJmTQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNyBQJkdAUDbmlsBQNuaWwDCQAAAgUCZlMFAmZTBAJmVAMFAmZKBAJmVQkA/AcEBQJmTAIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmRyBQNuaWwDCQAAAgUCZlUFAmZVBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRNBmNhbGxlcgUCZHIFAmZPBQNuaWwJAM4IAgUCY0kFAmZUCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQtwdXRPbmVUa25WMgICZmcCZkoEAmZWCgACYUYJAPwHBAUCYUQCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIHQm9vbGVhbgUCYUYJAAIBCQCsAgIJAAMBBQJhRgIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZlcDAwMJAQJhSQAGCQAAAgUCYVgFAW8GCQAAAgUCYVgFAXEGBQJmVgQCZlgJAMwIAgMDCQEBIQEFAmZXBgkBAmZCAQUCZE0GCQECYUIBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkTQhwYXltZW50cwABBgkBAmFCAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkA2QQBCQCRAwIFAmFUBQF0BAJmawkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF3BAJmbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4BAJjbwMJAAACCAUCZE0GY2FsbGVyBQR0aGlzCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0GY2FsbGVyBAJkTgkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAQCY20JANgEAQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJmWQkBAmVIBQUCY1MFAmNtCQClCAEFAmNvCQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkBgMJAAACBQJmWQUCZlkEAmNqCAUCZlkCXzMEAmNJCAUCZlkCXzIEAmZaCAUCZlkCXzEEAmRyAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZaBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZaBAJmTgkA/AcEBQJhRAIEZW1pdAkAzAgCBQJkcgUDbmlsBQNuaWwDCQAAAgUCZk4FAmZOBAJmUAQCYXYFAmZOAwkAAQIFAmF2AgdBZGRyZXNzBAJmUQUCYXYJAPwHBAUCZlECBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsBQR1bml0AwkAAAIFAmZQBQJmUAQCZlQDBQJmSgQCZlUJAPwHBAUCYmYCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNwBQJkcgUDbmlsAwkAAAIFAmZVBQJmVQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkTQZjYWxsZXIFAmRyBQJjcAUDbmlsBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagkA2QQBBQJjbQUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNJBQJmVAUCZncFAmRyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQpwdXRGb3JGcmVlAQJnYQMJAGYCAAAFAmdhCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdiCQECZE8KCQClCAEIBQJkTQZjYWxsZXIJANgEAQgFAmRNDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRNCHBheW1lbnRzAAEFAmdhBwcGAAACAAgFAmdiAl85AmRNAQNnZXQABAJkZQkBAmRMAQUCZE0EAmdjCAUCZGUCXzEEAmNICAUCZGUCXzIEAmNTCAUCZGUCXzMEAmNtCAUCZGUCXzQEAmNJCAUCZGUCXzUEAmVCCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmVCBQJlQgUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BC2dldE9uZVRrblYyAgJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAQYJAQJhQgECHmV4YWN0bHkgMSBwYXltZW50IGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCZ2UJAQJmZQYFAmZmBQJmZwgFAmRNCHBheW1lbnRzCAUCZE0GY2FsbGVyCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0NdHJhbnNhY3Rpb25JZAQCY0kIBQJnZQJfMQQCZnAIBQJnZQJfMgkAlAoCBQJjSQUCZnAJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE2dldE9uZVRrblYyUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCZFQJAMwIAgkAtgIBCQECYnkBBQJjcQkAzAgCCQC2AgEJAQJieQEFAmNyBQNuaWwEAmdnCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJjcAIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCYkwJAQJkUwEFAmRUBAJiSwkAuAICBQJiTAkAvAIDCQC2AgEFAmdmBQJiTAUCZ2cEAmdoAwkAAAIFAmZmBQJjcQAAAwkAAAIFAmZmBQJjcgABCQACAQIUaW52YWxpZCBvdXQgYXNzZXQgaWQEAmdpCQECZXgDBQJkVAUCZ2gFAmJLBAJnagkAuAICCQCRAwIFAmRUBQJnaAUCZ2kEAmdrCQCWAwEJAMwIAgAACQDMCAIJAKADAQkAuAICBQJnagUBZgUDbmlsBAJnbAkBAmNnAgUCZ2sFAmFHBAJmbwgFAmdsAl8xBAJjaggFAmdsAl8yCQCUCgIFA25pbAkAlAoCBQJmbwUCY2oCZE0BHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY3cJAQJieQEFAmNxBAJjeQkBAmJ5AQUCY3IEAmdtCgACYUYJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmZgkAzAgCBQJnZgUDbmlsBQNuaWwDCQABAgUCYUYCCihJbnQsIEludCkFAmFGCQACAQkArAICCQADAQUCYUYCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmZvCAUCZ20CXzEEAmNqCAUCZ20CXzIEAmRlCQECY2sEAgAFAmNwBQJnZgUEdGhpcwQCY0cIBQJkZQJfMQQCY0gIBQJkZQJfMgQCZ24JAGQCBQJjRwUCY0gEAmZkAwkAAAIFAmduAAADCQAAAgUCZm8AAAAACQACAQIXYm9udXMgY2FsY3VsYXRpb24gZXJyb3IJAGsDCQBlAgUCZm8FAmduBQFhBQJnbgkAlAoCBQNuaWwJAJUKAwUCZm8FAmNqBQJmZAJkTQEJZ2V0Tm9MZXNzAgJnbwJncAQCZGUJAQJkTAEFAmRNBAJjRwgFAmRlAl8xBAJjSAgFAmRlAl8yBAJjUwgFAmRlAl8zBAJjbQgFAmRlAl80BAJjSQgFAmRlAl81AwkAZgIFAmdvBQJjRwkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQJjRwIDIDwgCQCkAwEFAmdvAwkAZgIFAmdwBQJjSAkAAgEJAKwCAgkArAICCQCsAgICCEZhaWxlZDogCQCkAwEFAmNIAgMgPCAJAKQDAQUCZ3AEAmdxCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmdxBQJncQUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDXVuc3Rha2VBbmRHZXQBAmNoBAJncgMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAAJAAIBAg1ObyBwbW50cyBleHBkBgMJAAACBQJncgUCZ3IEAmJYCQECYUwABAJncwkBAmJkAAQCZk8JANkEAQkAkQMCBQJiWAUBdAQCZ3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdzBQFBAgpXciBzdCBhZGRyBAJndQkA/AcEBQJndAIHdW5zdGFrZQkAzAgCCQDYBAEFAmZPCQDMCAIFAmNoBQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmRlCQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmZPBQJjaAgFAmRNBmNhbGxlcgQCY3UJAQ1wYXJzZUludFZhbHVlAQgFAmRlAl85BAJjSQgFAmRlA18xMAQCZ3YDAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIJQmxvY2tlZDogCQCkAwEFAmN1BgMJAAACBQJndgUCZ3YEAmd3CQD8BwQFAmFEAgRidXJuCQDMCAIFAmNoBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmZPBQJjaAUDbmlsAwkAAAIFAmd3BQJndwUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmd4Amd5AmdwBAJnZAMJAQJhSQAGCQAAAgUCYVgFAXEEAmZYCQDMCAIDCQEBIQEFAmdkBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRNCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJndQkA/AcEBQJiZgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFZCQDMCAIFAmd4BQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmd6CQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmFZBQJneAgFAmRNBmNhbGxlcgQCY0cIBQJnegJfMQQCY0gIBQJnegJfMgQCY0kIBQJnegNfMTAEAmdBCQDMCAIDCQBnAgUCY0cFAmd5BgkAAgEJALkJAgkAzAgCAixhbW91bnQgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmd5BQNuaWwCAAkAzAgCAwkAZwIFAmNIBQJncAYJAAIBCQC5CQIJAMwIAgIrcHJpY2UgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmdwBQNuaWwCAAUDbmlsAwkAAAIFAmdBBQJnQQQCZ3EJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCZ3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYVkFAmd4BQNuaWwDCQAAAgUCZ3EFAmdxBQJjSQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJneAJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAAYJAQJhQgECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCYlgJAQJhTAAEAmdzCQECYmQABAJmTwkA2QQBCQCRAwIFAmJYBQF0BAJndAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3MFAUECCldyIHN0IGFkZHIEAmd1CQD8BwQFAmd0Agd1bnN0YWtlCQDMCAIJANgEAQUCZk8JAMwIAgUCZ3gFA25pbAUDbmlsAwkAAAIFAmd1BQJndQQCZ0IJAQJmZQYFAmZmBQJmZwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmd4BQNuaWwIBQJkTQZjYWxsZXIIBQJkTQxvcmlnaW5DYWxsZXIIBQJkTQ10cmFuc2FjdGlvbklkBAJjSQgFAmdCAl8xBAJmcAgFAmdCAl8yCQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEccHV0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRQkBAmVIBQUCZ0MFAmdEAgACAAYEAmVZCAUCZ0UCXzEEAmNJCAUCZ0UCXzIEAmNqCAUCZ0UCXzMEAmZkCAUCZ0UCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BIXB1dE9uZVRrblYyV2l0aG91dFRha2VGZWVSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRgkBAmVIBQUCZ0MFAmdEAgACAAcEAmVZCAUCZ0YCXzEEAmNJCAUCZ0YCXzIEAmNqCAUCZ0YCXzMEAmZkCAUCZ0YCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BCGFjdGl2YXRlAgJnRwJnSAMJAQIhPQIJAKUIAQgFAmRNBmNhbGxlcgkApQgBBQJhRAkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYwAFAmdHCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZAAFAmdIBQNuaWwCB3N1Y2Nlc3MCZE0BBHNldFMCAmdJAmd2AwkBAiE9AgkApQgBCAUCZE0GY2FsbGVyCQECYXgCBQR0aGlzCQECYWYABQJmQQkAzAgCCQELU3RyaW5nRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEEc2V0SQICZ0kCZ3YDCQECIT0CCQClCAEIBQJkTQZjYWxsZXIJAQJheAIFBHRoaXMJAQJhZgAFAmZBCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYUwAAmRNARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJiegkAlAoCBQNuaWwJAQJieQEFAmJ6AmRNARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJiUgJiUwJiVwQCZ0oJAQJiVgMFAmJSBQJiUwUCYlcJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJnSgAACQDMCAIJAKYDAQkAkQMCBQJnSgABCQDMCAIJAKYDAQkAkQMCBQJnSgACBQNuaWwCZE0BFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCAUoCZ0sJAJQKAgUDbmlsCQEBSQIJAKcDAQUBSgUCZ0sCZE0BFHRvWDE4V3JhcHBlclJFQURPTkxZAgFHAUgJAJQKAgUDbmlsCQCmAwEJAQFGAgUBRwUBSAJkTQEeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZAgJiQgJiQwkAlAoCBQNuaWwJAKYDAQkBAmJBAgkApwMBBQJiQgkApwMBBQJiQwJkTQEjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAmNsAmJHAmNLAmNMAmNNAmNOAmdMAmNPAmNQCQCUCgIFA25pbAkBAmNKDQUCY2wFAmJHBQJjSwUCY0wFAmNNBQJjTgUCZ0wFAmNPBQJjUAYHAAACAAJkTQEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEAmNsAmdNAmNuAmdMBAJkZQkBAmNrBAUCY2wFAmdNBQJjbgkBEUBleHRyTmF0aXZlKDEwNjIpAQUCZ0wJAJQKAgUDbmlsCQCcCgoIBQJkZQJfMQgFAmRlAl8yCAUCZGUCXzMIBQJkZQJfNAgFAmRlAl81CAUCZGUCXzYIBQJkZQJfNwkApgMBCAUCZGUCXzgIBQJkZQJfOQgFAmRlA18xMAECZ04BAmdPAAQCZ1AEAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYFAmZDAwkAAQIFAmF2AgRVbml0CAUCZ04Pc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmF2BQJnTgMJAAECBQJhdgIFT3JkZXIEAmR6BQJhdgQCZ1EJAQJhSgAEAmdSCQECZHkBBQJkegQCZ1MJAPQDAwgFAmR6CWJvZHlCeXRlcwkAkQMCCAUCZHoGcHJvb2ZzAAAIBQJkeg9zZW5kZXJQdWJsaWNLZXkEAmdUCQD0AwMIBQJkeglib2R5Qnl0ZXMJAJEDAggFAmR6BnByb29mcwABBQJnUQMDAwUCZ1IFAmdTBwUCZ1QHBgkBAmFxAwUCZ1IFAmdTBQJnVAMJAAECBQJhdgIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmRaBQJhdgQCZ1UJAPYDAQkBBXZhbHVlAQgFAmRaBnNjcmlwdAQCZ1YJANsEAQkBBXZhbHVlAQkAnQgCBQJhRAkBAmFvAAQCZ1cJAPEHAQUEdGhpcwMDCQAAAgUCZ1YFAmdVCQECIT0CBQJnVwUCZ1UHBgkA9AMDCAUCZ04JYm9keUJ5dGVzCQCRAwIIBQJnTgZwcm9vZnMAAAUCZ1AJAPQDAwgFAmdOCWJvZHlCeXRlcwkAkQMCCAUCZ04GcHJvb2ZzAAAFAmdQf6Cfrw==",
    "chainId": 84,
    "height": 2368450,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4fqMMhfmDYkLB5AgNKBfUefnLTX5cmRyGZJyGErAz2aF
Next: H8Q5ZgeE5fD5wcECWXJKLgpkwF7twfzxQqBzwzAC6Zfh

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

Old	New		Differences
14	14		let big1 = toBigInt(1)
15	15
16	16		let big2 = toBigInt(2)
17		-
18		-	let big3 = toBigInt(3)
19		-
20		-	let big4 = toBigInt(4)
21	17
22	18		let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
23	19

73	69		func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
74	70
75	71
76		-	func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
77		-
78		-
79	72		func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
80	73
81	74

122	115		func ada () = "%s__addonAddr"
123	116
124	117
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		-
139	118		func fcfg () = "%s__factoryConfig"
140	119
141	120

177	156		func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
178	157
179	158
180		-	~~func fmtErr (msg)~~ = ~~makeString~~(~~["lp_stable.ride:"~~, ~~msg], " "~~)
	159	+	let fca = addressFromStringValue(strf(this, fc()))
181	160
	161	+	let inFee = {
	162	+	let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
	163	+	if ($isInstanceOf(@, "Int"))
	164	+	then @
	165	+	else throw(($getType(@) + " couldn't be cast to Int"))
	166	+	}
182	167
183		-	let fca = addressFromStringValue(strf(this, fc()))
	168	+	let outFee = {
	169	+	let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
	170	+	if ($isInstanceOf(@, "Int"))
	171	+	then @
	172	+	else throw(($getType(@) + " couldn't be cast to Int"))
	173	+	}
184	174
185	175		let A = strf(this, amp())
186	176

216	206
217	207		let poolConfigParsed = parsePoolConfig(gpc())
218	208
219		-	let $~~t074067592~~ = poolConfigParsed
	209	+	let $t069097095 = poolConfigParsed
220	210
221		-	let cfgPoolAddress = $~~t074067592~~._1
	211	+	let cfgPoolAddress = $t069097095._1
222	212
223		-	let cfgPoolStatus = $~~t074067592~~._2
	213	+	let cfgPoolStatus = $t069097095._2
224	214
225		-	let cfgLpAssetId = $~~t074067592~~._3
	215	+	let cfgLpAssetId = $t069097095._3
226	216
227		-	let cfgAmountAssetId = $~~t074067592~~._4
	217	+	let cfgAmountAssetId = $t069097095._4
228	218
229		-	let cfgPriceAssetId = $~~t074067592~~._5
	219	+	let cfgPriceAssetId = $t069097095._5
230	220
231		-	let cfgAmountAssetDecimals = $~~t074067592~~._6
	221	+	let cfgAmountAssetDecimals = $t069097095._6
232	222
233		-	let cfgPriceAssetDecimals = $~~t074067592~~._7
	223	+	let cfgPriceAssetDecimals = $t069097095._7
234	224
235	225		func gfc () = split(strf(fca, fcfg()), SEP)
236	226

306	296		}
307	297
308	298
309		-	func takeFee (amount) = {
310		-	let feeAmount = fraction(amount, fee, scale8)
	299	+	func takeFee (amount,fee) = {
	300	+	let feeAmount = if ((fee == 0))
	301	+	then 0
	302	+	else fraction(amount, fee, scale8)
311	303		$Tuple2((amount - feeAmount), feeAmount)
312	304		}
313	305

334	326		let lpEmissX18 = t1(lpEmiss, scale8)
335	327		let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
336	328		let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
337		-	let outAmAmt = ~~fromX18Round~~(outAmAmtX18, amDcm~~, FLOOR~~)
338		-	let outPrAmt = ~~fromX18Round~~(outPrAmtX18, prDcm~~, FLOOR~~)
	329	+	let outAmAmt = f1(outAmAmtX18, amDcm)
	330	+	let outPrAmt = f1(outPrAmtX18, prDcm)
339	331		let state = if ((txId58 == ""))
340	332		then nil
341	333		else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))

409	401		let expAmtAssetAmtX18 = expectedAmts._1
410	402		let expPriceAssetAmtX18 = expectedAmts._2
411	403		let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
412		-	$Tuple5(~~fromX18Round~~(lpAmtX18, scale8~~, FLOOR~~), ~~fromX18Round~~(expAmtAssetAmtX18, amtDcm~~, CEILING~~), ~~fromX18Round~~(expPriceAssetAmtX18, priceDcm~~, CEILING~~), curPriceX18, slippageX18)
	404	+	$Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
413	405		}
414	406		}
415	407		let calcLpAmt = r._1

425	417		else calcLpAmt
426	418		let amDiff = (inAmAmt - calcAmAssetPmt)
427	419		let prDiff = (inPrAmt - calcPrAssetPmt)
428		-	let $~~t01811218457~~ = if (if (isOneAsset)
	420	+	let $t01756217907 = if (if (isOneAsset)
429	421		then (pmtId == amIdStr)
430	422		else false)
431	423		then $Tuple2(pmtAmt, 0)

434	426		else false)
435	427		then $Tuple2(0, pmtAmt)
436	428		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
437		-	let writeAmAmt = $~~t01811218457~~._1
438		-	let writePrAmt = $~~t01811218457~~._2
	429	+	let writeAmAmt = $t01756217907._1
	430	+	let writePrAmt = $t01756217907._2
439	431		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))]
440	432		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
441	433		}
442	434		}
443	435
444	436
445		-	func getD (xp) = {
446		-	let xp0 = xp[0]
447		-	let xp1 = xp[1]
448		-	let s = (xp0 + xp1)
449		-	if ((s == big0))
450		-	then big0
451		-	else {
452		-	let a = parseIntValue(A)
453		-	let ann = (a * 2)
454		-	let p = fraction(xp0, xp1, big1)
455		-	let xp0_xp1_n_n = fraction(p, big4, big1)
456		-	let ann_s = fraction(toBigInt(ann), s, big1)
457		-	let ann_1 = toBigInt((ann - 1))
458		-	func calcDNext (d) = {
459		-	let dd = fraction(d, d, big1)
460		-	let ddd = fraction(dd, d, big1)
461		-	let dp = fraction(ddd, big1, xp0_xp1_n_n)
462		-	fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)), CEILING)
463		-	}
464		-
465		-	func calc (acc,i) = if (acc._2)
466		-	then acc
467		-	else {
468		-	let d = acc._1
469		-	let dNext = calcDNext(d)
470		-	let dDiffRaw = toInt((dNext - value(d)))
471		-	let dDiff = if ((0 > dDiffRaw))
472		-	then -(dDiffRaw)
473		-	else dDiffRaw
474		-	if ((1 >= dDiff))
475		-	then $Tuple2(dNext, true)
476		-	else $Tuple2(dNext, false)
477		-	}
478		-
479		-	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
480		-	let $t02038520433 = {
481		-	let $l = arr
482		-	let $s = size($l)
483		-	let $acc0 = $Tuple2(s, false)
484		-	func $f0_1 ($a,$i) = if (($i >= $s))
485		-	then $a
486		-	else calc($a, $l[$i])
487		-
488		-	func $f0_2 ($a,$i) = if (($i >= $s))
489		-	then $a
490		-	else throw("List size exceeds 15")
491		-
492		-	$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)
493		-	}
494		-	let d = $t02038520433._1
495		-	let found = $t02038520433._2
496		-	if (found)
497		-	then d
498		-	else throw(("D calculation error, D = " + toString(d)))
499		-	}
500		-	}
501		-
502		-
503		-	func getDOld (xp) = {
504		-	let n = big2
505		-	let xp0 = xp[0]
506		-	let xp1 = xp[1]
507		-	let aPrecision = parseBigIntValue(Amult)
508		-	let a = (parseBigIntValue(A) * aPrecision)
509		-	let s = (xp0 + xp1)
510		-	if ((s == big0))
511		-	then big0
512		-	else {
513		-	let ann = (a * n)
514		-	let xp0_xp1_n_n = (((xp0 * xp1) * n) * n)
515		-	let ann_s_aPrecision = ((ann * s) / aPrecision)
516		-	let ann_aPrecision = (ann - aPrecision)
517		-	let n1 = (n + big1)
518		-	func calc (acc,cur) = {
519		-	let $t02106221082 = acc
520		-	let d = $t02106221082._1
521		-	let found = $t02106221082._2
522		-	if ((found != unit))
523		-	then acc
524		-	else {
525		-	let dp = (((d * d) * d) / xp0_xp1_n_n)
526		-	let dNext = (((ann_s_aPrecision + (dp * n)) * d) / (((ann_aPrecision * d) / aPrecision) + (n1 * dp)))
527		-	let dDiff = absBigInt((dNext - value(d)))
528		-	if ((big1 >= dDiff))
529		-	then $Tuple2(dNext, cur)
530		-	else $Tuple2(dNext, unit)
531		-	}
532		-	}
533		-
534		-	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
535		-	let $t02150321550 = {
536		-	let $l = arr
537		-	let $s = size($l)
538		-	let $acc0 = $Tuple2(s, unit)
539		-	func $f0_1 ($a,$i) = if (($i >= $s))
540		-	then $a
541		-	else calc($a, $l[$i])
542		-
543		-	func $f0_2 ($a,$i) = if (($i >= $s))
544		-	then $a
545		-	else throw("List size exceeds 15")
546		-
547		-	$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)
548		-	}
549		-	let d = $t02150321550._1
550		-	let found = $t02150321550._2
551		-	if ((found != unit))
552		-	then d
553		-	else throw(("D calculation error, D = " + toString(d)))
554		-	}
555		-	}
556		-
557		-
558		-	func getYD (xp,i,D) = {
559		-	let n = big2
560		-	let x = xp[if ((i == 0))
561		-	then 1
562		-	else 0]
563		-	let aPrecision = parseBigIntValue(Amult)
564		-	let a = (parseBigIntValue(A) * aPrecision)
565		-	let s = x
566		-	let ann = (a * n)
567		-	let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
568		-	let b = ((s + ((D * aPrecision) / ann)) - D)
569		-	func calc (acc,cur) = {
570		-	let $t02205022070 = acc
571		-	let y = $t02205022070._1
572		-	let found = $t02205022070._2
573		-	if ((found != unit))
574		-	then acc
575		-	else {
576		-	let yNext = (((y * y) + c) / ((big2 * y) + b))
577		-	let yDiff = absBigInt((yNext - value(y)))
578		-	if ((big1 >= yDiff))
579		-	then $Tuple2(yNext, cur)
580		-	else $Tuple2(yNext, unit)
581		-	}
582		-	}
583		-
584		-	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
585		-	let $t02237722424 = {
586		-	let $l = arr
587		-	let $s = size($l)
588		-	let $acc0 = $Tuple2(D, unit)
589		-	func $f0_1 ($a,$i) = if (($i >= $s))
590		-	then $a
591		-	else calc($a, $l[$i])
592		-
593		-	func $f0_2 ($a,$i) = if (($i >= $s))
594		-	then $a
595		-	else throw("List size exceeds 15")
596		-
597		-	$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)
598		-	}
599		-	let y = $t02237722424._1
600		-	let found = $t02237722424._2
601		-	if ((found != unit))
602		-	then y
603		-	else throw(("Y calculation error, Y = " + toString(y)))
604		-	}
605		-
606		-
607		-	func calcDLp (amountBalance,priceBalance,lpEmission) = {
608		-	let updatedDLp = fraction(getD([amountBalance, priceBalance]), scale18, lpEmission)
609		-	if ((lpEmission == big0))
610		-	then big0
611		-	else updatedDLp
612		-	}
613		-
614		-
615		-	func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
616		-	let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
617		-	let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
618		-	let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
619		-	let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
620		-	currentDLp
621		-	}
622		-
623		-
624		-	func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
625		-	let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
626		-	let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
627		-	let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
628		-	let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
629		-	let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
630		-	$Tuple2(actions, updatedDLp)
631		-	}
632		-
633		-
634		-	func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
635		-	then true
636		-	else throwErr("updated DLp lower than current DLp")
637		-
638		-
639		-	func validateMatcherOrderAllowed (order) = {
640		-	let amountAssetAmount = order.amount
641		-	let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
642		-	let $t02436324575 = if ((order.orderType == Buy))
643		-	then $Tuple2(amountAssetAmount, -(priceAssetAmount))
644		-	else $Tuple2(-(amountAssetAmount), priceAssetAmount)
645		-	let amountAssetBalanceDelta = $t02436324575._1
646		-	let priceAssetBalanceDelta = $t02436324575._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)
647	450		if (if (if (igs())
648	451		then true
649		-	else (~~cfgPoolStatus~~ == PoolMatcherDis))
	452	+	else (sts == PoolMatcherDis))
650	453		then true
651		-	else (~~cfgPoolStatus~~ == PoolShutdown))
	454	+	else (sts == PoolShutdown))
652	455		then throw("Admin blocked")
653		-	else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
654		-	then true
655		-	else (order.assetPair.priceAsset != cfgPriceAssetId))
656		-	then throw("Wr assets")
657		-	else {
658		-	let dLp = parseBigIntValue(getStringValue(this, keyDLp))
659		-	let $t02490525005 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
660		-	let unusedActions = $t02490525005._1
661		-	let dLpNew = $t02490525005._2
662		-	let isOrderValid = (dLpNew >= dLp)
663		-	isOrderValid
664		-	}
	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	+	}
665	479		}
666	480
667	481

697	511		}
698	512
699	513
	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

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

github/deemru/w8io/169f3d6 
243.59 ms ◑