tx · EkTzwKptG3S5QnEacExvmdrTQmvQY934UBbv9ZLkDy28

3N1dMZiRHyPfV3HE1UP73tMqZyrajT8s7Gd:  -0.03100000 Waves

2022.12.16 12:28 [2362678] smart account 3N1dMZiRHyPfV3HE1UP73tMqZyrajT8s7Gd > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "EkTzwKptG3S5QnEacExvmdrTQmvQY934UBbv9ZLkDy28",
    "fee": 3100000,
    "feeAssetId": null,
    "timestamp": 1671182900193,
    "version": 1,
    "sender": "3N1dMZiRHyPfV3HE1UP73tMqZyrajT8s7Gd",
    "senderPublicKey": "5nXNn4nUrku3ormf7LVLKqY9doTY1LZWZ3uDiDHre72C",
    "proofs": [
        "4bUZiXJpVwb19RAnTma7Ras3W2L8C1Wmwuzy8uwazrR3B9Yqp8LbSM4d4BHKPjy17kU9bBN27HRycnN3pPekP2aq"
    ],
    "script": "base64:BgK3JwgCEgMKAQgSABIECgIBBBIDCgEBEgQKAgEEEgQKAggBEgQKAggBEgQKAggBEgUKAwEIARIAEgQKAgEBEgMKAQESBQoDAQEBEgQKAggIEgASAwoBCBIFCgMBAQESBAoCAQESBAoCCAESBAoCCAgSCwoJCAEBAgECCAQEEgYKBAgIAQgSABIDCgEBEgMKAQESBAoCCAEiCmxQZGVjaW1hbHMiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgRiaWcyIgt3YXZlc1N0cmluZyIDU0VQIgpQb29sQWN0aXZlIg9Qb29sUHV0RGlzYWJsZWQiE1Bvb2xNYXRjaGVyRGlzYWJsZWQiDFBvb2xTaHV0ZG93biIOaWR4UG9vbEFkZHJlc3MiDWlkeFBvb2xTdGF0dXMiEGlkeFBvb2xMUEFzc2V0SWQiDWlkeEFtdEFzc2V0SWQiD2lkeFByaWNlQXNzZXRJZCIOaWR4QW10QXNzZXREY20iEGlkeFByaWNlQXNzZXREY20iDmlkeElBbXRBc3NldElkIhBpZHhJUHJpY2VBc3NldElkIg1pZHhMUEFzc2V0RGNtIhJpZHhQb29sQW10QXNzZXRBbXQiFGlkeFBvb2xQcmljZUFzc2V0QW10IhFpZHhQb29sTFBBc3NldEFtdCIZaWR4RmFjdG9yeVN0YWtpbmdDb250cmFjdCIaaWR4RmFjdG9yeVNsaXBwYWdlQ29udHJhY3QiBXRvWDE4IgdvcmlnVmFsIg1vcmlnU2NhbGVNdWx0Igdmcm9tWDE4IgN2YWwiD3Jlc3VsdFNjYWxlTXVsdCIHdG9TY2FsZSIDYW10IghyZXNTY2FsZSIIY3VyU2NhbGUiA2FicyIJYWJzQmlnSW50IgJmYyIDbXBrIgRwbXBrIgJwbCICcGgiAWgiCXRpbWVzdGFtcCIDcGF1Igt1c2VyQWRkcmVzcyIEdHhJZCIDZ2F1IgJhYSICcGEiEGtleUZhY3RvcnlDb25maWciDWtleU1hdGNoZXJQdWIiKWtleU1hcHBpbmdQb29sQ29udHJhY3RBZGRyZXNzVG9Qb29sQXNzZXRzIhNwb29sQ29udHJhY3RBZGRyZXNzIg1rZXlQb29sQ29uZmlnIglpQW10QXNzZXQiC2lQcmljZUFzc2V0Ih9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkIgxiYXNlQXNzZXRTdHIiE2tleUFsbFBvb2xzU2h1dGRvd24iDWtleVBvb2xXZWlnaHQiD2NvbnRyYWN0QWRkcmVzcyIWa2V5QWxsb3dlZExwU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIPdGhyb3dPcmRlckVycm9yIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIg9nZXRTdHJpbmdPckZhaWwiB2FkZHJlc3MiA2tleSIMZ2V0SW50T3JGYWlsIgh0aHJvd0VyciIDbXNnIg9mYWN0b3J5Q29udHJhY3QiE2ZlZUNvbGxlY3RvckFkZHJlc3MiBWluRmVlIgFAIgZvdXRGZWUiEGlzR2xvYmFsU2h1dGRvd24iE2dldE1hdGNoZXJQdWJPckZhaWwiDWdldFBvb2xDb25maWciCGFtdEFzc2V0IgpwcmljZUFzc2V0IgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNzYwMTc3NjciDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIhBnZXRGYWN0b3J5Q29uZmlnIg9zdGFraW5nQ29udHJhY3QiEHNsaXBwYWdlQ29udHJhY3QiEWRhdGFQdXRBY3Rpb25JbmZvIg1pbkFtdEFzc2V0QW10Ig9pblByaWNlQXNzZXRBbXQiCG91dExwQW10IgVwcmljZSIdc2xpcHBhZ2VUb2xlcmFuY2VQYXNzZWRCeVVzZXIiFXNsaXBwYWdlVG9sZXJhbmNlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIhJzbGlwYWdlQW10QXNzZXRBbXQiFHNsaXBhZ2VQcmljZUFzc2V0QW10IhFkYXRhR2V0QWN0aW9uSW5mbyIOb3V0QW10QXNzZXRBbXQiEG91dFByaWNlQXNzZXRBbXQiB2luTHBBbXQiDWdldEFjY0JhbGFuY2UiB2Fzc2V0SWQiD2NhbGNQcmljZUJpZ0ludCIIcHJBbXRYMTgiCGFtQW10WDE4IhBwcml2YXRlQ2FsY1ByaWNlIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiDmFtdEFzc2V0QW10WDE4IhBwcmljZUFzc2V0QW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIgthbXRBc3NldERjbSINcHJpY2VBc3NldERjbSIIcHJpY2VYMTgiCGxwQW10WDE4IhNscFByaWNlSW5BbUFzc2V0WDE4IhNscFByaWNlSW5QckFzc2V0WDE4Ig9jYWxjdWxhdGVQcmljZXMiBnByaWNlcyIUZXN0aW1hdGVHZXRPcGVyYXRpb24iBnR4SWQ1OCIKcG10QXNzZXRJZCIIcG10THBBbXQiCWxwQXNzZXRJZCIJYW1Bc3NldElkIglwckFzc2V0SWQiCnBvb2xTdGF0dXMiCmxwRW1pc3Npb24iCWFtQmFsYW5jZSIMYW1CYWxhbmNlWDE4IglwckJhbGFuY2UiDHByQmFsYW5jZVgxOCILY3VyUHJpY2VYMTgiCGN1clByaWNlIgtwbXRMcEFtdFgxOCINbHBFbWlzc2lvblgxOCILb3V0QW1BbXRYMTgiC291dFByQW10WDE4IghvdXRBbUFtdCIIb3V0UHJBbXQiBXN0YXRlIhRlc3RpbWF0ZVB1dE9wZXJhdGlvbiIRc2xpcHBhZ2VUb2xlcmFuY2UiDGluQW1Bc3NldEFtdCILaW5BbUFzc2V0SWQiDGluUHJBc3NldEFtdCILaW5QckFzc2V0SWQiCmlzRXZhbHVhdGUiBmVtaXRMcCIMYW1Bc3NldElkU3RyIgxwckFzc2V0SWRTdHIiC2lBbXRBc3NldElkIg1pUHJpY2VBc3NldElkIg5pbkFtQXNzZXRJZFN0ciIOaW5QckFzc2V0SWRTdHIiD2luQW1Bc3NldEFtdFgxOCIPaW5QckFzc2V0QW10WDE4Igx1c2VyUHJpY2VYMTgiA3JlcyILc2xpcHBhZ2VYMTgiFHNsaXBwYWdlVG9sZXJhbmNlWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIgtjb21tb25TdGF0ZSIbdmFsaWRhdGVNYXRjaGVyT3JkZXJBbGxvd2VkIgVvcmRlciIKYW10QXNzZXRJZCIMcHJpY2VBc3NldElkIhJhY2NBbXRBc3NldEJhbGFuY2UiFGFjY1ByaWNlQXNzZXRCYWxhbmNlIg1vcmRlckFtdEFzc2V0IhBvcmRlckFtdEFzc2V0U3RyIg9vcmRlclByaWNlQXNzZXQiEm9yZGVyUHJpY2VBc3NldFN0ciIKb3JkZXJQcmljZSIIcHJpY2VEY20iEGNhc3RlZE9yZGVyUHJpY2UiEWlzT3JkZXJQcmljZVZhbGlkIgljb21tb25HZXQiAWkiA3BtdCIGcG10QW10Igljb21tb25QdXQiCmFtQXNzZXRQbXQiCnByQXNzZXRQbXQiBmVzdFB1dCIEZW1pdCIGYW1vdW50IgdlbWl0SW52Ig1lbWl0SW52TGVnYWN5IgckbWF0Y2gwIhVsZWdhY3lGYWN0b3J5Q29udHJhY3QiB3Rha2VGZWUiA2ZlZSIJZmVlQW1vdW50Ig9jYWxjUHV0T25lVG9rZW4iEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIgZpc0V2YWwiEGFtb3VudEJhbGFuY2VSYXciD3ByaWNlQmFsYW5jZVJhdyIUcGF5bWVudEluQW1vdW50QXNzZXQiDSR0MDIyNjY0MjI5NTciEGFtb3VudEJhbGFuY2VPbGQiD3ByaWNlQmFsYW5jZU9sZCINJHQwMjI5NjEyMzExMCIUYW1vdW50QXNzZXRBbW91bnRSYXciE3ByaWNlQXNzZXRBbW91bnRSYXciEWFtb3VudEFzc2V0QW1vdW50IhBwcmljZUFzc2V0QW1vdW50Ig0kdDAyMzI0MjIzMzA2Ig1wYXltZW50QW1vdW50IhBhbW91bnRCYWxhbmNlTmV3Ig9wcmljZUJhbGFuY2VOZXciC3ByaWNlTmV3WDE4IghwcmljZU5ldyIOcGF5bWVudEJhbGFuY2UiFHBheW1lbnRCYWxhbmNlQmlnSW50IgxzdXBwbHlCaWdJbnQiC2NoZWNoU3VwcGx5Ig1kZXBvc2l0QmlnSW50Igtpc3N1ZUFtb3VudCILcHJpY2VPbGRYMTgiCHByaWNlT2xkIgRsb3NzIg0kdDAyNDc4MzI0OTUwIgdiYWxhbmNlIg9pc3N1ZUFtb3VudEJvdGgiD2NhbGNHZXRPbmVUb2tlbiIKb3V0QXNzZXRJZCIGY2hlY2tzIhBvdXRJbkFtb3VudEFzc2V0Ig1iYWxhbmNlQmlnSW50IgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCIKb3V0QmFsYW5jZSIQb3V0QmFsYW5jZUJpZ0ludCIOcmVkZWVtZWRCaWdJbnQiCWFtb3VudFJhdyINJHQwMjY1MzAyNjU4NiILdG90YWxBbW91bnQiDSR0MDI2NTkwMjY4MTYiC291dEFtQW1vdW50IgtvdXRQckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciGGFtb3VudEJvdGhJblBheW1lbnRBc3NldCIWbWFuYWdlclB1YmxpY0tleU9yVW5pdCIBcyIdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQiCWlzTWFuYWdlciICcGsiC211c3RNYW5hZ2VyIgJwZCIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiC2NoZWNrQ2FsbGVyIhVjaGVja01hbmFnZXJQdWJsaWNLZXkiAnBtIgVoYXNQTSIHY2hlY2tQTSIPc2hvdWxkQXV0b1N0YWtlIgRhbUlkIgRwcklkIgxzbGlwcGFnZUFJbnYiDHNsaXBwYWdlUEludiIKbHBUcmFuc2ZlciILc2xwU3Rha2VJbnYiC21heFNsaXBwYWdlIgxtaW5PdXRBbW91bnQiCWF1dG9TdGFrZSIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiB3BheW1lbnQiDSR0MDMxNzIzMzE4NTMiBWJvbnVzIhNlbWl0QW1vdW50RXN0aW1hdGVkIgplbWl0QW1vdW50IghzdGFrZUludiIHc2VuZEZlZSINJHQwMzI1ODIzMjcxNyINb3V0QXNzZXRJZFN0ciINaXNHZXREaXNhYmxlZCINJHQwMzM1MjIzMzY1NyIPYW1vdW50RXN0aW1hdGVkIgdidXJuSW52Ig1hc3NldFRyYW5zZmVyIg0kdDAzNDI5MjM0NDMwIg11bnN0YWtlQW1vdW50Igp1bnN0YWtlSW52Ig0kdDAzNTI1NTM1Mzg4IglvdXRBbXRBbXQiFGJ1cm5MUEFzc2V0T25GYWN0b3J5IhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0Ig1jaGVja1BheW1lbnRzIg9jaGVja1Bvb2xTdGF0dXMiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIMY2hlY2tBbW91bnRzIgthbXRBc3NldFN0ciINcHJpY2VBc3NldFN0ciINcG9vbExQQmFsYW5jZSIKcHJpY2VzTGlzdCIPbHBBbXRBc3NldFNoYXJlIhFscFByaWNlQXNzZXRTaGFyZSIKcG9vbFdlaWdodCIMY3VyUHJpY2VDYWxjIgxhbUJhbGFuY2VSYXciDHByQmFsYW5jZVJhdyIPYW1CYWxhbmNlUmF3WDE4Ig9wckJhbGFuY2VSYXdYMTgiEHBheW1lbnRMcEFzc2V0SWQiDHBheW1lbnRMcEFtdCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2hiAAFhAAgAAWIAgMLXLwABYwkAtgIBAIDC1y8AAWQJALYCAQCAgJC7utat8A0AAWUJALYCAQAAAAFmCQC2AgEAAAABZwkAtgIBAAEAAWgJALYCAQACAAFpAgVXQVZFUwABagICX18AAWsAAQABbAACAAFtAAMAAW4ABAABbwABAAFwAAIAAXEAAwABcgAEAAFzAAUAAXQABgABdQAHAAF2AAgAAXcACQABeAAKAAF5AAEAAXoAAgABQQADAAFCAAEAAUMABwEBRAIBRQFGCQC8AgMJALYCAQUBRQUBZAkAtgIBBQFGAQFHAgFIAUkJAKADAQkAvAIDBQFICQC2AgEFAUkFAWQBAUoDAUsBTAFNCQBrAwUBSwUBTAUBTQEBTgEBSAMJAGYCAAAFAUgJAQEtAQUBSAUBSAEBTwEBSAMJAL8CAgUBZQUBSAkAvgIBBQFIBQFIAQFQAAITJXNfX2ZhY3RvcnlDb250cmFjdAEBUQACFCVzX19tYW5hZ2VyUHVibGljS2V5AQFSAAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQFTAAIRJXMlc19fcHJpY2VfX2xhc3QBAVQCAVUBVgkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAVUJAMwIAgkApAMBBQFWBQNuaWwFAWoBAVcCAVgBWQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAVgCAl9fBQFZAQFaAgFYAVkJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQFYAgJfXwUBWQECYWEAAg8lc19fYW1vdW50QXNzZXQBAmFiAAIOJXNfX3ByaWNlQXNzZXQBAmFjAAIRJXNfX2ZhY3RvcnlDb25maWcBAmFkAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhZQECYWYJAKwCAgkArAICAgglcyVzJXNfXwUCYWYCIF9fbWFwcGluZ3NfX3Bvb2xDb250cmFjdDJMcEFzc2V0AQJhZwICYWgCYWkJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmFoAgJfXwUCYWkCCF9fY29uZmlnAQJhagECYWsJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYWsBAmFsAAIMJXNfX3NodXRkb3duAQJhbQECYW4JAKwCAgISJXMlc19fcG9vbFdlaWdodF9fBQJhbgECYW8AAhclc19fYWxsb3dlZExwU2NyaXB0SGFzaAACYXACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhcQMCYXICYXMCYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIkb3JkZXIgdmFsaWRhdGlvbiBmYWlsZWQ6IG9yZGVyVmFsaWQ9CQClAwEFAmFyAg0gc2VuZGVyVmFsaWQ9CQClAwEFAmFzAg4gbWF0Y2hlclZhbGlkPQkApQMBBQJhdAECYXUCAmF2AmF3CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYXYFAmF3CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF2CQDMCAICAS4JAMwIAgUCYXcJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAECYXgCAmF2AmF3CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUCYXYFAmF3CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF2CQDMCAICAS4JAMwIAgUCYXcJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAECYXkBAmF6CQACAQkAuQkCCQDMCAICCGxwLnJpZGU6CQDMCAIFAmF6BQNuaWwCASAAAmFBCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXUCBQR0aGlzCQEBUAAAAmFCCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXUCBQJhQQUCYXAAAmFDCgACYUQJAPwHBAUCYUECEGdldEluRmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRAIDSW50BQJhRAkAAgEJAKwCAgkAAwEFAmFEAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFFCgACYUQJAPwHBAUCYUECEWdldE91dEZlZVJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCA0ludAUCYUQJAAIBCQCsAgIJAAMBBQJhRAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AQJhRgAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUEJAQJhbAAHAQJhRwAJANkEAQkBAmF1AgUCYUEJAQJhZAABAmFIAAQCYUkJAQJhdQIFBHRoaXMJAQJhYQAEAmFKCQECYXUCBQR0aGlzCQECYWIABAJhaQkBAmF4AgUCYUEJAQJhagEFAmFKBAJhaAkBAmF4AgUCYUEJAQJhagEFAmFJCQC1CQIJAQJhdQIFAmFBCQECYWcCCQCkAwEFAmFoCQCkAwEFAmFpBQFqAQJhSwECYUwDCQAAAgUCYUwFAWkFBHVuaXQJANkEAQUCYUwBAmFNAQJhTAMJAAACBQJhTAUEdW5pdAUBaQkA2AQBCQEFdmFsdWUBBQJhTAECYU4BAmFPCQCZCgcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYU8FAW8JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhTwUBcAkA2QQBCQCRAwIFAmFPBQFxCQECYUsBCQCRAwIFAmFPBQFyCQECYUsBCQCRAwIFAmFPBQFzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYU8FAXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhTwUBdQACYVAJAQJhTgEJAQJhSAAAAmFRBQJhUAACYVIIBQJhUQJfMQACYVMIBQJhUQJfMgACYVQIBQJhUQJfMwACYVUIBQJhUQJfNAACYVYIBQJhUQJfNQACYVcIBQJhUQJfNgACYVgIBQJhUQJfNwECYVkACQC1CQIJAQJhdQIFAmFBCQECYWMABQFqAAJhWgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgkBAmFZAAUBQgIZaW5jb3JyZWN0IHN0YWtpbmcgYWRkcmVzcwACYmEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIJAQJhWQAFAUMCGWluY29ycmVjdCBzdGFraW5nIGFkZHJlc3MBAmJiCgJiYwJiZAJiZQJiZgJiZwJiaAJiaQJiagJiawJibAkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYmMJAMwIAgkApAMBBQJiZAkAzAgCCQCkAwEFAmJlCQDMCAIJAKQDAQUCYmYJAMwIAgkApAMBBQJiZwkAzAgCCQCkAwEFAmJoCQDMCAIJAKQDAQUCYmkJAMwIAgkApAMBBQJiagkAzAgCCQCkAwEFAmJrCQDMCAIJAKQDAQUCYmwFA25pbAUBagECYm0GAmJuAmJvAmJwAmJmAmJpAmJqCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYm4JAMwIAgkApAMBBQJibwkAzAgCCQCkAwEFAmJwCQDMCAIJAKQDAQUCYmYJAMwIAgkApAMBBQJiaQkAzAgCCQCkAwEFAmJqBQNuaWwFAWoBAmJxAQJicgMJAAACBQJicgIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYnIBAmJzAgJidAJidQkAvAIDBQJidAUBZAUCYnUBAmJ2BAJidwJieAJieQJiegQCYkEJAQFEAgUCYnkFAmJ3BAJiQgkBAUQCBQJiegUCYngJAQJicwIFAmJCBQJiQQECYkMDAmJ5AmJ6AmJEBAJiRQkBAmFIAAQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCYkgJAQJidgQFAmJGBQJiRwUCYnkFAmJ6BAJidQkBAUQCBQJieQUCYkYEAmJ0CQEBRAIFAmJ6BQJiRwQCYkkJAQFEAgUCYkQFAWIEAmJKCQECYnMCBQJidQUCYkkEAmJLCQECYnMCBQJidAUCYkkJAMwIAgUCYkgJAMwIAgUCYkoJAMwIAgUCYksFA25pbAECYkwDAmJ5AmJ6AmJEBAJiTQkBAmJDAwUCYnkFAmJ6BQJiRAkAzAgCCQEBRwIJAJEDAgUCYk0AAAUBYgkAzAgCCQEBRwIJAJEDAgUCYk0AAQUBYgkAzAgCCQEBRwIJAJEDAgUCYk0AAgUBYgUDbmlsAQJiTgQCYk8CYlACYlEBWAQCYkUJAQJhSAAEAmJSCQCRAwIFAmJFBQFxBAJiUwkAkQMCBQJiRQUBcgQCYlQJAJEDAgUCYkUFAXMEAmJ3CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkUFAXQEAmJ4CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkUFAXUEAmJVCQCRAwIFAmJFBQFwBAJiVggJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmJSCQCsAgIJAKwCAgIGQXNzZXQgBQJiUgIOIGRvZXNuJ3QgZXhpc3QIcXVhbnRpdHkDCQECIT0CBQJiUgUCYlAJAAIBAhVJbnZhbGlkIGFzc2V0IHBhc3NlZC4EAmJXCQECYnEBBQJiUwQCYlgJAQFEAgUCYlcFAmJ3BAJiWQkBAmJxAQUCYlQEAmJaCQEBRAIFAmJZBQJieAQCY2EJAQJicwIFAmJaBQJiWAQCY2IJAQFHAgUCY2EFAWIEAmNjCQEBRAIFAmJRBQFiBAJjZAkBAUQCBQJiVgUBYgQCY2UJALwCAwUCYlgFAmNjBQJjZAQCY2YJALwCAwUCYloFAmNjBQJjZAQCY2cJAQFHAgUCY2UFAmJ3BAJjaAkBAUcCBQJjZgUCYngEAmNpAwkAAAIFAmJPAgAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQFYBQJjZwMJAAACBQJiUwIFV0FWRVMFBHVuaXQJANkEAQUCYlMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUBWAUCY2gDCQAAAgUCYlQCBVdBVkVTBQR1bml0CQDZBAEFAmJUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFaAgkApQgBBQFYBQJiTwkBAmJtBgUCY2cFAmNoBQJiUQUCY2IFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAAUCY2IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFUAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY2IFA25pbAkAnAoKBQJjZwUCY2gFAmJTBQJiVAUCYlcFAmJZBQJiVgUCY2EFAmJVBQJjaQECY2oJAmJPAmNrAmNsAmNtAmNuAmNvAVgCY3ACY3EEAmJFCQECYUgABAJiUgkA2QQBCQCRAwIFAmJFBQFxBAJjcgkAkQMCBQJiRQUBcgQCY3MJAJEDAgUCYkUFAXMEAmN0CQCRAwIFAmJFBQF2BAJjdQkAkQMCBQJiRQUBdwQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCYlUJAJEDAgUCYkUFAXAEAmJWCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmJSCQCsAgIJAKwCAgIGQXNzZXQgCQDYBAEFAmJSAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCY3YJANgEAQkBC3ZhbHVlT3JFbHNlAgUCY20JANkEAQIFV0FWRVMEAmN3CQDYBAEJAQt2YWx1ZU9yRWxzZQIFAmNvCQDZBAECBVdBVkVTAwMJAQIhPQIFAmNyBQJjdgYJAQIhPQIFAmNzBQJjdwkAAgECIkludmFsaWQgYW10IG9yIHByaWNlIGFzc2V0IHBhc3NlZC4EAmJXAwUCY3AJAQJicQEFAmNyCQBlAgkBAmJxAQUCY3IFAmNsBAJiWQMFAmNwCQECYnEBBQJjcwkAZQIJAQJicQEFAmNzBQJjbgQCY3gJAQFEAgUCY2wFAmJGBAJjeQkBAUQCBQJjbgUCYkcEAmN6CQECYnMCBQJjeQUCY3gEAmJYCQEBRAIFAmJXBQJiRgQCYloJAQFEAgUCYlkFAmJHBAJjQQMJAAACBQJiVgAABAJjYQUBZQQCY0IFAWUEAmJJCQB2BgkAuQICBQJjeAUCY3kAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQFHAgUCYkkFAWIJAQFHAgUCY3gFAmJGCQEBRwIFAmN5BQJiRwkBAmJzAgkAtwICBQJiWgUCY3kJALcCAgUCYlgFAmN4BQJjQgQCY2EJAQJicwIFAmJaBQJiWAQCY0IJALwCAwkBAU8BCQC4AgIFAmNhBQJjegUBZAUCY2EEAmNDCQEBRAIFAmNrBQFiAwMJAQIhPQIFAmNhBQFlCQC/AgIFAmNCBQJjQwcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUCY0ICHiBleGNlZWRlZCB0aGUgcGFzc2VkIGxpbWl0IG9mIAkApgMBBQJjQwQCY2QJAQFEAgUCYlYFAWIEAmNECQC8AgMFAmN4BQJjYQUBZAQCY0UJALwCAwUCY3kFAWQFAmNhBAJjRgMJAL8CAgUCY0QFAmN5CQCUCgIFAmNFBQJjeQkAlAoCBQJjeAUCY0QEAmNHCAUCY0YCXzEEAmNICAUCY0YCXzIEAmJJCQC8AgMFAmNkBQJjSAUCYloJAJcKBQkBAUcCBQJiSQUBYgkBAUcCBQJjRwUCYkYJAQFHAgUCY0gFAmJHBQJjYQUCY0IEAmNJCAUCY0ECXzEEAmNKCAUCY0ECXzIEAmNLCAUCY0ECXzMEAmNiCQEBRwIIBQJjQQJfNAUBYgQCY0wJAQFHAggFAmNBAl81BQFiAwkAZwIAAAUCY0kJAAIBAjZJbnZhbGlkIGNhbGN1bGF0aW9ucy4gTFAgY2FsY3VsYXRlZCBpcyBsZXNzIHRoYW4gemVyby4EAmNNAwkBASEBBQJjcQAABQJjSQQCY04JAGUCBQJjbAUCY0oEAmNPCQBlAgUCY24FAmNLBAJjUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJjYgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjYgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIFAVgFAmJPCQECYmIKBQJjSgUCY0sFAmNNBQJjYgUCY2sFAmNMBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjTgUCY08FA25pbAkAnwoNBQJjSQUCY00FAmNiBQJiVwUCYlkFAmJWBQJiUgUCYlUFAmNQBQJjTgUCY08FAmNtBQJjbwECY1EBAmNSBAJiRQkBAmFIAAQCY1MJAJEDAgUCYkUFAXIEAmNUCQCRAwIFAmJFBQFzBAJiVQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQFwBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJjVQkBAmJxAQUCY1MEAmNWCQECYnEBBQJjVAQCY2EDCQAAAggFAmNSCW9yZGVyVHlwZQUDQnV5CQECYnYEBQJiRgUCYkcJAGQCBQJjVQgFAmNSBmFtb3VudAUCY1YJAQJidgQFAmJGBQJiRwkAZQIFAmNVCAUCY1IGYW1vdW50BQJjVgQCY2IJAQFHAgUCY2EFAWIDAwMJAQJhRgAGCQAAAgUCYlUFAW0GCQAAAgUCYlUFAW4JAAIBAhxFeGNoYW5nZSBvcGVyYXRpb25zIGRpc2FibGVkBAJjVwgIBQJjUglhc3NldFBhaXILYW1vdW50QXNzZXQEAmNYAwkAAAIFAmNXBQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQJjVwQCY1kICAUCY1IJYXNzZXRQYWlyCnByaWNlQXNzZXQEAmNaAwkAAAIFAmNZBQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQJjWQMDCQECIT0CBQJjWAUCY1MGCQECIT0CBQJjWgUCY1QJAAIBAhNXcm9uZyBvcmRlciBhc3NldHMuBAJkYQgFAmNSBXByaWNlBAJkYgkAawMFAWIFAmJHBQJiRgQCZGMJAQFKAwUCZGEFAWIFAmRiBAJkZAMJAAACCAUCY1IJb3JkZXJUeXBlBQNCdXkJAGcCBQJjYgUCZGMJAGcCBQJkYwUCY2IGAQJkZQECZGYDCQECIT0CCQCQAwEIBQJkZghwYXltZW50cwABCQACAQIdZXhhY3RseSAxIHBheW1lbnQgaXMgZXhwZWN0ZWQEAmRnCQEFdmFsdWUBCQCRAwIIBQJkZghwYXltZW50cwAABAJiUAkBBXZhbHVlAQgFAmRnB2Fzc2V0SWQEAmRoCAUCZGcGYW1vdW50BAJjQQkBAmJOBAkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAkA2AQBBQJiUAUCZGgIBQJkZgZjYWxsZXIEAmNnCAUCY0ECXzEEAmNoCAUCY0ECXzIEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJjQQJfOQQCY2kIBQJjQQNfMTADAwkBAmFGAAYJAAACBQJiVQUBbgkAAgEJAKwCAgIsR2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAKQDAQUCYlUJAJcKBQUCY2cFAmNoBQJkaAUCYlAFAmNpAQJkaQMCZGYCY2sCY3EDCQECIT0CCQCQAwEIBQJkZghwYXltZW50cwACCQACAQIfZXhhY3RseSAyIHBheW1lbnRzIGFyZSBleHBlY3RlZAQCZGoJAQV2YWx1ZQEJAJEDAggFAmRmCHBheW1lbnRzAAAEAmRrCQEFdmFsdWUBCQCRAwIIBQJkZghwYXltZW50cwABBAJkbAkBAmNqCQkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAUCY2sIBQJkagZhbW91bnQIBQJkagdhc3NldElkCAUCZGsGYW1vdW50CAUCZGsHYXNzZXRJZAkApQgBCAUCZGYGY2FsbGVyBwUCY3EEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJkbAJfOAMDAwkBAmFGAAYJAAACBQJiVQUBbAYJAAACBQJiVQUBbgkAAgEJAKwCAgIsUHV0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAKQDAQUCYlUFAmRsAQJkbQECZG4EAmRvCQD8BwQFAmFBAgRlbWl0CQDMCAIFAmRuBQNuaWwFA25pbAMJAAACBQJkbwUCZG8EAmRwBAJkcQUCZG8DCQABAgUCZHECB0FkZHJlc3MEAmRyBQJkcQkA/AcEBQJkcgIEZW1pdAkAzAgCBQJkbgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZHAFAmRwBQJkbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZHMCAmRuAmR0BAJkdQMJAAACBQJkdAAAAAAJAGsDBQJkbgUCZHQFAWIJAJQKAgkAZQIFAmRuBQJkdQUCZHUBAmR2BAJkdwJkeAFYAVkEAmR5CQAAAgUBWQUEdW5pdAQCZHoJAQJicQEJAQJhTQEFAmFVBAJkQQkBAmJxAQkBAmFNAQUCYVYEAmRCAwkAAAIFAmR4BQJhVQYDCQAAAgUCZHgFAmFWBwkBAmF5AQINaW52YWxpZCBhc3NldAQCZEMDBQJkeQkAlAoCBQJkegUCZEEDBQJkQgkAlAoCCQBlAgUCZHoFAmR3BQJkQQkAlAoCBQJkegkAZQIFAmRBBQJkdwQCZEQIBQJkQwJfMQQCZEUIBQJkQwJfMgQCZEYDBQJkQgkAlAoCBQJkdwAACQCUCgIAAAUCZHcEAmRHCAUCZEYCXzEEAmRICAUCZEYCXzIEAmRJCAkBAmRzAgUCZEcFAmFDAl8xBAJkSggJAQJkcwIFAmRIBQJhQwJfMQQCZEsJAQJkcwIFAmR3BQJhQwQCZEwIBQJkSwJfMQQCZHUIBQJkSwJfMgQCZE0JAGQCBQJkRAUCZEkEAmROCQBkAgUCZEUFAmRKBAJkTwkBAmJzAgkBAUQCBQJkTgUCYVgJAQFEAgUCZE0FAmFXBAJkUAkBAUcCBQJkTwUBYgQCZFEDBQJkQgUCZEQFAmRFBAJkUgkAtgIBBQJkUQQCZFMJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQJhVAkArAICCQCsAgICBmFzc2V0IAkA2AQBBQJhVAIOIGRvZXNuJ3QgZXhpc3QIcXVhbnRpdHkEAmRUAwkAvwICBQJkUwUBZgYJAQJheQECImluaXRpYWwgZGVwb3NpdCByZXF1aXJlcyBhbGwgY29pbnMDCQAAAgUCZFQFAmRUBAJkVQkAtgIBBQJkTAQCZFYJAJYDAQkAzAgCAAAJAMwIAgkAoAMBCQC6AgIJALkCAgUCZFMJALgCAgkBCnNxcnRCaWdJbnQECQC3AgIFAWQJALoCAgkAuQICBQJkVQUBZAUCZFIAEgASBQRET1dOBQFkBQFkBQNuaWwEAmNQAwUCZHkFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJkUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJkUAkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIJAKUIAQkBBXZhbHVlAQUBWAkA2AQBCQEFdmFsdWUBBQFZCQECYmIKBQJkRwUCZEgFAmRWBQJkUAAAAAAFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAAAAAABQNuaWwEAmRXCQECYnMCCQEBRAIFAmRFBQJhWAkBAUQCBQJkRAUCYVcEAmRYCQEBRwIFAmRXBQFiBAJkWQQCZFoDBQJkQgkAlAoCBQJkRwUCZEQJAJQKAgUCZEgFAmRFBAJkbggFAmRaAl8xBAJlYQgFAmRaAl8yBAJlYgkAoAMBCQC8AgMFAmRTCQC2AgEJAGkCBQJkbgACCQC2AgEFAmVhCQBrAwkAZQIFAmRWBQJlYgUBYgUCZWIJAJYKBAUCZFYFAmNQBQJkdQUCZFkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmVjBQJlZAJkTAJkeAFYAVkEAmR5CQAAAgUBWQUEdW5pdAQCZWUJAMwIAgMJAAACBQJkeAUCYVQGCQECYXkBAhBpbnZhbGlkIGxwIGFzc2V0BQNuaWwDCQAAAgUCZWUFAmVlBAJlZgMJAAACBQJlZAUCYVUGAwkAAAIFAmVkBQJhVgcJAQJheQECDWludmFsaWQgYXNzZXQEAmVnAwUCZWYJALYCAQkBAmJxAQkBAmFNAQUCYVUJALYCAQkBAmJxAQkBAmFNAQUCYVYEAmVoCQECYnEBCQECYU0BBQJhVQQCZWkJAQJicQEJAQJhTQEFAmFWBAJlagMFAmVmBQJlaAUCZWkEAmVrCQC2AgEFAmVqBAJkUwkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmFUCQCsAgIJAKwCAgIGYXNzZXQgCQDYBAEFAmFUAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZWwJALYCAQUCZEwEAmVtCQCWAwEJAMwIAgAACQDMCAIJAKADAQkAugICCQC5AgIFAmVnCQC4AgIFAWQJAHYGCQC4AgIFAWQJALoCAgkAuQICBQJlbAUBZAUCZFMAEgUBaAAAABIFBERPV04FAWQFA25pbAQCZW4JAQJkcwIFAmVtBQJhRQQCZW8IBQJlbgJfMQQCZHUIBQJlbgJfMgQCZXADBQJlZgkAlgoEBQJlbwAACQBlAgUCZWgFAmVtBQJlaQkAlgoEAAAFAmVvBQJlaAkAZQIFAmVpBQJlbQQCZXEIBQJlcAJfMQQCZXIIBQJlcAJfMgQCZXMIBQJlcAJfMwQCZXQIBQJlcAJfNAQCZE8JAQJicwIJAQFEAgUCZXQFAmFYCQEBRAIFAmVzBQJhVwQCZFAJAQFHAgUCZE8FAWIEAmNQAwUCZHkFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgIJAKUIAQkBBXZhbHVlAQUBWAkA2AQBCQEFdmFsdWUBBQFZCQECYm0GBQJlcQUCZXIFAmRMBQJkUAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJkUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJkUAUDbmlsBAJkVwkBAmJzAgkBAUQCBQJlaQUCYVgJAQFEAgUCZWgFAmFXBAJkWAkBAUcCBQJkVwUBYgQCZFkEAmV1CQBoAgkAoAMBCQC8AgMFAmVnBQJlbAUCZFMAAgkAawMJAGUCBQJlbwUCZXUFAWIFAmV1CQCWCgQFAmVvBQJjUAUCZHUFAmRZCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJldgAEAmRxCQCiCAEJAQFRAAMJAAECBQJkcQIGU3RyaW5nBAJldwUCZHEJANkEAQUCZXcDCQABAgUCZHECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZXgABAJkcQkAoggBCQEBUgADCQABAgUCZHECBlN0cmluZwQCZXcFAmRxCQDZBAEFAmV3AwkAAQIFAmRxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmV5AQJkZgQCZHEJAQJldgADCQABAgUCZHECCkJ5dGVWZWN0b3IEAmV6BQJkcQkAAAIIBQJkZg9jYWxsZXJQdWJsaWNLZXkFAmV6AwkAAQIFAmRxAgRVbml0CQAAAggFAmRmBmNhbGxlcgUEdGhpcwkAAgECC01hdGNoIGVycm9yAQJlQQECZGYEAmVCCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEAmRxCQECZXYAAwkAAQIFAmRxAgpCeXRlVmVjdG9yBAJlegUCZHEDCQAAAggFAmRmD2NhbGxlclB1YmxpY0tleQUCZXoGBQJlQgMJAAECBQJkcQIEVW5pdAMJAAACCAUCZGYGY2FsbGVyBQR0aGlzBgUCZUIJAAIBAgtNYXRjaCBlcnJvchoCZGYBCnNldE1hbmFnZXIBAmVDBAJlRAkBAmVBAQUCZGYDCQAAAgUCZUQFAmVEBAJlRQkA2QQBBQJlQwMJAAACBQJlRQUCZUUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVIABQJlQwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQ5jb25maXJtTWFuYWdlcgAEAmVGCQECZXgABAJlRwMJAQlpc0RlZmluZWQBBQJlRgYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZUcFAmVHBAJlSAMJAAACCAUCZGYPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJlRgYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZUgFAmVICQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFRAAkA2AQBCQEFdmFsdWUBBQJlRgkAzAgCCQELRGVsZXRlRW50cnkBCQEBUgAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgEDcHV0AgJjawJlSQMJAGYCAAAFAmNrCQACAQIgSW52YWxpZCBzbGlwcGFnZVRvbGVyYW5jZSBwYXNzZWQEAmRsCQECZGkDBQJkZgUCY2sGBAJjTQgFAmRsAl8yBAJiUggFAmRsAl83BAJjaQgFAmRsAl85BAJjTggFAmRsA18xMAQCY08IBQJkbANfMTEEAmVKCAUCZGwDXzEyBAJlSwgFAmRsA18xMwQCZG8JAPwHBAUCYUECBGVtaXQJAMwIAgUCY00FA25pbAUDbmlsAwkAAAIFAmRvBQJkbwQCZHAEAmRxBQJkbwMJAAECBQJkcQIHQWRkcmVzcwQCZHIFAmRxCQD8BwQFAmRyAgRlbWl0CQDMCAIFAmNNBQNuaWwFA25pbAUEdW5pdAMJAAACBQJkcAUCZHAEAmVMAwkAZgIFAmNOAAAJAPwHBAUCYmECA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJlSgUCY04FA25pbAUDbmlsAwkAAAIFAmVMBQJlTAQCZU0DCQBmAgUCY08AAAkA/AcEBQJiYQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmVLBQJjTwUDbmlsBQNuaWwDCQAAAgUCZU0FAmVNBAJlTgMFAmVJBAJlTwkA/AcEBQJhWgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlIFAmNNBQNuaWwDCQAAAgUCZU8FAmVPBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRmBmNhbGxlcgUCY00FAmJSBQNuaWwJAM4IAgUCY2kFAmVOCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQpwdXRGb3JGcmVlAQJlUAMJAGYCAAAFAmVQCQACAQIUSW52YWxpZCB2YWx1ZSBwYXNzZWQEAmRsCQECZGkDBQJkZgUCZVAHCAUCZGwCXzkCZGYBCXB1dE9uZVRrbgICZVECZVIEAmVTCgACYUQJAPwHBAUCYUECKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRAIHQm9vbGVhbgUCYUQJAAIBCQCsAgIJAAMBBQJhRAIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZVQDAwMJAQJhRgAGCQAAAgUCYVMFAWwGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmVUBgkBAmV5AQUCZGYGCQECYXkBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwABBgkBAmF5AQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlVQkAkQMCCAUCZGYIcGF5bWVudHMAAAQCZHgIBQJlVQdhc3NldElkBAJkdwgFAmVVBmFtb3VudAQBWAgFAmRmBmNhbGxlcgQBWQgFAmRmDXRyYW5zYWN0aW9uSWQEAmVWCQECZHYEBQJkdwUCZHgFAVgFAVkDCQAAAgUCZVYFAmVWBAJlVwgFAmVWAl80BAJkdQgFAmVWAl8zBAJjUAgFAmVWAl8yBAJlWAgFAmVWAl8xBAJlWQMDCQBmAgUCZVEAAAkAZgIFAmVRBQJlWAcJAQJheQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZVEFA25pbAIABQJlWAQCZG8JAQJkbQEFAmVZAwkAAAIFAmRvBQJkbwQCZU4DBQJlUgQCZVoJAPwHBAUCYVoCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmFUBQJlWQUDbmlsAwkAAAIFAmVaBQJlWgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkZgZjYWxsZXIFAmVZBQJhVAUDbmlsBAJmYQMJAGYCBQJkdQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFCBQJkdQUCZHgFA25pbAUDbmlsCQCUCgIJAM4IAgkAzggCBQJjUAUCZU4FAmZhBQJlWQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgERcHV0T25lVGtuUkVBRE9OTFkCAmR4AmR3BAJmYgkBAmR2BAUCZHcJAQJhSwEFAmR4BQR1bml0BQR1bml0BAJlWAgFAmZiAl8xBAJjUAgFAmZiAl8yBAJkdQgFAmZiAl8zBAJlVwgFAmZiAl80CQCUCgIFA25pbAkAlQoDBQJlWAUCZHUFAmVXAmRmAQlnZXRPbmVUa24CAmZjAmVRBAJlUwoAAmFECQD8BwQFAmFBAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCB0Jvb2xlYW4FAmFECQACAQkArAICCQADAQUCYUQCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmZkAwMJAQJhRgAGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmZkBgkBAmV5AQUCZGYGCQECYXkBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwABBgkBAmF5AQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlZAkBAmFLAQUCZmMEAmVVCQCRAwIIBQJkZghwYXltZW50cwAABAJkeAgFAmVVB2Fzc2V0SWQEAmRMCAUCZVUGYW1vdW50BAFYCAUCZGYGY2FsbGVyBAFZCAUCZGYNdHJhbnNhY3Rpb25JZAQCZmUJAQJlYwUFAmVkBQJkTAUCZHgFAVgFAVkDCQAAAgUCZmUFAmZlBAJlVwgFAmZlAl80BAJkdQgFAmZlAl8zBAJjUAgFAmZlAl8yBAJmZggFAmZlAl8xBAJkbgMDCQBmAgUCZVEAAAkAZgIFAmVRBQJmZgcJAQJheQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZVEFA25pbAIABQJmZgQCZmcJAPwHBAUCYUECBGJ1cm4JAMwIAgUCZEwFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZHgFAmRMBQNuaWwDCQAAAgUCZmcFAmZnBAJmaAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQFYBQJkbgUCZWQFA25pbAQCZmEDCQBmAgUCZHUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhQgUCZHUFAmVkBQNuaWwFA25pbAkAlAoCCQDOCAIJAM4IAgUCY1AFAmZoBQJmYQUCZG4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBEWdldE9uZVRrblJFQURPTkxZAgJlZAJkTAQCZmkJAQJlYwUJAQJhSwEFAmVkBQJkTAUCYVQFBHVuaXQFBHVuaXQEAmZmCAUCZmkCXzEEAmNQCAUCZmkCXzIEAmR1CAUCZmkCXzMEAmVXCAUCZmkCXzQJAJQKAgUDbmlsCQCVCgMFAmZmBQJkdQUCZVcCZGYBE3Vuc3Rha2VBbmRHZXRPbmVUa24DAmZqAmZjAmVRBAJlUwoAAmFECQD8BwQFAmFBAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCB0Jvb2xlYW4FAmFECQACAQkArAICCQADAQUCYUQCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmZkAwMJAQJhRgAGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmZkBgkBAmV5AQUCZGYGCQECYXkBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwAABgkBAmF5AQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlZAkBAmFLAQUCZmMEAVgIBQJkZgZjYWxsZXIEAVkIBQJkZg10cmFuc2FjdGlvbklkBAJmawkA/AcEBQJhWgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFUCQDMCAIFAmZqBQNuaWwFA25pbAMJAAACBQJmawUCZmsEAmZsCQECZWMFBQJlZAUCZmoFAmFUBQFYBQFZAwkAAAIFAmZsBQJmbAQCZVcIBQJmbAJfNAQCZHUIBQJmbAJfMwQCY1AIBQJmbAJfMgQCZmYIBQJmbAJfMQQCZG4DAwkAZgIFAmVRAAAJAGYCBQJlUQUCZmYHCQECYXkBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmVRBQNuaWwCAAUCZmYEAmZnCQD8BwQFAmFBAgRidXJuCQDMCAIFAmZqBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmFUBQJmagUDbmlsAwkAAAIFAmZnBQJmZwQCZmgJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRmBmNhbGxlcgUCZG4FAmVkBQNuaWwEAmZhAwkAZgIFAmR1AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUIFAmR1BQJlZAUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNQBQJmaAUCZmEFAmRuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQNnZXQABAJjQQkBAmRlAQUCZGYEAmZtCAUCY0ECXzEEAmNoCAUCY0ECXzIEAmRoCAUCY0ECXzMEAmJQCAUCY0ECXzQEAmNpCAUCY0ECXzUEAmZuCQD8BwQFAmFBAgRidXJuCQDMCAIFAmRoBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJQBQJkaAUDbmlsAwkAAAIFAmZuBQJmbgUCY2kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBCWdldE5vTGVzcwICZm8CZnAEAmNBCQECZGUBBQJkZgQCY2cIBQJjQQJfMQQCY2gIBQJjQQJfMgQCZGgIBQJjQQJfMwQCYlAIBQJjQQJfNAQCY2kIBQJjQQJfNQMJAGYCBQJmbwUCY2cJAAIBCQCsAgIJAKwCAgkArAICAhxub0xlc3NUaGVuQW10QXNzZXQgZmFpbGVkOiAgCQCkAwEFAmNnAgMgPCAJAKQDAQUCZm8DCQBmAgUCZnAFAmNoCQACAQkArAICCQCsAgIJAKwCAgIdbm9MZXNzVGhlblByaWNlQXNzZXQgZmFpbGVkOiAJAKQDAQUCY2gCAyA8IAkApAMBBQJmcAQCZm4JAPwHBAUCYUECBGJ1cm4JAMwIAgUCZGgFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlAFAmRoBQNuaWwDCQAAAgUCZm4FAmZuBQJjaQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgENdW5zdGFrZUFuZEdldAECZG4EAmZxAwkBAiE9AgkAkAMBCAUCZGYIcGF5bWVudHMAAAkAAgECGE5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAYDCQAAAgUCZnEFAmZxBAJiRQkBAmFIAAQCYlIJANkEAQkAkQMCBQJiRQUBcQQCZmsJAPwHBAUCYVoCB3Vuc3Rha2UJAMwIAgkA2AQBBQJiUgkAzAgCBQJkbgUDbmlsBQNuaWwDCQAAAgUCZmsFAmZrBAJjQQkBAmJOBAkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAkA2AQBBQJiUgUCZG4IBQJkZgZjYWxsZXIEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJjQQJfOQQCY2kIBQJjQQNfMTAEAmZyAwMJAQJhRgAGCQAAAgUCYlUFAW4JAAIBCQCsAgICLEdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbi4gU3RhdHVzID0gCQCkAwEFAmJVBgMJAAACBQJmcgUCZnIEAmZuCQD8BwQFAmFBAgRidXJuCQDMCAIFAmRuBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJSBQJkbgUDbmlsAwkAAAIFAmZuBQJmbgUCY2kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmZqAmZzAmZwBAJmZAMJAQJhRgAGCQAAAgUCYVMFAW4EAmVlCQDMCAIDCQEBIQEFAmZkBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRmCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJmawkA/AcEBQJhWgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFUCQDMCAIFAmZqBQNuaWwFA25pbAMJAAACBQJmawUCZmsEAmNBCQECYk4ECQDYBAEIBQJkZg10cmFuc2FjdGlvbklkCQDYBAEFAmFUBQJmaggFAmRmBmNhbGxlcgQCY2cIBQJjQQJfMQQCY2gIBQJjQQJfMgQCY2kIBQJjQQNfMTAEAmZ0CQDMCAIDCQBnAgUCY2cFAmZzBgkAAgEJALkJAgkAzAgCAixhbW91bnQgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZzBQNuaWwCAAkAzAgCAwkAZwIFAmNoBQJmcAYJAAIBCQC5CQIJAMwIAgIrcHJpY2UgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZwBQNuaWwCAAUDbmlsAwkAAAIFAmZ0BQJmdAQCZm4JAPwHBAUCYUECBGJ1cm4JAMwIAgUCZmoFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYVQFAmZqBQNuaWwDCQAAAgUCZm4FAmZuBQJjaQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgEIYWN0aXZhdGUCAmZ1AmZ2AwkBAiE9AgkApQgBCAUCZGYGY2FsbGVyCQClCAEFAmFBCQACAQIScGVybWlzc2lvbnMgZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFhAAUCZnUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAAUCZnYFA25pbAIHc3VjY2VzcwJkZgEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYUgAAmRmARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJicgkAlAoCBQNuaWwJAQJicQEFAmJyAmRmARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJieQJiegJiRAQCYk0JAQJiQwMFAmJ5BQJiegUCYkQJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJiTQAACQDMCAIJAKYDAQkAkQMCBQJiTQABCQDMCAIJAKYDAQkAkQMCBQJiTQACBQNuaWwCZGYBFHRvWDE4V3JhcHBlclJFQURPTkxZAgFFAUYJAJQKAgUDbmlsCQCmAwEJAQFEAgUBRQUBRgJkZgEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIBSAFJCQCUCgIFA25pbAkBAUcCCQCnAwEFAUgFAUkCZGYBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQICYnQCYnUJAJQKAgUDbmlsCQCmAwEJAQJicwIJAKcDAQUCYnQJAKcDAQUCYnUCZGYBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQJiTwJjawJjbAJjbQJjbgJjbwFYAmNwAmNxCQCUCgIFA25pbAkBAmNqCQUCYk8FAmNrBQJjbAUCY20FAmNuBQJjbwUBWAUCY3AFAmNxAmRmASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQCYk8CYlACYlEBWAQCY0EJAQJiTgQFAmJPBQJiUAUCYlEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAVgJAJQKAgUDbmlsCQCcCgoIBQJjQQJfMQgFAmNBAl8yCAUCY0ECXzMIBQJjQQJfNAgFAmNBAl81CAUCY0ECXzYIBQJjQQJfNwkApgMBCAUCY0ECXzgIBQJjQQJfOQgFAmNBA18xMAJkZgENc3RhdHNSRUFET05MWQAEAmJFCQECYUgABAJiUgkA2QQBCQCRAwIFAmJFBQFxBAJjUwkAkQMCBQJiRQUBcgQCY1QJAJEDAgUCYkUFAXMEAmN0CQCRAwIFAmJFBQF2BAJjdQkAkQMCBQJiRQUBdwQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJjVQkBAmJxAQUCY1MEAmNWCQECYnEBBQJjVAQCZngDCQAAAgUCZncAAAkAzAgCBQFlCQDMCAIFAWUJAMwIAgUBZQUDbmlsCQECYkMDBQJjVQUCY1YFAmZ3BAJjYgAABAJmeQkBAUcCCQCRAwIFAmZ4AAEFAWIEAmZ6CQEBRwIJAJEDAgUCZngAAgUBYgQCZkEJAQV2YWx1ZQEJAJoIAgUCYUEJAQJhbQEJAKUIAQUEdGhpcwkAlAoCBQNuaWwJALkJAgkAzAgCAg4lZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmNVCQDMCAIJAKQDAQUCY1YJAMwIAgkApAMBBQJmdwkAzAgCCQCkAwEFAmNiCQDMCAIJAKQDAQUCZnkJAMwIAgkApAMBBQJmegkAzAgCCQCkAwEFAmZBBQNuaWwFAWoCZGYBIGV2YWx1YXRlUHV0QnlBbW91bnRBc3NldFJFQURPTkxZAQJjbAQCYkUJAQJhSAAEAmJSCQDZBAEJAJEDAgUCYkUFAXEEAmNyCQCRAwIFAmJFBQFyBAJiUwkA2QQBBQJjcgQCY3MJAJEDAgUCYkUFAXMEAmJUCQDZBAEFAmNzBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJiVQkAkQMCBQJiRQUBcAQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJjVQkBAmJxAQUCY3IEAmNWCQECYnEBBQJjcwQCYkEJAQFEAgUCY1UFAmJGBAJiQgkBAUQCBQJjVgUCYkcEAmNhAwkAAAIFAmZ3AAAFAWUJAQJicwIFAmJCBQJiQQQCY3gJAQFEAgUCY2wFAmJGBAJjeQkAvAIDBQJjeAUCY2EFAWQEAmNuCQEBRwIFAmN5BQJiRwQCZGwJAQJjagkCAACgwh4FAmNsBQJiUwUCY24FAmJUAgAGBwQCY0kIBQJkbAJfMQQCZkIIBQJkbAJfMwQCYlcIBQJkbAJfNAQCYlkIBQJkbAJfNQQCYlYIBQJkbAJfNgkAlAoCBQNuaWwJALkJAgkAzAgCAhAlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCY0kJAMwIAgkApAMBCQEBRwIFAmNhBQFiCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIFAmJVCQDMCAIJAKQDAQUCY2wJAMwIAgkApAMBBQJjbgUDbmlsBQFqAmRmAR9ldmFsdWF0ZVB1dEJ5UHJpY2VBc3NldFJFQURPTkxZAQJjbgQCYkUJAQJhSAAEAmJSCQDZBAEJAJEDAgUCYkUFAXEEAmNyCQCRAwIFAmJFBQFyBAJiUwkA2QQBBQJjcgQCY3MJAJEDAgUCYkUFAXMEAmJUCQDZBAEFAmNzBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJiVQkAkQMCBQJiRQUBcAQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJmQwkBAmJxAQUCY3IEAmZECQECYnEBBQJjcwQCZkUJAQFEAgUCZkMFAmJGBAJmRgkBAUQCBQJmRAUCYkcEAmNhAwkAAAIFAmZ3AAAFAWUJAQJicwIFAmZGBQJmRQQCY3kJAQFEAgUCY24FAmJHBAJjeAkAvAIDBQJjeQUBZAUCY2EEAmNsCQEBRwIFAmN4BQJiRgQCZGwJAQJjagkCAACgwh4FAmNsBQJiUwUCY24FAmJUAgAGBwQCY0kIBQJkbAJfMQQCZkIIBQJkbAJfMwQCYlcIBQJkbAJfNAQCYlkIBQJkbAJfNQQCYlYIBQJkbAJfNgkAlAoCBQNuaWwJALkJAgkAzAgCAhAlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCY0kJAMwIAgkApAMBCQEBRwIFAmNhBQFiCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIFAmJVCQDMCAIJAKQDAQUCY2wJAMwIAgkApAMBBQJjbgUDbmlsBQFqAmRmARNldmFsdWF0ZUdldFJFQURPTkxZAgJmRwJmSAQCY0EJAQJiTgQCAAUCZkcFAmZIBQR0aGlzBAJjZwgFAmNBAl8xBAJjaAgFAmNBAl8yBAJiVwgFAmNBAl81BAJiWQgFAmNBAl82BAJiVggFAmNBAl83BAJjYggFAmNBAl84BAJiVQkBDXBhcnNlSW50VmFsdWUBCAUCY0ECXzkJAJQKAgUDbmlsCQC5CQIJAMwIAgIOJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJjZwkAzAgCCQCkAwEFAmNoCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIJAKYDAQUCY2IJAMwIAgkApAMBBQJiVQUDbmlsBQFqAQJmSQECZkoABAJmSwQCZHEJAQJldgADCQABAgUCZHECCkJ5dGVWZWN0b3IEAmV6BQJkcQUCZXoDCQABAgUCZHECBFVuaXQIBQJmSQ9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCZHEFAmZJAwkAAQIFAmRxAgVPcmRlcgQCY1IFAmRxBAJmTAkBAmFHAAQCYXIJAQJjUQEFAmNSBAJhcwkA9AMDCAUCY1IJYm9keUJ5dGVzCQCRAwIIBQJjUgZwcm9vZnMAAAgFAmNSD3NlbmRlclB1YmxpY0tleQQCYXQJAPQDAwgFAmNSCWJvZHlCeXRlcwkAkQMCCAUCY1IGcHJvb2ZzAAEFAmZMAwMDBQJhcgUCYXMHBQJhdAcGCQECYXEDBQJhcgUCYXMFAmF0AwkAAQIFAmRxAhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQCZXcFAmRxBAJmTQkA9gMBCQEFdmFsdWUBCAUCZXcGc2NyaXB0BAJmTgkA2wQBCQEFdmFsdWUBCQCdCAIFAmFBCQECYW8ABAJmTwkA8QcBBQR0aGlzAwMJAAACBQJmTgUCZk0JAQIhPQIFAmZPBQJmTQcGCQD0AwMIBQJmSQlib2R5Qnl0ZXMJAJEDAggFAmZJBnByb29mcwAABQJmSwkA9AMDCAUCZkkJYm9keUJ5dGVzCQCRAwIIBQJmSQZwcm9vZnMAAAUCZkvBwFdz",
    "chainId": 84,
    "height": 2362678,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EGAf3sMYQZbURDTNYHtdY193e3hHgjKSs8P3HCPetS6v
Next: Dpdp3XRiNi7zPKvMUYmjBeXYbuhGBpHxqCg3ffTfryyQ

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-
7168 func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7269 
7370 
108105 func pa () = "%s__priceAsset"
109106 
110107 
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-
127108 func keyFactoryConfig () = "%s__factoryConfig"
128109 
129110 
162143 func throwErr (msg) = throw(makeString(["lp.ride:", msg], " "))
163144 
164145 
165-func fmtErr (msg) = makeString(["lp.ride:", msg], " ")
166-
167-
168146 let factoryContract = addressFromStringValue(getStringOrFail(this, fc()))
169147 
170148 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+    }
171163 
172164 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
173165 
199191 
200192 let poolConfigParsed = parsePoolConfig(getPoolConfig())
201193 
202-let $t080588224 = poolConfigParsed
194+let $t076017767 = poolConfigParsed
203195 
204-let cfgPoolAddress = $t080588224._1
196+let cfgPoolAddress = $t076017767._1
205197 
206-let cfgPoolStatus = $t080588224._2
198+let cfgPoolStatus = $t076017767._2
207199 
208-let cfgLpAssetId = $t080588224._3
200+let cfgLpAssetId = $t076017767._3
209201 
210-let cfgAmountAssetId = $t080588224._4
202+let cfgAmountAssetId = $t076017767._4
211203 
212-let cfgPriceAssetId = $t080588224._5
204+let cfgPriceAssetId = $t076017767._5
213205 
214-let cfgAmountAssetDecimals = $t080588224._6
206+let cfgAmountAssetDecimals = $t076017767._6
215207 
216-let cfgPriceAssetDecimals = $t080588224._7
208+let cfgPriceAssetDecimals = $t076017767._7
217209 
218210 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
219211 
234226 
235227 
236228 func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
237-
238-
239-func calcPriceBigIntRound (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
240229 
241230 
242231 func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
348337                         then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
349338                         else {
350339                             let lpEmissionX18 = toX18(lpEmission, scale8)
351-                            let prViaAmX18 = fraction(inAmAssetAmtX18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
352-                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, FLOOR), CEILING)
340+                            let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
341+                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
353342                             let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
354343                                 then $Tuple2(amViaPrX18, inPrAssetAmtX18)
355344                                 else $Tuple2(inAmAssetAmtX18, prViaAmX18)
356345                             let expAmtAssetAmtX18 = expectedAmts._1
357346                             let expPriceAssetAmtX18 = expectedAmts._2
358-                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
359-                            $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtAssetDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceAssetDcm, CEILING), curPriceX18, slippageX18)
347+                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
348+                            $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
360349                             }
361350                     }
362351             let calcLpAmt = res._1
379368     }
380369 
381370 
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-
414371 func validateMatcherOrderAllowed (order) = {
415-    let amountAssetAmount = order.amount
416-    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
417-    let $t02077720989 = if ((order.orderType == Buy))
418-        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419-        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420-    let amountAssetBalanceDelta = $t02077720989._1
421-    let priceAssetBalanceDelta = $t02077720989._2
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)
422384     if (if (if (isGlobalShutdown())
423385         then true
424-        else (cfgPoolStatus == PoolMatcherDisabled))
386+        else (poolStatus == PoolMatcherDisabled))
425387         then true
426-        else (cfgPoolStatus == PoolShutdown))
388+        else (poolStatus == PoolShutdown))
427389         then throw("Exchange operations disabled")
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 $t02146021560 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435-                let unusedActions = $t02146021560._1
436-                let kLpNew = $t02146021560._2
437-                let isOrderValid = (kLpNew >= kLp)
438-                isOrderValid
439-                }
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+            }
440413     }
441414 
442415 
494467     }
495468 
496469 
497-func takeFee (amount) = {
498-    let feeAmount = fraction(amount, fee, scale8)
470+func takeFee (amount,fee) = {
471+    let feeAmount = if ((fee == 0))
472+        then 0
473+        else fraction(amount, fee, scale8)
499474     $Tuple2((amount - feeAmount), feeAmount)
500475     }
501476 
509484         else if ((paymentAssetId == cfgPriceAssetId))
510485             then false
511486             else throwErr("invalid asset")
512-    let $t02424524538 = if (isEval)
487+    let $t02266422957 = if (isEval)
513488         then $Tuple2(amountBalanceRaw, priceBalanceRaw)
514489         else if (paymentInAmountAsset)
515490             then $Tuple2((amountBalanceRaw - paymentAmountRaw), priceBalanceRaw)
516491             else $Tuple2(amountBalanceRaw, (priceBalanceRaw - paymentAmountRaw))
517-    let amountBalanceOld = $t02424524538._1
518-    let priceBalanceOld = $t02424524538._2
519-    let $t02454224691 = if (paymentInAmountAsset)
492+    let amountBalanceOld = $t02266422957._1
493+    let priceBalanceOld = $t02266422957._2
494+    let $t02296123110 = if (paymentInAmountAsset)
520495         then $Tuple2(paymentAmountRaw, 0)
521496         else $Tuple2(0, paymentAmountRaw)
522-    let amountAssetAmountRaw = $t02454224691._1
523-    let priceAssetAmountRaw = $t02454224691._2
524-    let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525-    let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526-    let $t02481324872 = takeFee(paymentAmountRaw)
527-    let paymentAmount = $t02481324872._1
528-    let feeAmount = $t02481324872._2
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
529504     let amountBalanceNew = (amountBalanceOld + amountAssetAmount)
530505     let priceBalanceNew = (priceBalanceOld + priceAssetAmount)
531506     let priceNewX18 = calcPriceBigInt(toX18(priceBalanceNew, cfgPriceAssetDecimals), toX18(amountBalanceNew, cfgAmountAssetDecimals))
548523             let priceOldX18 = calcPriceBigInt(toX18(priceBalanceOld, cfgPriceAssetDecimals), toX18(amountBalanceOld, cfgAmountAssetDecimals))
549524             let priceOld = fromX18(priceOldX18, scale8)
550525             let loss = {
551-                let $t02634926516 = if (paymentInAmountAsset)
526+                let $t02478324950 = if (paymentInAmountAsset)
552527                     then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
553528                     else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
554-                let amount = $t02634926516._1
555-                let balance = $t02634926516._2
529+                let amount = $t02478324950._1
530+                let balance = $t02478324950._2
556531                 let issueAmountBoth = toInt(fraction(supplyBigInt, toBigInt((amount / 2)), toBigInt(balance)))
557532                 fraction((issueAmount - issueAmountBoth), scale8, issueAmountBoth)
558533                 }
559-            $Tuple5(issueAmount, commonState, feeAmount, loss, paymentInAmountAsset)
534+            $Tuple4(issueAmount, commonState, feeAmount, loss)
560535             }
561536         else throw("Strict value is not equal to itself.")
562537     }
586561             let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
587562             let redeemedBigInt = toBigInt(paymentAmount)
588563             let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
589-            let $t02811828168 = takeFee(amountRaw)
590-            let totalAmount = $t02811828168._1
591-            let feeAmount = $t02811828168._2
592-            let $t02817228398 = if (outInAmountAsset)
564+            let $t02653026586 = takeFee(amountRaw, outFee)
565+            let totalAmount = $t02653026586._1
566+            let feeAmount = $t02653026586._2
567+            let $t02659026816 = if (outInAmountAsset)
593568                 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
594569                 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
595-            let outAmAmount = $t02817228398._1
596-            let outPrAmount = $t02817228398._2
597-            let amBalanceNew = $t02817228398._3
598-            let prBalanceNew = $t02817228398._4
570+            let outAmAmount = $t02659026816._1
571+            let outPrAmount = $t02659026816._2
572+            let amBalanceNew = $t02659026816._3
573+            let prBalanceNew = $t02659026816._4
599574             let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
600575             let priceNew = fromX18(priceNewX18, scale8)
601576             let commonState = if (isEval)
607582                 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
608583                 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
609584                 }
610-            $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
585+            $Tuple4(totalAmount, commonState, feeAmount, loss)
611586             }
612587         else throw("Strict value is not equal to itself.")
613588     }
707682         let prDiff = estPut._11
708683         let amId = estPut._12
709684         let prId = estPut._13
710-        let amAssetPmt = toBigInt(value(i.payments[0]).amount)
711-        let prAssetPmt = toBigInt(value(i.payments[1]).amount)
712-        let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
713-        if ((currentKLp == currentKLp))
685+        let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686+        if ((emitInv == emitInv))
714687             then {
715-                let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
716-                if ((emitInv == emitInv))
688+                let emitInvLegacy =                 match emitInv {
689+                    case legacyFactoryContract: Address => 
690+                        invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
691+                    case _ => 
692+                        unit
693+                }
694+                if ((emitInvLegacy == emitInvLegacy))
717695                     then {
718-                        let emitInvLegacy =                         match emitInv {
719-                            case legacyFactoryContract: Address => 
720-                                invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
721-                            case _ => 
722-                                unit
723-                        }
724-                        if ((emitInvLegacy == emitInvLegacy))
696+                        let slippageAInv = if ((amDiff > 0))
697+                            then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
698+                            else nil
699+                        if ((slippageAInv == slippageAInv))
725700                             then {
726-                                let slippageAInv = if ((amDiff > 0))
727-                                    then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
701+                                let slippagePInv = if ((prDiff > 0))
702+                                    then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
728703                                     else nil
729-                                if ((slippageAInv == slippageAInv))
704+                                if ((slippagePInv == slippagePInv))
730705                                     then {
731-                                        let slippagePInv = if ((prDiff > 0))
732-                                            then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
733-                                            else nil
734-                                        if ((slippagePInv == slippagePInv))
706+                                        let lpTransfer = if (shouldAutoStake)
735707                                             then {
736-                                                let lpTransfer = if (shouldAutoStake)
737-                                                    then {
738-                                                        let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
739-                                                        if ((slpStakeInv == slpStakeInv))
740-                                                            then nil
741-                                                            else throw("Strict value is not equal to itself.")
742-                                                        }
743-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
744-                                                let $t03292633388 = refreshKLpInternal(0, 0, 0)
745-                                                if (($t03292633388 == $t03292633388))
746-                                                    then {
747-                                                        let updatedKLp = $t03292633388._2
748-                                                        let refreshKLpActions = $t03292633388._1
749-                                                        let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
750-                                                        if ((isUpdatedKLpValid == isUpdatedKLpValid))
751-                                                            then ((state ++ lpTransfer) ++ refreshKLpActions)
752-                                                            else throw("Strict value is not equal to itself.")
753-                                                        }
708+                                                let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709+                                                if ((slpStakeInv == slpStakeInv))
710+                                                    then nil
754711                                                     else throw("Strict value is not equal to itself.")
755712                                                 }
756-                                            else throw("Strict value is not equal to itself.")
713+                                            else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714+                                        (state ++ lpTransfer)
757715                                         }
758716                                     else throw("Strict value is not equal to itself.")
759717                                 }
771729     then throw("Invalid value passed")
772730     else {
773731         let estPut = commonPut(i, maxSlippage, false)
774-        let state = estPut._9
775-        let amAssetPmt = toBigInt(value(i.payments[0]).amount)
776-        let prAssetPmt = toBigInt(value(i.payments[1]).amount)
777-        let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
778-        if ((currentKLp == currentKLp))
779-            then {
780-                let $t03395034015 = refreshKLpInternal(0, 0, 0)
781-                let refreshKLpActions = $t03395034015._1
782-                let updatedKLp = $t03395034015._2
783-                let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
784-                if ((isUpdatedKLpValid == isUpdatedKLpValid))
785-                    then (state ++ refreshKLpActions)
786-                    else throw("Strict value is not equal to itself.")
787-                }
788-            else throw("Strict value is not equal to itself.")
732+        estPut._9
789733         }
790734 
791735 
817761             let payment = i.payments[0]
818762             let paymentAssetId = payment.assetId
819763             let paymentAmountRaw = payment.amount
820-            let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
821-                then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
822-                else if ((paymentAssetId == cfgPriceAssetId))
823-                    then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
824-                    else throwErr("payment asset is not supported")
825764             let userAddress = i.caller
826765             let txId = i.transactionId
827-            let $t03520035352 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
828-            if (($t03520035352 == $t03520035352))
766+            let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767+            if (($t03172331853 == $t03172331853))
829768                 then {
830-                    let paymentInAmountAsset = $t03520035352._5
831-                    let bonus = $t03520035352._4
832-                    let feeAmount = $t03520035352._3
833-                    let commonState = $t03520035352._2
834-                    let emitAmountEstimated = $t03520035352._1
769+                    let bonus = $t03172331853._4
770+                    let feeAmount = $t03172331853._3
771+                    let commonState = $t03172331853._2
772+                    let emitAmountEstimated = $t03172331853._1
835773                     let emitAmount = if (if ((minOutAmount > 0))
836774                         then (minOutAmount > emitAmountEstimated)
837775                         else false)
851789                             let sendFee = if ((feeAmount > 0))
852790                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
853791                                 else nil
854-                            let $t03593836135 = if ((this == feeCollectorAddress))
855-                                then $Tuple2(0, 0)
856-                                else if (paymentInAmountAsset)
857-                                    then $Tuple2(-(feeAmount), 0)
858-                                    else $Tuple2(0, -(feeAmount))
859-                            let amountAssetBalanceDelta = $t03593836135._1
860-                            let priceAssetBalanceDelta = $t03593836135._2
861-                            let $t03613836246 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
862-                            let refreshKLpActions = $t03613836246._1
863-                            let updatedKLp = $t03613836246._2
864-                            let kLp = value(getString(keyKLp))
865-                            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
866-                            if ((isUpdatedKLpValid == isUpdatedKLpValid))
867-                                then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
868-                                else throw("Strict value is not equal to itself.")
792+                            $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
869793                             }
870794                         else throw("Strict value is not equal to itself.")
871795                     }
878802 
879803 @Callable(i)
880804 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
881-    let $t03655236709 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
882-    let emitAmountEstimated = $t03655236709._1
883-    let commonState = $t03655236709._2
884-    let feeAmount = $t03655236709._3
885-    let bonus = $t03655236709._4
886-    let paymentInAmountAsset = $t03655236709._5
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
887810     $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
888811     }
889812 
915838             let payment = i.payments[0]
916839             let paymentAssetId = payment.assetId
917840             let paymentAmount = payment.amount
918-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(paymentAmount))
919841             let userAddress = i.caller
920842             let txId = i.transactionId
921-            let $t03760337756 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
922-            if (($t03760337756 == $t03760337756))
843+            let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844+            if (($t03352233657 == $t03352233657))
923845                 then {
924-                    let outInAmountAsset = $t03760337756._5
925-                    let bonus = $t03760337756._4
926-                    let feeAmount = $t03760337756._3
927-                    let commonState = $t03760337756._2
928-                    let amountEstimated = $t03760337756._1
846+                    let bonus = $t03352233657._4
847+                    let feeAmount = $t03352233657._3
848+                    let commonState = $t03352233657._2
849+                    let amountEstimated = $t03352233657._1
929850                     let amount = if (if ((minOutAmount > 0))
930851                         then (minOutAmount > amountEstimated)
931852                         else false)
938859                             let sendFee = if ((feeAmount > 0))
939860                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
940861                                 else nil
941-                            let $t03825638503 = {
942-                                let feeAmountForCalc = if ((this == feeCollectorAddress))
943-                                    then 0
944-                                    else feeAmount
945-                                if (outInAmountAsset)
946-                                    then $Tuple2(-((amount + feeAmountForCalc)), 0)
947-                                    else $Tuple2(0, -((amount + feeAmountForCalc)))
948-                                }
949-                            let amountAssetBalanceDelta = $t03825638503._1
950-                            let priceAssetBalanceDelta = $t03825638503._2
951-                            let $t03850638614 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
952-                            let refreshKLpActions = $t03850638614._1
953-                            let updatedKLp = $t03850638614._2
954-                            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
955-                            if ((isUpdatedKLpValid == isUpdatedKLpValid))
956-                                then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
957-                                else throw("Strict value is not equal to itself.")
862+                            $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
958863                             }
959864                         else throw("Strict value is not equal to itself.")
960865                     }
967872 
968873 @Callable(i)
969874 func getOneTknREADONLY (outAssetId,paymentAmount) = {
970-    let $t03887139027 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
971-    let amountEstimated = $t03887139027._1
972-    let commonState = $t03887139027._2
973-    let feeAmount = $t03887139027._3
974-    let bonus = $t03887139027._4
975-    let outInAmountAsset = $t03887139027._5
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
976880     $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
977881     }
978882 
1003907             let outAssetId = parseAssetId(outAssetIdStr)
1004908             let userAddress = i.caller
1005909             let txId = i.transactionId
1006-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1007910             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1008911             if ((unstakeInv == unstakeInv))
1009912                 then {
1010-                    let $t03992940080 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1011-                    if (($t03992940080 == $t03992940080))
913+                    let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914+                    if (($t03525535388 == $t03525535388))
1012915                         then {
1013-                            let outInAmountAsset = $t03992940080._5
1014-                            let bonus = $t03992940080._4
1015-                            let feeAmount = $t03992940080._3
1016-                            let commonState = $t03992940080._2
1017-                            let amountEstimated = $t03992940080._1
916+                            let bonus = $t03525535388._4
917+                            let feeAmount = $t03525535388._3
918+                            let commonState = $t03525535388._2
919+                            let amountEstimated = $t03525535388._1
1018920                             let amount = if (if ((minOutAmount > 0))
1019921                                 then (minOutAmount > amountEstimated)
1020922                                 else false)
1027929                                     let sendFee = if ((feeAmount > 0))
1028930                                         then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
1029931                                         else nil
1030-                                    let $t04057540822 = {
1031-                                        let feeAmountForCalc = if ((this == feeCollectorAddress))
1032-                                            then 0
1033-                                            else feeAmount
1034-                                        if (outInAmountAsset)
1035-                                            then $Tuple2(-((amount + feeAmountForCalc)), 0)
1036-                                            else $Tuple2(0, -((amount + feeAmountForCalc)))
1037-                                        }
1038-                                    let amountAssetBalanceDelta = $t04057540822._1
1039-                                    let priceAssetBalanceDelta = $t04057540822._2
1040-                                    let $t04082540933 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1041-                                    let refreshKLpActions = $t04082540933._1
1042-                                    let updatedKLp = $t04082540933._2
1043-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1044-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1045-                                        then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1046-                                        else throw("Strict value is not equal to itself.")
932+                                    $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1047933                                     }
1048934                                 else throw("Strict value is not equal to itself.")
1049935                             }
1064950     let pmtAmt = res._3
1065951     let pmtAssetId = res._4
1066952     let state = res._5
1067-    let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
1068953     let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1069954     if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1070-        then {
1071-            let $t04188141963 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1072-            let refreshKLpActions = $t04188141963._1
1073-            let updatedKLp = $t04188141963._2
1074-            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1075-            if ((isUpdatedKLpValid == isUpdatedKLpValid))
1076-                then (state ++ refreshKLpActions)
1077-                else throw("Strict value is not equal to itself.")
1078-            }
955+        then state
1079956         else throw("Strict value is not equal to itself.")
1080957     }
1081958 
1094971         else if ((noLessThenPriceAsset > outPrAmt))
1095972             then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1096973             else {
1097-                let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
1098974                 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1099975                 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1100-                    then {
1101-                        let $t04291442995 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1102-                        let refreshKLpActions = $t04291442995._1
1103-                        let updatedKLp = $t04291442995._2
1104-                        let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1105-                        if ((isUpdatedKLpValid == isUpdatedKLpValid))
1106-                            then (state ++ refreshKLpActions)
1107-                            else throw("Strict value is not equal to itself.")
1108-                        }
976+                    then state
1109977                     else throw("Strict value is not equal to itself.")
1110978                 }
1111979     }
1121989         then {
1122990             let cfg = getPoolConfig()
1123991             let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1124-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1125992             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
1126993             if ((unstakeInv == unstakeInv))
1127994                 then {
1128995                     let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1129-                    let outAmAmt = res._1
1130-                    let outPrAmt = res._2
1131996                     let poolStatus = parseIntValue(res._9)
1132997                     let state = res._10
1133998                     let checkPoolStatus = if (if (isGlobalShutdown())
11391004                         then {
11401005                             let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11411006                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1142-                                then {
1143-                                    let $t04411844199 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1144-                                    let refreshKLpActions = $t04411844199._1
1145-                                    let updatedKLp = $t04411844199._2
1146-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1147-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1148-                                        then (state ++ refreshKLpActions)
1149-                                        else throw("Strict value is not equal to itself.")
1150-                                    }
1007+                                then state
11511008                                 else throw("Strict value is not equal to itself.")
11521009                             }
11531010                         else throw("Strict value is not equal to itself.")
11711028         else throw("no payments are expected")]
11721029     if ((checks == checks))
11731030         then {
1174-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
11751031             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11761032             if ((unstakeInv == unstakeInv))
11771033                 then {
11881044                         then {
11891045                             let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11901046                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1191-                                then {
1192-                                    let $t04549145572 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1193-                                    let refreshKLpActions = $t04549145572._1
1194-                                    let updatedKLp = $t04549145572._2
1195-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1196-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1197-                                        then (state ++ refreshKLpActions)
1198-                                        else throw("Strict value is not equal to itself.")
1199-                                    }
1047+                                then state
12001048                                 else throw("Strict value is not equal to itself.")
12011049                             }
12021050                         else throw("Strict value is not equal to itself.")
12121060 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
12131061     then throw("permissions denied")
12141062     else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1215-
1216-
1217-
1218-@Callable(i)
1219-func refreshKLp () = {
1220-    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1221-    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1222-        then unit
1223-        else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1224-    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1225-        then {
1226-            let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1227-            let $t04675946823 = refreshKLpInternal(0, 0, 0)
1228-            let kLpUpdateActions = $t04675946823._1
1229-            let updatedKLp = $t04675946823._2
1230-            let actions = if ((kLp != updatedKLp))
1231-                then kLpUpdateActions
1232-                else throwErr("nothing to refresh")
1233-            $Tuple2(actions, toString(updatedKLp))
1234-            }
1235-        else throw("Strict value is not equal to itself.")
1236-    }
12371063 
12381064 
12391065 

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-
7168 func toScale (amt,resScale,curScale) = fraction(amt, resScale, curScale)
7269 
7370 
7471 func abs (val) = if ((0 > val))
7572     then -(val)
7673     else val
7774 
7875 
7976 func absBigInt (val) = if ((zeroBigInt > val))
8077     then -(val)
8178     else val
8279 
8380 
8481 func fc () = "%s__factoryContract"
8582 
8683 
8784 func mpk () = "%s__managerPublicKey"
8885 
8986 
9087 func pmpk () = "%s__pendingManagerPublicKey"
9188 
9289 
9390 func pl () = "%s%s__price__last"
9491 
9592 
9693 func ph (h,timestamp) = makeString(["%s%s%d%d__price__history", toString(h), toString(timestamp)], SEP)
9794 
9895 
9996 func pau (userAddress,txId) = ((("%s%s%s__P__" + userAddress) + "__") + txId)
10097 
10198 
10299 func gau (userAddress,txId) = ((("%s%s%s__G__" + userAddress) + "__") + txId)
103100 
104101 
105102 func aa () = "%s__amountAsset"
106103 
107104 
108105 func pa () = "%s__priceAsset"
109106 
110107 
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-
127108 func keyFactoryConfig () = "%s__factoryConfig"
128109 
129110 
130111 func keyMatcherPub () = "%s%s__matcher__publicKey"
131112 
132113 
133114 func keyMappingPoolContractAddressToPoolAssets (poolContractAddress) = (("%s%s%s__" + poolContractAddress) + "__mappings__poolContract2LpAsset")
134115 
135116 
136117 func keyPoolConfig (iAmtAsset,iPriceAsset) = (((("%d%d%s__" + iAmtAsset) + "__") + iPriceAsset) + "__config")
137118 
138119 
139120 func keyMappingsBaseAsset2internalId (baseAssetStr) = ("%s%s%s__mappings__baseAsset2internalId__" + baseAssetStr)
140121 
141122 
142123 func keyAllPoolsShutdown () = "%s__shutdown"
143124 
144125 
145126 func keyPoolWeight (contractAddress) = ("%s%s__poolWeight__" + contractAddress)
146127 
147128 
148129 func keyAllowedLpScriptHash () = "%s__allowedLpScriptHash"
149130 
150131 
151132 let keyFeeCollectorAddress = "%s__feeCollectorAddress"
152133 
153134 func throwOrderError (orderValid,senderValid,matcherValid) = throw(((((("order validation failed: orderValid=" + toString(orderValid)) + " senderValid=") + toString(senderValid)) + " matcherValid=") + toString(matcherValid)))
154135 
155136 
156137 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
157138 
158139 
159140 func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
160141 
161142 
162143 func throwErr (msg) = throw(makeString(["lp.ride:", msg], " "))
163144 
164145 
165-func fmtErr (msg) = makeString(["lp.ride:", msg], " ")
166-
167-
168146 let factoryContract = addressFromStringValue(getStringOrFail(this, fc()))
169147 
170148 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+    }
171163 
172164 func isGlobalShutdown () = valueOrElse(getBoolean(factoryContract, keyAllPoolsShutdown()), false)
173165 
174166 
175167 func getMatcherPubOrFail () = fromBase58String(getStringOrFail(factoryContract, keyMatcherPub()))
176168 
177169 
178170 func getPoolConfig () = {
179171     let amtAsset = getStringOrFail(this, aa())
180172     let priceAsset = getStringOrFail(this, pa())
181173     let iPriceAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(priceAsset))
182174     let iAmtAsset = getIntOrFail(factoryContract, keyMappingsBaseAsset2internalId(amtAsset))
183175     split(getStringOrFail(factoryContract, keyPoolConfig(toString(iAmtAsset), toString(iPriceAsset))), SEP)
184176     }
185177 
186178 
187179 func parseAssetId (input) = if ((input == wavesString))
188180     then unit
189181     else fromBase58String(input)
190182 
191183 
192184 func assetIdToString (input) = if ((input == unit))
193185     then wavesString
194186     else toBase58String(value(input))
195187 
196188 
197189 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]))
198190 
199191 
200192 let poolConfigParsed = parsePoolConfig(getPoolConfig())
201193 
202-let $t080588224 = poolConfigParsed
194+let $t076017767 = poolConfigParsed
203195 
204-let cfgPoolAddress = $t080588224._1
196+let cfgPoolAddress = $t076017767._1
205197 
206-let cfgPoolStatus = $t080588224._2
198+let cfgPoolStatus = $t076017767._2
207199 
208-let cfgLpAssetId = $t080588224._3
200+let cfgLpAssetId = $t076017767._3
209201 
210-let cfgAmountAssetId = $t080588224._4
202+let cfgAmountAssetId = $t076017767._4
211203 
212-let cfgPriceAssetId = $t080588224._5
204+let cfgPriceAssetId = $t076017767._5
213205 
214-let cfgAmountAssetDecimals = $t080588224._6
206+let cfgAmountAssetDecimals = $t076017767._6
215207 
216-let cfgPriceAssetDecimals = $t080588224._7
208+let cfgPriceAssetDecimals = $t076017767._7
217209 
218210 func getFactoryConfig () = split(getStringOrFail(factoryContract, keyFactoryConfig()), SEP)
219211 
220212 
221213 let stakingContract = valueOrErrorMessage(addressFromString(getFactoryConfig()[idxFactoryStakingContract]), "incorrect staking address")
222214 
223215 let slippageContract = valueOrErrorMessage(addressFromString(getFactoryConfig()[idxFactorySlippageContract]), "incorrect staking address")
224216 
225217 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)
226218 
227219 
228220 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)
229221 
230222 
231223 func getAccBalance (assetId) = if ((assetId == "WAVES"))
232224     then wavesBalance(this).available
233225     else assetBalance(this, fromBase58String(assetId))
234226 
235227 
236228 func calcPriceBigInt (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
237-
238-
239-func calcPriceBigIntRound (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
240229 
241230 
242231 func privateCalcPrice (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
243232     let amtAssetAmtX18 = toX18(amAmt, amAssetDcm)
244233     let priceAssetAmtX18 = toX18(prAmt, prAssetDcm)
245234     calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
246235     }
247236 
248237 
249238 func calcPrices (amAmt,prAmt,lpAmt) = {
250239     let cfg = getPoolConfig()
251240     let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
252241     let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
253242     let priceX18 = privateCalcPrice(amtAssetDcm, priceAssetDcm, amAmt, prAmt)
254243     let amAmtX18 = toX18(amAmt, amtAssetDcm)
255244     let prAmtX18 = toX18(prAmt, priceAssetDcm)
256245     let lpAmtX18 = toX18(lpAmt, scale8)
257246     let lpPriceInAmAssetX18 = calcPriceBigInt(amAmtX18, lpAmtX18)
258247     let lpPriceInPrAssetX18 = calcPriceBigInt(prAmtX18, lpAmtX18)
259248 [priceX18, lpPriceInAmAssetX18, lpPriceInPrAssetX18]
260249     }
261250 
262251 
263252 func calculatePrices (amAmt,prAmt,lpAmt) = {
264253     let prices = calcPrices(amAmt, prAmt, lpAmt)
265254 [fromX18(prices[0], scale8), fromX18(prices[1], scale8), fromX18(prices[2], scale8)]
266255     }
267256 
268257 
269258 func estimateGetOperation (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
270259     let cfg = getPoolConfig()
271260     let lpAssetId = cfg[idxPoolLPAssetId]
272261     let amAssetId = cfg[idxAmtAssetId]
273262     let prAssetId = cfg[idxPriceAssetId]
274263     let amAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
275264     let prAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
276265     let poolStatus = cfg[idxPoolStatus]
277266     let lpEmission = valueOrErrorMessage(assetInfo(fromBase58String(lpAssetId)), (("Asset " + lpAssetId) + " doesn't exist")).quantity
278267     if ((lpAssetId != pmtAssetId))
279268         then throw("Invalid asset passed.")
280269         else {
281270             let amBalance = getAccBalance(amAssetId)
282271             let amBalanceX18 = toX18(amBalance, amAssetDcm)
283272             let prBalance = getAccBalance(prAssetId)
284273             let prBalanceX18 = toX18(prBalance, prAssetDcm)
285274             let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
286275             let curPrice = fromX18(curPriceX18, scale8)
287276             let pmtLpAmtX18 = toX18(pmtLpAmt, scale8)
288277             let lpEmissionX18 = toX18(lpEmission, scale8)
289278             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
290279             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
291280             let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
292281             let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
293282             let state = if ((txId58 == ""))
294283                 then nil
295284                 else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
296285                     then unit
297286                     else fromBase58String(amAssetId)), ScriptTransfer(userAddress, outPrAmt, if ((prAssetId == "WAVES"))
298287                     then unit
299288                     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)]
300289             $Tuple10(outAmAmt, outPrAmt, amAssetId, prAssetId, amBalance, prBalance, lpEmission, curPriceX18, poolStatus, state)
301290             }
302291     }
303292 
304293 
305294 func estimatePutOperation (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = {
306295     let cfg = getPoolConfig()
307296     let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
308297     let amAssetIdStr = cfg[idxAmtAssetId]
309298     let prAssetIdStr = cfg[idxPriceAssetId]
310299     let iAmtAssetId = cfg[idxIAmtAssetId]
311300     let iPriceAssetId = cfg[idxIPriceAssetId]
312301     let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
313302     let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
314303     let poolStatus = cfg[idxPoolStatus]
315304     let lpEmission = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
316305     let inAmAssetIdStr = toBase58String(valueOrElse(inAmAssetId, fromBase58String("WAVES")))
317306     let inPrAssetIdStr = toBase58String(valueOrElse(inPrAssetId, fromBase58String("WAVES")))
318307     if (if ((amAssetIdStr != inAmAssetIdStr))
319308         then true
320309         else (prAssetIdStr != inPrAssetIdStr))
321310         then throw("Invalid amt or price asset passed.")
322311         else {
323312             let amBalance = if (isEvaluate)
324313                 then getAccBalance(amAssetIdStr)
325314                 else (getAccBalance(amAssetIdStr) - inAmAssetAmt)
326315             let prBalance = if (isEvaluate)
327316                 then getAccBalance(prAssetIdStr)
328317                 else (getAccBalance(prAssetIdStr) - inPrAssetAmt)
329318             let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
330319             let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
331320             let userPriceX18 = calcPriceBigInt(inPrAssetAmtX18, inAmAssetAmtX18)
332321             let amBalanceX18 = toX18(amBalance, amtAssetDcm)
333322             let prBalanceX18 = toX18(prBalance, priceAssetDcm)
334323             let res = if ((lpEmission == 0))
335324                 then {
336325                     let curPriceX18 = zeroBigInt
337326                     let slippageX18 = zeroBigInt
338327                     let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
339328                     $Tuple5(fromX18(lpAmtX18, scale8), fromX18(inAmAssetAmtX18, amtAssetDcm), fromX18(inPrAssetAmtX18, priceAssetDcm), calcPriceBigInt((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
340329                     }
341330                 else {
342331                     let curPriceX18 = calcPriceBigInt(prBalanceX18, amBalanceX18)
343332                     let slippageX18 = fraction(absBigInt((curPriceX18 - userPriceX18)), scale18, curPriceX18)
344333                     let slippageToleranceX18 = toX18(slippageTolerance, scale8)
345334                     if (if ((curPriceX18 != zeroBigInt))
346335                         then (slippageX18 > slippageToleranceX18)
347336                         else false)
348337                         then throw(((("Price slippage " + toString(slippageX18)) + " exceeded the passed limit of ") + toString(slippageToleranceX18)))
349338                         else {
350339                             let lpEmissionX18 = toX18(lpEmission, scale8)
351-                            let prViaAmX18 = fraction(inAmAssetAmtX18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
352-                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, calcPriceBigIntRound(prBalanceX18, amBalanceX18, FLOOR), CEILING)
340+                            let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
341+                            let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
353342                             let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
354343                                 then $Tuple2(amViaPrX18, inPrAssetAmtX18)
355344                                 else $Tuple2(inAmAssetAmtX18, prViaAmX18)
356345                             let expAmtAssetAmtX18 = expectedAmts._1
357346                             let expPriceAssetAmtX18 = expectedAmts._2
358-                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18, FLOOR)
359-                            $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtAssetDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceAssetDcm, CEILING), curPriceX18, slippageX18)
347+                            let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
348+                            $Tuple5(fromX18(lpAmtX18, scale8), fromX18(expAmtAssetAmtX18, amtAssetDcm), fromX18(expPriceAssetAmtX18, priceAssetDcm), curPriceX18, slippageX18)
360349                             }
361350                     }
362351             let calcLpAmt = res._1
363352             let calcAmAssetPmt = res._2
364353             let calcPrAssetPmt = res._3
365354             let curPrice = fromX18(res._4, scale8)
366355             let slippageCalc = fromX18(res._5, scale8)
367356             if ((0 >= calcLpAmt))
368357                 then throw("Invalid calculations. LP calculated is less than zero.")
369358                 else {
370359                     let emitLpAmt = if (!(emitLp))
371360                         then 0
372361                         else calcLpAmt
373362                     let amDiff = (inAmAssetAmt - calcAmAssetPmt)
374363                     let prDiff = (inPrAssetAmt - calcPrAssetPmt)
375364                     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))]
376365                     $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEmission, lpAssetId, poolStatus, commonState, amDiff, prDiff, inAmAssetId, inPrAssetId)
377366                     }
378367             }
379368     }
380369 
381370 
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-
414371 func validateMatcherOrderAllowed (order) = {
415-    let amountAssetAmount = order.amount
416-    let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
417-    let $t02077720989 = if ((order.orderType == Buy))
418-        then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419-        else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420-    let amountAssetBalanceDelta = $t02077720989._1
421-    let priceAssetBalanceDelta = $t02077720989._2
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)
422384     if (if (if (isGlobalShutdown())
423385         then true
424-        else (cfgPoolStatus == PoolMatcherDisabled))
386+        else (poolStatus == PoolMatcherDisabled))
425387         then true
426-        else (cfgPoolStatus == PoolShutdown))
388+        else (poolStatus == PoolShutdown))
427389         then throw("Exchange operations disabled")
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 $t02146021560 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435-                let unusedActions = $t02146021560._1
436-                let kLpNew = $t02146021560._2
437-                let isOrderValid = (kLpNew >= kLp)
438-                isOrderValid
439-                }
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+            }
440413     }
441414 
442415 
443416 func commonGet (i) = if ((size(i.payments) != 1))
444417     then throw("exactly 1 payment is expected")
445418     else {
446419         let pmt = value(i.payments[0])
447420         let pmtAssetId = value(pmt.assetId)
448421         let pmtAmt = pmt.amount
449422         let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
450423         let outAmAmt = res._1
451424         let outPrAmt = res._2
452425         let poolStatus = parseIntValue(res._9)
453426         let state = res._10
454427         if (if (isGlobalShutdown())
455428             then true
456429             else (poolStatus == PoolShutdown))
457430             then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
458431             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
459432         }
460433 
461434 
462435 func commonPut (i,slippageTolerance,emitLp) = if ((size(i.payments) != 2))
463436     then throw("exactly 2 payments are expected")
464437     else {
465438         let amAssetPmt = value(i.payments[0])
466439         let prAssetPmt = value(i.payments[1])
467440         let estPut = estimatePutOperation(toBase58String(i.transactionId), slippageTolerance, amAssetPmt.amount, amAssetPmt.assetId, prAssetPmt.amount, prAssetPmt.assetId, toString(i.caller), false, emitLp)
468441         let poolStatus = parseIntValue(estPut._8)
469442         if (if (if (isGlobalShutdown())
470443             then true
471444             else (poolStatus == PoolPutDisabled))
472445             then true
473446             else (poolStatus == PoolShutdown))
474447             then throw(("Put operation is blocked by admin. Status = " + toString(poolStatus)))
475448             else estPut
476449         }
477450 
478451 
479452 func emit (amount) = {
480453     let emitInv = invoke(factoryContract, "emit", [amount], nil)
481454     if ((emitInv == emitInv))
482455         then {
483456             let emitInvLegacy =             match emitInv {
484457                 case legacyFactoryContract: Address => 
485458                     invoke(legacyFactoryContract, "emit", [amount], nil)
486459                 case _ => 
487460                     unit
488461             }
489462             if ((emitInvLegacy == emitInvLegacy))
490463                 then amount
491464                 else throw("Strict value is not equal to itself.")
492465             }
493466         else throw("Strict value is not equal to itself.")
494467     }
495468 
496469 
497-func takeFee (amount) = {
498-    let feeAmount = fraction(amount, fee, scale8)
470+func takeFee (amount,fee) = {
471+    let feeAmount = if ((fee == 0))
472+        then 0
473+        else fraction(amount, fee, scale8)
499474     $Tuple2((amount - feeAmount), feeAmount)
500475     }
501476 
502477 
503478 func calcPutOneToken (paymentAmountRaw,paymentAssetId,userAddress,txId) = {
504479     let isEval = (txId == unit)
505480     let amountBalanceRaw = getAccBalance(assetIdToString(cfgAmountAssetId))
506481     let priceBalanceRaw = getAccBalance(assetIdToString(cfgPriceAssetId))
507482     let paymentInAmountAsset = if ((paymentAssetId == cfgAmountAssetId))
508483         then true
509484         else if ((paymentAssetId == cfgPriceAssetId))
510485             then false
511486             else throwErr("invalid asset")
512-    let $t02424524538 = if (isEval)
487+    let $t02266422957 = if (isEval)
513488         then $Tuple2(amountBalanceRaw, priceBalanceRaw)
514489         else if (paymentInAmountAsset)
515490             then $Tuple2((amountBalanceRaw - paymentAmountRaw), priceBalanceRaw)
516491             else $Tuple2(amountBalanceRaw, (priceBalanceRaw - paymentAmountRaw))
517-    let amountBalanceOld = $t02424524538._1
518-    let priceBalanceOld = $t02424524538._2
519-    let $t02454224691 = if (paymentInAmountAsset)
492+    let amountBalanceOld = $t02266422957._1
493+    let priceBalanceOld = $t02266422957._2
494+    let $t02296123110 = if (paymentInAmountAsset)
520495         then $Tuple2(paymentAmountRaw, 0)
521496         else $Tuple2(0, paymentAmountRaw)
522-    let amountAssetAmountRaw = $t02454224691._1
523-    let priceAssetAmountRaw = $t02454224691._2
524-    let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525-    let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526-    let $t02481324872 = takeFee(paymentAmountRaw)
527-    let paymentAmount = $t02481324872._1
528-    let feeAmount = $t02481324872._2
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
529504     let amountBalanceNew = (amountBalanceOld + amountAssetAmount)
530505     let priceBalanceNew = (priceBalanceOld + priceAssetAmount)
531506     let priceNewX18 = calcPriceBigInt(toX18(priceBalanceNew, cfgPriceAssetDecimals), toX18(amountBalanceNew, cfgAmountAssetDecimals))
532507     let priceNew = fromX18(priceNewX18, scale8)
533508     let paymentBalance = if (paymentInAmountAsset)
534509         then amountBalanceOld
535510         else priceBalanceOld
536511     let paymentBalanceBigInt = toBigInt(paymentBalance)
537512     let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
538513     let chechSupply = if ((supplyBigInt > big0))
539514         then true
540515         else throwErr("initial deposit requires all coins")
541516     if ((chechSupply == chechSupply))
542517         then {
543518             let depositBigInt = toBigInt(paymentAmount)
544519             let issueAmount = max([0, toInt(((supplyBigInt * (sqrtBigInt((scale18 + ((depositBigInt * scale18) / paymentBalanceBigInt)), 18, 18, DOWN) - scale18)) / scale18))])
545520             let commonState = if (isEval)
546521                 then nil
547522                 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))]
548523             let priceOldX18 = calcPriceBigInt(toX18(priceBalanceOld, cfgPriceAssetDecimals), toX18(amountBalanceOld, cfgAmountAssetDecimals))
549524             let priceOld = fromX18(priceOldX18, scale8)
550525             let loss = {
551-                let $t02634926516 = if (paymentInAmountAsset)
526+                let $t02478324950 = if (paymentInAmountAsset)
552527                     then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
553528                     else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
554-                let amount = $t02634926516._1
555-                let balance = $t02634926516._2
529+                let amount = $t02478324950._1
530+                let balance = $t02478324950._2
556531                 let issueAmountBoth = toInt(fraction(supplyBigInt, toBigInt((amount / 2)), toBigInt(balance)))
557532                 fraction((issueAmount - issueAmountBoth), scale8, issueAmountBoth)
558533                 }
559-            $Tuple5(issueAmount, commonState, feeAmount, loss, paymentInAmountAsset)
534+            $Tuple4(issueAmount, commonState, feeAmount, loss)
560535             }
561536         else throw("Strict value is not equal to itself.")
562537     }
563538 
564539 
565540 func calcGetOneToken (outAssetId,paymentAmount,paymentAssetId,userAddress,txId) = {
566541     let isEval = (txId == unit)
567542     let checks = [if ((paymentAssetId == cfgLpAssetId))
568543         then true
569544         else throwErr("invalid lp asset")]
570545     if ((checks == checks))
571546         then {
572547             let outInAmountAsset = if ((outAssetId == cfgAmountAssetId))
573548                 then true
574549                 else if ((outAssetId == cfgPriceAssetId))
575550                     then false
576551                     else throwErr("invalid asset")
577552             let balanceBigInt = if (outInAmountAsset)
578553                 then toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId)))
579554                 else toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId)))
580555             let amBalanceOld = getAccBalance(assetIdToString(cfgAmountAssetId))
581556             let prBalanceOld = getAccBalance(assetIdToString(cfgPriceAssetId))
582557             let outBalance = if (outInAmountAsset)
583558                 then amBalanceOld
584559                 else prBalanceOld
585560             let outBalanceBigInt = toBigInt(outBalance)
586561             let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
587562             let redeemedBigInt = toBigInt(paymentAmount)
588563             let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
589-            let $t02811828168 = takeFee(amountRaw)
590-            let totalAmount = $t02811828168._1
591-            let feeAmount = $t02811828168._2
592-            let $t02817228398 = if (outInAmountAsset)
564+            let $t02653026586 = takeFee(amountRaw, outFee)
565+            let totalAmount = $t02653026586._1
566+            let feeAmount = $t02653026586._2
567+            let $t02659026816 = if (outInAmountAsset)
593568                 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
594569                 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
595-            let outAmAmount = $t02817228398._1
596-            let outPrAmount = $t02817228398._2
597-            let amBalanceNew = $t02817228398._3
598-            let prBalanceNew = $t02817228398._4
570+            let outAmAmount = $t02659026816._1
571+            let outPrAmount = $t02659026816._2
572+            let amBalanceNew = $t02659026816._3
573+            let prBalanceNew = $t02659026816._4
599574             let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
600575             let priceNew = fromX18(priceNewX18, scale8)
601576             let commonState = if (isEval)
602577                 then nil
603578                 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)]
604579             let priceOldX18 = calcPriceBigInt(toX18(prBalanceOld, cfgPriceAssetDecimals), toX18(amBalanceOld, cfgAmountAssetDecimals))
605580             let priceOld = fromX18(priceOldX18, scale8)
606581             let loss = {
607582                 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
608583                 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
609584                 }
610-            $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
585+            $Tuple4(totalAmount, commonState, feeAmount, loss)
611586             }
612587         else throw("Strict value is not equal to itself.")
613588     }
614589 
615590 
616591 func managerPublicKeyOrUnit () = match getString(mpk()) {
617592     case s: String => 
618593         fromBase58String(s)
619594     case _: Unit => 
620595         unit
621596     case _ => 
622597         throw("Match error")
623598 }
624599 
625600 
626601 func pendingManagerPublicKeyOrUnit () = match getString(pmpk()) {
627602     case s: String => 
628603         fromBase58String(s)
629604     case _: Unit => 
630605         unit
631606     case _ => 
632607         throw("Match error")
633608 }
634609 
635610 
636611 func isManager (i) = match managerPublicKeyOrUnit() {
637612     case pk: ByteVector => 
638613         (i.callerPublicKey == pk)
639614     case _: Unit => 
640615         (i.caller == this)
641616     case _ => 
642617         throw("Match error")
643618 }
644619 
645620 
646621 func mustManager (i) = {
647622     let pd = throw("Permission denied")
648623     match managerPublicKeyOrUnit() {
649624         case pk: ByteVector => 
650625             if ((i.callerPublicKey == pk))
651626                 then true
652627                 else pd
653628         case _: Unit => 
654629             if ((i.caller == this))
655630                 then true
656631                 else pd
657632         case _ => 
658633             throw("Match error")
659634     }
660635     }
661636 
662637 
663638 @Callable(i)
664639 func setManager (pendingManagerPublicKey) = {
665640     let checkCaller = mustManager(i)
666641     if ((checkCaller == checkCaller))
667642         then {
668643             let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
669644             if ((checkManagerPublicKey == checkManagerPublicKey))
670645                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
671646                 else throw("Strict value is not equal to itself.")
672647             }
673648         else throw("Strict value is not equal to itself.")
674649     }
675650 
676651 
677652 
678653 @Callable(i)
679654 func confirmManager () = {
680655     let pm = pendingManagerPublicKeyOrUnit()
681656     let hasPM = if (isDefined(pm))
682657         then true
683658         else throw("No pending manager")
684659     if ((hasPM == hasPM))
685660         then {
686661             let checkPM = if ((i.callerPublicKey == value(pm)))
687662                 then true
688663                 else throw("You are not pending manager")
689664             if ((checkPM == checkPM))
690665                 then [StringEntry(mpk(), toBase58String(value(pm))), DeleteEntry(pmpk())]
691666                 else throw("Strict value is not equal to itself.")
692667             }
693668         else throw("Strict value is not equal to itself.")
694669     }
695670 
696671 
697672 
698673 @Callable(i)
699674 func put (slippageTolerance,shouldAutoStake) = if ((0 > slippageTolerance))
700675     then throw("Invalid slippageTolerance passed")
701676     else {
702677         let estPut = commonPut(i, slippageTolerance, true)
703678         let emitLpAmt = estPut._2
704679         let lpAssetId = estPut._7
705680         let state = estPut._9
706681         let amDiff = estPut._10
707682         let prDiff = estPut._11
708683         let amId = estPut._12
709684         let prId = estPut._13
710-        let amAssetPmt = toBigInt(value(i.payments[0]).amount)
711-        let prAssetPmt = toBigInt(value(i.payments[1]).amount)
712-        let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
713-        if ((currentKLp == currentKLp))
685+        let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686+        if ((emitInv == emitInv))
714687             then {
715-                let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
716-                if ((emitInv == emitInv))
688+                let emitInvLegacy =                 match emitInv {
689+                    case legacyFactoryContract: Address => 
690+                        invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
691+                    case _ => 
692+                        unit
693+                }
694+                if ((emitInvLegacy == emitInvLegacy))
717695                     then {
718-                        let emitInvLegacy =                         match emitInv {
719-                            case legacyFactoryContract: Address => 
720-                                invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
721-                            case _ => 
722-                                unit
723-                        }
724-                        if ((emitInvLegacy == emitInvLegacy))
696+                        let slippageAInv = if ((amDiff > 0))
697+                            then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
698+                            else nil
699+                        if ((slippageAInv == slippageAInv))
725700                             then {
726-                                let slippageAInv = if ((amDiff > 0))
727-                                    then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
701+                                let slippagePInv = if ((prDiff > 0))
702+                                    then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
728703                                     else nil
729-                                if ((slippageAInv == slippageAInv))
704+                                if ((slippagePInv == slippagePInv))
730705                                     then {
731-                                        let slippagePInv = if ((prDiff > 0))
732-                                            then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
733-                                            else nil
734-                                        if ((slippagePInv == slippagePInv))
706+                                        let lpTransfer = if (shouldAutoStake)
735707                                             then {
736-                                                let lpTransfer = if (shouldAutoStake)
737-                                                    then {
738-                                                        let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
739-                                                        if ((slpStakeInv == slpStakeInv))
740-                                                            then nil
741-                                                            else throw("Strict value is not equal to itself.")
742-                                                        }
743-                                                    else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
744-                                                let $t03292633388 = refreshKLpInternal(0, 0, 0)
745-                                                if (($t03292633388 == $t03292633388))
746-                                                    then {
747-                                                        let updatedKLp = $t03292633388._2
748-                                                        let refreshKLpActions = $t03292633388._1
749-                                                        let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
750-                                                        if ((isUpdatedKLpValid == isUpdatedKLpValid))
751-                                                            then ((state ++ lpTransfer) ++ refreshKLpActions)
752-                                                            else throw("Strict value is not equal to itself.")
753-                                                        }
708+                                                let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709+                                                if ((slpStakeInv == slpStakeInv))
710+                                                    then nil
754711                                                     else throw("Strict value is not equal to itself.")
755712                                                 }
756-                                            else throw("Strict value is not equal to itself.")
713+                                            else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714+                                        (state ++ lpTransfer)
757715                                         }
758716                                     else throw("Strict value is not equal to itself.")
759717                                 }
760718                             else throw("Strict value is not equal to itself.")
761719                         }
762720                     else throw("Strict value is not equal to itself.")
763721                 }
764722             else throw("Strict value is not equal to itself.")
765723         }
766724 
767725 
768726 
769727 @Callable(i)
770728 func putForFree (maxSlippage) = if ((0 > maxSlippage))
771729     then throw("Invalid value passed")
772730     else {
773731         let estPut = commonPut(i, maxSlippage, false)
774-        let state = estPut._9
775-        let amAssetPmt = toBigInt(value(i.payments[0]).amount)
776-        let prAssetPmt = toBigInt(value(i.payments[1]).amount)
777-        let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
778-        if ((currentKLp == currentKLp))
779-            then {
780-                let $t03395034015 = refreshKLpInternal(0, 0, 0)
781-                let refreshKLpActions = $t03395034015._1
782-                let updatedKLp = $t03395034015._2
783-                let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
784-                if ((isUpdatedKLpValid == isUpdatedKLpValid))
785-                    then (state ++ refreshKLpActions)
786-                    else throw("Strict value is not equal to itself.")
787-                }
788-            else throw("Strict value is not equal to itself.")
732+        estPut._9
789733         }
790734 
791735 
792736 
793737 @Callable(i)
794738 func putOneTkn (minOutAmount,autoStake) = {
795739     let isPoolOneTokenOperationsDisabled = {
796740         let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
797741         if ($isInstanceOf(@, "Boolean"))
798742             then @
799743             else throw(($getType(@) + " couldn't be cast to Boolean"))
800744         }
801745     let isPutDisabled = if (if (if (isGlobalShutdown())
802746         then true
803747         else (cfgPoolStatus == PoolPutDisabled))
804748         then true
805749         else (cfgPoolStatus == PoolShutdown))
806750         then true
807751         else isPoolOneTokenOperationsDisabled
808752     let checks = [if (if (!(isPutDisabled))
809753         then true
810754         else isManager(i))
811755         then true
812756         else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
813757         then true
814758         else throwErr("exactly 1 payment are expected")]
815759     if ((checks == checks))
816760         then {
817761             let payment = i.payments[0]
818762             let paymentAssetId = payment.assetId
819763             let paymentAmountRaw = payment.amount
820-            let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
821-                then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
822-                else if ((paymentAssetId == cfgPriceAssetId))
823-                    then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
824-                    else throwErr("payment asset is not supported")
825764             let userAddress = i.caller
826765             let txId = i.transactionId
827-            let $t03520035352 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
828-            if (($t03520035352 == $t03520035352))
766+            let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767+            if (($t03172331853 == $t03172331853))
829768                 then {
830-                    let paymentInAmountAsset = $t03520035352._5
831-                    let bonus = $t03520035352._4
832-                    let feeAmount = $t03520035352._3
833-                    let commonState = $t03520035352._2
834-                    let emitAmountEstimated = $t03520035352._1
769+                    let bonus = $t03172331853._4
770+                    let feeAmount = $t03172331853._3
771+                    let commonState = $t03172331853._2
772+                    let emitAmountEstimated = $t03172331853._1
835773                     let emitAmount = if (if ((minOutAmount > 0))
836774                         then (minOutAmount > emitAmountEstimated)
837775                         else false)
838776                         then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
839777                         else emitAmountEstimated
840778                     let emitInv = emit(emitAmount)
841779                     if ((emitInv == emitInv))
842780                         then {
843781                             let lpTransfer = if (autoStake)
844782                                 then {
845783                                     let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
846784                                     if ((stakeInv == stakeInv))
847785                                         then nil
848786                                         else throw("Strict value is not equal to itself.")
849787                                     }
850788                                 else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
851789                             let sendFee = if ((feeAmount > 0))
852790                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
853791                                 else nil
854-                            let $t03593836135 = if ((this == feeCollectorAddress))
855-                                then $Tuple2(0, 0)
856-                                else if (paymentInAmountAsset)
857-                                    then $Tuple2(-(feeAmount), 0)
858-                                    else $Tuple2(0, -(feeAmount))
859-                            let amountAssetBalanceDelta = $t03593836135._1
860-                            let priceAssetBalanceDelta = $t03593836135._2
861-                            let $t03613836246 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
862-                            let refreshKLpActions = $t03613836246._1
863-                            let updatedKLp = $t03613836246._2
864-                            let kLp = value(getString(keyKLp))
865-                            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
866-                            if ((isUpdatedKLpValid == isUpdatedKLpValid))
867-                                then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
868-                                else throw("Strict value is not equal to itself.")
792+                            $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
869793                             }
870794                         else throw("Strict value is not equal to itself.")
871795                     }
872796                 else throw("Strict value is not equal to itself.")
873797             }
874798         else throw("Strict value is not equal to itself.")
875799     }
876800 
877801 
878802 
879803 @Callable(i)
880804 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
881-    let $t03655236709 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
882-    let emitAmountEstimated = $t03655236709._1
883-    let commonState = $t03655236709._2
884-    let feeAmount = $t03655236709._3
885-    let bonus = $t03655236709._4
886-    let paymentInAmountAsset = $t03655236709._5
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
887810     $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
888811     }
889812 
890813 
891814 
892815 @Callable(i)
893816 func getOneTkn (outAssetIdStr,minOutAmount) = {
894817     let isPoolOneTokenOperationsDisabled = {
895818         let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
896819         if ($isInstanceOf(@, "Boolean"))
897820             then @
898821             else throw(($getType(@) + " couldn't be cast to Boolean"))
899822         }
900823     let isGetDisabled = if (if (isGlobalShutdown())
901824         then true
902825         else (cfgPoolStatus == PoolShutdown))
903826         then true
904827         else isPoolOneTokenOperationsDisabled
905828     let checks = [if (if (!(isGetDisabled))
906829         then true
907830         else isManager(i))
908831         then true
909832         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
910833         then true
911834         else throwErr("exactly 1 payment are expected")]
912835     if ((checks == checks))
913836         then {
914837             let outAssetId = parseAssetId(outAssetIdStr)
915838             let payment = i.payments[0]
916839             let paymentAssetId = payment.assetId
917840             let paymentAmount = payment.amount
918-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(paymentAmount))
919841             let userAddress = i.caller
920842             let txId = i.transactionId
921-            let $t03760337756 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
922-            if (($t03760337756 == $t03760337756))
843+            let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844+            if (($t03352233657 == $t03352233657))
923845                 then {
924-                    let outInAmountAsset = $t03760337756._5
925-                    let bonus = $t03760337756._4
926-                    let feeAmount = $t03760337756._3
927-                    let commonState = $t03760337756._2
928-                    let amountEstimated = $t03760337756._1
846+                    let bonus = $t03352233657._4
847+                    let feeAmount = $t03352233657._3
848+                    let commonState = $t03352233657._2
849+                    let amountEstimated = $t03352233657._1
929850                     let amount = if (if ((minOutAmount > 0))
930851                         then (minOutAmount > amountEstimated)
931852                         else false)
932853                         then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
933854                         else amountEstimated
934855                     let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
935856                     if ((burnInv == burnInv))
936857                         then {
937858                             let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
938859                             let sendFee = if ((feeAmount > 0))
939860                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
940861                                 else nil
941-                            let $t03825638503 = {
942-                                let feeAmountForCalc = if ((this == feeCollectorAddress))
943-                                    then 0
944-                                    else feeAmount
945-                                if (outInAmountAsset)
946-                                    then $Tuple2(-((amount + feeAmountForCalc)), 0)
947-                                    else $Tuple2(0, -((amount + feeAmountForCalc)))
948-                                }
949-                            let amountAssetBalanceDelta = $t03825638503._1
950-                            let priceAssetBalanceDelta = $t03825638503._2
951-                            let $t03850638614 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
952-                            let refreshKLpActions = $t03850638614._1
953-                            let updatedKLp = $t03850638614._2
954-                            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
955-                            if ((isUpdatedKLpValid == isUpdatedKLpValid))
956-                                then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
957-                                else throw("Strict value is not equal to itself.")
862+                            $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
958863                             }
959864                         else throw("Strict value is not equal to itself.")
960865                     }
961866                 else throw("Strict value is not equal to itself.")
962867             }
963868         else throw("Strict value is not equal to itself.")
964869     }
965870 
966871 
967872 
968873 @Callable(i)
969874 func getOneTknREADONLY (outAssetId,paymentAmount) = {
970-    let $t03887139027 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
971-    let amountEstimated = $t03887139027._1
972-    let commonState = $t03887139027._2
973-    let feeAmount = $t03887139027._3
974-    let bonus = $t03887139027._4
975-    let outInAmountAsset = $t03887139027._5
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
976880     $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
977881     }
978882 
979883 
980884 
981885 @Callable(i)
982886 func unstakeAndGetOneTkn (unstakeAmount,outAssetIdStr,minOutAmount) = {
983887     let isPoolOneTokenOperationsDisabled = {
984888         let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
985889         if ($isInstanceOf(@, "Boolean"))
986890             then @
987891             else throw(($getType(@) + " couldn't be cast to Boolean"))
988892         }
989893     let isGetDisabled = if (if (isGlobalShutdown())
990894         then true
991895         else (cfgPoolStatus == PoolShutdown))
992896         then true
993897         else isPoolOneTokenOperationsDisabled
994898     let checks = [if (if (!(isGetDisabled))
995899         then true
996900         else isManager(i))
997901         then true
998902         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
999903         then true
1000904         else throwErr("no payments are expected")]
1001905     if ((checks == checks))
1002906         then {
1003907             let outAssetId = parseAssetId(outAssetIdStr)
1004908             let userAddress = i.caller
1005909             let txId = i.transactionId
1006-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1007910             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1008911             if ((unstakeInv == unstakeInv))
1009912                 then {
1010-                    let $t03992940080 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1011-                    if (($t03992940080 == $t03992940080))
913+                    let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914+                    if (($t03525535388 == $t03525535388))
1012915                         then {
1013-                            let outInAmountAsset = $t03992940080._5
1014-                            let bonus = $t03992940080._4
1015-                            let feeAmount = $t03992940080._3
1016-                            let commonState = $t03992940080._2
1017-                            let amountEstimated = $t03992940080._1
916+                            let bonus = $t03525535388._4
917+                            let feeAmount = $t03525535388._3
918+                            let commonState = $t03525535388._2
919+                            let amountEstimated = $t03525535388._1
1018920                             let amount = if (if ((minOutAmount > 0))
1019921                                 then (minOutAmount > amountEstimated)
1020922                                 else false)
1021923                                 then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1022924                                 else amountEstimated
1023925                             let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1024926                             if ((burnInv == burnInv))
1025927                                 then {
1026928                                     let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
1027929                                     let sendFee = if ((feeAmount > 0))
1028930                                         then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
1029931                                         else nil
1030-                                    let $t04057540822 = {
1031-                                        let feeAmountForCalc = if ((this == feeCollectorAddress))
1032-                                            then 0
1033-                                            else feeAmount
1034-                                        if (outInAmountAsset)
1035-                                            then $Tuple2(-((amount + feeAmountForCalc)), 0)
1036-                                            else $Tuple2(0, -((amount + feeAmountForCalc)))
1037-                                        }
1038-                                    let amountAssetBalanceDelta = $t04057540822._1
1039-                                    let priceAssetBalanceDelta = $t04057540822._2
1040-                                    let $t04082540933 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1041-                                    let refreshKLpActions = $t04082540933._1
1042-                                    let updatedKLp = $t04082540933._2
1043-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1044-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1045-                                        then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1046-                                        else throw("Strict value is not equal to itself.")
932+                                    $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1047933                                     }
1048934                                 else throw("Strict value is not equal to itself.")
1049935                             }
1050936                         else throw("Strict value is not equal to itself.")
1051937                     }
1052938                 else throw("Strict value is not equal to itself.")
1053939             }
1054940         else throw("Strict value is not equal to itself.")
1055941     }
1056942 
1057943 
1058944 
1059945 @Callable(i)
1060946 func get () = {
1061947     let res = commonGet(i)
1062948     let outAmtAmt = res._1
1063949     let outPrAmt = res._2
1064950     let pmtAmt = res._3
1065951     let pmtAssetId = res._4
1066952     let state = res._5
1067-    let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
1068953     let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1069954     if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1070-        then {
1071-            let $t04188141963 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1072-            let refreshKLpActions = $t04188141963._1
1073-            let updatedKLp = $t04188141963._2
1074-            let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1075-            if ((isUpdatedKLpValid == isUpdatedKLpValid))
1076-                then (state ++ refreshKLpActions)
1077-                else throw("Strict value is not equal to itself.")
1078-            }
955+        then state
1079956         else throw("Strict value is not equal to itself.")
1080957     }
1081958 
1082959 
1083960 
1084961 @Callable(i)
1085962 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
1086963     let res = commonGet(i)
1087964     let outAmAmt = res._1
1088965     let outPrAmt = res._2
1089966     let pmtAmt = res._3
1090967     let pmtAssetId = res._4
1091968     let state = res._5
1092969     if ((noLessThenAmtAsset > outAmAmt))
1093970         then throw(((("noLessThenAmtAsset failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
1094971         else if ((noLessThenPriceAsset > outPrAmt))
1095972             then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1096973             else {
1097-                let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(pmtAmt))
1098974                 let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1099975                 if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1100-                    then {
1101-                        let $t04291442995 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1102-                        let refreshKLpActions = $t04291442995._1
1103-                        let updatedKLp = $t04291442995._2
1104-                        let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1105-                        if ((isUpdatedKLpValid == isUpdatedKLpValid))
1106-                            then (state ++ refreshKLpActions)
1107-                            else throw("Strict value is not equal to itself.")
1108-                        }
976+                    then state
1109977                     else throw("Strict value is not equal to itself.")
1110978                 }
1111979     }
1112980 
1113981 
1114982 
1115983 @Callable(i)
1116984 func unstakeAndGet (amount) = {
1117985     let checkPayments = if ((size(i.payments) != 0))
1118986         then throw("No payments are expected")
1119987         else true
1120988     if ((checkPayments == checkPayments))
1121989         then {
1122990             let cfg = getPoolConfig()
1123991             let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1124-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1125992             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
1126993             if ((unstakeInv == unstakeInv))
1127994                 then {
1128995                     let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1129-                    let outAmAmt = res._1
1130-                    let outPrAmt = res._2
1131996                     let poolStatus = parseIntValue(res._9)
1132997                     let state = res._10
1133998                     let checkPoolStatus = if (if (isGlobalShutdown())
1134999                         then true
11351000                         else (poolStatus == PoolShutdown))
11361001                         then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
11371002                         else true
11381003                     if ((checkPoolStatus == checkPoolStatus))
11391004                         then {
11401005                             let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
11411006                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1142-                                then {
1143-                                    let $t04411844199 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1144-                                    let refreshKLpActions = $t04411844199._1
1145-                                    let updatedKLp = $t04411844199._2
1146-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1147-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1148-                                        then (state ++ refreshKLpActions)
1149-                                        else throw("Strict value is not equal to itself.")
1150-                                    }
1007+                                then state
11511008                                 else throw("Strict value is not equal to itself.")
11521009                             }
11531010                         else throw("Strict value is not equal to itself.")
11541011                     }
11551012                 else throw("Strict value is not equal to itself.")
11561013             }
11571014         else throw("Strict value is not equal to itself.")
11581015     }
11591016 
11601017 
11611018 
11621019 @Callable(i)
11631020 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
11641021     let isGetDisabled = if (isGlobalShutdown())
11651022         then true
11661023         else (cfgPoolStatus == PoolShutdown)
11671024     let checks = [if (!(isGetDisabled))
11681025         then true
11691026         else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
11701027         then true
11711028         else throw("no payments are expected")]
11721029     if ((checks == checks))
11731030         then {
1174-            let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
11751031             let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
11761032             if ((unstakeInv == unstakeInv))
11771033                 then {
11781034                     let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
11791035                     let outAmAmt = res._1
11801036                     let outPrAmt = res._2
11811037                     let state = res._10
11821038                     let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
11831039                         then true
11841040                         else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
11851041                         then true
11861042                         else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
11871043                     if ((checkAmounts == checkAmounts))
11881044                         then {
11891045                             let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
11901046                             if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1191-                                then {
1192-                                    let $t04549145572 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1193-                                    let refreshKLpActions = $t04549145572._1
1194-                                    let updatedKLp = $t04549145572._2
1195-                                    let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1196-                                    if ((isUpdatedKLpValid == isUpdatedKLpValid))
1197-                                        then (state ++ refreshKLpActions)
1198-                                        else throw("Strict value is not equal to itself.")
1199-                                    }
1047+                                then state
12001048                                 else throw("Strict value is not equal to itself.")
12011049                             }
12021050                         else throw("Strict value is not equal to itself.")
12031051                     }
12041052                 else throw("Strict value is not equal to itself.")
12051053             }
12061054         else throw("Strict value is not equal to itself.")
12071055     }
12081056 
12091057 
12101058 
12111059 @Callable(i)
12121060 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
12131061     then throw("permissions denied")
12141062     else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1215-
1216-
1217-
1218-@Callable(i)
1219-func refreshKLp () = {
1220-    let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1221-    let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1222-        then unit
1223-        else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1224-    if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1225-        then {
1226-            let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1227-            let $t04675946823 = refreshKLpInternal(0, 0, 0)
1228-            let kLpUpdateActions = $t04675946823._1
1229-            let updatedKLp = $t04675946823._2
1230-            let actions = if ((kLp != updatedKLp))
1231-                then kLpUpdateActions
1232-                else throwErr("nothing to refresh")
1233-            $Tuple2(actions, toString(updatedKLp))
1234-            }
1235-        else throw("Strict value is not equal to itself.")
1236-    }
12371063 
12381064 
12391065 
12401066 @Callable(i)
12411067 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
12421068 
12431069 
12441070 
12451071 @Callable(i)
12461072 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
12471073 
12481074 
12491075 
12501076 @Callable(i)
12511077 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
12521078     let prices = calcPrices(amAmt, prAmt, lpAmt)
12531079     $Tuple2(nil, [toString(prices[0]), toString(prices[1]), toString(prices[2])])
12541080     }
12551081 
12561082 
12571083 
12581084 @Callable(i)
12591085 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
12601086 
12611087 
12621088 
12631089 @Callable(i)
12641090 func fromX18WrapperREADONLY (val,resultScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resultScaleMult))
12651091 
12661092 
12671093 
12681094 @Callable(i)
12691095 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
12701096 
12711097 
12721098 
12731099 @Callable(i)
12741100 func estimatePutOperationWrapperREADONLY (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippageTolerance, inAmAssetAmt, inAmAssetId, inPrAssetAmt, inPrAssetId, userAddress, isEvaluate, emitLp))
12751101 
12761102 
12771103 
12781104 @Callable(i)
12791105 func estimateGetOperationWrapperREADONLY (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
12801106     let res = estimateGetOperation(txId58, pmtAssetId, pmtLpAmt, addressFromStringValue(userAddress))
12811107     $Tuple2(nil, $Tuple10(res._1, res._2, res._3, res._4, res._5, res._6, res._7, toString(res._8), res._9, res._10))
12821108     }
12831109 
12841110 
12851111 
12861112 @Callable(i)
12871113 func statsREADONLY () = {
12881114     let cfg = getPoolConfig()
12891115     let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
12901116     let amtAssetId = cfg[idxAmtAssetId]
12911117     let priceAssetId = cfg[idxPriceAssetId]
12921118     let iAmtAssetId = cfg[idxIAmtAssetId]
12931119     let iPriceAssetId = cfg[idxIPriceAssetId]
12941120     let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
12951121     let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
12961122     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
12971123     let accAmtAssetBalance = getAccBalance(amtAssetId)
12981124     let accPriceAssetBalance = getAccBalance(priceAssetId)
12991125     let pricesList = if ((poolLPBalance == 0))
13001126         then [zeroBigInt, zeroBigInt, zeroBigInt]
13011127         else calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
13021128     let curPrice = 0
13031129     let lpAmtAssetShare = fromX18(pricesList[1], scale8)
13041130     let lpPriceAssetShare = fromX18(pricesList[2], scale8)
13051131     let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
13061132     $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))
13071133     }
13081134 
13091135 
13101136 
13111137 @Callable(i)
13121138 func evaluatePutByAmountAssetREADONLY (inAmAssetAmt) = {
13131139     let cfg = getPoolConfig()
13141140     let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
13151141     let amAssetIdStr = cfg[idxAmtAssetId]
13161142     let amAssetId = fromBase58String(amAssetIdStr)
13171143     let prAssetIdStr = cfg[idxPriceAssetId]
13181144     let prAssetId = fromBase58String(prAssetIdStr)
13191145     let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
13201146     let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
13211147     let poolStatus = cfg[idxPoolStatus]
13221148     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
13231149     let accAmtAssetBalance = getAccBalance(amAssetIdStr)
13241150     let accPriceAssetBalance = getAccBalance(prAssetIdStr)
13251151     let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
13261152     let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
13271153     let curPriceX18 = if ((poolLPBalance == 0))
13281154         then zeroBigInt
13291155         else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
13301156     let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
13311157     let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
13321158     let inPrAssetAmt = fromX18(inPrAssetAmtX18, priceAssetDcm)
13331159     let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
13341160     let calcLpAmt = estPut._1
13351161     let curPriceCalc = estPut._3
13361162     let amBalance = estPut._4
13371163     let prBalance = estPut._5
13381164     let lpEmission = estPut._6
13391165     $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))
13401166     }
13411167 
13421168 
13431169 
13441170 @Callable(i)
13451171 func evaluatePutByPriceAssetREADONLY (inPrAssetAmt) = {
13461172     let cfg = getPoolConfig()
13471173     let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
13481174     let amAssetIdStr = cfg[idxAmtAssetId]
13491175     let amAssetId = fromBase58String(amAssetIdStr)
13501176     let prAssetIdStr = cfg[idxPriceAssetId]
13511177     let prAssetId = fromBase58String(prAssetIdStr)
13521178     let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
13531179     let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
13541180     let poolStatus = cfg[idxPoolStatus]
13551181     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
13561182     let amBalanceRaw = getAccBalance(amAssetIdStr)
13571183     let prBalanceRaw = getAccBalance(prAssetIdStr)
13581184     let amBalanceRawX18 = toX18(amBalanceRaw, amtAssetDcm)
13591185     let prBalanceRawX18 = toX18(prBalanceRaw, priceAssetDcm)
13601186     let curPriceX18 = if ((poolLPBalance == 0))
13611187         then zeroBigInt
13621188         else calcPriceBigInt(prBalanceRawX18, amBalanceRawX18)
13631189     let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
13641190     let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
13651191     let inAmAssetAmt = fromX18(inAmAssetAmtX18, amtAssetDcm)
13661192     let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
13671193     let calcLpAmt = estPut._1
13681194     let curPriceCalc = estPut._3
13691195     let amBalance = estPut._4
13701196     let prBalance = estPut._5
13711197     let lpEmission = estPut._6
13721198     $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))
13731199     }
13741200 
13751201 
13761202 
13771203 @Callable(i)
13781204 func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
13791205     let res = estimateGetOperation("", paymentLpAssetId, paymentLpAmt, this)
13801206     let outAmAmt = res._1
13811207     let outPrAmt = res._2
13821208     let amBalance = res._5
13831209     let prBalance = res._6
13841210     let lpEmission = res._7
13851211     let curPrice = res._8
13861212     let poolStatus = parseIntValue(res._9)
13871213     $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))
13881214     }
13891215 
13901216 
13911217 @Verifier(tx)
13921218 func verify () = {
13931219     let targetPublicKey =     match managerPublicKeyOrUnit() {
13941220         case pk: ByteVector => 
13951221             pk
13961222         case _: Unit => 
13971223             tx.senderPublicKey
13981224         case _ => 
13991225             throw("Match error")
14001226     }
14011227     match tx {
14021228         case order: Order => 
14031229             let matcherPub = getMatcherPubOrFail()
14041230             let orderValid = validateMatcherOrderAllowed(order)
14051231             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
14061232             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
14071233             if (if (if (orderValid)
14081234                 then senderValid
14091235                 else false)
14101236                 then matcherValid
14111237                 else false)
14121238                 then true
14131239                 else throwOrderError(orderValid, senderValid, matcherValid)
14141240         case s: SetScriptTransaction => 
14151241             let newHash = blake2b256(value(s.script))
14161242             let allowedHash = fromBase64String(value(getString(factoryContract, keyAllowedLpScriptHash())))
14171243             let currentHash = scriptHash(this)
14181244             if (if ((allowedHash == newHash))
14191245                 then (currentHash != newHash)
14201246                 else false)
14211247                 then true
14221248                 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
14231249         case _ => 
14241250             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
14251251     }
14261252     }
14271253 
github/deemru/w8io/026f985 
167.73 ms ◑