w8 · tx · ECh···t56

tx · ECho3vH8oRSwwEZqUJKQ8mKVLmwF55RPm9M8mfT32t56

3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT:  -0.03200000 Waves

2022.12.16 12:30 [2362679] smart account 3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "ECho3vH8oRSwwEZqUJKQ8mKVLmwF55RPm9M8mfT32t56",
    "fee": 3200000,
    "feeAssetId": null,
    "timestamp": 1671182901580,
    "version": 1,
    "sender": "3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT",
    "senderPublicKey": "D1BL65meykxFZTCuq7jq9HSGLLnWvQamQPUNrguW5w39",
    "proofs": [
        "4gywVL6ojWCXtEnPKdbWTokBVggazNQL1FiWBLsmqXF1ccf9dRdM6vvvrkiYZUNDKcD8TJE9MTe6guJofRBN2cwj"
    ],
    "script": "base64:BgKmIggCEgMKAQgSAwoBCBIAEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEBARIFCgMBCAESBAoCAQgSBAoCAQgSBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCCIGc2NhbGU4IgxzY2FsZThCaWdJbnQiB3NjYWxlMTgiCnplcm9CaWdJbnQiBGJpZzAiBGJpZzEiBGJpZzIiCnNsaXBwYWdlNEQiC3dhdmVzU3RyaW5nIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhJpZHhGYWN0b3J5UmVzdENudHIiEGlkeEZhY3RTbGlwcENudHIiEWlkeEZhY3RHd3hSZXdDbnRyIgpmZWVEZWZhdWx0IgJ0MSIHb3JpZ1ZhbCINb3JpZ1NjYWxlTXVsdCICZjEiA3ZhbCIPcmVzdWx0U2NhbGVNdWx0IgJ0cyIDYW10IghyZXNTY2FsZSIIY3VyU2NhbGUiA2FicyIJYWJzQmlnSW50IgJmYyIDbXBrIgRwbXBrIgJwbCICcGgiAWgiAXQiA3BhdSICdWEiBHR4SWQiA2dhdSICYWEiAnBhIgNhbXAiA2FkYSIEZmNmZyIEbXRwayICcGMiBmlBbXRBcyIFaVByQXMiA21iYSIFYkFTdHIiA2FwcyIca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIDdG9lIgNvclYiBnNlbmRyViIGbWF0Y2hWIgNzdHIiByRtYXRjaDAiBnZhbFN0ciIEc3RyZiIEYWRkciIDa2V5IgRpbnRmIgh0aHJvd0VyciIDbXNnIgNmY2EiBWluRmVlIgFAIgZvdXRGZWUiAUEiA2lncyICbXAiE2ZlZUNvbGxlY3RvckFkZHJlc3MiA2dwYyIFYW10QXMiB3ByaWNlQXMiCGlQcmljZUFzIgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNjkwOTcwOTUiDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIgNnZmMiDWZhY3RvcnlDb25maWciD3N0YWtpbmdDb250cmFjdCIPc2xpcGFnZUNvbnRyYWN0Igtnd3hDb250cmFjdCIMcmVzdENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIDZmVlIglmZWVBbW91bnQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiCWluQW1JZFN0ciIJaW5QcklkU3RyIgZhbXREY20iCHByaWNlRGNtIgRscEVtIg9pbkFtQXNzZXRBbXRYMTgiD2luUHJBc3NldEFtdFgxOCIMdXNlclByaWNlWDE4IgFyIgtzbGlwcGFnZVgxOCIPc2xpcHBhZ2VSZWFsWDE4Ig1scEVtaXNzaW9uWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIg0kdDAxNzU2MjE3OTA3Igp3cml0ZUFtQW10Igp3cml0ZVByQW10Igtjb21tb25TdGF0ZSIDbW9hIgVvcmRlciIHYW10QXNJZCIGcHJBc0lkIg9hY2NBbXRBc0JhbGFuY2UiDmFjY1ByQXNCYWxhbmNlIgpvckFtdEFzc2V0IgpvckFtdEFzU3RyIglvclByQXNzZXQiCW9yUHJBc1N0ciIKb3JkZXJQcmljZSIOY2FzdE9yZGVyUHJpY2UiEWlzT3JkZXJQcmljZVZhbGlkIgJjZyIBaSIDcG10IgJjcCIGY2FsbGVyIgdhbUFzUG10IgdwckFzUG10IgRnZXREIgJ4cCIBbiIDeHAwIgN4cDEiCmFQcmVjaXNpb24iAWEiAXMiA2FubiILeHAwX3hwMV9uX24iEGFubl9zX2FQcmVjaXNpb24iDmFubl9hUHJlY2lzaW9uIgJuMSIEY2FsYyIDYWNjIgNjdXIiDSR0MDIyNDU5MjI0NzkiAWQiBWZvdW5kIgJkcCIFZE5leHQiBWREaWZmIgNhcnIiDSR0MDIyOTAwMjI5NDciAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjM0NDcyMzQ2NyIBeSIFeU5leHQiBXlEaWZmIg0kdDAyMzc3NDIzODIxIg1jYWxjUHV0T25lVGtuIglwbXRBbXRSYXciC3dpdGhUYWtlRmVlIg9scEFzc2V0RW1pc3Npb24iDWNoZWNoRW1pc3Npb24iDSR0MDI0NjA0MjUwNjYiDGFtQmFsYW5jZU9sZCIMcHJCYWxhbmNlT2xkIg0kdDAyNTA3MjI1MjQ4IgthbUFtb3VudFJhdyILcHJBbW91bnRSYXciDSR0MDI1MjUyMjU1MDYiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciBmNoZWNrRCIIbHBBbW91bnQiDnBvb2xQcm9wb3J0aW9uIg9hbW91bnRBc3NldFBhcnQiDnByaWNlQXNzZXRQYXJ0IglscEFtdEJvdGgiBWJvbnVzIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDI3NTA4Mjc2MTkiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjc4MDkyODExNiIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgFtIgJwbSICcGQiCWlzTWFuYWdlciICcGsiAm1tIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSICY20iA2hwbSIDY3BtIgRzbGlwIglhdXRvU3Rha2UiB2ZhY3RDZmciC3N0YWtpbmdDbnRyIghzbGlwQ250ciIBZSIJbHBBc3NldElkIgJlbCIGbGVnYWN5IgJzYSICc3AiCGxwVHJuc2ZyIgJzcyIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiBmNoZWNrcyINJHQwMzM0NzgzMzYzNiIHZXN0aW1MUCIHbWF4U2xwZyIGZXN0UHV0IglvdXRBbXRBbXQiDWlzR2V0RGlzYWJsZWQiDSR0MDM2MjU4MzY0MTMiDWxwQXNzZXRBbW91bnQiCmxwRW1pc3Npb24iBWluZGV4IgRuZXdZIgJkeSILdG90YWxHZXRSYXciDSR0MDM3MjAzMzcyNTgiDSR0MDM3NjAzMzc3MTgiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDXVuc3Rha2VBbW91bnQiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIDcmVzIgxjaGVja0Ftb3VudHMiDSR0MDQxNTU2NDE3NDQiEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIg0kdDA0MjAwMzQyMTA2Ig0kdDA0MjM4NTQyNDg5IghhbXRBc1N0ciIHcHJBc1N0ciIBayICcHIiDHJlc1NjYWxlTXVsdCIHdXNyQWRkciIHcG10QXNJZCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2htAAFhAIDC1y8AAWIJALYCAQCAwtcvAAFjCQC2AgEAgICQu7rWrfANAAFkCQC2AgEAAAABZQkAtgIBAAAAAWYJALYCAQABAAFnCQC2AgEAAgABaAkAtgIBCQBlAgUBYQkAaQIJAGgCBQFhAAEFAWEAAWkCBVdBVkVTAAFqAgMxMDAAAWsCATEAAWwCAl9fAAFtAgAAAW4AAQABbwACAAFwAAMAAXEABAABcgABAAFzAAIAAXQAAwABdQAEAAF2AAUAAXcABgABeAAHAAF5AAgAAXoACQABQQABAAFCAAYAAUMABwABRAAKAAFFCQBrAwAKBQFhAJBOAQFGAgFHAUgJALwCAwkAtgIBBQFHBQFjCQC2AgEFAUgBAUkCAUoBSwkAoAMBCQC8AgMFAUoJALYCAQUBSwUBYwEBTAMBTQFOAU8JAGsDBQFNBQFOBQFPAQFQAQFKAwkAvwICBQFkBQFKCQC+AgEFAUoFAUoBAVEBAUoDCQC/AgIFAWQFAUoJAL4CAQUBSgUBSgEBUgACEyVzX19mYWN0b3J5Q29udHJhY3QBAVMAAhQlc19fbWFuYWdlclB1YmxpY0tleQEBVAACGyVzX19wZW5kaW5nTWFuYWdlclB1YmxpY0tleQEBVQACESVzJXNfX3ByaWNlX19sYXN0AQFWAgFXAVgJALkJAgkAzAgCAhglcyVzJWQlZF9fcHJpY2VfX2hpc3RvcnkJAMwIAgkApAMBBQFXCQDMCAIJAKQDAQUBWAUDbmlsBQFsAQFZAgFaAmFhCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUBWgICX18FAmFhAQJhYgIBWgJhYQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAVoCAl9fBQJhYQECYWMAAg8lc19fYW1vdW50QXNzZXQBAmFkAAIOJXNfX3ByaWNlQXNzZXQBAmFlAAIHJXNfX2FtcAECYWYAAg0lc19fYWRkb25BZGRyAQJhZwACESVzX19mYWN0b3J5Q29uZmlnAQJhaAACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQECYWkCAmFqAmFrCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQJhagICX18FAmFrAghfX2NvbmZpZwECYWwBAmFtCQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FAmFtAQJhbgACDCVzX19zaHV0ZG93bgECYW8AAh0lc19fYWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaAECYXAAAhclc19fZmVlQ29sbGVjdG9yQWRkcmVzcwECYXEDAmFyAmFzAmF0CQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEUZhaWxlZDogb3JkVmFsaWQ9CQClAwEFAmFyAgsgc25kclZhbGlkPQkApQMBBQJhcwIMIG10Y2hyVmFsaWQ9CQClAwEFAmF0AQJhdQEBSgQCYXYFAUoDCQABAgUCYXYCBlN0cmluZwQCYXcFAmF2BQJhdwkAAgECE2ZhaWwgY2FzdCB0byBTdHJpbmcBAmF4AgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFBAgJheQJhegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmF5BQJhegkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJheQkAzAgCAgEuCQDMCAIFAmF6CQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFCAQJhQwkAAgEJALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYUMFA25pbAIBIAACYUQJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJheAIFBHRoaXMJAQFSAAACYUUKAAJhRgkA/AcEBQJhRAIQZ2V0SW5GZWVSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgNJbnQFAmFGCQACAQkArAICCQADAQUCYUYCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAACYUcKAAJhRgkA/AcEBQJhRAIRZ2V0T3V0RmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIDSW50BQJhRgkAAgEJAKwCAgkAAwEFAmFGAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFICQECYXgCBQR0aGlzCQECYWUAAQJhSQAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUQJAQJhbgAHAQJhSgAJANkEAQkBAmF4AgUCYUQJAQJhaAAAAmFLCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXgCBQJhRAkBAmFwAAECYUwABAJhTQkBAmF4AgUEdGhpcwkBAmFjAAQCYU4JAQJheAIFBHRoaXMJAQJhZAAEAmFPCQECYUECBQJhRAkBAmFsAQUCYU4EAmFqCQECYUECBQJhRAkBAmFsAQUCYU0JALUJAgkBAmF4AgUCYUQJAQJhaQIJAKQDAQUCYWoJAKQDAQUCYU8FAWwBAmFQAQJhUQMJAAACBQJhUQUBaQUEdW5pdAkA2QQBBQJhUQECYVIBAmFRAwkAAAIFAmFRBQR1bml0BQFpCQDYBAEJAQV2YWx1ZQEFAmFRAQJhUwECYVQJAJkKBwkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQJhVAUBcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQFzCQDZBAEJAJEDAgUCYVQFAXQJAQJhUAEJAJEDAgUCYVQFAXUJAQJhUAEJAJEDAgUCYVQFAXYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4AAJhVQkBAmFTAQkBAmFMAAACYVYFAmFVAAJhVwgFAmFWAl8xAAJhWAgFAmFWAl8yAAJhWQgFAmFWAl8zAAJhWggFAmFWAl80AAJiYQgFAmFWAl81AAJiYggFAmFWAl82AAJiYwgFAmFWAl83AQJiZAAJALUJAgkBAmF4AgUCYUQJAQJhZwAFAWwAAmJlCQECYmQAAAJiZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUECIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJiZwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUMCIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJiaAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYmUFAUQCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MAAmJpCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiZQUBQgIcSW52YWxpZCBnd3ggY29udHJhY3QgYWRkcmVzcwECYmoKAmJrAmJsAmJtAmJuAmJvAmJwAmJxAmJyAmJzAmJ0CQC5CQIJAMwIAgIUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJiawkAzAgCCQCkAwEFAmJsCQDMCAIJAKQDAQUCYm0JAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJvCQDMCAIJAKQDAQUCYnAJAMwIAgkApAMBBQJicQkAzAgCCQCkAwEFAmJyCQDMCAIJAKQDAQUCYnMJAMwIAgkApAMBBQJidAUDbmlsBQFsAQJidQYCYnYCYncCYngCYm4CYnECYnIJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJidgkAzAgCCQCkAwEFAmJ3CQDMCAIJAKQDAQUCYngJAMwIAgkApAMBBQJibgkAzAgCCQCkAwEFAmJxCQDMCAIJAKQDAQUCYnIFA25pbAUBbAECYnkBAmJ6AwkAAAIFAmJ6AgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQJiegECYkECAmJCAmJDCQC8AgMFAmJCBQFjBQJiQwECYkQDAmJFAmJGAmJHBAJiSAkAvAIDCQC4AgIFAmJFBQJiRgUBYgUCYkYEAmJJCQC/AgIJALgCAgUCYkcJAQFQAQUCYkgFAWQDCQEBIQEFAmJJCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFAmJICQCUCgIFAmJJCQCZAwEJAMwIAgUCYkUJAMwIAgUCYkYFA25pbAECYkoDAmJLAmJMAmJNBAJiSAkAvAIDBQJiTAUBYgUCYksEAmJOCQC/AgIFAmJNBQJiSAMDBQJiTgYJAL8CAgUCYkwFAmJLCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJiTAIBIAkApgMBBQJiSwIBIAkApgMBBQJiSAIBIAkApgMBBQJiTQUCYk4BAmJPBAJiUAJiUQJiUgJiUwQCYlQJAQFGAgUCYlIFAmJQBAJiVQkBAUYCBQJiUwUCYlEJAQJiQQIFAmJVBQJiVAECYlYDAmJSAmJTAmJXBAJiWAkBAmFMAAQCYlkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCYloJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY2EJAQJiTwQFAmJZBQJiWgUCYlIFAmJTBAJiQwkBAUYCBQJiUgUCYlkEAmJCCQEBRgIFAmJTBQJiWgQCY2IJAQFGAgUCYlcFAWEEAmNjCQECYkECBQJiQwUCY2IEAmNkCQECYkECBQJiQgUCY2IJAMwIAgUCY2EJAMwIAgUCY2MJAMwIAgUCY2QFA25pbAECY2UDAmJSAmJTAmJXBAJjZgkBAmJWAwUCYlIFAmJTBQJiVwkAzAgCCQEBSQIJAJEDAgUCY2YAAAUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAQUBYQkAzAgCCQEBSQIJAJEDAgUCY2YAAgUBYQUDbmlsAQJjZwICY2gCY2kEAmNqAwkAAAIFAmNpAAAAAAkAawMFAmNoBQJjaQUBYQkAlAoCCQBlAgUCY2gFAmNqBQJjagECY2sEAmNsAmNtAmNuAmNvBAJiWAkBAmFMAAQCY3AJAJEDAgUCYlgFAXQEAmNxCQCRAwIFAmJYBQF1BAJjcgkAkQMCBQJiWAUBdgQCY3MJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY3QJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmN2CAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCY3ACC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUCY3AFAmNtCQACAQIPV3JvbmcgcG10IGFzc2V0BAJjdwkBAmJ5AQUCY3EEAmN4CQEBRgIFAmN3BQJjcwQCY3kJAQJieQEFAmNyBAJjegkBAUYCBQJjeQUCY3QEAmNBCQECYkECBQJjegUCY3gEAmNCCQEBSQIFAmNBBQFhBAJjQwkBAUYCBQJjbgUBYQQCY0QJAQFGAgUCY3YFAWEEAmNFCQC8AgMFAmN4BQJjQwUCY0QEAmNGCQC8AgMFAmN6BQJjQwUCY0QEAmNHCQEBSQIFAmNFBQJjcwQCY0gJAQFJAgUCY0YFAmN0BAJjSQMJAAACBQJjbAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCY28FAmNHAwkAAAIFAmNxAgVXQVZFUwUEdW5pdAkA2QQBBQJjcQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJjbwUCY0gDCQAAAgUCY3ICBVdBVkVTBQR1bml0CQDZBAEFAmNyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYgIJAKUIAQUCY28FAmNsCQECYnUGBQJjRwUCY0gFAmNuBQJjQgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVUABQJjQgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVYCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjQgUDbmlsCQCcCgoFAmNHBQJjSAUCY3EFAmNyBQJjdwUCY3kFAmN2BQJjQQUCY3UFAmNJAQJjSg0CY2wCYkcCY0sCY0wCY00CY04CY28CY08CY1ACY1ECY1ICY1MCY1QEAmJYCQECYUwABAJjcAkA2QQBCQCRAwIFAmJYBQF0BAJjVQkAkQMCBQJiWAUBdQQCY1YJAJEDAgUCYlgFAXYEAmNXCQCRAwIFAmJYBQF5BAJjWAkAkQMCBQJiWAUBegQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiWAUBeAQCY3UJAJEDAgUCYlgFAXMEAmRhCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNwAghXciBscCBhcwhxdWFudGl0eQQCY3cDBQJjTwkBAmJ5AQUCY1UDAwUCY1EJAAACBQJjVAUCY1UHCQBlAgkBAmJ5AQUCY1UFAmNTAwUCY1EJAQJieQEFAmNVCQBlAgkBAmJ5AQUCY1UFAmNLBAJjeQMFAmNPCQECYnkBBQJjVgMDBQJjUQkAAAIFAmNUBQJjVgcJAGUCCQECYnkBBQJjVgUCY1MDBQJjUQkBAmJ5AQUCY1YJAGUCCQECYnkBBQJjVgUCY00EAmRiCQEBRgIFAmNLBQJjWQQCZGMJAQFGAgUCY00FAmNaBAJkZAkBAmJBAgUCZGMFAmRiBAJjeAkBAUYCBQJjdwUCY1kEAmN6CQEBRgIFAmN5BQJjWgQCZGUDCQAAAgUCZGEAAAQCY0EFAWQEAmRmBQFkBAJjYgkAdgYJALkCAgUCZGIFAmRjAAAJALYCAQAFAAEAAAUERE9XTgkAlwoFCQEBSQIFAmNiBQFhCQEBSQIFAmRiBQJjWQkBAUkCBQJkYwUCY1oJAQJiQQIJALcCAgUCY3oFAmRjCQC3AgIFAmN4BQJkYgUCZGYEAmNBCQECYkECBQJjegUCY3gEAmRnCQC8AgMJAQFQAQkAuAICBQJjQQUCZGQFAWMFAmNBBAJkZgkBAUYCBQJiRwUBYQMDAwUCY1IJAQIhPQIFAmNBBQFkBwkAvwICBQJkZwUCZGYHCQACAQkArAICCQCsAgIJAKwCAgIPUHJpY2Ugc2xpcHBhZ2UgCQCmAwEFAmRnAgMgPiAJAKYDAQUCZGYEAmRoCQEBRgIFAmRhBQFhBAJkaQkAvAIDBQJkYgUCY0EFAWMEAmRqCQC8AgMFAmRjBQFjBQJjQQQCZGsDCQC/AgIFAmRpBQJkYwkAlAoCBQJkagUCZGMJAJQKAgUCZGIFAmRpBAJkbAgFAmRrAl8xBAJkbQgFAmRrAl8yBAJjYgkAvAIDBQJkaAUCZG0FAmN6CQCXCgUJAQFJAgUCY2IFAWEJAQFJAgUCZGwFAmNZCQEBSQIFAmRtBQJjWgUCY0EFAmRmBAJkbggFAmRlAl8xBAJkbwgFAmRlAl8yBAJkcAgFAmRlAl8zBAJjQgkBAUkCCAUCZGUCXzQFAWEEAmRxCQEBSQIIBQJkZQJfNQUBYQMJAGcCAAAFAmRuCQACAQIHTFAgPD0gMAQCZHIDCQEBIQEFAmNQAAAFAmRuBAJkcwkAZQIFAmNLBQJkbwQCZHQJAGUCBQJjTQUCZHAEAmR1AwMFAmNRCQAAAgUCY1QFAmNVBwkAlAoCBQJjUwAAAwMFAmNRCQAAAgUCY1QFAmNWBwkAlAoCAAAFAmNTCQCUCgIFAmRvBQJkcAQCZHYIBQJkdQJfMQQCZHcIBQJkdQJfMgQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCY2wJAQJiagoFAmR2BQJkdwUCZHIFAmNCBQJiRwUCZHEFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmRzBQJkdAUDbmlsCQCfCg0FAmRuBQJkcgUCY0IFAmN3BQJjeQUCZGEFAmNwBQJjdQUCZHgFAmRzBQJkdAUCY0wFAmNOAQJkeQECZHoEAmJYCQECYUwABAJkQQkAkQMCBQJiWAUBdQQCZEIJAJEDAgUCYlgFAXYEAmN1CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXMEAmJZCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXcEAmJaCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYlgFAXgEAmRDCQECYnkBBQJkQQQCZEQJAQJieQEFAmRCBAJjQQMJAAACCAUCZHoJb3JkZXJUeXBlBQNCdXkJAQJiTwQFAmJZBQJiWgkAZAIFAmRDCAUCZHoGYW1vdW50BQJkRAkBAmJPBAUCYlkFAmJaCQBlAgUCZEMIBQJkegZhbW91bnQFAmREBAJjQgkBAUkCBQJjQQUBYQMDAwkBAmFJAAYJAAACBQJjdQUBcAYJAAACBQJjdQUBcQkAAgECDUFkbWluIGJsb2NrZWQEAmRFCAgFAmR6CWFzc2V0UGFpcgthbW91bnRBc3NldAQCZEYDCQAAAgUCZEUFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRFBAJkRwgIBQJkeglhc3NldFBhaXIKcHJpY2VBc3NldAQCZEgDCQAAAgUCZEcFBHVuaXQCBVdBVkVTCQDYBAEJAQV2YWx1ZQEFAmRHAwMJAQIhPQIFAmRGBQJkQQYJAQIhPQIFAmRIBQJkQgkAAgECCVdyIGFzc2V0cwQCZEkIBQJkegVwcmljZQQCY1oJAGsDBQFhBQJiWgUCYlkEAmRKCQEBTAMFAmRJBQFhBQJjWgQCZEsDCQAAAggFAmR6CW9yZGVyVHlwZQUDQnV5CQBnAgUCY0IFAmRKCQBnAgUCZEoFAmNCBgECZEwBAmRNAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmROCQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABAJjbQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJkZQkBAmNrBAkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkA2AQBBQJjbQUCY1MIBQJkTQZjYWxsZXIEAmNHCAUCZGUCXzEEAmNICAUCZGUCXzIEAmN1CQENcGFyc2VJbnRWYWx1ZQEIBQJkZQJfOQQCY0kIBQJkZQNfMTADAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmN1CQCXCgUFAmNHBQJjSAUCY1MFAmNtBQJjSQECZE8KAmRQAmFhAmRRAmRSAmJHAmNQAmNRAmNSAmNTAmNUBAJkZQkBAmNKDQUCYWEFAmJHCAkBBXZhbHVlAQUCZFEGYW1vdW50CAkBBXZhbHVlAQUCZFEHYXNzZXRJZAgJAQV2YWx1ZQEFAmRSBmFtb3VudAgJAQV2YWx1ZQEFAmRSB2Fzc2V0SWQFAmRQCQAAAgUCYWECAAUCY1AFAmNRBQJjUgUCY1MFAmNUBAJjdQkBDXBhcnNlSW50VmFsdWUBCAUCZGUCXzgDAwMJAQJhSQAGCQAAAgUCY3UFAW8GCQAAAgUCY3UFAXEJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmN1BQJkZQECZFMBAmRUBAJkVQUBZwQCZFYJAJEDAgUCZFQAAAQCZFcJAJEDAgUCZFQAAQQCZFgJAKcDAQUBagQCZFkJALkCAgkApwMBBQJhSAUCZFgEAmRaCQC3AgIFAmRWBQJkVwMJAAACBQJkWgUBZQUBZQQCZWEJALkCAgUCZFkFAmRVBAJlYgkAuQICCQC5AgIJALkCAgUCZFYFAmRXBQJkVQUCZFUEAmVjCQC6AgIJALkCAgUCZWEFAmRaBQJkWAQCZWQJALgCAgUCZWEFAmRYBAJlZQkAtwICBQJkVQUBZgoBAmVmAgJlZwJlaAQCZWkFAmVnBAJlaggFAmVpAl8xBAJlawgFAmVpAl8yAwkBAiE9AgUCZWsFBHVuaXQFAmVnBAJlbAkAugICCQC5AgIJALkCAgUCZWoFAmVqBQJlagUCZWIEAmVtCQC6AgIJALkCAgkAtwICBQJlYwkAuQICBQJlbAUCZFUFAmVqCQC3AgIJALoCAgkAuQICBQJlZAUCZWoFAmRYCQC5AgIFAmVlBQJlbAQCZW4JAQFRAQkAuAICBQJlbQkBBXZhbHVlAQUCZWoDCQDAAgIFAWYFAmVuCQCUCgIFAmVtBQJlaAkAlAoCBQJlbQUEdW5pdAQCZW8JAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZXAKAAJlcQUCZW8KAAJlcgkAkAMBBQJlcQoAAmVzCQCUCgIFAmRaBQR1bml0CgECZXQCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAQJlZgIFAmV1CQCRAwIFAmVxBQJldgoBAmV3AgJldQJldgMJAGcCBQJldgUCZXIFAmV1CQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJldwIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIJAQJldAIFAmVzAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmVqCAUCZXACXzEEAmVrCAUCZXACXzIDCQECIT0CBQJlawUEdW5pdAUCZWoJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCZWoBAmV4AwJkVAJkTQJleQQCZFUFAWcEAmV6CQCRAwIFAmRUAwkAAAIFAmRNAAAAAQAABAJkWAkApwMBBQFqBAJkWQkAuQICCQCnAwEFAmFIBQJkWAQCZFoFAmV6BAJlYQkAuQICBQJkWQUCZFUEAmVBCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXkFAmV5CQC5AgIFAmV6BQJkVQUCZXkFAmRYCQC5AgIFAmVhBQJkVQQCZUIJALgCAgkAtwICBQJkWgkAugICCQC5AgIFAmV5BQJkWAUCZWEFAmV5CgECZWYCAmVnAmVoBAJlQwUCZWcEAmVECAUCZUMCXzEEAmVrCAUCZUMCXzIDCQECIT0CBQJlawUEdW5pdAUCZWcEAmVFCQC6AgIJALcCAgkAuQICBQJlRAUCZUQFAmVBCQC3AgIJALkCAgUBZwUCZUQFAmVCBAJlRgkBAVEBCQC4AgIFAmVFCQEFdmFsdWUBBQJlRAMJAMACAgUBZgUCZUYJAJQKAgUCZUUFAmVoCQCUCgIFAmVFBQR1bml0BAJlbwkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlRwoAAmVxBQJlbwoAAmVyCQCQAwEFAmVxCgACZXMJAJQKAgUCZXkFBHVuaXQKAQJldAICZXUCZXYDCQBnAgUCZXYFAmVyBQJldQkBAmVmAgUCZXUJAJEDAgUCZXEFAmV2CgECZXcCAmV1AmV2AwkAZwIFAmV2BQJlcgUCZXUJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmV3AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgkBAmV0AgUCZXMAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUQIBQJlRwJfMQQCZWsIBQJlRwJfMgMJAQIhPQIFAmVrBQR1bml0BQJlRAkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlRAECZUgFAmVJAmNtAmNvAmFhAmVKBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY1kJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBdwQCY1oJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVAUBeAQCZUsJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmNwAhBpbnZhbGlkIGxwIGFzc2V0CHF1YW50aXR5BAJlTAMJAL8CAgUCZUsFAWUGCQACAQIiaW5pdGlhbCBkZXBvc2l0IHJlcXVpcmVzIGFsbCBjb2lucwMJAAACBQJlTAUCZUwEAmN3CQECYnkBBQJjcQQCY3kJAQJieQEFAmNyBAJlTQMJAAACBQJhYQIACQCUCgIFAmN3BQJjeQMJAAACBQJjbQUCY3EDCQBmAgUCZUkFAmN3CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY3cFAmVJBQJjeQMJAAACBQJjbQUCY3IDCQBmAgUCZUkFAmN5CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjdwkAZQIFAmN5BQJlSQkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmVOCAUCZU0CXzEEAmVPCAUCZU0CXzIEAmVQAwkAAAIFAmNtBQJjcQkAlAoCBQJlSQAAAwkAAAIFAmNtBQJjcgkAlAoCAAAFAmVJCQACAQIPaW52YWxpZCBwYXltZW50BAJlUQgFAmVQAl8xBAJlUggFAmVQAl8yBAJlUwMFAmVKCQCVCgMICQECY2cCBQJlUQUCYUUCXzEICQECY2cCBQJlUgUCYUUCXzEICQECY2cCBQJlSQUCYUUCXzIJAJUKAwUCZVEFAmVSAAAEAmVUCAUCZVMCXzEEAmVVCAUCZVMCXzIEAmNqCAUCZVMCXzMEAmVWCQBkAgUCZU4FAmVUBAJlVwkAZAIFAmVPBQJlVQQCYkwJAQJkUwEJAMwIAgkAtgIBBQJlTgkAzAgCCQC2AgEFAmVPBQNuaWwEAmJLCQECZFMBCQDMCAIJALYCAQUCZVYJAMwIAgkAtgIBBQJlVwUDbmlsBAJlWAMJAL8CAgUCYksFAmJMBgkBBXRocm93AAMJAAACBQJlWAUCZVgEAmVZCQC8AgMFAmVLCQC4AgIFAmJLBQJiTAUCYkwEAmNCCQEBSQIJAQJiQQIJAQFGAgUCZVcFAmNaCQEBRgIFAmVWBQJjWQUBYQQCZHgJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY0IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY0IJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQJjbwUCYWEJAQJiagoFAmVRBQJlUgkAoAMBBQJlWQUCY0IAAAAABQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wAAAAAAUDbmlsBAJlWgkAawMFAmVPBQFhBQJlTgQCZmEJAGsDBQJlSQUBYQkAZAIFAmVaBQFhBAJmYgkAZQIFAmVJBQJmYQQCZmMJALwCAwUCZUsJALYCAQUCZmIJALYCAQUCZU8EAmZkCQCgAwEJALwCAwkAuAICBQJlWQUCZmMFAWIFAmZjCQCWCgQJAKADAQUCZVkFAmR4BQJjagUCZmQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmZlBgJmZgJmZwJmaAJkUAJmaQJmagQCYVQJAQJhTAAEAmNwCQCRAwIFAmFUBQF0BAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmZrCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXcEAmZsCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVQFAXgEAmZtCQCRAwIFAmFUBQFzBAJjbwMJAAACBQJkUAUCYmkFAmZpBQJkUAQCZE4JAQV2YWx1ZQEJAJEDAgUCZmgAAAQCY20JAQV2YWx1ZQEIBQJkTgdhc3NldElkBAJjUwgFAmROBmFtb3VudAQCY2wJANgEAQUCZmoDCQECIT0CBQJjcAkA2AQBBQJjbQkAAgECCFdyb25nIExQBAJjdwkBAmJ5AQUCY3EEAmN5CQECYnkBBQJjcgQCZm4KAAJhRgkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZmCQDMCAIFAmNTBQNuaWwFA25pbAMJAAECBQJhRgIKKEludCwgSW50KQUCYUYJAAIBCQCsAgIJAAMBBQJhRgIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQMJAAACBQJmbgUCZm4EAmNqCAUCZm4CXzIEAmZvCAUCZm4CXzEEAmZwAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZvBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZvBAJmcQMJAAACBQJmZgUCY3EJAJYKBAUCZnAAAAkAZQIJAGUCBQJjdwUCZnAFAmNqBQJjeQMJAAACBQJmZgUCY3IJAJYKBAAABQJmcAUCY3cJAGUCCQBlAgUCY3kFAmZwBQJjagkAAgECFGludmFsaWQgb3V0IGFzc2V0IGlkBAJmcggFAmZxAl8xBAJmcwgFAmZxAl8yBAJlVggFAmZxAl8zBAJlVwgFAmZxAl80BAJmdAkBAmJBAgkBAUYCBQJlVwUCZmwJAQFGAgUCZVYFAmZrBAJmdQkBAUkCBQJmdAUBYQQCZnYDCQAAAgUCZmYCBVdBVkVTBQR1bml0CQDZBAEFAmZmBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagUCZnYFA25pbAUDbmlsBAJjSQkAzggCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmNvBQJmcAUCZnYJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAgkApQgBBQJjbwUCY2wJAQJidQYFAmZyBQJmcwUCY1MFAmZ1BQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVQAFAmZ1CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmZ1BQNuaWwFAmZ3AwkAAAIFAmNJBQJjSQQCZngJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCY1MFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY20FAmNTBQNuaWwDCQAAAgUCZngFAmZ4CQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZnkABAJhdgkAoggBCQEBUwADCQABAgUCYXYCBlN0cmluZwQCZFoFAmF2CQDZBAEFAmRaAwkAAQIFAmF2AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmZ6AAQCYXYJAKIIAQkBAVQAAwkAAQIFAmF2AgZTdHJpbmcEAmRaBQJhdgkA2QQBBQJkWgMJAAECBQJhdgIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJmQQkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJmQgECZE0EAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYJAAACCAUCZE0PY2FsbGVyUHVibGljS2V5BQJmQwMJAAECBQJhdgIEVW5pdAkAAAIIBQJkTQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgECZkQBAmRNBAJhdgkBAmZ5AAMJAAECBQJhdgIKQnl0ZVZlY3RvcgQCZkMFAmF2AwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkFAmZDBgUCZkEDCQABAgUCYXYCBFVuaXQDCQAAAggFAmRNBmNhbGxlcgUEdGhpcwYFAmZBCQACAQILTWF0Y2ggZXJyb3IbAmRNAQtjb25zdHJ1Y3RvcgEBUgQCZUEJAQJmRAEFAmRNAwkAAAIFAmVBBQJlQQkAzAgCCQELU3RyaW5nRW50cnkCCQEBUgAFAVIFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEKc2V0TWFuYWdlcgECZkUEAmVBCQECZkQBBQJkTQMJAAACBQJlQQUCZUEEAmZGCQDZBAEFAmZFAwkAAAIFAmZGBQJmRgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVAAFAmZFBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDmNvbmZpcm1NYW5hZ2VyAAQCY2YJAQJmegAEAmZHAwkBCWlzRGVmaW5lZAEFAmNmBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmRwUCZkcEAmZIAwkAAAIIBQJkTQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmNmBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmSAUCZkgJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVMACQDYBAEJAQV2YWx1ZQEFAmNmCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFUAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQNwdXQCAmZJAmZKBAJmSwkBAmJkAAQCZkwJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZLBQFBAgpXciBzdCBhZGRyBAJmTQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZksFAUMCCldyIHNsIGFkZHIDCQBmAgAABQJmSQkAAgECDldyb25nIHNsaXBwYWdlAwkBAiE9AgkAkAMBCAUCZE0IcGF5bWVudHMAAgkAAgECDDIgcG1udHMgZXhwZAQCZk4JAQJkTwoJAKUIAQgFAmRNBmNhbGxlcgkA2AQBCAUCZE0NdHJhbnNhY3Rpb25JZAkBD0F0dGFjaGVkUGF5bWVudAIICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAAB2Fzc2V0SWQICQEFdmFsdWUBCQCRAwIIBQJkTQhwYXltZW50cwAABmFtb3VudAkAkQMCCAUCZE0IcGF5bWVudHMAAQUCZkkGBwYAAAIABAJkcggFAmZOAl8yBAJmTwgFAmZOAl83BAJjSQgFAmZOAl85BAJkcwgFAmZOA18xMAQCZHQIBQJmTgNfMTEEAmNxCAUCZk4DXzEyBAJjcggFAmZOA18xMwQCZGUJAPwHBAUCYUQCBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsAwkAAAIFAmRlBQJkZQQCZlAEAmF2BQJkZQMJAAECBQJhdgIHQWRkcmVzcwQCZlEFAmF2CQD8BwQFAmZRAgRlbWl0CQDMCAIFAmRyBQNuaWwFA25pbAUEdW5pdAMJAAACBQJmUAUCZlAEAmZSAwkAZgIFAmRzAAAJAPwHBAUCZk0CA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjcQUCZHMFA25pbAUDbmlsAwkAAAIFAmZSBQJmUgQCZlMDCQBmAgUCZHQAAAkA/AcEBQJmTQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNyBQJkdAUDbmlsBQNuaWwDCQAAAgUCZlMFAmZTBAJmVAMFAmZKBAJmVQkA/AcEBQJmTAIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmRyBQNuaWwDCQAAAgUCZlUFAmZVBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRNBmNhbGxlcgUCZHIFAmZPBQNuaWwJAM4IAgUCY0kFAmZUCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQtwdXRPbmVUa25WMgICZmcCZkoEAmZWCgACYUYJAPwHBAUCYUQCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRgIHQm9vbGVhbgUCYUYJAAIBCQCsAgIJAAMBBQJhRgIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZlcDAwMJAQJhSQAGCQAAAgUCYVgFAW8GCQAAAgUCYVgFAXEGBQJmVgQCZlgJAMwIAgMDCQEBIQEFAmZXBgkBAmZCAQUCZE0GCQECYUIBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkTQhwYXltZW50cwABBgkBAmFCAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkA2QQBCQCRAwIFAmFUBQF0BAJmawkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF3BAJmbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmFUBQF4BAJjbwMJAAACCAUCZE0GY2FsbGVyBQR0aGlzCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0GY2FsbGVyBAJkTgkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAQCY20JANgEAQkBBXZhbHVlAQgFAmROB2Fzc2V0SWQEAmNTCAUCZE4GYW1vdW50BAJmWQkBAmVIBQUCY1MFAmNtCQClCAEFAmNvCQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkBgMJAAACBQJmWQUCZlkEAmNqCAUCZlkCXzMEAmNJCAUCZlkCXzIEAmZaCAUCZlkCXzEEAmRyAwMJAGYCBQJmZwAACQBmAgUCZmcFAmZaBwkBAmFCAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmZwUDbmlsAgAFAmZaBAJmTgkA/AcEBQJhRAIEZW1pdAkAzAgCBQJkcgUDbmlsBQNuaWwDCQAAAgUCZk4FAmZOBAJmUAQCYXYFAmZOAwkAAQIFAmF2AgdBZGRyZXNzBAJmUQUCYXYJAPwHBAUCZlECBGVtaXQJAMwIAgUCZHIFA25pbAUDbmlsBQR1bml0AwkAAAIFAmZQBQJmUAQCZlQDBQJmSgQCZlUJAPwHBAUCYmYCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNwBQJkcgUDbmlsAwkAAAIFAmZVBQJmVQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkTQZjYWxsZXIFAmRyBQJjcAUDbmlsBAJmdwMJAGYCBQJjagAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFLBQJjagkA2QQBBQJjbQUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNJBQJmVAUCZncFAmRyCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRNAQpwdXRGb3JGcmVlAQJnYQMJAGYCAAAFAmdhCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdiCQECZE8KCQClCAEIBQJkTQZjYWxsZXIJANgEAQgFAmRNDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZE0IcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRNCHBheW1lbnRzAAEFAmdhBwcGAAACAAgFAmdiAl85AmRNAQNnZXQABAJkZQkBAmRMAQUCZE0EAmdjCAUCZGUCXzEEAmNICAUCZGUCXzIEAmNTCAUCZGUCXzMEAmNtCAUCZGUCXzQEAmNJCAUCZGUCXzUEAmVCCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmVCBQJlQgUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BC2dldE9uZVRrblYyAgJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAQYJAQJhQgECHmV4YWN0bHkgMSBwYXltZW50IGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCZ2UJAQJmZQYFAmZmBQJmZwgFAmRNCHBheW1lbnRzCAUCZE0GY2FsbGVyCAUCZE0Mb3JpZ2luQ2FsbGVyCAUCZE0NdHJhbnNhY3Rpb25JZAQCY0kIBQJnZQJfMQQCZnAIBQJnZQJfMgkAlAoCBQJjSQUCZnAJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE2dldE9uZVRrblYyUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCZFQJAMwIAgkAtgIBCQECYnkBBQJjcQkAzAgCCQC2AgEJAQJieQEFAmNyBQNuaWwEAmdnCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJjcAIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCYkwJAQJkUwEFAmRUBAJiSwkAuAICBQJiTAkAvAIDCQC2AgEFAmdmBQJiTAUCZ2cEAmdoAwkAAAIFAmZmBQJjcQAAAwkAAAIFAmZmBQJjcgABCQACAQIUaW52YWxpZCBvdXQgYXNzZXQgaWQEAmdpCQECZXgDBQJkVAUCZ2gFAmJLBAJnagkAuAICCQCRAwIFAmRUBQJnaAUCZ2kEAmdrCQCWAwEJAMwIAgAACQDMCAIJAKADAQkAuAICBQJnagUBZgUDbmlsBAJnbAkBAmNnAgUCZ2sFAmFHBAJmbwgFAmdsAl8xBAJjaggFAmdsAl8yCQCUCgIFA25pbAkAlAoCBQJmbwUCY2oCZE0BHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmZmAmdmBAJhVAkBAmFMAAQCY3EJAJEDAgUCYVQFAXUEAmNyCQCRAwIFAmFUBQF2BAJjcAkAkQMCBQJhVAUBdAQCY3cJAQJieQEFAmNxBAJjeQkBAmJ5AQUCY3IEAmdtCgACYUYJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmZgkAzAgCBQJnZgUDbmlsBQNuaWwDCQABAgUCYUYCCihJbnQsIEludCkFAmFGCQACAQkArAICCQADAQUCYUYCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkEAmZvCAUCZ20CXzEEAmNqCAUCZ20CXzIEAmRlCQECY2sEAgAFAmNwBQJnZgUEdGhpcwQCY0cIBQJkZQJfMQQCY0gIBQJkZQJfMgQCZ24JAGQCBQJjRwUCY0gEAmZkAwkAAAIFAmduAAADCQAAAgUCZm8AAAAACQACAQIXYm9udXMgY2FsY3VsYXRpb24gZXJyb3IJAGsDCQBlAgUCZm8FAmduBQFhBQJnbgkAlAoCBQNuaWwJAJUKAwUCZm8FAmNqBQJmZAJkTQEJZ2V0Tm9MZXNzAgJnbwJncAQCZGUJAQJkTAEFAmRNBAJjRwgFAmRlAl8xBAJjSAgFAmRlAl8yBAJjUwgFAmRlAl8zBAJjbQgFAmRlAl80BAJjSQgFAmRlAl81AwkAZgIFAmdvBQJjRwkAAgEJAKwCAgkArAICCQCsAgICCUZhaWxlZDogIAkApAMBBQJjRwIDIDwgCQCkAwEFAmdvAwkAZgIFAmdwBQJjSAkAAgEJAKwCAgkArAICCQCsAgICCEZhaWxlZDogCQCkAwEFAmNIAgMgPCAJAKQDAQUCZ3AEAmdxCQD8BwQFAmFEAgRidXJuCQDMCAIFAmNTBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmNtBQJjUwUDbmlsAwkAAAIFAmdxBQJncQUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BDXVuc3Rha2VBbmRHZXQBAmNoBAJncgMJAQIhPQIJAJADAQgFAmRNCHBheW1lbnRzAAAJAAIBAg1ObyBwbW50cyBleHBkBgMJAAACBQJncgUCZ3IEAmJYCQECYUwABAJncwkBAmJkAAQCZk8JANkEAQkAkQMCBQJiWAUBdAQCZ3QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdzBQFBAgpXciBzdCBhZGRyBAJndQkA/AcEBQJndAIHdW5zdGFrZQkAzAgCCQDYBAEFAmZPCQDMCAIFAmNoBQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmRlCQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmZPBQJjaAgFAmRNBmNhbGxlcgQCY3UJAQ1wYXJzZUludFZhbHVlAQgFAmRlAl85BAJjSQgFAmRlA18xMAQCZ3YDAwkBAmFJAAYJAAACBQJjdQUBcQkAAgEJAKwCAgIJQmxvY2tlZDogCQCkAwEFAmN1BgMJAAACBQJndgUCZ3YEAmd3CQD8BwQFAmFEAgRidXJuCQDMCAIFAmNoBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmZPBQJjaAUDbmlsAwkAAAIFAmd3BQJndwUCY0kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZE0BE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmd4Amd5AmdwBAJnZAMJAQJhSQAGCQAAAgUCYVgFAXEEAmZYCQDMCAIDCQEBIQEFAmdkBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRNCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZlgFAmZYBAJndQkA/AcEBQJiZgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFZCQDMCAIFAmd4BQNuaWwFA25pbAMJAAACBQJndQUCZ3UEAmd6CQECY2sECQDYBAEIBQJkTQ10cmFuc2FjdGlvbklkCQDYBAEFAmFZBQJneAgFAmRNBmNhbGxlcgQCY0cIBQJnegJfMQQCY0gIBQJnegJfMgQCY0kIBQJnegNfMTAEAmdBCQDMCAIDCQBnAgUCY0cFAmd5BgkAAgEJALkJAgkAzAgCAixhbW91bnQgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmd5BQNuaWwCAAkAzAgCAwkAZwIFAmNIBQJncAYJAAIBCQC5CQIJAMwIAgIrcHJpY2UgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmdwBQNuaWwCAAUDbmlsAwkAAAIFAmdBBQJnQQQCZ3EJAPwHBAUCYUQCBGJ1cm4JAMwIAgUCZ3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYVkFAmd4BQNuaWwDCQAAAgUCZ3EFAmdxBQJjSQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJneAJmZgJmZwQCZlYKAAJhRgkA/AcEBQJhRAIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFGAgdCb29sZWFuBQJhRgkAAgEJAKwCAgkAAwEFAmFGAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJnZAMDCQECYUkABgkAAAIFAmFYBQFxBgUCZlYEAmZYCQDMCAIDAwkBASEBBQJnZAYJAQJmQgEFAmRNBgkBAmFCAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCZE0IcGF5bWVudHMAAAYJAQJhQgECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmZYBQJmWAQCYlgJAQJhTAAEAmdzCQECYmQABAJmTwkA2QQBCQCRAwIFAmJYBQF0BAJndAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3MFAUECCldyIHN0IGFkZHIEAmd1CQD8BwQFAmd0Agd1bnN0YWtlCQDMCAIJANgEAQUCZk8JAMwIAgUCZ3gFA25pbAUDbmlsAwkAAAIFAmd1BQJndQQCZ0IJAQJmZQYFAmZmBQJmZwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZk8FAmd4BQNuaWwIBQJkTQZjYWxsZXIIBQJkTQxvcmlnaW5DYWxsZXIIBQJkTQ10cmFuc2FjdGlvbklkBAJjSQgFAmdCAl8xBAJmcAgFAmdCAl8yCQCUCgIFAmNJBQJmcAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkTQEccHV0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRQkBAmVIBQUCZ0MFAmdEAgACAAYEAmVZCAUCZ0UCXzEEAmNJCAUCZ0UCXzIEAmNqCAUCZ0UCXzMEAmZkCAUCZ0UCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BIXB1dE9uZVRrblYyV2l0aG91dFRha2VGZWVSRUFET05MWQICZ0MCZ0QEAmFUCQECYUwABAJjcQkAkQMCBQJhVAUBdQQCY3IJAJEDAgUCYVQFAXYEAmNwCQCRAwIFAmFUBQF0BAJnRgkBAmVIBQUCZ0MFAmdEAgACAAcEAmVZCAUCZ0YCXzEEAmNJCAUCZ0YCXzIEAmNqCAUCZ0YCXzMEAmZkCAUCZ0YCXzQJAJQKAgUDbmlsCQCVCgMFAmVZBQJjagUCZmQCZE0BCGFjdGl2YXRlAgJnRwJnSAMJAQIhPQIJAKUIAQgFAmRNBmNhbGxlcgkApQgBBQJhRAkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYwAFAmdHCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZAAFAmdIBQNuaWwCB3N1Y2Nlc3MCZE0BBHNldFMCAmdJAmd2AwkBAiE9AgkApQgBCAUCZE0GY2FsbGVyCQECYXgCBQR0aGlzCQECYWYABQJmQQkAzAgCCQELU3RyaW5nRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEEc2V0SQICZ0kCZ3YDCQECIT0CCQClCAEIBQJkTQZjYWxsZXIJAQJheAIFBHRoaXMJAQJhZgAFAmZBCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJnSQUCZ3YFA25pbAJkTQEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYUwAAmRNARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJiegkAlAoCBQNuaWwJAQJieQEFAmJ6AmRNARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJiUgJiUwJiVwQCZ0oJAQJiVgMFAmJSBQJiUwUCYlcJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJnSgAACQDMCAIJAKYDAQkAkQMCBQJnSgABCQDMCAIJAKYDAQkAkQMCBQJnSgACBQNuaWwCZE0BFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCAUoCZ0sJAJQKAgUDbmlsCQEBSQIJAKcDAQUBSgUCZ0sCZE0BFHRvWDE4V3JhcHBlclJFQURPTkxZAgFHAUgJAJQKAgUDbmlsCQCmAwEJAQFGAgUBRwUBSAJkTQEeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZAgJiQgJiQwkAlAoCBQNuaWwJAKYDAQkBAmJBAgkApwMBBQJiQgkApwMBBQJiQwJkTQEjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAmNsAmJHAmNLAmNMAmNNAmNOAmdMAmNPAmNQCQCUCgIFA25pbAkBAmNKDQUCY2wFAmJHBQJjSwUCY0wFAmNNBQJjTgUCZ0wFAmNPBQJjUAYHAAACAAJkTQEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEAmNsAmdNAmNuAmdMBAJkZQkBAmNrBAUCY2wFAmdNBQJjbgkBEUBleHRyTmF0aXZlKDEwNjIpAQUCZ0wJAJQKAgUDbmlsCQCcCgoIBQJkZQJfMQgFAmRlAl8yCAUCZGUCXzMIBQJkZQJfNAgFAmRlAl81CAUCZGUCXzYIBQJkZQJfNwkApgMBCAUCZGUCXzgIBQJkZQJfOQgFAmRlA18xMAECZ04BAmdPAAQCZ1AEAmF2CQECZnkAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJmQwUCYXYFAmZDAwkAAQIFAmF2AgRVbml0CAUCZ04Pc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmF2BQJnTgMJAAECBQJhdgIFT3JkZXIEAmR6BQJhdgQCZ1EJAQJhSgAEAmdSCQECZHkBBQJkegQCZ1MJAPQDAwgFAmR6CWJvZHlCeXRlcwkAkQMCCAUCZHoGcHJvb2ZzAAAIBQJkeg9zZW5kZXJQdWJsaWNLZXkEAmdUCQD0AwMIBQJkeglib2R5Qnl0ZXMJAJEDAggFAmR6BnByb29mcwABBQJnUQMDAwUCZ1IFAmdTBwUCZ1QHBgkBAmFxAwUCZ1IFAmdTBQJnVAMJAAECBQJhdgIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmRaBQJhdgQCZ1UJAPYDAQkBBXZhbHVlAQgFAmRaBnNjcmlwdAQCZ1YJANsEAQkBBXZhbHVlAQkAnQgCBQJhRAkBAmFvAAQCZ1cJAPEHAQUEdGhpcwMDCQAAAgUCZ1YFAmdVCQECIT0CBQJnVwUCZ1UHBgkA9AMDCAUCZ04JYm9keUJ5dGVzCQCRAwIIBQJnTgZwcm9vZnMAAAUCZ1AJAPQDAwgFAmdOCWJvZHlCeXRlcwkAkQMCCAUCZ04GcHJvb2ZzAAAFAmdQf6Cfrw==",
    "chainId": 84,
    "height": 2362679,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8maJiFYcVoRkWgDVLibwg7pgx8273TM66DNavf4VEZHa
Next: F8GP6sK9ToTL3AeyzNno8ghdePZcbvbpnukZAe1Gfkwd

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

119	115		func ada () = "%s__addonAddr"
120	116
121	117
122		-	let keyFee = "%s__fee"
123		-
124		-	let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
125		-
126		-	let keyDLp = makeString(["%s", "dLp"], SEP)
127		-
128		-	let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
129		-
130		-	let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
131		-
132		-	let dLpRefreshDelayDefault = 1
133		-
134		-	let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
135		-
136	118		func fcfg () = "%s__factoryConfig"
137	119
138	120

174	156		func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
175	157
176	158
177		-	~~func fmtErr (msg)~~ = ~~makeString~~(~~["lp_stable.ride:"~~, ~~msg], " "~~)
	159	+	let fca = addressFromStringValue(strf(this, fc()))
178	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	+	}
179	167
180		-	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	+	}
181	174
182	175		let A = strf(this, amp())
183	176

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

303	296		}
304	297
305	298
306		-	func takeFee (amount) = {
307		-	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)
308	303		$Tuple2((amount - feeAmount), feeAmount)
309	304		}
310	305

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

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

694	511		}
695	512
696	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	+
697	618		func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
698	619		let poolConfig = gpc()
699	620		let amId = poolConfig[idxAmAsId]

709	630		then {
710	631		let amBalance = getAccBalance(amId)
711	632		let prBalance = getAccBalance(prId)
712		-	let $~~t02708227544~~ = if ((txId == ""))
	633	+	let $t02460425066 = if ((txId == ""))
713	634		then $Tuple2(amBalance, prBalance)

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

github/deemru/w8io/873ac7e 
180.45 ms ◑