w8 · tx

2023.03.23 11:24 [3567987] smart account 3PJazesjmprZcXYcFx3LxBux9T7q6qYoEDu > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "G9Kem8zaL8srmJWwPHSwuQ4RL8wy56b5ftKUBxN7SGJe",
    "fee": 4200000,
    "feeAssetId": null,
    "timestamp": 1679559879895,
    "version": 2,
    "chainId": 87,
    "sender": "3PJazesjmprZcXYcFx3LxBux9T7q6qYoEDu",
    "senderPublicKey": "Eh7K5LqQLQiMVtfTT8GBou465Ta9MUg5GpmqtykkYK8J",
    "proofs": [
        "2SHUmTukJNsF3kKjjEFUMfx9Ce55vKWyvWaZB4C6xL3C8ehMP4Tqj35LDBV9Ba1KAVwY3n5jgHxAc7P2xH8miVzh"
    ],
    "script": "base64:BgLMLAgCEgUKAwEEARIHCgUBBAEIARIDCgEIEgMKAQgSABIECgIBBBIECgIBBBIDCgEBEgASBAoCCAESABIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEBARIFCgMBCAESBAoCAQgSBAoCAQgSBAoCCAgSBAoCCAgSBAoCCAESABIDCgEIEgUKAwEBARIECgIIARIECgIBARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCBIAIgZzY2FsZTgiDHNjYWxlOEJpZ0ludCIHc2NhbGUxOCIKemVyb0JpZ0ludCIEYmlnMCIEYmlnMSIEYmlnMiIEYmlnMyIEYmlnNCIKc2xpcHBhZ2U0RCILd2F2ZXNTdHJpbmciBUFtdWx0IgVEY29udiIDU0VQIgVFTVBUWSIKUG9vbEFjdGl2ZSIKUG9vbFB1dERpcyIOUG9vbE1hdGNoZXJEaXMiDFBvb2xTaHV0ZG93biIOaWR4UG9vbEFkZHJlc3MiCWlkeFBvb2xTdCIJaWR4TFBBc0lkIglpZHhBbUFzSWQiCWlkeFByQXNJZCILaWR4QW10QXNEY20iDWlkeFByaWNlQXNEY20iC2lkeElBbXRBc0lkIg1pZHhJUHJpY2VBc0lkIg9pZHhGYWN0U3Rha0NudHIiEmlkeEZhY3RvcnlSZXN0Q250ciIQaWR4RmFjdFNsaXBwQ250ciIRaWR4RmFjdEd3eFJld0NudHIiCmZlZURlZmF1bHQiAnQxIgdvcmlnVmFsIg1vcmlnU2NhbGVNdWx0Igh0MUJpZ0ludCICZjEiA3ZhbCIPcmVzdWx0U2NhbGVNdWx0Igxmcm9tWDE4Um91bmQiBXJvdW5kIgJ0MiICZjIiAnRzIgNhbXQiCHJlc1NjYWxlIghjdXJTY2FsZSIDYWJzIglhYnNCaWdJbnQiAmZjIgNtcGsiBHBtcGsiAnBsIgJwaCIBaCIBdCIDcGF1IgJ1YSIEdHhJZCIDZ2F1IgJhYSICcGEiA2FtcCINa2V5QW1wSGlzdG9yeSIMaGVpZ2h0QmxvY2tzIgNhZGEiFGtleUNoYW5nZUFtcExhc3RDYWxsIgZrZXlGZWUiA2ZlZSIGa2V5RExwIhVrZXlETHBSZWZyZXNoZWRIZWlnaHQiEmtleURMcFJlZnJlc2hEZWxheSIWZExwUmVmcmVzaERlbGF5RGVmYXVsdCIPZExwUmVmcmVzaERlbGF5IgRmY2ZnIgRtdHBrIgJwYyIGaUFtdEFzIgVpUHJBcyIDbWJhIgViQVN0ciIDYXBzIhxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIhZrZXlTa2lwT3JkZXJWYWxpZGF0aW9uIgtwb29sQWRkcmVzcyIPdGhyb3dPcmRlckVycm9yIgpvcmRlclZhbGlkIg5vcmRlclZhbGlkSW5mbyILc2VuZGVyVmFsaWQiDG1hdGNoZXJWYWxpZCIEc3RyZiIEYWRkciIDa2V5IgRpbnRmIgh0aHJvd0VyciIDbXNnIgZmbXRFcnIiA2ZjYSIFaW5GZWUiAUAiBm91dEZlZSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiDHBhcnNlQXNzZXRJZCIFaW5wdXQiD2Fzc2V0SWRUb1N0cmluZyIPcGFyc2VQb29sQ29uZmlnIgpwb29sQ29uZmlnIhBwb29sQ29uZmlnUGFyc2VkIgskdDA4MTk0ODQyMyIOY2ZnUG9vbEFkZHJlc3MiDWNmZ1Bvb2xTdGF0dXMiDGNmZ0xwQXNzZXRJZCIQY2ZnQW1vdW50QXNzZXRJZCIPY2ZnUHJpY2VBc3NldElkIhZjZmdBbW91bnRBc3NldERlY2ltYWxzIhVjZmdQcmljZUFzc2V0RGVjaW1hbHMiEmNmZ0luQW1vdW50QXNzZWRJZCIRY2ZnSW5QcmljZUFzc2V0SWQiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IgxyZXN0Q29udHJhY3QiEWRhdGFQdXRBY3Rpb25JbmZvIg1pbkFtdEFzc2V0QW10Ig9pblByaWNlQXNzZXRBbXQiCG91dExwQW10IgVwcmljZSIKc2xpcEJ5VXNlciIMc2xpcHBhZ2VSZWFsIgh0eEhlaWdodCILdHhUaW1lc3RhbXAiDHNsaXBhZ2VBbUFtdCIMc2xpcGFnZVByQW10IhFkYXRhR2V0QWN0aW9uSW5mbyIOb3V0QW10QXNzZXRBbXQiEG91dFByaWNlQXNzZXRBbXQiB2luTHBBbXQiDWdldEFjY0JhbGFuY2UiB2Fzc2V0SWQiBGNwYmkiCHByQW10WDE4IghhbUFtdFgxOCIFY3BiaXIiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIIYW10QXNEY20iB3ByQXNEY20iCHByaWNlWDE4IghscEFtdFgxOCINbHBQckluQW1Bc1gxOCINbHBQckluUHJBc1gxOCIPY2FsY3VsYXRlUHJpY2VzIgFwIgd0YWtlRmVlIgZhbW91bnQiCWZlZUFtb3VudCIEZ2V0RCICeHAiA3hwMCIDeHAxIgFzIgFhIgNhbm4iC3hwMF94cDFfbl9uIgVhbm5fcyIFYW5uXzEiCWNhbGNETmV4dCIBZCICZGQiA2RkZCICZHAiBGNhbGMiA2FjYyIBaSIFZE5leHQiCGREaWZmUmF3IgVkRGlmZiIDYXJyIg0kdDAxMjkyODEyOTc2IgIkbCICJHMiBSRhY2MwIgUkZjBfMSICJGEiAiRpIgUkZjBfMiIFZm91bmQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiCWluQW1JZFN0ciIJaW5QcklkU3RyIgZhbXREY20iCHByaWNlRGNtIgRscEVtIg9pbkFtQXNzZXRBbXRYMTgiD2luUHJBc3NldEFtdFgxOCIMdXNlclByaWNlWDE4IgFyIgZjaGVja0QiC3NsaXBwYWdlWDE4Ig9zbGlwcGFnZVJlYWxYMTgiDWxwRW1pc3Npb25YMTgiCnByVmlhQW1YMTgiCmFtVmlhUHJYMTgiDGV4cGVjdGVkQW10cyIRZXhwQW10QXNzZXRBbXRYMTgiE2V4cFByaWNlQXNzZXRBbXRYMTgiCWNhbGNMcEFtdCIOY2FsY0FtQXNzZXRQbXQiDmNhbGNQckFzc2V0UG10IgxzbGlwcGFnZUNhbGMiCWVtaXRMcEFtdCIGYW1EaWZmIgZwckRpZmYiDSR0MDIwODE1MjExNjAiCndyaXRlQW1BbXQiCndyaXRlUHJBbXQiC2NvbW1vblN0YXRlIgVnZXRZRCIBRCIBbiIBeCIKYVByZWNpc2lvbiIBYyIBYiIDY3VyIg0kdDAyMjM1NTIyMzc1IgF5IgV5TmV4dCIFeURpZmYiDSR0MDIyNjgyMjI3MjkiB2NhbGNETHAiDWFtb3VudEJhbGFuY2UiDHByaWNlQmFsYW5jZSIKbHBFbWlzc2lvbiIKdXBkYXRlZERMcCIOY2FsY0N1cnJlbnRETHAiEGFtb3VudEFzc2V0RGVsdGEiD3ByaWNlQXNzZXREZWx0YSIUbHBBc3NldEVtaXNzaW9uRGVsdGEiEmFtb3VudEFzc2V0QmFsYW5jZSIRcHJpY2VBc3NldEJhbGFuY2UiD2xwQXNzZXRFbWlzc2lvbiIKY3VycmVudERMcCIScmVmcmVzaERMcEludGVybmFsIhdhbW91bnRBc3NldEJhbGFuY2VEZWx0YSIWcHJpY2VBc3NldEJhbGFuY2VEZWx0YSIHYWN0aW9ucyISdmFsaWRhdGVVcGRhdGVkRExwIgZvbGRETHAiG3ZhbGlkYXRlTWF0Y2hlck9yZGVyQWxsb3dlZCIFb3JkZXIiEWFtb3VudEFzc2V0QW1vdW50IhBwcmljZUFzc2V0QW1vdW50Ig0kdDAyNDkyNzI1MTM5IgNkTHAiDSR0MDI1NDgxMjU1ODEiDXVudXNlZEFjdGlvbnMiBmRMcE5ldyIMaXNPcmRlclZhbGlkIgRpbmZvIgJjZyIDcG10IgJjcCIGY2FsbGVyIgdhbUFzUG10IgdwckFzUG10Ig1jYWxjUHV0T25lVGtuIglwbXRBbXRSYXciC3dpdGhUYWtlRmVlIg1jaGVjaEVtaXNzaW9uIg0kdDAyODIzNzI4Njk5IgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCINJHQwMjg3MDUyODg4MSILYW1BbW91bnRSYXciC3ByQW1vdW50UmF3Ig0kdDAyODg4NTI5MTM5IghhbUFtb3VudCIIcHJBbW91bnQiDGFtQmFsYW5jZU5ldyIMcHJCYWxhbmNlTmV3IghscEFtb3VudCIOcG9vbFByb3BvcnRpb24iD2Ftb3VudEFzc2V0UGFydCIOcHJpY2VBc3NldFBhcnQiCWxwQW10Qm90aCIFYm9udXMiE2dldE9uZVRrblYySW50ZXJuYWwiCm91dEFzc2V0SWQiDG1pbk91dEFtb3VudCIIcGF5bWVudHMiDG9yaWdpbkNhbGxlciINdHJhbnNhY3Rpb25JZCIKYW1EZWNpbWFscyIKcHJEZWNpbWFscyIKcG9vbFN0YXR1cyINJHQwMzEyNTEzMTM2MiIIdG90YWxHZXQiC3RvdGFsQW1vdW50Ig0kdDAzMTU1MjMxODU5IgVvdXRBbSIFb3V0UHIiCGN1clByWDE4IgVjdXJQciIRb3V0QXNzZXRJZE9yV2F2ZXMiEHNlbmRGZWVUb01hdGNoZXIiBGJ1cm4iDSR0MDMyNjQ0MzI5OTQiEGZlZUFtb3VudEZvckNhbGMiEG91dEluQW1vdW50QXNzZXQiDSR0MDMyOTk3MzMxMDUiEXJlZnJlc2hETHBBY3Rpb25zIhFpc1VwZGF0ZWRETHBWYWxpZCIBbSIHJG1hdGNoMCICcG0iAnBkIglpc01hbmFnZXIiAnBrIgJtbSIEZ2V0WSIJaXNSZXZlcnNlIhNwb29sQW1vdW50SW5CYWxhbmNlIg0kdDAzNDU1MjM0NTcyIg0kdDAzNDkwMzM0OTUwIhNza2lwT3JkZXJWYWxpZGF0aW9uIg1jbGVhbkFtb3VudEluIg1mZWVQb29sQW1vdW50Ig0kdDAzNTMwMjM1NzI2Ighhc3NldE91dCICZHkiC3RvdGFsR2V0UmF3IgVuZXdYcCIEbmV3RCIMYW1vdW50T3V0TWluIglhZGRyZXNzVG8iC3N3YXBDb250YWN0IgZjaGVja3MiB2Fzc2V0SW4iDSR0MDM3MTYyMzc1NTYiCGNoZWNrTWluIhdwZW5kaW5nTWFuYWdlclB1YmxpY0tleSICY20iA2hwbSIDY3BtIgRzbGlwIglhdXRvU3Rha2UiB2ZhY3RDZmciC3N0YWtpbmdDbnRyIghzbGlwQ250ciIKYW1Bc3NldFBtdCIKcHJBc3NldFBtdCIBZSIJbHBBc3NldElkIgJlbCIGbGVnYWN5IgJzYSICc3AiCGxwVHJuc2ZyIgJzcyINJHQwNDIxNzU0MjMxNyIFY2hlY2siFGxwQXNzZXRFbWlzc2lvbkFmdGVyIiBpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZCINaXNQdXREaXNhYmxlZCINJHQwNDM5NTg0NDExNiIHZXN0aW1MUCINJHQwNDUwMDE0NTM1MCIUcGF5bWVudEluQW1vdW50QXNzZXQiDSR0MDQ1MzUzNDU0NjEiB21heFNscGciBmVzdFB1dCINJHQwNDY0OTE0NjU1NiIJb3V0QW10QW10Ig0kdDA0NzcyOTQ3ODExIg1pc0dldERpc2FibGVkIg0kdDA0ODQyOTQ4NTg0IhhsYXN0UmVmcmVzaGVkQmxvY2tIZWlnaHQiHWNoZWNrTGFzdFJlZnJlc2hlZEJsb2NrSGVpZ2h0Ig0kdDA0OTEwODQ5MTcyIhBkTHBVcGRhdGVBY3Rpb25zIg1scEFzc2V0QW1vdW50IgVpbmRleCIEbmV3WSINJHQwNTAxODI1MDIzNyINJHQwNTA2MTI1MDcyNyIOc3VtT2ZHZXRBc3NldHMiEm5vTGVzc1RoZW5BbXRBc3NldCIUbm9MZXNzVGhlblByaWNlQXNzZXQiFGJ1cm5MUEFzc2V0T25GYWN0b3J5Ig0kdDA1MTg5MzUxOTc0Ig1jaGVja1BheW1lbnRzIgpmYWN0b3J5Q2ZnIgdzdGFraW5nIgp1bnN0YWtlSW52IgF2IgVidXJuQSINJHQwNTMwMDE1MzA4MiINdW5zdGFrZUFtb3VudCIVbm9MZXNzVGhlbkFtb3VudEFzc2V0IgNyZXMiDGNoZWNrQW1vdW50cyINJHQwNTQzMzM1NDQxNCIXbHBBc3NldFJlY2lwaWVudEFkZHJlc3MiDSR0MDU1NDM2NTU2MjQiEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIg0kdDA1NTc1MjU1ODU1Ig0kdDA1NjAwMzU2MTA3IghhbXRBc1N0ciIHcHJBc1N0ciIBayICcHIiDHJlc1NjYWxlTXVsdCIHdXNyQWRkciIHcG10QXNJZCIDY2ZnIg0kdDA1ODc5NDU4OTkzIgRsaXN0IgVkZWxheSIFZGVsdGEiBnRhcmdldCIGY3VyQW1wIgluZXdBbXBSYXciBm5ld0FtcCIIbGFzdENhbGwiBHdhaXQiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleSIKbWF0Y2hlclB1YiINJHQwNTk5MDU2MDAyMiIHbmV3SGFzaCILYWxsb3dlZEhhc2giC2N1cnJlbnRIYXNohgEAAWEAgMLXLwABYgkAtgIBAIDC1y8AAWMJALYCAQCAgJC7utat8A0AAWQJALYCAQAAAAFlCQC2AgEAAAABZgkAtgIBAAEAAWcJALYCAQACAAFoCQC2AgEAAwABaQkAtgIBAAQAAWoJALYCAQkAZQIFAWEJAGkCCQBoAgUBYQABBQFhAAFrAgVXQVZFUwABbAIDMTAwAAFtAgExAAFuAgJfXwABbwIAAAFwAAEAAXEAAgABcgADAAFzAAQAAXQAAQABdQACAAF2AAMAAXcABAABeAAFAAF5AAYAAXoABwABQQAIAAFCAAkAAUMAAQABRAAGAAFFAAcAAUYACgABRwkAawMACgUBYQCQTgEBSAIBSQFKCQC8AgMJALYCAQUBSQUBYwkAtgIBBQFKAQFLAgFJAUoJALwCAwUBSQUBYwUBSgEBTAIBTQFOCQCgAwEJALwCAwUBTQkAtgIBBQFOBQFjAQFPAwFNAU4BUAkAoAMBCQC9AgQFAU0JALYCAQUBTgUBYwUBUAEBUQIBSQFKCQC8AgMFAUkFAWMJALYCAQUBSgEBUgIBTQFOCQC8AgMFAU0JALYCAQUBTgUBYwEBUwMBVAFVAVYJAGsDBQFUBQFVBQFWAQFXAQFNAwkAvwICBQFkBQFNCQC+AgEFAU0FAU0BAVgBAU0DCQC/AgIFAWQFAU0JAL4CAQUBTQUBTQEBWQACEyVzX19mYWN0b3J5Q29udHJhY3QBAVoAAhQlc19fbWFuYWdlclB1YmxpY0tleQECYWEAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAmFiAAIRJXMlc19fcHJpY2VfX2xhc3QBAmFjAgJhZAJhZQkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAmFkCQDMCAIJAKQDAQUCYWUFA25pbAUBbgECYWYCAmFnAmFoCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUCYWcCAl9fBQJhaAECYWkCAmFnAmFoCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUCYWcCAl9fBQJhaAECYWoAAg8lc19fYW1vdW50QXNzZXQBAmFrAAIOJXNfX3ByaWNlQXNzZXQBAmFsAAIHJXNfX2FtcAECYW0BAmFuCQCsAgICCyVzJWRfX2FtcF9fCQCkAwEFAmFuAQJhbwACDSVzX19hZGRvbkFkZHIBAmFwAAIVJXNfX2NoYW5nZUFtcExhc3RDYWxsAAJhcQIHJXNfX2ZlZQACYXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUCYXEFAUcAAmFzCQC5CQIJAMwIAgICJXMJAMwIAgIDZExwBQNuaWwFAW4AAmF0CQC5CQIJAMwIAgICJXMJAMwIAgISZExwUmVmcmVzaGVkSGVpZ2h0BQNuaWwFAW4AAmF1CQC5CQIJAMwIAgICJXMJAMwIAgIPcmVmcmVzaERMcERlbGF5BQNuaWwFAW4AAmF2AB4AAmF3CQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAmF1BQJhdgECYXgAAhElc19fZmFjdG9yeUNvbmZpZwECYXkAAhglcyVzX19tYXRjaGVyX19wdWJsaWNLZXkBAmF6AgJhQQJhQgkArAICCQCsAgIJAKwCAgkArAICAgglZCVkJXNfXwUCYUECAl9fBQJhQgIIX19jb25maWcBAmFDAQJhRAkArAICAiglcyVzJXNfX21hcHBpbmdzX19iYXNlQXNzZXQyaW50ZXJuYWxJZF9fBQJhRAECYUUAAgwlc19fc2h1dGRvd24BAmFGAAIdJXNfX2FsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gBAmFHAAIXJXNfX2ZlZUNvbGxlY3RvckFkZHJlc3MBAmFIAQJhSQkArAICAhslcyVzX19za2lwT3JkZXJWYWxpZGF0aW9uX18FAmFJAQJhSgQCYUsCYUwCYU0CYU4JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIkb3JkZXIgdmFsaWRhdGlvbiBmYWlsZWQ6IG9yZGVyVmFsaWQ9CQClAwEFAmFLAgIgKAUCYUwCASkCDSBzZW5kZXJWYWxpZD0JAKUDAQUCYU0CDiBtYXRjaGVyVmFsaWQ9CQClAwEFAmFOAQJhTwICYVACYVEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQJhUAUCYVEJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUCYVAJAMwIAgIBLgkAzAgCBQJhUQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAQJhUgICYVACYVEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQJhUAUCYVEJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUCYVAJAMwIAgIBLgkAzAgCBQJhUQkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAQJhUwECYVQJAAIBCQC5CQIJAMwIAgIPbHBfc3RhYmxlLnJpZGU6CQDMCAIFAmFUBQNuaWwCASABAmFVAQJhVAkAuQkCCQDMCAICD2xwX3N0YWJsZS5yaWRlOgkAzAgCBQJhVAUDbmlsAgEgAAJhVgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmFPAgUEdGhpcwkBAVkAAAJhVwoAAmFYCQD8BwQFAmFWAhBnZXRJbkZlZVJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYVgCA0ludAUCYVgJAAIBCQCsAgIJAAMBBQJhWAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AAJhWQoAAmFYCQD8BwQFAmFWAhFnZXRPdXRGZWVSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFYAgNJbnQFAmFYCQACAQkArAICCQADAQUCYVgCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAACYVoJAQJhTwIFBHRoaXMJAQJhbAABAmJhAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQJhVgkBAmFFAAcBAmJiAAkA2QQBCQECYU8CBQJhVgkBAmF5AAACYmMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQJhTwIFAmFWCQECYUcAAQJiZAAEAmJlCQECYU8CBQR0aGlzCQECYWoABAJiZgkBAmFPAgUEdGhpcwkBAmFrAAQCYmcJAQJhUgIFAmFWCQECYUMBBQJiZgQCYUEJAQJhUgIFAmFWCQECYUMBBQJiZQkAtQkCCQECYU8CBQJhVgkBAmF6AgkApAMBBQJhQQkApAMBBQJiZwUBbgECYmgBAmJpAwkAAAIFAmJpBQFrBQR1bml0CQDZBAEFAmJpAQJiagECYmkDCQAAAgUCYmkFBHVuaXQFAWsJANgEAQkBBXZhbHVlAQUCYmkBAmJrAQJibAkAmwoJCQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFAmJsBQF0CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYmwFAXUJANkEAQkAkQMCBQJibAUBdgkBAmJoAQkAkQMCBQJibAUBdwkBAmJoAQkAkQMCBQJibAUBeAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJsBQF5CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYmwFAXoJANkEAQkAkQMCBQJibAUBQQkA2QQBCQCRAwIFAmJsBQFCAAJibQkBAmJrAQkBAmJkAAACYm4FAmJtAAJibwgFAmJuAl8xAAJicAgFAmJuAl8yAAJicQgFAmJuAl8zAAJicggFAmJuAl80AAJicwgFAmJuAl81AAJidAgFAmJuAl82AAJidQgFAmJuAl83AAJidggFAmJuAl84AAJidwgFAmJuAl85AQJieAAJALUJAgkBAmFPAgUCYVYJAQJheAAFAW4AAmJ5CQECYngAAAJiegkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYnkFAUMCIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJiQQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYnkFAUUCIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJiQgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYnkFAUYCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MAAmJDCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJieQUBRAIcSW52YWxpZCBnd3ggY29udHJhY3QgYWRkcmVzcwECYkQKAmJFAmJGAmJHAmJIAmJJAmJKAmJLAmJMAmJNAmJOCQC5CQIJAMwIAgIUJWQlZCVkJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJiRQkAzAgCCQCkAwEFAmJGCQDMCAIJAKQDAQUCYkcJAMwIAgkApAMBBQJiSAkAzAgCCQCkAwEFAmJJCQDMCAIJAKQDAQUCYkoJAMwIAgkApAMBBQJiSwkAzAgCCQCkAwEFAmJMCQDMCAIJAKQDAQUCYk0JAMwIAgkApAMBBQJiTgUDbmlsBQFuAQJiTwYCYlACYlECYlICYkgCYksCYkwJALkJAgkAzAgCAgwlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJiUAkAzAgCCQCkAwEFAmJRCQDMCAIJAKQDAQUCYlIJAMwIAgkApAMBBQJiSAkAzAgCCQCkAwEFAmJLCQDMCAIJAKQDAQUCYkwFA25pbAUBbgECYlMBAmJUAwkAAAIFAmJUAgVXQVZFUwgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAPAHAgUEdGhpcwkA2QQBBQJiVAECYlUCAmJWAmJXCQC8AgMFAmJWBQFjBQJiVwECYlgDAmJWAmJXAVAJAL0CBAUCYlYFAWMFAmJXBQFQAQJiWQMCYloCY2ECY2IEAmNjCQC8AgMJALgCAgUCYloFAmNhBQFiBQJjYQQCY2QJAL8CAgkAuAICBQJjYgkBAVcBBQJjYwUBZAMJAQEhAQUCY2QJAAIBCQCsAgICCkJpZyBzbHBnOiAJAKYDAQUCY2MJAJQKAgUCY2QJAJkDAQkAzAgCBQJiWgkAzAgCBQJjYQUDbmlsAQJjZQMCY2YCY2cCY2gEAmNjCQC8AgMFAmNnBQFiBQJjZgQCY2kJAL8CAgUCY2gFAmNjAwMFAmNpBgkAvwICBQJjZwUCY2YJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCmAwEFAmNnAgEgCQCmAwEFAmNmAgEgCQCmAwEFAmNjAgEgCQCmAwEFAmNoBQJjaQECY2oEAmNrAmNsAmNtAmNuBAJjbwkBAUgCBQJjbQUCY2sEAmNwCQEBSAIFAmNuBQJjbAkBAmJVAgUCY3AFAmNvAQJjcQMCY20CY24CY3IEAmNzBQJidAQCY3QFAmJ1BAJjdQkBAmNqBAUCY3MFAmN0BQJjbQUCY24EAmJXCQEBSAIFAmNtBQJjcwQCYlYJAQFIAgUCY24FAmN0BAJjdgkBAUgCBQJjcgUBYQQCY3cJAQJiVQIFAmJXBQJjdgQCY3gJAQJiVQIFAmJWBQJjdgkAzAgCBQJjdQkAzAgCBQJjdwkAzAgCBQJjeAUDbmlsAQJjeQMCY20CY24CY3IEAmN6CQECY3EDBQJjbQUCY24FAmNyCQDMCAIJAQFMAgkAkQMCBQJjegAABQFhCQDMCAIJAQFMAgkAkQMCBQJjegABBQFhCQDMCAIJAQFMAgkAkQMCBQJjegACBQFhBQNuaWwBAmNBAgJjQgJhcgQCY0MDCQAAAgUCYXIAAAAACQBrAwUCY0IFAmFyBQFhCQCUCgIJAGUCBQJjQgUCY0MFAmNDAQJjRAECY0UEAmNGCQCRAwIFAmNFAAAEAmNHCQCRAwIFAmNFAAEEAmNICQC3AgIFAmNGBQJjRwMJAAACBQJjSAUBZQUBZQQCY0kJAQ1wYXJzZUludFZhbHVlAQUCYVoEAmNKCQBoAgUCY0kAAgQCY3oJALwCAwUCY0YFAmNHBQFmBAJjSwkAvAIDBQJjegUBaQUBZgQCY0wJALwCAwkAtgIBBQJjSgUCY0gFAWYEAmNNCQC2AgEJAGUCBQJjSgABCgECY04BAmNPBAJjUAkAvAIDBQJjTwUCY08FAWYEAmNRCQC8AgMFAmNQBQJjTwUBZgQCY1IJALwCAwUCY1EFAWYFAmNLCQC8AgMJALcCAgUCY0wJALwCAwUCY1IFAWcFAWYFAmNPCQC3AgIJALwCAwUCY00FAmNPBQFmCQC8AgMFAWgFAmNSBQFmCgECY1MCAmNUAmNVAwgFAmNUAl8yBQJjVAQCY08IBQJjVAJfMQQCY1YJAQJjTgEFAmNPBAJjVwkAuAICBQJjVgkBBXZhbHVlAQUCY08EAmNYAwkAvwICBQFlBQJjVwkAvgIBBQJjVwUCY1cDCQDAAgIFAWYFAmNYCQCUCgIFAmNWBgkAlAoCBQJjVgcEAmNZCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOCQDMCAIADwkAzAgCABAFA25pbAQCY1oKAAJkYQUCY1kKAAJkYgkAkAMBBQJkYQoAAmRjCQCUCgIFAmNIBwoBAmRkAgJkZQJkZgMJAGcCBQJkZgUCZGIFAmRlCQECY1MCBQJkZQkAkQMCBQJkYQUCZGYKAQJkZwICZGUCZGYDCQBnAgUCZGYFAmRiBQJkZQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE3CQECZGcCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCCQECZGQCBQJkYwAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQQCY08IBQJjWgJfMQQCZGgIBQJjWgJfMgMFAmRoBQJjTwkAAgEJAKwCAgIZRCBjYWxjdWxhdGlvbiBlcnJvciwgRCA9IAkApgMBBQJjTwECZGkEAmRqAmRrAmRsAmRtBAJkbgUCYnEEAmRvCQDYBAEJAQV2YWx1ZQEFAmJyBAJkcAkA2AQBCQEFdmFsdWUBBQJicwQCZHEFAmJ0BAJkcgUCYnUEAmRzCQCkAwEFAmJwBAJkdAgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQJkbgILV3JvbmcgTFAgaWQIcXVhbnRpdHkDCQECIT0CCQDYBAEFAmRuBQJkawkAAgECD1dyb25nIHBtdCBhc3NldAQCZHUJAQJiUwEFAmRvBAJkdgkBAUgCBQJkdQUCZHEEAmR3CQECYlMBBQJkcAQCZHgJAQFIAgUCZHcFAmRyBAJkeQkBAmJVAgUCZHgFAmR2BAJkegkBAUwCBQJkeQUBYQQCZEEJAQFIAgUCZGwFAWEEAmRCCQEBSAIFAmR0BQFhBAJkQwkAvAIDBQJkdgUCZEEFAmRCBAJkRAkAvAIDBQJkeAUCZEEFAmRCBAJkRQkBAU8DBQJkQwUCZHEFBUZMT09SBAJkRgkBAU8DBQJkRAUCZHIFBUZMT09SBAJkRwMJAAACBQJkagIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCZG0FAmRFAwkAAAIFAmRvAgVXQVZFUwUEdW5pdAkA2QQBBQJkbwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJkbQUCZEYDCQAAAgUCZHACBVdBVkVTBQR1bml0CQDZBAEFAmRwCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhaQIJAKUIAQUCZG0FAmRqCQECYk8GBQJkRQUCZEYFAmRsBQJkegUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFiAAUCZHoJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYwIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmR6BQNuaWwJAJwKCgUCZEUFAmRGBQJkbwUCZHAFAmR1BQJkdwUCZHQFAmR5BQJkcwUCZEcBAmRIDQJkagJjYgJkSQJkSgJkSwJkTAJkbQJkTQJkTgJkTwJkUAJkUQJkUgQCZG4FAmJxBAJkUwkA2AQBCQEFdmFsdWUBBQJicgQCZFQJANgEAQkBBXZhbHVlAQUCYnMEAmRVBQJidgQCZFYFAmJ3BAJkVwUCYnQEAmRYBQJidQQCZHMJAKQDAQUCYnAEAmRZCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmRuAghXciBscCBhcwhxdWFudGl0eQQCZHUDBQJkTQkBAmJTAQUCZFMDAwUCZE8JAAACBQJkUgUCZFMHCQBlAgkBAmJTAQUCZFMFAmRRAwUCZE8JAQJiUwEFAmRTCQBlAgkBAmJTAQUCZFMFAmRJBAJkdwMFAmRNCQECYlMBBQJkVAMDBQJkTwkAAAIFAmRSBQJkVAcJAGUCCQECYlMBBQJkVAUCZFEDBQJkTwkBAmJTAQUCZFQJAGUCCQECYlMBBQJkVAUCZEsEAmRaCQEBSAIFAmRJBQJkVwQCZWEJAQFIAgUCZEsFAmRYBAJlYgkBAmJVAgUCZWEFAmRaBAJkdgkBAUgCBQJkdQUCZFcEAmR4CQEBSAIFAmR3BQJkWAQCY2cJAQJjRAEJAMwIAgUCZHYJAMwIAgUCZHgFA25pbAQCZWMDCQAAAgUCZFkAAAQCY2YJAQJjRAEJAMwIAgkAtwICBQJkdgUCZFoJAMwIAgkAtwICBQJkeAUCZWEFA25pbAQCZWQDCQC/AgIFAmNmBQJjZwYJAAIBAhxEMSBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIEQwAwkAAAIFAmVkBQJlZAQCZHkFAWQEAmVlBQFkBAJjdgUCY2YJAJcKBQkBAUwCBQJjdgUBYQkBAUwCBQJkWgUCZFcJAQFMAgUCZWEFAmRYCQECYlUCCQC3AgIFAmR4BQJlYQkAtwICBQJkdgUCZFoFAmVlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAJkeQkBAmJVAgUCZHgFAmR2BAJlZgkAvAIDCQEBVwEJALgCAgUCZHkFAmViBQFjBQJkeQQCZWUJAQFIAgUCY2IFAWEDAwMFAmRQCQECIT0CBQJkeQUBZAcJAL8CAgUCZWYFAmVlBwkAAgEJAKwCAgkArAICCQCsAgICD1ByaWNlIHNsaXBwYWdlIAkApgMBBQJlZgIDID4gCQCmAwEFAmVlBAJlZwkBAUgCBQJkWQUBYQQCZWgJAL0CBAUCZFoJAQJiWAMFAmR4BQJkdgUHQ0VJTElORwUBYwUHQ0VJTElORwQCZWkJAL0CBAUCZWEFAWMJAQJiWAMFAmR4BQJkdgUFRkxPT1IFB0NFSUxJTkcEAmVqAwkAvwICBQJlaAUCZWEJAJQKAgUCZWkFAmVhCQCUCgIFAmRaBQJlaAQCZWsIBQJlagJfMQQCZWwIBQJlagJfMgQCY2YJAQJjRAEJAMwIAgkAtwICBQJkdgUCZWsJAMwIAgkAtwICBQJkeAUCZWwFA25pbAQCZWQDCQC/AgIFAmNmBQJjZwYJAAIBAhxEMSBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIEQwAwkAAAIFAmVkBQJlZAQCY3YJALwCAwUCZWcJALgCAgUCY2YFAmNnBQJjZwkAlwoFCQEBTwMFAmN2BQFhBQVGTE9PUgkBAU8DBQJlawUCZFcFB0NFSUxJTkcJAQFPAwUCZWwFAmRYBQdDRUlMSU5HBQJkeQUCZWUJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAmVtCAUCZWMCXzEEAmVuCAUCZWMCXzIEAmVvCAUCZWMCXzMEAmR6CQEBTAIIBQJlYwJfNAUBYQQCZXAJAQFMAggFAmVjAl81BQFhAwkAZwIAAAUCZW0JAAIBAgdMUCA8PSAwBAJlcQMJAQEhAQUCZE4AAAUCZW0EAmVyCQBlAgUCZEkFAmVuBAJlcwkAZQIFAmRLBQJlbwQCZXQDAwUCZE8JAAACBQJkUgUCZFMHCQCUCgIFAmRRAAADAwUCZE8JAAACBQJkUgUCZFQHCQCUCgIAAAUCZFEJAJQKAgUCZW4FAmVvBAJldQgFAmV0Al8xBAJldggFAmV0Al8yBAJldwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFiAAUCZHoJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYwIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmR6CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZgIFAmRtBQJkagkBAmJECgUCZXUFAmV2BQJlcQUCZHoFAmNiBQJlcAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZXIFAmVzBQNuaWwJAJ8KDQUCZW0FAmVxBQJkegUCZHUFAmR3BQJkWQUCZG4FAmRzBQJldwUCZXIFAmVzBQJkSgUCZEwBAmV4AwJjRQJjVQJleQQCZXoFAWcEAmVBCQCRAwIFAmNFAwkAAAIFAmNVAAAAAQAABAJlQgkApwMBBQFsBAJjSQkAuQICCQCnAwEFAmFaBQJlQgQCY0gFAmVBBAJjSgkAuQICBQJjSQUCZXoEAmVDCQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXkFAmV5CQC5AgIFAmVBBQJlegUCZXkFAmVCCQC5AgIFAmNKBQJlegQCZUQJALgCAgkAtwICBQJjSAkAugICCQC5AgIFAmV5BQJlQgUCY0oFAmV5CgECY1MCAmNUAmVFBAJlRgUCY1QEAmVHCAUCZUYCXzEEAmRoCAUCZUYCXzIDCQECIT0CBQJkaAUEdW5pdAUCY1QEAmVICQC6AgIJALcCAgkAuQICBQJlRwUCZUcFAmVDCQC3AgIJALkCAgUBZwUCZUcFAmVEBAJlSQkBAVgBCQC4AgIFAmVICQEFdmFsdWUBBQJlRwMJAMACAgUBZgUCZUkJAJQKAgUCZUgFAmVFCQCUCgIFAmVIBQR1bml0BAJjWQkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlSgoAAmRhBQJjWQoAAmRiCQCQAwEFAmRhCgACZGMJAJQKAgUCZXkFBHVuaXQKAQJkZAICZGUCZGYDCQBnAgUCZGYFAmRiBQJkZQkBAmNTAgUCZGUJAJEDAgUCZGEFAmRmCgECZGcCAmRlAmRmAwkAZwIFAmRmBQJkYgUCZGUJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmRnAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgkBAmRkAgUCZGMAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUcIBQJlSgJfMQQCZGgIBQJlSgJfMgMJAQIhPQIFAmRoBQR1bml0BQJlRwkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlRwECZUsDAmVMAmVNAmVOBAJlTwkAvAIDCQECY0QBCQDMCAIJAQFLAgUCZUwJALYCAQUCYnQJAMwIAgkBAUsCBQJlTQkAtgIBBQJidQUDbmlsBQFjBQJlTgMJAAACBQJlTgUBZQUBZQUCZU8BAmVQAwJlUQJlUgJlUwQCZVQJALgCAgkAtgIBCQECYlMBCQECYmoBBQJicgUCZVEEAmVVCQC4AgIJALYCAQkBAmJTAQkBAmJqAQUCYnMFAmVSBAJlVgkAuAICCQC2AgEICQEFdmFsdWUBCQDsBwEFAmJxCHF1YW50aXR5BQJlUwQCZVcJAQJlSwMFAmVUBQJlVQUCZVYFAmVXAQJlWAMCZVkCZVoCZVMEAmVUCQBkAgkBAmJTAQkBAmJqAQUCYnIFAmVZBAJlVQkAZAIJAQJiUwEJAQJiagEFAmJzBQJlWgQCZVYJAGQCCAkBBXZhbHVlAQkA7AcBBQJicQhxdWFudGl0eQUCZVMEAmVPCQECZUsDCQC2AgEFAmVUCQC2AgEFAmVVCQC2AgEFAmVWBAJmYQkAzAgCCQEMSW50ZWdlckVudHJ5AgUCYXQFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCBQJhcwkApgMBBQJlTwUDbmlsCQCUCgIFAmZhBQJlTwECZmICAmZjAmVPAwkAwAICBQJlTwUCZmMGCQECYVMBAiJ1cGRhdGVkIERMcCBsb3dlciB0aGFuIGN1cnJlbnQgRExwAQJmZAECZmUEAmVUCQECYlMBCQECYmoBBQJicgQCZVUJAQJiUwEJAQJiagEFAmJzBAJmZggFAmZlBmFtb3VudAQCZmcJAG4ECAUCZmUGYW1vdW50CAUCZmUFcHJpY2UFAWEFBUZMT09SBAJmaAMJAAACCAUCZmUJb3JkZXJUeXBlBQNCdXkJAJQKAgUCZmYJAQEtAQUCZmcJAJQKAgkBAS0BBQJmZgUCZmcEAmVZCAUCZmgCXzEEAmVaCAUCZmgCXzIDAwMJAQJiYQAGCQAAAgUCYnAFAXIGCQAAAgUCYnAFAXMJAAIBAg1BZG1pbiBibG9ja2VkAwMJAQIhPQIICAUCZmUJYXNzZXRQYWlyC2Ftb3VudEFzc2V0BQJicgYJAQIhPQIICAUCZmUJYXNzZXRQYWlyCnByaWNlQXNzZXQFAmJzCQACAQIJV3IgYXNzZXRzBAJmaQkApwMBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFAmFzAgEwBAJmagkBAmVYAwUCZVkFAmVaAAAEAmZrCAUCZmoCXzEEAmZsCAUCZmoCXzIEAmZtCQDAAgIFAmZsBQJmaQQCZm4JALkJAgkAzAgCAgRkTHA9CQDMCAIJAKYDAQUCZmkJAMwIAgIIIGRMcE5ldz0JAMwIAgkApgMBBQJmbAkAzAgCAhQgYW1vdW50QXNzZXRCYWxhbmNlPQkAzAgCCQCkAwEFAmVUCQDMCAICEyBwcmljZUFzc2V0QmFsYW5jZT0JAMwIAgkApAMBBQJlVQkAzAgCAhkgYW1vdW50QXNzZXRCYWxhbmNlRGVsdGE9CQDMCAIJAKQDAQUCZVkJAMwIAgIYIHByaWNlQXNzZXRCYWxhbmNlRGVsdGE9CQDMCAIJAKQDAQUCZVoJAMwIAgIIIGhlaWdodD0JAMwIAgkApAMBBQZoZWlnaHQFA25pbAIACQCUCgIFAmZtBQJmbgECZm8BAmNVAwkBAiE9AgkAkAMBCAUCY1UIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmZwCQEFdmFsdWUBCQCRAwIIBQJjVQhwYXltZW50cwAABAJkawkBBXZhbHVlAQgFAmZwB2Fzc2V0SWQEAmRRCAUCZnAGYW1vdW50BAJlYwkBAmRpBAkA2AQBCAUCY1UNdHJhbnNhY3Rpb25JZAkA2AQBBQJkawUCZFEIBQJjVQZjYWxsZXIEAmRFCAUCZWMCXzEEAmRGCAUCZWMCXzIEAmRzCQENcGFyc2VJbnRWYWx1ZQEIBQJlYwJfOQQCZEcIBQJlYwNfMTADAwkBAmJhAAYJAAACBQJkcwUBcwkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmRzCQCXCgUFAmRFBQJkRgUCZFEFAmRrBQJkRwECZnEKAmZyAmFoAmZzAmZ0AmNiAmROAmRPAmRQAmRRAmRSBAJlYwkBAmRIDQUCYWgFAmNiCAkBBXZhbHVlAQUCZnMGYW1vdW50CAkBBXZhbHVlAQUCZnMHYXNzZXRJZAgJAQV2YWx1ZQEFAmZ0BmFtb3VudAgJAQV2YWx1ZQEFAmZ0B2Fzc2V0SWQFAmZyCQAAAgUCYWgCAAUCZE4FAmRPBQJkUAUCZFEFAmRSBAJkcwkBDXBhcnNlSW50VmFsdWUBCAUCZWMCXzgDAwMJAQJiYQAGCQAAAgUCZHMFAXEGCQAAAgUCZHMFAXMJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmRzBQJlYwECZnUFAmZ2AmRrAmRtAmFoAmZ3BAJkbwkA2AQBCQEFdmFsdWUBBQJicgQCZHAJANgEAQkBBXZhbHVlAQUCYnMEAmRuBQJicQQCZFcFAmJ0BAJkWAUCYnUEAmVWCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCZG4CEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmZ4AwkAvwICBQJlVgUBZQYJAAIBAiJpbml0aWFsIGRlcG9zaXQgcmVxdWlyZXMgYWxsIGNvaW5zAwkAAAIFAmZ4BQJmeAQCZHUJAQJiUwEFAmRvBAJkdwkBAmJTAQUCZHAEAmZ5AwkAAAIFAmFoAgAJAJQKAgUCZHUFAmR3AwkAAAIFAmRrBQJkbwMJAGYCBQJmdgUCZHUJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIJAGUCBQJkdQUCZnYFAmR3AwkAAAIFAmRrBQJkcAMJAGYCBQJmdgUCZHcJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIFAmR1CQBlAgUCZHcFAmZ2CQACAQIQd3JvbmcgcG10QXNzZXRJZAQCZnoIBQJmeQJfMQQCZkEIBQJmeQJfMgQCZkIDCQAAAgUCZGsFAmRvCQCUCgIFAmZ2AAADCQAAAgUCZGsFAmRwCQCUCgIAAAUCZnYJAAIBAg9pbnZhbGlkIHBheW1lbnQEAmZDCAUCZkICXzEEAmZECAUCZkICXzIEAmZFAwUCZncJAJUKAwgJAQJjQQIFAmZDBQJhVwJfMQgJAQJjQQIFAmZEBQJhVwJfMQgJAQJjQQIFAmZ2BQJhVwJfMgkAlQoDBQJmQwUCZkQAAAQCZkYIBQJmRQJfMQQCZkcIBQJmRQJfMgQCY0MIBQJmRQJfMwQCZkgJAGQCBQJmegUCZkYEAmZJCQBkAgUCZkEFAmZHBAJjZwkBAmNEAQkAzAgCCQEBSAIFAmZ6BQJidAkAzAgCCQEBSAIFAmZBBQJidQUDbmlsBAJjZgkBAmNEAQkAzAgCCQEBSAIFAmZIBQJidAkAzAgCCQEBSAIFAmZJBQJidQUDbmlsBAJlZAMJAL8CAgUCY2YFAmNnBgkBBXRocm93AAMJAAACBQJlZAUCZWQEAmZKCQC9AgQFAmVWCQC4AgIFAmNmBQJjZwUCY2cFBUZMT09SBAJkegkBAUwCCQECYlUCCQEBSAIFAmZJBQJkWAkBAUgCBQJmSAUCZFcFAWEEAmV3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYWIABQJkegkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFjAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZHoJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFmAgUCZG0FAmFoCQECYkQKBQJmQwUCZkQJAKADAQUCZkoFAmR6AAAAAAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAAAAAAFA25pbAQCZksJAGsDBQJmQQUBYQUCZnoEAmZMCQBrAwUCZnYFAWEJAGQCBQJmSwUBYQQCZk0JAGUCBQJmdgUCZkwEAmZOCQC8AgMFAmVWCQC2AgEFAmZNCQC2AgEFAmZBBAJmTwkAoAMBCQC8AgMJALgCAgUCZkoFAmZOBQFiBQJmTgkAlgoECQCgAwEFAmZKBQJldwUCY0MFAmZPCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJmUAYCZlECZlICZlMCZnICZlQCZlUEAmRuCQDYBAEJAQV2YWx1ZQEFAmJxBAJkbwkA2AQBCQEFdmFsdWUBBQJicgQCZHAJANgEAQkBBXZhbHVlAQUCYnMEAmZWBQJidAQCZlcFAmJ1BAJmWAUCYnAEAmRtAwkAAAIFAmZyBQJiQwUCZlQFAmZyBAJmcAkBBXZhbHVlAQkAkQMCBQJmUwAABAJkawkBBXZhbHVlAQgFAmZwB2Fzc2V0SWQEAmRRCAUCZnAGYW1vdW50BAJlVwkBAmVQAwUBZQUBZQUBZQMJAAACBQJlVwUCZVcEAmRqCQDYBAEFAmZVAwkBAiE9AgUCZG4JANgEAQUCZGsJAAIBAghXcm9uZyBMUAQCZHUJAQJiUwEFAmRvBAJkdwkBAmJTAQUCZHAEAmZZCgACYVgJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmUQkAzAgCBQJkUQUDbmlsBQNuaWwDCQABAgUCYVgCCihJbnQsIEludCkFAmFYCQACAQkArAICCQADAQUCYVgCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkDCQAAAgUCZlkFAmZZBAJjQwgFAmZZAl8yBAJmWggFAmZZAl8xBAJnYQMDCQBmAgUCZlIAAAkAZgIFAmZSBQJmWgcJAQJhUwEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZlIFA25pbAIABQJmWgQCZ2IDCQAAAgUCZlEFAmRvCQCWCgQFAmdhAAAJAGUCCQBlAgUCZHUFAmdhBQJjQwUCZHcDCQAAAgUCZlEFAmRwCQCWCgQAAAUCZ2EFAmR1CQBlAgkAZQIFAmR3BQJnYQUCY0MJAAIBAhRpbnZhbGlkIG91dCBhc3NldCBpZAQCZ2MIBQJnYgJfMQQCZ2QIBQJnYgJfMgQCZkgIBQJnYgJfMwQCZkkIBQJnYgJfNAQCZ2UJAQJiVQIJAQFIAgUCZkkFAmZXCQEBSAIFAmZIBQJmVgQCZ2YJAQFMAgUCZ2UFAWEEAmdnAwkAAAIFAmZRAgVXQVZFUwUEdW5pdAkA2QQBBQJmUQQCZ2gDCQBmAgUCY0MAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiYwUCY0MFAmdnBQNuaWwFA25pbAQCZEcJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJkbQUCZ2EFAmdnCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhaQIJAKUIAQUCZG0FAmRqCQECYk8GBQJnYwUCZ2QFAmRRBQJnZgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFiAAUCZ2YJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYwIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmdmBQNuaWwFAmdoAwkAAAIFAmRHBQJkRwQCZ2kJAPwHBAUCYVYCBGJ1cm4JAMwIAgUCZFEFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZGsFAmRRBQNuaWwDCQAAAgUCZ2kFAmdpBAJnagQCZ2sDCQAAAgUEdGhpcwUCYmMAAAUCY0MEAmdsAwkAAAIJAQJiaAEFAmZRBQJicgYHAwUCZ2wJAJQKAgkBAS0BCQBkAgUCZloFAmdrAAAJAJQKAgAACQEBLQEJAGQCBQJmWgUCZ2sEAmVZCAUCZ2oCXzEEAmVaCAUCZ2oCXzIEAmdtCQECZVgDBQJlWQUCZVoAAAQCZ24IBQJnbQJfMQQCZU8IBQJnbQJfMgQCZ28JAQJmYgIFAmVXBQJlTwMJAAACBQJnbwUCZ28JAJQKAgkAzggCBQJkRwUCZ24FAmdhCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJncAAEAmdxCQCiCAEJAQFaAAMJAAECBQJncQIGU3RyaW5nBAJjSAUCZ3EJANkEAQUCY0gDCQABAgUCZ3ECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZ3IABAJncQkAoggBCQECYWEAAwkAAQIFAmdxAgZTdHJpbmcEAmNIBQJncQkA2QQBBQJjSAMJAAECBQJncQIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAAJncwkAAgECEVBlcm1pc3Npb24gZGVuaWVkAQJndAECY1UEAmdxCQECZ3AAAwkAAQIFAmdxAgpCeXRlVmVjdG9yBAJndQUCZ3EJAAACCAUCY1UPY2FsbGVyUHVibGljS2V5BQJndQMJAAECBQJncQIEVW5pdAkAAAIIBQJjVQZjYWxsZXIFBHRoaXMJAAIBAgtNYXRjaCBlcnJvcgECZ3YBAmNVBAJncQkBAmdwAAMJAAECBQJncQIKQnl0ZVZlY3RvcgQCZ3UFAmdxAwkAAAIIBQJjVQ9jYWxsZXJQdWJsaWNLZXkFAmd1BgUCZ3MDCQABAgUCZ3ECBFVuaXQDCQAAAggFAmNVBmNhbGxlcgUEdGhpcwYFAmdzCQACAQILTWF0Y2ggZXJyb3IBAmd3AwJneAJleQJneQQCYmwJAQJiZAAEAmRvCQCRAwIFAmJsBQF3BAJkcAkAkQMCBQJibAUBeAQCZXoFAWcEAmVCCQCnAwEFAWwEAmNJCQC5AgIJAKcDAQUCYVoFAmVCBAJjRQMJAAACBQJneAcJAMwIAgkAtwICCQC2AgEJAQJiUwEFAmRvBQJneQkAzAgCCQC2AgEJAQJiUwEFAmRwBQNuaWwJAMwIAgkAtwICCQC2AgEJAQJiUwEFAmRwBQJneQkAzAgCCQC2AgEJAQJiUwEFAmRvBQNuaWwEAmVBCQCRAwIFAmNFAAAEAmNIBQJlQQQCY0oJALkCAgUCY0kFAmV6BAJlQwkAugICCQC5AgIJALkCAgkAugICCQC5AgIFAmV5BQJleQkAuQICBQJlQQUCZXoFAmV5BQJlQgkAuQICBQJjSgUCZXoEAmVECQC4AgIJALcCAgUCY0gJALoCAgkAuQICBQJleQUCZUIFAmNKBQJleQoBAmNTAgJjVAJlRQQCZ3oFAmNUBAJlRwgFAmd6Al8xBAJkaAgFAmd6Al8yAwkBAiE9AgUCZGgFBHVuaXQFAmNUBAJlSAkAugICCQC3AgIJALkCAgUCZUcFAmVHBQJlQwkAtwICCQC5AgIFAWcFAmVHBQJlRAQCZUkJAQFYAQkAuAICBQJlSAkBBXZhbHVlAQUCZUcDCQDAAgIFAWYFAmVJCQCUCgIFAmVIBQJlRQkAlAoCBQJlSAUEdW5pdAQCY1kJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4FA25pbAQCZ0EKAAJkYQUCY1kKAAJkYgkAkAMBBQJkYQoAAmRjCQCUCgIFAmV5BQR1bml0CgECZGQCAmRlAmRmAwkAZwIFAmRmBQJkYgUCZGUJAQJjUwIFAmRlCQCRAwIFAmRhBQJkZgoBAmRnAgJkZQJkZgMJAGcCBQJkZgUCZGIFAmRlCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQJkZwIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIJAQJkZAIFAmRjAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EAmVHCAUCZ0ECXzEEAmRoCAUCZ0ECXzIDCQECIT0CBQJkaAUEdW5pdAUCZUcJAAIBCQCsAgICGVkgY2FsY3VsYXRpb24gZXJyb3IsIFkgPSAJAKYDAQUCZUcBAmdCAAkBC3ZhbHVlT3JFbHNlAgkAmwgCBQJhVgkBAmFIAQkApQgBBQR0aGlzBx8CY1UBIWNhbGN1bGF0ZUFtb3VudE91dEZvclN3YXBSRUFET05MWQMCZ0MCZ3gCZ0QEAmdFAwkAAAIFAmd4BwQCZ0YJAQJhTwIFBHRoaXMJAQJhawAEAmd5CQC3AgIJALYCAQkBAmJTAQkBAmFPAgUEdGhpcwkBAmFqAAkAtgIBBQJnQwkAlAoCBQJnRgUCZ3kEAmdGCQECYU8CBQR0aGlzCQECYWoABAJneQkAtwICCQC2AgEJAQJiUwEJAQJhTwIFBHRoaXMJAQJhawAJALYCAQUCZ0MJAJQKAgUCZ0YFAmd5BAJnRggFAmdFAl8xBAJneQgFAmdFAl8yBAJibAkBAmJkAAQCZG8JAJEDAgUCYmwFAXcEAmRwCQCRAwIFAmJsBQF4BAJjRQkAzAgCCQC2AgEJAQJiUwEFAmRvCQDMCAIJALYCAQkBAmJTAQUCZHAFA25pbAQCZXkJAQJjRAEFAmNFBAJlRwkBAmd3AwUCZ3gFAmV5CQC2AgEFAmdDBAJnRwkAuAICCQC4AgIJALYCAQkBAmJTAQUCZ0YFAmVHCQC2AgEAAQQCZ0gJAJYDAQkAzAgCAAAJAMwIAgkAoAMBBQJnRwUDbmlsBAJnSQMJAAACBQJneAcJAMwIAgkAtwICCQC3AgIJALYCAQkBAmJTAQUCZG8JALYCAQUCZ0MJALYCAQUCZ0QJAMwIAgkAuAICCQC2AgEJAQJiUwEFAmRwBQJnRwUDbmlsCQDMCAIJALgCAgkAtgIBCQECYlMBBQJkbwUCZ0cJAMwIAgkAtwICCQC3AgIJALYCAQkBAmJTAQUCZHAJALYCAQUCZ0MJALYCAQUCZ0QFA25pbAQCZ0oJAQJjRAEFAmdJBAJlZAMJAMACAgUCZ0oFAmV5BgkAAgEJALkJAgkAzAgCAhRuZXcgRCBpcyBmZXdlciBlcnJvcgkAzAgCCQCmAwEFAmV5CQDMCAIJAKYDAQUCZ0oFA25pbAICX18DCQAAAgUCZWQFAmVkCQCUCgIFA25pbAUCZ0gJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1UBJmNhbGN1bGF0ZUFtb3VudE91dEZvclN3YXBBbmRTZW5kVG9rZW5zBQJnQwJneAJnSwJnTAJnRAQCZ00KAAJhWAkA/AcEBQJhVgIXZ2V0U3dhcENvbnRyYWN0UkVBRE9OTFkFA25pbAUDbmlsAwkAAQIFAmFYAgZTdHJpbmcFAmFYCQACAQkArAICCQADAQUCYVgCGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQCZ04JAMwIAgMJAGcCCAkBBXZhbHVlAQkAkQMCCAUCY1UIcGF5bWVudHMAAAZhbW91bnQFAmdDBgkBAmFTAQIMV3JvbmcgYW1vdW50CQDMCAIDCQAAAggFAmNVBmNhbGxlcgkBEUBleHRyTmF0aXZlKDEwNjIpAQUCZ00GCQECYVMBAhFQZXJtaXNzaW9uIGRlbmllZAUDbmlsAwkAAAIFAmdOBQJnTgQCZnAJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAAEAmdPCQECYmoBCAUCZnAHYXNzZXRJZAQCZ1ADCQAAAgUCZ3gHBAJnRgkBAmFPAgUEdGhpcwkBAmFrAAQCZ3kJAGUCCQECYlMBBQJnTwgJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAAGYW1vdW50CQCUCgIFAmdGBQJneQQCZ0YJAQJhTwIFBHRoaXMJAQJhagAEAmd5CQBlAgkBAmJTAQUCZ08ICQEFdmFsdWUBCQCRAwIIBQJjVQhwYXltZW50cwAABmFtb3VudAkAlAoCBQJnRgUCZ3kEAmdGCAUCZ1ACXzEEAmd5CAUCZ1ACXzIEAmJsCQECYmQABAJkbwkAkQMCBQJibAUBdwQCZHAJAJEDAgUCYmwFAXgEAmNFAwkAAAIFAmd4BwkAzAgCCQC4AgIJALYCAQkBAmJTAQUCZG8JALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAAGYW1vdW50CQDMCAIJALYCAQkBAmJTAQUCZHAFA25pbAkAzAgCCQC2AgEJAQJiUwEFAmRvCQDMCAIJALgCAgkAtgIBCQECYlMBBQJkcAkAtgIBCAkBBXZhbHVlAQkAkQMCCAUCY1UIcGF5bWVudHMAAAZhbW91bnQFA25pbAQCZXkJAQJjRAEFAmNFBAJlRwkBAmd3AwUCZ3gFAmV5CQC2AgEAAAQCZ0cJALgCAgkAuAICCQC2AgEJAQJiUwEFAmdGBQJlRwkAtgIBAAEEAmdICQCWAwEJAMwIAgAACQDMCAIJAKADAQUCZ0cFA25pbAQCZ1EDCQBnAgUCZ0gFAmdLBgkAAgECLEV4Y2hhbmdlIHJlc3VsdCBpcyBmZXdlciBjb2lucyB0aGFuIGV4cGVjdGVkAwkAAAIFAmdRBQJnUQQCZ0kDCQAAAgUCZ3gHCQDMCAIJALcCAgkAtgIBCQECYlMBBQJkbwkAtgIBBQJnRAkAzAgCCQC4AgIJALYCAQkBAmJTAQUCZHAFAmdHBQNuaWwJAMwIAgkAuAICCQC2AgEJAQJiUwEFAmRvBQJnRwkAzAgCCQC3AgIJALYCAQkBAmJTAQUCZHAJALYCAQUCZ0QFA25pbAQCZ0oJAQJjRAEFAmdJBAJlZAMJAMACAgUCZ0oFAmV5BgkAAgECFG5ldyBEIGlzIGZld2VyIGVycm9yAwkAAAIFAmVkBQJlZAkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAmdMBQJnSAkBAmJoAQUCZ0YFA25pbAUCZ0gJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1UBC2NvbnN0cnVjdG9yAQFZBAJlQwkBAmd2AQUCY1UDCQAAAgUCZUMFAmVDCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFZAAUBWQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNVAQpzZXRNYW5hZ2VyAQJnUgQCZUMJAQJndgEFAmNVAwkAAAIFAmVDBQJlQwQCZ1MJANkEAQUCZ1IDCQAAAgUCZ1MFAmdTCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYQAFAmdSBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1UBDmNvbmZpcm1NYW5hZ2VyAAQCY3oJAQJncgAEAmdUAwkBCWlzRGVmaW5lZAEFAmN6BgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJnVAUCZ1QEAmdVAwkAAAIIBQJjVQ9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmN6BgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJnVQUCZ1UJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVoACQDYBAEJAQV2YWx1ZQEFAmN6CQDMCAIJAQtEZWxldGVFbnRyeQEJAQJhYQAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQEDcHV0AgJnVgJnVwQCZ1gJAQJieAAEAmdZCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJnWAUBQwIKV3Igc3QgYWRkcgQCZ1oJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdYBQFFAgpXciBzbCBhZGRyAwkAZgIAAAUCZ1YJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmNVCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmhhCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJjVQhwYXltZW50cwAABmFtb3VudAQCaGIJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAEGYW1vdW50BAJlVAkAuAICCQC2AgEJAQJiUwEJAQJiagEFAmJyBQJoYQMJAAACBQJlVAUCZVQEAmVVCQC4AgIJALYCAQkBAmJTAQkBAmJqAQUCYnMFAmhiAwkAAAIFAmVVBQJlVQQCZVYJALYCAQgJAQV2YWx1ZQEJAOwHAQUCYnEIcXVhbnRpdHkDCQAAAgUCZVYFAmVWBAJlVwkBAmVQAwUCaGEFAmhiCQC2AgEAAAMJAAACBQJlVwUCZVcEAmhjCQECZnEKCQClCAEIBQJjVQZjYWxsZXIJANgEAQgFAmNVDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCY1UIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCY1UIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmNVCHBheW1lbnRzAAEFAmdWBgcGAAACAAQCZXEIBQJoYwJfMgQCaGQIBQJoYwJfNwQCZEcIBQJoYwJfOQQCZXIIBQJoYwNfMTAEAmVzCAUCaGMDXzExBAJkbwgFAmhjA18xMgQCZHAIBQJoYwNfMTMEAmVjCQD8BwQFAmFWAgRlbWl0CQDMCAIFAmVxBQNuaWwFA25pbAMJAAACBQJlYwUCZWMEAmhlBAJncQUCZWMDCQABAgUCZ3ECB0FkZHJlc3MEAmhmBQJncQkA/AcEBQJoZgIEZW1pdAkAzAgCBQJlcQUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCaGUFAmhlBAJoZwMJAGYCBQJlcgAACQD8BwQFAmdaAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZG8FAmVyBQNuaWwFA25pbAMJAAACBQJoZwUCaGcEAmhoAwkAZgIFAmVzAAAJAPwHBAUCZ1oCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkcAUCZXMFA25pbAUDbmlsAwkAAAIFAmhoBQJoaAQCaGkDBQJnVwQCaGoJAPwHBAUCZ1kCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmhkBQJlcQUDbmlsAwkAAAIFAmhqBQJoagUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJjVQZjYWxsZXIFAmVxBQJoZAUDbmlsBAJoawkBAmVYAwAAAAAAAAQCZ24IBQJoawJfMQQCZU8IBQJoawJfMgQCaGwDCQDAAgIFAmVPBQJlVwYJAQJhUwEJALkJAgkAzAgCAiJ1cGRhdGVkIERMcCBsb3dlciB0aGFuIGN1cnJlbnQgRExwCQDMCAIJAKYDAQUCZVQJAMwIAgkApgMBBQJlVQkAzAgCCQCmAwEFAmVWCQDMCAIJAKYDAQUCZVcJAMwIAgkApgMBBQJlTwkAzAgCCQCkAwEFAmVyCQDMCAIJAKQDAQUCZXMFA25pbAIBIAMJAAACBQJobAUCaGwEAmhtCAkBBXZhbHVlAQkA7AcBBQJicQhxdWFudGl0eQMJAAACBQJobQUCaG0JAM4IAgkAzggCBQJkRwUCaGkFAmduCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNVAQtwdXRPbmVUa25WMgICZlICZ1cEAmhuCgACYVgJAPwHBAUCYVYCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhWAIHQm9vbGVhbgUCYVgJAAIBCQCsAgIJAAMBBQJhWAIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCaG8DAwMJAQJiYQAGCQAAAgUCYnAFAXEGCQAAAgUCYnAFAXMGBQJobgQCZ04JAMwIAgMDCQEBIQEFAmhvBgkBAmd0AQUCY1UGCQECYVMBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJjVQhwYXltZW50cwABBgkBAmFTAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ04FAmdOBAJkbwkA2AQBCQEFdmFsdWUBBQJicgQCZHAJANgEAQkBBXZhbHVlAQUCYnMEAmRuBQJicQQCZlYFAmJ0BAJmVwUCYnUEAmRtAwkAAAIIBQJjVQZjYWxsZXIFBHRoaXMIBQJjVQxvcmlnaW5DYWxsZXIIBQJjVQZjYWxsZXIEAmZwCQEFdmFsdWUBCQCRAwIIBQJjVQhwYXltZW50cwAABAJkawkA2AQBCQEFdmFsdWUBCAUCZnAHYXNzZXRJZAQCZFEIBQJmcAZhbW91bnQEAmVXAwkAAAIIBQJmcAdhc3NldElkBQJicgkBAmVQAwkAtgIBBQJkUQkAtgIBAAAJALYCAQAACQECZVADCQC2AgEAAAkAtgIBBQJkUQkAtgIBAAADCQAAAgUCZVcFAmVXBAJocAkBAmZ1BQUCZFEFAmRrCQClCAEFAmRtCQDYBAEIBQJjVQ10cmFuc2FjdGlvbklkBgMJAAACBQJocAUCaHAEAmNDCAUCaHACXzMEAmRHCAUCaHACXzIEAmhxCAUCaHACXzEEAmVxAwMJAGYCBQJmUgAACQBmAgUCZlIFAmhxBwkBAmFTAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmUgUDbmlsAgAFAmhxBAJoYwkA/AcEBQJhVgIEZW1pdAkAzAgCBQJlcQUDbmlsBQNuaWwDCQAAAgUCaGMFAmhjBAJoZQQCZ3EFAmhjAwkAAQIFAmdxAgdBZGRyZXNzBAJoZgUCZ3EJAPwHBAUCaGYCBGVtaXQJAMwIAgUCZXEFA25pbAUDbmlsBQR1bml0AwkAAAIFAmhlBQJoZQQCaGkDBQJnVwQCaGoJAPwHBAUCYnoCCHN0YWtlRm9yCQDMCAIJAKUIAQgFAmNVBmNhbGxlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkbgUCZXEFA25pbAMJAAACBQJoagUCaGoFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCY1UGY2FsbGVyBQJlcQUCZG4FA25pbAQCZ2gDCQBmAgUCY0MAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiYwUCY0MJANkEAQUCZGsFA25pbAUDbmlsBAJocgMJAAACBQR0aGlzBQJiYwkAlAoCAAAAAAQCaHMDCQAAAggFAmZwB2Fzc2V0SWQFAmJyBgcDBQJocwkAlAoCCQEBLQEFAmNDAAAJAJQKAgAACQEBLQEFAmNDBAJlWQgFAmhyAl8xBAJlWggFAmhyAl8yBAJodAkBAmVYAwUCZVkFAmVaAAAEAmduCAUCaHQCXzEEAmVPCAUCaHQCXzIEAmdvCQECZmICBQJlVwUCZU8DCQAAAgUCZ28FAmdvCQCUCgIJAM4IAgkAzggCCQDOCAIFAmRHBQJoaQUCZ2gFAmduBQJlcQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQEKcHV0Rm9yRnJlZQECaHUDCQBmAgAABQJodQkAAgECCldyb25nIHNscGcDCQECIT0CCQCQAwEIBQJjVQhwYXltZW50cwACCQACAQIMMiBwbW50cyBleHBkBAJodgkBAmZxCgkApQgBCAUCY1UGY2FsbGVyCQDYBAEIBQJjVQ10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAAHYXNzZXRJZAgJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAAGYW1vdW50CQCRAwIIBQJjVQhwYXltZW50cwABBQJodQcHBgAAAgAEAmRHCAUCaHYCXzkEAmhhCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJjVQhwYXltZW50cwAABmFtb3VudAQCaGIJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNVCHBheW1lbnRzAAEGYW1vdW50BAJlVwkBAmVQAwUCaGEFAmhiCQC2AgEAAAMJAAACBQJlVwUCZVcEAmh3CQECZVgDAAAAAAAABAJnbggFAmh3Al8xBAJlTwgFAmh3Al8yBAJnbwkBAmZiAgUCZVcFAmVPAwkAAAIFAmdvBQJnbwkAzggCBQJkRwUCZ24JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1UBA2dldAAEAmVXCQECZVADCQC2AgEAAAkAtgIBAAAJALYCAQAAAwkAAAIFAmVXBQJlVwQCZWMJAQJmbwEFAmNVBAJoeAgFAmVjAl8xBAJkRggFAmVjAl8yBAJkUQgFAmVjAl8zBAJkawgFAmVjAl80BAJkRwgFAmVjAl81BAJlRAkA/AcEBQJhVgIEYnVybgkAzAgCBQJkUQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkawUCZFEFA25pbAMJAAACBQJlRAUCZUQEAmh5CQECZVgDCQEBLQEFAmh4CQEBLQEFAmRGAAAEAmduCAUCaHkCXzEEAmVPCAUCaHkCXzIEAmdvCQECZmICBQJlVwUCZU8DCQAAAgUCZ28FAmdvCQDOCAIFAmRHBQJnbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQELZ2V0T25lVGtuVjICAmZRAmZSBAJobgoAAmFYCQD8BwQFAmFWAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYVgCB0Jvb2xlYW4FAmFYCQACAQkArAICCQADAQUCYVgCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmh6AwMJAQJiYQAGCQAAAgUCYnAFAXMGBQJobgQCZ04JAMwIAgMDCQEBIQEFAmh6BgkBAmd0AQUCY1UGCQECYVMBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJjVQhwYXltZW50cwABBgkBAmFTAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ04FAmdOBAJoQQkBAmZQBgUCZlEFAmZSCAUCY1UIcGF5bWVudHMIBQJjVQZjYWxsZXIIBQJjVQxvcmlnaW5DYWxsZXIIBQJjVQ10cmFuc2FjdGlvbklkBAJkRwgFAmhBAl8xBAJnYQgFAmhBAl8yCQCUCgIFAmRHBQJnYQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQEKcmVmcmVzaERMcAAEAmhCCQELdmFsdWVPckVsc2UCCQCfCAEFAmF0AAAEAmhDAwkAZwIJAGUCBQZoZWlnaHQFAmhCBQJhdwUEdW5pdAkBAmFTAQkAuQkCCQDMCAIJAKQDAQUCYXcJAMwIAgIvIGJsb2NrcyBoYXZlIG5vdCBwYXNzZWQgc2luY2UgdGhlIHByZXZpb3VzIGNhbGwFA25pbAIAAwkAAAIFAmhDBQJoQwQCZmkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAqAMBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFAmFzAgEwCQECYVUBAgtpbnZhbGlkIGRMcAQCaEQJAQJlWAMAAAAAAAAEAmhFCAUCaEQCXzEEAmVPCAUCaEQCXzIEAmZhAwkBAiE9AgUCZmkFAmVPBQJoRQkBAmFTAQISbm90aGluZyB0byByZWZyZXNoCQCUCgIFAmZhCQCmAwEFAmVPCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNVARNnZXRPbmVUa25WMlJFQURPTkxZAgJmUQJoRgQCZG8JANgEAQkBBXZhbHVlAQUCYnIEAmRwCQDYBAEJAQV2YWx1ZQEFAmJzBAJkbgkA2AQBCQEFdmFsdWUBBQJicQQCY0UJAMwIAgkAtgIBCQECYlMBBQJkbwkAzAgCCQC2AgEJAQJiUwEFAmRwBQNuaWwEAmVOCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJkbgIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCY2cJAQJjRAEFAmNFBAJjZgkAuAICBQJjZwkAvAIDCQC2AgEFAmhGBQJjZwUCZU4EAmhHAwkAAAIFAmZRBQJkbwAAAwkAAAIFAmZRBQJkcAABCQACAQIUaW52YWxpZCBvdXQgYXNzZXQgaWQEAmhICQECZXgDBQJjRQUCaEcFAmNmBAJnRwkAuAICCQCRAwIFAmNFBQJoRwUCaEgEAmdICQCWAwEJAMwIAgAACQDMCAIJAKADAQkAuAICBQJnRwUBZgUDbmlsBAJoSQkBAmNBAgUCZ0gFAmFZBAJmWggFAmhJAl8xBAJjQwgFAmhJAl8yCQCUCgIFA25pbAkAlAoCBQJmWgUCY0MCY1UBHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmZRAmhGBAJkbwkA2AQBCQEFdmFsdWUBBQJicgQCZHAJANgEAQkBBXZhbHVlAQUCYnMEAmRuCQDYBAEJAQV2YWx1ZQEFAmJxBAJkdQkBAmJTAQUCZG8EAmR3CQECYlMBBQJkcAQCaEoKAAJhWAkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZRCQDMCAIFAmhGBQNuaWwFA25pbAMJAAECBQJhWAIKKEludCwgSW50KQUCYVgJAAIBCQCsAgIJAAMBBQJhWAIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQQCZloIBQJoSgJfMQQCY0MIBQJoSgJfMgQCZWMJAQJkaQQCAAUCZG4FAmhGBQR0aGlzBAJkRQgFAmVjAl8xBAJkRggFAmVjAl8yBAJoSwkAZAIFAmRFBQJkRgQCZk8DCQAAAgUCaEsAAAMJAAACBQJmWgAAAAAJAAIBAhdib251cyBjYWxjdWxhdGlvbiBlcnJvcgkAawMJAGUCBQJmWgUCaEsFAWEFAmhLCQCUCgIFA25pbAkAlQoDBQJmWgUCY0MFAmZPAmNVAQlnZXROb0xlc3MCAmhMAmhNBAJlYwkBAmZvAQUCY1UEAmRFCAUCZWMCXzEEAmRGCAUCZWMCXzIEAmRRCAUCZWMCXzMEAmRrCAUCZWMCXzQEAmRHCAUCZWMCXzUDCQBmAgUCaEwFAmRFCQACAQkArAICCQCsAgIJAKwCAgIJRmFpbGVkOiAgCQCkAwEFAmRFAgMgPCAJAKQDAQUCaEwDCQBmAgUCaE0FAmRGCQACAQkArAICCQCsAgIJAKwCAgIIRmFpbGVkOiAJAKQDAQUCZEYCAyA8IAkApAMBBQJoTQQCZVcJAQJlUAMJALYCAQAACQC2AgEAAAkAtgIBAAADCQAAAgUCZVcFAmVXBAJoTgkA/AcEBQJhVgIEYnVybgkAzAgCBQJkUQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkawUCZFEFA25pbAMJAAACBQJoTgUCaE4EAmhPCQECZVgDCQEBLQEFAmRFCQEBLQEFAmRGAAAEAmduCAUCaE8CXzEEAmVPCAUCaE8CXzIEAmdvCQECZmICBQJlVwUCZU8DCQAAAgUCZ28FAmdvCQDOCAIFAmRHBQJnbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQENdW5zdGFrZUFuZEdldAECY0IEAmhQAwkBAiE9AgkAkAMBCAUCY1UIcGF5bWVudHMAAAkAAgECDU5vIHBtbnRzIGV4cGQGAwkAAAIFAmhQBQJoUAQCaFEJAQJieAAEAmhkBQJicQQCaFIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmhRBQFDAgpXciBzdCBhZGRyBAJlVwkBAmVQAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlVwUCZVcEAmhTCQD8BwQFAmhSAgd1bnN0YWtlCQDMCAIJANgEAQUCaGQJAMwIAgUCY0IFA25pbAUDbmlsAwkAAAIFAmhTBQJoUwQCZWMJAQJkaQQJANgEAQgFAmNVDXRyYW5zYWN0aW9uSWQJANgEAQUCaGQFAmNCCAUCY1UGY2FsbGVyBAJkRQgFAmVjAl8xBAJkRggFAmVjAl8yBAJkcwkBDXBhcnNlSW50VmFsdWUBCAUCZWMCXzkEAmRHCAUCZWMDXzEwBAJoVAMDCQECYmEABgkAAAIFAmRzBQFzCQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUCZHMGAwkAAAIFAmhUBQJoVAQCaFUJAPwHBAUCYVYCBGJ1cm4JAMwIAgUCY0IFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCaGQFAmNCBQNuaWwDCQAAAgUCaFUFAmhVBAJoVgkBAmVYAwkBAS0BBQJkRQkBAS0BBQJkRgAABAJnbggFAmhWAl8xBAJlTwgFAmhWAl8yBAJnbwkBAmZiAgUCZVcFAmVPAwkAAAIFAmdvBQJnbwkAzggCBQJkRwUCZ24JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1UBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmhXAmhYAmhNBAJoegMJAQJiYQAGCQAAAgUCYnAFAXMEAmdOCQDMCAIDCQEBIQEFAmh6BgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmNVCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ04FAmdOBAJlVwkBAmVQAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlVwUCZVcEAmhTCQD8BwQFAmJ6Agd1bnN0YWtlCQDMCAIJANgEAQUCYnEJAMwIAgUCaFcFA25pbAUDbmlsAwkAAAIFAmhTBQJoUwQCaFkJAQJkaQQJANgEAQgFAmNVDXRyYW5zYWN0aW9uSWQJANgEAQUCYnEFAmhXCAUCY1UGY2FsbGVyBAJkRQgFAmhZAl8xBAJkRggFAmhZAl8yBAJkRwgFAmhZA18xMAQCaFoJAMwIAgMJAGcCBQJkRQUCaFgGCQACAQkAuQkCCQDMCAICLGFtb3VudCBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaFgFA25pbAIACQDMCAIDCQBnAgUCZEYFAmhNBgkAAgEJALkJAgkAzAgCAitwcmljZSBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaE0FA25pbAIABQNuaWwDCQAAAgUCaFoFAmhaBAJoTgkA/AcEBQJhVgIEYnVybgkAzAgCBQJoVwUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJicQUCaFcFA25pbAMJAAACBQJoTgUCaE4EAmlhCQECZVgDCQEBLQEFAmRFCQEBLQEFAmRGAAAEAmduCAUCaWECXzEEAmVPCAUCaWECXzIEAmdvCQECZmICBQJlVwUCZU8DCQAAAgUCZ28FAmdvCQDOCAIFAmRHBQJnbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjVQEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJoVwJmUQJmUgQCaG4KAAJhWAkA/AcEBQJhVgIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmFYAgdCb29sZWFuBQJhWAkAAgEJAKwCAgkAAwEFAmFYAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJoegMDCQECYmEABgkAAAIFAmJwBQFzBgUCaG4EAmdOCQDMCAIDAwkBASEBBQJoegYJAQJndAEFAmNVBgkBAmFTAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCY1UIcGF5bWVudHMAAAYJAQJhUwECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmdOBQJnTgQCaFEJAQJieAAEAmhkBQJicQQCaFIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmhRBQFDAgpXciBzdCBhZGRyBAJkbQgFAmNVBmNhbGxlcgQCaWIFBHRoaXMEAmhTCQD8BwQFAmhSAg91bnN0YWtlSU5URVJOQUwJAMwIAgUCaGQJAMwIAgUCaFcJAMwIAggFAmRtBWJ5dGVzCQDMCAIIBQJpYgVieXRlcwUDbmlsBQNuaWwDCQAAAgUCaFMFAmhTBAJpYwkBAmZQBgUCZlEFAmZSCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJoZAUCaFcFA25pbAgFAmNVBmNhbGxlcggFAmNVDG9yaWdpbkNhbGxlcggFAmNVDXRyYW5zYWN0aW9uSWQEAmRHCAUCaWMCXzEEAmdhCAUCaWMCXzIJAJQKAgUCZEcFAmdhCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNVARxwdXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJpZAJpZQQCaWYJAQJmdQUFAmlkBQJpZQIAAgAGBAJmSggFAmlmAl8xBAJkRwgFAmlmAl8yBAJjQwgFAmlmAl8zBAJmTwgFAmlmAl80CQCUCgIFA25pbAkAlQoDBQJmSgUCY0MFAmZPAmNVASFwdXRPbmVUa25WMldpdGhvdXRUYWtlRmVlUkVBRE9OTFkCAmlkAmllBAJpZwkBAmZ1BQUCaWQFAmllAgACAAcEAmZKCAUCaWcCXzEEAmRHCAUCaWcCXzIEAmNDCAUCaWcCXzMEAmZPCAUCaWcCXzQJAJQKAgUDbmlsCQCVCgMFAmZKBQJjQwUCZk8CY1UBCGFjdGl2YXRlAgJpaAJpaQMJAQIhPQIJAKUIAQgFAmNVBmNhbGxlcgkApQgBBQJhVgkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhagAFAmloCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhawAFAmlpBQNuaWwCB3N1Y2Nlc3MCY1UBBHNldFMCAmlqAmhUAwkBAiE9AgkApQgBCAUCY1UGY2FsbGVyCQECYU8CBQR0aGlzCQECYW8ABQJncwkAzAgCCQELU3RyaW5nRW50cnkCBQJpagUCaFQFA25pbAJjVQEEc2V0SQICaWoCaFQDCQECIT0CCQClCAEIBQJjVQZjYWxsZXIJAQJhTwIFBHRoaXMJAQJhbwAFAmdzCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQJpagUCaFQFA25pbAJjVQEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYmQAAmNVARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJiVAkAlAoCBQNuaWwJAQJiUwEFAmJUAmNVARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJjbQJjbgJjcgQCaWsJAQJjcQMFAmNtBQJjbgUCY3IJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJpawAACQDMCAIJAKYDAQkAkQMCBQJpawABCQDMCAIJAKYDAQkAkQMCBQJpawACBQNuaWwCY1UBFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCAU0CaWwJAJQKAgUDbmlsCQEBTAIJAKcDAQUBTQUCaWwCY1UBFHRvWDE4V3JhcHBlclJFQURPTkxZAgFJAUoJAJQKAgUDbmlsCQCmAwEJAQFIAgUBSQUBSgJjVQEeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZAgJiVgJiVwkAlAoCBQNuaWwJAKYDAQkBAmJVAgkApwMBBQJiVgkApwMBBQJiVwJjVQEjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAmRqAmNiAmRJAmRKAmRLAmRMAmltAmRNAmROCQCUCgIFA25pbAkBAmRIDQUCZGoFAmNiBQJkSQUCZEoFAmRLBQJkTAUCaW0FAmRNBQJkTgYHAAACAAJjVQEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEAmRqAmluAmRsAmltBAJlYwkBAmRpBAUCZGoFAmluBQJkbAkBEUBleHRyTmF0aXZlKDEwNjIpAQUCaW0JAJQKAgUDbmlsCQCcCgoIBQJlYwJfMQgFAmVjAl8yCAUCZWMCXzMIBQJlYwJfNAgFAmVjAl81CAUCZWMCXzYIBQJlYwJfNwkApgMBCAUCZWMCXzgIBQJlYwJfOQgFAmVjA18xMAJjVQEJY2hhbmdlQW1wAAQCaW8JAPwHBAUCYVYCGmdldENoYW5nZUFtcENvbmZpZ1JFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwEAmlwBAJncQUCaW8DCQABAgUCZ3ECCUxpc3RbQW55XQQCaXEFAmdxCQCVCgMKAAJhWAkAkQMCBQJpcQAAAwkAAQIFAmFYAgNJbnQFAmFYCQACAQkArAICCQADAQUCYVgCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAoAAmFYCQCRAwIFAmlxAAEDCQABAgUCYVgCA0ludAUCYVgJAAIBCQCsAgIJAAMBBQJhWAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50CgACYVgJAJEDAgUCaXEAAgMJAAECBQJhWAIDSW50BQJhWAkAAgEJAKwCAgkAAwEFAmFYAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQJAQJhUwECEmludmFsaWQgZW50cnkgdHlwZQQCaXIIBQJpcAJfMQQCaXMIBQJpcAJfMgQCaXQIBQJpcAJfMwQCaXUJAQ1wYXJzZUludFZhbHVlAQkBEUBleHRyTmF0aXZlKDEwNTgpAQkBAmFsAAQCaXYJAGQCBQJpdQUCaXMEAml3AwkAZgIAAAUCaXMDCQBmAgUCaXQFAml2BQJpdAUCaXYDCQBmAgUCaXYFAml0BQJpdAUCaXYEAml4CQELdmFsdWVPckVsc2UCCQCfCAEJAQJhcAAAAAQCaXkJAGQCBQJpeAUCaXIEAmdOCQDMCAIDCQBmAgUGaGVpZ2h0BQJpeQYJAQJhUwECF3RyeSBhZ2FpbiBpbiBmZXcgYmxvY2tzCQDMCAIDCQECIT0CBQJpdQUCaXcGCQECYVMBAhZhbHJlYWR5IHJlYWNoZWQgdGFyZ2V0BQNuaWwDCQAAAgUCZ04FAmdOCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYXAABQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFsAAkApAMBBQJpdwkAzAgCCQELU3RyaW5nRW50cnkCCQECYW0BBQZoZWlnaHQJAKQDAQUCaXcFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECaXoBAmlBAAQCaUIEAmdxCQECZ3AAAwkAAQIFAmdxAgpCeXRlVmVjdG9yBAJndQUCZ3EFAmd1AwkAAQIFAmdxAgRVbml0CAUCaXoPc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmdxBQJpegMJAAECBQJncQIFT3JkZXIEAmZlBQJncQQCaUMJAQJiYgAEAmlEAwkBAmdCAAkAlAoCBgIACQECZmQBBQJmZQQCYUsIBQJpRAJfMQQCYUwIBQJpRAJfMgQCYU0JAPQDAwgFAmZlCWJvZHlCeXRlcwkAkQMCCAUCZmUGcHJvb2ZzAAAIBQJmZQ9zZW5kZXJQdWJsaWNLZXkEAmFOCQD0AwMIBQJmZQlib2R5Qnl0ZXMJAJEDAggFAmZlBnByb29mcwABBQJpQwMDAwUCYUsFAmFNBwUCYU4HBgkBAmFKBAUCYUsFAmFMBQJhTQUCYU4DCQABAgUCZ3ECFFNldFNjcmlwdFRyYW5zYWN0aW9uBAJjSAUCZ3EDCQD0AwMIBQJpeglib2R5Qnl0ZXMJAJEDAggFAml6BnByb29mcwAABQJpQgYEAmlFCQD2AwEJAQV2YWx1ZQEIBQJjSAZzY3JpcHQEAmlGCQDbBAEJAQV2YWx1ZQEJAJ0IAgUCYVYJAQJhRgAEAmlHCQDxBwEFBHRoaXMDCQAAAgUCaUYFAmlFCQECIT0CBQJpRwUCaUUHCQD0AwMIBQJpeglib2R5Qnl0ZXMJAJEDAggFAml6BnByb29mcwAABQJpQpDIMkQ=",
    "height": 3567987,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DyZryxF6sdoZe8n1bRytLHgNua7dNaLkePgBa5ucpfL2
Next: EC6UqVGmAptvfkxpT7zF9kDdkqVhAmCfYcsHMjzJWAXc

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

Old	New		Differences
128	128		func amp () = "%s__amp"
129	129
130	130
	131	+	func keyAmpHistory (heightBlocks) = ("%s%d__amp__" + toString(heightBlocks))
	132	+
	133	+
131	134		func ada () = "%s__addonAddr"
	135	+
	136	+
	137	+	func keyChangeAmpLastCall () = "%s__changeAmpLastCall"
132	138
133	139
134	140		let keyFee = "%s__fee"

234	240
235	241		let poolConfigParsed = parsePoolConfig(gpc())
236	242
237		-	let $~~t080608289~~ = poolConfigParsed
	243	+	let $t081948423 = poolConfigParsed
238	244
239		-	let cfgPoolAddress = $~~t080608289~~._1
	245	+	let cfgPoolAddress = $t081948423._1
240	246
241		-	let cfgPoolStatus = $~~t080608289~~._2
	247	+	let cfgPoolStatus = $t081948423._2
242	248
243		-	let cfgLpAssetId = $~~t080608289~~._3
	249	+	let cfgLpAssetId = $t081948423._3
244	250
245		-	let cfgAmountAssetId = $~~t080608289~~._4
	251	+	let cfgAmountAssetId = $t081948423._4
246	252
247		-	let cfgPriceAssetId = $~~t080608289~~._5
	253	+	let cfgPriceAssetId = $t081948423._5
248	254
249		-	let cfgAmountAssetDecimals = $~~t080608289~~._6
	255	+	let cfgAmountAssetDecimals = $t081948423._6
250	256
251		-	let cfgPriceAssetDecimals = $~~t080608289~~._7
	257	+	let cfgPriceAssetDecimals = $t081948423._7
252	258
253		-	let cfgInAmountAssedId = $~~t080608289~~._8
	259	+	let cfgInAmountAssedId = $t081948423._8
254	260
255		-	let cfgInPriceAssetId = $~~t080608289~~._9
	261	+	let cfgInPriceAssetId = $t081948423._9
256	262
257	263		func gfc () = split(strf(fca, fcfg()), SEP)
258	264

373	379		}
374	380
375	381		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
376		-	let $~~t01279412842~~ = {
	382	+	let $t01292812976 = {
377	383		let $l = arr
378	384		let $s = size($l)
379	385		let $acc0 = $Tuple2(s, false)

387	393
388	394		$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($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17)
389	395		}
390		-	let d = $~~t01279412842~~._1
391		-	let found = $~~t01279412842~~._2
	396	+	let d = $t01292812976._1
	397	+	let found = $t01292812976._2
392	398		if (found)
393	399		then d
394	400		else throw(("D calculation error, D = " + toString(d)))

524	530		else calcLpAmt
525	531		let amDiff = (inAmAmt - calcAmAssetPmt)
526	532		let prDiff = (inPrAmt - calcPrAssetPmt)
527		-	let $~~t02068121026~~ = if (if (isOneAsset)
	533	+	let $t02081521160 = if (if (isOneAsset)
528	534		then (pmtId == amIdStr)
529	535		else false)
530	536		then $Tuple2(pmtAmt, 0)

533	539		else false)
534	540		then $Tuple2(0, pmtAmt)
535	541		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
536		-	let writeAmAmt = $~~t02068121026~~._1
537		-	let writePrAmt = $~~t02068121026~~._2
	542	+	let writeAmAmt = $t02081521160._1
	543	+	let writePrAmt = $t02081521160._2
538	544		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))]
539	545		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
540	546		}

553	559		let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
554	560		let b = ((s + ((D * aPrecision) / ann)) - D)
555	561		func calc (acc,cur) = {
556		-	let $~~t02222122241~~ = acc
557		-	let y = $~~t02222122241~~._1
558		-	let found = $~~t02222122241~~._2
	562	+	let $t02235522375 = acc
	563	+	let y = $t02235522375._1
	564	+	let found = $t02235522375._2
559	565		if ((found != unit))
560	566		then acc
561	567		else {

568	574		}
569	575
570	576		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
571		-	let $~~t02254822595~~ = {
	577	+	let $t02268222729 = {
572	578		let $l = arr
573	579		let $s = size($l)
574	580		let $acc0 = $Tuple2(D, unit)

582	588
583	589		$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)
584	590		}
585		-	let y = $~~t02254822595~~._1
586		-	let found = $~~t02254822595~~._2
	591	+	let y = $t02268222729._1
	592	+	let found = $t02268222729._2
587	593		if ((found != unit))
588	594		then y
589	595		else throw(("Y calculation error, Y = " + toString(y)))

627	633		let priceAssetBalance = getAccBalance(assetIdToString(cfgPriceAssetId))
628	634		let amountAssetAmount = order.amount
629	635		let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
630		-	let $~~t02479325005~~ = if ((order.orderType == Buy))
	636	+	let $t02492725139 = if ((order.orderType == Buy))
631	637		then $Tuple2(amountAssetAmount, -(priceAssetAmount))
632	638		else $Tuple2(-(amountAssetAmount), priceAssetAmount)
633		-	let amountAssetBalanceDelta = $~~t02479325005~~._1
634		-	let priceAssetBalanceDelta = $~~t02479325005~~._2
	639	+	let amountAssetBalanceDelta = $t02492725139._1
	640	+	let priceAssetBalanceDelta = $t02492725139._2
635	641		if (if (if (igs())
636	642		then true
637	643		else (cfgPoolStatus == PoolMatcherDis))

644	650		then throw("Wr assets")
645	651		else {
646	652		let dLp = parseBigIntValue(valueOrElse(getString(this, keyDLp), "0"))
647		-	let $~~t02534725447~~ = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
648		-	let unusedActions = $~~t02534725447~~._1
649		-	let dLpNew = $~~t02534725447~~._2
	653	+	let $t02548125581 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
	654	+	let unusedActions = $t02548125581._1
	655	+	let dLpNew = $t02548125581._2
650	656		let isOrderValid = (dLpNew >= dLp)
651	657		let info = makeString(["dLp=", toString(dLp), " dLpNew=", toString(dLpNew), " amountAssetBalance=", toString(amountAssetBalance), " priceAssetBalance=", toString(priceAssetBalance), " amountAssetBalanceDelta=", toString(amountAssetBalanceDelta), " priceAssetBalanceDelta=", toString(priceAssetBalanceDelta), " height=", toString(height)], "")
652	658		$Tuple2(isOrderValid, info)

700	706		then {
701	707		let amBalance = getAccBalance(amId)
702	708		let prBalance = getAccBalance(prId)
703		-	let $~~t02810328565~~ = if ((txId == ""))
	709	+	let $t02823728699 = if ((txId == ""))
704	710		then $Tuple2(amBalance, prBalance)
705	711		else if ((pmtAssetId == amId))
706	712		then if ((pmtAmtRaw > amBalance))

711	717		then throw("invalid payment amount")
712	718		else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
713	719		else throw("wrong pmtAssetId")
714		-	let amBalanceOld = $~~t02810328565~~._1
715		-	let prBalanceOld = $~~t02810328565~~._2
716		-	let $~~t02857128747~~ = if ((pmtAssetId == amId))
	720	+	let amBalanceOld = $t02823728699._1
	721	+	let prBalanceOld = $t02823728699._2
	722	+	let $t02870528881 = if ((pmtAssetId == amId))
717	723		then $Tuple2(pmtAmtRaw, 0)
718	724		else if ((pmtAssetId == prId))
719	725		then $Tuple2(0, pmtAmtRaw)
720	726		else throw("invalid payment")
721		-	let amAmountRaw = $~~t02857128747~~._1
722		-	let prAmountRaw = $~~t02857128747~~._2
723		-	let $~~t02875129005~~ = if (withTakeFee)
	727	+	let amAmountRaw = $t02870528881._1
	728	+	let prAmountRaw = $t02870528881._2
	729	+	let $t02888529139 = if (withTakeFee)
724	730		then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
725	731		else $Tuple3(amAmountRaw, prAmountRaw, 0)
726		-	let amAmount = $~~t02875129005~~._1
727		-	let prAmount = $~~t02875129005~~._2
728		-	let feeAmount = $~~t02875129005~~._3
	732	+	let amAmount = $t02888529139._1
	733	+	let prAmount = $t02888529139._2
	734	+	let feeAmount = $t02888529139._3
729	735		let amBalanceNew = (amBalanceOld + amAmount)
730	736		let prBalanceNew = (prBalanceOld + prAmount)
731	737		let D0 = getD([t1(amBalanceOld, cfgAmountAssetDecimals), t1(prBalanceOld, cfgPriceAssetDecimals)])

773	779		else {
774	780		let amBalance = getAccBalance(amId)
775	781		let prBalance = getAccBalance(prId)
776		-	let $~~t03111731228~~ = {
	782	+	let $t03125131362 = {
777	783		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
778	784		if ($isInstanceOf(@, "(Int, Int)"))
779	785		then @
780	786		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
781	787		}
782		-	if (($~~t03111731228~~ == $~~t03111731228~~))
	788	+	if (($t03125131362 == $t03125131362))
783	789		then {
784		-	let feeAmount = $~~t03111731228~~._2
785		-	let totalGet = $~~t03111731228~~._1
	790	+	let feeAmount = $t03125131362._2
	791	+	let totalGet = $t03125131362._1
786	792		let totalAmount = if (if ((minOutAmount > 0))
787	793		then (minOutAmount > totalGet)
788	794		else false)
789	795		then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
790	796		else totalGet
791		-	let $~~t03141831725~~ = if ((outAssetId == amId))
	797	+	let $t03155231859 = if ((outAssetId == amId))
792	798		then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
793	799		else if ((outAssetId == prId))
794	800		then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
795	801		else throw("invalid out asset id")
796		-	let outAm = $~~t03141831725~~._1
797		-	let outPr = $~~t03141831725~~._2
798		-	let amBalanceNew = $~~t03141831725~~._3
799		-	let prBalanceNew = $~~t03141831725~~._4
	802	+	let outAm = $t03155231859._1
	803	+	let outPr = $t03155231859._2
	804	+	let amBalanceNew = $t03155231859._3
	805	+	let prBalanceNew = $t03155231859._4
800	806		let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
801	807		let curPr = f1(curPrX18, scale8)
802	808		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

811	817		let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
812	818		if ((burn == burn))
813	819		then {
814		-	let $~~t03251032860~~ = {
	820	+	let $t03264432994 = {
815	821		let feeAmountForCalc = if ((this == feeCollectorAddress))
816	822		then 0
817	823		else feeAmount

822	828		then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
823	829		else $Tuple2(0, -((totalGet + feeAmountForCalc)))
824	830		}
825		-	let amountAssetBalanceDelta = $~~t03251032860~~._1
826		-	let priceAssetBalanceDelta = $~~t03251032860~~._2
827		-	let $~~t03286332971~~ = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
828		-	let refreshDLpActions = $~~t03286332971~~._1
829		-	let updatedDLp = $~~t03286332971~~._2
	831	+	let amountAssetBalanceDelta = $t03264432994._1
	832	+	let priceAssetBalanceDelta = $t03264432994._2
	833	+	let $t03299733105 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
	834	+	let refreshDLpActions = $t03299733105._1
	835	+	let updatedDLp = $t03299733105._2
830	836		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
831	837		if ((isUpdatedDLpValid == isUpdatedDLpValid))
832	838		then $Tuple2((state ++ refreshDLpActions), totalAmount)

905	911		let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
906	912		let b = ((s + ((D * aPrecision) / ann)) - D)
907	913		func calc (acc,cur) = {
908		-	let $~~t03441834438~~ = acc
909		-	let y = $~~t03441834438~~._1
910		-	let found = $~~t03441834438~~._2
	914	+	let $t03455234572 = acc
	915	+	let y = $t03455234572._1
	916	+	let found = $t03455234572._2
911	917		if ((found != unit))
912	918		then acc
913	919		else {

920	926		}
921	927
922	928		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
923		-	let $~~t03476934816~~ = {
	929	+	let $t03490334950 = {
924	930		let $l = arr
925	931		let $s = size($l)
926	932		let $acc0 = $Tuple2(D, unit)

934	940
935	941		$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)
936	942		}
937		-	let y = $~~t03476934816~~._1
938		-	let found = $~~t03476934816~~._2
	943	+	let y = $t03490334950._1
	944	+	let found = $t03490334950._2
939	945		if ((found != unit))
940	946		then y
941	947		else throw(("Y calculation error, Y = " + toString(y)))

947	953
948	954		@Callable(i)
949	955		func calculateAmountOutForSwapREADONLY (cleanAmountIn,isReverse,feePoolAmount) = {
950		-	let $~~t03516835592~~ = if ((isReverse == false))
	956	+	let $t03530235726 = if ((isReverse == false))
951	957		then {
952	958		let assetOut = strf(this, pa())
953	959		let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, aa()))) + toBigInt(cleanAmountIn))

958	964		let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, pa()))) + toBigInt(cleanAmountIn))
959	965		$Tuple2(assetOut, poolAmountInBalance)
960	966		}
961		-	let assetOut = $~~t03516835592~~._1
962		-	let poolAmountInBalance = $~~t03516835592~~._2
	967	+	let assetOut = $t03530235726._1
	968	+	let poolAmountInBalance = $t03530235726._2
963	969		let poolConfig = gpc()
964	970		let amId = poolConfig[idxAmAsId]
965	971		let prId = poolConfig[idxPrAsId]

999	1005		then {
1000	1006		let pmt = value(i.payments[0])
1001	1007		let assetIn = assetIdToString(pmt.assetId)
1002		-	let $~~t03702837422~~ = if ((isReverse == false))
	1008	+	let $t03716237556 = if ((isReverse == false))
1003	1009		then {
1004	1010		let assetOut = strf(this, pa())
1005	1011		let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)

1010	1016		let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)
1011	1017		$Tuple2(assetOut, poolAmountInBalance)
1012	1018		}
1013		-	let assetOut = $~~t03702837422~~._1
1014		-	let poolAmountInBalance = $~~t03702837422~~._2
	1019	+	let assetOut = $t03716237556._1
	1020	+	let poolAmountInBalance = $t03716237556._2
1015	1021		let poolConfig = gpc()
1016	1022		let amId = poolConfig[idxAmAsId]
1017	1023		let prId = poolConfig[idxPrAsId]

1151	1157		else throw("Strict value is not equal to itself.")
1152	1158		}
1153	1159		else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1154		-	let $~~t04204142183~~ = refreshDLpInternal(0, 0, 0)
1155		-	let refreshDLpActions = $~~t04204142183~~._1
1156		-	let updatedDLp = $~~t04204142183~~._2
	1160	+	let $t04217542317 = refreshDLpInternal(0, 0, 0)
	1161	+	let refreshDLpActions = $t04217542317._1
	1162	+	let updatedDLp = $t04217542317._2
1157	1163		let check = if ((updatedDLp >= currentDLp))
1158	1164		then true
1159	1165		else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))

1226	1232		else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1227	1233		if ((currentDLp == currentDLp))
1228	1234		then {
1229		-	let $~~t04382443982~~ = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1230		-	if (($~~t04382443982~~ == $~~t04382443982~~))
	1235	+	let $t04395844116 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
	1236	+	if (($t04395844116 == $t04395844116))
1231	1237		then {
1232		-	let feeAmount = $~~t04382443982~~._3
1233		-	let state = $~~t04382443982~~._2
1234		-	let estimLP = $~~t04382443982~~._1
	1238	+	let feeAmount = $t04395844116._3
	1239	+	let state = $t04395844116._2
	1240	+	let estimLP = $t04395844116._1
1235	1241		let emitLpAmt = if (if ((minOutAmount > 0))
1236	1242		then (minOutAmount > estimLP)
1237	1243		else false)

1259	1265		let sendFeeToMatcher = if ((feeAmount > 0))
1260	1266		then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1261	1267		else nil
1262		-	let $~~t04486745216~~ = if ((this == feeCollectorAddress))
	1268	+	let $t04500145350 = if ((this == feeCollectorAddress))
1263	1269		then $Tuple2(0, 0)
1264	1270		else {
1265	1271		let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))

1269	1275		then $Tuple2(-(feeAmount), 0)
1270	1276		else $Tuple2(0, -(feeAmount))
1271	1277		}
1272		-	let amountAssetBalanceDelta = $~~t04486745216~~._1
1273		-	let priceAssetBalanceDelta = $~~t04486745216~~._2
1274		-	let $~~t04521945327~~ = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1275		-	let refreshDLpActions = $~~t04521945327~~._1
1276		-	let updatedDLp = $~~t04521945327~~._2
	1278	+	let amountAssetBalanceDelta = $t04500145350._1
	1279	+	let priceAssetBalanceDelta = $t04500145350._2
	1280	+	let $t04535345461 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
	1281	+	let refreshDLpActions = $t04535345461._1
	1282	+	let updatedDLp = $t04535345461._2
1277	1283		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1278	1284		if ((isUpdatedDLpValid == isUpdatedDLpValid))
1279	1285		then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)

1305	1311		let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1306	1312		if ((currentDLp == currentDLp))
1307	1313		then {
1308		-	let $~~t04635746422~~ = refreshDLpInternal(0, 0, 0)
1309		-	let refreshDLpActions = $~~t04635746422~~._1
1310		-	let updatedDLp = $~~t04635746422~~._2
	1314	+	let $t04649146556 = refreshDLpInternal(0, 0, 0)
	1315	+	let refreshDLpActions = $t04649146556._1
	1316	+	let updatedDLp = $t04649146556._2
1311	1317		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1312	1318		if ((isUpdatedDLpValid == isUpdatedDLpValid))
1313	1319		then (state ++ refreshDLpActions)

1332	1338		let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1333	1339		if ((b == b))
1334	1340		then {
1335		-	let $~~t04759547677~~ = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1336		-	let refreshDLpActions = $~~t04759547677~~._1
1337		-	let updatedDLp = $~~t04759547677~~._2
	1341	+	let $t04772947811 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
	1342	+	let refreshDLpActions = $t04772947811._1
	1343	+	let updatedDLp = $t04772947811._2
1338	1344		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1339	1345		if ((isUpdatedDLpValid == isUpdatedDLpValid))
1340	1346		then (state ++ refreshDLpActions)

1369	1375		else throwErr("exactly 1 payment are expected")]
1370	1376		if ((checks == checks))
1371	1377		then {
1372		-	let $~~t04829548450~~ = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1373		-	let state = $~~t04829548450~~._1
1374		-	let totalAmount = $~~t04829548450~~._2
	1378	+	let $t04842948584 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
	1379	+	let state = $t04842948584._1
	1380	+	let totalAmount = $t04842948584._2
1375	1381		$Tuple2(state, totalAmount)
1376	1382		}
1377	1383		else throw("Strict value is not equal to itself.")

1388	1394		if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1389	1395		then {
1390	1396		let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1391		-	let $~~t04897449038~~ = refreshDLpInternal(0, 0, 0)
1392		-	let dLpUpdateActions = $~~t04897449038~~._1
1393		-	let updatedDLp = $~~t04897449038~~._2
	1397	+	let $t04910849172 = refreshDLpInternal(0, 0, 0)
	1398	+	let dLpUpdateActions = $t04910849172._1
	1399	+	let updatedDLp = $t04910849172._2
1394	1400		let actions = if ((dLp != updatedDLp))
1395	1401		then dLpUpdateActions
1396	1402		else throwErr("nothing to refresh")

1418	1424		let newY = getYD(xp, index, D1)
1419	1425		let dy = (xp[index] - newY)
1420	1426		let totalGetRaw = max([0, toInt((dy - big1))])
1421		-	let $~~t05004850103~~ = takeFee(totalGetRaw, outFee)
1422		-	let totalGet = $~~t05004850103~~._1
1423		-	let feeAmount = $~~t05004850103~~._2
	1427	+	let $t05018250237 = takeFee(totalGetRaw, outFee)
	1428	+	let totalGet = $t05018250237._1
	1429	+	let feeAmount = $t05018250237._2
1424	1430		$Tuple2(nil, $Tuple2(totalGet, feeAmount))
1425	1431		}
1426	1432

1433	1439		let lpId = toBase58String(value(cfgLpAssetId))
1434	1440		let amBalance = getAccBalance(amId)
1435	1441		let prBalance = getAccBalance(prId)
1436		-	let $~~t05047850593~~ = {
	1442	+	let $t05061250727 = {
1437	1443		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1438	1444		if ($isInstanceOf(@, "(Int, Int)"))
1439	1445		then @
1440	1446		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1441	1447		}
1442		-	let totalGet = $~~t05047850593~~._1
1443		-	let feeAmount = $~~t05047850593~~._2
	1448	+	let totalGet = $t05061250727._1
	1449	+	let feeAmount = $t05061250727._2
1444	1450		let r = ego("", lpId, lpAssetAmount, this)
1445	1451		let outAmAmt = r._1
1446	1452		let outPrAmt = r._2

1474	1480		let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1475	1481		if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1476	1482		then {
1477		-	let $~~t05175951840~~ = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1478		-	let refreshDLpActions = $~~t05175951840~~._1
1479		-	let updatedDLp = $~~t05175951840~~._2
	1483	+	let $t05189351974 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
	1484	+	let refreshDLpActions = $t05189351974._1
	1485	+	let updatedDLp = $t05189351974._2
1480	1486		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1481	1487		if ((isUpdatedDLpValid == isUpdatedDLpValid))
1482	1488		then (state ++ refreshDLpActions)

1521	1527		let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1522	1528		if ((burnA == burnA))
1523	1529		then {
1524		-	let $~~t05286752948~~ = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1525		-	let refreshDLpActions = $~~t05286752948~~._1
1526		-	let updatedDLp = $~~t05286752948~~._2
	1530	+	let $t05300153082 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
	1531	+	let refreshDLpActions = $t05300153082._1
	1532	+	let updatedDLp = $t05300153082._2
1527	1533		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1528	1534		if ((isUpdatedDLpValid == isUpdatedDLpValid))
1529	1535		then (state ++ refreshDLpActions)

1574	1580		let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1575	1581		if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1576	1582		then {
1577		-	let $~~t05419954280~~ = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)

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

github/deemru/w8io/786bc32 
236.41 ms ◑