w8 · tx · JFb···HPQ

tx · JFbdagHpBNy3qRjSWLENLoGQgGKW4W16TfJTNB2LHPQ

3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT:  -0.04100000 Waves

2023.10.16 12:14 [2800980] smart account 3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "JFbdagHpBNy3qRjSWLENLoGQgGKW4W16TfJTNB2LHPQ",
    "fee": 4100000,
    "feeAssetId": null,
    "timestamp": 1697447686404,
    "version": 2,
    "chainId": 84,
    "sender": "3NAefciWv6f9fWvEXdGgpHfanJFG8HqfjuT",
    "senderPublicKey": "D1BL65meykxFZTCuq7jq9HSGLLnWvQamQPUNrguW5w39",
    "proofs": [
        "3YYALjP7hkjnDgis1f51CXj475EtLvRwaEzKnivTVndpVeBZTyK8WDyJr4Uk1QfjKcC1keJQq6GiVFFFbHvAE5R"
    ],
    "script": "base64:BgKkLQgCEgUKAwEEARIHCgUBBAEIARIDCgEIEgQKAgEEEgQKAgEEEgMKAQESABIECgIIARIAEgQKAggBEgQKAggBEgQKAgEBEgMKAQESBQoDAQEBEgUKAwEIARIECgIBCBIECgIBCBIECgIICBIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIEgAiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgRiaWcyIgRiaWczIgRiaWc0IgpzbGlwcGFnZTREIgt3YXZlc1N0cmluZyIKYW1wSW5pdGlhbCIFQW11bHQiBURjb252IgNTRVAiBUVNUFRZIgpQb29sQWN0aXZlIgpQb29sUHV0RGlzIg5Qb29sTWF0Y2hlckRpcyIMUG9vbFNodXRkb3duIg5pZHhQb29sQWRkcmVzcyIJaWR4UG9vbFN0IglpZHhMUEFzSWQiCWlkeEFtQXNJZCIJaWR4UHJBc0lkIgtpZHhBbXRBc0RjbSINaWR4UHJpY2VBc0RjbSILaWR4SUFtdEFzSWQiDWlkeElQcmljZUFzSWQiD2lkeEZhY3RTdGFrQ250ciISaWR4RmFjdG9yeVJlc3RDbnRyIhBpZHhGYWN0U2xpcHBDbnRyIhFpZHhGYWN0R3d4UmV3Q250ciIKZmVlRGVmYXVsdCICdDEiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiCHQxQmlnSW50IgJmMSIDdmFsIg9yZXN1bHRTY2FsZU11bHQiDGZyb21YMThSb3VuZCIFcm91bmQiAnQyIgJmMiICdHMiA2FtdCIIcmVzU2NhbGUiCGN1clNjYWxlIgNhYnMiCWFic0JpZ0ludCICZmMiE2tleU1hbmFnZXJQdWJsaWNLZXkiFmtleU1hbmFnZXJWYXVsdEFkZHJlc3MiAnBsIgJwaCIBaCIBdCIDcGF1IgJ1YSIEdHhJZCIDZ2F1IgJhYSICcGEiA2FtcCINa2V5QW1wSGlzdG9yeSIMaGVpZ2h0QmxvY2tzIhRrZXlDaGFuZ2VBbXBMYXN0Q2FsbCIGa2V5RmVlIgNmZWUiBmtleURMcCIVa2V5RExwUmVmcmVzaGVkSGVpZ2h0IhJrZXlETHBSZWZyZXNoRGVsYXkiFmRMcFJlZnJlc2hEZWxheURlZmF1bHQiD2RMcFJlZnJlc2hEZWxheSIEZmNmZyIEbXRwayICcGMiBmlBbXRBcyIFaVByQXMiA21iYSIFYkFTdHIiA2FwcyIca2V5QWxsb3dlZExwU3RhYmxlU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIWa2V5U2tpcE9yZGVyVmFsaWRhdGlvbiILcG9vbEFkZHJlc3MiD3Rocm93T3JkZXJFcnJvciIKb3JkZXJWYWxpZCIOb3JkZXJWYWxpZEluZm8iC3NlbmRlclZhbGlkIgxtYXRjaGVyVmFsaWQiF2FkZHJlc3NGcm9tU3RyaW5nT3JUaGlzIg1hZGRyZXNzU3RyaW5nIgckbWF0Y2gwIgFhIhxnZXRNYW5hZ2VyVmF1bHRBZGRyZXNzT3JUaGlzIg5mYWN0b3J5QWRkcmVzcyIDZmNhIgFzIgRzdHJmIgRhZGRyIgNrZXkiBGludGYiCHRocm93RXJyIgNtc2ciBmZtdEVyciIFaW5GZWUiAUAiBm91dEZlZSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiDHBhcnNlQXNzZXRJZCIFaW5wdXQiD2Fzc2V0SWRUb1N0cmluZyIPcGFyc2VQb29sQ29uZmlnIgpwb29sQ29uZmlnIhBwb29sQ29uZmlnUGFyc2VkIgskdDA4NjA4ODc5NCIOY2ZnUG9vbEFkZHJlc3MiDWNmZ1Bvb2xTdGF0dXMiDGNmZ0xwQXNzZXRJZCIQY2ZnQW1vdW50QXNzZXRJZCIPY2ZnUHJpY2VBc3NldElkIhZjZmdBbW91bnRBc3NldERlY2ltYWxzIhVjZmdQcmljZUFzc2V0RGVjaW1hbHMiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IgxyZXN0Q29udHJhY3QiEWRhdGFQdXRBY3Rpb25JbmZvIg1pbkFtdEFzc2V0QW10Ig9pblByaWNlQXNzZXRBbXQiCG91dExwQW10IgVwcmljZSIKc2xpcEJ5VXNlciIMc2xpcHBhZ2VSZWFsIgh0eEhlaWdodCILdHhUaW1lc3RhbXAiDHNsaXBhZ2VBbUFtdCIMc2xpcGFnZVByQW10IhFkYXRhR2V0QWN0aW9uSW5mbyIOb3V0QW10QXNzZXRBbXQiEG91dFByaWNlQXNzZXRBbXQiB2luTHBBbXQiDWdldEFjY0JhbGFuY2UiB2Fzc2V0SWQiBGNwYmkiCHByQW10WDE4IghhbUFtdFgxOCIFY3BiaXIiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIIYW10QXNEY20iB3ByQXNEY20iCHByaWNlWDE4IghscEFtdFgxOCINbHBQckluQW1Bc1gxOCINbHBQckluUHJBc1gxOCIPY2FsY3VsYXRlUHJpY2VzIgFwIgd0YWtlRmVlIgZhbW91bnQiCWZlZUFtb3VudCIEZ2V0RCICeHAiA3hwMCIDeHAxIgNhbm4iC3hwMF94cDFfbl9uIgVhbm5fcyIFYW5uXzEiCWNhbGNETmV4dCIBZCICZGQiA2RkZCICZHAiBGNhbGMiA2FjYyIBaSIFZE5leHQiCGREaWZmUmF3IgVkRGlmZiIDYXJyIg0kdDAxMzI5OTEzMzQ3IgIkbCICJHMiBSRhY2MwIgUkZjBfMSICJGEiAiRpIgUkZjBfMiIFZm91bmQiA2VnbyIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCILdXNlckFkZHJlc3MiBGxwSWQiBGFtSWQiBHBySWQiBWFtRGNtIgVwckRjbSIDc3RzIgdscEVtaXNzIglhbUJhbGFuY2UiDGFtQmFsYW5jZVgxOCIJcHJCYWxhbmNlIgxwckJhbGFuY2VYMTgiC2N1clByaWNlWDE4IghjdXJQcmljZSILcG10THBBbXRYMTgiCmxwRW1pc3NYMTgiC291dEFtQW10WDE4IgtvdXRQckFtdFgxOCIIb3V0QW1BbXQiCG91dFByQW10IgVzdGF0ZSIDZXBvIgdpbkFtQW10IgZpbkFtSWQiB2luUHJBbXQiBmluUHJJZCIGaXNFdmFsIgZlbWl0THAiCmlzT25lQXNzZXQiEHZhbGlkYXRlU2xpcHBhZ2UiBnBtdEFtdCIFcG10SWQiB2FtSWRTdHIiB3BySWRTdHIiBmFtdERjbSIIcHJpY2VEY20iBGxwRW0iD2luQW1Bc3NldEFtdFgxOCIPaW5QckFzc2V0QW10WDE4Igx1c2VyUHJpY2VYMTgiAXIiBmNoZWNrRCILc2xpcHBhZ2VYMTgiD3NsaXBwYWdlUmVhbFgxOCINbHBFbWlzc2lvblgxOCIKcHJWaWFBbVgxOCIKYW1WaWFQclgxOCIMZXhwZWN0ZWRBbXRzIhFleHBBbXRBc3NldEFtdFgxOCITZXhwUHJpY2VBc3NldEFtdFgxOCIJY2FsY0xwQW10Ig5jYWxjQW1Bc3NldFBtdCIOY2FsY1ByQXNzZXRQbXQiDHNsaXBwYWdlQ2FsYyIJZW1pdExwQW10IgZhbURpZmYiBnByRGlmZiINJHQwMjExMDkyMTQ1NCIKd3JpdGVBbUFtdCIKd3JpdGVQckFtdCILY29tbW9uU3RhdGUiBWdldFlEIgFEIgFuIgF4IgphUHJlY2lzaW9uIgFjIgFiIgNjdXIiDSR0MDIyNjQ5MjI2NjkiAXkiBXlOZXh0IgV5RGlmZiINJHQwMjI5NzYyMzAyMyIHY2FsY0RMcCINYW1vdW50QmFsYW5jZSIMcHJpY2VCYWxhbmNlIgpscEVtaXNzaW9uIgp1cGRhdGVkRExwIg5jYWxjQ3VycmVudERMcCIQYW1vdW50QXNzZXREZWx0YSIPcHJpY2VBc3NldERlbHRhIhRscEFzc2V0RW1pc3Npb25EZWx0YSISYW1vdW50QXNzZXRCYWxhbmNlIhFwcmljZUFzc2V0QmFsYW5jZSIPbHBBc3NldEVtaXNzaW9uIgpjdXJyZW50RExwIhJyZWZyZXNoRExwSW50ZXJuYWwiF2Ftb3VudEFzc2V0QmFsYW5jZURlbHRhIhZwcmljZUFzc2V0QmFsYW5jZURlbHRhIgdhY3Rpb25zIhJ2YWxpZGF0ZVVwZGF0ZWRETHAiBm9sZERMcCIbdmFsaWRhdGVNYXRjaGVyT3JkZXJBbGxvd2VkIgVvcmRlciIRYW1vdW50QXNzZXRBbW91bnQiEHByaWNlQXNzZXRBbW91bnQiDSR0MDI1MjIxMjU0MzMiA2RMcCINJHQwMjU3NzUyNTg3NSINdW51c2VkQWN0aW9ucyIGZExwTmV3Igxpc09yZGVyVmFsaWQiBGluZm8iAmNnIgNwbXQiAmNwIgZjYWxsZXIiB2FtQXNQbXQiB3ByQXNQbXQiDWNhbGNQdXRPbmVUa24iCXBtdEFtdFJhdyILd2l0aFRha2VGZWUiDWNoZWNoRW1pc3Npb24iDSR0MDI4NTMxMjg5OTMiDGFtQmFsYW5jZU9sZCIMcHJCYWxhbmNlT2xkIg0kdDAyODk5OTI5MTc1IgthbUFtb3VudFJhdyILcHJBbW91bnRSYXciDSR0MDI5MTc5Mjk0MzMiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciCGxwQW1vdW50Ig5wb29sUHJvcG9ydGlvbiIPYW1vdW50QXNzZXRQYXJ0Ig5wcmljZUFzc2V0UGFydCIJbHBBbXRCb3RoIgVib251cyITZ2V0T25lVGtuVjJJbnRlcm5hbCIKb3V0QXNzZXRJZCIMbWluT3V0QW1vdW50IghwYXltZW50cyIMb3JpZ2luQ2FsbGVyIg10cmFuc2FjdGlvbklkIgphbURlY2ltYWxzIgpwckRlY2ltYWxzIgpwb29sU3RhdHVzIg0kdDAzMTU0NTMxNjU2Igh0b3RhbEdldCILdG90YWxBbW91bnQiDSR0MDMxODQ2MzIxNTMiBW91dEFtIgVvdXRQciIIY3VyUHJYMTgiBWN1clByIhFvdXRBc3NldElkT3JXYXZlcyIQc2VuZEZlZVRvTWF0Y2hlciIEYnVybiINJHQwMzI5MzgzMzI4OCIQZmVlQW1vdW50Rm9yQ2FsYyIQb3V0SW5BbW91bnRBc3NldCINJHQwMzMyOTEzMzM5OSIRcmVmcmVzaERMcEFjdGlvbnMiEWlzVXBkYXRlZERMcFZhbGlkIhZtYW5hZ2VyUHVibGljS2V5T3JVbml0IhNtYW5hZ2VyVmF1bHRBZGRyZXNzIgJwZCIJaXNNYW5hZ2VyIgJwayILbXVzdE1hbmFnZXIiBGdldFkiCWlzUmV2ZXJzZSITcG9vbEFtb3VudEluQmFsYW5jZSINJHQwMzQ4ODYzNDkwNiINJHQwMzUyMzczNTI4NCITc2tpcE9yZGVyVmFsaWRhdGlvbiINY2xlYW5BbW91bnRJbiINZmVlUG9vbEFtb3VudCINJHQwMzU2MzYzNjA2MCIIYXNzZXRPdXQiAmR5Igt0b3RhbEdldFJhdyIFbmV3WHAiBG5ld0QiDGFtb3VudE91dE1pbiIJYWRkcmVzc1RvIgtzd2FwQ29udGFjdCISaXNQb29sU3dhcERpc2FibGVkIg5pc1N3YXBEaXNhYmxlZCIGY2hlY2tzIgdhc3NldEluIg0kdDAzNzc5NTM4MTg5IghjaGVja01pbiIEc2xpcCIJYXV0b1N0YWtlIgdmYWN0Q2ZnIgtzdGFraW5nQ250ciIIc2xpcENudHIiCmFtQXNzZXRQbXQiCnByQXNzZXRQbXQiAWUiCWxwQXNzZXRJZCICZWwiBmxlZ2FjeSICc2EiAnNwIghscFRybnNmciICc3MiDSR0MDQyNjQ0NDI3ODYiBWNoZWNrIhRscEFzc2V0RW1pc3Npb25BZnRlciIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiDSR0MDQ0NDI3NDQ1ODUiB2VzdGltTFAiDSR0MDQ1NDcwNDU4MTkiFHBheW1lbnRJbkFtb3VudEFzc2V0Ig0kdDA0NTgyMjQ1OTMwIgdtYXhTbHBnIgZlc3RQdXQiDSR0MDQ2OTYwNDcwMjUiCW91dEFtdEFtdCINJHQwNDgxOTg0ODI4MCINaXNHZXREaXNhYmxlZCINJHQwNDg4OTg0OTA1MyIYbGFzdFJlZnJlc2hlZEJsb2NrSGVpZ2h0Ih1jaGVja0xhc3RSZWZyZXNoZWRCbG9ja0hlaWdodCINJHQwNDk1Nzc0OTY0MSIQZExwVXBkYXRlQWN0aW9ucyINbHBBc3NldEFtb3VudCIFaW5kZXgiBG5ld1kiDSR0MDUwNjUxNTA3MDYiDSR0MDUxMDgxNTExOTYiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINJHQwNTIzNjI1MjQ0MyINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDSR0MDUzNDcwNTM1NTEiDXVuc3Rha2VBbW91bnQiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIDcmVzIgxjaGVja0Ftb3VudHMiDSR0MDU0ODAyNTQ4ODMiF2xwQXNzZXRSZWNpcGllbnRBZGRyZXNzIg0kdDA1NTkwNTU2MDkzIhBwYXltZW50QW1vdW50UmF3Ig5wYXltZW50QXNzZXRJZCINJHQwNTYyMjE1NjMyNCINJHQwNTY0NzI1NjU3NiIIYW10QXNTdHIiB3ByQXNTdHIiAnByIgxyZXNTY2FsZU11bHQiB3VzckFkZHIiB3BtdEFzSWQiA2NmZyINJHQwNTkwNTY1OTI1NSIEbGlzdCIFZGVsYXkiBWRlbHRhIgZ0YXJnZXQiBmN1ckFtcCIJbmV3QW1wUmF3IgZuZXdBbXAiCGxhc3RDYWxsIgR3YWl0IgJ0eCIGdmVyaWZ5Ig90YXJnZXRQdWJsaWNLZXkiCm1hdGNoZXJQdWIiDSR0MDYwMTg4NjAzMDUiB25ld0hhc2giC2FsbG93ZWRIYXNoIgtjdXJyZW50SGFzaIUBAAFhAIDC1y8AAWIJALYCAQCAwtcvAAFjCQC2AgEAgICQu7rWrfANAAFkCQC2AgEAAAABZQkAtgIBAAAAAWYJALYCAQABAAFnCQC2AgEAAgABaAkAtgIBAAMAAWkJALYCAQAEAAFqCQC2AgEJAGUCBQFhCQBpAgkAaAIFAWEAAQUBYQABawIFV0FWRVMAAWwAMgABbQIDMTAwAAFuAgExAAFvAgJfXwABcAIAAAFxAAEAAXIAAgABcwADAAF0AAQAAXUAAQABdgACAAF3AAMAAXgABAABeQAFAAF6AAYAAUEABwABQgAIAAFDAAkAAUQAAQABRQAGAAFGAAcAAUcACgABSAkAawMACgUBYQCQTgEBSQIBSgFLCQC8AgMJALYCAQUBSgUBYwkAtgIBBQFLAQFMAgFKAUsJALwCAwUBSgUBYwUBSwEBTQIBTgFPCQCgAwEJALwCAwUBTgkAtgIBBQFPBQFjAQFQAwFOAU8BUQkAoAMBCQC9AgQFAU4JALYCAQUBTwUBYwUBUQEBUgIBSgFLCQC8AgMFAUoFAWMJALYCAQUBSwEBUwIBTgFPCQC8AgMFAU4JALYCAQUBTwUBYwEBVAMBVQFWAVcJAGsDBQFVBQFWBQFXAQFYAQFOAwkAvwICBQFkBQFOCQC+AgEFAU4FAU4BAVkBAU4DCQC/AgIFAWQFAU4JAL4CAQUBTgUBTgEBWgACEyVzX19mYWN0b3J5Q29udHJhY3QBAmFhAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBAmFiAAIXJXNfX21hbmFnZXJWYXVsdEFkZHJlc3MBAmFjAAIRJXMlc19fcHJpY2VfX2xhc3QBAmFkAgJhZQJhZgkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAmFlCQDMCAIJAKQDAQUCYWYFA25pbAUBbwECYWcCAmFoAmFpCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUCYWgCAl9fBQJhaQECYWoCAmFoAmFpCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX0dfXwUCYWgCAl9fBQJhaQECYWsAAg8lc19fYW1vdW50QXNzZXQBAmFsAAIOJXNfX3ByaWNlQXNzZXQBAmFtAAIHJXNfX2FtcAECYW4BAmFvCQCsAgICCyVzJWRfX2FtcF9fCQCkAwEFAmFvAQJhcAACFSVzX19jaGFuZ2VBbXBMYXN0Q2FsbAACYXECByVzX19mZWUAAmFyCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAmFxBQFIAAJhcwkAuQkCCQDMCAICAiVzCQDMCAICA2RMcAUDbmlsBQFvAAJhdAkAuQkCCQDMCAICAiVzCQDMCAICEmRMcFJlZnJlc2hlZEhlaWdodAUDbmlsBQFvAAJhdQkAuQkCCQDMCAICAiVzCQDMCAICD3JlZnJlc2hETHBEZWxheQUDbmlsBQFvAAJhdgAeAAJhdwkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQJhdQUCYXYBAmF4AAIRJXNfX2ZhY3RvcnlDb25maWcBAmF5AAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhegICYUECYUIJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmFBAgJfXwUCYUICCF9fY29uZmlnAQJhQwECYUQJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYUQBAmFFAAIMJXNfX3NodXRkb3duAQJhRgACHSVzX19hbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoAQJhRwACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhSAECYUkJAKwCAgIbJXMlc19fc2tpcE9yZGVyVmFsaWRhdGlvbl9fBQJhSQECYUoEAmFLAmFMAmFNAmFOCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICJG9yZGVyIHZhbGlkYXRpb24gZmFpbGVkOiBvcmRlclZhbGlkPQkApQMBBQJhSwICICgFAmFMAgEpAg0gc2VuZGVyVmFsaWQ9CQClAwEFAmFNAg4gbWF0Y2hlclZhbGlkPQkApQMBBQJhTgECYU8BAmFQBAJhUQkApggBBQJhUAMJAAECBQJhUQIHQWRkcmVzcwQCYVIFAmFRBQJhUgUEdGhpcwECYVMABAJhVAQCYVEJAKIIAQkBAVoAAwkAAQIFAmFRAgZTdHJpbmcEAmFVBQJhUQkBAmFPAQUCYVUFBHRoaXMEAmFRCQCdCAIFAmFUCQECYWIAAwkAAQIFAmFRAgZTdHJpbmcEAmFWBQJhUQkBAmFPAQUCYVYFBHRoaXMBAmFXAgJhWAJhWQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmFYBQJhWQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhWAkAzAgCAgEuCQDMCAIFAmFZCQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmFaAgJhWAJhWQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmFYBQJhWQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhWAkAzAgCAgEuCQDMCAIFAmFZCQDMCAICDCBub3QgZGVmaW5lZAUDbmlsAgABAmJhAQJiYgkAAgEJALkJAgkAzAgCAg9scF9zdGFibGUucmlkZToJAMwIAgUCYmIFA25pbAIBIAECYmMBAmJiCQC5CQIJAMwIAgIPbHBfc3RhYmxlLnJpZGU6CQDMCAIFAmJiBQNuaWwCASAAAmFVCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYVcCBQR0aGlzCQEBWgAAAmJkCgACYmUJAPwHBAUCYVUCEGdldEluRmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJiZQIDSW50BQJiZQkAAgEJAKwCAgkAAwEFAmJlAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmJmCgACYmUJAPwHBAUCYVUCEWdldE91dEZlZVJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYmUCA0ludAUCYmUJAAIBCQCsAgIJAAMBBQJiZQIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AAJiZwkBAmFXAgUEdGhpcwkBAmFtAAECYmgACQELdmFsdWVPckVsc2UCCQCbCAIFAmFVCQECYUUABwECYmkACQDZBAEJAQJhVwIFAmFVCQECYXkAAAJiagkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmFXAgUCYVUJAQJhRwABAmJrAAQCYmwJAQJhVwIFBHRoaXMJAQJhawAEAmJtCQECYVcCBQR0aGlzCQECYWwABAJibgkBAmFaAgUCYVUJAQJhQwEFAmJtBAJhQQkBAmFaAgUCYVUJAQJhQwEFAmJsCQC1CQIJAQJhVwIFAmFVCQECYXoCCQCkAwEFAmFBCQCkAwEFAmJuBQFvAQJibwECYnADCQAAAgUCYnAFAWsFBHVuaXQJANkEAQUCYnABAmJxAQJicAMJAAACBQJicAUEdW5pdAUBawkA2AQBCQEFdmFsdWUBBQJicAECYnIBAmJzCQCZCgcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYnMFAXUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJicwUBdgkA2QQBCQCRAwIFAmJzBQF3CQECYm8BCQCRAwIFAmJzBQF4CQECYm8BCQCRAwIFAmJzBQF5CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYnMFAXoJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJicwUBQQACYnQJAQJicgEJAQJiawAAAmJ1BQJidAACYnYIBQJidQJfMQACYncIBQJidQJfMgACYngIBQJidQJfMwACYnkIBQJidQJfNAACYnoIBQJidQJfNQACYkEIBQJidQJfNgACYkIIBQJidQJfNwECYkMACQC1CQIJAQJhVwIFAmFVCQECYXgABQFvAAJiRAkBAmJDAAACYkUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJEBQFEAiBJbnZhbGlkIHN0YWtpbmcgY29udHJhY3QgYWRkcmVzcwACYkYJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJEBQFGAiBJbnZhbGlkIHNsaXBhZ2UgY29udHJhY3QgYWRkcmVzcwACYkcJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJEBQFHAhxJbnZhbGlkIGd3eCBjb250cmFjdCBhZGRyZXNzAAJiSAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYkQFAUUCHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MBAmJJCgJiSgJiSwJiTAJiTQJiTgJiTwJiUAJiUQJiUgJiUwkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYkoJAMwIAgkApAMBBQJiSwkAzAgCCQCkAwEFAmJMCQDMCAIJAKQDAQUCYk0JAMwIAgkApAMBBQJiTgkAzAgCCQCkAwEFAmJPCQDMCAIJAKQDAQUCYlAJAMwIAgkApAMBBQJiUQkAzAgCCQCkAwEFAmJSCQDMCAIJAKQDAQUCYlMFA25pbAUBbwECYlQGAmJVAmJWAmJXAmJNAmJQAmJRCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYlUJAMwIAgkApAMBBQJiVgkAzAgCCQCkAwEFAmJXCQDMCAIJAKQDAQUCYk0JAMwIAgkApAMBBQJiUAkAzAgCCQCkAwEFAmJRBQNuaWwFAW8BAmJYAQJiWQMJAAACBQJiWQIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYlkBAmJaAgJjYQJjYgkAvAIDBQJjYQUBYwUCY2IBAmNjAwJjYQJjYgFRCQC9AgQFAmNhBQFjBQJjYgUBUQECY2QDAmNlAmNmAmNnBAJjaAkAvAIDCQC4AgIFAmNlBQJjZgUBYgUCY2YEAmNpCQC/AgIJALgCAgUCY2cJAQFYAQUCY2gFAWQDCQEBIQEFAmNpCQACAQkArAICAgpCaWcgc2xwZzogCQCmAwEFAmNoCQCUCgIFAmNpCQCZAwEJAMwIAgUCY2UJAMwIAgUCY2YFA25pbAECY2oDAmNrAmNsAmNtBAJjaAkAvAIDBQJjbAUBYgUCY2sEAmNuCQC/AgIFAmNtBQJjaAMDBQJjbgYJAL8CAgUCY2wFAmNrCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApgMBBQJjbAIBIAkApgMBBQJjawIBIAkApgMBBQJjaAIBIAkApgMBBQJjbQUCY24BAmNvBAJjcAJjcQJjcgJjcwQCY3QJAQFJAgUCY3IFAmNwBAJjdQkBAUkCBQJjcwUCY3EJAQJiWgIFAmN1BQJjdAECY3YDAmNyAmNzAmN3BAJjeAUCYkEEAmN5BQJiQgQCY3oJAQJjbwQFAmN4BQJjeQUCY3IFAmNzBAJjYgkBAUkCBQJjcgUCY3gEAmNhCQEBSQIFAmNzBQJjeQQCY0EJAQFJAgUCY3cFAWEEAmNCCQECYloCBQJjYgUCY0EEAmNDCQECYloCBQJjYQUCY0EJAMwIAgUCY3oJAMwIAgUCY0IJAMwIAgUCY0MFA25pbAECY0QDAmNyAmNzAmN3BAJjRQkBAmN2AwUCY3IFAmNzBQJjdwkAzAgCCQEBTQIJAJEDAgUCY0UAAAUBYQkAzAgCCQEBTQIJAJEDAgUCY0UAAQUBYQkAzAgCCQEBTQIJAJEDAgUCY0UAAgUBYQUDbmlsAQJjRgICY0cCYXIEAmNIAwkAAAIFAmFyAAAAAAkAawMFAmNHBQJhcgUBYQkAlAoCCQBlAgUCY0cFAmNIBQJjSAECY0kBAmNKBAJjSwkAkQMCBQJjSgAABAJjTAkAkQMCBQJjSgABBAJhVgkAtwICBQJjSwUCY0wDCQAAAgUCYVYFAWUFAWUEAmFSCQENcGFyc2VJbnRWYWx1ZQEFAmJnBAJjTQkAaAIFAmFSAAIEAmNFCQC8AgMFAmNLBQJjTAUBZgQCY04JALwCAwUCY0UFAWkFAWYEAmNPCQC8AgMJALYCAQUCY00FAmFWBQFmBAJjUAkAtgIBCQBlAgUCY00AAQoBAmNRAQJjUgQCY1MJALwCAwUCY1IFAmNSBQFmBAJjVAkAvAIDBQJjUwUCY1IFAWYEAmNVCQC8AgMFAmNUBQFmBQJjTgkAvAIDCQC3AgIFAmNPCQC8AgMFAmNVBQFnBQFmBQJjUgkAtwICCQC8AgMFAmNQBQJjUgUBZgkAvAIDBQFoBQJjVQUBZgoBAmNWAgJjVwJjWAMIBQJjVwJfMgUCY1cEAmNSCAUCY1cCXzEEAmNZCQECY1EBBQJjUgQCY1oJALgCAgUCY1kJAQV2YWx1ZQEFAmNSBAJkYQMJAL8CAgUBZQUCY1oJAL4CAQUCY1oFAmNaAwkAwAICBQFmBQJkYQkAlAoCBQJjWQYJAJQKAgUCY1kHBAJkYgkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgkAzAgCAA8JAMwIAgAQBQNuaWwEAmRjCgACZGQFAmRiCgACZGUJAJADAQUCZGQKAAJkZgkAlAoCBQJhVgcKAQJkZwICZGgCZGkDCQBnAgUCZGkFAmRlBQJkaAkBAmNWAgUCZGgJAJEDAgUCZGQFAmRpCgECZGoCAmRoAmRpAwkAZwIFAmRpBQJkZQUCZGgJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNwkBAmRqAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgUCZGYAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEEAmNSCAUCZGMCXzEEAmRrCAUCZGMCXzIDBQJkawUCY1IJAAIBCQCsAgICGUQgY2FsY3VsYXRpb24gZXJyb3IsIEQgPSAJAKYDAQUCY1IBAmRsBAJkbQJkbgJkbwJkcAQCZHEFAmJ4BAJkcgkA2AQBCQEFdmFsdWUBBQJieQQCZHMJANgEAQkBBXZhbHVlAQUCYnoEAmR0BQJiQQQCZHUFAmJCBAJkdgkApAMBBQJidwQCZHcICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCZHECC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgkA2AQBBQJkcQUCZG4JAAIBAg9Xcm9uZyBwbXQgYXNzZXQEAmR4CQECYlgBBQJkcgQCZHkJAQFJAgUCZHgFAmR0BAJkegkBAmJYAQUCZHMEAmRBCQEBSQIFAmR6BQJkdQQCZEIJAQJiWgIFAmRBBQJkeQQCZEMJAQFNAgUCZEIFAWEEAmRECQEBSQIFAmRvBQFhBAJkRQkBAUkCBQJkdwUBYQQCZEYJALwCAwUCZHkFAmREBQJkRQQCZEcJALwCAwUCZEEFAmREBQJkRQQCZEgJAQFQAwUCZEYFAmR0BQVGTE9PUgQCZEkJAQFQAwUCZEcFAmR1BQVGTE9PUgQCZEoDCQAAAgUCZG0CAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmRwBQJkSAMJAAACBQJkcgIFV0FWRVMFBHVuaXQJANkEAQUCZHIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCZHAFAmRJAwkAAAIFAmRzAgVXQVZFUwUEdW5pdAkA2QQBBQJkcwkAzAgCCQELU3RyaW5nRW50cnkCCQECYWoCCQClCAEFAmRwBQJkbQkBAmJUBgUCZEgFAmRJBQJkbwUCZEMFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhYwAFAmRDCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYWQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJkQwUDbmlsCQCcCgoFAmRIBQJkSQUCZHIFAmRzBQJkeAUCZHoFAmR3BQJkQgUCZHYFAmRKAQJkSw0CZG0CY2cCZEwCZE0CZE4CZE8CZHACZFACZFECZFICZFMCZFQCZFUEAmRxBQJieAQCZFYJANgEAQkBBXZhbHVlAQUCYnkEAmRXCQDYBAEJAQV2YWx1ZQEFAmJ6BAJkWAUCYkEEAmRZBQJiQgQCZHYJAKQDAQUCYncEAmRaCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmRxAghXciBscCBhcwhxdWFudGl0eQQCZHgDBQJkUAkBAmJYAQUCZFYDAwUCZFIJAAACBQJkVQUCZFYHCQBlAgkBAmJYAQUCZFYFAmRUAwUCZFIJAQJiWAEFAmRWCQBlAgkBAmJYAQUCZFYFAmRMBAJkegMFAmRQCQECYlgBBQJkVwMDBQJkUgkAAAIFAmRVBQJkVwcJAGUCCQECYlgBBQJkVwUCZFQDBQJkUgkBAmJYAQUCZFcJAGUCCQECYlgBBQJkVwUCZE4EAmVhCQEBSQIFAmRMBQJkWAQCZWIJAQFJAgUCZE4FAmRZBAJlYwkBAmJaAgUCZWIFAmVhBAJkeQkBAUkCBQJkeAUCZFgEAmRBCQEBSQIFAmR6BQJkWQQCY2wJAQJjSQEJAMwIAgUCZHkJAMwIAgUCZEEFA25pbAQCZWQDCQAAAgUCZFoAAAQCY2sJAQJjSQEJAMwIAgkAtwICBQJkeQUCZWEJAMwIAgkAtwICBQJkQQUCZWIFA25pbAQCZWUDCQC/AgIFAmNrBQJjbAYJAAIBAhxEMSBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIEQwAwkAAAIFAmVlBQJlZQQCZEIFAWQEAmVmBQFkBAJjQQUCY2sJAJcKBQkBAU0CBQJjQQUBYQkBAU0CBQJlYQUCZFgJAQFNAgUCZWIFAmRZCQECYloCCQC3AgIFAmRBBQJlYgkAtwICBQJkeQUCZWEFAmVmCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBAJkQgkBAmJaAgUCZEEFAmR5BAJlZwkAvAIDCQEBWAEJALgCAgUCZEIFAmVjBQFjBQJkQgQCZWYJAQFJAgUCY2cFAWEDAwMFAmRTCQECIT0CBQJkQgUBZAcJAL8CAgUCZWcFAmVmBwkAAgEJAKwCAgkArAICCQCsAgICD1ByaWNlIHNsaXBwYWdlIAkApgMBBQJlZwIDID4gCQCmAwEFAmVmBAJlaAkBAUkCBQJkWgUBYQQCZWkJAL0CBAUCZWEJAQJjYwMFAmRBBQJkeQUHQ0VJTElORwUBYwUHQ0VJTElORwQCZWoJAL0CBAUCZWIFAWMJAQJjYwMFAmRBBQJkeQUFRkxPT1IFB0NFSUxJTkcEAmVrAwkAvwICBQJlaQUCZWIJAJQKAgUCZWoFAmViCQCUCgIFAmVhBQJlaQQCZWwIBQJlawJfMQQCZW0IBQJlawJfMgQCY2sJAQJjSQEJAMwIAgkAtwICBQJkeQUCZWwJAMwIAgkAtwICBQJkQQUCZW0FA25pbAQCZWUDCQC/AgIFAmNrBQJjbAYJAAIBAhxEMSBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIEQwAwkAAAIFAmVlBQJlZQQCY0EJALwCAwUCZWgJALgCAgUCY2sFAmNsBQJjbAkAlwoFCQEBUAMFAmNBBQFhBQVGTE9PUgkBAVADBQJlbAUCZFgFB0NFSUxJTkcJAQFQAwUCZW0FAmRZBQdDRUlMSU5HBQJkQgUCZWYJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAmVuCAUCZWQCXzEEAmVvCAUCZWQCXzIEAmVwCAUCZWQCXzMEAmRDCQEBTQIIBQJlZAJfNAUBYQQCZXEJAQFNAggFAmVkAl81BQFhAwkAZwIAAAUCZW4JAAIBAgdMUCA8PSAwBAJlcgMJAQEhAQUCZFEAAAUCZW4EAmVzCQBlAgUCZEwFAmVvBAJldAkAZQIFAmROBQJlcAQCZXUDAwUCZFIJAAACBQJkVQUCZFYHCQCUCgIFAmRUAAADAwUCZFIJAAACBQJkVQUCZFcHCQCUCgIAAAUCZFQJAJQKAgUCZW8FAmVwBAJldggFAmV1Al8xBAJldwgFAmV1Al8yBAJleAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFjAAUCZEMJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhZAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmRDCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhZwIFAmRwBQJkbQkBAmJJCgUCZXYFAmV3BQJlcgUCZEMFAmNnBQJlcQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZXMFAmV0BQNuaWwJAJ8KDQUCZW4FAmVyBQJkQwUCZHgFAmR6BQJkWgUCZHEFAmR2BQJleAUCZXMFAmV0BQJkTQUCZE8BAmV5AwJjSgJjWAJlegQCZUEFAWcEAmVCCQCRAwIFAmNKAwkAAAIFAmNYAAAAAQAABAJlQwkApwMBBQFtBAJhUgkAuQICCQCnAwEFAmJnBQJlQwQCYVYFAmVCBAJjTQkAuQICBQJhUgUCZUEEAmVECQC6AgIJALkCAgkAuQICCQC6AgIJALkCAgUCZXoFAmV6CQC5AgIFAmVCBQJlQQUCZXoFAmVDCQC5AgIFAmNNBQJlQQQCZUUJALgCAgkAtwICBQJhVgkAugICCQC5AgIFAmV6BQJlQwUCY00FAmV6CgECY1YCAmNXAmVGBAJlRwUCY1cEAmVICAUCZUcCXzEEAmRrCAUCZUcCXzIDCQECIT0CBQJkawUEdW5pdAUCY1cEAmVJCQC6AgIJALcCAgkAuQICBQJlSAUCZUgFAmVECQC3AgIJALkCAgUBZwUCZUgFAmVFBAJlSgkBAVkBCQC4AgIFAmVJCQEFdmFsdWUBBQJlSAMJAMACAgUBZgUCZUoJAJQKAgUCZUkFAmVGCQCUCgIFAmVJBQR1bml0BAJkYgkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQkAzAgCAAYJAMwIAgAHCQDMCAIACAkAzAgCAAkJAMwIAgAKCQDMCAIACwkAzAgCAAwJAMwIAgANCQDMCAIADgUDbmlsBAJlSwoAAmRkBQJkYgoAAmRlCQCQAwEFAmRkCgACZGYJAJQKAgUCZXoFBHVuaXQKAQJkZwICZGgCZGkDCQBnAgUCZGkFAmRlBQJkaAkBAmNWAgUCZGgJAJEDAgUCZGQFAmRpCgECZGoCAmRoAmRpAwkAZwIFAmRpBQJkZQUCZGgJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBAmRqAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgkBAmRnAgUCZGYAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQCZUgIBQJlSwJfMQQCZGsIBQJlSwJfMgMJAQIhPQIFAmRrBQR1bml0BQJlSAkAAgEJAKwCAgIZWSBjYWxjdWxhdGlvbiBlcnJvciwgWSA9IAkApgMBBQJlSAECZUwDAmVNAmVOAmVPBAJlUAkAvAIDCQECY0kBCQDMCAIJAQFMAgUCZU0JALYCAQUCYkEJAMwIAgkBAUwCBQJlTgkAtgIBBQJiQgUDbmlsBQFjBQJlTwMJAAACBQJlTwUBZQUBZQUCZVABAmVRAwJlUgJlUwJlVAQCZVUJALgCAgkAtgIBCQECYlgBCQECYnEBBQJieQUCZVIEAmVWCQC4AgIJALYCAQkBAmJYAQkBAmJxAQUCYnoFAmVTBAJlVwkAuAICCQC2AgEICQEFdmFsdWUBCQDsBwEFAmJ4CHF1YW50aXR5BQJlVAQCZVgJAQJlTAMFAmVVBQJlVgUCZVcFAmVYAQJlWQMCZVoCZmECZVQEAmVVCQBkAgkBAmJYAQkBAmJxAQUCYnkFAmVaBAJlVgkAZAIJAQJiWAEJAQJicQEFAmJ6BQJmYQQCZVcJAGQCCAkBBXZhbHVlAQkA7AcBBQJieAhxdWFudGl0eQUCZVQEAmVQCQECZUwDCQC2AgEFAmVVCQC2AgEFAmVWCQC2AgEFAmVXBAJmYgkAzAgCCQEMSW50ZWdlckVudHJ5AgUCYXQFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCBQJhcwkApgMBBQJlUAUDbmlsCQCUCgIFAmZiBQJlUAECZmMCAmZkAmVQAwkAwAICBQJlUAUCZmQGCQECYmEBAiJ1cGRhdGVkIERMcCBsb3dlciB0aGFuIGN1cnJlbnQgRExwAQJmZQECZmYEAmVVCQECYlgBCQECYnEBBQJieQQCZVYJAQJiWAEJAQJicQEFAmJ6BAJmZwgFAmZmBmFtb3VudAQCZmgJAG4ECAUCZmYGYW1vdW50CAUCZmYFcHJpY2UFAWEFBUZMT09SBAJmaQMJAAACCAUCZmYJb3JkZXJUeXBlBQNCdXkJAJQKAgUCZmcJAQEtAQUCZmgJAJQKAgkBAS0BBQJmZwUCZmgEAmVaCAUCZmkCXzEEAmZhCAUCZmkCXzIDAwMJAQJiaAAGCQAAAgUCYncFAXMGCQAAAgUCYncFAXQJAAIBAg1BZG1pbiBibG9ja2VkAwMJAQIhPQIICAUCZmYJYXNzZXRQYWlyC2Ftb3VudEFzc2V0BQJieQYJAQIhPQIICAUCZmYJYXNzZXRQYWlyCnByaWNlQXNzZXQFAmJ6CQACAQIJV3IgYXNzZXRzBAJmagkApwMBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFAmFzAgEwBAJmawkBAmVZAwUCZVoFAmZhAAAEAmZsCAUCZmsCXzEEAmZtCAUCZmsCXzIEAmZuCQDAAgIFAmZtBQJmagQCZm8JALkJAgkAzAgCAgRkTHA9CQDMCAIJAKYDAQUCZmoJAMwIAgIIIGRMcE5ldz0JAMwIAgkApgMBBQJmbQkAzAgCAhQgYW1vdW50QXNzZXRCYWxhbmNlPQkAzAgCCQCkAwEFAmVVCQDMCAICEyBwcmljZUFzc2V0QmFsYW5jZT0JAMwIAgkApAMBBQJlVgkAzAgCAhkgYW1vdW50QXNzZXRCYWxhbmNlRGVsdGE9CQDMCAIJAKQDAQUCZVoJAMwIAgIYIHByaWNlQXNzZXRCYWxhbmNlRGVsdGE9CQDMCAIJAKQDAQUCZmEJAMwIAgIIIGhlaWdodD0JAMwIAgkApAMBBQZoZWlnaHQFA25pbAIACQCUCgIFAmZuBQJmbwECZnABAmNYAwkBAiE9AgkAkAMBCAUCY1gIcGF5bWVudHMAAQkAAgECCjEgcG1udCBleHAEAmZxCQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABAJkbgkBBXZhbHVlAQgFAmZxB2Fzc2V0SWQEAmRUCAUCZnEGYW1vdW50BAJlZAkBAmRsBAkA2AQBCAUCY1gNdHJhbnNhY3Rpb25JZAkA2AQBBQJkbgUCZFQIBQJjWAZjYWxsZXIEAmRICAUCZWQCXzEEAmRJCAUCZWQCXzIEAmR2CQENcGFyc2VJbnRWYWx1ZQEIBQJlZAJfOQQCZEoIBQJlZANfMTADAwkBAmJoAAYJAAACBQJkdgUBdAkAAgEJAKwCAgIPQWRtaW4gYmxvY2tlZDogCQCkAwEFAmR2CQCXCgUFAmRIBQJkSQUCZFQFAmRuBQJkSgECZnIKAmZzAmFpAmZ0AmZ1AmNnAmRRAmRSAmRTAmRUAmRVBAJlZAkBAmRLDQUCYWkFAmNnCAkBBXZhbHVlAQUCZnQGYW1vdW50CAkBBXZhbHVlAQUCZnQHYXNzZXRJZAgJAQV2YWx1ZQEFAmZ1BmFtb3VudAgJAQV2YWx1ZQEFAmZ1B2Fzc2V0SWQFAmZzCQAAAgUCYWkCAAUCZFEFAmRSBQJkUwUCZFQFAmRVBAJkdgkBDXBhcnNlSW50VmFsdWUBCAUCZWQCXzgDAwMJAQJiaAAGCQAAAgUCZHYFAXIGCQAAAgUCZHYFAXQJAAIBCQCsAgICCEJsb2NrZWQ6CQCkAwEFAmR2BQJlZAECZnYFAmZ3AmRuAmRwAmFpAmZ4BAJkcgkA2AQBCQEFdmFsdWUBBQJieQQCZHMJANgEAQkBBXZhbHVlAQUCYnoEAmRxBQJieAQCZFgFAmJBBAJkWQUCYkIEAmVXCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCZHECEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmZ5AwkAvwICBQJlVwUBZQYJAAIBAiJpbml0aWFsIGRlcG9zaXQgcmVxdWlyZXMgYWxsIGNvaW5zAwkAAAIFAmZ5BQJmeQQCZHgJAQJiWAEFAmRyBAJkegkBAmJYAQUCZHMEAmZ6AwkAAAIFAmFpAgAJAJQKAgUCZHgFAmR6AwkAAAIFAmRuBQJkcgMJAGYCBQJmdwUCZHgJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIJAGUCBQJkeAUCZncFAmR6AwkAAAIFAmRuBQJkcwMJAGYCBQJmdwUCZHoJAAIBAhZpbnZhbGlkIHBheW1lbnQgYW1vdW50CQCUCgIFAmR4CQBlAgUCZHoFAmZ3CQACAQIQd3JvbmcgcG10QXNzZXRJZAQCZkEIBQJmegJfMQQCZkIIBQJmegJfMgQCZkMDCQAAAgUCZG4FAmRyCQCUCgIFAmZ3AAADCQAAAgUCZG4FAmRzCQCUCgIAAAUCZncJAAIBAg9pbnZhbGlkIHBheW1lbnQEAmZECAUCZkMCXzEEAmZFCAUCZkMCXzIEAmZGAwUCZngJAJUKAwgJAQJjRgIFAmZEBQJiZAJfMQgJAQJjRgIFAmZFBQJiZAJfMQgJAQJjRgIFAmZ3BQJiZAJfMgkAlQoDBQJmRAUCZkUAAAQCZkcIBQJmRgJfMQQCZkgIBQJmRgJfMgQCY0gIBQJmRgJfMwQCZkkJAGQCBQJmQQUCZkcEAmZKCQBkAgUCZkIFAmZIBAJjbAkBAmNJAQkAzAgCCQEBSQIFAmZBBQJiQQkAzAgCCQEBSQIFAmZCBQJiQgUDbmlsBAJjawkBAmNJAQkAzAgCCQEBSQIFAmZJBQJiQQkAzAgCCQEBSQIFAmZKBQJiQgUDbmlsBAJlZQMJAL8CAgUCY2sFAmNsBgkBBXRocm93AAMJAAACBQJlZQUCZWUEAmZLCQC9AgQFAmVXCQC4AgIFAmNrBQJjbAUCY2wFBUZMT09SBAJkQwkBAU0CCQECYloCCQEBSQIFAmZKBQJkWQkBAUkCBQJmSQUCZFgFAWEEAmV4CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQECYWMABQJkQwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFkAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZEMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFnAgUCZHAFAmFpCQECYkkKBQJmRAUCZkUJAKADAQUCZksFAmRDAAAAAAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAAAAAAFA25pbAQCZkwJAGsDBQJmQgUBYQUCZkEEAmZNCQBrAwUCZncFAWEJAGQCBQJmTAUBYQQCZk4JAGUCBQJmdwUCZk0EAmZPCQC8AgMFAmVXCQC2AgEFAmZOCQC2AgEFAmZCBAJmUAkAoAMBCQC8AgMJALgCAgUCZksFAmZPBQFiBQJmTwkAlgoECQCgAwEFAmZLBQJleAUCY0gFAmZQCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJmUQYCZlICZlMCZlQCZnMCZlUCZlYEAmRxCQDYBAEJAQV2YWx1ZQEFAmJ4BAJkcgkA2AQBCQEFdmFsdWUBBQJieQQCZHMJANgEAQkBBXZhbHVlAQUCYnoEAmZXBQJiQQQCZlgFAmJCBAJmWQUCYncEAmRwAwkAAAIFAmZzBQJiSAUCZlUFAmZzBAJmcQkBBXZhbHVlAQkAkQMCBQJmVAAABAJkbgkBBXZhbHVlAQgFAmZxB2Fzc2V0SWQEAmRUCAUCZnEGYW1vdW50BAJlWAkBAmVRAwUBZQUBZQUBZQMJAAACBQJlWAUCZVgEAmRtCQDYBAEFAmZWAwkBAiE9AgUCZHEJANgEAQUCZG4JAAIBAghXcm9uZyBMUAQCZHgJAQJiWAEFAmRyBAJkegkBAmJYAQUCZHMEAmZaCgACYmUJAPwHBAUEdGhpcwITZ2V0T25lVGtuVjJSRUFET05MWQkAzAgCBQJmUgkAzAgCBQJkVAUDbmlsBQNuaWwDCQABAgUCYmUCCihJbnQsIEludCkFAmJlCQACAQkArAICCQADAQUCYmUCHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkDCQAAAgUCZloFAmZaBAJjSAgFAmZaAl8yBAJnYQgFAmZaAl8xBAJnYgMDCQBmAgUCZlMAAAkAZgIFAmZTBQJnYQcJAQJiYQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZlMFA25pbAIABQJnYQQCZ2MDCQAAAgUCZlIFAmRyCQCWCgQFAmdiAAAJAGUCCQBlAgUCZHgFAmdiBQJjSAUCZHoDCQAAAgUCZlIFAmRzCQCWCgQAAAUCZ2IFAmR4CQBlAgkAZQIFAmR6BQJnYgUCY0gJAAIBAhRpbnZhbGlkIG91dCBhc3NldCBpZAQCZ2QIBQJnYwJfMQQCZ2UIBQJnYwJfMgQCZkkIBQJnYwJfMwQCZkoIBQJnYwJfNAQCZ2YJAQJiWgIJAQFJAgUCZkoFAmZYCQEBSQIFAmZJBQJmVwQCZ2cJAQFNAgUCZ2YFAWEEAmdoAwkAAAIFAmZSAgVXQVZFUwUEdW5pdAkA2QQBBQJmUgQCZ2kDCQBmAgUCY0gAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiagUCY0gFAmdoBQNuaWwFA25pbAQCZEoJAM4IAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJkcAUCZ2IFAmdoCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhagIJAKUIAQUCZHAFAmRtCQECYlQGBQJnZAUCZ2UFAmRUBQJnZwUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAmFjAAUCZ2cJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhZAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmdnBQNuaWwFAmdpAwkAAAIFAmRKBQJkSgQCZ2oJAPwHBAUCYVUCBGJ1cm4JAMwIAgUCZFQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZG4FAmRUBQNuaWwDCQAAAgUCZ2oFAmdqBAJnawQCZ2wDCQAAAgUEdGhpcwUCYmoAAAUCY0gEAmdtAwkAAAIJAQJibwEFAmZSBQJieQYHAwUCZ20JAJQKAgkBAS0BCQBkAgUCZ2EFAmdsAAAJAJQKAgAACQEBLQEJAGQCBQJnYQUCZ2wEAmVaCAUCZ2sCXzEEAmZhCAUCZ2sCXzIEAmduCQECZVkDBQJlWgUCZmEAAAQCZ28IBQJnbgJfMQQCZVAIBQJnbgJfMgQCZ3AJAQJmYwIFAmVYBQJlUAMJAAACBQJncAUCZ3AJAJQKAgkAzggCBQJkSgUCZ28FAmdiCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJncQAEAmdyCQECYVMABAJhUQkAnQgCBQJncgkBAmFhAAMJAAECBQJhUQIGU3RyaW5nBAJhVgUCYVEJANkEAQUCYVYDCQABAgUCYVECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgACZ3MJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAECZ3QBAmNYBAJhUQkBAmdxAAMJAAECBQJhUQIKQnl0ZVZlY3RvcgQCZ3UFAmFRCQAAAggFAmNYD2NhbGxlclB1YmxpY0tleQUCZ3UDCQABAgUCYVECBFVuaXQJAAACCAUCY1gGY2FsbGVyBQR0aGlzCQACAQILTWF0Y2ggZXJyb3IBAmd2AQJjWAQCYVEJAQJncQADCQABAgUCYVECCkJ5dGVWZWN0b3IEAmd1BQJhUQMJAAACCAUCY1gPY2FsbGVyUHVibGljS2V5BQJndQYFAmdzAwkAAQIFAmFRAgRVbml0AwkAAAIIBQJjWAZjYWxsZXIFBHRoaXMGBQJncwkAAgECC01hdGNoIGVycm9yAQJndwMCZ3gCZXoCZ3kEAmJzCQECYmsABAJkcgkAkQMCBQJicwUBeAQCZHMJAJEDAgUCYnMFAXkEAmVBBQFnBAJlQwkApwMBBQFtBAJhUgkAuQICCQCnAwEFAmJnBQJlQwQCY0oDCQAAAgUCZ3gHCQDMCAIJALcCAgkAtgIBCQECYlgBBQJkcgUCZ3kJAMwIAgkAtgIBCQECYlgBBQJkcwUDbmlsCQDMCAIJALcCAgkAtgIBCQECYlgBBQJkcwUCZ3kJAMwIAgkAtgIBCQECYlgBBQJkcgUDbmlsBAJlQgkAkQMCBQJjSgAABAJhVgUCZUIEAmNNCQC5AgIFAmFSBQJlQQQCZUQJALoCAgkAuQICCQC5AgIJALoCAgkAuQICBQJlegUCZXoJALkCAgUCZUIFAmVBBQJlegUCZUMJALkCAgUCY00FAmVBBAJlRQkAuAICCQC3AgIFAmFWCQC6AgIJALkCAgUCZXoFAmVDBQJjTQUCZXoKAQJjVgICY1cCZUYEAmd6BQJjVwQCZUgIBQJnegJfMQQCZGsIBQJnegJfMgMJAQIhPQIFAmRrBQR1bml0BQJjVwQCZUkJALoCAgkAtwICCQC5AgIFAmVIBQJlSAUCZUQJALcCAgkAuQICBQFnBQJlSAUCZUUEAmVKCQEBWQEJALgCAgUCZUkJAQV2YWx1ZQEFAmVIAwkAwAICBQFmBQJlSgkAlAoCBQJlSQUCZUYJAJQKAgUCZUkFBHVuaXQEAmRiCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOBQNuaWwEAmdBCgACZGQFAmRiCgACZGUJAJADAQUCZGQKAAJkZgkAlAoCBQJlegUEdW5pdAoBAmRnAgJkaAJkaQMJAGcCBQJkaQUCZGUFAmRoCQECY1YCBQJkaAkAkQMCBQJkZAUCZGkKAQJkagICZGgCZGkDCQBnAgUCZGkFAmRlBQJkaAkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE1CQECZGoCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCCQECZGcCBQJkZgAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPBAJlSAgFAmdBAl8xBAJkawgFAmdBAl8yAwkBAiE9AgUCZGsFBHVuaXQFAmVICQACAQkArAICAhlZIGNhbGN1bGF0aW9uIGVycm9yLCBZID0gCQCmAwEFAmVIAQJnQgAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYVUJAQJhSAEJAKUIAQUEdGhpcwcbAmNYASFjYWxjdWxhdGVBbW91bnRPdXRGb3JTd2FwUkVBRE9OTFkDAmdDAmd4AmdEBAJnRQMJAAACBQJneAcEAmdGCQECYVcCBQR0aGlzCQECYWwABAJneQkAtwICCQC2AgEJAQJiWAEJAQJhVwIFBHRoaXMJAQJhawAJALYCAQUCZ0MJAJQKAgUCZ0YFAmd5BAJnRgkBAmFXAgUEdGhpcwkBAmFrAAQCZ3kJALcCAgkAtgIBCQECYlgBCQECYVcCBQR0aGlzCQECYWwACQC2AgEFAmdDCQCUCgIFAmdGBQJneQQCZ0YIBQJnRQJfMQQCZ3kIBQJnRQJfMgQCYnMJAQJiawAEAmRyCQCRAwIFAmJzBQF4BAJkcwkAkQMCBQJicwUBeQQCY0oJAMwIAgkAtgIBCQECYlgBBQJkcgkAzAgCCQC2AgEJAQJiWAEFAmRzBQNuaWwEAmV6CQECY0kBBQJjSgQCZUgJAQJndwMFAmd4BQJlegkAtgIBBQJnQwQCZ0cJALgCAgkAuAICCQC2AgEJAQJiWAEFAmdGBQJlSAkAtgIBAAEEAmdICQCWAwEJAMwIAgAACQDMCAIJAKADAQUCZ0cFA25pbAQCZ0kDCQAAAgUCZ3gHCQDMCAIJALcCAgkAtwICCQC2AgEJAQJiWAEFAmRyCQC2AgEFAmdDCQC2AgEFAmdECQDMCAIJALgCAgkAtgIBCQECYlgBBQJkcwUCZ0cFA25pbAkAzAgCCQC4AgIJALYCAQkBAmJYAQUCZHIFAmdHCQDMCAIJALcCAgkAtwICCQC2AgEJAQJiWAEFAmRzCQC2AgEFAmdDCQC2AgEFAmdEBQNuaWwEAmdKCQECY0kBBQJnSQQCZWUDCQDAAgIFAmdKBQJlegYJAAIBCQC5CQIJAMwIAgIUbmV3IEQgaXMgZmV3ZXIgZXJyb3IJAMwIAgkApgMBBQJlegkAzAgCCQCmAwEFAmdKBQNuaWwCAl9fAwkAAAIFAmVlBQJlZQkAlAoCBQNuaWwFAmdICQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNYASZjYWxjdWxhdGVBbW91bnRPdXRGb3JTd2FwQW5kU2VuZFRva2VucwUCZ0MCZ3gCZ0sCZ0wCZ0QEAmdNCgACYmUJAPwHBAUCYVUCF2dldFN3YXBDb250cmFjdFJFQURPTkxZBQNuaWwFA25pbAMJAAECBQJiZQIGU3RyaW5nBQJiZQkAAgEJAKwCAgkAAwEFAmJlAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEAmdOCgACYmUJAPwHBAUCYVUCGmlzUG9vbFN3YXBEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYmUCB0Jvb2xlYW4FAmJlCQACAQkArAICCQADAQUCYmUCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmdPAwMJAQJiaAAGCQAAAgUCYncFAXQGBQJnTgQCZ1AJAMwIAgMDCQEBIQEFAmdPBgkBAmd0AQUCY1gGCQECYmEBAiJzd2FwIG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQBnAggJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAAGYW1vdW50BQJnQwYJAQJiYQECDFdyb25nIGFtb3VudAkAzAgCAwkAAAIIBQJjWAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAmdNBgkBAmJhAQIRUGVybWlzc2lvbiBkZW5pZWQFA25pbAMJAAACBQJnUAUCZ1AEAmZxCQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABAJnUQkBAmJxAQgFAmZxB2Fzc2V0SWQEAmdSAwkAAAIFAmd4BwQCZ0YJAQJhVwIFBHRoaXMJAQJhbAAEAmd5CQBlAgkBAmJYAQUCZ1EICQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABmFtb3VudAkAlAoCBQJnRgUCZ3kEAmdGCQECYVcCBQR0aGlzCQECYWsABAJneQkAZQIJAQJiWAEFAmdRCAkBBXZhbHVlAQkAkQMCCAUCY1gIcGF5bWVudHMAAAZhbW91bnQJAJQKAgUCZ0YFAmd5BAJnRggFAmdSAl8xBAJneQgFAmdSAl8yBAJicwkBAmJrAAQCZHIJAJEDAgUCYnMFAXgEAmRzCQCRAwIFAmJzBQF5BAJjSgMJAAACBQJneAcJAMwIAgkAuAICCQC2AgEJAQJiWAEFAmRyCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABmFtb3VudAkAzAgCCQC2AgEJAQJiWAEFAmRzBQNuaWwJAMwIAgkAtgIBCQECYlgBBQJkcgkAzAgCCQC4AgIJALYCAQkBAmJYAQUCZHMJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAAGYW1vdW50BQNuaWwEAmV6CQECY0kBBQJjSgQCZUgJAQJndwMFAmd4BQJlegkAtgIBAAAEAmdHCQC4AgIJALgCAgkAtgIBCQECYlgBBQJnRgUCZUgJALYCAQABBAJnSAkAlgMBCQDMCAIAAAkAzAgCCQCgAwEFAmdHBQNuaWwEAmdTAwkAZwIFAmdIBQJnSwYJAAIBAixFeGNoYW5nZSByZXN1bHQgaXMgZmV3ZXIgY29pbnMgdGhhbiBleHBlY3RlZAMJAAACBQJnUwUCZ1MEAmdJAwkAAAIFAmd4BwkAzAgCCQC3AgIJALYCAQkBAmJYAQUCZHIJALYCAQUCZ0QJAMwIAgkAuAICCQC2AgEJAQJiWAEFAmRzBQJnRwUDbmlsCQDMCAIJALgCAgkAtgIBCQECYlgBBQJkcgUCZ0cJAMwIAgkAtwICCQC2AgEJAQJiWAEFAmRzCQC2AgEFAmdEBQNuaWwEAmdKCQECY0kBBQJnSQQCZWUDCQDAAgIFAmdKBQJlegYJAAIBAhRuZXcgRCBpcyBmZXdlciBlcnJvcgMJAAACBQJlZQUCZWUEAmVaAwUCZ3gJAQEtAQUCZ0gFAmdEBAJmYQMFAmd4BQJnRAkBAS0BBQJnSAQCZ28ICQECZVkDBQJlWgUCZmEAAAJfMQMJAAACBQJnbwUCZ28JAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQJnTAUCZ0gJAQJibwEFAmdGBQNuaWwFAmdICQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNYAQtjb25zdHJ1Y3RvcgEBWgQCZUQJAQJndgEFAmNYAwkAAAIFAmVEBQJlRAkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgAFAVoFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAEDcHV0AgJnVAJnVQQCZ1YJAQJiQwAEAmdXCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJnVgUBRAIKV3Igc3QgYWRkcgQCZ1gJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmdWBQFGAgpXciBzbCBhZGRyAwkAZgIAAAUCZ1QJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmNYCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmdZCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABmFtb3VudAQCZ1oJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAEGYW1vdW50BAJlVQkAuAICCQC2AgEJAQJiWAEJAQJicQEFAmJ5BQJnWQMJAAACBQJlVQUCZVUEAmVWCQC4AgIJALYCAQkBAmJYAQkBAmJxAQUCYnoFAmdaAwkAAAIFAmVWBQJlVgQCZVcJALYCAQgJAQV2YWx1ZQEJAOwHAQUCYngIcXVhbnRpdHkDCQAAAgUCZVcFAmVXBAJlWAkBAmVRAwUCZ1kFAmdaCQC2AgEAAAMJAAACBQJlWAUCZVgEAmhhCQECZnIKCQClCAEIBQJjWAZjYWxsZXIJANgEAQgFAmNYDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCY1gIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCY1gIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmNYCHBheW1lbnRzAAEFAmdUBgcGAAACAAQCZXIIBQJoYQJfMgQCaGIIBQJoYQJfNwQCZEoIBQJoYQJfOQQCZXMIBQJoYQNfMTAEAmV0CAUCaGEDXzExBAJkcggFAmhhA18xMgQCZHMIBQJoYQNfMTMEAmVkCQD8BwQFAmFVAgRlbWl0CQDMCAIFAmVyBQNuaWwFA25pbAMJAAACBQJlZAUCZWQEAmhjBAJhUQUCZWQDCQABAgUCYVECB0FkZHJlc3MEAmhkBQJhUQkA/AcEBQJoZAIEZW1pdAkAzAgCBQJlcgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCaGMFAmhjBAJoZQMJAGYCBQJlcwAACQD8BwQFAmdYAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZHIFAmVzBQNuaWwFA25pbAMJAAACBQJoZQUCaGUEAmhmAwkAZgIFAmV0AAAJAPwHBAUCZ1gCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkcwUCZXQFA25pbAUDbmlsAwkAAAIFAmhmBQJoZgQCaGcDBQJnVQQCaGgJAPwHBAUCZ1cCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmhiBQJlcgUDbmlsAwkAAAIFAmhoBQJoaAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJjWAZjYWxsZXIFAmVyBQJoYgUDbmlsBAJoaQkBAmVZAwAAAAAAAAQCZ28IBQJoaQJfMQQCZVAIBQJoaQJfMgQCaGoDCQDAAgIFAmVQBQJlWAYJAQJiYQEJALkJAgkAzAgCAiJ1cGRhdGVkIERMcCBsb3dlciB0aGFuIGN1cnJlbnQgRExwCQDMCAIJAKYDAQUCZVUJAMwIAgkApgMBBQJlVgkAzAgCCQCmAwEFAmVXCQDMCAIJAKYDAQUCZVgJAMwIAgkApgMBBQJlUAkAzAgCCQCkAwEFAmVzCQDMCAIJAKQDAQUCZXQFA25pbAIBIAMJAAACBQJoagUCaGoEAmhrCAkBBXZhbHVlAQkA7AcBBQJieAhxdWFudGl0eQMJAAACBQJoawUCaGsJAM4IAgkAzggCBQJkSgUCaGcFAmdvCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNYAQtwdXRPbmVUa25WMgICZlMCZ1UEAmhsCgACYmUJAPwHBAUCYVUCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJiZQIHQm9vbGVhbgUCYmUJAAIBCQCsAgIJAAMBBQJiZQIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCaG0DAwMJAQJiaAAGCQAAAgUCYncFAXIGCQAAAgUCYncFAXQGBQJobAQCZ1AJAMwIAgMDCQEBIQEFAmhtBgkBAmd0AQUCY1gGCQECYmEBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJjWAhwYXltZW50cwABBgkBAmJhAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1AFAmdQBAJkcgkA2AQBCQEFdmFsdWUBBQJieQQCZHMJANgEAQkBBXZhbHVlAQUCYnoEAmRxBQJieAQCZlcFAmJBBAJmWAUCYkIEAmRwAwkAAAIIBQJjWAZjYWxsZXIFBHRoaXMIBQJjWAxvcmlnaW5DYWxsZXIIBQJjWAZjYWxsZXIEAmZxCQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABAJkbgkA2AQBCQEFdmFsdWUBCAUCZnEHYXNzZXRJZAQCZFQIBQJmcQZhbW91bnQEAmVYAwkAAAIIBQJmcQdhc3NldElkBQJieQkBAmVRAwkAtgIBBQJkVAkAtgIBAAAJALYCAQAACQECZVEDCQC2AgEAAAkAtgIBBQJkVAkAtgIBAAADCQAAAgUCZVgFAmVYBAJobgkBAmZ2BQUCZFQFAmRuCQClCAEFAmRwCQDYBAEIBQJjWA10cmFuc2FjdGlvbklkBgMJAAACBQJobgUCaG4EAmNICAUCaG4CXzMEAmRKCAUCaG4CXzIEAmhvCAUCaG4CXzEEAmVyAwMJAGYCBQJmUwAACQBmAgUCZlMFAmhvBwkBAmJhAQkAuQkCCQDMCAICH2Ftb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmUwUDbmlsAgAFAmhvBAJoYQkA/AcEBQJhVQIEZW1pdAkAzAgCBQJlcgUDbmlsBQNuaWwDCQAAAgUCaGEFAmhhBAJoYwQCYVEFAmhhAwkAAQIFAmFRAgdBZGRyZXNzBAJoZAUCYVEJAPwHBAUCaGQCBGVtaXQJAMwIAgUCZXIFA25pbAUDbmlsBQR1bml0AwkAAAIFAmhjBQJoYwQCaGcDBQJnVQQCaGgJAPwHBAUCYkUCCHN0YWtlRm9yCQDMCAIJAKUIAQgFAmNYBmNhbGxlcgUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkcQUCZXIFA25pbAMJAAACBQJoaAUCaGgFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCY1gGY2FsbGVyBQJlcgUCZHEFA25pbAQCZ2kDCQBmAgUCY0gAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiagUCY0gJANkEAQUCZG4FA25pbAUDbmlsBAJocAMJAAACBQR0aGlzBQJiagkAlAoCAAAAAAQCaHEDCQAAAggFAmZxB2Fzc2V0SWQFAmJ5BgcDBQJocQkAlAoCCQEBLQEFAmNIAAAJAJQKAgAACQEBLQEFAmNIBAJlWggFAmhwAl8xBAJmYQgFAmhwAl8yBAJocgkBAmVZAwUCZVoFAmZhAAAEAmdvCAUCaHICXzEEAmVQCAUCaHICXzIEAmdwCQECZmMCBQJlWAUCZVADCQAAAgUCZ3AFAmdwCQCUCgIJAM4IAgkAzggCCQDOCAIFAmRKBQJoZwUCZ2kFAmdvBQJlcgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAEKcHV0Rm9yRnJlZQECaHMDCQBmAgAABQJocwkAAgECCldyb25nIHNscGcDCQECIT0CCQCQAwEIBQJjWAhwYXltZW50cwACCQACAQIMMiBwbW50cyBleHBkBAJodAkBAmZyCgkApQgBCAUCY1gGY2FsbGVyCQDYBAEIBQJjWA10cmFuc2FjdGlvbklkCQEPQXR0YWNoZWRQYXltZW50AggJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAAHYXNzZXRJZAgJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAAGYW1vdW50CQCRAwIIBQJjWAhwYXltZW50cwABBQJocwcHBgAAAgAEAmRKCAUCaHQCXzkEAmdZCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJjWAhwYXltZW50cwAABmFtb3VudAQCZ1oJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmNYCHBheW1lbnRzAAEGYW1vdW50BAJlWAkBAmVRAwUCZ1kFAmdaCQC2AgEAAAMJAAACBQJlWAUCZVgEAmh1CQECZVkDAAAAAAAABAJnbwgFAmh1Al8xBAJlUAgFAmh1Al8yBAJncAkBAmZjAgUCZVgFAmVQAwkAAAIFAmdwBQJncAkAzggCBQJkSgUCZ28JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1gBA2dldAAEAmVYCQECZVEDCQC2AgEAAAkAtgIBAAAJALYCAQAAAwkAAAIFAmVYBQJlWAQCZWQJAQJmcAEFAmNYBAJodggFAmVkAl8xBAJkSQgFAmVkAl8yBAJkVAgFAmVkAl8zBAJkbggFAmVkAl80BAJkSggFAmVkAl81BAJlRQkA/AcEBQJhVQIEYnVybgkAzAgCBQJkVAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkbgUCZFQFA25pbAMJAAACBQJlRQUCZUUEAmh3CQECZVkDCQEBLQEFAmh2CQEBLQEFAmRJAAAEAmdvCAUCaHcCXzEEAmVQCAUCaHcCXzIEAmdwCQECZmMCBQJlWAUCZVADCQAAAgUCZ3AFAmdwCQDOCAIFAmRKBQJnbwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAELZ2V0T25lVGtuVjICAmZSAmZTBAJobAoAAmJlCQD8BwQFAmFVAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYmUCB0Jvb2xlYW4FAmJlCQACAQkArAICCQADAQUCYmUCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmh4AwMJAQJiaAAGCQAAAgUCYncFAXQGBQJobAQCZ1AJAMwIAgMDCQEBIQEFAmh4BgkBAmd0AQUCY1gGCQECYmEBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJjWAhwYXltZW50cwABBgkBAmJhAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1AFAmdQBAJoeQkBAmZRBgUCZlIFAmZTCAUCY1gIcGF5bWVudHMIBQJjWAZjYWxsZXIIBQJjWAxvcmlnaW5DYWxsZXIIBQJjWA10cmFuc2FjdGlvbklkBAJkSggFAmh5Al8xBAJnYggFAmh5Al8yCQCUCgIFAmRKBQJnYgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAEKcmVmcmVzaERMcAAEAmh6CQELdmFsdWVPckVsc2UCCQCfCAEFAmF0AAAEAmhBAwkAZwIJAGUCBQZoZWlnaHQFAmh6BQJhdwUEdW5pdAkBAmJhAQkAuQkCCQDMCAIJAKQDAQUCYXcJAMwIAgIvIGJsb2NrcyBoYXZlIG5vdCBwYXNzZWQgc2luY2UgdGhlIHByZXZpb3VzIGNhbGwFA25pbAIAAwkAAAIFAmhBBQJoQQQCZmoJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAqAMBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMFAmFzAgEwCQECYmMBAgtpbnZhbGlkIGRMcAQCaEIJAQJlWQMAAAAAAAAEAmhDCAUCaEICXzEEAmVQCAUCaEICXzIEAmZiAwkBAiE9AgUCZmoFAmVQBQJoQwkBAmJhAQISbm90aGluZyB0byByZWZyZXNoCQCUCgIFAmZiCQCmAwEFAmVQCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNYARNnZXRPbmVUa25WMlJFQURPTkxZAgJmUgJoRAQCZHIJANgEAQkBBXZhbHVlAQUCYnkEAmRzCQDYBAEJAQV2YWx1ZQEFAmJ6BAJkcQkA2AQBCQEFdmFsdWUBBQJieAQCY0oJAMwIAgkAtgIBCQECYlgBBQJkcgkAzAgCCQC2AgEJAQJiWAEFAmRzBQNuaWwEAmVPCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJkcQIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCY2wJAQJjSQEFAmNKBAJjawkAuAICBQJjbAkAvAIDCQC2AgEFAmhEBQJjbAUCZU8EAmhFAwkAAAIFAmZSBQJkcgAAAwkAAAIFAmZSBQJkcwABCQACAQIUaW52YWxpZCBvdXQgYXNzZXQgaWQEAmhGCQECZXkDBQJjSgUCaEUFAmNrBAJnRwkAuAICCQCRAwIFAmNKBQJoRQUCaEYEAmdICQCWAwEJAMwIAgAACQDMCAIJAKADAQkAuAICBQJnRwUBZgUDbmlsBAJoRwkBAmNGAgUCZ0gFAmJmBAJnYQgFAmhHAl8xBAJjSAgFAmhHAl8yCQCUCgIFA25pbAkAlAoCBQJnYQUCY0gCY1gBHGdldE9uZVRrblYyV2l0aEJvbnVzUkVBRE9OTFkCAmZSAmhEBAJkcgkA2AQBCQEFdmFsdWUBBQJieQQCZHMJANgEAQkBBXZhbHVlAQUCYnoEAmRxCQDYBAEJAQV2YWx1ZQEFAmJ4BAJkeAkBAmJYAQUCZHIEAmR6CQECYlgBBQJkcwQCaEgKAAJiZQkA/AcEBQR0aGlzAhNnZXRPbmVUa25WMlJFQURPTkxZCQDMCAIFAmZSCQDMCAIFAmhEBQNuaWwFA25pbAMJAAECBQJiZQIKKEludCwgSW50KQUCYmUJAAIBCQCsAgIJAAMBBQJiZQIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQQCZ2EIBQJoSAJfMQQCY0gIBQJoSAJfMgQCZWQJAQJkbAQCAAUCZHEFAmhEBQR0aGlzBAJkSAgFAmVkAl8xBAJkSQgFAmVkAl8yBAJoSQkAZAIFAmRIBQJkSQQCZlADCQAAAgUCaEkAAAMJAAACBQJnYQAAAAAJAAIBAhdib251cyBjYWxjdWxhdGlvbiBlcnJvcgkAawMJAGUCBQJnYQUCaEkFAWEFAmhJCQCUCgIFA25pbAkAlQoDBQJnYQUCY0gFAmZQAmNYAQlnZXROb0xlc3MCAmhKAmhLBAJlZAkBAmZwAQUCY1gEAmRICAUCZWQCXzEEAmRJCAUCZWQCXzIEAmRUCAUCZWQCXzMEAmRuCAUCZWQCXzQEAmRKCAUCZWQCXzUDCQBmAgUCaEoFAmRICQACAQkArAICCQCsAgIJAKwCAgIJRmFpbGVkOiAgCQCkAwEFAmRIAgMgPCAJAKQDAQUCaEoDCQBmAgUCaEsFAmRJCQACAQkArAICCQCsAgIJAKwCAgIIRmFpbGVkOiAJAKQDAQUCZEkCAyA8IAkApAMBBQJoSwQCZVgJAQJlUQMJALYCAQAACQC2AgEAAAkAtgIBAAADCQAAAgUCZVgFAmVYBAJoTAkA/AcEBQJhVQIEYnVybgkAzAgCBQJkVAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkbgUCZFQFA25pbAMJAAACBQJoTAUCaEwEAmhNCQECZVkDCQEBLQEFAmRICQEBLQEFAmRJAAAEAmdvCAUCaE0CXzEEAmVQCAUCaE0CXzIEAmdwCQECZmMCBQJlWAUCZVADCQAAAgUCZ3AFAmdwCQDOCAIFAmRKBQJnbwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAENdW5zdGFrZUFuZEdldAECY0cEAmhOAwkBAiE9AgkAkAMBCAUCY1gIcGF5bWVudHMAAAkAAgECDU5vIHBtbnRzIGV4cGQGAwkAAAIFAmhOBQJoTgQCaE8JAQJiQwAEAmhiBQJieAQCaFAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmhPBQFEAgpXciBzdCBhZGRyBAJlWAkBAmVRAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlWAUCZVgEAmhRCQD8BwQFAmhQAgd1bnN0YWtlCQDMCAIJANgEAQUCaGIJAMwIAgUCY0cFA25pbAUDbmlsAwkAAAIFAmhRBQJoUQQCZWQJAQJkbAQJANgEAQgFAmNYDXRyYW5zYWN0aW9uSWQJANgEAQUCaGIFAmNHCAUCY1gGY2FsbGVyBAJkSAgFAmVkAl8xBAJkSQgFAmVkAl8yBAJkdgkBDXBhcnNlSW50VmFsdWUBCAUCZWQCXzkEAmRKCAUCZWQDXzEwBAJoUgMDCQECYmgABgkAAAIFAmR2BQF0CQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUCZHYGAwkAAAIFAmhSBQJoUgQCaFMJAPwHBAUCYVUCBGJ1cm4JAMwIAgUCY0cFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCaGIFAmNHBQNuaWwDCQAAAgUCaFMFAmhTBAJoVAkBAmVZAwkBAS0BBQJkSAkBAS0BBQJkSQAABAJnbwgFAmhUAl8xBAJlUAgFAmhUAl8yBAJncAkBAmZjAgUCZVgFAmVQAwkAAAIFAmdwBQJncAkAzggCBQJkSgUCZ28JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CY1gBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmhVAmhWAmhLBAJoeAMJAQJiaAAGCQAAAgUCYncFAXQEAmdQCQDMCAIDCQEBIQEFAmh4BgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmNYCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZ1AFAmdQBAJlWAkBAmVRAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJlWAUCZVgEAmhRCQD8BwQFAmJFAgd1bnN0YWtlCQDMCAIJANgEAQUCYngJAMwIAgUCaFUFA25pbAUDbmlsAwkAAAIFAmhRBQJoUQQCaFcJAQJkbAQJANgEAQgFAmNYDXRyYW5zYWN0aW9uSWQJANgEAQUCYngFAmhVCAUCY1gGY2FsbGVyBAJkSAgFAmhXAl8xBAJkSQgFAmhXAl8yBAJkSggFAmhXA18xMAQCaFgJAMwIAgMJAGcCBQJkSAUCaFYGCQACAQkAuQkCCQDMCAICLGFtb3VudCBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaFYFA25pbAIACQDMCAIDCQBnAgUCZEkFAmhLBgkAAgEJALkJAgkAzAgCAitwcmljZSBhc3NldCBhbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCaEsFA25pbAIABQNuaWwDCQAAAgUCaFgFAmhYBAJoTAkA/AcEBQJhVQIEYnVybgkAzAgCBQJoVQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJieAUCaFUFA25pbAMJAAACBQJoTAUCaEwEAmhZCQECZVkDCQEBLQEFAmRICQEBLQEFAmRJAAAEAmdvCAUCaFkCXzEEAmVQCAUCaFkCXzIEAmdwCQECZmMCBQJlWAUCZVADCQAAAgUCZ3AFAmdwCQDOCAIFAmRKBQJnbwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJjWAEVdW5zdGFrZUFuZEdldE9uZVRrblYyAwJoVQJmUgJmUwQCaGwKAAJiZQkA/AcEBQJhVQIoaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWRSRUFET05MWQkAzAgCCQClCAEFBHRoaXMFA25pbAUDbmlsAwkAAQIFAmJlAgdCb29sZWFuBQJiZQkAAgEJAKwCAgkAAwEFAmJlAhwgY291bGRuJ3QgYmUgY2FzdCB0byBCb29sZWFuBAJoeAMDCQECYmgABgkAAAIFAmJ3BQF0BgUCaGwEAmdQCQDMCAIDAwkBASEBBQJoeAYJAQJndAEFAmNYBgkBAmJhAQIhZ2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluCQDMCAIDCQAAAgkAkAMBCAUCY1gIcGF5bWVudHMAAAYJAQJiYQECGG5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAUDbmlsAwkAAAIFAmdQBQJnUAQCaE8JAQJiQwAEAmhiBQJieAQCaFAJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmhPBQFEAgpXciBzdCBhZGRyBAJkcAgFAmNYBmNhbGxlcgQCaFoFBHRoaXMEAmhRCQD8BwQFAmhQAg91bnN0YWtlSU5URVJOQUwJAMwIAgUCaGIJAMwIAgUCaFUJAMwIAggFAmRwBWJ5dGVzCQDMCAIIBQJoWgVieXRlcwUDbmlsBQNuaWwDCQAAAgUCaFEFAmhRBAJpYQkBAmZRBgUCZlIFAmZTCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJoYgUCaFUFA25pbAgFAmNYBmNhbGxlcggFAmNYDG9yaWdpbkNhbGxlcggFAmNYDXRyYW5zYWN0aW9uSWQEAmRKCAUCaWECXzEEAmdiCAUCaWECXzIJAJQKAgUCZEoFAmdiCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmNYARxwdXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJpYgJpYwQCaWQJAQJmdgUFAmliBQJpYwIAAgAGBAJmSwgFAmlkAl8xBAJkSggFAmlkAl8yBAJjSAgFAmlkAl8zBAJmUAgFAmlkAl80CQCUCgIFA25pbAkAlQoDBQJmSwUCY0gFAmZQAmNYASFwdXRPbmVUa25WMldpdGhvdXRUYWtlRmVlUkVBRE9OTFkCAmliAmljBAJpZQkBAmZ2BQUCaWIFAmljAgACAAcEAmZLCAUCaWUCXzEEAmRKCAUCaWUCXzIEAmNICAUCaWUCXzMEAmZQCAUCaWUCXzQJAJQKAgUDbmlsCQCVCgMFAmZLBQJjSAUCZlACY1gBCGFjdGl2YXRlAgJpZgJpZwMJAQIhPQIJAKUIAQgFAmNYBmNhbGxlcgkApQgBBQJhVQkAAgECBmRlbmllZAkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhawAFAmlmCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhbAAFAmlnCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhbQAJAKQDAQUBbAkAzAgCCQELU3RyaW5nRW50cnkCCQECYW4BBQZoZWlnaHQJAKQDAQUBbAUDbmlsAgdzdWNjZXNzAmNYARxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZAAkAlAoCBQNuaWwJAQJiawACY1gBHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkBAmJZCQCUCgIFA25pbAkBAmJYAQUCYlkCY1gBGWNhbGNQcmljZXNXcmFwcGVyUkVBRE9OTFkDAmNyAmNzAmN3BAJpaAkBAmN2AwUCY3IFAmNzBQJjdwkAlAoCBQNuaWwJAMwIAgkApgMBCQCRAwIFAmloAAAJAMwIAgkApgMBCQCRAwIFAmloAAEJAMwIAgkApgMBCQCRAwIFAmloAAIFA25pbAJjWAEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIBTgJpaQkAlAoCBQNuaWwJAQFNAgkApwMBBQFOBQJpaQJjWAEUdG9YMThXcmFwcGVyUkVBRE9OTFkCAUoBSwkAlAoCBQNuaWwJAKYDAQkBAUkCBQFKBQFLAmNYAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCAmNhAmNiCQCUCgIFA25pbAkApgMBCQECYloCCQCnAwEFAmNhCQCnAwEFAmNiAmNYASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkCZG0CY2cCZEwCZE0CZE4CZE8CaWoCZFACZFEJAJQKAgUDbmlsCQECZEsNBQJkbQUCY2cFAmRMBQJkTQUCZE4FAmRPBQJpagUCZFAFAmRRBgcAAAIAAmNYASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQCZG0CaWsCZG8CaWoEAmVkCQECZGwEBQJkbQUCaWsFAmRvCQERQGV4dHJOYXRpdmUoMTA2MikBBQJpagkAlAoCBQNuaWwJAJwKCggFAmVkAl8xCAUCZWQCXzIIBQJlZAJfMwgFAmVkAl80CAUCZWQCXzUIBQJlZAJfNggFAmVkAl83CQCmAwEIBQJlZAJfOAgFAmVkAl85CAUCZWQDXzEwAmNYAQljaGFuZ2VBbXAABAJpbAkA/AcEBQJhVQIaZ2V0Q2hhbmdlQW1wQ29uZmlnUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAQCaW0EAmFRBQJpbAMJAAECBQJhUQIJTGlzdFtBbnldBAJpbgUCYVEJAJUKAwoAAmJlCQCRAwIFAmluAAADCQABAgUCYmUCA0ludAUCYmUJAAIBCQCsAgIJAAMBBQJiZQIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50CgACYmUJAJEDAgUCaW4AAQMJAAECBQJiZQIDSW50BQJiZQkAAgEJAKwCAgkAAwEFAmJlAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQKAAJiZQkAkQMCBQJpbgACAwkAAQIFAmJlAgNJbnQFAmJlCQACAQkArAICCQADAQUCYmUCGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAkBAmJhAQISaW52YWxpZCBlbnRyeSB0eXBlBAJpbwgFAmltAl8xBAJpcAgFAmltAl8yBAJpcQgFAmltAl8zBAJpcgkBDXBhcnNlSW50VmFsdWUBCQERQGV4dHJOYXRpdmUoMTA1OCkBCQECYW0ABAJpcwkAZAIFAmlyBQJpcAQCaXQDCQBmAgAABQJpcAMJAGYCBQJpcQUCaXMFAmlxBQJpcwMJAGYCBQJpcwUCaXEFAmlxBQJpcwQCaXUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBAmFwAAAABAJpdgkAZAIFAml1BQJpbwQCZ1AJAMwIAgMJAGYCBQZoZWlnaHQFAml2BgkBAmJhAQIXdHJ5IGFnYWluIGluIGZldyBibG9ja3MJAMwIAgMJAQIhPQIFAmlyBQJpdAYJAQJiYQECFmFscmVhZHkgcmVhY2hlZCB0YXJnZXQFA25pbAMJAAACBQJnUAUCZ1AJAMwIAgkBDEludGVnZXJFbnRyeQIJAQJhcAAFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQECYW0ACQCkAwEFAml0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhbgEFBmhlaWdodAkApAMBBQJpdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJpdwECaXgABAJpeQQCYVEJAQJncQADCQABAgUCYVECCkJ5dGVWZWN0b3IEAmd1BQJhUQUCZ3UDCQABAgUCYVECBFVuaXQIBQJpdw9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCYVEFAml3AwkAAQIFAmFRAgVPcmRlcgQCZmYFAmFRBAJpegkBAmJpAAQCaUEDCQECZ0IACQCUCgIGAgAJAQJmZQEFAmZmBAJhSwgFAmlBAl8xBAJhTAgFAmlBAl8yBAJhTQkA9AMDCAUCZmYJYm9keUJ5dGVzCQCRAwIIBQJmZgZwcm9vZnMAAAgFAmZmD3NlbmRlclB1YmxpY0tleQQCYU4JAPQDAwgFAmZmCWJvZHlCeXRlcwkAkQMCCAUCZmYGcHJvb2ZzAAEFAml6AwMDBQJhSwUCYU0HBQJhTgcGCQECYUoEBQJhSwUCYUwFAmFNBQJhTgMJAAECBQJhUQIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmFWBQJhUQMJAPQDAwgFAml3CWJvZHlCeXRlcwkAkQMCCAUCaXcGcHJvb2ZzAAAFAml5BgQCaUIJAPYDAQkBBXZhbHVlAQgFAmFWBnNjcmlwdAQCaUMJANsEAQkBBXZhbHVlAQkAnQgCBQJhVQkBAmFGAAQCaUQJAPEHAQUEdGhpcwMJAAACBQJpQwUCaUIJAQIhPQIFAmlEBQJpQgcJAPQDAwgFAml3CWJvZHlCeXRlcwkAkQMCCAUCaXcGcHJvb2ZzAAAFAml5eBH12Q==",
    "height": 2800980,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GRcFi8nMnpSuK2qCwNkiQC8pSkvtEdqofCaugFZbQnRN
Next: HrUNq8fAZmz84rG89pdDkgQ1Q7ng9kB4imWr4FPrDzNR

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

Old	New		Differences
22	22		let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
23	23
24	24		let wavesString = "WAVES"
	25	+
	26	+	let ampInitial = 50
25	27
26	28		let Amult = "100"
27	29

125	127		func pa () = "%s__priceAsset"
126	128
127	129
128		-	func amp () = makeString(["%s%s", "amp", toString(this)], SEP)
	130	+	func amp () = "%s__amp"
	131	+
	132	+
	133	+	func keyAmpHistory (heightBlocks) = ("%s%d__amp__" + toString(heightBlocks))
	134	+
	135	+
	136	+	func keyChangeAmpLastCall () = "%s__changeAmpLastCall"
129	137
130	138
131	139		let keyFee = "%s__fee"

221	229		else throw(($getType(@) + " couldn't be cast to Int"))
222	230		}
223	231
224		-	let A = strf(~~fca~~, amp())
	232	+	let A = strf(this, amp())
225	233
226	234		func igs () = valueOrElse(getBoolean(fca, aps()), false)
227	235

255	263
256	264		let poolConfigParsed = parsePoolConfig(gpc())
257	265
258		-	let $~~t084928678~~ = poolConfigParsed
	266	+	let $t086088794 = poolConfigParsed
259	267
260		-	let cfgPoolAddress = $~~t084928678~~._1
	268	+	let cfgPoolAddress = $t086088794._1
261	269
262		-	let cfgPoolStatus = $~~t084928678~~._2
	270	+	let cfgPoolStatus = $t086088794._2
263	271
264		-	let cfgLpAssetId = $~~t084928678~~._3
	272	+	let cfgLpAssetId = $t086088794._3
265	273
266		-	let cfgAmountAssetId = $~~t084928678~~._4
	274	+	let cfgAmountAssetId = $t086088794._4
267	275
268		-	let cfgPriceAssetId = $~~t084928678~~._5
	276	+	let cfgPriceAssetId = $t086088794._5
269	277
270		-	let cfgAmountAssetDecimals = $~~t084928678~~._6
	278	+	let cfgAmountAssetDecimals = $t086088794._6
271	279
272		-	let cfgPriceAssetDecimals = $~~t084928678~~._7
	280	+	let cfgPriceAssetDecimals = $t086088794._7
273	281
274	282		func gfc () = split(strf(fca, fcfg()), SEP)
275	283

390	398		}
391	399
392	400		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
393		-	let $~~t01318313231~~ = {
	401	+	let $t01329913347 = {
394	402		let $l = arr
395	403		let $s = size($l)
396	404		let $acc0 = $Tuple2(s, false)

404	412
405	413		$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)
406	414		}
407		-	let d = $~~t01318313231~~._1
408		-	let found = $~~t01318313231~~._2
	415	+	let d = $t01329913347._1
	416	+	let found = $t01329913347._2
409	417		if (found)
410	418		then d
411	419		else throw(("D calculation error, D = " + toString(d)))

539	547		else calcLpAmt
540	548		let amDiff = (inAmAmt - calcAmAssetPmt)
541	549		let prDiff = (inPrAmt - calcPrAssetPmt)
542		-	let $~~t02099321338~~ = if (if (isOneAsset)
	550	+	let $t02110921454 = if (if (isOneAsset)
543	551		then (pmtId == amIdStr)
544	552		else false)
545	553		then $Tuple2(pmtAmt, 0)

548	556		else false)
549	557		then $Tuple2(0, pmtAmt)
550	558		else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
551		-	let writeAmAmt = $~~t02099321338~~._1
552		-	let writePrAmt = $~~t02099321338~~._2
	559	+	let writeAmAmt = $t02110921454._1
	560	+	let writePrAmt = $t02110921454._2
553	561		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))]
554	562		$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
555	563		}

568	576		let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
569	577		let b = ((s + ((D * aPrecision) / ann)) - D)
570	578		func calc (acc,cur) = {
571		-	let $~~t02253322553~~ = acc
572		-	let y = $~~t02253322553~~._1
573		-	let found = $~~t02253322553~~._2
	579	+	let $t02264922669 = acc
	580	+	let y = $t02264922669._1
	581	+	let found = $t02264922669._2
574	582		if ((found != unit))
575	583		then acc
576	584		else {

583	591		}
584	592
585	593		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
586		-	let $~~t02286022907~~ = {
	594	+	let $t02297623023 = {
587	595		let $l = arr
588	596		let $s = size($l)
589	597		let $acc0 = $Tuple2(D, unit)

597	605
598	606		$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)
599	607		}
600		-	let y = $~~t02286022907~~._1
601		-	let found = $~~t02286022907~~._2
	608	+	let y = $t02297623023._1
	609	+	let found = $t02297623023._2
602	610		if ((found != unit))
603	611		then y
604	612		else throw(("Y calculation error, Y = " + toString(y)))

642	650		let priceAssetBalance = getAccBalance(assetIdToString(cfgPriceAssetId))
643	651		let amountAssetAmount = order.amount
644	652		let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
645		-	let $~~t02510525317~~ = if ((order.orderType == Buy))
	653	+	let $t02522125433 = if ((order.orderType == Buy))
646	654		then $Tuple2(amountAssetAmount, -(priceAssetAmount))
647	655		else $Tuple2(-(amountAssetAmount), priceAssetAmount)
648		-	let amountAssetBalanceDelta = $~~t02510525317~~._1
649		-	let priceAssetBalanceDelta = $~~t02510525317~~._2
	656	+	let amountAssetBalanceDelta = $t02522125433._1
	657	+	let priceAssetBalanceDelta = $t02522125433._2
650	658		if (if (if (igs())
651	659		then true
652	660		else (cfgPoolStatus == PoolMatcherDis))

659	667		then throw("Wr assets")
660	668		else {
661	669		let dLp = parseBigIntValue(valueOrElse(getString(this, keyDLp), "0"))
662		-	let $~~t02565925759~~ = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
663		-	let unusedActions = $~~t02565925759~~._1
664		-	let dLpNew = $~~t02565925759~~._2
	670	+	let $t02577525875 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
	671	+	let unusedActions = $t02577525875._1
	672	+	let dLpNew = $t02577525875._2
665	673		let isOrderValid = (dLpNew >= dLp)
666	674		let info = makeString(["dLp=", toString(dLp), " dLpNew=", toString(dLpNew), " amountAssetBalance=", toString(amountAssetBalance), " priceAssetBalance=", toString(priceAssetBalance), " amountAssetBalanceDelta=", toString(amountAssetBalanceDelta), " priceAssetBalanceDelta=", toString(priceAssetBalanceDelta), " height=", toString(height)], "")
667	675		$Tuple2(isOrderValid, info)

715	723		then {
716	724		let amBalance = getAccBalance(amId)
717	725		let prBalance = getAccBalance(prId)
718		-	let $~~t02841528877~~ = if ((txId == ""))
	726	+	let $t02853128993 = if ((txId == ""))
719	727		then $Tuple2(amBalance, prBalance)
720	728		else if ((pmtAssetId == amId))
721	729		then if ((pmtAmtRaw > amBalance))

726	734		then throw("invalid payment amount")
727	735		else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
728	736		else throw("wrong pmtAssetId")
729		-	let amBalanceOld = $~~t02841528877~~._1
730		-	let prBalanceOld = $~~t02841528877~~._2
731		-	let $~~t02888329059~~ = if ((pmtAssetId == amId))
	737	+	let amBalanceOld = $t02853128993._1
	738	+	let prBalanceOld = $t02853128993._2
	739	+	let $t02899929175 = if ((pmtAssetId == amId))
732	740		then $Tuple2(pmtAmtRaw, 0)
733	741		else if ((pmtAssetId == prId))
734	742		then $Tuple2(0, pmtAmtRaw)
735	743		else throw("invalid payment")
736		-	let amAmountRaw = $~~t02888329059~~._1
737		-	let prAmountRaw = $~~t02888329059~~._2
738		-	let $~~t02906329317~~ = if (withTakeFee)
	744	+	let amAmountRaw = $t02899929175._1
	745	+	let prAmountRaw = $t02899929175._2
	746	+	let $t02917929433 = if (withTakeFee)
739	747		then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
740	748		else $Tuple3(amAmountRaw, prAmountRaw, 0)
741		-	let amAmount = $~~t02906329317~~._1
742		-	let prAmount = $~~t02906329317~~._2
743		-	let feeAmount = $~~t02906329317~~._3
	749	+	let amAmount = $t02917929433._1
	750	+	let prAmount = $t02917929433._2
	751	+	let feeAmount = $t02917929433._3
744	752		let amBalanceNew = (amBalanceOld + amAmount)
745	753		let prBalanceNew = (prBalanceOld + prAmount)
746	754		let D0 = getD([t1(amBalanceOld, cfgAmountAssetDecimals), t1(prBalanceOld, cfgPriceAssetDecimals)])

788	796		else {
789	797		let amBalance = getAccBalance(amId)
790	798		let prBalance = getAccBalance(prId)
791		-	let $~~t03142931540~~ = {
	799	+	let $t03154531656 = {
792	800		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
793	801		if ($isInstanceOf(@, "(Int, Int)"))
794	802		then @
795	803		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
796	804		}
797		-	if (($~~t03142931540~~ == $~~t03142931540~~))
	805	+	if (($t03154531656 == $t03154531656))
798	806		then {
799		-	let feeAmount = $~~t03142931540~~._2
800		-	let totalGet = $~~t03142931540~~._1
	807	+	let feeAmount = $t03154531656._2
	808	+	let totalGet = $t03154531656._1
801	809		let totalAmount = if (if ((minOutAmount > 0))
802	810		then (minOutAmount > totalGet)
803	811		else false)
804	812		then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
805	813		else totalGet
806		-	let $~~t03173032037~~ = if ((outAssetId == amId))
	814	+	let $t03184632153 = if ((outAssetId == amId))
807	815		then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
808	816		else if ((outAssetId == prId))
809	817		then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
810	818		else throw("invalid out asset id")
811		-	let outAm = $~~t03173032037~~._1
812		-	let outPr = $~~t03173032037~~._2
813		-	let amBalanceNew = $~~t03173032037~~._3
814		-	let prBalanceNew = $~~t03173032037~~._4
	819	+	let outAm = $t03184632153._1
	820	+	let outPr = $t03184632153._2
	821	+	let amBalanceNew = $t03184632153._3
	822	+	let prBalanceNew = $t03184632153._4
815	823		let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
816	824		let curPr = f1(curPrX18, scale8)
817	825		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

826	834		let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
827	835		if ((burn == burn))
828	836		then {
829		-	let $~~t03282233172~~ = {
	837	+	let $t03293833288 = {
830	838		let feeAmountForCalc = if ((this == feeCollectorAddress))
831	839		then 0
832	840		else feeAmount

837	845		then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
838	846		else $Tuple2(0, -((totalGet + feeAmountForCalc)))
839	847		}
840		-	let amountAssetBalanceDelta = $~~t03282233172~~._1
841		-	let priceAssetBalanceDelta = $~~t03282233172~~._2
842		-	let $~~t03317533283~~ = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
843		-	let refreshDLpActions = $~~t03317533283~~._1
844		-	let updatedDLp = $~~t03317533283~~._2
	848	+	let amountAssetBalanceDelta = $t03293833288._1
	849	+	let priceAssetBalanceDelta = $t03293833288._2
	850	+	let $t03329133399 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
	851	+	let refreshDLpActions = $t03329133399._1
	852	+	let updatedDLp = $t03329133399._2
845	853		let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
846	854		if ((isUpdatedDLpValid == isUpdatedDLpValid))
847	855		then $Tuple2((state ++ refreshDLpActions), totalAmount)

913	921		let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
914	922		let b = ((s + ((D * aPrecision) / ann)) - D)
915	923		func calc (acc,cur) = {
916		-	let $~~t03477034790~~ = acc
917		-	let y = $~~t03477034790~~._1
918		-	let found = $~~t03477034790~~._2
	924	+	let $t03488634906 = acc
	925	+	let y = $t03488634906._1
	926	+	let found = $t03488634906._2
919	927		if ((found != unit))
920	928		then acc
921	929		else {

928	936		}
929	937
930	938		let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
931		-	let $~~t03512135168~~ = {
	939	+	let $t03523735284 = {
932	940		let $l = arr
933	941		let $s = size($l)
934	942		let $acc0 = $Tuple2(D, unit)

942	950
943	951		$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)
944	952		}
945		-	let y = $~~t03512135168~~._1
946		-	let found = $~~t03512135168~~._2
	953	+	let y = $t03523735284._1
	954	+	let found = $t03523735284._2
947	955		if ((found != unit))
948	956		then y
949	957		else throw(("Y calculation error, Y = " + toString(y)))

955	963
956	964		@Callable(i)
957	965		func calculateAmountOutForSwapREADONLY (cleanAmountIn,isReverse,feePoolAmount) = {
958		-	let $~~t03552035944~~ = if ((isReverse == false))
	966	+	let $t03563636060 = if ((isReverse == false))
959	967		then {
960	968		let assetOut = strf(this, pa())
961	969		let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, aa()))) + toBigInt(cleanAmountIn))

966	974		let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, pa()))) + toBigInt(cleanAmountIn))
967	975		$Tuple2(assetOut, poolAmountInBalance)
968	976		}
969		-	let assetOut = $~~t03552035944~~._1
970		-	let poolAmountInBalance = $~~t03552035944~~._2
	977	+	let assetOut = $t03563636060._1
	978	+	let poolAmountInBalance = $t03563636060._2
971	979		let poolConfig = gpc()
972	980		let amId = poolConfig[idxAmAsId]
973	981		let prId = poolConfig[idxPrAsId]

1022	1030		then {
1023	1031		let pmt = value(i.payments[0])
1024	1032		let assetIn = assetIdToString(pmt.assetId)
1025		-	let $~~t03767938073~~ = if ((isReverse == false))
	1033	+	let $t03779538189 = if ((isReverse == false))
1026	1034		then {
1027	1035		let assetOut = strf(this, pa())
1028	1036		let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)

1033	1041		let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)
1034	1042		$Tuple2(assetOut, poolAmountInBalance)
1035	1043		}
1036		-	let assetOut = $~~t03767938073~~._1
1037		-	let poolAmountInBalance = $~~t03767938073~~._2
	1044	+	let assetOut = $t03779538189._1
	1045	+	let poolAmountInBalance = $t03779538189._2
1038	1046		let poolConfig = gpc()
1039	1047		let amId = poolConfig[idxAmAsId]
1040	1048		let prId = poolConfig[idxPrAsId]

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

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

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

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

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

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

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

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

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

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

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

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

github/deemru/w8io/026f985 
253.39 ms ◑