tx · 7Gwhzt9g1WpoLFQckSLPdjMrkqe69bt4RQXWrZuEJsaj

3NCUrmBwKvfQDkfTg1gL8BPKZid8fC4YDx3:  -0.03500000 Waves

2022.12.22 09:18 [2371131] smart account 3NCUrmBwKvfQDkfTg1gL8BPKZid8fC4YDx3 > SELF 0.00000000 Waves

{ "type": 13, "id": "7Gwhzt9g1WpoLFQckSLPdjMrkqe69bt4RQXWrZuEJsaj", "fee": 3500000, "feeAssetId": null, "timestamp": 1671689889182, "version": 1, "sender": "3NCUrmBwKvfQDkfTg1gL8BPKZid8fC4YDx3", "senderPublicKey": "DnbhDz6GvchfLCy83fxyPKD7SoAmXD6DrJ5ubi3LXtgM", "proofs": [ "2c9Z9dihhGVL3uA26bRXpxK2bKamDVS3XR86Ds4p8HCEPYLA4wKmVwvqvB6bdn4T9FzhbXwoiiVYMUkxq4G9qCV6" ], "script": "base64:BgKdLQgCEgMKAQgSABIECgIBBBIDCgEBEgQKAgEEEgQKAggBEgQKAggBEgQKAggBEgUKAwEIARIAEgQKAgEBEgMKAQESBQoDAQEBEgQKAggIEgASABIDCgEIEgUKAwEBARIECgIBARIECgIIARIECgIICBILCgkIAQECAQIIBAQSBgoECAgBCBIAEgMKAQESAwoBARIECgIIASIKbFBkZWNpbWFscyIGc2NhbGU4IgxzY2FsZThCaWdJbnQiB3NjYWxlMTgiCnplcm9CaWdJbnQiBGJpZzAiBGJpZzEiBGJpZzIiC3dhdmVzU3RyaW5nIgNTRVAiClBvb2xBY3RpdmUiD1Bvb2xQdXREaXNhYmxlZCITUG9vbE1hdGNoZXJEaXNhYmxlZCIMUG9vbFNodXRkb3duIg5pZHhQb29sQWRkcmVzcyINaWR4UG9vbFN0YXR1cyIQaWR4UG9vbExQQXNzZXRJZCINaWR4QW10QXNzZXRJZCIPaWR4UHJpY2VBc3NldElkIg5pZHhBbXRBc3NldERjbSIQaWR4UHJpY2VBc3NldERjbSIOaWR4SUFtdEFzc2V0SWQiEGlkeElQcmljZUFzc2V0SWQiDWlkeExQQXNzZXREY20iEmlkeFBvb2xBbXRBc3NldEFtdCIUaWR4UG9vbFByaWNlQXNzZXRBbXQiEWlkeFBvb2xMUEFzc2V0QW10IhlpZHhGYWN0b3J5U3Rha2luZ0NvbnRyYWN0IhppZHhGYWN0b3J5U2xpcHBhZ2VDb250cmFjdCIFdG9YMTgiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiB2Zyb21YMTgiA3ZhbCIPcmVzdWx0U2NhbGVNdWx0Igxmcm9tWDE4Um91bmQiBXJvdW5kIgd0b1NjYWxlIgNhbXQiCHJlc1NjYWxlIghjdXJTY2FsZSIDYWJzIglhYnNCaWdJbnQiAmZjIgNtcGsiBHBtcGsiAnBsIgJwaCIBaCIJdGltZXN0YW1wIgNwYXUiC3VzZXJBZGRyZXNzIgR0eElkIgNnYXUiAmFhIgJwYSIGa2V5RmVlIgpmZWVEZWZhdWx0IgNmZWUiBmtleUtMcCIVa2V5S0xwUmVmcmVzaGVkSGVpZ2h0IhJrZXlLTHBSZWZyZXNoRGVsYXkiFmtMcFJlZnJlc2hEZWxheURlZmF1bHQiD2tMcFJlZnJlc2hEZWxheSIQa2V5RmFjdG9yeUNvbmZpZyINa2V5TWF0Y2hlclB1YiIpa2V5TWFwcGluZ1Bvb2xDb250cmFjdEFkZHJlc3NUb1Bvb2xBc3NldHMiE3Bvb2xDb250cmFjdEFkZHJlc3MiDWtleVBvb2xDb25maWciCWlBbXRBc3NldCILaVByaWNlQXNzZXQiH2tleU1hcHBpbmdzQmFzZUFzc2V0MmludGVybmFsSWQiDGJhc2VBc3NldFN0ciITa2V5QWxsUG9vbHNTaHV0ZG93biINa2V5UG9vbFdlaWdodCIPY29udHJhY3RBZGRyZXNzIhZrZXlBbGxvd2VkTHBTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIg90aHJvd09yZGVyRXJyb3IiCm9yZGVyVmFsaWQiC3NlbmRlclZhbGlkIgxtYXRjaGVyVmFsaWQiD2dldFN0cmluZ09yRmFpbCIHYWRkcmVzcyIDa2V5IgxnZXRJbnRPckZhaWwiCHRocm93RXJyIgNtc2ciBmZtdEVyciIPZmFjdG9yeUNvbnRyYWN0IhNmZWVDb2xsZWN0b3JBZGRyZXNzIhBpc0dsb2JhbFNodXRkb3duIhNnZXRNYXRjaGVyUHViT3JGYWlsIg1nZXRQb29sQ29uZmlnIghhbXRBc3NldCIKcHJpY2VBc3NldCIMcGFyc2VBc3NldElkIgVpbnB1dCIPYXNzZXRJZFRvU3RyaW5nIg9wYXJzZVBvb2xDb25maWciCnBvb2xDb25maWciEHBvb2xDb25maWdQYXJzZWQiCyR0MDgwNTg4MjI0Ig5jZmdQb29sQWRkcmVzcyINY2ZnUG9vbFN0YXR1cyIMY2ZnTHBBc3NldElkIhBjZmdBbW91bnRBc3NldElkIg9jZmdQcmljZUFzc2V0SWQiFmNmZ0Ftb3VudEFzc2V0RGVjaW1hbHMiFWNmZ1ByaWNlQXNzZXREZWNpbWFscyIQZ2V0RmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0IhBzbGlwcGFnZUNvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiHXNsaXBwYWdlVG9sZXJhbmNlUGFzc2VkQnlVc2VyIhVzbGlwcGFnZVRvbGVyYW5jZVJlYWwiCHR4SGVpZ2h0Igt0eFRpbWVzdGFtcCISc2xpcGFnZUFtdEFzc2V0QW10IhRzbGlwYWdlUHJpY2VBc3NldEFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIg9jYWxjUHJpY2VCaWdJbnQiCHByQW10WDE4IghhbUFtdFgxOCIUY2FsY1ByaWNlQmlnSW50Um91bmQiEHByaXZhdGVDYWxjUHJpY2UiCmFtQXNzZXREY20iCnByQXNzZXREY20iBWFtQW10IgVwckFtdCIOYW10QXNzZXRBbXRYMTgiEHByaWNlQXNzZXRBbXRYMTgiCmNhbGNQcmljZXMiBWxwQW10IgNjZmciC2FtdEFzc2V0RGNtIg1wcmljZUFzc2V0RGNtIghwcmljZVgxOCIIbHBBbXRYMTgiE2xwUHJpY2VJbkFtQXNzZXRYMTgiE2xwUHJpY2VJblByQXNzZXRYMTgiD2NhbGN1bGF0ZVByaWNlcyIGcHJpY2VzIhRlc3RpbWF0ZUdldE9wZXJhdGlvbiIGdHhJZDU4IgpwbXRBc3NldElkIghwbXRMcEFtdCIJbHBBc3NldElkIglhbUFzc2V0SWQiCXByQXNzZXRJZCIKcG9vbFN0YXR1cyIKbHBFbWlzc2lvbiIJYW1CYWxhbmNlIgxhbUJhbGFuY2VYMTgiCXByQmFsYW5jZSIMcHJCYWxhbmNlWDE4IgtjdXJQcmljZVgxOCIIY3VyUHJpY2UiC3BtdExwQW10WDE4Ig1scEVtaXNzaW9uWDE4IgtvdXRBbUFtdFgxOCILb3V0UHJBbXRYMTgiCG91dEFtQW10IghvdXRQckFtdCIFc3RhdGUiFGVzdGltYXRlUHV0T3BlcmF0aW9uIhFzbGlwcGFnZVRvbGVyYW5jZSIMaW5BbUFzc2V0QW10IgtpbkFtQXNzZXRJZCIMaW5QckFzc2V0QW10IgtpblByQXNzZXRJZCIKaXNFdmFsdWF0ZSIGZW1pdExwIgxhbUFzc2V0SWRTdHIiDHByQXNzZXRJZFN0ciILaUFtdEFzc2V0SWQiDWlQcmljZUFzc2V0SWQiDmluQW1Bc3NldElkU3RyIg5pblByQXNzZXRJZFN0ciIPaW5BbUFzc2V0QW10WDE4Ig9pblByQXNzZXRBbXRYMTgiDHVzZXJQcmljZVgxOCIDcmVzIgtzbGlwcGFnZVgxOCIUc2xpcHBhZ2VUb2xlcmFuY2VYMTgiCnByVmlhQW1YMTgiCmFtVmlhUHJYMTgiDGV4cGVjdGVkQW10cyIRZXhwQW10QXNzZXRBbXRYMTgiE2V4cFByaWNlQXNzZXRBbXRYMTgiCWNhbGNMcEFtdCIOY2FsY0FtQXNzZXRQbXQiDmNhbGNQckFzc2V0UG10IgxzbGlwcGFnZUNhbGMiCWVtaXRMcEFtdCIGYW1EaWZmIgZwckRpZmYiC2NvbW1vblN0YXRlIgdjYWxjS0xwIg1hbW91bnRCYWxhbmNlIgxwcmljZUJhbGFuY2UiCnVwZGF0ZWRLTHAiDmNhbGNDdXJyZW50S0xwIhBhbW91bnRBc3NldERlbHRhIg9wcmljZUFzc2V0RGVsdGEiFGxwQXNzZXRFbWlzc2lvbkRlbHRhIhJhbW91bnRBc3NldEJhbGFuY2UiEXByaWNlQXNzZXRCYWxhbmNlIg9scEFzc2V0RW1pc3Npb24iCmN1cnJlbnRLTHAiEnJlZnJlc2hLTHBJbnRlcm5hbCIXYW1vdW50QXNzZXRCYWxhbmNlRGVsdGEiFnByaWNlQXNzZXRCYWxhbmNlRGVsdGEiB2FjdGlvbnMiEnZhbGlkYXRlVXBkYXRlZEtMcCIGb2xkS0xwIht2YWxpZGF0ZU1hdGNoZXJPcmRlckFsbG93ZWQiBW9yZGVyIhFhbW91bnRBc3NldEFtb3VudCIQcHJpY2VBc3NldEFtb3VudCINJHQwMjA4MDEyMTAxMyIDa0xwIg0kdDAyMTQ4NDIxNTg0Ig11bnVzZWRBY3Rpb25zIgZrTHBOZXciDGlzT3JkZXJWYWxpZCIJY29tbW9uR2V0IgFpIgNwbXQiBnBtdEFtdCIJY29tbW9uUHV0IgphbUFzc2V0UG10IgpwckFzc2V0UG10IgZlc3RQdXQiBGVtaXQiBmFtb3VudCIHZW1pdEludiINZW1pdEludkxlZ2FjeSIHJG1hdGNoMCIVbGVnYWN5RmFjdG9yeUNvbnRyYWN0Igd0YWtlRmVlIglmZWVBbW91bnQiD2NhbGNQdXRPbmVUb2tlbiIQcGF5bWVudEFtb3VudFJhdyIOcGF5bWVudEFzc2V0SWQiBmlzRXZhbCIQYW1vdW50QmFsYW5jZVJhdyIPcHJpY2VCYWxhbmNlUmF3IhRwYXltZW50SW5BbW91bnRBc3NldCINJHQwMjQyNjkyNDU2MiIQYW1vdW50QmFsYW5jZU9sZCIPcHJpY2VCYWxhbmNlT2xkIg0kdDAyNDU2NjI0NzE1IhRhbW91bnRBc3NldEFtb3VudFJhdyITcHJpY2VBc3NldEFtb3VudFJhdyINJHQwMjQ4MzcyNDg5NiINcGF5bWVudEFtb3VudCIQYW1vdW50QmFsYW5jZU5ldyIPcHJpY2VCYWxhbmNlTmV3IgtwcmljZU5ld1gxOCIIcHJpY2VOZXciDnBheW1lbnRCYWxhbmNlIhRwYXltZW50QmFsYW5jZUJpZ0ludCIMc3VwcGx5QmlnSW50IgtjaGVjaFN1cHBseSINZGVwb3NpdEJpZ0ludCILaXNzdWVBbW91bnQiC3ByaWNlT2xkWDE4IghwcmljZU9sZCIEbG9zcyINJHQwMjYzOTcyNjU2NCIHYmFsYW5jZSIPaXNzdWVBbW91bnRCb3RoIg9jYWxjR2V0T25lVG9rZW4iCm91dEFzc2V0SWQiBmNoZWNrcyIQb3V0SW5BbW91bnRBc3NldCINYmFsYW5jZUJpZ0ludCIYb3V0SW5BbW91bnRBc3NldERlY2ltYWxzIgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCIKb3V0QmFsYW5jZSIQb3V0QmFsYW5jZUJpZ0ludCIOcmVkZWVtZWRCaWdJbnQiCWFtb3VudFJhdyINJHQwMjg0NjUyODUxNSILdG90YWxBbW91bnQiDSR0MDI4NTE5Mjg3NDUiC291dEFtQW1vdW50IgtvdXRQckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciGGFtb3VudEJvdGhJblBheW1lbnRBc3NldCIWbWFuYWdlclB1YmxpY0tleU9yVW5pdCIBcyIdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQiCWlzTWFuYWdlciICcGsiC211c3RNYW5hZ2VyIgJwZCIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiC2NoZWNrQ2FsbGVyIhVjaGVja01hbmFnZXJQdWJsaWNLZXkiAnBtIgVoYXNQTSIHY2hlY2tQTSIPc2hvdWxkQXV0b1N0YWtlIgRhbUlkIgRwcklkIgxzbGlwcGFnZUFJbnYiDHNsaXBwYWdlUEludiIKbHBUcmFuc2ZlciILc2xwU3Rha2VJbnYiDSR0MDMzMjczMzM3MzUiEXJlZnJlc2hLTHBBY3Rpb25zIhFpc1VwZGF0ZWRLTHBWYWxpZCILbWF4U2xpcHBhZ2UiDSR0MDM0Mjk3MzQzNjIiDG1pbk91dEFtb3VudCIJYXV0b1N0YWtlIiBpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZCIBQCINaXNQdXREaXNhYmxlZCIHcGF5bWVudCINJHQwMzU1NTAzNTcwMiIFYm9udXMiE2VtaXRBbW91bnRFc3RpbWF0ZWQiCmVtaXRBbW91bnQiCHN0YWtlSW52IgdzZW5kRmVlIg0kdDAzNjI4ODM2NDg1Ig0kdDAzNjQ4ODM2NTk2Ig0kdDAzNjkwMjM3MDU5Ig1vdXRBc3NldElkU3RyIg1pc0dldERpc2FibGVkIg0kdDAzNzk0NDM4MDk3Ig9hbW91bnRFc3RpbWF0ZWQiB2J1cm5JbnYiDWFzc2V0VHJhbnNmZXIiDSR0MDM4NTk3Mzg4NDQiEGZlZUFtb3VudEZvckNhbGMiDSR0MDM4ODQ3Mzg5NTUiDSR0MDM5MjEyMzkzNjgiDXVuc3Rha2VBbW91bnQiCnVuc3Rha2VJbnYiDSR0MDQwMjcwNDA0MjEiDSR0MDQwOTE2NDExNjMiDSR0MDQxMTY2NDEyNzQiCW91dEFtdEFtdCIUYnVybkxQQXNzZXRPbkZhY3RvcnkiDSR0MDQyMjIwNDIzMDIiEm5vTGVzc1RoZW5BbXRBc3NldCIUbm9MZXNzVGhlblByaWNlQXNzZXQiDSR0MDQzMjUzNDMzMzQiDWNoZWNrUGF5bWVudHMiD2NoZWNrUG9vbFN0YXR1cyINJHQwNDQ0NTc0NDUzOCIVbm9MZXNzVGhlbkFtb3VudEFzc2V0IgxjaGVja0Ftb3VudHMiDSR0MDQ1ODMwNDU5MTEiC2FtdEFzc2V0U3RyIg1wcmljZUFzc2V0U3RyIhhsYXN0UmVmcmVzaGVkQmxvY2tIZWlnaHQiHWNoZWNrTGFzdFJlZnJlc2hlZEJsb2NrSGVpZ2h0Ig0kdDA0NzA5ODQ3MTYyIhBrTHBVcGRhdGVBY3Rpb25zIgphbXRBc3NldElkIgxwcmljZUFzc2V0SWQiDXBvb2xMUEJhbGFuY2UiEmFjY0FtdEFzc2V0QmFsYW5jZSIUYWNjUHJpY2VBc3NldEJhbGFuY2UiCnByaWNlc0xpc3QiD2xwQW10QXNzZXRTaGFyZSIRbHBQcmljZUFzc2V0U2hhcmUiCnBvb2xXZWlnaHQiDGN1clByaWNlQ2FsYyIMYW1CYWxhbmNlUmF3IgxwckJhbGFuY2VSYXciD2FtQmFsYW5jZVJhd1gxOCIPcHJCYWxhbmNlUmF3WDE4IhBwYXltZW50THBBc3NldElkIgxwYXltZW50THBBbXQiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleSIKbWF0Y2hlclB1YiIHbmV3SGFzaCILYWxsb3dlZEhhc2giC2N1cnJlbnRIYXNobwABYQAIAAFiAIDC1y8AAWMJALYCAQCAwtcvAAFkCQC2AgEAgICQu7rWrfANAAFlCQC2AgEAAAABZgkAtgIBAAAAAWcJALYCAQABAAFoCQC2AgEAAgABaQIFV0FWRVMAAWoCAl9fAAFrAAEAAWwAAgABbQADAAFuAAQAAW8AAQABcAACAAFxAAMAAXIABAABcwAFAAF0AAYAAXUABwABdgAIAAF3AAkAAXgACgABeQABAAF6AAIAAUEAAwABQgABAAFDAAcBAUQCAUUBRgkAvAIDCQC2AgEFAUUFAWQJALYCAQUBRgEBRwIBSAFJCQCgAwEJALwCAwUBSAkAtgIBBQFJBQFkAQFKAwFIAUkBSwkAoAMBCQC9AgQFAUgJALYCAQUBSQUBZAUBSwEBTAMBTQFOAU8JAGsDBQFNBQFOBQFPAQFQAQFIAwkAZgIAAAUBSAkBAS0BBQFIBQFIAQFRAQFIAwkAvwICBQFlBQFICQC+AgEFAUgFAUgBAVIAAhMlc19fZmFjdG9yeUNvbnRyYWN0AQFTAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBAVQAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAVUAAhElcyVzX19wcmljZV9fbGFzdAEBVgIBVwFYCQC5CQIJAMwIAgIYJXMlcyVkJWRfX3ByaWNlX19oaXN0b3J5CQDMCAIJAKQDAQUBVwkAzAgCCQCkAwEFAVgFA25pbAUBagEBWQIBWgJhYQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAVoCAl9fBQJhYQECYWICAVoCYWEJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQFaAgJfXwUCYWEBAmFjAAIPJXNfX2Ftb3VudEFzc2V0AQJhZAACDiVzX19wcmljZUFzc2V0AAJhZQIHJXNfX2ZlZQACYWYJAGsDAAoFAWIAkE4AAmFnCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFAmFlBQJhZgACYWgJALkJAgkAzAgCAgIlcwkAzAgCAgNrTHAFA25pbAUBagACYWkJALkJAgkAzAgCAgIlcwkAzAgCAhJrTHBSZWZyZXNoZWRIZWlnaHQFA25pbAUBagACYWoJALkJAgkAzAgCAgIlcwkAzAgCAg9yZWZyZXNoS0xwRGVsYXkFA25pbAUBagACYWsAHgACYWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUCYWoFAmFrAQJhbQACESVzX19mYWN0b3J5Q29uZmlnAQJhbgACGCVzJXNfX21hdGNoZXJfX3B1YmxpY0tleQECYW8BAmFwCQCsAgIJAKwCAgIIJXMlcyVzX18FAmFwAiBfX21hcHBpbmdzX19wb29sQ29udHJhY3QyTHBBc3NldAECYXECAmFyAmFzCQCsAgIJAKwCAgkArAICCQCsAgICCCVkJWQlc19fBQJhcgICX18FAmFzAghfX2NvbmZpZwECYXQBAmF1CQCsAgICKCVzJXMlc19fbWFwcGluZ3NfX2Jhc2VBc3NldDJpbnRlcm5hbElkX18FAmF1AQJhdgACDCVzX19zaHV0ZG93bgECYXcBAmF4CQCsAgICEiVzJXNfX3Bvb2xXZWlnaHRfXwUCYXgBAmF5AAIXJXNfX2FsbG93ZWRMcFNjcmlwdEhhc2gAAmF6Ahclc19fZmVlQ29sbGVjdG9yQWRkcmVzcwECYUEDAmFCAmFDAmFECQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICJG9yZGVyIHZhbGlkYXRpb24gZmFpbGVkOiBvcmRlclZhbGlkPQkApQMBBQJhQgINIHNlbmRlclZhbGlkPQkApQMBBQJhQwIOIG1hdGNoZXJWYWxpZD0JAKUDAQUCYUQBAmFFAgJhRgJhRwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFAmFGBQJhRwkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhRgkAzAgCAgEuCQDMCAIFAmFHCQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABAmFIAgJhRgJhRwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFAmFGBQJhRwkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQJhRgkAzAgCAgEuCQDMCAIFAmFHCQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABAmFJAQJhSgkAAgEJALkJAgkAzAgCAghscC5yaWRlOgkAzAgCBQJhSgUDbmlsAgEgAQJhSwECYUoJALkJAgkAzAgCAghscC5yaWRlOgkAzAgCBQJhSgUDbmlsAgEgAAJhTAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmFFAgUEdGhpcwkBAVIAAAJhTQkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmFFAgUCYUwFAmF6AQJhTgAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUwJAQJhdgAHAQJhTwAJANkEAQkBAmFFAgUCYUwJAQJhbgABAmFQAAQCYVEJAQJhRQIFBHRoaXMJAQJhYwAEAmFSCQECYUUCBQR0aGlzCQECYWQABAJhcwkBAmFIAgUCYUwJAQJhdAEFAmFSBAJhcgkBAmFIAgUCYUwJAQJhdAEFAmFRCQC1CQIJAQJhRQIFAmFMCQECYXECCQCkAwEFAmFyCQCkAwEFAmFzBQFqAQJhUwECYVQDCQAAAgUCYVQFAWkFBHVuaXQJANkEAQUCYVQBAmFVAQJhVAMJAAACBQJhVAUEdW5pdAUBaQkA2AQBCQEFdmFsdWUBBQJhVAECYVYBAmFXCQCZCgcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYVcFAW8JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVwUBcAkA2QQBCQCRAwIFAmFXBQFxCQECYVMBCQCRAwIFAmFXBQFyCQECYVMBCQCRAwIFAmFXBQFzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYVcFAXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhVwUBdQACYVgJAQJhVgEJAQJhUAAAAmFZBQJhWAACYVoIBQJhWQJfMQACYmEIBQJhWQJfMgACYmIIBQJhWQJfMwACYmMIBQJhWQJfNAACYmQIBQJhWQJfNQACYmUIBQJhWQJfNgACYmYIBQJhWQJfNwECYmcACQC1CQIJAQJhRQIFAmFMCQECYW0ABQFqAAJiaAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgkBAmJnAAUBQgIZaW5jb3JyZWN0IHN0YWtpbmcgYWRkcmVzcwACYmkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIJAQJiZwAFAUMCGWluY29ycmVjdCBzdGFraW5nIGFkZHJlc3MBAmJqCgJiawJibAJibQJibgJibwJicAJicQJicgJicwJidAkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYmsJAMwIAgkApAMBBQJibAkAzAgCCQCkAwEFAmJtCQDMCAIJAKQDAQUCYm4JAMwIAgkApAMBBQJibwkAzAgCCQCkAwEFAmJwCQDMCAIJAKQDAQUCYnEJAMwIAgkApAMBBQJicgkAzAgCCQCkAwEFAmJzCQDMCAIJAKQDAQUCYnQFA25pbAUBagECYnUGAmJ2AmJ3AmJ4AmJuAmJxAmJyCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYnYJAMwIAgkApAMBBQJidwkAzAgCCQCkAwEFAmJ4CQDMCAIJAKQDAQUCYm4JAMwIAgkApAMBBQJicQkAzAgCCQCkAwEFAmJyBQNuaWwFAWoBAmJ5AQJiegMJAAACBQJiegIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYnoBAmJBAgJiQgJiQwkAvAIDBQJiQgUBZAUCYkMBAmJEAwJiQgJiQwFLCQC9AgQFAmJCBQFkBQJiQwUBSwECYkUEAmJGAmJHAmJIAmJJBAJiSgkBAUQCBQJiSAUCYkYEAmJLCQEBRAIFAmJJBQJiRwkBAmJBAgUCYksFAmJKAQJiTAMCYkgCYkkCYk0EAmJOCQECYVAABAJiTwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJOBQF0BAJiUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJOBQF1BAJiUQkBAmJFBAUCYk8FAmJQBQJiSAUCYkkEAmJDCQEBRAIFAmJIBQJiTwQCYkIJAQFEAgUCYkkFAmJQBAJiUgkBAUQCBQJiTQUBYgQCYlMJAQJiQQIFAmJDBQJiUgQCYlQJAQJiQQIFAmJCBQJiUgkAzAgCBQJiUQkAzAgCBQJiUwkAzAgCBQJiVAUDbmlsAQJiVQMCYkgCYkkCYk0EAmJWCQECYkwDBQJiSAUCYkkFAmJNCQDMCAIJAQFHAgkAkQMCBQJiVgAABQFiCQDMCAIJAQFHAgkAkQMCBQJiVgABBQFiCQDMCAIJAQFHAgkAkQMCBQJiVgACBQFiBQNuaWwBAmJXBAJiWAJiWQJiWgFaBAJiTgkBAmFQAAQCY2EJAJEDAgUCYk4FAXEEAmNiCQCRAwIFAmJOBQFyBAJjYwkAkQMCBQJiTgUBcwQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdQQCY2QJAJEDAgUCYk4FAXAEAmNlCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCY2EJAKwCAgkArAICAgZBc3NldCAFAmNhAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQMJAQIhPQIFAmNhBQJiWQkAAgECFUludmFsaWQgYXNzZXQgcGFzc2VkLgQCY2YJAQJieQEFAmNiBAJjZwkBAUQCBQJjZgUCYkYEAmNoCQECYnkBBQJjYwQCY2kJAQFEAgUCY2gFAmJHBAJjagkBAmJBAgUCY2kFAmNnBAJjawkBAUcCBQJjagUBYgQCY2wJAQFEAgUCYloFAWIEAmNtCQEBRAIFAmNlBQFiBAJjbgkAvAIDBQJjZwUCY2wFAmNtBAJjbwkAvAIDBQJjaQUCY2wFAmNtBAJjcAkBAUoDBQJjbgUCYkYFBUZMT09SBAJjcQkBAUoDBQJjbwUCYkcFBUZMT09SBAJjcgMJAAACBQJiWAIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUBWgUCY3ADCQAAAgUCY2ICBVdBVkVTBQR1bml0CQDZBAEFAmNiCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAVoFAmNxAwkAAAIFAmNjAgVXQVZFUwUEdW5pdAkA2QQBBQJjYwkAzAgCCQELU3RyaW5nRW50cnkCCQECYWICCQClCAEFAVoFAmJYCQECYnUGBQJjcAUCY3EFAmJaBQJjawUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVUABQJjawkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVYCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjawUDbmlsCQCcCgoFAmNwBQJjcQUCY2IFAmNjBQJjZgUCY2gFAmNlBQJjagUCY2QFAmNyAQJjcwkCYlgCY3QCY3UCY3YCY3cCY3gBWgJjeQJjegQCYk4JAQJhUAAEAmNhCQDZBAEJAJEDAgUCYk4FAXEEAmNBCQCRAwIFAmJOBQFyBAJjQgkAkQMCBQJiTgUBcwQCY0MJAJEDAgUCYk4FAXYEAmNECQCRAwIFAmJOBQF3BAJiTwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJOBQF0BAJiUAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJOBQF1BAJjZAkAkQMCBQJiTgUBcAQCY2UICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCY2EJAKwCAgkArAICAgZBc3NldCAJANgEAQUCY2ECDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJjRQkA2AQBCQELdmFsdWVPckVsc2UCBQJjdgkA2QQBAgVXQVZFUwQCY0YJANgEAQkBC3ZhbHVlT3JFbHNlAgUCY3gJANkEAQIFV0FWRVMDAwkBAiE9AgUCY0EFAmNFBgkBAiE9AgUCY0IFAmNGCQACAQIiSW52YWxpZCBhbXQgb3IgcHJpY2UgYXNzZXQgcGFzc2VkLgQCY2YDBQJjeQkBAmJ5AQUCY0EJAGUCCQECYnkBBQJjQQUCY3UEAmNoAwUCY3kJAQJieQEFAmNCCQBlAgkBAmJ5AQUCY0IFAmN3BAJjRwkBAUQCBQJjdQUCYk8EAmNICQEBRAIFAmN3BQJiUAQCY0kJAQJiQQIFAmNIBQJjRwQCY2cJAQFEAgUCY2YFAmJPBAJjaQkBAUQCBQJjaAUCYlAEAmNKAwkAAAIFAmNlAAAEAmNqBQFlBAJjSwUBZQQCYlIJAHYGCQC5AgIFAmNHBQJjSAAACQC2AgEABQABAAAFBERPV04JAJcKBQkBAUcCBQJiUgUBYgkBAUcCBQJjRwUCYk8JAQFHAgUCY0gFAmJQCQECYkECCQC3AgIFAmNpBQJjSAkAtwICBQJjZwUCY0cFAmNLBAJjagkBAmJBAgUCY2kFAmNnBAJjSwkAvAIDCQEBUQEJALgCAgUCY2oFAmNJBQFkBQJjagQCY0wJAQFEAgUCY3QFAWIDAwkBAiE9AgUCY2oFAWUJAL8CAgUCY0sFAmNMBwkAAgEJAKwCAgkArAICCQCsAgICD1ByaWNlIHNsaXBwYWdlIAkApgMBBQJjSwIeIGV4Y2VlZGVkIHRoZSBwYXNzZWQgbGltaXQgb2YgCQCmAwEFAmNMBAJjbQkBAUQCBQJjZQUBYgQCY00JAL0CBAUCY0cJAQJiRAMFAmNpBQJjZwUHQ0VJTElORwUBZAUHQ0VJTElORwQCY04JAL0CBAUCY0gFAWQJAQJiRAMFAmNpBQJjZwUFRkxPT1IFB0NFSUxJTkcEAmNPAwkAvwICBQJjTQUCY0gJAJQKAgUCY04FAmNICQCUCgIFAmNHBQJjTQQCY1AIBQJjTwJfMQQCY1EIBQJjTwJfMgQCYlIJAL0CBAUCY20FAmNRBQJjaQUFRkxPT1IJAJcKBQkBAUoDBQJiUgUBYgUFRkxPT1IJAQFKAwUCY1AFAmJPBQdDRUlMSU5HCQEBSgMFAmNRBQJiUAUHQ0VJTElORwUCY2oFAmNLBAJjUggFAmNKAl8xBAJjUwgFAmNKAl8yBAJjVAgFAmNKAl8zBAJjawkBAUcCCAUCY0oCXzQFAWIEAmNVCQEBRwIIBQJjSgJfNQUBYgMJAGcCAAAFAmNSCQACAQI2SW52YWxpZCBjYWxjdWxhdGlvbnMuIExQIGNhbGN1bGF0ZWQgaXMgbGVzcyB0aGFuIHplcm8uBAJjVgMJAQEhAQUCY3oAAAUCY1IEAmNXCQBlAgUCY3UFAmNTBAJjWAkAZQIFAmN3BQJjVAQCY1kJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCY2sJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY2sJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVkCBQFaBQJiWAkBAmJqCgUCY1MFAmNUBQJjVgUCY2sFAmN0BQJjVQUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY1cFAmNYBQNuaWwJAJ8KDQUCY1IFAmNWBQJjawUCY2YFAmNoBQJjZQUCY2EFAmNkBQJjWQUCY1cFAmNYBQJjdgUCY3gBAmNaAwJkYQJkYgJjZQQCZGMJALwCAwkAdgYJALkCAgUCZGEFAmRiAAAJALYCAQAFAAEAEgUERE9XTgUBZwUCY2UDCQAAAgUCY2UFAWYFAWYFAmRjAQJkZAMCZGUCZGYCZGcEAmRoCQC4AgIJALYCAQkBAmJ5AQkBAmFVAQUCYmMFAmRlBAJkaQkAuAICCQC2AgEJAQJieQEJAQJhVQEFAmJkBQJkZgQCZGoJALgCAgkAtgIBCAkBBXZhbHVlAQkA7AcBBQJiYghxdWFudGl0eQUCZGcEAmRrCQECY1oDBQJkaAUCZGkFAmRqBQJkawECZGwDAmRtAmRuAmRnBAJkaAkAZAIJAQJieQEJAQJhVQEFAmJjBQJkbQQCZGkJAGQCCQECYnkBCQECYVUBBQJiZAUCZG4EAmRqCQBkAggJAQV2YWx1ZQEJAOwHAQUCYmIIcXVhbnRpdHkFAmRnBAJkYwkBAmNaAwkAtgIBBQJkaAkAtgIBBQJkaQkAtgIBBQJkagQCZG8JAMwIAgkBDEludGVnZXJFbnRyeQIFAmFpBQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgUCYWgJAKYDAQUCZGMFA25pbAkAlAoCBQJkbwUCZGMBAmRwAgJkcQJkYwMJAMACAgUCZGMFAmRxBgkBAmFJAQkAuQkCCQDMCAICInVwZGF0ZWQgS0xwIGxvd2VyIHRoYW4gY3VycmVudCBLTHAJAMwIAgkApgMBBQJkcQkAzAgCCQCmAwEFAmRjBQNuaWwCASABAmRyAQJkcwQCZHQIBQJkcwZhbW91bnQEAmR1CQBuBAgFAmRzBmFtb3VudAgFAmRzBXByaWNlBQFiBQVGTE9PUgQCZHYDCQAAAggFAmRzCW9yZGVyVHlwZQUDQnV5CQCUCgIFAmR0CQEBLQEFAmR1CQCUCgIJAQEtAQUCZHQFAmR1BAJkbQgFAmR2Al8xBAJkbggFAmR2Al8yAwMDCQECYU4ABgkAAAIFAmJhBQFtBgkAAAIFAmJhBQFuCQACAQIcRXhjaGFuZ2Ugb3BlcmF0aW9ucyBkaXNhYmxlZAMDCQECIT0CCAgFAmRzCWFzc2V0UGFpcgthbW91bnRBc3NldAUCYmMGCQECIT0CCAgFAmRzCWFzc2V0UGFpcgpwcmljZUFzc2V0BQJiZAkAAgECE1dyb25nIG9yZGVyIGFzc2V0cy4EAmR3CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKgDAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMFAmFoCQECYUsBAg9rTHAgaXMgcmVxdWlyZWQJAQJhSwECC2ludmFsaWQga0xwBAJkeAkBAmRsAwUCZG0FAmRuAAAEAmR5CAUCZHgCXzEEAmR6CAUCZHgCXzIEAmRBCQDAAgIFAmR6BQJkdwUCZEEBAmRCAQJkQwMJAQIhPQIJAJADAQgFAmRDCHBheW1lbnRzAAEJAAIBAh1leGFjdGx5IDEgcGF5bWVudCBpcyBleHBlY3RlZAQCZEQJAQV2YWx1ZQEJAJEDAggFAmRDCHBheW1lbnRzAAAEAmJZCQEFdmFsdWUBCAUCZEQHYXNzZXRJZAQCZEUIBQJkRAZhbW91bnQEAmNKCQECYlcECQDYBAEIBQJkQw10cmFuc2FjdGlvbklkCQDYBAEFAmJZBQJkRQgFAmRDBmNhbGxlcgQCY3AIBQJjSgJfMQQCY3EIBQJjSgJfMgQCY2QJAQ1wYXJzZUludFZhbHVlAQgFAmNKAl85BAJjcggFAmNKA18xMAMDCQECYU4ABgkAAAIFAmNkBQFuCQACAQkArAICAixHZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4uIFN0YXR1cyA9IAkApAMBBQJjZAkAlwoFBQJjcAUCY3EFAmRFBQJiWQUCY3IBAmRGAwJkQwJjdAJjegMJAQIhPQIJAJADAQgFAmRDCHBheW1lbnRzAAIJAAIBAh9leGFjdGx5IDIgcGF5bWVudHMgYXJlIGV4cGVjdGVkBAJkRwkBBXZhbHVlAQkAkQMCCAUCZEMIcGF5bWVudHMAAAQCZEgJAQV2YWx1ZQEJAJEDAggFAmRDCHBheW1lbnRzAAEEAmRJCQECY3MJCQDYBAEIBQJkQw10cmFuc2FjdGlvbklkBQJjdAgFAmRHBmFtb3VudAgFAmRHB2Fzc2V0SWQIBQJkSAZhbW91bnQIBQJkSAdhc3NldElkCQClCAEIBQJkQwZjYWxsZXIHBQJjegQCY2QJAQ1wYXJzZUludFZhbHVlAQgFAmRJAl84AwMDCQECYU4ABgkAAAIFAmNkBQFsBgkAAAIFAmNkBQFuCQACAQkArAICAixQdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4uIFN0YXR1cyA9IAkApAMBBQJjZAUCZEkBAmRKAQJkSwQCZEwJAPwHBAUCYUwCBGVtaXQJAMwIAgUCZEsFA25pbAUDbmlsAwkAAAIFAmRMBQJkTAQCZE0EAmROBQJkTAMJAAECBQJkTgIHQWRkcmVzcwQCZE8FAmROCQD8BwQFAmRPAgRlbWl0CQDMCAIFAmRLBQNuaWwFA25pbAUEdW5pdAMJAAACBQJkTQUCZE0FAmRLCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJkUAECZEsEAmRRCQBrAwUCZEsFAmFnBQFiCQCUCgIJAGUCBQJkSwUCZFEFAmRRAQJkUgQCZFMCZFQBWgJhYQQCZFUJAAACBQJhYQUEdW5pdAQCZFYJAQJieQEJAQJhVQEFAmJjBAJkVwkBAmJ5AQkBAmFVAQUCYmQEAmRYAwkAAAIFAmRUBQJiYwYDCQAAAgUCZFQFAmJkBwkBAmFJAQINaW52YWxpZCBhc3NldAQCZFkDBQJkVQkAlAoCBQJkVgUCZFcDBQJkWAkAlAoCCQBlAgUCZFYFAmRTBQJkVwkAlAoCBQJkVgkAZQIFAmRXBQJkUwQCZFoIBQJkWQJfMQQCZWEIBQJkWQJfMgQCZWIDBQJkWAkAlAoCBQJkUwAACQCUCgIAAAUCZFMEAmVjCAUCZWICXzEEAmVkCAUCZWICXzIEAmR0CAkBAmRQAQUCZWMCXzEEAmR1CAkBAmRQAQUCZWQCXzEEAmVlCQECZFABBQJkUwQCZWYIBQJlZQJfMQQCZFEIBQJlZQJfMgQCZWcJAGQCBQJkWgUCZHQEAmVoCQBkAgUCZWEFAmR1BAJlaQkBAmJBAgkBAUQCBQJlaAUCYmYJAQFEAgUCZWcFAmJlBAJlagkBAUcCBQJlaQUBYgQCZWsDBQJkWAUCZFoFAmVhBAJlbAkAtgIBBQJlawQCZW0JALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQJiYgkArAICCQCsAgICBmFzc2V0IAkA2AQBBQJiYgIOIGRvZXNuJ3QgZXhpc3QIcXVhbnRpdHkEAmVuAwkAvwICBQJlbQUBZgYJAQJhSQECImluaXRpYWwgZGVwb3NpdCByZXF1aXJlcyBhbGwgY29pbnMDCQAAAgUCZW4FAmVuBAJlbwkAtgIBBQJlZgQCZXAJAJYDAQkAzAgCAAAJAMwIAgkBAUoDCQC8AgMFAmVtCQC4AgIJAQpzcXJ0QmlnSW50BAkAtwICBQFkCQC6AgIJALkCAgUCZW8FAWQFAmVsABIAEgUERE9XTgUBZAUBZAUBYgUFRkxPT1IFA25pbAQCY1kDBQJkVQUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVQAFAmVqCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVgIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmVqCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFZAgkApQgBCQEFdmFsdWUBBQFaCQDYBAEJAQV2YWx1ZQEFAmFhCQECYmoKBQJlYwUCZWQFAmVwBQJlagAAAAAFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAAAAAABQNuaWwEAmVxCQECYkECCQEBRAIFAmVhBQJiZgkBAUQCBQJkWgUCYmUEAmVyCQEBRwIFAmVxBQFiBAJlcwQCZXQDBQJkWAkAlAoCBQJlYwUCZFoJAJQKAgUCZWQFAmVhBAJkSwgFAmV0Al8xBAJldQgFAmV0Al8yBAJldgkAoAMBCQC8AgMFAmVtCQC2AgEJAGkCBQJkSwACCQC2AgEFAmV1CQBrAwkAZQIFAmVwBQJldgUBYgUCZXYJAJcKBQUCZXAFAmNZBQJkUQUCZXMFAmRYCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJldwUCZXgCZWYCZFQBWgJhYQQCZFUJAAACBQJhYQUEdW5pdAQCYk4JAQJhUAAEAmJPCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYk4FAXQEAmJQCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYk4FAXUEAmV5CQDMCAIDCQAAAgUCZFQFAmJiBgkBAmFJAQIQaW52YWxpZCBscCBhc3NldAUDbmlsAwkAAAIFAmV5BQJleQQCZXoDCQAAAgUCZXgFAmJjBgMJAAACBQJleAUCYmQHCQECYUkBAg1pbnZhbGlkIGFzc2V0BAJlQQMFAmV6CQC2AgEJAQJieQEJAQJhVQEFAmJjCQC2AgEJAQJieQEJAQJhVQEFAmJkBAJlQgMFAmV6BQJiTwUCYlAEAmVDCQECYnkBCQECYVUBBQJiYwQCZUQJAQJieQEJAQJhVQEFAmJkBAJlRQMFAmV6BQJlQwUCZUQEAmVGCQC2AgEFAmVFBAJlbQkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmJiCQCsAgIJAKwCAgIGYXNzZXQgCQDYBAEFAmJiAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZUcJALYCAQUCZWYEAmVICQCWAwEJAMwIAgAACQDMCAIJAQFKAwkAvAIDBQJlQQkAuAICBQFkCQB2BgkAuAICBQFkCQC6AgIJALkCAgUCZUcFAWQFAmVtABIFAWgAAAASBQRET1dOBQFkBQJlQgUFRkxPT1IFA25pbAQCZUkJAQJkUAEFAmVIBAJlSggFAmVJAl8xBAJkUQgFAmVJAl8yBAJlSwMFAmV6CQCWCgQFAmVKAAAJAGUCBQJlQwUCZUgFAmVECQCWCgQAAAUCZUoFAmVDCQBlAgUCZUQFAmVIBAJlTAgFAmVLAl8xBAJlTQgFAmVLAl8yBAJlTggFAmVLAl8zBAJlTwgFAmVLAl80BAJlaQkBAmJBAgkBAUQCBQJlTwUCYmYJAQFEAgUCZU4FAmJlBAJlagkBAUcCBQJlaQUBYgQCY1kDBQJkVQUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQJhYgIJAKUIAQkBBXZhbHVlAQUBWgkA2AQBCQEFdmFsdWUBBQJhYQkBAmJ1BgUCZUwFAmVNBQJlZgUCZWoFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFVAAUCZWoJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFWAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZWoFA25pbAQCZXEJAQJiQQIJAQFEAgUCZUQFAmJmCQEBRAIFAmVDBQJiZQQCZXIJAQFHAgUCZXEFAWIEAmVzBAJlUAkAaAIJAKADAQkAvAIDBQJlQQUCZUcFAmVtAAIJAGsDCQBlAgUCZUoFAmVQBQFiBQJlUAkAlwoFBQJlSgUCY1kFAmRRBQJlcwUCZXoJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmVRAAQCZE4JAKIIAQkBAVMAAwkAAQIFAmROAgZTdHJpbmcEAmVSBQJkTgkA2QQBBQJlUgMJAAECBQJkTgIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yAQJlUwAEAmROCQCiCAEJAQFUAAMJAAECBQJkTgIGU3RyaW5nBAJlUgUCZE4JANkEAQUCZVIDCQABAgUCZE4CBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZVQBAmRDBAJkTgkBAmVRAAMJAAECBQJkTgIKQnl0ZVZlY3RvcgQCZVUFAmROCQAAAggFAmRDD2NhbGxlclB1YmxpY0tleQUCZVUDCQABAgUCZE4CBFVuaXQJAAACCAUCZEMGY2FsbGVyBQR0aGlzCQACAQILTWF0Y2ggZXJyb3IBAmVWAQJkQwQCZVcJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQCZE4JAQJlUQADCQABAgUCZE4CCkJ5dGVWZWN0b3IEAmVVBQJkTgMJAAACCAUCZEMPY2FsbGVyUHVibGljS2V5BQJlVQYFAmVXAwkAAQIFAmROAgRVbml0AwkAAAIIBQJkQwZjYWxsZXIFBHRoaXMGBQJlVwkAAgECC01hdGNoIGVycm9yGwJkQwEKc2V0TWFuYWdlcgECZVgEAmVZCQECZVYBBQJkQwMJAAACBQJlWQUCZVkEAmVaCQDZBAEFAmVYAwkAAAIFAmVaBQJlWgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVAAFAmVYBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBDmNvbmZpcm1NYW5hZ2VyAAQCZmEJAQJlUwAEAmZiAwkBCWlzRGVmaW5lZAEFAmZhBgkAAgECEk5vIHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmYgUCZmIEAmZjAwkAAAIIBQJkQw9jYWxsZXJQdWJsaWNLZXkJAQV2YWx1ZQEFAmZhBgkAAgECG1lvdSBhcmUgbm90IHBlbmRpbmcgbWFuYWdlcgMJAAACBQJmYwUCZmMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVMACQDYBAEJAQV2YWx1ZQEFAmZhCQDMCAIJAQtEZWxldGVFbnRyeQEJAQFUAAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRDAQNwdXQCAmN0AmZkAwkAZgIAAAUCY3QJAAIBAiBJbnZhbGlkIHNsaXBwYWdlVG9sZXJhbmNlIHBhc3NlZAQCZEkJAQJkRgMFAmRDBQJjdAYEAmNWCAUCZEkCXzIEAmNhCAUCZEkCXzcEAmNyCAUCZEkCXzkEAmNXCAUCZEkDXzEwBAJjWAgFAmRJA18xMQQCZmUIBQJkSQNfMTIEAmZmCAUCZEkDXzEzBAJkRwkAtgIBCAkBBXZhbHVlAQkAkQMCCAUCZEMIcGF5bWVudHMAAAZhbW91bnQEAmRICQC2AgEICQEFdmFsdWUBCQCRAwIIBQJkQwhwYXltZW50cwABBmFtb3VudAQCZGsJAQJkZAMFAmRHBQJkSAkAtgIBAAADCQAAAgUCZGsFAmRrBAJkTAkA/AcEBQJhTAIEZW1pdAkAzAgCBQJjVgUDbmlsBQNuaWwDCQAAAgUCZEwFAmRMBAJkTQQCZE4FAmRMAwkAAQIFAmROAgdBZGRyZXNzBAJkTwUCZE4JAPwHBAUCZE8CBGVtaXQJAMwIAgUCY1YFA25pbAUDbmlsBQR1bml0AwkAAAIFAmRNBQJkTQQCZmcDCQBmAgUCY1cAAAkA/AcEBQJiaQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmZlBQJjVwUDbmlsBQNuaWwDCQAAAgUCZmcFAmZnBAJmaAMJAGYCBQJjWAAACQD8BwQFAmJpAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZmYFAmNYBQNuaWwFA25pbAMJAAACBQJmaAUCZmgEAmZpAwUCZmQEAmZqCQD8BwQFAmJoAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJjYQUCY1YFA25pbAMJAAACBQJmagUCZmoFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCZEMGY2FsbGVyBQJjVgUCY2EFA25pbAQCZmsJAQJkbAMAAAAAAAADCQAAAgUCZmsFAmZrBAJkYwgFAmZrAl8yBAJmbAgFAmZrAl8xBAJmbQkBAmRwAgUCZGsFAmRjAwkAAAIFAmZtBQJmbQkAzggCCQDOCAIFAmNyBQJmaQUCZmwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBCnB1dEZvckZyZWUBAmZuAwkAZgIAAAUCZm4JAAIBAhRJbnZhbGlkIHZhbHVlIHBhc3NlZAQCZEkJAQJkRgMFAmRDBQJmbgcEAmNyCAUCZEkCXzkEAmRHCQC2AgEICQEFdmFsdWUBCQCRAwIIBQJkQwhwYXltZW50cwAABmFtb3VudAQCZEgJALYCAQgJAQV2YWx1ZQEJAJEDAggFAmRDCHBheW1lbnRzAAEGYW1vdW50BAJkawkBAmRkAwUCZEcFAmRICQC2AgEAAAMJAAACBQJkawUCZGsEAmZvCQECZGwDAAAAAAAABAJmbAgFAmZvAl8xBAJkYwgFAmZvAl8yBAJmbQkBAmRwAgUCZGsFAmRjAwkAAAIFAmZtBQJmbQkAzggCBQJjcgUCZmwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBCXB1dE9uZVRrbgICZnACZnEEAmZyCgACZnMJAPwHBAUCYUwCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJmcwIHQm9vbGVhbgUCZnMJAAIBCQCsAgIJAAMBBQJmcwIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZnQDAwMJAQJhTgAGCQAAAgUCYmEFAWwGCQAAAgUCYmEFAW4GBQJmcgQCZXkJAMwIAgMDCQEBIQEFAmZ0BgkBAmVUAQUCZEMGCQECYUkBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkQwhwYXltZW50cwABBgkBAmFJAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZXkFAmV5BAJmdQkAkQMCCAUCZEMIcGF5bWVudHMAAAQCZFQIBQJmdQdhc3NldElkBAJkUwgFAmZ1BmFtb3VudAQCZGsDCQAAAgUCZFQFAmJjCQECZGQDCQC2AgEFAmRTCQC2AgEAAAkAtgIBAAADCQAAAgUCZFQFAmJkCQECZGQDCQC2AgEAAAkAtgIBBQJkUwkAtgIBAAAJAQJhSQECHnBheW1lbnQgYXNzZXQgaXMgbm90IHN1cHBvcnRlZAMJAAACBQJkawUCZGsEAVoIBQJkQwZjYWxsZXIEAmFhCAUCZEMNdHJhbnNhY3Rpb25JZAQCZnYJAQJkUgQFAmRTBQJkVAUBWgUCYWEDCQAAAgUCZnYFAmZ2BAJkWAgFAmZ2Al81BAJmdwgFAmZ2Al80BAJkUQgFAmZ2Al8zBAJjWQgFAmZ2Al8yBAJmeAgFAmZ2Al8xBAJmeQMDCQBmAgUCZnAAAAkAZgIFAmZwBQJmeAcJAQJhSQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZnAFA25pbAIABQJmeAQCZEwJAQJkSgEFAmZ5AwkAAAIFAmRMBQJkTAQCZmkDBQJmcQQCZnoJAPwHBAUCYmgCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJiBQJmeQUDbmlsAwkAAAIFAmZ6BQJmegUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkQwZjYWxsZXIFAmZ5BQJiYgUDbmlsBAJmQQMJAGYCBQJkUQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFNBQJkUQUCZFQFA25pbAUDbmlsBAJmQgMJAAACBQR0aGlzBQJhTQkAlAoCAAAAAAMFAmRYCQCUCgIJAQEtAQUCZFEAAAkAlAoCAAAJAQEtAQUCZFEEAmRtCAUCZkICXzEEAmRuCAUCZkICXzIEAmZDCQECZGwDBQJkbQUCZG4AAAQCZmwIBQJmQwJfMQQCZGMIBQJmQwJfMgQCZHcJAQV2YWx1ZQEJAKIIAQUCYWgEAmZtCQECZHACBQJkawUCZGMDCQAAAgUCZm0FAmZtCQCUCgIJAM4IAgkAzggCCQDOCAIFAmNZBQJmaQUCZkEFAmZsBQJmeQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkQwERcHV0T25lVGtuUkVBRE9OTFkCAmRUAmRTBAJmRAkBAmRSBAUCZFMJAQJhUwEFAmRUBQR1bml0BQR1bml0BAJmeAgFAmZEAl8xBAJjWQgFAmZEAl8yBAJkUQgFAmZEAl8zBAJmdwgFAmZEAl80BAJkWAgFAmZEAl81CQCUCgIFA25pbAkAlQoDBQJmeAUCZFEFAmZ3AmRDAQlnZXRPbmVUa24CAmZFAmZwBAJmcgoAAmZzCQD8BwQFAmFMAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCZnMCB0Jvb2xlYW4FAmZzCQACAQkArAICCQADAQUCZnMCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmZGAwMJAQJhTgAGCQAAAgUCYmEFAW4GBQJmcgQCZXkJAMwIAgMDCQEBIQEFAmZGBgkBAmVUAQUCZEMGCQECYUkBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkQwhwYXltZW50cwABBgkBAmFJAQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZXkFAmV5BAJleAkBAmFTAQUCZkUEAmZ1CQCRAwIIBQJkQwhwYXltZW50cwAABAJkVAgFAmZ1B2Fzc2V0SWQEAmVmCAUCZnUGYW1vdW50BAJkawkBAmRkAwkAtgIBAAAJALYCAQAACQC2AgEAAAMJAAACBQJkawUCZGsEAVoIBQJkQwZjYWxsZXIEAmFhCAUCZEMNdHJhbnNhY3Rpb25JZAQCZkcJAQJldwUFAmV4BQJlZgUCZFQFAVoFAmFhAwkAAAIFAmZHBQJmRwQCZXoIBQJmRwJfNQQCZncIBQJmRwJfNAQCZFEIBQJmRwJfMwQCY1kIBQJmRwJfMgQCZkgIBQJmRwJfMQQCZEsDAwkAZgIFAmZwAAAJAGYCBQJmcAUCZkgHCQECYUkBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZwBQNuaWwCAAUCZkgEAmZJCQD8BwQFAmFMAgRidXJuCQDMCAIFAmVmBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmRUBQJlZgUDbmlsAwkAAAIFAmZJBQJmSQQCZkoJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUBWgUCZEsFAmV4BQNuaWwEAmZBAwkAZgIFAmRRAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYU0FAmRRBQJleAUDbmlsBQNuaWwEAmZLBAJmTAMJAAACBQR0aGlzBQJhTQAABQJkUQMFAmV6CQCUCgIJAQEtAQkAZAIFAmRLBQJmTAAACQCUCgIAAAkBAS0BCQBkAgUCZEsFAmZMBAJkbQgFAmZLAl8xBAJkbggFAmZLAl8yBAJmTQkBAmRsAwUCZG0FAmRuAAAEAmZsCAUCZk0CXzEEAmRjCAUCZk0CXzIEAmZtCQECZHACBQJkawUCZGMDCQAAAgUCZm0FAmZtCQCUCgIJAM4IAgkAzggCCQDOCAIFAmNZBQJmSgUCZkEFAmZsBQJkSwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkQwERZ2V0T25lVGtuUkVBRE9OTFkCAmV4AmVmBAJmTgkBAmV3BQkBAmFTAQUCZXgFAmVmBQJiYgUEdW5pdAUEdW5pdAQCZkgIBQJmTgJfMQQCY1kIBQJmTgJfMgQCZFEIBQJmTgJfMwQCZncIBQJmTgJfNAQCZXoIBQJmTgJfNQkAlAoCBQNuaWwJAJUKAwUCZkgFAmRRBQJmdwJkQwETdW5zdGFrZUFuZEdldE9uZVRrbgMCZk8CZkUCZnAEAmZyCgACZnMJAPwHBAUCYUwCKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJmcwIHQm9vbGVhbgUCZnMJAAIBCQCsAgIJAAMBBQJmcwIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZkYDAwkBAmFOAAYJAAACBQJiYQUBbgYFAmZyBAJleQkAzAgCAwMJAQEhAQUCZkYGCQECZVQBBQJkQwYJAQJhSQECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRDCHBheW1lbnRzAAAGCQECYUkBAhhubyBwYXltZW50cyBhcmUgZXhwZWN0ZWQFA25pbAMJAAACBQJleQUCZXkEAmV4CQECYVMBBQJmRQQBWggFAmRDBmNhbGxlcgQCYWEIBQJkQw10cmFuc2FjdGlvbklkBAJkawkBAmRkAwkAtgIBAAAJALYCAQAACQC2AgEAAAQCZlAJAPwHBAUCYmgCB3Vuc3Rha2UJAMwIAgkA2AQBBQJiYgkAzAgCBQJmTwUDbmlsBQNuaWwDCQAAAgUCZlAFAmZQBAJmUQkBAmV3BQUCZXgFAmZPBQJiYgUBWgUCYWEDCQAAAgUCZlEFAmZRBAJleggFAmZRAl81BAJmdwgFAmZRAl80BAJkUQgFAmZRAl8zBAJjWQgFAmZRAl8yBAJmSAgFAmZRAl8xBAJkSwMDCQBmAgUCZnAAAAkAZgIFAmZwBQJmSAcJAQJhSQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZnAFA25pbAIABQJmSAQCZkkJAPwHBAUCYUwCBGJ1cm4JAMwIAgUCZk8FA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYmIFAmZPBQNuaWwDCQAAAgUCZkkFAmZJBAJmSgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCZEMGY2FsbGVyBQJkSwUCZXgFA25pbAQCZkEDCQBmAgUCZFEAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhTQUCZFEFAmV4BQNuaWwFA25pbAQCZlIEAmZMAwkAAAIFBHRoaXMFAmFNAAAFAmRRAwUCZXoJAJQKAgkBAS0BCQBkAgUCZEsFAmZMAAAJAJQKAgAACQEBLQEJAGQCBQJkSwUCZkwEAmRtCAUCZlICXzEEAmRuCAUCZlICXzIEAmZTCQECZGwDBQJkbQUCZG4AAAQCZmwIBQJmUwJfMQQCZGMIBQJmUwJfMgQCZm0JAQJkcAIFAmRrBQJkYwMJAAACBQJmbQUCZm0JAJQKAgkAzggCCQDOCAIJAM4IAgUCY1kFAmZKBQJmQQUCZmwFAmRLCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRDAQNnZXQABAJjSgkBAmRCAQUCZEMEAmZUCAUCY0oCXzEEAmNxCAUCY0oCXzIEAmRFCAUCY0oCXzMEAmJZCAUCY0oCXzQEAmNyCAUCY0oCXzUEAmRrCQECZGQDCQC2AgEAAAkAtgIBAAAJALYCAQAAAwkAAAIFAmRrBQJkawQCZlUJAPwHBAUCYUwCBGJ1cm4JAMwIAgUCZEUFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlkFAmRFBQNuaWwDCQAAAgUCZlUFAmZVBAJmVgkBAmRsAwkBAS0BBQJmVAkBAS0BBQJjcQAABAJmbAgFAmZWAl8xBAJkYwgFAmZWAl8yBAJmbQkBAmRwAgUCZGsFAmRjAwkAAAIFAmZtBQJmbQkAzggCBQJjcgUCZmwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBCWdldE5vTGVzcwICZlcCZlgEAmNKCQECZEIBBQJkQwQCY3AIBQJjSgJfMQQCY3EIBQJjSgJfMgQCZEUIBQJjSgJfMwQCYlkIBQJjSgJfNAQCY3IIBQJjSgJfNQMJAGYCBQJmVwUCY3AJAAIBCQCsAgIJAKwCAgkArAICAhxub0xlc3NUaGVuQW10QXNzZXQgZmFpbGVkOiAgCQCkAwEFAmNwAgMgPCAJAKQDAQUCZlcDCQBmAgUCZlgFAmNxCQACAQkArAICCQCsAgIJAKwCAgIdbm9MZXNzVGhlblByaWNlQXNzZXQgZmFpbGVkOiAJAKQDAQUCY3ECAyA8IAkApAMBBQJmWAQCZGsJAQJkZAMJALYCAQAACQC2AgEAAAkAtgIBBQJkRQQCZlUJAPwHBAUCYUwCBGJ1cm4JAMwIAgUCZEUFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlkFAmRFBQNuaWwDCQAAAgUCZlUFAmZVBAJmWQkBAmRsAwkBAS0BBQJjcAkBAS0BBQJjcQAABAJmbAgFAmZZAl8xBAJkYwgFAmZZAl8yBAJmbQkBAmRwAgUCZGsFAmRjAwkAAAIFAmZtBQJmbQkAzggCBQJjcgUCZmwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBDXVuc3Rha2VBbmRHZXQBAmRLBAJmWgMJAQIhPQIJAJADAQgFAmRDCHBheW1lbnRzAAAJAAIBAhhObyBwYXltZW50cyBhcmUgZXhwZWN0ZWQGAwkAAAIFAmZaBQJmWgQCYk4JAQJhUAAEAmNhCQDZBAEJAJEDAgUCYk4FAXEEAmRrCQECZGQDCQC2AgEAAAkAtgIBAAAJALYCAQAABAJmUAkA/AcEBQJiaAIHdW5zdGFrZQkAzAgCCQDYBAEFAmNhCQDMCAIFAmRLBQNuaWwFA25pbAMJAAACBQJmUAUCZlAEAmNKCQECYlcECQDYBAEIBQJkQw10cmFuc2FjdGlvbklkCQDYBAEFAmNhBQJkSwgFAmRDBmNhbGxlcgQCY3AIBQJjSgJfMQQCY3EIBQJjSgJfMgQCY2QJAQ1wYXJzZUludFZhbHVlAQgFAmNKAl85BAJjcggFAmNKA18xMAQCZ2EDAwkBAmFOAAYJAAACBQJjZAUBbgkAAgEJAKwCAgIsR2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAKQDAQUCY2QGAwkAAAIFAmdhBQJnYQQCZlUJAPwHBAUCYUwCBGJ1cm4JAMwIAgUCZEsFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCY2EFAmRLBQNuaWwDCQAAAgUCZlUFAmZVBAJnYgkBAmRsAwkBAS0BBQJjcAkBAS0BBQJjcQAABAJmbAgFAmdiAl8xBAJkYwgFAmdiAl8yBAJmbQkBAmRwAgUCZGsFAmRjAwkAAAIFAmZtBQJmbQkAzggCBQJjcgUCZmwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmZPAmdjAmZYBAJmRgMJAQJhTgAGCQAAAgUCYmEFAW4EAmV5CQDMCAIDCQEBIQEFAmZGBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRDCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZXkFAmV5BAJkawkBAmRkAwkAtgIBAAAJALYCAQAACQC2AgEAAAQCZlAJAPwHBAUCYmgCB3Vuc3Rha2UJAMwIAgkA2AQBBQJiYgkAzAgCBQJmTwUDbmlsBQNuaWwDCQAAAgUCZlAFAmZQBAJjSgkBAmJXBAkA2AQBCAUCZEMNdHJhbnNhY3Rpb25JZAkA2AQBBQJiYgUCZk8IBQJkQwZjYWxsZXIEAmNwCAUCY0oCXzEEAmNxCAUCY0oCXzIEAmNyCAUCY0oDXzEwBAJnZAkAzAgCAwkAZwIFAmNwBQJnYwYJAAIBCQC5CQIJAMwIAgIsYW1vdW50IGFzc2V0IGFtb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJnYwUDbmlsAgAJAMwIAgMJAGcCBQJjcQUCZlgGCQACAQkAuQkCCQDMCAICK3ByaWNlIGFzc2V0IGFtb3VudCB0byByZWNlaXZlIGlzIGxlc3MgdGhhbiAJAMwIAgkApAMBBQJmWAUDbmlsAgAFA25pbAMJAAACBQJnZAUCZ2QEAmZVCQD8BwQFAmFMAgRidXJuCQDMCAIFAmZPBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJiBQJmTwUDbmlsAwkAAAIFAmZVBQJmVQQCZ2UJAQJkbAMJAQEtAQUCY3AJAQEtAQUCY3EAAAQCZmwIBQJnZQJfMQQCZGMIBQJnZQJfMgQCZm0JAQJkcAIFAmRrBQJkYwMJAAACBQJmbQUCZm0JAM4IAgUCY3IFAmZsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRDAQhhY3RpdmF0ZQICZ2YCZ2cDCQECIT0CCQClCAEIBQJkQwZjYWxsZXIJAKUIAQUCYUwJAAIBAhJwZXJtaXNzaW9ucyBkZW5pZWQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWMABQJnZgkAzAgCCQELU3RyaW5nRW50cnkCCQECYWQABQJnZwUDbmlsAgdzdWNjZXNzAmRDAQpyZWZyZXNoS0xwAAQCZ2gJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUCYWkAAAQCZ2kDCQBnAgkAZQIFBmhlaWdodAUCZ2gFAmFsBQR1bml0CQECYUkBCQC5CQIJAMwIAgkApAMBBQJhbAkAzAgCAi8gYmxvY2tzIGhhdmUgbm90IHBhc3NlZCBzaW5jZSB0aGUgcHJldmlvdXMgY2FsbAUDbmlsAgADCQAAAgUCZ2kFAmdpBAJkdwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCoAwEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwUCYWgCATAJAQJhSwECC2ludmFsaWQga0xwBAJnagkBAmRsAwAAAAAAAAQCZ2sIBQJnagJfMQQCZGMIBQJnagJfMgQCZG8DCQECIT0CBQJkdwUCZGMFAmdrCQECYUkBAhJub3RoaW5nIHRvIHJlZnJlc2gJAJQKAgUCZG8JAKYDAQUCZGMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZEMBHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkACQCUCgIFA25pbAkBAmFQAAJkQwEcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQECYnoJAJQKAgUDbmlsCQECYnkBBQJiegJkQwEZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQMCYkgCYkkCYk0EAmJWCQECYkwDBQJiSAUCYkkFAmJNCQCUCgIFA25pbAkAzAgCCQCmAwEJAJEDAgUCYlYAAAkAzAgCCQCmAwEJAJEDAgUCYlYAAQkAzAgCCQCmAwEJAJEDAgUCYlYAAgUDbmlsAmRDARR0b1gxOFdyYXBwZXJSRUFET05MWQIBRQFGCQCUCgIFA25pbAkApgMBCQEBRAIFAUUFAUYCZEMBFmZyb21YMThXcmFwcGVyUkVBRE9OTFkCAUgBSQkAlAoCBQNuaWwJAQFHAgkApwMBBQFIBQFJAmRDAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCAmJCAmJDCQCUCgIFA25pbAkApgMBCQECYkECCQCnAwEFAmJCCQCnAwEFAmJDAmRDASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkCYlgCY3QCY3UCY3YCY3cCY3gBWgJjeQJjegkAlAoCBQNuaWwJAQJjcwkFAmJYBQJjdAUCY3UFAmN2BQJjdwUCY3gFAVoFAmN5BQJjegJkQwEjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkEAmJYAmJZAmJaAVoEAmNKCQECYlcEBQJiWAUCYlkFAmJaCQERQGV4dHJOYXRpdmUoMTA2MikBBQFaCQCUCgIFA25pbAkAnAoKCAUCY0oCXzEIBQJjSgJfMggFAmNKAl8zCAUCY0oCXzQIBQJjSgJfNQgFAmNKAl82CAUCY0oCXzcJAKYDAQgFAmNKAl84CAUCY0oCXzkIBQJjSgNfMTACZEMBDXN0YXRzUkVBRE9OTFkABAJiTgkBAmFQAAQCY2EJANkEAQkAkQMCBQJiTgUBcQQCZ2wJAJEDAgUCYk4FAXIEAmdtCQCRAwIFAmJOBQFzBAJjQwkAkQMCBQJiTgUBdgQCY0QJAJEDAgUCYk4FAXcEAmJPCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYk4FAXQEAmJQCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYk4FAXUEAmduCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNhCQCsAgIJAKwCAgIGQXNzZXQgCQDYBAEFAmNhAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZ28JAQJieQEFAmdsBAJncAkBAmJ5AQUCZ20EAmdxAwkAAAIFAmduAAAJAMwIAgUBZQkAzAgCBQFlCQDMCAIFAWUFA25pbAkBAmJMAwUCZ28FAmdwBQJnbgQCY2sAAAQCZ3IJAQFHAgkAkQMCBQJncQABBQFiBAJncwkBAUcCCQCRAwIFAmdxAAIFAWIEAmd0CQEFdmFsdWUBCQCaCAIFAmFMCQECYXcBCQClCAEFBHRoaXMJAJQKAgUDbmlsCQC5CQIJAMwIAgIOJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJnbwkAzAgCCQCkAwEFAmdwCQDMCAIJAKQDAQUCZ24JAMwIAgkApAMBBQJjawkAzAgCCQCkAwEFAmdyCQDMCAIJAKQDAQUCZ3MJAMwIAgkApAMBBQJndAUDbmlsBQFqAmRDASBldmFsdWF0ZVB1dEJ5QW1vdW50QXNzZXRSRUFET05MWQECY3UEAmJOCQECYVAABAJjYQkA2QQBCQCRAwIFAmJOBQFxBAJjQQkAkQMCBQJiTgUBcgQCY2IJANkEAQUCY0EEAmNCCQCRAwIFAmJOBQFzBAJjYwkA2QQBBQJjQgQCYk8JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdAQCYlAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdQQCY2QJAJEDAgUCYk4FAXAEAmduCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNhCQCsAgIJAKwCAgIGQXNzZXQgCQDYBAEFAmNhAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZ28JAQJieQEFAmNBBAJncAkBAmJ5AQUCY0IEAmJKCQEBRAIFAmdvBQJiTwQCYksJAQFEAgUCZ3AFAmJQBAJjagMJAAACBQJnbgAABQFlCQECYkECBQJiSwUCYkoEAmNHCQEBRAIFAmN1BQJiTwQCY0gJALwCAwUCY0cFAmNqBQFkBAJjdwkBAUcCBQJjSAUCYlAEAmRJCQECY3MJAgAAoMIeBQJjdQUCY2IFAmN3BQJjYwIABgcEAmNSCAUCZEkCXzEEAmd1CAUCZEkCXzMEAmNmCAUCZEkCXzQEAmNoCAUCZEkCXzUEAmNlCAUCZEkCXzYJAJQKAgUDbmlsCQC5CQIJAMwIAgIQJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmNSCQDMCAIJAKQDAQkBAUcCBQJjagUBYgkAzAgCCQCkAwEFAmNmCQDMCAIJAKQDAQUCY2gJAMwIAgkApAMBBQJjZQkAzAgCBQJjZAkAzAgCCQCkAwEFAmN1CQDMCAIJAKQDAQUCY3cFA25pbAUBagJkQwEfZXZhbHVhdGVQdXRCeVByaWNlQXNzZXRSRUFET05MWQECY3cEAmJOCQECYVAABAJjYQkA2QQBCQCRAwIFAmJOBQFxBAJjQQkAkQMCBQJiTgUBcgQCY2IJANkEAQUCY0EEAmNCCQCRAwIFAmJOBQFzBAJjYwkA2QQBBQJjQgQCYk8JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdAQCYlAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiTgUBdQQCY2QJAJEDAgUCYk4FAXAEAmduCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmNhCQCsAgIJAKwCAgIGQXNzZXQgCQDYBAEFAmNhAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZ3YJAQJieQEFAmNBBAJndwkBAmJ5AQUCY0IEAmd4CQEBRAIFAmd2BQJiTwQCZ3kJAQFEAgUCZ3cFAmJQBAJjagMJAAACBQJnbgAABQFlCQECYkECBQJneQUCZ3gEAmNICQEBRAIFAmN3BQJiUAQCY0cJALwCAwUCY0gFAWQFAmNqBAJjdQkBAUcCBQJjRwUCYk8EAmRJCQECY3MJAgAAoMIeBQJjdQUCY2IFAmN3BQJjYwIABgcEAmNSCAUCZEkCXzEEAmd1CAUCZEkCXzMEAmNmCAUCZEkCXzQEAmNoCAUCZEkCXzUEAmNlCAUCZEkCXzYJAJQKAgUDbmlsCQC5CQIJAMwIAgIQJWQlZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmNSCQDMCAIJAKQDAQkBAUcCBQJjagUBYgkAzAgCCQCkAwEFAmNmCQDMCAIJAKQDAQUCY2gJAMwIAgkApAMBBQJjZQkAzAgCBQJjZAkAzAgCCQCkAwEFAmN1CQDMCAIJAKQDAQUCY3cFA25pbAUBagJkQwETZXZhbHVhdGVHZXRSRUFET05MWQICZ3oCZ0EEAmNKCQECYlcEAgAFAmd6BQJnQQUEdGhpcwQCY3AIBQJjSgJfMQQCY3EIBQJjSgJfMgQCY2YIBQJjSgJfNQQCY2gIBQJjSgJfNgQCY2UIBQJjSgJfNwQCY2sIBQJjSgJfOAQCY2QJAQ1wYXJzZUludFZhbHVlAQgFAmNKAl85CQCUCgIFA25pbAkAuQkCCQDMCAICDiVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCY3AJAMwIAgkApAMBBQJjcQkAzAgCCQCkAwEFAmNmCQDMCAIJAKQDAQUCY2gJAMwIAgkApAMBBQJjZQkAzAgCCQCmAwEFAmNrCQDMCAIJAKQDAQUCY2QFA25pbAUBagECZ0IBAmdDAAQCZ0QEAmROCQECZVEAAwkAAQIFAmROAgpCeXRlVmVjdG9yBAJlVQUCZE4FAmVVAwkAAQIFAmROAgRVbml0CAUCZ0IPc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmROBQJnQgMJAAECBQJkTgIFT3JkZXIEAmRzBQJkTgQCZ0UJAQJhTwAEAmFCCQECZHIBBQJkcwQCYUMJAPQDAwgFAmRzCWJvZHlCeXRlcwkAkQMCCAUCZHMGcHJvb2ZzAAAIBQJkcw9zZW5kZXJQdWJsaWNLZXkEAmFECQD0AwMIBQJkcwlib2R5Qnl0ZXMJAJEDAggFAmRzBnByb29mcwABBQJnRQMDAwUCYUIFAmFDBwUCYUQHBgkBAmFBAwUCYUIFAmFDBQJhRAMJAAECBQJkTgIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmVSBQJkTgQCZ0YJAPYDAQkBBXZhbHVlAQgFAmVSBnNjcmlwdAQCZ0cJANsEAQkBBXZhbHVlAQkAnQgCBQJhTAkBAmF5AAQCZ0gJAPEHAQUEdGhpcwMDCQAAAgUCZ0cFAmdGCQECIT0CBQJnSAUCZ0YHBgkA9AMDCAUCZ0IJYm9keUJ5dGVzCQCRAwIIBQJnQgZwcm9vZnMAAAUCZ0QJAPQDAwgFAmdCCWJvZHlCeXRlcwkAkQMCCAUCZ0IGcHJvb2ZzAAAFAmdEo9rwJg==", "chainId": 84, "height": 2371131, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: AdBX5dYu6DRdhRLySB9VpCowAVrC8Rjgi3q2iBQV1TET Next: FJ1XtdaL92Gaax7BNw1FVcjjMYNvw1nMkhADjcbrbEPM Diff:
OldNewDifferences
6565 func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6666
6767
68+func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
69+
70+
6871 func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6972
7073
105108 func pa () = "%s__priceAsset"
106109
107110
111+let keyFee = "%s__fee"
112+
113+let feeDefault = fraction(10, scale8, 10000)
114+
115+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
116+
117+let keyKLp = makeString(["%s", "kLp"], SEP)
118+
119+let keyKLpRefreshedHeight = makeString(["%s", "kLpRefreshedHeight"], SEP)
120+
121+let keyKLpRefreshDelay = makeString(["%s", "refreshKLpDelay"], SEP)
122+
123+let kLpRefreshDelayDefault = 30
124+
125+let kLpRefreshDelay = valueOrElse(getInteger(this, keyKLpRefreshDelay), kLpRefreshDelayDefault)
126+
108127 func keyFactoryConfig () = "%s__factoryConfig"
109128
110129
143162 func throwErr (msg) = throw(makeString(["lp.ride:", msg], " "))
144163
145164
165+func fmtErr (msg) = makeString(["lp.ride:", msg], " ")
166+
167+
146168 let factoryContract = addressFromStringValue(getStringOrFail(this, fc()))
147169
148170 let feeCollectorAddress = addressFromStringValue(getStringOrFail(factoryContract, keyFeeCollectorAddress))
149-
150-let inFee = {
151- let @ = invoke(factoryContract, "getInFeeREADONLY", [toString(this)], nil)
152- if ($isInstanceOf(@, "Int"))
153- then @
154- else throw(($getType(@) + " couldn't be cast to Int"))
155- }
156-
157-let outFee = {
158- let @ = invoke(factoryContract, "getOutFeeREADONLY", [toString(this)], nil)
159- if ($isInstanceOf(@, "Int"))
160- then @
161- else throw(($getType(@) + " couldn't be cast to Int"))
162- }
163171
164172 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
165173
191199
192200 let poolConfigParsed = parsePoolConfig(getPoolConfig())
193201
194-let $t076017767 = poolConfigParsed
202+let $t080588224 = poolConfigParsed
195203
196-let cfgPoolAddress = $t076017767._1
204+let cfgPoolAddress = $t080588224._1
197205
198-let cfgPoolStatus = $t076017767._2
206+let cfgPoolStatus = $t080588224._2
199207
200-let cfgLpAssetId = $t076017767._3
208+let cfgLpAssetId = $t080588224._3
201209
202-let cfgAmountAssetId = $t076017767._4
210+let cfgAmountAssetId = $t080588224._4
203211
204-let cfgPriceAssetId = $t076017767._5
212+let cfgPriceAssetId = $t080588224._5
205213
206-let cfgAmountAssetDecimals = $t076017767._6
214+let cfgAmountAssetDecimals = $t080588224._6
207215
208-let cfgPriceAssetDecimals = $t076017767._7
216+let cfgPriceAssetDecimals = $t080588224._7
209217
210218 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
211219
226234
227235
228236 func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
237+
238+
239+func calcPriceBigIntRound (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
229240
230241
231242 func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
277288 let lpEmissionX18 = toX18(lpEmission, scale8)
278289 let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
279290 let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
280- let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
281- let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
291+ let outAmAmt = fromX18Round(outAmAmtX18, amAssetDcm, FLOOR)
292+ let outPrAmt = fromX18Round(outPrAmtX18, prAssetDcm, FLOOR)
282293 let state = if ((txId58 == ""))
283294 then nil
284295 else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
337348 then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
338349 else {
339350 let lpEmissionX18 = toX18(lpEmission, scale8)
340- let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
341- let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
351+ let prViaAmX18 = fraction(inAmAssetAmtX18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
352+ let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, FLOOR), CEILING)
342353 let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
343354 then $Tuple2(amViaPrX18, inPrAssetAmtX18)
344355 else $Tuple2(inAmAssetAmtX18, prViaAmX18)
345356 let expAmtAssetAmtX18 = expectedAmts._1
346357 let expPriceAssetAmtX18 = expectedAmts._2
347- let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
348- $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
358+ let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
359+ $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtAssetDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceAssetDcm, CEILING), curPriceX18, slippageX18)
349360 }
350361 }
351362 let calcLpAmt = res._1
368379 }
369380
370381
382+func calcKLp (amountBalance,priceBalance,lpEmission) = {
383+ let updatedKLp = fraction(pow((amountBalance * priceBalance), 0, toBigInt(5), 1, 18, DOWN), big1, lpEmission)
384+ if ((lpEmission == big0))
385+ then big0
386+ else updatedKLp
387+ }
388+
389+
390+func calcCurrentKLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
391+ let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
392+ let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
393+ let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
394+ let currentKLp = calcKLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
395+ currentKLp
396+ }
397+
398+
399+func refreshKLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
400+ let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
401+ let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
402+ let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
403+ let updatedKLp = calcKLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
404+ let actions = [IntegerEntry(keyKLpRefreshedHeight, height), StringEntry(keyKLp, toString(updatedKLp))]
405+ $Tuple2(actions, updatedKLp)
406+ }
407+
408+
409+func validateUpdatedKLp (oldKLp,updatedKLp) = if ((updatedKLp >= oldKLp))
410+ then true
411+ else throwErr(makeString(["updated KLp lower than current KLp", toString(oldKLp), toString(updatedKLp)], " "))
412+
413+
371414 func validateMatcherOrderAllowed (order) = {
372- let cfg = getPoolConfig()
373- let amtAssetId = cfg[idxAmtAssetId]
374- let priceAssetId = cfg[idxPriceAssetId]
375- let poolStatus = parseIntValue(cfg[idxPoolStatus])
376- let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
377- let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
378- let accAmtAssetBalance = getAccBalance(amtAssetId)
379- let accPriceAssetBalance = getAccBalance(priceAssetId)
380- let curPriceX18 = if ((order.orderType == Buy))
381- then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
382- else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
383- let curPrice = fromX18(curPriceX18, scale8)
415+ let amountAssetAmount = order.amount
416+ let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
417+ let $t02080121013 = if ((order.orderType == Buy))
418+ then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419+ else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420+ let amountAssetBalanceDelta = $t02080121013._1
421+ let priceAssetBalanceDelta = $t02080121013._2
384422 if (if (if (isGlobalShutdown())
385423 then true
386- else (poolStatus == PoolMatcherDisabled))
424+ else (cfgPoolStatus == PoolMatcherDisabled))
387425 then true
388- else (poolStatus == PoolShutdown))
426+ else (cfgPoolStatus == PoolShutdown))
389427 then throw("Exchange operations disabled")
390- else {
391- let orderAmtAsset = order.assetPair.amountAsset
392- let orderAmtAssetStr = if ((orderAmtAsset == unit))
393- then "WAVES"
394- else toBase58String(value(orderAmtAsset))
395- let orderPriceAsset = order.assetPair.priceAsset
396- let orderPriceAssetStr = if ((orderPriceAsset == unit))
397- then "WAVES"
398- else toBase58String(value(orderPriceAsset))
399- if (if ((orderAmtAssetStr != amtAssetId))
400- then true
401- else (orderPriceAssetStr != priceAssetId))
402- then throw("Wrong order assets.")
403- else {
404- let orderPrice = order.price
405- let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
406- let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
407- let isOrderPriceValid = if ((order.orderType == Buy))
408- then (curPrice >= castedOrderPrice)
409- else (castedOrderPrice >= curPrice)
410- true
411- }
412- }
428+ else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
429+ then true
430+ else (order.assetPair.priceAsset != cfgPriceAssetId))
431+ then throw("Wrong order assets.")
432+ else {
433+ let kLp = valueOrErrorMessage(parseBigInt(valueOrErrorMessage(getString(this, keyKLp), fmtErr("kLp is required"))), fmtErr("invalid kLp"))
434+ let $t02148421584 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435+ let unusedActions = $t02148421584._1
436+ let kLpNew = $t02148421584._2
437+ let isOrderValid = (kLpNew >= kLp)
438+ isOrderValid
439+ }
413440 }
414441
415442
467494 }
468495
469496
470-func takeFee (amount,fee) = {
471- let feeAmount = if ((fee == 0))
472- then 0
473- else fraction(amount, fee, scale8)
497+func takeFee (amount) = {
498+ let feeAmount = fraction(amount, fee, scale8)
474499 $Tuple2((amount - feeAmount), feeAmount)
475500 }
476501
484509 else if ((paymentAssetId == cfgPriceAssetId))
485510 then false
486511 else throwErr("invalid asset")
487- let $t02266422957 = if (isEval)
512+ let $t02426924562 = if (isEval)
488513 then $Tuple2(amountBalanceRaw, priceBalanceRaw)
489514 else if (paymentInAmountAsset)
490515 then $Tuple2((amountBalanceRaw - paymentAmountRaw), priceBalanceRaw)
491516 else $Tuple2(amountBalanceRaw, (priceBalanceRaw - paymentAmountRaw))
492- let amountBalanceOld = $t02266422957._1
493- let priceBalanceOld = $t02266422957._2
494- let $t02296123110 = if (paymentInAmountAsset)
517+ let amountBalanceOld = $t02426924562._1
518+ let priceBalanceOld = $t02426924562._2
519+ let $t02456624715 = if (paymentInAmountAsset)
495520 then $Tuple2(paymentAmountRaw, 0)
496521 else $Tuple2(0, paymentAmountRaw)
497- let amountAssetAmountRaw = $t02296123110._1
498- let priceAssetAmountRaw = $t02296123110._2
499- let amountAssetAmount = takeFee(amountAssetAmountRaw, inFee)._1
500- let priceAssetAmount = takeFee(priceAssetAmountRaw, inFee)._1
501- let $t02324223306 = takeFee(paymentAmountRaw, inFee)
502- let paymentAmount = $t02324223306._1
503- let feeAmount = $t02324223306._2
522+ let amountAssetAmountRaw = $t02456624715._1
523+ let priceAssetAmountRaw = $t02456624715._2
524+ let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525+ let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526+ let $t02483724896 = takeFee(paymentAmountRaw)
527+ let paymentAmount = $t02483724896._1
528+ let feeAmount = $t02483724896._2
504529 let amountBalanceNew = (amountBalanceOld + amountAssetAmount)
505530 let priceBalanceNew = (priceBalanceOld + priceAssetAmount)
506531 let priceNewX18 = calcPriceBigInt(toX18(priceBalanceNew, cfgPriceAssetDecimals), toX18(amountBalanceNew, cfgAmountAssetDecimals))
516541 if ((chechSupply == chechSupply))
517542 then {
518543 let depositBigInt = toBigInt(paymentAmount)
519- let issueAmount = max([0, toInt(((supplyBigInt * (sqrtBigInt((scale18 + ((depositBigInt * scale18) / paymentBalanceBigInt)), 18, 18, DOWN) - scale18)) / scale18))])
544+ let issueAmount = max([0, fromX18Round(fraction(supplyBigInt, (sqrtBigInt((scale18 + ((depositBigInt * scale18) / paymentBalanceBigInt)), 18, 18, DOWN) - scale18), scale18), scale8, FLOOR)])
520545 let commonState = if (isEval)
521546 then nil
522547 else [IntegerEntry(pl(), priceNew), IntegerEntry(ph(height, lastBlock.timestamp), priceNew), StringEntry(pau(toString(value(userAddress)), toBase58String(value(txId))), dataPutActionInfo(amountAssetAmountRaw, priceAssetAmountRaw, issueAmount, priceNew, 0, 0, height, lastBlock.timestamp, 0, 0))]
523548 let priceOldX18 = calcPriceBigInt(toX18(priceBalanceOld, cfgPriceAssetDecimals), toX18(amountBalanceOld, cfgAmountAssetDecimals))
524549 let priceOld = fromX18(priceOldX18, scale8)
525550 let loss = {
526- let $t02478324950 = if (paymentInAmountAsset)
551+ let $t02639726564 = if (paymentInAmountAsset)
527552 then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
528553 else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
529- let amount = $t02478324950._1
530- let balance = $t02478324950._2
554+ let amount = $t02639726564._1
555+ let balance = $t02639726564._2
531556 let issueAmountBoth = toInt(fraction(supplyBigInt, toBigInt((amount / 2)), toBigInt(balance)))
532557 fraction((issueAmount - issueAmountBoth), scale8, issueAmountBoth)
533558 }
534- $Tuple4(issueAmount, commonState, feeAmount, loss)
559+ $Tuple5(issueAmount, commonState, feeAmount, loss, paymentInAmountAsset)
535560 }
536561 else throw("Strict value is not equal to itself.")
537562 }
539564
540565 func calcGetOneToken (outAssetId,paymentAmount,paymentAssetId,userAddress,txId) = {
541566 let isEval = (txId == unit)
567+ let cfg = getPoolConfig()
568+ let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
569+ let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
542570 let checks = [if ((paymentAssetId == cfgLpAssetId))
543571 then true
544572 else throwErr("invalid lp asset")]
552580 let balanceBigInt = if (outInAmountAsset)
553581 then toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId)))
554582 else toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId)))
583+ let outInAmountAssetDecimals = if (outInAmountAsset)
584+ then amtAssetDcm
585+ else priceAssetDcm
555586 let amBalanceOld = getAccBalance(assetIdToString(cfgAmountAssetId))
556587 let prBalanceOld = getAccBalance(assetIdToString(cfgPriceAssetId))
557588 let outBalance = if (outInAmountAsset)
560591 let outBalanceBigInt = toBigInt(outBalance)
561592 let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
562593 let redeemedBigInt = toBigInt(paymentAmount)
563- let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
564- let $t02653026586 = takeFee(amountRaw, outFee)
565- let totalAmount = $t02653026586._1
566- let feeAmount = $t02653026586._2
567- let $t02659026816 = if (outInAmountAsset)
594+ let amountRaw = max([0, fromX18Round(fraction(balanceBigInt, (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN)), scale18), outInAmountAssetDecimals, FLOOR)])
595+ let $t02846528515 = takeFee(amountRaw)
596+ let totalAmount = $t02846528515._1
597+ let feeAmount = $t02846528515._2
598+ let $t02851928745 = if (outInAmountAsset)
568599 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
569600 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
570- let outAmAmount = $t02659026816._1
571- let outPrAmount = $t02659026816._2
572- let amBalanceNew = $t02659026816._3
573- let prBalanceNew = $t02659026816._4
601+ let outAmAmount = $t02851928745._1
602+ let outPrAmount = $t02851928745._2
603+ let amBalanceNew = $t02851928745._3
604+ let prBalanceNew = $t02851928745._4
574605 let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
575606 let priceNew = fromX18(priceNewX18, scale8)
576607 let commonState = if (isEval)
582613 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
583614 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
584615 }
585- $Tuple4(totalAmount, commonState, feeAmount, loss)
616+ $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
586617 }
587618 else throw("Strict value is not equal to itself.")
588619 }
682713 let prDiff = estPut._11
683714 let amId = estPut._12
684715 let prId = estPut._13
685- let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686- if ((emitInv == emitInv))
716+ let amAssetPmt = toBigInt(value(i.payments[0]).amount)
717+ let prAssetPmt = toBigInt(value(i.payments[1]).amount)
718+ let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
719+ if ((currentKLp == currentKLp))
687720 then {
688- let emitInvLegacy = match emitInv {
689- case legacyFactoryContract: Address =>
690- invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
691- case _ =>
692- unit
693- }
694- if ((emitInvLegacy == emitInvLegacy))
721+ let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
722+ if ((emitInv == emitInv))
695723 then {
696- let slippageAInv = if ((amDiff > 0))
697- then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
698- else nil
699- if ((slippageAInv == slippageAInv))
724+ let emitInvLegacy = match emitInv {
725+ case legacyFactoryContract: Address =>
726+ invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
727+ case _ =>
728+ unit
729+ }
730+ if ((emitInvLegacy == emitInvLegacy))
700731 then {
701- let slippagePInv = if ((prDiff > 0))
702- then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
732+ let slippageAInv = if ((amDiff > 0))
733+ then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
703734 else nil
704- if ((slippagePInv == slippagePInv))
735+ if ((slippageAInv == slippageAInv))
705736 then {
706- let lpTransfer = if (shouldAutoStake)
737+ let slippagePInv = if ((prDiff > 0))
738+ then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
739+ else nil
740+ if ((slippagePInv == slippagePInv))
707741 then {
708- let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709- if ((slpStakeInv == slpStakeInv))
710- then nil
742+ let lpTransfer = if (shouldAutoStake)
743+ then {
744+ let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
745+ if ((slpStakeInv == slpStakeInv))
746+ then nil
747+ else throw("Strict value is not equal to itself.")
748+ }
749+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
750+ let $t03327333735 = refreshKLpInternal(0, 0, 0)
751+ if (($t03327333735 == $t03327333735))
752+ then {
753+ let updatedKLp = $t03327333735._2
754+ let refreshKLpActions = $t03327333735._1
755+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
756+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
757+ then ((state ++ lpTransfer) ++ refreshKLpActions)
758+ else throw("Strict value is not equal to itself.")
759+ }
711760 else throw("Strict value is not equal to itself.")
712761 }
713- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714- (state ++ lpTransfer)
762+ else throw("Strict value is not equal to itself.")
715763 }
716764 else throw("Strict value is not equal to itself.")
717765 }
729777 then throw("Invalid value passed")
730778 else {
731779 let estPut = commonPut(i, maxSlippage, false)
732- estPut._9
780+ let state = estPut._9
781+ let amAssetPmt = toBigInt(value(i.payments[0]).amount)
782+ let prAssetPmt = toBigInt(value(i.payments[1]).amount)
783+ let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
784+ if ((currentKLp == currentKLp))
785+ then {
786+ let $t03429734362 = refreshKLpInternal(0, 0, 0)
787+ let refreshKLpActions = $t03429734362._1
788+ let updatedKLp = $t03429734362._2
789+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
790+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
791+ then (state ++ refreshKLpActions)
792+ else throw("Strict value is not equal to itself.")
793+ }
794+ else throw("Strict value is not equal to itself.")
733795 }
734796
735797
761823 let payment = i.payments[0]
762824 let paymentAssetId = payment.assetId
763825 let paymentAmountRaw = payment.amount
764- let userAddress = i.caller
765- let txId = i.transactionId
766- let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767- if (($t03172331853 == $t03172331853))
826+ let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
827+ then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
828+ else if ((paymentAssetId == cfgPriceAssetId))
829+ then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
830+ else throwErr("payment asset is not supported")
831+ if ((currentKLp == currentKLp))
768832 then {
769- let bonus = $t03172331853._4
770- let feeAmount = $t03172331853._3
771- let commonState = $t03172331853._2
772- let emitAmountEstimated = $t03172331853._1
773- let emitAmount = if (if ((minOutAmount > 0))
774- then (minOutAmount > emitAmountEstimated)
775- else false)
776- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
777- else emitAmountEstimated
778- let emitInv = emit(emitAmount)
779- if ((emitInv == emitInv))
833+ let userAddress = i.caller
834+ let txId = i.transactionId
835+ let $t03555035702 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
836+ if (($t03555035702 == $t03555035702))
780837 then {
781- let lpTransfer = if (autoStake)
838+ let paymentInAmountAsset = $t03555035702._5
839+ let bonus = $t03555035702._4
840+ let feeAmount = $t03555035702._3
841+ let commonState = $t03555035702._2
842+ let emitAmountEstimated = $t03555035702._1
843+ let emitAmount = if (if ((minOutAmount > 0))
844+ then (minOutAmount > emitAmountEstimated)
845+ else false)
846+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
847+ else emitAmountEstimated
848+ let emitInv = emit(emitAmount)
849+ if ((emitInv == emitInv))
782850 then {
783- let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
784- if ((stakeInv == stakeInv))
785- then nil
851+ let lpTransfer = if (autoStake)
852+ then {
853+ let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
854+ if ((stakeInv == stakeInv))
855+ then nil
856+ else throw("Strict value is not equal to itself.")
857+ }
858+ else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
859+ let sendFee = if ((feeAmount > 0))
860+ then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
861+ else nil
862+ let $t03628836485 = if ((this == feeCollectorAddress))
863+ then $Tuple2(0, 0)
864+ else if (paymentInAmountAsset)
865+ then $Tuple2(-(feeAmount), 0)
866+ else $Tuple2(0, -(feeAmount))
867+ let amountAssetBalanceDelta = $t03628836485._1
868+ let priceAssetBalanceDelta = $t03628836485._2
869+ let $t03648836596 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
870+ let refreshKLpActions = $t03648836596._1
871+ let updatedKLp = $t03648836596._2
872+ let kLp = value(getString(keyKLp))
873+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
874+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
875+ then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
786876 else throw("Strict value is not equal to itself.")
787877 }
788- else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
789- let sendFee = if ((feeAmount > 0))
790- then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
791- else nil
792- $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
878+ else throw("Strict value is not equal to itself.")
793879 }
794880 else throw("Strict value is not equal to itself.")
795881 }
802888
803889 @Callable(i)
804890 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
805- let $t03258232717 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
806- let emitAmountEstimated = $t03258232717._1
807- let commonState = $t03258232717._2
808- let feeAmount = $t03258232717._3
809- let bonus = $t03258232717._4
891+ let $t03690237059 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
892+ let emitAmountEstimated = $t03690237059._1
893+ let commonState = $t03690237059._2
894+ let feeAmount = $t03690237059._3
895+ let bonus = $t03690237059._4
896+ let paymentInAmountAsset = $t03690237059._5
810897 $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
811898 }
812899
838925 let payment = i.payments[0]
839926 let paymentAssetId = payment.assetId
840927 let paymentAmount = payment.amount
841- let userAddress = i.caller
842- let txId = i.transactionId
843- let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844- if (($t03352233657 == $t03352233657))
928+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
929+ if ((currentKLp == currentKLp))
845930 then {
846- let bonus = $t03352233657._4
847- let feeAmount = $t03352233657._3
848- let commonState = $t03352233657._2
849- let amountEstimated = $t03352233657._1
850- let amount = if (if ((minOutAmount > 0))
851- then (minOutAmount > amountEstimated)
852- else false)
853- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
854- else amountEstimated
855- let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
856- if ((burnInv == burnInv))
931+ let userAddress = i.caller
932+ let txId = i.transactionId
933+ let $t03794438097 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
934+ if (($t03794438097 == $t03794438097))
857935 then {
858- let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
859- let sendFee = if ((feeAmount > 0))
860- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
861- else nil
862- $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
936+ let outInAmountAsset = $t03794438097._5
937+ let bonus = $t03794438097._4
938+ let feeAmount = $t03794438097._3
939+ let commonState = $t03794438097._2
940+ let amountEstimated = $t03794438097._1
941+ let amount = if (if ((minOutAmount > 0))
942+ then (minOutAmount > amountEstimated)
943+ else false)
944+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
945+ else amountEstimated
946+ let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
947+ if ((burnInv == burnInv))
948+ then {
949+ let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
950+ let sendFee = if ((feeAmount > 0))
951+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
952+ else nil
953+ let $t03859738844 = {
954+ let feeAmountForCalc = if ((this == feeCollectorAddress))
955+ then 0
956+ else feeAmount
957+ if (outInAmountAsset)
958+ then $Tuple2(-((amount + feeAmountForCalc)), 0)
959+ else $Tuple2(0, -((amount + feeAmountForCalc)))
960+ }
961+ let amountAssetBalanceDelta = $t03859738844._1
962+ let priceAssetBalanceDelta = $t03859738844._2
963+ let $t03884738955 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
964+ let refreshKLpActions = $t03884738955._1
965+ let updatedKLp = $t03884738955._2
966+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
967+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
968+ then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
969+ else throw("Strict value is not equal to itself.")
970+ }
971+ else throw("Strict value is not equal to itself.")
863972 }
864973 else throw("Strict value is not equal to itself.")
865974 }
872981
873982 @Callable(i)
874983 func getOneTknREADONLY (outAssetId,paymentAmount) = {
875- let $t03429234430 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
876- let amountEstimated = $t03429234430._1
877- let commonState = $t03429234430._2
878- let feeAmount = $t03429234430._3
879- let bonus = $t03429234430._4
984+ let $t03921239368 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
985+ let amountEstimated = $t03921239368._1
986+ let commonState = $t03921239368._2
987+ let feeAmount = $t03921239368._3
988+ let bonus = $t03921239368._4
989+ let outInAmountAsset = $t03921239368._5
880990 $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
881991 }
882992
9071017 let outAssetId = parseAssetId(outAssetIdStr)
9081018 let userAddress = i.caller
9091019 let txId = i.transactionId
1020+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
9101021 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
9111022 if ((unstakeInv == unstakeInv))
9121023 then {
913- let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914- if (($t03525535388 == $t03525535388))
1024+ let $t04027040421 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1025+ if (($t04027040421 == $t04027040421))
9151026 then {
916- let bonus = $t03525535388._4
917- let feeAmount = $t03525535388._3
918- let commonState = $t03525535388._2
919- let amountEstimated = $t03525535388._1
1027+ let outInAmountAsset = $t04027040421._5
1028+ let bonus = $t04027040421._4
1029+ let feeAmount = $t04027040421._3
1030+ let commonState = $t04027040421._2
1031+ let amountEstimated = $t04027040421._1
9201032 let amount = if (if ((minOutAmount > 0))
9211033 then (minOutAmount > amountEstimated)
9221034 else false)
9291041 let sendFee = if ((feeAmount > 0))
9301042 then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
9311043 else nil
932- $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1044+ let $t04091641163 = {
1045+ let feeAmountForCalc = if ((this == feeCollectorAddress))
1046+ then 0
1047+ else feeAmount
1048+ if (outInAmountAsset)
1049+ then $Tuple2(-((amount + feeAmountForCalc)), 0)
1050+ else $Tuple2(0, -((amount + feeAmountForCalc)))
1051+ }
1052+ let amountAssetBalanceDelta = $t04091641163._1
1053+ let priceAssetBalanceDelta = $t04091641163._2
1054+ let $t04116641274 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1055+ let refreshKLpActions = $t04116641274._1
1056+ let updatedKLp = $t04116641274._2
1057+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1058+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1059+ then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1060+ else throw("Strict value is not equal to itself.")
9331061 }
9341062 else throw("Strict value is not equal to itself.")
9351063 }
9501078 let pmtAmt = res._3
9511079 let pmtAssetId = res._4
9521080 let state = res._5
953- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
954- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
955- then state
1081+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1082+ if ((currentKLp == currentKLp))
1083+ then {
1084+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1085+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1086+ then {
1087+ let $t04222042302 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1088+ let refreshKLpActions = $t04222042302._1
1089+ let updatedKLp = $t04222042302._2
1090+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1091+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1092+ then (state ++ refreshKLpActions)
1093+ else throw("Strict value is not equal to itself.")
1094+ }
1095+ else throw("Strict value is not equal to itself.")
1096+ }
9561097 else throw("Strict value is not equal to itself.")
9571098 }
9581099
9711112 else if ((noLessThenPriceAsset > outPrAmt))
9721113 then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
9731114 else {
1115+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
9741116 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
9751117 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
976- then state
1118+ then {
1119+ let $t04325343334 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1120+ let refreshKLpActions = $t04325343334._1
1121+ let updatedKLp = $t04325343334._2
1122+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1123+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1124+ then (state ++ refreshKLpActions)
1125+ else throw("Strict value is not equal to itself.")
1126+ }
9771127 else throw("Strict value is not equal to itself.")
9781128 }
9791129 }
9891139 then {
9901140 let cfg = getPoolConfig()
9911141 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1142+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
9921143 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
9931144 if ((unstakeInv == unstakeInv))
9941145 then {
9951146 let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1147+ let outAmAmt = res._1
1148+ let outPrAmt = res._2
9961149 let poolStatus = parseIntValue(res._9)
9971150 let state = res._10
9981151 let checkPoolStatus = if (if (isGlobalShutdown())
10041157 then {
10051158 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
10061159 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1007- then state
1160+ then {
1161+ let $t04445744538 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1162+ let refreshKLpActions = $t04445744538._1
1163+ let updatedKLp = $t04445744538._2
1164+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1165+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1166+ then (state ++ refreshKLpActions)
1167+ else throw("Strict value is not equal to itself.")
1168+ }
10081169 else throw("Strict value is not equal to itself.")
10091170 }
10101171 else throw("Strict value is not equal to itself.")
10281189 else throw("no payments are expected")]
10291190 if ((checks == checks))
10301191 then {
1192+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
10311193 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
10321194 if ((unstakeInv == unstakeInv))
10331195 then {
10441206 then {
10451207 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
10461208 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1047- then state
1209+ then {
1210+ let $t04583045911 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1211+ let refreshKLpActions = $t04583045911._1
1212+ let updatedKLp = $t04583045911._2
1213+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1214+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1215+ then (state ++ refreshKLpActions)
1216+ else throw("Strict value is not equal to itself.")
1217+ }
10481218 else throw("Strict value is not equal to itself.")
10491219 }
10501220 else throw("Strict value is not equal to itself.")
10601230 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
10611231 then throw("permissions denied")
10621232 else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1233+
1234+
1235+
1236+@Callable(i)
1237+func refreshKLp () = {
1238+ let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1239+ let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1240+ then unit
1241+ else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1242+ if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1243+ then {
1244+ let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1245+ let $t04709847162 = refreshKLpInternal(0, 0, 0)
1246+ let kLpUpdateActions = $t04709847162._1
1247+ let updatedKLp = $t04709847162._2
1248+ let actions = if ((kLp != updatedKLp))
1249+ then kLpUpdateActions
1250+ else throwErr("nothing to refresh")
1251+ $Tuple2(actions, toString(updatedKLp))
1252+ }
1253+ else throw("Strict value is not equal to itself.")
1254+ }
10631255
10641256
10651257
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let lPdecimals = 8
55
66 let scale8 = 100000000
77
88 let scale8BigInt = toBigInt(100000000)
99
1010 let scale18 = toBigInt(1000000000000000000)
1111
1212 let zeroBigInt = toBigInt(0)
1313
1414 let big0 = toBigInt(0)
1515
1616 let big1 = toBigInt(1)
1717
1818 let big2 = toBigInt(2)
1919
2020 let wavesString = "WAVES"
2121
2222 let SEP = "__"
2323
2424 let PoolActive = 1
2525
2626 let PoolPutDisabled = 2
2727
2828 let PoolMatcherDisabled = 3
2929
3030 let PoolShutdown = 4
3131
3232 let idxPoolAddress = 1
3333
3434 let idxPoolStatus = 2
3535
3636 let idxPoolLPAssetId = 3
3737
3838 let idxAmtAssetId = 4
3939
4040 let idxPriceAssetId = 5
4141
4242 let idxAmtAssetDcm = 6
4343
4444 let idxPriceAssetDcm = 7
4545
4646 let idxIAmtAssetId = 8
4747
4848 let idxIPriceAssetId = 9
4949
5050 let idxLPAssetDcm = 10
5151
5252 let idxPoolAmtAssetAmt = 1
5353
5454 let idxPoolPriceAssetAmt = 2
5555
5656 let idxPoolLPAssetAmt = 3
5757
5858 let idxFactoryStakingContract = 1
5959
6060 let idxFactorySlippageContract = 7
6161
6262 func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
6363
6464
6565 func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
6666
6767
68+func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
69+
70+
6871 func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
6972
7073
7174 func abs (val) = if ((0 > val))
7275 then -(val)
7376 else val
7477
7578
7679 func absBigInt (val) = if ((zeroBigInt > val))
7780 then -(val)
7881 else val
7982
8083
8184 func fc () = "%s__factoryContract"
8285
8386
8487 func mpk () = "%s__managerPublicKey"
8588
8689
8790 func pmpk () = "%s__pendingManagerPublicKey"
8891
8992
9093 func pl () = "%s%s__price__last"
9194
9295
9396 func ph (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
9497
9598
9699 func pau (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
97100
98101
99102 func gau (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
100103
101104
102105 func aa () = "%s__amountAsset"
103106
104107
105108 func pa () = "%s__priceAsset"
106109
107110
111+let keyFee = "%s__fee"
112+
113+let feeDefault = fraction(10, scale8, 10000)
114+
115+let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
116+
117+let keyKLp = makeString(["%s", "kLp"], SEP)
118+
119+let keyKLpRefreshedHeight = makeString(["%s", "kLpRefreshedHeight"], SEP)
120+
121+let keyKLpRefreshDelay = makeString(["%s", "refreshKLpDelay"], SEP)
122+
123+let kLpRefreshDelayDefault = 30
124+
125+let kLpRefreshDelay = valueOrElse(getInteger(this, keyKLpRefreshDelay), kLpRefreshDelayDefault)
126+
108127 func keyFactoryConfig () = "%s__factoryConfig"
109128
110129
111130 func keyMatcherPub () = "%s%s__matcher__publicKey"
112131
113132
114133 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
115134
116135
117136 func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
118137
119138
120139 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
121140
122141
123142 func keyAllPoolsShutdown () = "%s__shutdown"
124143
125144
126145 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
127146
128147
129148 func keyAllowedLpScriptHash () = "%s__allowedLpScriptHash"
130149
131150
132151 let keyFeeCollectorAddress = "%s__feeCollectorAddress"
133152
134153 func throwOrderError (orderValid,senderValid,matcherValid) = throw(((((("order validation failed: orderValid=" + toString(orderValid)) + " senderValid=") + toString(senderValid)) + " matcherValid=") + toString(matcherValid)))
135154
136155
137156 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
138157
139158
140159 func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
141160
142161
143162 func throwErr (msg) = throw(makeString(["lp.ride:", msg], " "))
144163
145164
165+func fmtErr (msg) = makeString(["lp.ride:", msg], " ")
166+
167+
146168 let factoryContract = addressFromStringValue(getStringOrFail(this, fc()))
147169
148170 let feeCollectorAddress = addressFromStringValue(getStringOrFail(factoryContract, keyFeeCollectorAddress))
149-
150-let inFee = {
151- let @ = invoke(factoryContract, "getInFeeREADONLY", [toString(this)], nil)
152- if ($isInstanceOf(@, "Int"))
153- then @
154- else throw(($getType(@) + " couldn't be cast to Int"))
155- }
156-
157-let outFee = {
158- let @ = invoke(factoryContract, "getOutFeeREADONLY", [toString(this)], nil)
159- if ($isInstanceOf(@, "Int"))
160- then @
161- else throw(($getType(@) + " couldn't be cast to Int"))
162- }
163171
164172 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
165173
166174
167175 func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
168176
169177
170178 func getPoolConfig () = {
171179 let amtAsset = getStringOrFail(this, aa())
172180 let priceAsset = getStringOrFail(this, pa())
173181 let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
174182 let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
175183 split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
176184 }
177185
178186
179187 func parseAssetId (input) = if ((input == wavesString))
180188 then unit
181189 else fromBase58String(input)
182190
183191
184192 func assetIdToString (input) = if ((input == unit))
185193 then wavesString
186194 else toBase58String(value(input))
187195
188196
189197 func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolStatus]), fromBase58String(poolConfig[idxPoolLPAssetId]), parseAssetId(poolConfig[idxAmtAssetId]), parseAssetId(poolConfig[idxPriceAssetId]), parseIntValue(poolConfig[idxAmtAssetDcm]), parseIntValue(poolConfig[idxPriceAssetDcm]))
190198
191199
192200 let poolConfigParsed = parsePoolConfig(getPoolConfig())
193201
194-let $t076017767 = poolConfigParsed
202+let $t080588224 = poolConfigParsed
195203
196-let cfgPoolAddress = $t076017767._1
204+let cfgPoolAddress = $t080588224._1
197205
198-let cfgPoolStatus = $t076017767._2
206+let cfgPoolStatus = $t080588224._2
199207
200-let cfgLpAssetId = $t076017767._3
208+let cfgLpAssetId = $t080588224._3
201209
202-let cfgAmountAssetId = $t076017767._4
210+let cfgAmountAssetId = $t080588224._4
203211
204-let cfgPriceAssetId = $t076017767._5
212+let cfgPriceAssetId = $t080588224._5
205213
206-let cfgAmountAssetDecimals = $t076017767._6
214+let cfgAmountAssetDecimals = $t080588224._6
207215
208-let cfgPriceAssetDecimals = $t076017767._7
216+let cfgPriceAssetDecimals = $t080588224._7
209217
210218 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
211219
212220
213221 let stakingContract = valueOrErrorMessage(addressFromString(getFactoryConfig()[idxFactoryStakingContract]), "incorrect staking address")
214222
215223 let slippageContract = valueOrErrorMessage(addressFromString(getFactoryConfig()[idxFactorySlippageContract]), "incorrect staking address")
216224
217225 func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slippageTolerancePassedByUser,slippageToleranceReal,txHeight,txTimestamp,slipageAmtAssetAmt,slipagePriceAssetAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slippageTolerancePassedByUser), toString(slippageToleranceReal), toString(txHeight), toString(txTimestamp), toString(slipageAmtAssetAmt), toString(slipagePriceAssetAmt)], SEP)
218226
219227
220228 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)
221229
222230
223231 func getAccBalance (assetId) = if ((assetId == "WAVES"))
224232 then wavesBalance(this).available
225233 else assetBalance(this, fromBase58String(assetId))
226234
227235
228236 func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
237+
238+
239+func calcPriceBigIntRound (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
229240
230241
231242 func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
232243 let amtAssetAmtX18 = toX18(amAmt, amAssetDcm)
233244 let priceAssetAmtX18 = toX18(prAmt, prAssetDcm)
234245 calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
235246 }
236247
237248
238249 func calcPrices (amAmt,prAmt,lpAmt) = {
239250 let cfg = getPoolConfig()
240251 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
241252 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
242253 let priceX18 = privateCalcPrice(amtAssetDcm, priceAssetDcm, amAmt, prAmt)
243254 let amAmtX18 = toX18(amAmt, amtAssetDcm)
244255 let prAmtX18 = toX18(prAmt, priceAssetDcm)
245256 let lpAmtX18 = toX18(lpAmt, scale8)
246257 let lpPriceInAmAssetX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
247258 let lpPriceInPrAssetX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
248259 [priceX18, lpPriceInAmAssetX18, lpPriceInPrAssetX18]
249260 }
250261
251262
252263 func calculatePrices (amAmt,prAmt,lpAmt) = {
253264 let prices = calcPrices(amAmt, prAmt, lpAmt)
254265 [fromX18(prices[0], scale8), fromX18(prices[1], scale8), fromX18(prices[2], scale8)]
255266 }
256267
257268
258269 func estimateGetOperation (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
259270 let cfg = getPoolConfig()
260271 let lpAssetId = cfg[idxPoolLPAssetId]
261272 let amAssetId = cfg[idxAmtAssetId]
262273 let prAssetId = cfg[idxPriceAssetId]
263274 let amAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
264275 let prAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
265276 let poolStatus = cfg[idxPoolStatus]
266277 let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
267278 if ((lpAssetId != pmtAssetId))
268279 then throw("Invalid asset passed.")
269280 else {
270281 let amBalance = getAccBalance(amAssetId)
271282 let amBalanceX18 = toX18(amBalance, amAssetDcm)
272283 let prBalance = getAccBalance(prAssetId)
273284 let prBalanceX18 = toX18(prBalance, prAssetDcm)
274285 let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
275286 let curPrice = fromX18(curPriceX18, scale8)
276287 let pmtLpAmtX18 = toX18(pmtLpAmt, scale8)
277288 let lpEmissionX18 = toX18(lpEmission, scale8)
278289 let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
279290 let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
280- let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
281- let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
291+ let outAmAmt = fromX18Round(outAmAmtX18, amAssetDcm, FLOOR)
292+ let outPrAmt = fromX18Round(outPrAmtX18, prAssetDcm, FLOOR)
282293 let state = if ((txId58 == ""))
283294 then nil
284295 else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
285296 then unit
286297 else fromBase58String(amAssetId)), ScriptTransfer(userAddress, outPrAmt, if ((prAssetId == "WAVES"))
287298 then unit
288299 else fromBase58String(prAssetId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
289300 $Tuple10(outAmAmt, outPrAmt, amAssetId, prAssetId, amBalance, prBalance, lpEmission, curPriceX18, poolStatus, state)
290301 }
291302 }
292303
293304
294305 func estimatePutOperation (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = {
295306 let cfg = getPoolConfig()
296307 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
297308 let amAssetIdStr = cfg[idxAmtAssetId]
298309 let prAssetIdStr = cfg[idxPriceAssetId]
299310 let iAmtAssetId = cfg[idxIAmtAssetId]
300311 let iPriceAssetId = cfg[idxIPriceAssetId]
301312 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
302313 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
303314 let poolStatus = cfg[idxPoolStatus]
304315 let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
305316 let inAmAssetIdStr = toBase58String(valueOrElse(inAmAssetId, fromBase58String("WAVES")))
306317 let inPrAssetIdStr = toBase58String(valueOrElse(inPrAssetId, fromBase58String("WAVES")))
307318 if (if ((amAssetIdStr != inAmAssetIdStr))
308319 then true
309320 else (prAssetIdStr != inPrAssetIdStr))
310321 then throw("Invalid amt or price asset passed.")
311322 else {
312323 let amBalance = if (isEvaluate)
313324 then getAccBalance(amAssetIdStr)
314325 else (getAccBalance(amAssetIdStr) - inAmAssetAmt)
315326 let prBalance = if (isEvaluate)
316327 then getAccBalance(prAssetIdStr)
317328 else (getAccBalance(prAssetIdStr) - inPrAssetAmt)
318329 let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
319330 let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
320331 let userPriceX18 = calcPriceBigInt(inPrAssetAmtX18, inAmAssetAmtX18)
321332 let amBalanceX18 = toX18(amBalance, amtAssetDcm)
322333 let prBalanceX18 = toX18(prBalance, priceAssetDcm)
323334 let res = if ((lpEmission == 0))
324335 then {
325336 let curPriceX18 = zeroBigInt
326337 let slippageX18 = zeroBigInt
327338 let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
328339 $Tuple5(fromX18(lpAmtX18, scale8), fromX18(inAmAssetAmtX18, amtAssetDcm), fromX18(inPrAssetAmtX18, priceAssetDcm), calcPriceBigInt((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
329340 }
330341 else {
331342 let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
332343 let slippageX18 = fraction(absBigInt((curPriceX18 - userPriceX18)), scale18, curPriceX18)
333344 let slippageToleranceX18 = toX18(slippageTolerance, scale8)
334345 if (if ((curPriceX18 != zeroBigInt))
335346 then (slippageX18 > slippageToleranceX18)
336347 else false)
337348 then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
338349 else {
339350 let lpEmissionX18 = toX18(lpEmission, scale8)
340- let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
341- let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
351+ let prViaAmX18 = fraction(inAmAssetAmtX18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
352+ let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, FLOOR), CEILING)
342353 let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
343354 then $Tuple2(amViaPrX18, inPrAssetAmtX18)
344355 else $Tuple2(inAmAssetAmtX18, prViaAmX18)
345356 let expAmtAssetAmtX18 = expectedAmts._1
346357 let expPriceAssetAmtX18 = expectedAmts._2
347- let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
348- $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
358+ let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
359+ $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtAssetDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceAssetDcm, CEILING), curPriceX18, slippageX18)
349360 }
350361 }
351362 let calcLpAmt = res._1
352363 let calcAmAssetPmt = res._2
353364 let calcPrAssetPmt = res._3
354365 let curPrice = fromX18(res._4, scale8)
355366 let slippageCalc = fromX18(res._5, scale8)
356367 if ((0 >= calcLpAmt))
357368 then throw("Invalid calculations. LP calculated is less than zero.")
358369 else {
359370 let emitLpAmt = if (!(emitLp))
360371 then 0
361372 else calcLpAmt
362373 let amDiff = (inAmAssetAmt - calcAmAssetPmt)
363374 let prDiff = (inPrAssetAmt - calcPrAssetPmt)
364375 let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(calcAmAssetPmt, calcPrAssetPmt, emitLpAmt, curPrice, slippageTolerance, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
365376 $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEmission, lpAssetId, poolStatus, commonState, amDiff, prDiff, inAmAssetId, inPrAssetId)
366377 }
367378 }
368379 }
369380
370381
382+func calcKLp (amountBalance,priceBalance,lpEmission) = {
383+ let updatedKLp = fraction(pow((amountBalance * priceBalance), 0, toBigInt(5), 1, 18, DOWN), big1, lpEmission)
384+ if ((lpEmission == big0))
385+ then big0
386+ else updatedKLp
387+ }
388+
389+
390+func calcCurrentKLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
391+ let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
392+ let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
393+ let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
394+ let currentKLp = calcKLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
395+ currentKLp
396+ }
397+
398+
399+func refreshKLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
400+ let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
401+ let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
402+ let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
403+ let updatedKLp = calcKLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
404+ let actions = [IntegerEntry(keyKLpRefreshedHeight, height), StringEntry(keyKLp, toString(updatedKLp))]
405+ $Tuple2(actions, updatedKLp)
406+ }
407+
408+
409+func validateUpdatedKLp (oldKLp,updatedKLp) = if ((updatedKLp >= oldKLp))
410+ then true
411+ else throwErr(makeString(["updated KLp lower than current KLp", toString(oldKLp), toString(updatedKLp)], " "))
412+
413+
371414 func validateMatcherOrderAllowed (order) = {
372- let cfg = getPoolConfig()
373- let amtAssetId = cfg[idxAmtAssetId]
374- let priceAssetId = cfg[idxPriceAssetId]
375- let poolStatus = parseIntValue(cfg[idxPoolStatus])
376- let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
377- let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
378- let accAmtAssetBalance = getAccBalance(amtAssetId)
379- let accPriceAssetBalance = getAccBalance(priceAssetId)
380- let curPriceX18 = if ((order.orderType == Buy))
381- then privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance + order.amount), accPriceAssetBalance)
382- else privateCalcPrice(amtAssetDcm, priceAssetDcm, (accAmtAssetBalance - order.amount), accPriceAssetBalance)
383- let curPrice = fromX18(curPriceX18, scale8)
415+ let amountAssetAmount = order.amount
416+ let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
417+ let $t02080121013 = if ((order.orderType == Buy))
418+ then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419+ else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420+ let amountAssetBalanceDelta = $t02080121013._1
421+ let priceAssetBalanceDelta = $t02080121013._2
384422 if (if (if (isGlobalShutdown())
385423 then true
386- else (poolStatus == PoolMatcherDisabled))
424+ else (cfgPoolStatus == PoolMatcherDisabled))
387425 then true
388- else (poolStatus == PoolShutdown))
426+ else (cfgPoolStatus == PoolShutdown))
389427 then throw("Exchange operations disabled")
390- else {
391- let orderAmtAsset = order.assetPair.amountAsset
392- let orderAmtAssetStr = if ((orderAmtAsset == unit))
393- then "WAVES"
394- else toBase58String(value(orderAmtAsset))
395- let orderPriceAsset = order.assetPair.priceAsset
396- let orderPriceAssetStr = if ((orderPriceAsset == unit))
397- then "WAVES"
398- else toBase58String(value(orderPriceAsset))
399- if (if ((orderAmtAssetStr != amtAssetId))
400- then true
401- else (orderPriceAssetStr != priceAssetId))
402- then throw("Wrong order assets.")
403- else {
404- let orderPrice = order.price
405- let priceDcm = fraction(scale8, priceAssetDcm, amtAssetDcm)
406- let castedOrderPrice = toScale(orderPrice, scale8, priceDcm)
407- let isOrderPriceValid = if ((order.orderType == Buy))
408- then (curPrice >= castedOrderPrice)
409- else (castedOrderPrice >= curPrice)
410- true
411- }
412- }
428+ else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
429+ then true
430+ else (order.assetPair.priceAsset != cfgPriceAssetId))
431+ then throw("Wrong order assets.")
432+ else {
433+ let kLp = valueOrErrorMessage(parseBigInt(valueOrErrorMessage(getString(this, keyKLp), fmtErr("kLp is required"))), fmtErr("invalid kLp"))
434+ let $t02148421584 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435+ let unusedActions = $t02148421584._1
436+ let kLpNew = $t02148421584._2
437+ let isOrderValid = (kLpNew >= kLp)
438+ isOrderValid
439+ }
413440 }
414441
415442
416443 func commonGet (i) = if ((size(i.payments) != 1))
417444 then throw("exactly 1 payment is expected")
418445 else {
419446 let pmt = value(i.payments[0])
420447 let pmtAssetId = value(pmt.assetId)
421448 let pmtAmt = pmt.amount
422449 let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
423450 let outAmAmt = res._1
424451 let outPrAmt = res._2
425452 let poolStatus = parseIntValue(res._9)
426453 let state = res._10
427454 if (if (isGlobalShutdown())
428455 then true
429456 else (poolStatus == PoolShutdown))
430457 then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
431458 else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
432459 }
433460
434461
435462 func commonPut (i,slippageTolerance,emitLp) = if ((size(i.payments) != 2))
436463 then throw("exactly 2 payments are expected")
437464 else {
438465 let amAssetPmt = value(i.payments[0])
439466 let prAssetPmt = value(i.payments[1])
440467 let estPut = estimatePutOperation(toBase58String(i.transactionId), slippageTolerance, amAssetPmt.amount, amAssetPmt.assetId, prAssetPmt.amount, prAssetPmt.assetId, toString(i.caller), false, emitLp)
441468 let poolStatus = parseIntValue(estPut._8)
442469 if (if (if (isGlobalShutdown())
443470 then true
444471 else (poolStatus == PoolPutDisabled))
445472 then true
446473 else (poolStatus == PoolShutdown))
447474 then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
448475 else estPut
449476 }
450477
451478
452479 func emit (amount) = {
453480 let emitInv = invoke(factoryContract, "emit", [amount], nil)
454481 if ((emitInv == emitInv))
455482 then {
456483 let emitInvLegacy = match emitInv {
457484 case legacyFactoryContract: Address =>
458485 invoke(legacyFactoryContract, "emit", [amount], nil)
459486 case _ =>
460487 unit
461488 }
462489 if ((emitInvLegacy == emitInvLegacy))
463490 then amount
464491 else throw("Strict value is not equal to itself.")
465492 }
466493 else throw("Strict value is not equal to itself.")
467494 }
468495
469496
470-func takeFee (amount,fee) = {
471- let feeAmount = if ((fee == 0))
472- then 0
473- else fraction(amount, fee, scale8)
497+func takeFee (amount) = {
498+ let feeAmount = fraction(amount, fee, scale8)
474499 $Tuple2((amount - feeAmount), feeAmount)
475500 }
476501
477502
478503 func calcPutOneToken (paymentAmountRaw,paymentAssetId,userAddress,txId) = {
479504 let isEval = (txId == unit)
480505 let amountBalanceRaw = getAccBalance(assetIdToString(cfgAmountAssetId))
481506 let priceBalanceRaw = getAccBalance(assetIdToString(cfgPriceAssetId))
482507 let paymentInAmountAsset = if ((paymentAssetId == cfgAmountAssetId))
483508 then true
484509 else if ((paymentAssetId == cfgPriceAssetId))
485510 then false
486511 else throwErr("invalid asset")
487- let $t02266422957 = if (isEval)
512+ let $t02426924562 = if (isEval)
488513 then $Tuple2(amountBalanceRaw, priceBalanceRaw)
489514 else if (paymentInAmountAsset)
490515 then $Tuple2((amountBalanceRaw - paymentAmountRaw), priceBalanceRaw)
491516 else $Tuple2(amountBalanceRaw, (priceBalanceRaw - paymentAmountRaw))
492- let amountBalanceOld = $t02266422957._1
493- let priceBalanceOld = $t02266422957._2
494- let $t02296123110 = if (paymentInAmountAsset)
517+ let amountBalanceOld = $t02426924562._1
518+ let priceBalanceOld = $t02426924562._2
519+ let $t02456624715 = if (paymentInAmountAsset)
495520 then $Tuple2(paymentAmountRaw, 0)
496521 else $Tuple2(0, paymentAmountRaw)
497- let amountAssetAmountRaw = $t02296123110._1
498- let priceAssetAmountRaw = $t02296123110._2
499- let amountAssetAmount = takeFee(amountAssetAmountRaw, inFee)._1
500- let priceAssetAmount = takeFee(priceAssetAmountRaw, inFee)._1
501- let $t02324223306 = takeFee(paymentAmountRaw, inFee)
502- let paymentAmount = $t02324223306._1
503- let feeAmount = $t02324223306._2
522+ let amountAssetAmountRaw = $t02456624715._1
523+ let priceAssetAmountRaw = $t02456624715._2
524+ let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525+ let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526+ let $t02483724896 = takeFee(paymentAmountRaw)
527+ let paymentAmount = $t02483724896._1
528+ let feeAmount = $t02483724896._2
504529 let amountBalanceNew = (amountBalanceOld + amountAssetAmount)
505530 let priceBalanceNew = (priceBalanceOld + priceAssetAmount)
506531 let priceNewX18 = calcPriceBigInt(toX18(priceBalanceNew, cfgPriceAssetDecimals), toX18(amountBalanceNew, cfgAmountAssetDecimals))
507532 let priceNew = fromX18(priceNewX18, scale8)
508533 let paymentBalance = if (paymentInAmountAsset)
509534 then amountBalanceOld
510535 else priceBalanceOld
511536 let paymentBalanceBigInt = toBigInt(paymentBalance)
512537 let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
513538 let chechSupply = if ((supplyBigInt > big0))
514539 then true
515540 else throwErr("initial deposit requires all coins")
516541 if ((chechSupply == chechSupply))
517542 then {
518543 let depositBigInt = toBigInt(paymentAmount)
519- let issueAmount = max([0, toInt(((supplyBigInt * (sqrtBigInt((scale18 + ((depositBigInt * scale18) / paymentBalanceBigInt)), 18, 18, DOWN) - scale18)) / scale18))])
544+ let issueAmount = max([0, fromX18Round(fraction(supplyBigInt, (sqrtBigInt((scale18 + ((depositBigInt * scale18) / paymentBalanceBigInt)), 18, 18, DOWN) - scale18), scale18), scale8, FLOOR)])
520545 let commonState = if (isEval)
521546 then nil
522547 else [IntegerEntry(pl(), priceNew), IntegerEntry(ph(height, lastBlock.timestamp), priceNew), StringEntry(pau(toString(value(userAddress)), toBase58String(value(txId))), dataPutActionInfo(amountAssetAmountRaw, priceAssetAmountRaw, issueAmount, priceNew, 0, 0, height, lastBlock.timestamp, 0, 0))]
523548 let priceOldX18 = calcPriceBigInt(toX18(priceBalanceOld, cfgPriceAssetDecimals), toX18(amountBalanceOld, cfgAmountAssetDecimals))
524549 let priceOld = fromX18(priceOldX18, scale8)
525550 let loss = {
526- let $t02478324950 = if (paymentInAmountAsset)
551+ let $t02639726564 = if (paymentInAmountAsset)
527552 then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
528553 else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
529- let amount = $t02478324950._1
530- let balance = $t02478324950._2
554+ let amount = $t02639726564._1
555+ let balance = $t02639726564._2
531556 let issueAmountBoth = toInt(fraction(supplyBigInt, toBigInt((amount / 2)), toBigInt(balance)))
532557 fraction((issueAmount - issueAmountBoth), scale8, issueAmountBoth)
533558 }
534- $Tuple4(issueAmount, commonState, feeAmount, loss)
559+ $Tuple5(issueAmount, commonState, feeAmount, loss, paymentInAmountAsset)
535560 }
536561 else throw("Strict value is not equal to itself.")
537562 }
538563
539564
540565 func calcGetOneToken (outAssetId,paymentAmount,paymentAssetId,userAddress,txId) = {
541566 let isEval = (txId == unit)
567+ let cfg = getPoolConfig()
568+ let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
569+ let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
542570 let checks = [if ((paymentAssetId == cfgLpAssetId))
543571 then true
544572 else throwErr("invalid lp asset")]
545573 if ((checks == checks))
546574 then {
547575 let outInAmountAsset = if ((outAssetId == cfgAmountAssetId))
548576 then true
549577 else if ((outAssetId == cfgPriceAssetId))
550578 then false
551579 else throwErr("invalid asset")
552580 let balanceBigInt = if (outInAmountAsset)
553581 then toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId)))
554582 else toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId)))
583+ let outInAmountAssetDecimals = if (outInAmountAsset)
584+ then amtAssetDcm
585+ else priceAssetDcm
555586 let amBalanceOld = getAccBalance(assetIdToString(cfgAmountAssetId))
556587 let prBalanceOld = getAccBalance(assetIdToString(cfgPriceAssetId))
557588 let outBalance = if (outInAmountAsset)
558589 then amBalanceOld
559590 else prBalanceOld
560591 let outBalanceBigInt = toBigInt(outBalance)
561592 let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
562593 let redeemedBigInt = toBigInt(paymentAmount)
563- let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
564- let $t02653026586 = takeFee(amountRaw, outFee)
565- let totalAmount = $t02653026586._1
566- let feeAmount = $t02653026586._2
567- let $t02659026816 = if (outInAmountAsset)
594+ let amountRaw = max([0, fromX18Round(fraction(balanceBigInt, (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN)), scale18), outInAmountAssetDecimals, FLOOR)])
595+ let $t02846528515 = takeFee(amountRaw)
596+ let totalAmount = $t02846528515._1
597+ let feeAmount = $t02846528515._2
598+ let $t02851928745 = if (outInAmountAsset)
568599 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
569600 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
570- let outAmAmount = $t02659026816._1
571- let outPrAmount = $t02659026816._2
572- let amBalanceNew = $t02659026816._3
573- let prBalanceNew = $t02659026816._4
601+ let outAmAmount = $t02851928745._1
602+ let outPrAmount = $t02851928745._2
603+ let amBalanceNew = $t02851928745._3
604+ let prBalanceNew = $t02851928745._4
574605 let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
575606 let priceNew = fromX18(priceNewX18, scale8)
576607 let commonState = if (isEval)
577608 then nil
578609 else [StringEntry(gau(toString(value(userAddress)), toBase58String(value(txId))), dataGetActionInfo(outAmAmount, outPrAmount, paymentAmount, priceNew, height, lastBlock.timestamp)), IntegerEntry(pl(), priceNew), IntegerEntry(ph(height, lastBlock.timestamp), priceNew)]
579610 let priceOldX18 = calcPriceBigInt(toX18(prBalanceOld, cfgPriceAssetDecimals), toX18(amBalanceOld, cfgAmountAssetDecimals))
580611 let priceOld = fromX18(priceOldX18, scale8)
581612 let loss = {
582613 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
583614 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
584615 }
585- $Tuple4(totalAmount, commonState, feeAmount, loss)
616+ $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
586617 }
587618 else throw("Strict value is not equal to itself.")
588619 }
589620
590621
591622 func managerPublicKeyOrUnit () = match getString(mpk()) {
592623 case s: String =>
593624 fromBase58String(s)
594625 case _: Unit =>
595626 unit
596627 case _ =>
597628 throw("Match error")
598629 }
599630
600631
601632 func pendingManagerPublicKeyOrUnit () = match getString(pmpk()) {
602633 case s: String =>
603634 fromBase58String(s)
604635 case _: Unit =>
605636 unit
606637 case _ =>
607638 throw("Match error")
608639 }
609640
610641
611642 func isManager (i) = match managerPublicKeyOrUnit() {
612643 case pk: ByteVector =>
613644 (i.callerPublicKey == pk)
614645 case _: Unit =>
615646 (i.caller == this)
616647 case _ =>
617648 throw("Match error")
618649 }
619650
620651
621652 func mustManager (i) = {
622653 let pd = throw("Permission denied")
623654 match managerPublicKeyOrUnit() {
624655 case pk: ByteVector =>
625656 if ((i.callerPublicKey == pk))
626657 then true
627658 else pd
628659 case _: Unit =>
629660 if ((i.caller == this))
630661 then true
631662 else pd
632663 case _ =>
633664 throw("Match error")
634665 }
635666 }
636667
637668
638669 @Callable(i)
639670 func setManager (pendingManagerPublicKey) = {
640671 let checkCaller = mustManager(i)
641672 if ((checkCaller == checkCaller))
642673 then {
643674 let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
644675 if ((checkManagerPublicKey == checkManagerPublicKey))
645676 then [StringEntry(pmpk(), pendingManagerPublicKey)]
646677 else throw("Strict value is not equal to itself.")
647678 }
648679 else throw("Strict value is not equal to itself.")
649680 }
650681
651682
652683
653684 @Callable(i)
654685 func confirmManager () = {
655686 let pm = pendingManagerPublicKeyOrUnit()
656687 let hasPM = if (isDefined(pm))
657688 then true
658689 else throw("No pending manager")
659690 if ((hasPM == hasPM))
660691 then {
661692 let checkPM = if ((i.callerPublicKey == value(pm)))
662693 then true
663694 else throw("You are not pending manager")
664695 if ((checkPM == checkPM))
665696 then [StringEntry(mpk(), toBase58String(value(pm))), DeleteEntry(pmpk())]
666697 else throw("Strict value is not equal to itself.")
667698 }
668699 else throw("Strict value is not equal to itself.")
669700 }
670701
671702
672703
673704 @Callable(i)
674705 func put (slippageTolerance,shouldAutoStake) = if ((0 > slippageTolerance))
675706 then throw("Invalid slippageTolerance passed")
676707 else {
677708 let estPut = commonPut(i, slippageTolerance, true)
678709 let emitLpAmt = estPut._2
679710 let lpAssetId = estPut._7
680711 let state = estPut._9
681712 let amDiff = estPut._10
682713 let prDiff = estPut._11
683714 let amId = estPut._12
684715 let prId = estPut._13
685- let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686- if ((emitInv == emitInv))
716+ let amAssetPmt = toBigInt(value(i.payments[0]).amount)
717+ let prAssetPmt = toBigInt(value(i.payments[1]).amount)
718+ let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
719+ if ((currentKLp == currentKLp))
687720 then {
688- let emitInvLegacy = match emitInv {
689- case legacyFactoryContract: Address =>
690- invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
691- case _ =>
692- unit
693- }
694- if ((emitInvLegacy == emitInvLegacy))
721+ let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
722+ if ((emitInv == emitInv))
695723 then {
696- let slippageAInv = if ((amDiff > 0))
697- then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
698- else nil
699- if ((slippageAInv == slippageAInv))
724+ let emitInvLegacy = match emitInv {
725+ case legacyFactoryContract: Address =>
726+ invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
727+ case _ =>
728+ unit
729+ }
730+ if ((emitInvLegacy == emitInvLegacy))
700731 then {
701- let slippagePInv = if ((prDiff > 0))
702- then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
732+ let slippageAInv = if ((amDiff > 0))
733+ then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
703734 else nil
704- if ((slippagePInv == slippagePInv))
735+ if ((slippageAInv == slippageAInv))
705736 then {
706- let lpTransfer = if (shouldAutoStake)
737+ let slippagePInv = if ((prDiff > 0))
738+ then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
739+ else nil
740+ if ((slippagePInv == slippagePInv))
707741 then {
708- let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709- if ((slpStakeInv == slpStakeInv))
710- then nil
742+ let lpTransfer = if (shouldAutoStake)
743+ then {
744+ let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
745+ if ((slpStakeInv == slpStakeInv))
746+ then nil
747+ else throw("Strict value is not equal to itself.")
748+ }
749+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
750+ let $t03327333735 = refreshKLpInternal(0, 0, 0)
751+ if (($t03327333735 == $t03327333735))
752+ then {
753+ let updatedKLp = $t03327333735._2
754+ let refreshKLpActions = $t03327333735._1
755+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
756+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
757+ then ((state ++ lpTransfer) ++ refreshKLpActions)
758+ else throw("Strict value is not equal to itself.")
759+ }
711760 else throw("Strict value is not equal to itself.")
712761 }
713- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714- (state ++ lpTransfer)
762+ else throw("Strict value is not equal to itself.")
715763 }
716764 else throw("Strict value is not equal to itself.")
717765 }
718766 else throw("Strict value is not equal to itself.")
719767 }
720768 else throw("Strict value is not equal to itself.")
721769 }
722770 else throw("Strict value is not equal to itself.")
723771 }
724772
725773
726774
727775 @Callable(i)
728776 func putForFree (maxSlippage) = if ((0 > maxSlippage))
729777 then throw("Invalid value passed")
730778 else {
731779 let estPut = commonPut(i, maxSlippage, false)
732- estPut._9
780+ let state = estPut._9
781+ let amAssetPmt = toBigInt(value(i.payments[0]).amount)
782+ let prAssetPmt = toBigInt(value(i.payments[1]).amount)
783+ let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
784+ if ((currentKLp == currentKLp))
785+ then {
786+ let $t03429734362 = refreshKLpInternal(0, 0, 0)
787+ let refreshKLpActions = $t03429734362._1
788+ let updatedKLp = $t03429734362._2
789+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
790+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
791+ then (state ++ refreshKLpActions)
792+ else throw("Strict value is not equal to itself.")
793+ }
794+ else throw("Strict value is not equal to itself.")
733795 }
734796
735797
736798
737799 @Callable(i)
738800 func putOneTkn (minOutAmount,autoStake) = {
739801 let isPoolOneTokenOperationsDisabled = {
740802 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
741803 if ($isInstanceOf(@, "Boolean"))
742804 then @
743805 else throw(($getType(@) + " couldn't be cast to Boolean"))
744806 }
745807 let isPutDisabled = if (if (if (isGlobalShutdown())
746808 then true
747809 else (cfgPoolStatus == PoolPutDisabled))
748810 then true
749811 else (cfgPoolStatus == PoolShutdown))
750812 then true
751813 else isPoolOneTokenOperationsDisabled
752814 let checks = [if (if (!(isPutDisabled))
753815 then true
754816 else isManager(i))
755817 then true
756818 else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
757819 then true
758820 else throwErr("exactly 1 payment are expected")]
759821 if ((checks == checks))
760822 then {
761823 let payment = i.payments[0]
762824 let paymentAssetId = payment.assetId
763825 let paymentAmountRaw = payment.amount
764- let userAddress = i.caller
765- let txId = i.transactionId
766- let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767- if (($t03172331853 == $t03172331853))
826+ let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
827+ then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
828+ else if ((paymentAssetId == cfgPriceAssetId))
829+ then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
830+ else throwErr("payment asset is not supported")
831+ if ((currentKLp == currentKLp))
768832 then {
769- let bonus = $t03172331853._4
770- let feeAmount = $t03172331853._3
771- let commonState = $t03172331853._2
772- let emitAmountEstimated = $t03172331853._1
773- let emitAmount = if (if ((minOutAmount > 0))
774- then (minOutAmount > emitAmountEstimated)
775- else false)
776- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
777- else emitAmountEstimated
778- let emitInv = emit(emitAmount)
779- if ((emitInv == emitInv))
833+ let userAddress = i.caller
834+ let txId = i.transactionId
835+ let $t03555035702 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
836+ if (($t03555035702 == $t03555035702))
780837 then {
781- let lpTransfer = if (autoStake)
838+ let paymentInAmountAsset = $t03555035702._5
839+ let bonus = $t03555035702._4
840+ let feeAmount = $t03555035702._3
841+ let commonState = $t03555035702._2
842+ let emitAmountEstimated = $t03555035702._1
843+ let emitAmount = if (if ((minOutAmount > 0))
844+ then (minOutAmount > emitAmountEstimated)
845+ else false)
846+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
847+ else emitAmountEstimated
848+ let emitInv = emit(emitAmount)
849+ if ((emitInv == emitInv))
782850 then {
783- let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
784- if ((stakeInv == stakeInv))
785- then nil
851+ let lpTransfer = if (autoStake)
852+ then {
853+ let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
854+ if ((stakeInv == stakeInv))
855+ then nil
856+ else throw("Strict value is not equal to itself.")
857+ }
858+ else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
859+ let sendFee = if ((feeAmount > 0))
860+ then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
861+ else nil
862+ let $t03628836485 = if ((this == feeCollectorAddress))
863+ then $Tuple2(0, 0)
864+ else if (paymentInAmountAsset)
865+ then $Tuple2(-(feeAmount), 0)
866+ else $Tuple2(0, -(feeAmount))
867+ let amountAssetBalanceDelta = $t03628836485._1
868+ let priceAssetBalanceDelta = $t03628836485._2
869+ let $t03648836596 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
870+ let refreshKLpActions = $t03648836596._1
871+ let updatedKLp = $t03648836596._2
872+ let kLp = value(getString(keyKLp))
873+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
874+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
875+ then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
786876 else throw("Strict value is not equal to itself.")
787877 }
788- else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
789- let sendFee = if ((feeAmount > 0))
790- then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
791- else nil
792- $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
878+ else throw("Strict value is not equal to itself.")
793879 }
794880 else throw("Strict value is not equal to itself.")
795881 }
796882 else throw("Strict value is not equal to itself.")
797883 }
798884 else throw("Strict value is not equal to itself.")
799885 }
800886
801887
802888
803889 @Callable(i)
804890 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
805- let $t03258232717 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
806- let emitAmountEstimated = $t03258232717._1
807- let commonState = $t03258232717._2
808- let feeAmount = $t03258232717._3
809- let bonus = $t03258232717._4
891+ let $t03690237059 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
892+ let emitAmountEstimated = $t03690237059._1
893+ let commonState = $t03690237059._2
894+ let feeAmount = $t03690237059._3
895+ let bonus = $t03690237059._4
896+ let paymentInAmountAsset = $t03690237059._5
810897 $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
811898 }
812899
813900
814901
815902 @Callable(i)
816903 func getOneTkn (outAssetIdStr,minOutAmount) = {
817904 let isPoolOneTokenOperationsDisabled = {
818905 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
819906 if ($isInstanceOf(@, "Boolean"))
820907 then @
821908 else throw(($getType(@) + " couldn't be cast to Boolean"))
822909 }
823910 let isGetDisabled = if (if (isGlobalShutdown())
824911 then true
825912 else (cfgPoolStatus == PoolShutdown))
826913 then true
827914 else isPoolOneTokenOperationsDisabled
828915 let checks = [if (if (!(isGetDisabled))
829916 then true
830917 else isManager(i))
831918 then true
832919 else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
833920 then true
834921 else throwErr("exactly 1 payment are expected")]
835922 if ((checks == checks))
836923 then {
837924 let outAssetId = parseAssetId(outAssetIdStr)
838925 let payment = i.payments[0]
839926 let paymentAssetId = payment.assetId
840927 let paymentAmount = payment.amount
841- let userAddress = i.caller
842- let txId = i.transactionId
843- let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844- if (($t03352233657 == $t03352233657))
928+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
929+ if ((currentKLp == currentKLp))
845930 then {
846- let bonus = $t03352233657._4
847- let feeAmount = $t03352233657._3
848- let commonState = $t03352233657._2
849- let amountEstimated = $t03352233657._1
850- let amount = if (if ((minOutAmount > 0))
851- then (minOutAmount > amountEstimated)
852- else false)
853- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
854- else amountEstimated
855- let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
856- if ((burnInv == burnInv))
931+ let userAddress = i.caller
932+ let txId = i.transactionId
933+ let $t03794438097 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
934+ if (($t03794438097 == $t03794438097))
857935 then {
858- let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
859- let sendFee = if ((feeAmount > 0))
860- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
861- else nil
862- $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
936+ let outInAmountAsset = $t03794438097._5
937+ let bonus = $t03794438097._4
938+ let feeAmount = $t03794438097._3
939+ let commonState = $t03794438097._2
940+ let amountEstimated = $t03794438097._1
941+ let amount = if (if ((minOutAmount > 0))
942+ then (minOutAmount > amountEstimated)
943+ else false)
944+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
945+ else amountEstimated
946+ let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
947+ if ((burnInv == burnInv))
948+ then {
949+ let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
950+ let sendFee = if ((feeAmount > 0))
951+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
952+ else nil
953+ let $t03859738844 = {
954+ let feeAmountForCalc = if ((this == feeCollectorAddress))
955+ then 0
956+ else feeAmount
957+ if (outInAmountAsset)
958+ then $Tuple2(-((amount + feeAmountForCalc)), 0)
959+ else $Tuple2(0, -((amount + feeAmountForCalc)))
960+ }
961+ let amountAssetBalanceDelta = $t03859738844._1
962+ let priceAssetBalanceDelta = $t03859738844._2
963+ let $t03884738955 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
964+ let refreshKLpActions = $t03884738955._1
965+ let updatedKLp = $t03884738955._2
966+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
967+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
968+ then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
969+ else throw("Strict value is not equal to itself.")
970+ }
971+ else throw("Strict value is not equal to itself.")
863972 }
864973 else throw("Strict value is not equal to itself.")
865974 }
866975 else throw("Strict value is not equal to itself.")
867976 }
868977 else throw("Strict value is not equal to itself.")
869978 }
870979
871980
872981
873982 @Callable(i)
874983 func getOneTknREADONLY (outAssetId,paymentAmount) = {
875- let $t03429234430 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
876- let amountEstimated = $t03429234430._1
877- let commonState = $t03429234430._2
878- let feeAmount = $t03429234430._3
879- let bonus = $t03429234430._4
984+ let $t03921239368 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
985+ let amountEstimated = $t03921239368._1
986+ let commonState = $t03921239368._2
987+ let feeAmount = $t03921239368._3
988+ let bonus = $t03921239368._4
989+ let outInAmountAsset = $t03921239368._5
880990 $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
881991 }
882992
883993
884994
885995 @Callable(i)
886996 func unstakeAndGetOneTkn (unstakeAmount,outAssetIdStr,minOutAmount) = {
887997 let isPoolOneTokenOperationsDisabled = {
888998 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
889999 if ($isInstanceOf(@, "Boolean"))
8901000 then @
8911001 else throw(($getType(@) + " couldn't be cast to Boolean"))
8921002 }
8931003 let isGetDisabled = if (if (isGlobalShutdown())
8941004 then true
8951005 else (cfgPoolStatus == PoolShutdown))
8961006 then true
8971007 else isPoolOneTokenOperationsDisabled
8981008 let checks = [if (if (!(isGetDisabled))
8991009 then true
9001010 else isManager(i))
9011011 then true
9021012 else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
9031013 then true
9041014 else throwErr("no payments are expected")]
9051015 if ((checks == checks))
9061016 then {
9071017 let outAssetId = parseAssetId(outAssetIdStr)
9081018 let userAddress = i.caller
9091019 let txId = i.transactionId
1020+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
9101021 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
9111022 if ((unstakeInv == unstakeInv))
9121023 then {
913- let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914- if (($t03525535388 == $t03525535388))
1024+ let $t04027040421 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1025+ if (($t04027040421 == $t04027040421))
9151026 then {
916- let bonus = $t03525535388._4
917- let feeAmount = $t03525535388._3
918- let commonState = $t03525535388._2
919- let amountEstimated = $t03525535388._1
1027+ let outInAmountAsset = $t04027040421._5
1028+ let bonus = $t04027040421._4
1029+ let feeAmount = $t04027040421._3
1030+ let commonState = $t04027040421._2
1031+ let amountEstimated = $t04027040421._1
9201032 let amount = if (if ((minOutAmount > 0))
9211033 then (minOutAmount > amountEstimated)
9221034 else false)
9231035 then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
9241036 else amountEstimated
9251037 let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
9261038 if ((burnInv == burnInv))
9271039 then {
9281040 let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
9291041 let sendFee = if ((feeAmount > 0))
9301042 then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
9311043 else nil
932- $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1044+ let $t04091641163 = {
1045+ let feeAmountForCalc = if ((this == feeCollectorAddress))
1046+ then 0
1047+ else feeAmount
1048+ if (outInAmountAsset)
1049+ then $Tuple2(-((amount + feeAmountForCalc)), 0)
1050+ else $Tuple2(0, -((amount + feeAmountForCalc)))
1051+ }
1052+ let amountAssetBalanceDelta = $t04091641163._1
1053+ let priceAssetBalanceDelta = $t04091641163._2
1054+ let $t04116641274 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1055+ let refreshKLpActions = $t04116641274._1
1056+ let updatedKLp = $t04116641274._2
1057+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1058+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1059+ then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1060+ else throw("Strict value is not equal to itself.")
9331061 }
9341062 else throw("Strict value is not equal to itself.")
9351063 }
9361064 else throw("Strict value is not equal to itself.")
9371065 }
9381066 else throw("Strict value is not equal to itself.")
9391067 }
9401068 else throw("Strict value is not equal to itself.")
9411069 }
9421070
9431071
9441072
9451073 @Callable(i)
9461074 func get () = {
9471075 let res = commonGet(i)
9481076 let outAmtAmt = res._1
9491077 let outPrAmt = res._2
9501078 let pmtAmt = res._3
9511079 let pmtAssetId = res._4
9521080 let state = res._5
953- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
954- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
955- then state
1081+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1082+ if ((currentKLp == currentKLp))
1083+ then {
1084+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1085+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1086+ then {
1087+ let $t04222042302 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1088+ let refreshKLpActions = $t04222042302._1
1089+ let updatedKLp = $t04222042302._2
1090+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1091+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1092+ then (state ++ refreshKLpActions)
1093+ else throw("Strict value is not equal to itself.")
1094+ }
1095+ else throw("Strict value is not equal to itself.")
1096+ }
9561097 else throw("Strict value is not equal to itself.")
9571098 }
9581099
9591100
9601101
9611102 @Callable(i)
9621103 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
9631104 let res = commonGet(i)
9641105 let outAmAmt = res._1
9651106 let outPrAmt = res._2
9661107 let pmtAmt = res._3
9671108 let pmtAssetId = res._4
9681109 let state = res._5
9691110 if ((noLessThenAmtAsset > outAmAmt))
9701111 then throw(((("noLessThenAmtAsset failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
9711112 else if ((noLessThenPriceAsset > outPrAmt))
9721113 then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
9731114 else {
1115+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
9741116 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
9751117 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
976- then state
1118+ then {
1119+ let $t04325343334 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1120+ let refreshKLpActions = $t04325343334._1
1121+ let updatedKLp = $t04325343334._2
1122+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1123+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1124+ then (state ++ refreshKLpActions)
1125+ else throw("Strict value is not equal to itself.")
1126+ }
9771127 else throw("Strict value is not equal to itself.")
9781128 }
9791129 }
9801130
9811131
9821132
9831133 @Callable(i)
9841134 func unstakeAndGet (amount) = {
9851135 let checkPayments = if ((size(i.payments) != 0))
9861136 then throw("No payments are expected")
9871137 else true
9881138 if ((checkPayments == checkPayments))
9891139 then {
9901140 let cfg = getPoolConfig()
9911141 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1142+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
9921143 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
9931144 if ((unstakeInv == unstakeInv))
9941145 then {
9951146 let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1147+ let outAmAmt = res._1
1148+ let outPrAmt = res._2
9961149 let poolStatus = parseIntValue(res._9)
9971150 let state = res._10
9981151 let checkPoolStatus = if (if (isGlobalShutdown())
9991152 then true
10001153 else (poolStatus == PoolShutdown))
10011154 then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
10021155 else true
10031156 if ((checkPoolStatus == checkPoolStatus))
10041157 then {
10051158 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
10061159 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1007- then state
1160+ then {
1161+ let $t04445744538 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1162+ let refreshKLpActions = $t04445744538._1
1163+ let updatedKLp = $t04445744538._2
1164+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1165+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1166+ then (state ++ refreshKLpActions)
1167+ else throw("Strict value is not equal to itself.")
1168+ }
10081169 else throw("Strict value is not equal to itself.")
10091170 }
10101171 else throw("Strict value is not equal to itself.")
10111172 }
10121173 else throw("Strict value is not equal to itself.")
10131174 }
10141175 else throw("Strict value is not equal to itself.")
10151176 }
10161177
10171178
10181179
10191180 @Callable(i)
10201181 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
10211182 let isGetDisabled = if (isGlobalShutdown())
10221183 then true
10231184 else (cfgPoolStatus == PoolShutdown)
10241185 let checks = [if (!(isGetDisabled))
10251186 then true
10261187 else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
10271188 then true
10281189 else throw("no payments are expected")]
10291190 if ((checks == checks))
10301191 then {
1192+ let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
10311193 let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
10321194 if ((unstakeInv == unstakeInv))
10331195 then {
10341196 let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
10351197 let outAmAmt = res._1
10361198 let outPrAmt = res._2
10371199 let state = res._10
10381200 let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
10391201 then true
10401202 else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
10411203 then true
10421204 else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
10431205 if ((checkAmounts == checkAmounts))
10441206 then {
10451207 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
10461208 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1047- then state
1209+ then {
1210+ let $t04583045911 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1211+ let refreshKLpActions = $t04583045911._1
1212+ let updatedKLp = $t04583045911._2
1213+ let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1214+ if ((isUpdatedKLpValid == isUpdatedKLpValid))
1215+ then (state ++ refreshKLpActions)
1216+ else throw("Strict value is not equal to itself.")
1217+ }
10481218 else throw("Strict value is not equal to itself.")
10491219 }
10501220 else throw("Strict value is not equal to itself.")
10511221 }
10521222 else throw("Strict value is not equal to itself.")
10531223 }
10541224 else throw("Strict value is not equal to itself.")
10551225 }
10561226
10571227
10581228
10591229 @Callable(i)
10601230 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
10611231 then throw("permissions denied")
10621232 else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1233+
1234+
1235+
1236+@Callable(i)
1237+func refreshKLp () = {
1238+ let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1239+ let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1240+ then unit
1241+ else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1242+ if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1243+ then {
1244+ let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1245+ let $t04709847162 = refreshKLpInternal(0, 0, 0)
1246+ let kLpUpdateActions = $t04709847162._1
1247+ let updatedKLp = $t04709847162._2
1248+ let actions = if ((kLp != updatedKLp))
1249+ then kLpUpdateActions
1250+ else throwErr("nothing to refresh")
1251+ $Tuple2(actions, toString(updatedKLp))
1252+ }
1253+ else throw("Strict value is not equal to itself.")
1254+ }
10631255
10641256
10651257
10661258 @Callable(i)
10671259 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
10681260
10691261
10701262
10711263 @Callable(i)
10721264 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
10731265
10741266
10751267
10761268 @Callable(i)
10771269 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
10781270 let prices = calcPrices(amAmt, prAmt, lpAmt)
10791271 $Tuple2(nil, [toString(prices[0]), toString(prices[1]), toString(prices[2])])
10801272 }
10811273
10821274
10831275
10841276 @Callable(i)
10851277 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
10861278
10871279
10881280
10891281 @Callable(i)
10901282 func fromX18WrapperREADONLY (val,resultScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resultScaleMult))
10911283
10921284
10931285
10941286 @Callable(i)
10951287 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
10961288
10971289
10981290
10991291 @Callable(i)
11001292 func estimatePutOperationWrapperREADONLY (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippageTolerance, inAmAssetAmt, inAmAssetId, inPrAssetAmt, inPrAssetId, userAddress, isEvaluate, emitLp))
11011293
11021294
11031295
11041296 @Callable(i)
11051297 func estimateGetOperationWrapperREADONLY (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
11061298 let res = estimateGetOperation(txId58, pmtAssetId, pmtLpAmt, addressFromStringValue(userAddress))
11071299 $Tuple2(nil, $Tuple10(res._1, res._2, res._3, res._4, res._5, res._6, res._7, toString(res._8), res._9, res._10))
11081300 }
11091301
11101302
11111303
11121304 @Callable(i)
11131305 func statsREADONLY () = {
11141306 let cfg = getPoolConfig()
11151307 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
11161308 let amtAssetId = cfg[idxAmtAssetId]
11171309 let priceAssetId = cfg[idxPriceAssetId]
11181310 let iAmtAssetId = cfg[idxIAmtAssetId]
11191311 let iPriceAssetId = cfg[idxIPriceAssetId]
11201312 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
11211313 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
11221314 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
11231315 let accAmtAssetBalance = getAccBalance(amtAssetId)
11241316 let accPriceAssetBalance = getAccBalance(priceAssetId)
11251317 let pricesList = if ((poolLPBalance == 0))
11261318 then [zeroBigInt, zeroBigInt, zeroBigInt]
11271319 else calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
11281320 let curPrice = 0
11291321 let lpAmtAssetShare = fromX18(pricesList[1], scale8)
11301322 let lpPriceAssetShare = fromX18(pricesList[2], scale8)
11311323 let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
11321324 $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
11331325 }
11341326
11351327
11361328
11371329 @Callable(i)
11381330 func evaluatePutByAmountAssetREADONLY (inAmAssetAmt) = {
11391331 let cfg = getPoolConfig()
11401332 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
11411333 let amAssetIdStr = cfg[idxAmtAssetId]
11421334 let amAssetId = fromBase58String(amAssetIdStr)
11431335 let prAssetIdStr = cfg[idxPriceAssetId]
11441336 let prAssetId = fromBase58String(prAssetIdStr)
11451337 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
11461338 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
11471339 let poolStatus = cfg[idxPoolStatus]
11481340 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
11491341 let accAmtAssetBalance = getAccBalance(amAssetIdStr)
11501342 let accPriceAssetBalance = getAccBalance(prAssetIdStr)
11511343 let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
11521344 let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
11531345 let curPriceX18 = if ((poolLPBalance == 0))
11541346 then zeroBigInt
11551347 else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
11561348 let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
11571349 let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
11581350 let inPrAssetAmt = fromX18(inPrAssetAmtX18, priceAssetDcm)
11591351 let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
11601352 let calcLpAmt = estPut._1
11611353 let curPriceCalc = estPut._3
11621354 let amBalance = estPut._4
11631355 let prBalance = estPut._5
11641356 let lpEmission = estPut._6
11651357 $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
11661358 }
11671359
11681360
11691361
11701362 @Callable(i)
11711363 func evaluatePutByPriceAssetREADONLY (inPrAssetAmt) = {
11721364 let cfg = getPoolConfig()
11731365 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
11741366 let amAssetIdStr = cfg[idxAmtAssetId]
11751367 let amAssetId = fromBase58String(amAssetIdStr)
11761368 let prAssetIdStr = cfg[idxPriceAssetId]
11771369 let prAssetId = fromBase58String(prAssetIdStr)
11781370 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
11791371 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
11801372 let poolStatus = cfg[idxPoolStatus]
11811373 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
11821374 let amBalanceRaw = getAccBalance(amAssetIdStr)
11831375 let prBalanceRaw = getAccBalance(prAssetIdStr)
11841376 let amBalanceRawX18 = toX18(amBalanceRaw, amtAssetDcm)
11851377 let prBalanceRawX18 = toX18(prBalanceRaw, priceAssetDcm)
11861378 let curPriceX18 = if ((poolLPBalance == 0))
11871379 then zeroBigInt
11881380 else calcPriceBigInt(prBalanceRawX18, amBalanceRawX18)
11891381 let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
11901382 let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
11911383 let inAmAssetAmt = fromX18(inAmAssetAmtX18, amtAssetDcm)
11921384 let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
11931385 let calcLpAmt = estPut._1
11941386 let curPriceCalc = estPut._3
11951387 let amBalance = estPut._4
11961388 let prBalance = estPut._5
11971389 let lpEmission = estPut._6
11981390 $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(fromX18(curPriceX18, scale8)), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
11991391 }
12001392
12011393
12021394
12031395 @Callable(i)
12041396 func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
12051397 let res = estimateGetOperation("", paymentLpAssetId, paymentLpAmt, this)
12061398 let outAmAmt = res._1
12071399 let outPrAmt = res._2
12081400 let amBalance = res._5
12091401 let prBalance = res._6
12101402 let lpEmission = res._7
12111403 let curPrice = res._8
12121404 let poolStatus = parseIntValue(res._9)
12131405 $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), toString(curPrice), toString(poolStatus)], SEP))
12141406 }
12151407
12161408
12171409 @Verifier(tx)
12181410 func verify () = {
12191411 let targetPublicKey = match managerPublicKeyOrUnit() {
12201412 case pk: ByteVector =>
12211413 pk
12221414 case _: Unit =>
12231415 tx.senderPublicKey
12241416 case _ =>
12251417 throw("Match error")
12261418 }
12271419 match tx {
12281420 case order: Order =>
12291421 let matcherPub = getMatcherPubOrFail()
12301422 let orderValid = validateMatcherOrderAllowed(order)
12311423 let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
12321424 let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
12331425 if (if (if (orderValid)
12341426 then senderValid
12351427 else false)
12361428 then matcherValid
12371429 else false)
12381430 then true
12391431 else throwOrderError(orderValid, senderValid, matcherValid)
12401432 case s: SetScriptTransaction =>
12411433 let newHash = blake2b256(value(s.script))
12421434 let allowedHash = fromBase64String(value(getString(factoryContract, keyAllowedLpScriptHash())))
12431435 let currentHash = scriptHash(this)
12441436 if (if ((allowedHash == newHash))
12451437 then (currentHash != newHash)
12461438 else false)
12471439 then true
12481440 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
12491441 case _ =>
12501442 sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
12511443 }
12521444 }
12531445

github/deemru/w8io/169f3d6 
203.85 ms