tx · BKtveArRCwRa1ZskpoYzY4sh8j8rpTQqyibRPFY2ZZM9

3NBLSz3BB8QU3BAPnsnrMyjFWr75tcEXryF:  -0.03100000 Waves

2022.12.27 12:42 [2378516] smart account 3NBLSz3BB8QU3BAPnsnrMyjFWr75tcEXryF > SELF 0.00000000 Waves

{ "type": 13, "id": "BKtveArRCwRa1ZskpoYzY4sh8j8rpTQqyibRPFY2ZZM9", "fee": 3100000, "feeAssetId": null, "timestamp": 1672134120026, "version": 1, "sender": "3NBLSz3BB8QU3BAPnsnrMyjFWr75tcEXryF", "senderPublicKey": "BPTgianAtANVixAd7SHgec6W3RNNty3z1LVE9AQbYHdz", "proofs": [ "3qJsEC8VuYAEhxnkbPD4LApnH61mir4Mofe1e24BYqo5BegAXuwW8Dndy8YPDBNpNirM7wv9rWSEt5h6eAS8br9z" ], "script": "base64:BgK3JwgCEgMKAQgSABIECgIBBBIDCgEBEgQKAgEEEgQKAggBEgQKAggBEgQKAggBEgUKAwEIARIAEgQKAgEBEgMKAQESBQoDAQEBEgQKAggIEgASAwoBCBIFCgMBAQESBAoCAQESBAoCCAESBAoCCAgSCwoJCAEBAgECCAQEEgYKBAgIAQgSABIDCgEBEgMKAQESBAoCCAEiCmxQZGVjaW1hbHMiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgRiaWcyIgt3YXZlc1N0cmluZyIDU0VQIgpQb29sQWN0aXZlIg9Qb29sUHV0RGlzYWJsZWQiE1Bvb2xNYXRjaGVyRGlzYWJsZWQiDFBvb2xTaHV0ZG93biIOaWR4UG9vbEFkZHJlc3MiDWlkeFBvb2xTdGF0dXMiEGlkeFBvb2xMUEFzc2V0SWQiDWlkeEFtdEFzc2V0SWQiD2lkeFByaWNlQXNzZXRJZCIOaWR4QW10QXNzZXREY20iEGlkeFByaWNlQXNzZXREY20iDmlkeElBbXRBc3NldElkIhBpZHhJUHJpY2VBc3NldElkIg1pZHhMUEFzc2V0RGNtIhJpZHhQb29sQW10QXNzZXRBbXQiFGlkeFBvb2xQcmljZUFzc2V0QW10IhFpZHhQb29sTFBBc3NldEFtdCIZaWR4RmFjdG9yeVN0YWtpbmdDb250cmFjdCIaaWR4RmFjdG9yeVNsaXBwYWdlQ29udHJhY3QiBXRvWDE4IgdvcmlnVmFsIg1vcmlnU2NhbGVNdWx0Igdmcm9tWDE4IgN2YWwiD3Jlc3VsdFNjYWxlTXVsdCIHdG9TY2FsZSIDYW10IghyZXNTY2FsZSIIY3VyU2NhbGUiA2FicyIJYWJzQmlnSW50IgJmYyIDbXBrIgRwbXBrIgJwbCICcGgiAWgiCXRpbWVzdGFtcCIDcGF1Igt1c2VyQWRkcmVzcyIEdHhJZCIDZ2F1IgJhYSICcGEiEGtleUZhY3RvcnlDb25maWciDWtleU1hdGNoZXJQdWIiKWtleU1hcHBpbmdQb29sQ29udHJhY3RBZGRyZXNzVG9Qb29sQXNzZXRzIhNwb29sQ29udHJhY3RBZGRyZXNzIg1rZXlQb29sQ29uZmlnIglpQW10QXNzZXQiC2lQcmljZUFzc2V0Ih9rZXlNYXBwaW5nc0Jhc2VBc3NldDJpbnRlcm5hbElkIgxiYXNlQXNzZXRTdHIiE2tleUFsbFBvb2xzU2h1dGRvd24iDWtleVBvb2xXZWlnaHQiD2NvbnRyYWN0QWRkcmVzcyIWa2V5QWxsb3dlZExwU2NyaXB0SGFzaCIWa2V5RmVlQ29sbGVjdG9yQWRkcmVzcyIPdGhyb3dPcmRlckVycm9yIgpvcmRlclZhbGlkIgtzZW5kZXJWYWxpZCIMbWF0Y2hlclZhbGlkIg9nZXRTdHJpbmdPckZhaWwiB2FkZHJlc3MiA2tleSIMZ2V0SW50T3JGYWlsIgh0aHJvd0VyciIDbXNnIg9mYWN0b3J5Q29udHJhY3QiE2ZlZUNvbGxlY3RvckFkZHJlc3MiBWluRmVlIgFAIgZvdXRGZWUiEGlzR2xvYmFsU2h1dGRvd24iE2dldE1hdGNoZXJQdWJPckZhaWwiDWdldFBvb2xDb25maWciCGFtdEFzc2V0IgpwcmljZUFzc2V0IgxwYXJzZUFzc2V0SWQiBWlucHV0Ig9hc3NldElkVG9TdHJpbmciD3BhcnNlUG9vbENvbmZpZyIKcG9vbENvbmZpZyIQcG9vbENvbmZpZ1BhcnNlZCILJHQwNzYwMTc3NjciDmNmZ1Bvb2xBZGRyZXNzIg1jZmdQb29sU3RhdHVzIgxjZmdMcEFzc2V0SWQiEGNmZ0Ftb3VudEFzc2V0SWQiD2NmZ1ByaWNlQXNzZXRJZCIWY2ZnQW1vdW50QXNzZXREZWNpbWFscyIVY2ZnUHJpY2VBc3NldERlY2ltYWxzIhBnZXRGYWN0b3J5Q29uZmlnIg9zdGFraW5nQ29udHJhY3QiEHNsaXBwYWdlQ29udHJhY3QiEWRhdGFQdXRBY3Rpb25JbmZvIg1pbkFtdEFzc2V0QW10Ig9pblByaWNlQXNzZXRBbXQiCG91dExwQW10IgVwcmljZSIdc2xpcHBhZ2VUb2xlcmFuY2VQYXNzZWRCeVVzZXIiFXNsaXBwYWdlVG9sZXJhbmNlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIhJzbGlwYWdlQW10QXNzZXRBbXQiFHNsaXBhZ2VQcmljZUFzc2V0QW10IhFkYXRhR2V0QWN0aW9uSW5mbyIOb3V0QW10QXNzZXRBbXQiEG91dFByaWNlQXNzZXRBbXQiB2luTHBBbXQiDWdldEFjY0JhbGFuY2UiB2Fzc2V0SWQiD2NhbGNQcmljZUJpZ0ludCIIcHJBbXRYMTgiCGFtQW10WDE4IhBwcml2YXRlQ2FsY1ByaWNlIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiDmFtdEFzc2V0QW10WDE4IhBwcmljZUFzc2V0QW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIgthbXRBc3NldERjbSINcHJpY2VBc3NldERjbSIIcHJpY2VYMTgiCGxwQW10WDE4IhNscFByaWNlSW5BbUFzc2V0WDE4IhNscFByaWNlSW5QckFzc2V0WDE4Ig9jYWxjdWxhdGVQcmljZXMiBnByaWNlcyIUZXN0aW1hdGVHZXRPcGVyYXRpb24iBnR4SWQ1OCIKcG10QXNzZXRJZCIIcG10THBBbXQiCWxwQXNzZXRJZCIJYW1Bc3NldElkIglwckFzc2V0SWQiCnBvb2xTdGF0dXMiCmxwRW1pc3Npb24iCWFtQmFsYW5jZSIMYW1CYWxhbmNlWDE4IglwckJhbGFuY2UiDHByQmFsYW5jZVgxOCILY3VyUHJpY2VYMTgiCGN1clByaWNlIgtwbXRMcEFtdFgxOCINbHBFbWlzc2lvblgxOCILb3V0QW1BbXRYMTgiC291dFByQW10WDE4IghvdXRBbUFtdCIIb3V0UHJBbXQiBXN0YXRlIhRlc3RpbWF0ZVB1dE9wZXJhdGlvbiIRc2xpcHBhZ2VUb2xlcmFuY2UiDGluQW1Bc3NldEFtdCILaW5BbUFzc2V0SWQiDGluUHJBc3NldEFtdCILaW5QckFzc2V0SWQiCmlzRXZhbHVhdGUiBmVtaXRMcCIMYW1Bc3NldElkU3RyIgxwckFzc2V0SWRTdHIiC2lBbXRBc3NldElkIg1pUHJpY2VBc3NldElkIg5pbkFtQXNzZXRJZFN0ciIOaW5QckFzc2V0SWRTdHIiD2luQW1Bc3NldEFtdFgxOCIPaW5QckFzc2V0QW10WDE4Igx1c2VyUHJpY2VYMTgiA3JlcyILc2xpcHBhZ2VYMTgiFHNsaXBwYWdlVG9sZXJhbmNlWDE4IgpwclZpYUFtWDE4IgphbVZpYVByWDE4IgxleHBlY3RlZEFtdHMiEWV4cEFtdEFzc2V0QW10WDE4IhNleHBQcmljZUFzc2V0QW10WDE4IgljYWxjTHBBbXQiDmNhbGNBbUFzc2V0UG10Ig5jYWxjUHJBc3NldFBtdCIMc2xpcHBhZ2VDYWxjIgllbWl0THBBbXQiBmFtRGlmZiIGcHJEaWZmIgtjb21tb25TdGF0ZSIbdmFsaWRhdGVNYXRjaGVyT3JkZXJBbGxvd2VkIgVvcmRlciIKYW10QXNzZXRJZCIMcHJpY2VBc3NldElkIhJhY2NBbXRBc3NldEJhbGFuY2UiFGFjY1ByaWNlQXNzZXRCYWxhbmNlIg1vcmRlckFtdEFzc2V0IhBvcmRlckFtdEFzc2V0U3RyIg9vcmRlclByaWNlQXNzZXQiEm9yZGVyUHJpY2VBc3NldFN0ciIKb3JkZXJQcmljZSIIcHJpY2VEY20iEGNhc3RlZE9yZGVyUHJpY2UiEWlzT3JkZXJQcmljZVZhbGlkIgljb21tb25HZXQiAWkiA3BtdCIGcG10QW10Igljb21tb25QdXQiCmFtQXNzZXRQbXQiCnByQXNzZXRQbXQiBmVzdFB1dCIEZW1pdCIGYW1vdW50IgdlbWl0SW52Ig1lbWl0SW52TGVnYWN5IgckbWF0Y2gwIhVsZWdhY3lGYWN0b3J5Q29udHJhY3QiB3Rha2VGZWUiA2ZlZSIJZmVlQW1vdW50Ig9jYWxjUHV0T25lVG9rZW4iEHBheW1lbnRBbW91bnRSYXciDnBheW1lbnRBc3NldElkIgZpc0V2YWwiEGFtb3VudEJhbGFuY2VSYXciD3ByaWNlQmFsYW5jZVJhdyIUcGF5bWVudEluQW1vdW50QXNzZXQiDSR0MDIyNjY0MjI5NTciEGFtb3VudEJhbGFuY2VPbGQiD3ByaWNlQmFsYW5jZU9sZCINJHQwMjI5NjEyMzExMCIUYW1vdW50QXNzZXRBbW91bnRSYXciE3ByaWNlQXNzZXRBbW91bnRSYXciEWFtb3VudEFzc2V0QW1vdW50IhBwcmljZUFzc2V0QW1vdW50Ig0kdDAyMzI0MjIzMzA2Ig1wYXltZW50QW1vdW50IhBhbW91bnRCYWxhbmNlTmV3Ig9wcmljZUJhbGFuY2VOZXciC3ByaWNlTmV3WDE4IghwcmljZU5ldyIOcGF5bWVudEJhbGFuY2UiFHBheW1lbnRCYWxhbmNlQmlnSW50IgxzdXBwbHlCaWdJbnQiC2NoZWNoU3VwcGx5Ig1kZXBvc2l0QmlnSW50Igtpc3N1ZUFtb3VudCILcHJpY2VPbGRYMTgiCHByaWNlT2xkIgRsb3NzIg0kdDAyNDc4MzI0OTUwIgdiYWxhbmNlIg9pc3N1ZUFtb3VudEJvdGgiD2NhbGNHZXRPbmVUb2tlbiIKb3V0QXNzZXRJZCIGY2hlY2tzIhBvdXRJbkFtb3VudEFzc2V0Ig1iYWxhbmNlQmlnSW50IgxhbUJhbGFuY2VPbGQiDHByQmFsYW5jZU9sZCIKb3V0QmFsYW5jZSIQb3V0QmFsYW5jZUJpZ0ludCIOcmVkZWVtZWRCaWdJbnQiCWFtb3VudFJhdyINJHQwMjY1MzAyNjU4NiILdG90YWxBbW91bnQiDSR0MDI2NTkwMjY4MTYiC291dEFtQW1vdW50IgtvdXRQckFtb3VudCIMYW1CYWxhbmNlTmV3IgxwckJhbGFuY2VOZXciGGFtb3VudEJvdGhJblBheW1lbnRBc3NldCIWbWFuYWdlclB1YmxpY0tleU9yVW5pdCIBcyIdcGVuZGluZ01hbmFnZXJQdWJsaWNLZXlPclVuaXQiCWlzTWFuYWdlciICcGsiC211c3RNYW5hZ2VyIgJwZCIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiC2NoZWNrQ2FsbGVyIhVjaGVja01hbmFnZXJQdWJsaWNLZXkiAnBtIgVoYXNQTSIHY2hlY2tQTSIPc2hvdWxkQXV0b1N0YWtlIgRhbUlkIgRwcklkIgxzbGlwcGFnZUFJbnYiDHNsaXBwYWdlUEludiIKbHBUcmFuc2ZlciILc2xwU3Rha2VJbnYiC21heFNsaXBwYWdlIgxtaW5PdXRBbW91bnQiCWF1dG9TdGFrZSIgaXNQb29sT25lVG9rZW5PcGVyYXRpb25zRGlzYWJsZWQiDWlzUHV0RGlzYWJsZWQiB3BheW1lbnQiDSR0MDMxNzIzMzE4NTMiBWJvbnVzIhNlbWl0QW1vdW50RXN0aW1hdGVkIgplbWl0QW1vdW50IghzdGFrZUludiIHc2VuZEZlZSINJHQwMzI1ODIzMjcxNyINb3V0QXNzZXRJZFN0ciINaXNHZXREaXNhYmxlZCINJHQwMzM1MjIzMzY1NyIPYW1vdW50RXN0aW1hdGVkIgdidXJuSW52Ig1hc3NldFRyYW5zZmVyIg0kdDAzNDI5MjM0NDMwIg11bnN0YWtlQW1vdW50Igp1bnN0YWtlSW52Ig0kdDAzNTI1NTM1Mzg4IglvdXRBbXRBbXQiFGJ1cm5MUEFzc2V0T25GYWN0b3J5IhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0Ig1jaGVja1BheW1lbnRzIg9jaGVja1Bvb2xTdGF0dXMiFW5vTGVzc1RoZW5BbW91bnRBc3NldCIMY2hlY2tBbW91bnRzIgthbXRBc3NldFN0ciINcHJpY2VBc3NldFN0ciINcG9vbExQQmFsYW5jZSIKcHJpY2VzTGlzdCIPbHBBbXRBc3NldFNoYXJlIhFscFByaWNlQXNzZXRTaGFyZSIKcG9vbFdlaWdodCIMY3VyUHJpY2VDYWxjIgxhbUJhbGFuY2VSYXciDHByQmFsYW5jZVJhdyIPYW1CYWxhbmNlUmF3WDE4Ig9wckJhbGFuY2VSYXdYMTgiEHBheW1lbnRMcEFzc2V0SWQiDHBheW1lbnRMcEFtdCICdHgiBnZlcmlmeSIPdGFyZ2V0UHVibGljS2V5IgptYXRjaGVyUHViIgduZXdIYXNoIgthbGxvd2VkSGFzaCILY3VycmVudEhhc2hiAAFhAAgAAWIAgMLXLwABYwkAtgIBAIDC1y8AAWQJALYCAQCAgJC7utat8A0AAWUJALYCAQAAAAFmCQC2AgEAAAABZwkAtgIBAAEAAWgJALYCAQACAAFpAgVXQVZFUwABagICX18AAWsAAQABbAACAAFtAAMAAW4ABAABbwABAAFwAAIAAXEAAwABcgAEAAFzAAUAAXQABgABdQAHAAF2AAgAAXcACQABeAAKAAF5AAEAAXoAAgABQQADAAFCAAEAAUMABwEBRAIBRQFGCQC8AgMJALYCAQUBRQUBZAkAtgIBBQFGAQFHAgFIAUkJAKADAQkAvAIDBQFICQC2AgEFAUkFAWQBAUoDAUsBTAFNCQBrAwUBSwUBTAUBTQEBTgEBSAMJAGYCAAAFAUgJAQEtAQUBSAUBSAEBTwEBSAMJAL8CAgUBZQUBSAkAvgIBBQFIBQFIAQFQAAITJXNfX2ZhY3RvcnlDb250cmFjdAEBUQACFCVzX19tYW5hZ2VyUHVibGljS2V5AQFSAAIbJXNfX3BlbmRpbmdNYW5hZ2VyUHVibGljS2V5AQFTAAIRJXMlc19fcHJpY2VfX2xhc3QBAVQCAVUBVgkAuQkCCQDMCAICGCVzJXMlZCVkX19wcmljZV9faGlzdG9yeQkAzAgCCQCkAwEFAVUJAMwIAgkApAMBBQFWBQNuaWwFAWoBAVcCAVgBWQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19QX18FAVgCAl9fBQFZAQFaAgFYAVkJAKwCAgkArAICCQCsAgICCyVzJXMlc19fR19fBQFYAgJfXwUBWQECYWEAAg8lc19fYW1vdW50QXNzZXQBAmFiAAIOJXNfX3ByaWNlQXNzZXQBAmFjAAIRJXNfX2ZhY3RvcnlDb25maWcBAmFkAAIYJXMlc19fbWF0Y2hlcl9fcHVibGljS2V5AQJhZQECYWYJAKwCAgkArAICAgglcyVzJXNfXwUCYWYCIF9fbWFwcGluZ3NfX3Bvb2xDb250cmFjdDJMcEFzc2V0AQJhZwICYWgCYWkJAKwCAgkArAICCQCsAgIJAKwCAgIIJWQlZCVzX18FAmFoAgJfXwUCYWkCCF9fY29uZmlnAQJhagECYWsJAKwCAgIoJXMlcyVzX19tYXBwaW5nc19fYmFzZUFzc2V0MmludGVybmFsSWRfXwUCYWsBAmFsAAIMJXNfX3NodXRkb3duAQJhbQECYW4JAKwCAgISJXMlc19fcG9vbFdlaWdodF9fBQJhbgECYW8AAhclc19fYWxsb3dlZExwU2NyaXB0SGFzaAACYXACFyVzX19mZWVDb2xsZWN0b3JBZGRyZXNzAQJhcQMCYXICYXMCYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIkb3JkZXIgdmFsaWRhdGlvbiBmYWlsZWQ6IG9yZGVyVmFsaWQ9CQClAwEFAmFyAg0gc2VuZGVyVmFsaWQ9CQClAwEFAmFzAg4gbWF0Y2hlclZhbGlkPQkApQMBBQJhdAECYXUCAmF2AmF3CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUCYXYFAmF3CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF2CQDMCAICAS4JAMwIAgUCYXcJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAECYXgCAmF2AmF3CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUCYXYFAmF3CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFAmF2CQDMCAICAS4JAMwIAgUCYXcJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAECYXkBAmF6CQACAQkAuQkCCQDMCAICCGxwLnJpZGU6CQDMCAIFAmF6BQNuaWwCASAAAmFBCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXUCBQR0aGlzCQEBUAAAAmFCCQERQGV4dHJOYXRpdmUoMTA2MikBCQECYXUCBQJhQQUCYXAAAmFDCgACYUQJAPwHBAUCYUECEGdldEluRmVlUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRAIDSW50BQJhRAkAAgEJAKwCAgkAAwEFAmFEAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQAAmFFCgACYUQJAPwHBAUCYUECEWdldE91dEZlZVJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCA0ludAUCYUQJAAIBCQCsAgIJAAMBBQJhRAIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50AQJhRgAJAQt2YWx1ZU9yRWxzZQIJAJsIAgUCYUEJAQJhbAAHAQJhRwAJANkEAQkBAmF1AgUCYUEJAQJhZAABAmFIAAQCYUkJAQJhdQIFBHRoaXMJAQJhYQAEAmFKCQECYXUCBQR0aGlzCQECYWIABAJhaQkBAmF4AgUCYUEJAQJhagEFAmFKBAJhaAkBAmF4AgUCYUEJAQJhagEFAmFJCQC1CQIJAQJhdQIFAmFBCQECYWcCCQCkAwEFAmFoCQCkAwEFAmFpBQFqAQJhSwECYUwDCQAAAgUCYUwFAWkFBHVuaXQJANkEAQUCYUwBAmFNAQJhTAMJAAACBQJhTAUEdW5pdAUBaQkA2AQBCQEFdmFsdWUBBQJhTAECYU4BAmFPCQCZCgcJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUCYU8FAW8JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhTwUBcAkA2QQBCQCRAwIFAmFPBQFxCQECYUsBCQCRAwIFAmFPBQFyCQECYUsBCQCRAwIFAmFPBQFzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYU8FAXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJhTwUBdQACYVAJAQJhTgEJAQJhSAAAAmFRBQJhUAACYVIIBQJhUQJfMQACYVMIBQJhUQJfMgACYVQIBQJhUQJfMwACYVUIBQJhUQJfNAACYVYIBQJhUQJfNQACYVcIBQJhUQJfNgACYVgIBQJhUQJfNwECYVkACQC1CQIJAQJhdQIFAmFBCQECYWMABQFqAAJhWgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgkBAmFZAAUBQgIZaW5jb3JyZWN0IHN0YWtpbmcgYWRkcmVzcwACYmEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIJAQJhWQAFAUMCGWluY29ycmVjdCBzdGFraW5nIGFkZHJlc3MBAmJiCgJiYwJiZAJiZQJiZgJiZwJiaAJiaQJiagJiawJibAkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYmMJAMwIAgkApAMBBQJiZAkAzAgCCQCkAwEFAmJlCQDMCAIJAKQDAQUCYmYJAMwIAgkApAMBBQJiZwkAzAgCCQCkAwEFAmJoCQDMCAIJAKQDAQUCYmkJAMwIAgkApAMBBQJiagkAzAgCCQCkAwEFAmJrCQDMCAIJAKQDAQUCYmwFA25pbAUBagECYm0GAmJuAmJvAmJwAmJmAmJpAmJqCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYm4JAMwIAgkApAMBBQJibwkAzAgCCQCkAwEFAmJwCQDMCAIJAKQDAQUCYmYJAMwIAgkApAMBBQJiaQkAzAgCCQCkAwEFAmJqBQNuaWwFAWoBAmJxAQJicgMJAAACBQJicgIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYnIBAmJzAgJidAJidQkAvAIDBQJidAUBZAUCYnUBAmJ2BAJidwJieAJieQJiegQCYkEJAQFEAgUCYnkFAmJ3BAJiQgkBAUQCBQJiegUCYngJAQJicwIFAmJCBQJiQQECYkMDAmJ5AmJ6AmJEBAJiRQkBAmFIAAQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCYkgJAQJidgQFAmJGBQJiRwUCYnkFAmJ6BAJidQkBAUQCBQJieQUCYkYEAmJ0CQEBRAIFAmJ6BQJiRwQCYkkJAQFEAgUCYkQFAWIEAmJKCQECYnMCBQJidQUCYkkEAmJLCQECYnMCBQJidAUCYkkJAMwIAgUCYkgJAMwIAgUCYkoJAMwIAgUCYksFA25pbAECYkwDAmJ5AmJ6AmJEBAJiTQkBAmJDAwUCYnkFAmJ6BQJiRAkAzAgCCQEBRwIJAJEDAgUCYk0AAAUBYgkAzAgCCQEBRwIJAJEDAgUCYk0AAQUBYgkAzAgCCQEBRwIJAJEDAgUCYk0AAgUBYgUDbmlsAQJiTgQCYk8CYlACYlEBWAQCYkUJAQJhSAAEAmJSCQCRAwIFAmJFBQFxBAJiUwkAkQMCBQJiRQUBcgQCYlQJAJEDAgUCYkUFAXMEAmJ3CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkUFAXQEAmJ4CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkUFAXUEAmJVCQCRAwIFAmJFBQFwBAJiVggJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFAmJSCQCsAgIJAKwCAgIGQXNzZXQgBQJiUgIOIGRvZXNuJ3QgZXhpc3QIcXVhbnRpdHkDCQECIT0CBQJiUgUCYlAJAAIBAhVJbnZhbGlkIGFzc2V0IHBhc3NlZC4EAmJXCQECYnEBBQJiUwQCYlgJAQFEAgUCYlcFAmJ3BAJiWQkBAmJxAQUCYlQEAmJaCQEBRAIFAmJZBQJieAQCY2EJAQJicwIFAmJaBQJiWAQCY2IJAQFHAgUCY2EFAWIEAmNjCQEBRAIFAmJRBQFiBAJjZAkBAUQCBQJiVgUBYgQCY2UJALwCAwUCYlgFAmNjBQJjZAQCY2YJALwCAwUCYloFAmNjBQJjZAQCY2cJAQFHAgUCY2UFAmJ3BAJjaAkBAUcCBQJjZgUCYngEAmNpAwkAAAIFAmJPAgAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQFYBQJjZwMJAAACBQJiUwIFV0FWRVMFBHVuaXQJANkEAQUCYlMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUBWAUCY2gDCQAAAgUCYlQCBVdBVkVTBQR1bml0CQDZBAEFAmJUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFaAgkApQgBBQFYBQJiTwkBAmJtBgUCY2cFAmNoBQJiUQUCY2IFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAAUCY2IJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFUAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY2IFA25pbAkAnAoKBQJjZwUCY2gFAmJTBQJiVAUCYlcFAmJZBQJiVgUCY2EFAmJVBQJjaQECY2oJAmJPAmNrAmNsAmNtAmNuAmNvAVgCY3ACY3EEAmJFCQECYUgABAJiUgkA2QQBCQCRAwIFAmJFBQFxBAJjcgkAkQMCBQJiRQUBcgQCY3MJAJEDAgUCYkUFAXMEAmN0CQCRAwIFAmJFBQF2BAJjdQkAkQMCBQJiRQUBdwQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCYlUJAJEDAgUCYkUFAXAEAmJWCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmJSCQCsAgIJAKwCAgIGQXNzZXQgCQDYBAEFAmJSAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCY3YJANgEAQkBC3ZhbHVlT3JFbHNlAgUCY20JANkEAQIFV0FWRVMEAmN3CQDYBAEJAQt2YWx1ZU9yRWxzZQIFAmNvCQDZBAECBVdBVkVTAwMJAQIhPQIFAmNyBQJjdgYJAQIhPQIFAmNzBQJjdwkAAgECIkludmFsaWQgYW10IG9yIHByaWNlIGFzc2V0IHBhc3NlZC4EAmJXAwUCY3AJAQJicQEFAmNyCQBlAgkBAmJxAQUCY3IFAmNsBAJiWQMFAmNwCQECYnEBBQJjcwkAZQIJAQJicQEFAmNzBQJjbgQCY3gJAQFEAgUCY2wFAmJGBAJjeQkBAUQCBQJjbgUCYkcEAmN6CQECYnMCBQJjeQUCY3gEAmJYCQEBRAIFAmJXBQJiRgQCYloJAQFEAgUCYlkFAmJHBAJjQQMJAAACBQJiVgAABAJjYQUBZQQCY0IFAWUEAmJJCQB2BgkAuQICBQJjeAUCY3kAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQFHAgUCYkkFAWIJAQFHAgUCY3gFAmJGCQEBRwIFAmN5BQJiRwkBAmJzAgkAtwICBQJiWgUCY3kJALcCAgUCYlgFAmN4BQJjQgQCY2EJAQJicwIFAmJaBQJiWAQCY0IJALwCAwkBAU8BCQC4AgIFAmNhBQJjegUBZAUCY2EEAmNDCQEBRAIFAmNrBQFiAwMJAQIhPQIFAmNhBQFlCQC/AgIFAmNCBQJjQwcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUCY0ICHiBleGNlZWRlZCB0aGUgcGFzc2VkIGxpbWl0IG9mIAkApgMBBQJjQwQCY2QJAQFEAgUCYlYFAWIEAmNECQC8AgMFAmN4BQJjYQUBZAQCY0UJALwCAwUCY3kFAWQFAmNhBAJjRgMJAL8CAgUCY0QFAmN5CQCUCgIFAmNFBQJjeQkAlAoCBQJjeAUCY0QEAmNHCAUCY0YCXzEEAmNICAUCY0YCXzIEAmJJCQC8AgMFAmNkBQJjSAUCYloJAJcKBQkBAUcCBQJiSQUBYgkBAUcCBQJjRwUCYkYJAQFHAgUCY0gFAmJHBQJjYQUCY0IEAmNJCAUCY0ECXzEEAmNKCAUCY0ECXzIEAmNLCAUCY0ECXzMEAmNiCQEBRwIIBQJjQQJfNAUBYgQCY0wJAQFHAggFAmNBAl81BQFiAwkAZwIAAAUCY0kJAAIBAjZJbnZhbGlkIGNhbGN1bGF0aW9ucy4gTFAgY2FsY3VsYXRlZCBpcyBsZXNzIHRoYW4gemVyby4EAmNNAwkBASEBBQJjcQAABQJjSQQCY04JAGUCBQJjbAUCY0oEAmNPCQBlAgUCY24FAmNLBAJjUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJjYgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjYgkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIFAVgFAmJPCQECYmIKBQJjSgUCY0sFAmNNBQJjYgUCY2sFAmNMBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjTgUCY08FA25pbAkAnwoNBQJjSQUCY00FAmNiBQJiVwUCYlkFAmJWBQJiUgUCYlUFAmNQBQJjTgUCY08FAmNtBQJjbwECY1EBAmNSBAJiRQkBAmFIAAQCY1MJAJEDAgUCYkUFAXIEAmNUCQCRAwIFAmJFBQFzBAJiVQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQFwBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJjVQkBAmJxAQUCY1MEAmNWCQECYnEBBQJjVAQCY2EDCQAAAggFAmNSCW9yZGVyVHlwZQUDQnV5CQECYnYEBQJiRgUCYkcJAGQCBQJjVQgFAmNSBmFtb3VudAUCY1YJAQJidgQFAmJGBQJiRwkAZQIFAmNVCAUCY1IGYW1vdW50BQJjVgQCY2IJAQFHAgUCY2EFAWIDAwMJAQJhRgAGCQAAAgUCYlUFAW0GCQAAAgUCYlUFAW4JAAIBAhxFeGNoYW5nZSBvcGVyYXRpb25zIGRpc2FibGVkBAJjVwgIBQJjUglhc3NldFBhaXILYW1vdW50QXNzZXQEAmNYAwkAAAIFAmNXBQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQJjVwQCY1kICAUCY1IJYXNzZXRQYWlyCnByaWNlQXNzZXQEAmNaAwkAAAIFAmNZBQR1bml0AgVXQVZFUwkA2AQBCQEFdmFsdWUBBQJjWQMDCQECIT0CBQJjWAUCY1MGCQECIT0CBQJjWgUCY1QJAAIBAhNXcm9uZyBvcmRlciBhc3NldHMuBAJkYQgFAmNSBXByaWNlBAJkYgkAawMFAWIFAmJHBQJiRgQCZGMJAQFKAwUCZGEFAWIFAmRiBAJkZAMJAAACCAUCY1IJb3JkZXJUeXBlBQNCdXkJAGcCBQJjYgUCZGMJAGcCBQJkYwUCY2IGAQJkZQECZGYDCQECIT0CCQCQAwEIBQJkZghwYXltZW50cwABCQACAQIdZXhhY3RseSAxIHBheW1lbnQgaXMgZXhwZWN0ZWQEAmRnCQEFdmFsdWUBCQCRAwIIBQJkZghwYXltZW50cwAABAJiUAkBBXZhbHVlAQgFAmRnB2Fzc2V0SWQEAmRoCAUCZGcGYW1vdW50BAJjQQkBAmJOBAkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAkA2AQBBQJiUAUCZGgIBQJkZgZjYWxsZXIEAmNnCAUCY0ECXzEEAmNoCAUCY0ECXzIEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJjQQJfOQQCY2kIBQJjQQNfMTADAwkBAmFGAAYJAAACBQJiVQUBbgkAAgEJAKwCAgIsR2V0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAKQDAQUCYlUJAJcKBQUCY2cFAmNoBQJkaAUCYlAFAmNpAQJkaQMCZGYCY2sCY3EDCQECIT0CCQCQAwEIBQJkZghwYXltZW50cwACCQACAQIfZXhhY3RseSAyIHBheW1lbnRzIGFyZSBleHBlY3RlZAQCZGoJAQV2YWx1ZQEJAJEDAggFAmRmCHBheW1lbnRzAAAEAmRrCQEFdmFsdWUBCQCRAwIIBQJkZghwYXltZW50cwABBAJkbAkBAmNqCQkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAUCY2sIBQJkagZhbW91bnQIBQJkagdhc3NldElkCAUCZGsGYW1vdW50CAUCZGsHYXNzZXRJZAkApQgBCAUCZGYGY2FsbGVyBwUCY3EEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJkbAJfOAMDAwkBAmFGAAYJAAACBQJiVQUBbAYJAAACBQJiVQUBbgkAAgEJAKwCAgIsUHV0IG9wZXJhdGlvbiBpcyBibG9ja2VkIGJ5IGFkbWluLiBTdGF0dXMgPSAJAKQDAQUCYlUFAmRsAQJkbQECZG4EAmRvCQD8BwQFAmFBAgRlbWl0CQDMCAIFAmRuBQNuaWwFA25pbAMJAAACBQJkbwUCZG8EAmRwBAJkcQUCZG8DCQABAgUCZHECB0FkZHJlc3MEAmRyBQJkcQkA/AcEBQJkcgIEZW1pdAkAzAgCBQJkbgUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZHAFAmRwBQJkbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgECZHMCAmRuAmR0BAJkdQMJAAACBQJkdAAAAAAJAGsDBQJkbgUCZHQFAWIJAJQKAgkAZQIFAmRuBQJkdQUCZHUBAmR2BAJkdwJkeAFYAVkEAmR5CQAAAgUBWQUEdW5pdAQCZHoJAQJicQEJAQJhTQEFAmFVBAJkQQkBAmJxAQkBAmFNAQUCYVYEAmRCAwkAAAIFAmR4BQJhVQYDCQAAAgUCZHgFAmFWBwkBAmF5AQINaW52YWxpZCBhc3NldAQCZEMDBQJkeQkAlAoCBQJkegUCZEEDBQJkQgkAlAoCCQBlAgUCZHoFAmR3BQJkQQkAlAoCBQJkegkAZQIFAmRBBQJkdwQCZEQIBQJkQwJfMQQCZEUIBQJkQwJfMgQCZEYDBQJkQgkAlAoCBQJkdwAACQCUCgIAAAUCZHcEAmRHCAUCZEYCXzEEAmRICAUCZEYCXzIEAmRJCAkBAmRzAgUCZEcFAmFDAl8xBAJkSggJAQJkcwIFAmRIBQJhQwJfMQQCZEsJAQJkcwIFAmR3BQJhQwQCZEwIBQJkSwJfMQQCZHUIBQJkSwJfMgQCZE0JAGQCBQJkRAUCZEkEAmROCQBkAgUCZEUFAmRKBAJkTwkBAmJzAgkBAUQCBQJkTgUCYVgJAQFEAgUCZE0FAmFXBAJkUAkBAUcCBQJkTwUBYgQCZFEDBQJkQgUCZEQFAmRFBAJkUgkAtgIBBQJkUQQCZFMJALYCAQgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQJhVAkArAICCQCsAgICBmFzc2V0IAkA2AQBBQJhVAIOIGRvZXNuJ3QgZXhpc3QIcXVhbnRpdHkEAmRUAwkAvwICBQJkUwUBZgYJAQJheQECImluaXRpYWwgZGVwb3NpdCByZXF1aXJlcyBhbGwgY29pbnMDCQAAAgUCZFQFAmRUBAJkVQkAtgIBBQJkTAQCZFYJAJYDAQkAzAgCAAAJAMwIAgkAoAMBCQC6AgIJALkCAgUCZFMJALgCAgkBCnNxcnRCaWdJbnQECQC3AgIFAWQJALoCAgkAuQICBQJkVQUBZAUCZFIAEgASBQRET1dOBQFkBQFkBQNuaWwEAmNQAwUCZHkFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJkUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJkUAkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIJAKUIAQkBBXZhbHVlAQUBWAkA2AQBCQEFdmFsdWUBBQFZCQECYmIKBQJkRwUCZEgFAmRWBQJkUAAAAAAFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAAAAAABQNuaWwEAmRXCQECYnMCCQEBRAIFAmRFBQJhWAkBAUQCBQJkRAUCYVcEAmRYCQEBRwIFAmRXBQFiBAJkWQQCZFoDBQJkQgkAlAoCBQJkRwUCZEQJAJQKAgUCZEgFAmRFBAJkbggFAmRaAl8xBAJlYQgFAmRaAl8yBAJlYgkAoAMBCQC8AgMFAmRTCQC2AgEJAGkCBQJkbgACCQC2AgEFAmVhCQBrAwkAZQIFAmRWBQJlYgUBYgUCZWIJAJYKBAUCZFYFAmNQBQJkdQUCZFkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmVjBQJlZAJkTAJkeAFYAVkEAmR5CQAAAgUBWQUEdW5pdAQCZWUJAMwIAgMJAAACBQJkeAUCYVQGCQECYXkBAhBpbnZhbGlkIGxwIGFzc2V0BQNuaWwDCQAAAgUCZWUFAmVlBAJlZgMJAAACBQJlZAUCYVUGAwkAAAIFAmVkBQJhVgcJAQJheQECDWludmFsaWQgYXNzZXQEAmVnAwUCZWYJALYCAQkBAmJxAQkBAmFNAQUCYVUJALYCAQkBAmJxAQkBAmFNAQUCYVYEAmVoCQECYnEBCQECYU0BBQJhVQQCZWkJAQJicQEJAQJhTQEFAmFWBAJlagMFAmVmBQJlaAUCZWkEAmVrCQC2AgEFAmVqBAJkUwkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEFAmFUCQCsAgIJAKwCAgIGYXNzZXQgCQDYBAEFAmFUAg4gZG9lc24ndCBleGlzdAhxdWFudGl0eQQCZWwJALYCAQUCZEwEAmVtCQCWAwEJAMwIAgAACQDMCAIJAKADAQkAugICCQC5AgIFAmVnCQC4AgIFAWQJAHYGCQC4AgIFAWQJALoCAgkAuQICBQJlbAUBZAUCZFMAEgUBaAAAABIFBERPV04FAWQFA25pbAQCZW4JAQJkcwIFAmVtBQJhRQQCZW8IBQJlbgJfMQQCZHUIBQJlbgJfMgQCZXADBQJlZgkAlgoEBQJlbwAACQBlAgUCZWgFAmVtBQJlaQkAlgoEAAAFAmVvBQJlaAkAZQIFAmVpBQJlbQQCZXEIBQJlcAJfMQQCZXIIBQJlcAJfMgQCZXMIBQJlcAJfMwQCZXQIBQJlcAJfNAQCZE8JAQJicwIJAQFEAgUCZXQFAmFYCQEBRAIFAmVzBQJhVwQCZFAJAQFHAgUCZE8FAWIEAmNQAwUCZHkFA25pbAkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgIJAKUIAQkBBXZhbHVlAQUBWAkA2AQBCQEFdmFsdWUBBQFZCQECYm0GBQJlcQUCZXIFAmRMBQJkUAUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJkUAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJkUAUDbmlsBAJkVwkBAmJzAgkBAUQCBQJlaQUCYVgJAQFEAgUCZWgFAmFXBAJkWAkBAUcCBQJkVwUBYgQCZFkEAmV1CQBoAgkAoAMBCQC8AgMFAmVnBQJlbAUCZFMAAgkAawMJAGUCBQJlbwUCZXUFAWIFAmV1CQCWCgQFAmVvBQJjUAUCZHUFAmRZCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQJldgAEAmRxCQCiCAEJAQFRAAMJAAECBQJkcQIGU3RyaW5nBAJldwUCZHEJANkEAQUCZXcDCQABAgUCZHECBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZXgABAJkcQkAoggBCQEBUgADCQABAgUCZHECBlN0cmluZwQCZXcFAmRxCQDZBAEFAmV3AwkAAQIFAmRxAgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IBAmV5AQJkZgQCZHEJAQJldgADCQABAgUCZHECCkJ5dGVWZWN0b3IEAmV6BQJkcQkAAAIIBQJkZg9jYWxsZXJQdWJsaWNLZXkFAmV6AwkAAQIFAmRxAgRVbml0CQAAAggFAmRmBmNhbGxlcgUEdGhpcwkAAgECC01hdGNoIGVycm9yAQJlQQECZGYEAmVCCQACAQIRUGVybWlzc2lvbiBkZW5pZWQEAmRxCQECZXYAAwkAAQIFAmRxAgpCeXRlVmVjdG9yBAJlegUCZHEDCQAAAggFAmRmD2NhbGxlclB1YmxpY0tleQUCZXoGBQJlQgMJAAECBQJkcQIEVW5pdAMJAAACCAUCZGYGY2FsbGVyBQR0aGlzBgUCZUIJAAIBAgtNYXRjaCBlcnJvchoCZGYBCnNldE1hbmFnZXIBAmVDBAJlRAkBAmVBAQUCZGYDCQAAAgUCZUQFAmVEBAJlRQkA2QQBBQJlQwMJAAACBQJlRQUCZUUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVIABQJlQwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQ5jb25maXJtTWFuYWdlcgAEAmVGCQECZXgABAJlRwMJAQlpc0RlZmluZWQBBQJlRgYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZUcFAmVHBAJlSAMJAAACCAUCZGYPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJlRgYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZUgFAmVICQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFRAAkA2AQBCQEFdmFsdWUBBQJlRgkAzAgCCQELRGVsZXRlRW50cnkBCQEBUgAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgEDcHV0AgJjawJlSQMJAGYCAAAFAmNrCQACAQIgSW52YWxpZCBzbGlwcGFnZVRvbGVyYW5jZSBwYXNzZWQEAmRsCQECZGkDBQJkZgUCY2sGBAJjTQgFAmRsAl8yBAJiUggFAmRsAl83BAJjaQgFAmRsAl85BAJjTggFAmRsA18xMAQCY08IBQJkbANfMTEEAmVKCAUCZGwDXzEyBAJlSwgFAmRsA18xMwQCZG8JAPwHBAUCYUECBGVtaXQJAMwIAgUCY00FA25pbAUDbmlsAwkAAAIFAmRvBQJkbwQCZHAEAmRxBQJkbwMJAAECBQJkcQIHQWRkcmVzcwQCZHIFAmRxCQD8BwQFAmRyAgRlbWl0CQDMCAIFAmNNBQNuaWwFA25pbAUEdW5pdAMJAAACBQJkcAUCZHAEAmVMAwkAZgIFAmNOAAAJAPwHBAUCYmECA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJlSgUCY04FA25pbAUDbmlsAwkAAAIFAmVMBQJlTAQCZU0DCQBmAgUCY08AAAkA/AcEBQJiYQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmVLBQJjTwUDbmlsBQNuaWwDCQAAAgUCZU0FAmVNBAJlTgMFAmVJBAJlTwkA/AcEBQJhWgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlIFAmNNBQNuaWwDCQAAAgUCZU8FAmVPBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRmBmNhbGxlcgUCY00FAmJSBQNuaWwJAM4IAgUCY2kFAmVOCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQpwdXRGb3JGcmVlAQJlUAMJAGYCAAAFAmVQCQACAQIUSW52YWxpZCB2YWx1ZSBwYXNzZWQEAmRsCQECZGkDBQJkZgUCZVAHCAUCZGwCXzkCZGYBCXB1dE9uZVRrbgICZVECZVIEAmVTCgACYUQJAPwHBAUCYUECKGlzUG9vbE9uZVRva2VuT3BlcmF0aW9uc0Rpc2FibGVkUkVBRE9OTFkJAMwIAgkApQgBBQR0aGlzBQNuaWwFA25pbAMJAAECBQJhRAIHQm9vbGVhbgUCYUQJAAIBCQCsAgIJAAMBBQJhRAIcIGNvdWxkbid0IGJlIGNhc3QgdG8gQm9vbGVhbgQCZVQDAwMJAQJhRgAGCQAAAgUCYVMFAWwGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmVUBgkBAmV5AQUCZGYGCQECYXkBAiFwdXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwABBgkBAmF5AQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlVQkAkQMCCAUCZGYIcGF5bWVudHMAAAQCZHgIBQJlVQdhc3NldElkBAJkdwgFAmVVBmFtb3VudAQBWAgFAmRmBmNhbGxlcgQBWQgFAmRmDXRyYW5zYWN0aW9uSWQEAmVWCQECZHYEBQJkdwUCZHgFAVgFAVkDCQAAAgUCZVYFAmVWBAJlVwgFAmVWAl80BAJkdQgFAmVWAl8zBAJjUAgFAmVWAl8yBAJlWAgFAmVWAl8xBAJlWQMDCQBmAgUCZVEAAAkAZgIFAmVRBQJlWAcJAQJheQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZVEFA25pbAIABQJlWAQCZG8JAQJkbQEFAmVZAwkAAAIFAmRvBQJkbwQCZU4DBQJlUgQCZVoJAPwHBAUCYVoCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmFUBQJlWQUDbmlsAwkAAAIFAmVaBQJlWgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkZgZjYWxsZXIFAmVZBQJhVAUDbmlsBAJmYQMJAGYCBQJkdQAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFCBQJkdQUCZHgFA25pbAUDbmlsCQCUCgIJAM4IAgkAzggCBQJjUAUCZU4FAmZhBQJlWQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgERcHV0T25lVGtuUkVBRE9OTFkCAmR4AmR3BAJmYgkBAmR2BAUCZHcJAQJhSwEFAmR4BQR1bml0BQR1bml0BAJlWAgFAmZiAl8xBAJjUAgFAmZiAl8yBAJkdQgFAmZiAl8zBAJlVwgFAmZiAl80CQCUCgIFA25pbAkAlQoDBQJlWAUCZHUFAmVXAmRmAQlnZXRPbmVUa24CAmZjAmVRBAJlUwoAAmFECQD8BwQFAmFBAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCB0Jvb2xlYW4FAmFECQACAQkArAICCQADAQUCYUQCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmZkAwMJAQJhRgAGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmZkBgkBAmV5AQUCZGYGCQECYXkBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwABBgkBAmF5AQIeZXhhY3RseSAxIHBheW1lbnQgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlZAkBAmFLAQUCZmMEAmVVCQCRAwIIBQJkZghwYXltZW50cwAABAJkeAgFAmVVB2Fzc2V0SWQEAmRMCAUCZVUGYW1vdW50BAFYCAUCZGYGY2FsbGVyBAFZCAUCZGYNdHJhbnNhY3Rpb25JZAQCZmUJAQJlYwUFAmVkBQJkTAUCZHgFAVgFAVkDCQAAAgUCZmUFAmZlBAJlVwgFAmZlAl80BAJkdQgFAmZlAl8zBAJjUAgFAmZlAl8yBAJmZggFAmZlAl8xBAJkbgMDCQBmAgUCZVEAAAkAZgIFAmVRBQJmZgcJAQJheQEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZVEFA25pbAIABQJmZgQCZmcJAPwHBAUCYUECBGJ1cm4JAMwIAgUCZEwFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZHgFAmRMBQNuaWwDCQAAAgUCZmcFAmZnBAJmaAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQFYBQJkbgUCZWQFA25pbAQCZmEDCQBmAgUCZHUAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhQgUCZHUFAmVkBQNuaWwFA25pbAkAlAoCCQDOCAIJAM4IAgUCY1AFAmZoBQJmYQUCZG4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBEWdldE9uZVRrblJFQURPTkxZAgJlZAJkTAQCZmkJAQJlYwUJAQJhSwEFAmVkBQJkTAUCYVQFBHVuaXQFBHVuaXQEAmZmCAUCZmkCXzEEAmNQCAUCZmkCXzIEAmR1CAUCZmkCXzMEAmVXCAUCZmkCXzQJAJQKAgUDbmlsCQCVCgMFAmZmBQJkdQUCZVcCZGYBE3Vuc3Rha2VBbmRHZXRPbmVUa24DAmZqAmZjAmVRBAJlUwoAAmFECQD8BwQFAmFBAihpc1Bvb2xPbmVUb2tlbk9wZXJhdGlvbnNEaXNhYmxlZFJFQURPTkxZCQDMCAIJAKUIAQUEdGhpcwUDbmlsBQNuaWwDCQABAgUCYUQCB0Jvb2xlYW4FAmFECQACAQkArAICCQADAQUCYUQCHCBjb3VsZG4ndCBiZSBjYXN0IHRvIEJvb2xlYW4EAmZkAwMJAQJhRgAGCQAAAgUCYVMFAW4GBQJlUwQCZWUJAMwIAgMDCQEBIQEFAmZkBgkBAmV5AQUCZGYGCQECYXkBAiFnZXQgb3BlcmF0aW9uIGlzIGJsb2NrZWQgYnkgYWRtaW4JAMwIAgMJAAACCQCQAwEIBQJkZghwYXltZW50cwAABgkBAmF5AQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJlZAkBAmFLAQUCZmMEAVgIBQJkZgZjYWxsZXIEAVkIBQJkZg10cmFuc2FjdGlvbklkBAJmawkA/AcEBQJhWgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFUCQDMCAIFAmZqBQNuaWwFA25pbAMJAAACBQJmawUCZmsEAmZsCQECZWMFBQJlZAUCZmoFAmFUBQFYBQFZAwkAAAIFAmZsBQJmbAQCZVcIBQJmbAJfNAQCZHUIBQJmbAJfMwQCY1AIBQJmbAJfMgQCZmYIBQJmbAJfMQQCZG4DAwkAZgIFAmVRAAAJAGYCBQJlUQUCZmYHCQECYXkBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmVRBQNuaWwCAAUCZmYEAmZnCQD8BwQFAmFBAgRidXJuCQDMCAIFAmZqBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmFUBQJmagUDbmlsAwkAAAIFAmZnBQJmZwQCZmgJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAmRmBmNhbGxlcgUCZG4FAmVkBQNuaWwEAmZhAwkAZgIFAmR1AAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUIFAmR1BQJlZAUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNQBQJmaAUCZmEFAmRuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRmAQNnZXQABAJjQQkBAmRlAQUCZGYEAmZtCAUCY0ECXzEEAmNoCAUCY0ECXzIEAmRoCAUCY0ECXzMEAmJQCAUCY0ECXzQEAmNpCAUCY0ECXzUEAmZuCQD8BwQFAmFBAgRidXJuCQDMCAIFAmRoBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJQBQJkaAUDbmlsAwkAAAIFAmZuBQJmbgUCY2kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBCWdldE5vTGVzcwICZm8CZnAEAmNBCQECZGUBBQJkZgQCY2cIBQJjQQJfMQQCY2gIBQJjQQJfMgQCZGgIBQJjQQJfMwQCYlAIBQJjQQJfNAQCY2kIBQJjQQJfNQMJAGYCBQJmbwUCY2cJAAIBCQCsAgIJAKwCAgkArAICAhxub0xlc3NUaGVuQW10QXNzZXQgZmFpbGVkOiAgCQCkAwEFAmNnAgMgPCAJAKQDAQUCZm8DCQBmAgUCZnAFAmNoCQACAQkArAICCQCsAgIJAKwCAgIdbm9MZXNzVGhlblByaWNlQXNzZXQgZmFpbGVkOiAJAKQDAQUCY2gCAyA8IAkApAMBBQJmcAQCZm4JAPwHBAUCYUECBGJ1cm4JAMwIAgUCZGgFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlAFAmRoBQNuaWwDCQAAAgUCZm4FAmZuBQJjaQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgENdW5zdGFrZUFuZEdldAECZG4EAmZxAwkBAiE9AgkAkAMBCAUCZGYIcGF5bWVudHMAAAkAAgECGE5vIHBheW1lbnRzIGFyZSBleHBlY3RlZAYDCQAAAgUCZnEFAmZxBAJiRQkBAmFIAAQCYlIJANkEAQkAkQMCBQJiRQUBcQQCZmsJAPwHBAUCYVoCB3Vuc3Rha2UJAMwIAgkA2AQBBQJiUgkAzAgCBQJkbgUDbmlsBQNuaWwDCQAAAgUCZmsFAmZrBAJjQQkBAmJOBAkA2AQBCAUCZGYNdHJhbnNhY3Rpb25JZAkA2AQBBQJiUgUCZG4IBQJkZgZjYWxsZXIEAmJVCQENcGFyc2VJbnRWYWx1ZQEIBQJjQQJfOQQCY2kIBQJjQQNfMTAEAmZyAwMJAQJhRgAGCQAAAgUCYlUFAW4JAAIBCQCsAgICLEdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbi4gU3RhdHVzID0gCQCkAwEFAmJVBgMJAAACBQJmcgUCZnIEAmZuCQD8BwQFAmFBAgRidXJuCQDMCAIFAmRuBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJSBQJkbgUDbmlsAwkAAAIFAmZuBQJmbgUCY2kJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZGYBE3Vuc3Rha2VBbmRHZXROb0xlc3MDAmZqAmZzAmZwBAJmZAMJAQJhRgAGCQAAAgUCYVMFAW4EAmVlCQDMCAIDCQEBIQEFAmZkBgkAAgECIWdldCBvcGVyYXRpb24gaXMgYmxvY2tlZCBieSBhZG1pbgkAzAgCAwkAAAIJAJADAQgFAmRmCHBheW1lbnRzAAAGCQACAQIYbm8gcGF5bWVudHMgYXJlIGV4cGVjdGVkBQNuaWwDCQAAAgUCZWUFAmVlBAJmawkA/AcEBQJhWgIHdW5zdGFrZQkAzAgCCQDYBAEFAmFUCQDMCAIFAmZqBQNuaWwFA25pbAMJAAACBQJmawUCZmsEAmNBCQECYk4ECQDYBAEIBQJkZg10cmFuc2FjdGlvbklkCQDYBAEFAmFUBQJmaggFAmRmBmNhbGxlcgQCY2cIBQJjQQJfMQQCY2gIBQJjQQJfMgQCY2kIBQJjQQNfMTAEAmZ0CQDMCAIDCQBnAgUCY2cFAmZzBgkAAgEJALkJAgkAzAgCAixhbW91bnQgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZzBQNuaWwCAAkAzAgCAwkAZwIFAmNoBQJmcAYJAAIBCQC5CQIJAMwIAgIrcHJpY2UgYXNzZXQgYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmZwBQNuaWwCAAUDbmlsAwkAAAIFAmZ0BQJmdAQCZm4JAPwHBAUCYUECBGJ1cm4JAMwIAgUCZmoFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYVQFAmZqBQNuaWwDCQAAAgUCZm4FAmZuBQJjaQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkZgEIYWN0aXZhdGUCAmZ1AmZ2AwkBAiE9AgkApQgBCAUCZGYGY2FsbGVyCQClCAEFAmFBCQACAQIScGVybWlzc2lvbnMgZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFhAAUCZnUJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAAUCZnYFA25pbAIHc3VjY2VzcwJkZgEcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQAJAJQKAgUDbmlsCQECYUgAAmRmARxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZAQJicgkAlAoCBQNuaWwJAQJicQEFAmJyAmRmARljYWxjUHJpY2VzV3JhcHBlclJFQURPTkxZAwJieQJiegJiRAQCYk0JAQJiQwMFAmJ5BQJiegUCYkQJAJQKAgUDbmlsCQDMCAIJAKYDAQkAkQMCBQJiTQAACQDMCAIJAKYDAQkAkQMCBQJiTQABCQDMCAIJAKYDAQkAkQMCBQJiTQACBQNuaWwCZGYBFHRvWDE4V3JhcHBlclJFQURPTkxZAgFFAUYJAJQKAgUDbmlsCQCmAwEJAQFEAgUBRQUBRgJkZgEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIBSAFJCQCUCgIFA25pbAkBAUcCCQCnAwEFAUgFAUkCZGYBHmNhbGNQcmljZUJpZ0ludFdyYXBwZXJSRUFET05MWQICYnQCYnUJAJQKAgUDbmlsCQCmAwEJAQJicwIJAKcDAQUCYnQJAKcDAQUCYnUCZGYBI2VzdGltYXRlUHV0T3BlcmF0aW9uV3JhcHBlclJFQURPTkxZCQJiTwJjawJjbAJjbQJjbgJjbwFYAmNwAmNxCQCUCgIFA25pbAkBAmNqCQUCYk8FAmNrBQJjbAUCY20FAmNuBQJjbwUBWAUCY3AFAmNxAmRmASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQCYk8CYlACYlEBWAQCY0EJAQJiTgQFAmJPBQJiUAUCYlEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFAVgJAJQKAgUDbmlsCQCcCgoIBQJjQQJfMQgFAmNBAl8yCAUCY0ECXzMIBQJjQQJfNAgFAmNBAl81CAUCY0ECXzYIBQJjQQJfNwkApgMBCAUCY0ECXzgIBQJjQQJfOQgFAmNBA18xMAJkZgENc3RhdHNSRUFET05MWQAEAmJFCQECYUgABAJiUgkA2QQBCQCRAwIFAmJFBQFxBAJjUwkAkQMCBQJiRQUBcgQCY1QJAJEDAgUCYkUFAXMEAmN0CQCRAwIFAmJFBQF2BAJjdQkAkQMCBQJiRQUBdwQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdAQCYkcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRQUBdQQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJjVQkBAmJxAQUCY1MEAmNWCQECYnEBBQJjVAQCZngDCQAAAgUCZncAAAkAzAgCBQFlCQDMCAIFAWUJAMwIAgUBZQUDbmlsCQECYkMDBQJjVQUCY1YFAmZ3BAJjYgAABAJmeQkBAUcCCQCRAwIFAmZ4AAEFAWIEAmZ6CQEBRwIJAJEDAgUCZngAAgUBYgQCZkEJAQV2YWx1ZQEJAJoIAgUCYUEJAQJhbQEJAKUIAQUEdGhpcwkAlAoCBQNuaWwJALkJAgkAzAgCAg4lZCVkJWQlZCVkJWQlZAkAzAgCCQCkAwEFAmNVCQDMCAIJAKQDAQUCY1YJAMwIAgkApAMBBQJmdwkAzAgCCQCkAwEFAmNiCQDMCAIJAKQDAQUCZnkJAMwIAgkApAMBBQJmegkAzAgCCQCkAwEFAmZBBQNuaWwFAWoCZGYBIGV2YWx1YXRlUHV0QnlBbW91bnRBc3NldFJFQURPTkxZAQJjbAQCYkUJAQJhSAAEAmJSCQDZBAEJAJEDAgUCYkUFAXEEAmNyCQCRAwIFAmJFBQFyBAJiUwkA2QQBBQJjcgQCY3MJAJEDAgUCYkUFAXMEAmJUCQDZBAEFAmNzBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJiVQkAkQMCBQJiRQUBcAQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJjVQkBAmJxAQUCY3IEAmNWCQECYnEBBQJjcwQCYkEJAQFEAgUCY1UFAmJGBAJiQgkBAUQCBQJjVgUCYkcEAmNhAwkAAAIFAmZ3AAAFAWUJAQJicwIFAmJCBQJiQQQCY3gJAQFEAgUCY2wFAmJGBAJjeQkAvAIDBQJjeAUCY2EFAWQEAmNuCQEBRwIFAmN5BQJiRwQCZGwJAQJjagkCAACgwh4FAmNsBQJiUwUCY24FAmJUAgAGBwQCY0kIBQJkbAJfMQQCZkIIBQJkbAJfMwQCYlcIBQJkbAJfNAQCYlkIBQJkbAJfNQQCYlYIBQJkbAJfNgkAlAoCBQNuaWwJALkJAgkAzAgCAhAlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCY0kJAMwIAgkApAMBCQEBRwIFAmNhBQFiCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIFAmJVCQDMCAIJAKQDAQUCY2wJAMwIAgkApAMBBQJjbgUDbmlsBQFqAmRmAR9ldmFsdWF0ZVB1dEJ5UHJpY2VBc3NldFJFQURPTkxZAQJjbgQCYkUJAQJhSAAEAmJSCQDZBAEJAJEDAgUCYkUFAXEEAmNyCQCRAwIFAmJFBQFyBAJiUwkA2QQBBQJjcgQCY3MJAJEDAgUCYkUFAXMEAmJUCQDZBAEFAmNzBAJiRgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF0BAJiRwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJFBQF1BAJiVQkAkQMCBQJiRQUBcAQCZncICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlIJAKwCAgkArAICAgZBc3NldCAJANgEAQUCYlICDiBkb2Vzbid0IGV4aXN0CHF1YW50aXR5BAJmQwkBAmJxAQUCY3IEAmZECQECYnEBBQJjcwQCZkUJAQFEAgUCZkMFAmJGBAJmRgkBAUQCBQJmRAUCYkcEAmNhAwkAAAIFAmZ3AAAFAWUJAQJicwIFAmZGBQJmRQQCY3kJAQFEAgUCY24FAmJHBAJjeAkAvAIDBQJjeQUBZAUCY2EEAmNsCQEBRwIFAmN4BQJiRgQCZGwJAQJjagkCAACgwh4FAmNsBQJiUwUCY24FAmJUAgAGBwQCY0kIBQJkbAJfMQQCZkIIBQJkbAJfMwQCYlcIBQJkbAJfNAQCYlkIBQJkbAJfNQQCYlYIBQJkbAJfNgkAlAoCBQNuaWwJALkJAgkAzAgCAhAlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCY0kJAMwIAgkApAMBCQEBRwIFAmNhBQFiCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIFAmJVCQDMCAIJAKQDAQUCY2wJAMwIAgkApAMBBQJjbgUDbmlsBQFqAmRmARNldmFsdWF0ZUdldFJFQURPTkxZAgJmRwJmSAQCY0EJAQJiTgQCAAUCZkcFAmZIBQR0aGlzBAJjZwgFAmNBAl8xBAJjaAgFAmNBAl8yBAJiVwgFAmNBAl81BAJiWQgFAmNBAl82BAJiVggFAmNBAl83BAJjYggFAmNBAl84BAJiVQkBDXBhcnNlSW50VmFsdWUBCAUCY0ECXzkJAJQKAgUDbmlsCQC5CQIJAMwIAgIOJWQlZCVkJWQlZCVkJWQJAMwIAgkApAMBBQJjZwkAzAgCCQCkAwEFAmNoCQDMCAIJAKQDAQUCYlcJAMwIAgkApAMBBQJiWQkAzAgCCQCkAwEFAmJWCQDMCAIJAKYDAQUCY2IJAMwIAgkApAMBBQJiVQUDbmlsBQFqAQJmSQECZkoABAJmSwQCZHEJAQJldgADCQABAgUCZHECCkJ5dGVWZWN0b3IEAmV6BQJkcQUCZXoDCQABAgUCZHECBFVuaXQIBQJmSQ9zZW5kZXJQdWJsaWNLZXkJAAIBAgtNYXRjaCBlcnJvcgQCZHEFAmZJAwkAAQIFAmRxAgVPcmRlcgQCY1IFAmRxBAJmTAkBAmFHAAQCYXIJAQJjUQEFAmNSBAJhcwkA9AMDCAUCY1IJYm9keUJ5dGVzCQCRAwIIBQJjUgZwcm9vZnMAAAgFAmNSD3NlbmRlclB1YmxpY0tleQQCYXQJAPQDAwgFAmNSCWJvZHlCeXRlcwkAkQMCCAUCY1IGcHJvb2ZzAAEFAmZMAwMDBQJhcgUCYXMHBQJhdAcGCQECYXEDBQJhcgUCYXMFAmF0AwkAAQIFAmRxAhRTZXRTY3JpcHRUcmFuc2FjdGlvbgQCZXcFAmRxBAJmTQkA9gMBCQEFdmFsdWUBCAUCZXcGc2NyaXB0BAJmTgkA2wQBCQEFdmFsdWUBCQCdCAIFAmFBCQECYW8ABAJmTwkA8QcBBQR0aGlzAwMJAAACBQJmTgUCZk0JAQIhPQIFAmZPBQJmTQcGCQD0AwMIBQJmSQlib2R5Qnl0ZXMJAJEDAggFAmZJBnByb29mcwAABQJmSwkA9AMDCAUCZkkJYm9keUJ5dGVzCQCRAwIIBQJmSQZwcm9vZnMAAAUCZkvBwFdz", "chainId": 84, "height": 2378516, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: DqFDaLhAUJqdySkFTvC4JJzePuyXKBtSDEku6CD3sKCE Next: DDMWEnz4rfanS6y9qGbYTYQSbs7JFwBoTLg8CUnysUqx 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) = {
288277 let lpEmissionX18 = toX18(lpEmission, scale8)
289278 let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissionX18)
290279 let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissionX18)
291- let outAmAmt = fromX18Round(outAmAmtX18, amAssetDcm, FLOOR)
292- let outPrAmt = fromX18Round(outPrAmtX18, prAssetDcm, FLOOR)
280+ let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
281+ let outPrAmt = fromX18(outPrAmtX18, prAssetDcm)
293282 let state = if ((txId58 == ""))
294283 then nil
295284 else [ScriptTransfer(userAddress, outAmAmt, if ((amAssetId == "WAVES"))
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 $t02080121013 = if ((order.orderType == Buy))
418- then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419- else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420- let amountAssetBalanceDelta = $t02080121013._1
421- let priceAssetBalanceDelta = $t02080121013._2
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 $t02148421584 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435- let unusedActions = $t02148421584._1
436- let kLpNew = $t02148421584._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 $t02426924562 = 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 = $t02426924562._1
518- let priceBalanceOld = $t02426924562._2
519- let $t02456624715 = 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 = $t02456624715._1
523- let priceAssetAmountRaw = $t02456624715._2
524- let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525- let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526- let $t02483724896 = takeFee(paymentAmountRaw)
527- let paymentAmount = $t02483724896._1
528- let feeAmount = $t02483724896._2
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 $t02657726744 = if (paymentInAmountAsset)
526+ let $t02478324950 = if (paymentInAmountAsset)
552527 then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
553528 else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
554- let amount = $t02657726744._1
555- let balance = $t02657726744._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 }
564539
565540 func calcGetOneToken (outAssetId,paymentAmount,paymentAssetId,userAddress,txId) = {
566541 let isEval = (txId == unit)
567- let cfg = getPoolConfig()
568- let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
569- let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
570542 let checks = [if ((paymentAssetId == cfgLpAssetId))
571543 then true
572544 else throwErr("invalid lp asset")]
580552 let balanceBigInt = if (outInAmountAsset)
581553 then toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId)))
582554 else toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId)))
583- let outInAmountAssetDecimals = if (outInAmountAsset)
584- then amtAssetDcm
585- else priceAssetDcm
586555 let amBalanceOld = getAccBalance(assetIdToString(cfgAmountAssetId))
587556 let prBalanceOld = getAccBalance(assetIdToString(cfgPriceAssetId))
588557 let outBalance = if (outInAmountAsset)
592561 let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
593562 let redeemedBigInt = toBigInt(paymentAmount)
594563 let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
595- let $t02882328873 = takeFee(amountRaw)
596- let totalAmount = $t02882328873._1
597- let feeAmount = $t02882328873._2
598- let $t02887729103 = if (outInAmountAsset)
564+ let $t02653026586 = takeFee(amountRaw, outFee)
565+ let totalAmount = $t02653026586._1
566+ let feeAmount = $t02653026586._2
567+ let $t02659026816 = if (outInAmountAsset)
599568 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
600569 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
601- let outAmAmount = $t02887729103._1
602- let outPrAmount = $t02887729103._2
603- let amBalanceNew = $t02887729103._3
604- let prBalanceNew = $t02887729103._4
570+ let outAmAmount = $t02659026816._1
571+ let outPrAmount = $t02659026816._2
572+ let amBalanceNew = $t02659026816._3
573+ let prBalanceNew = $t02659026816._4
605574 let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
606575 let priceNew = fromX18(priceNewX18, scale8)
607576 let commonState = if (isEval)
613582 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
614583 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
615584 }
616- $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
585+ $Tuple4(totalAmount, commonState, feeAmount, loss)
617586 }
618587 else throw("Strict value is not equal to itself.")
619588 }
713682 let prDiff = estPut._11
714683 let amId = estPut._12
715684 let prId = estPut._13
716- let amAssetPmt = toBigInt(value(i.payments[0]).amount)
717- let prAssetPmt = toBigInt(value(i.payments[1]).amount)
718- let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
719- if ((currentKLp == currentKLp))
685+ let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686+ if ((emitInv == emitInv))
720687 then {
721- let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
722- 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))
723695 then {
724- let emitInvLegacy = match emitInv {
725- case legacyFactoryContract: Address =>
726- invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
727- case _ =>
728- unit
729- }
730- 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))
731700 then {
732- let slippageAInv = if ((amDiff > 0))
733- then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
701+ let slippagePInv = if ((prDiff > 0))
702+ then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
734703 else nil
735- if ((slippageAInv == slippageAInv))
704+ if ((slippagePInv == slippagePInv))
736705 then {
737- let slippagePInv = if ((prDiff > 0))
738- then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
739- else nil
740- if ((slippagePInv == slippagePInv))
706+ let lpTransfer = if (shouldAutoStake)
741707 then {
742- let lpTransfer = if (shouldAutoStake)
743- then {
744- let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
745- if ((slpStakeInv == slpStakeInv))
746- then nil
747- else throw("Strict value is not equal to itself.")
748- }
749- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
750- let $t03363134093 = refreshKLpInternal(0, 0, 0)
751- if (($t03363134093 == $t03363134093))
752- then {
753- let updatedKLp = $t03363134093._2
754- let refreshKLpActions = $t03363134093._1
755- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
756- if ((isUpdatedKLpValid == isUpdatedKLpValid))
757- then ((state ++ lpTransfer) ++ refreshKLpActions)
758- else throw("Strict value is not equal to itself.")
759- }
708+ let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709+ if ((slpStakeInv == slpStakeInv))
710+ then nil
760711 else throw("Strict value is not equal to itself.")
761712 }
762- else throw("Strict value is not equal to itself.")
713+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714+ (state ++ lpTransfer)
763715 }
764716 else throw("Strict value is not equal to itself.")
765717 }
777729 then throw("Invalid value passed")
778730 else {
779731 let estPut = commonPut(i, maxSlippage, false)
780- let state = estPut._9
781- let amAssetPmt = toBigInt(value(i.payments[0]).amount)
782- let prAssetPmt = toBigInt(value(i.payments[1]).amount)
783- let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
784- if ((currentKLp == currentKLp))
785- then {
786- let $t03465534720 = refreshKLpInternal(0, 0, 0)
787- let refreshKLpActions = $t03465534720._1
788- let updatedKLp = $t03465534720._2
789- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
790- if ((isUpdatedKLpValid == isUpdatedKLpValid))
791- then (state ++ refreshKLpActions)
792- else throw("Strict value is not equal to itself.")
793- }
794- else throw("Strict value is not equal to itself.")
732+ estPut._9
795733 }
796734
797735
823761 let payment = i.payments[0]
824762 let paymentAssetId = payment.assetId
825763 let paymentAmountRaw = payment.amount
826- let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
827- then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
828- else if ((paymentAssetId == cfgPriceAssetId))
829- then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
830- else throwErr("payment asset is not supported")
831- if ((currentKLp == currentKLp))
764+ let userAddress = i.caller
765+ let txId = i.transactionId
766+ let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767+ if (($t03172331853 == $t03172331853))
832768 then {
833- let userAddress = i.caller
834- let txId = i.transactionId
835- let $t03590836060 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
836- if (($t03590836060 == $t03590836060))
769+ let bonus = $t03172331853._4
770+ let feeAmount = $t03172331853._3
771+ let commonState = $t03172331853._2
772+ let emitAmountEstimated = $t03172331853._1
773+ let emitAmount = if (if ((minOutAmount > 0))
774+ then (minOutAmount > emitAmountEstimated)
775+ else false)
776+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
777+ else emitAmountEstimated
778+ let emitInv = emit(emitAmount)
779+ if ((emitInv == emitInv))
837780 then {
838- let paymentInAmountAsset = $t03590836060._5
839- let bonus = $t03590836060._4
840- let feeAmount = $t03590836060._3
841- let commonState = $t03590836060._2
842- let emitAmountEstimated = $t03590836060._1
843- let emitAmount = if (if ((minOutAmount > 0))
844- then (minOutAmount > emitAmountEstimated)
845- else false)
846- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
847- else emitAmountEstimated
848- let emitInv = emit(emitAmount)
849- if ((emitInv == emitInv))
781+ let lpTransfer = if (autoStake)
850782 then {
851- let lpTransfer = if (autoStake)
852- then {
853- let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
854- if ((stakeInv == stakeInv))
855- then nil
856- else throw("Strict value is not equal to itself.")
857- }
858- else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
859- let sendFee = if ((feeAmount > 0))
860- then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
861- else nil
862- let $t03664636843 = if ((this == feeCollectorAddress))
863- then $Tuple2(0, 0)
864- else if (paymentInAmountAsset)
865- then $Tuple2(-(feeAmount), 0)
866- else $Tuple2(0, -(feeAmount))
867- let amountAssetBalanceDelta = $t03664636843._1
868- let priceAssetBalanceDelta = $t03664636843._2
869- let $t03684636954 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
870- let refreshKLpActions = $t03684636954._1
871- let updatedKLp = $t03684636954._2
872- let kLp = value(getString(keyKLp))
873- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
874- if ((isUpdatedKLpValid == isUpdatedKLpValid))
875- then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
783+ let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
784+ if ((stakeInv == stakeInv))
785+ then nil
876786 else throw("Strict value is not equal to itself.")
877787 }
878- else throw("Strict value is not equal to itself.")
788+ else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
789+ let sendFee = if ((feeAmount > 0))
790+ then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
791+ else nil
792+ $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
879793 }
880794 else throw("Strict value is not equal to itself.")
881795 }
888802
889803 @Callable(i)
890804 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
891- let $t03726037417 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
892- let emitAmountEstimated = $t03726037417._1
893- let commonState = $t03726037417._2
894- let feeAmount = $t03726037417._3
895- let bonus = $t03726037417._4
896- let paymentInAmountAsset = $t03726037417._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
897810 $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
898811 }
899812
925838 let payment = i.payments[0]
926839 let paymentAssetId = payment.assetId
927840 let paymentAmount = payment.amount
928- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
929- if ((currentKLp == currentKLp))
841+ let userAddress = i.caller
842+ let txId = i.transactionId
843+ let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844+ if (($t03352233657 == $t03352233657))
930845 then {
931- let userAddress = i.caller
932- let txId = i.transactionId
933- let $t03830238455 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
934- if (($t03830238455 == $t03830238455))
846+ let bonus = $t03352233657._4
847+ let feeAmount = $t03352233657._3
848+ let commonState = $t03352233657._2
849+ let amountEstimated = $t03352233657._1
850+ let amount = if (if ((minOutAmount > 0))
851+ then (minOutAmount > amountEstimated)
852+ else false)
853+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
854+ else amountEstimated
855+ let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
856+ if ((burnInv == burnInv))
935857 then {
936- let outInAmountAsset = $t03830238455._5
937- let bonus = $t03830238455._4
938- let feeAmount = $t03830238455._3
939- let commonState = $t03830238455._2
940- let amountEstimated = $t03830238455._1
941- let amount = if (if ((minOutAmount > 0))
942- then (minOutAmount > amountEstimated)
943- else false)
944- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
945- else amountEstimated
946- let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
947- if ((burnInv == burnInv))
948- then {
949- let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
950- let sendFee = if ((feeAmount > 0))
951- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
952- else nil
953- let $t03895539202 = {
954- let feeAmountForCalc = if ((this == feeCollectorAddress))
955- then 0
956- else feeAmount
957- if (outInAmountAsset)
958- then $Tuple2(-((amount + feeAmountForCalc)), 0)
959- else $Tuple2(0, -((amount + feeAmountForCalc)))
960- }
961- let amountAssetBalanceDelta = $t03895539202._1
962- let priceAssetBalanceDelta = $t03895539202._2
963- let $t03920539313 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
964- let refreshKLpActions = $t03920539313._1
965- let updatedKLp = $t03920539313._2
966- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
967- if ((isUpdatedKLpValid == isUpdatedKLpValid))
968- then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
969- else throw("Strict value is not equal to itself.")
970- }
971- else throw("Strict value is not equal to itself.")
858+ let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
859+ let sendFee = if ((feeAmount > 0))
860+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
861+ else nil
862+ $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
972863 }
973864 else throw("Strict value is not equal to itself.")
974865 }
981872
982873 @Callable(i)
983874 func getOneTknREADONLY (outAssetId,paymentAmount) = {
984- let $t03957039726 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
985- let amountEstimated = $t03957039726._1
986- let commonState = $t03957039726._2
987- let feeAmount = $t03957039726._3
988- let bonus = $t03957039726._4
989- let outInAmountAsset = $t03957039726._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
990880 $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
991881 }
992882
1017907 let outAssetId = parseAssetId(outAssetIdStr)
1018908 let userAddress = i.caller
1019909 let txId = i.transactionId
1020- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1021- if ((currentKLp == currentKLp))
910+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
911+ if ((unstakeInv == unstakeInv))
1022912 then {
1023- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1024- if ((unstakeInv == unstakeInv))
913+ let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914+ if (($t03525535388 == $t03525535388))
1025915 then {
1026- let $t04063140782 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1027- if (($t04063140782 == $t04063140782))
916+ let bonus = $t03525535388._4
917+ let feeAmount = $t03525535388._3
918+ let commonState = $t03525535388._2
919+ let amountEstimated = $t03525535388._1
920+ let amount = if (if ((minOutAmount > 0))
921+ then (minOutAmount > amountEstimated)
922+ else false)
923+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
924+ else amountEstimated
925+ let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
926+ if ((burnInv == burnInv))
1028927 then {
1029- let outInAmountAsset = $t04063140782._5
1030- let bonus = $t04063140782._4
1031- let feeAmount = $t04063140782._3
1032- let commonState = $t04063140782._2
1033- let amountEstimated = $t04063140782._1
1034- let amount = if (if ((minOutAmount > 0))
1035- then (minOutAmount > amountEstimated)
1036- else false)
1037- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1038- else amountEstimated
1039- let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1040- if ((burnInv == burnInv))
1041- then {
1042- let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
1043- let sendFee = if ((feeAmount > 0))
1044- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
1045- else nil
1046- let $t04127741524 = {
1047- let feeAmountForCalc = if ((this == feeCollectorAddress))
1048- then 0
1049- else feeAmount
1050- if (outInAmountAsset)
1051- then $Tuple2(-((amount + feeAmountForCalc)), 0)
1052- else $Tuple2(0, -((amount + feeAmountForCalc)))
1053- }
1054- let amountAssetBalanceDelta = $t04127741524._1
1055- let priceAssetBalanceDelta = $t04127741524._2
1056- let $t04152741635 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1057- let refreshKLpActions = $t04152741635._1
1058- let updatedKLp = $t04152741635._2
1059- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1060- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1061- then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1062- else throw("Strict value is not equal to itself.")
1063- }
1064- else throw("Strict value is not equal to itself.")
928+ let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
929+ let sendFee = if ((feeAmount > 0))
930+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
931+ else nil
932+ $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1065933 }
1066934 else throw("Strict value is not equal to itself.")
1067935 }
1082950 let pmtAmt = res._3
1083951 let pmtAssetId = res._4
1084952 let state = res._5
1085- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1086- if ((currentKLp == currentKLp))
1087- then {
1088- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1089- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1090- then {
1091- let $t04258142663 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1092- let refreshKLpActions = $t04258142663._1
1093- let updatedKLp = $t04258142663._2
1094- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1095- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1096- then (state ++ refreshKLpActions)
1097- else throw("Strict value is not equal to itself.")
1098- }
1099- else throw("Strict value is not equal to itself.")
1100- }
953+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
954+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
955+ then state
1101956 else throw("Strict value is not equal to itself.")
1102957 }
1103958
1116971 else if ((noLessThenPriceAsset > outPrAmt))
1117972 then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1118973 else {
1119- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1120- if ((currentKLp == currentKLp))
1121- then {
1122- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1123- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1124- then {
1125- let $t04361243693 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1126- let refreshKLpActions = $t04361243693._1
1127- let updatedKLp = $t04361243693._2
1128- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1129- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1130- then (state ++ refreshKLpActions)
1131- else throw("Strict value is not equal to itself.")
1132- }
1133- else throw("Strict value is not equal to itself.")
1134- }
974+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
975+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
976+ then state
1135977 else throw("Strict value is not equal to itself.")
1136978 }
1137979 }
1147989 then {
1148990 let cfg = getPoolConfig()
1149991 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1150- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1151- if ((currentKLp == currentKLp))
992+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
993+ if ((unstakeInv == unstakeInv))
1152994 then {
1153- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
1154- if ((unstakeInv == unstakeInv))
995+ let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
996+ let poolStatus = parseIntValue(res._9)
997+ let state = res._10
998+ let checkPoolStatus = if (if (isGlobalShutdown())
999+ then true
1000+ else (poolStatus == PoolShutdown))
1001+ then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
1002+ else true
1003+ if ((checkPoolStatus == checkPoolStatus))
11551004 then {
1156- let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1157- let outAmAmt = res._1
1158- let outPrAmt = res._2
1159- let poolStatus = parseIntValue(res._9)
1160- let state = res._10
1161- let checkPoolStatus = if (if (isGlobalShutdown())
1162- then true
1163- else (poolStatus == PoolShutdown))
1164- then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
1165- else true
1166- if ((checkPoolStatus == checkPoolStatus))
1167- then {
1168- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1169- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1170- then {
1171- let $t04481944900 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1172- let refreshKLpActions = $t04481944900._1
1173- let updatedKLp = $t04481944900._2
1174- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1175- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1176- then (state ++ refreshKLpActions)
1177- else throw("Strict value is not equal to itself.")
1178- }
1179- else throw("Strict value is not equal to itself.")
1180- }
1005+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1006+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1007+ then state
11811008 else throw("Strict value is not equal to itself.")
11821009 }
11831010 else throw("Strict value is not equal to itself.")
12011028 else throw("no payments are expected")]
12021029 if ((checks == checks))
12031030 then {
1204- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1205- if ((currentKLp == currentKLp))
1031+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1032+ if ((unstakeInv == unstakeInv))
12061033 then {
1207- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1208- if ((unstakeInv == unstakeInv))
1034+ let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
1035+ let outAmAmt = res._1
1036+ let outPrAmt = res._2
1037+ let state = res._10
1038+ let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
1039+ then true
1040+ else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
1041+ then true
1042+ else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
1043+ if ((checkAmounts == checkAmounts))
12091044 then {
1210- let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
1211- let outAmAmt = res._1
1212- let outPrAmt = res._2
1213- let state = res._10
1214- let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
1215- then true
1216- else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
1217- then true
1218- else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
1219- if ((checkAmounts == checkAmounts))
1220- then {
1221- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1222- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1223- then {
1224- let $t04619546276 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1225- let refreshKLpActions = $t04619546276._1
1226- let updatedKLp = $t04619546276._2
1227- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1228- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1229- then (state ++ refreshKLpActions)
1230- else throw("Strict value is not equal to itself.")
1231- }
1232- else throw("Strict value is not equal to itself.")
1233- }
1045+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1046+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1047+ then state
12341048 else throw("Strict value is not equal to itself.")
12351049 }
12361050 else throw("Strict value is not equal to itself.")
12461060 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
12471061 then throw("permissions denied")
12481062 else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1249-
1250-
1251-
1252-@Callable(i)
1253-func refreshKLp () = {
1254- let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1255- let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1256- then unit
1257- else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1258- if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1259- then {
1260- let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1261- let $t04746347527 = refreshKLpInternal(0, 0, 0)
1262- let kLpUpdateActions = $t04746347527._1
1263- let updatedKLp = $t04746347527._2
1264- let actions = if ((kLp != updatedKLp))
1265- then kLpUpdateActions
1266- else throwErr("nothing to refresh")
1267- $Tuple2(actions, toString(updatedKLp))
1268- }
1269- else throw("Strict value is not equal to itself.")
1270- }
12711063
12721064
12731065
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)
291- let outAmAmt = fromX18Round(outAmAmtX18, amAssetDcm, FLOOR)
292- let outPrAmt = fromX18Round(outPrAmtX18, prAssetDcm, FLOOR)
280+ let outAmAmt = fromX18(outAmAmtX18, amAssetDcm)
281+ 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 $t02080121013 = if ((order.orderType == Buy))
418- then $Tuple2(amountAssetAmount, -(priceAssetAmount))
419- else $Tuple2(-(amountAssetAmount), priceAssetAmount)
420- let amountAssetBalanceDelta = $t02080121013._1
421- let priceAssetBalanceDelta = $t02080121013._2
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 $t02148421584 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
435- let unusedActions = $t02148421584._1
436- let kLpNew = $t02148421584._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 $t02426924562 = 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 = $t02426924562._1
518- let priceBalanceOld = $t02426924562._2
519- let $t02456624715 = 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 = $t02456624715._1
523- let priceAssetAmountRaw = $t02456624715._2
524- let amountAssetAmount = takeFee(amountAssetAmountRaw)._1
525- let priceAssetAmount = takeFee(priceAssetAmountRaw)._1
526- let $t02483724896 = takeFee(paymentAmountRaw)
527- let paymentAmount = $t02483724896._1
528- let feeAmount = $t02483724896._2
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 $t02657726744 = if (paymentInAmountAsset)
526+ let $t02478324950 = if (paymentInAmountAsset)
552527 then $Tuple2(amountAssetAmountRaw, amountBalanceOld)
553528 else $Tuple2(priceAssetAmountRaw, priceBalanceOld)
554- let amount = $t02657726744._1
555- let balance = $t02657726744._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)
567- let cfg = getPoolConfig()
568- let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
569- let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
570542 let checks = [if ((paymentAssetId == cfgLpAssetId))
571543 then true
572544 else throwErr("invalid lp asset")]
573545 if ((checks == checks))
574546 then {
575547 let outInAmountAsset = if ((outAssetId == cfgAmountAssetId))
576548 then true
577549 else if ((outAssetId == cfgPriceAssetId))
578550 then false
579551 else throwErr("invalid asset")
580552 let balanceBigInt = if (outInAmountAsset)
581553 then toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId)))
582554 else toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId)))
583- let outInAmountAssetDecimals = if (outInAmountAsset)
584- then amtAssetDcm
585- else priceAssetDcm
586555 let amBalanceOld = getAccBalance(assetIdToString(cfgAmountAssetId))
587556 let prBalanceOld = getAccBalance(assetIdToString(cfgPriceAssetId))
588557 let outBalance = if (outInAmountAsset)
589558 then amBalanceOld
590559 else prBalanceOld
591560 let outBalanceBigInt = toBigInt(outBalance)
592561 let supplyBigInt = toBigInt(valueOrErrorMessage(assetInfo(cfgLpAssetId), (("asset " + toBase58String(cfgLpAssetId)) + " doesn't exist")).quantity)
593562 let redeemedBigInt = toBigInt(paymentAmount)
594563 let amountRaw = max([0, toInt(((balanceBigInt * (scale18 - pow((scale18 - ((redeemedBigInt * scale18) / supplyBigInt)), 18, big2, 0, 18, DOWN))) / scale18))])
595- let $t02882328873 = takeFee(amountRaw)
596- let totalAmount = $t02882328873._1
597- let feeAmount = $t02882328873._2
598- let $t02887729103 = if (outInAmountAsset)
564+ let $t02653026586 = takeFee(amountRaw, outFee)
565+ let totalAmount = $t02653026586._1
566+ let feeAmount = $t02653026586._2
567+ let $t02659026816 = if (outInAmountAsset)
599568 then $Tuple4(totalAmount, 0, (amBalanceOld - amountRaw), prBalanceOld)
600569 else $Tuple4(0, totalAmount, amBalanceOld, (prBalanceOld - amountRaw))
601- let outAmAmount = $t02887729103._1
602- let outPrAmount = $t02887729103._2
603- let amBalanceNew = $t02887729103._3
604- let prBalanceNew = $t02887729103._4
570+ let outAmAmount = $t02659026816._1
571+ let outPrAmount = $t02659026816._2
572+ let amBalanceNew = $t02659026816._3
573+ let prBalanceNew = $t02659026816._4
605574 let priceNewX18 = calcPriceBigInt(toX18(prBalanceNew, cfgPriceAssetDecimals), toX18(amBalanceNew, cfgAmountAssetDecimals))
606575 let priceNew = fromX18(priceNewX18, scale8)
607576 let commonState = if (isEval)
608577 then nil
609578 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)]
610579 let priceOldX18 = calcPriceBigInt(toX18(prBalanceOld, cfgPriceAssetDecimals), toX18(amBalanceOld, cfgAmountAssetDecimals))
611580 let priceOld = fromX18(priceOldX18, scale8)
612581 let loss = {
613582 let amountBothInPaymentAsset = (toInt(fraction(balanceBigInt, redeemedBigInt, supplyBigInt)) * 2)
614583 fraction((totalAmount - amountBothInPaymentAsset), scale8, amountBothInPaymentAsset)
615584 }
616- $Tuple5(totalAmount, commonState, feeAmount, loss, outInAmountAsset)
585+ $Tuple4(totalAmount, commonState, feeAmount, loss)
617586 }
618587 else throw("Strict value is not equal to itself.")
619588 }
620589
621590
622591 func managerPublicKeyOrUnit () = match getString(mpk()) {
623592 case s: String =>
624593 fromBase58String(s)
625594 case _: Unit =>
626595 unit
627596 case _ =>
628597 throw("Match error")
629598 }
630599
631600
632601 func pendingManagerPublicKeyOrUnit () = match getString(pmpk()) {
633602 case s: String =>
634603 fromBase58String(s)
635604 case _: Unit =>
636605 unit
637606 case _ =>
638607 throw("Match error")
639608 }
640609
641610
642611 func isManager (i) = match managerPublicKeyOrUnit() {
643612 case pk: ByteVector =>
644613 (i.callerPublicKey == pk)
645614 case _: Unit =>
646615 (i.caller == this)
647616 case _ =>
648617 throw("Match error")
649618 }
650619
651620
652621 func mustManager (i) = {
653622 let pd = throw("Permission denied")
654623 match managerPublicKeyOrUnit() {
655624 case pk: ByteVector =>
656625 if ((i.callerPublicKey == pk))
657626 then true
658627 else pd
659628 case _: Unit =>
660629 if ((i.caller == this))
661630 then true
662631 else pd
663632 case _ =>
664633 throw("Match error")
665634 }
666635 }
667636
668637
669638 @Callable(i)
670639 func setManager (pendingManagerPublicKey) = {
671640 let checkCaller = mustManager(i)
672641 if ((checkCaller == checkCaller))
673642 then {
674643 let checkManagerPublicKey = fromBase58String(pendingManagerPublicKey)
675644 if ((checkManagerPublicKey == checkManagerPublicKey))
676645 then [StringEntry(pmpk(), pendingManagerPublicKey)]
677646 else throw("Strict value is not equal to itself.")
678647 }
679648 else throw("Strict value is not equal to itself.")
680649 }
681650
682651
683652
684653 @Callable(i)
685654 func confirmManager () = {
686655 let pm = pendingManagerPublicKeyOrUnit()
687656 let hasPM = if (isDefined(pm))
688657 then true
689658 else throw("No pending manager")
690659 if ((hasPM == hasPM))
691660 then {
692661 let checkPM = if ((i.callerPublicKey == value(pm)))
693662 then true
694663 else throw("You are not pending manager")
695664 if ((checkPM == checkPM))
696665 then [StringEntry(mpk(), toBase58String(value(pm))), DeleteEntry(pmpk())]
697666 else throw("Strict value is not equal to itself.")
698667 }
699668 else throw("Strict value is not equal to itself.")
700669 }
701670
702671
703672
704673 @Callable(i)
705674 func put (slippageTolerance,shouldAutoStake) = if ((0 > slippageTolerance))
706675 then throw("Invalid slippageTolerance passed")
707676 else {
708677 let estPut = commonPut(i, slippageTolerance, true)
709678 let emitLpAmt = estPut._2
710679 let lpAssetId = estPut._7
711680 let state = estPut._9
712681 let amDiff = estPut._10
713682 let prDiff = estPut._11
714683 let amId = estPut._12
715684 let prId = estPut._13
716- let amAssetPmt = toBigInt(value(i.payments[0]).amount)
717- let prAssetPmt = toBigInt(value(i.payments[1]).amount)
718- let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
719- if ((currentKLp == currentKLp))
685+ let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
686+ if ((emitInv == emitInv))
720687 then {
721- let emitInv = invoke(factoryContract, "emit", [emitLpAmt], nil)
722- 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))
723695 then {
724- let emitInvLegacy = match emitInv {
725- case legacyFactoryContract: Address =>
726- invoke(legacyFactoryContract, "emit", [emitLpAmt], nil)
727- case _ =>
728- unit
729- }
730- 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))
731700 then {
732- let slippageAInv = if ((amDiff > 0))
733- then invoke(slippageContract, "put", nil, [AttachedPayment(amId, amDiff)])
701+ let slippagePInv = if ((prDiff > 0))
702+ then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
734703 else nil
735- if ((slippageAInv == slippageAInv))
704+ if ((slippagePInv == slippagePInv))
736705 then {
737- let slippagePInv = if ((prDiff > 0))
738- then invoke(slippageContract, "put", nil, [AttachedPayment(prId, prDiff)])
739- else nil
740- if ((slippagePInv == slippagePInv))
706+ let lpTransfer = if (shouldAutoStake)
741707 then {
742- let lpTransfer = if (shouldAutoStake)
743- then {
744- let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
745- if ((slpStakeInv == slpStakeInv))
746- then nil
747- else throw("Strict value is not equal to itself.")
748- }
749- else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
750- let $t03363134093 = refreshKLpInternal(0, 0, 0)
751- if (($t03363134093 == $t03363134093))
752- then {
753- let updatedKLp = $t03363134093._2
754- let refreshKLpActions = $t03363134093._1
755- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
756- if ((isUpdatedKLpValid == isUpdatedKLpValid))
757- then ((state ++ lpTransfer) ++ refreshKLpActions)
758- else throw("Strict value is not equal to itself.")
759- }
708+ let slpStakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
709+ if ((slpStakeInv == slpStakeInv))
710+ then nil
760711 else throw("Strict value is not equal to itself.")
761712 }
762- else throw("Strict value is not equal to itself.")
713+ else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
714+ (state ++ lpTransfer)
763715 }
764716 else throw("Strict value is not equal to itself.")
765717 }
766718 else throw("Strict value is not equal to itself.")
767719 }
768720 else throw("Strict value is not equal to itself.")
769721 }
770722 else throw("Strict value is not equal to itself.")
771723 }
772724
773725
774726
775727 @Callable(i)
776728 func putForFree (maxSlippage) = if ((0 > maxSlippage))
777729 then throw("Invalid value passed")
778730 else {
779731 let estPut = commonPut(i, maxSlippage, false)
780- let state = estPut._9
781- let amAssetPmt = toBigInt(value(i.payments[0]).amount)
782- let prAssetPmt = toBigInt(value(i.payments[1]).amount)
783- let currentKLp = calcCurrentKLp(amAssetPmt, prAssetPmt, toBigInt(0))
784- if ((currentKLp == currentKLp))
785- then {
786- let $t03465534720 = refreshKLpInternal(0, 0, 0)
787- let refreshKLpActions = $t03465534720._1
788- let updatedKLp = $t03465534720._2
789- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
790- if ((isUpdatedKLpValid == isUpdatedKLpValid))
791- then (state ++ refreshKLpActions)
792- else throw("Strict value is not equal to itself.")
793- }
794- else throw("Strict value is not equal to itself.")
732+ estPut._9
795733 }
796734
797735
798736
799737 @Callable(i)
800738 func putOneTkn (minOutAmount,autoStake) = {
801739 let isPoolOneTokenOperationsDisabled = {
802740 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
803741 if ($isInstanceOf(@, "Boolean"))
804742 then @
805743 else throw(($getType(@) + " couldn't be cast to Boolean"))
806744 }
807745 let isPutDisabled = if (if (if (isGlobalShutdown())
808746 then true
809747 else (cfgPoolStatus == PoolPutDisabled))
810748 then true
811749 else (cfgPoolStatus == PoolShutdown))
812750 then true
813751 else isPoolOneTokenOperationsDisabled
814752 let checks = [if (if (!(isPutDisabled))
815753 then true
816754 else isManager(i))
817755 then true
818756 else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
819757 then true
820758 else throwErr("exactly 1 payment are expected")]
821759 if ((checks == checks))
822760 then {
823761 let payment = i.payments[0]
824762 let paymentAssetId = payment.assetId
825763 let paymentAmountRaw = payment.amount
826- let currentKLp = if ((paymentAssetId == cfgAmountAssetId))
827- then calcCurrentKLp(toBigInt(paymentAmountRaw), toBigInt(0), toBigInt(0))
828- else if ((paymentAssetId == cfgPriceAssetId))
829- then calcCurrentKLp(toBigInt(0), toBigInt(paymentAmountRaw), toBigInt(0))
830- else throwErr("payment asset is not supported")
831- if ((currentKLp == currentKLp))
764+ let userAddress = i.caller
765+ let txId = i.transactionId
766+ let $t03172331853 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
767+ if (($t03172331853 == $t03172331853))
832768 then {
833- let userAddress = i.caller
834- let txId = i.transactionId
835- let $t03590836060 = calcPutOneToken(paymentAmountRaw, paymentAssetId, userAddress, txId)
836- if (($t03590836060 == $t03590836060))
769+ let bonus = $t03172331853._4
770+ let feeAmount = $t03172331853._3
771+ let commonState = $t03172331853._2
772+ let emitAmountEstimated = $t03172331853._1
773+ let emitAmount = if (if ((minOutAmount > 0))
774+ then (minOutAmount > emitAmountEstimated)
775+ else false)
776+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
777+ else emitAmountEstimated
778+ let emitInv = emit(emitAmount)
779+ if ((emitInv == emitInv))
837780 then {
838- let paymentInAmountAsset = $t03590836060._5
839- let bonus = $t03590836060._4
840- let feeAmount = $t03590836060._3
841- let commonState = $t03590836060._2
842- let emitAmountEstimated = $t03590836060._1
843- let emitAmount = if (if ((minOutAmount > 0))
844- then (minOutAmount > emitAmountEstimated)
845- else false)
846- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
847- else emitAmountEstimated
848- let emitInv = emit(emitAmount)
849- if ((emitInv == emitInv))
781+ let lpTransfer = if (autoStake)
850782 then {
851- let lpTransfer = if (autoStake)
852- then {
853- let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
854- if ((stakeInv == stakeInv))
855- then nil
856- else throw("Strict value is not equal to itself.")
857- }
858- else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
859- let sendFee = if ((feeAmount > 0))
860- then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
861- else nil
862- let $t03664636843 = if ((this == feeCollectorAddress))
863- then $Tuple2(0, 0)
864- else if (paymentInAmountAsset)
865- then $Tuple2(-(feeAmount), 0)
866- else $Tuple2(0, -(feeAmount))
867- let amountAssetBalanceDelta = $t03664636843._1
868- let priceAssetBalanceDelta = $t03664636843._2
869- let $t03684636954 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
870- let refreshKLpActions = $t03684636954._1
871- let updatedKLp = $t03684636954._2
872- let kLp = value(getString(keyKLp))
873- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
874- if ((isUpdatedKLpValid == isUpdatedKLpValid))
875- then $Tuple2((((commonState ++ lpTransfer) ++ sendFee) ++ refreshKLpActions), emitAmount)
783+ let stakeInv = invoke(stakingContract, "stake", nil, [AttachedPayment(cfgLpAssetId, emitAmount)])
784+ if ((stakeInv == stakeInv))
785+ then nil
876786 else throw("Strict value is not equal to itself.")
877787 }
878- else throw("Strict value is not equal to itself.")
788+ else [ScriptTransfer(i.caller, emitAmount, cfgLpAssetId)]
789+ let sendFee = if ((feeAmount > 0))
790+ then [ScriptTransfer(feeCollectorAddress, feeAmount, paymentAssetId)]
791+ else nil
792+ $Tuple2(((commonState ++ lpTransfer) ++ sendFee), emitAmount)
879793 }
880794 else throw("Strict value is not equal to itself.")
881795 }
882796 else throw("Strict value is not equal to itself.")
883797 }
884798 else throw("Strict value is not equal to itself.")
885799 }
886800
887801
888802
889803 @Callable(i)
890804 func putOneTknREADONLY (paymentAssetId,paymentAmountRaw) = {
891- let $t03726037417 = calcPutOneToken(paymentAmountRaw, parseAssetId(paymentAssetId), unit, unit)
892- let emitAmountEstimated = $t03726037417._1
893- let commonState = $t03726037417._2
894- let feeAmount = $t03726037417._3
895- let bonus = $t03726037417._4
896- let paymentInAmountAsset = $t03726037417._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
897810 $Tuple2(nil, $Tuple3(emitAmountEstimated, feeAmount, bonus))
898811 }
899812
900813
901814
902815 @Callable(i)
903816 func getOneTkn (outAssetIdStr,minOutAmount) = {
904817 let isPoolOneTokenOperationsDisabled = {
905818 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
906819 if ($isInstanceOf(@, "Boolean"))
907820 then @
908821 else throw(($getType(@) + " couldn't be cast to Boolean"))
909822 }
910823 let isGetDisabled = if (if (isGlobalShutdown())
911824 then true
912825 else (cfgPoolStatus == PoolShutdown))
913826 then true
914827 else isPoolOneTokenOperationsDisabled
915828 let checks = [if (if (!(isGetDisabled))
916829 then true
917830 else isManager(i))
918831 then true
919832 else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
920833 then true
921834 else throwErr("exactly 1 payment are expected")]
922835 if ((checks == checks))
923836 then {
924837 let outAssetId = parseAssetId(outAssetIdStr)
925838 let payment = i.payments[0]
926839 let paymentAssetId = payment.assetId
927840 let paymentAmount = payment.amount
928- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
929- if ((currentKLp == currentKLp))
841+ let userAddress = i.caller
842+ let txId = i.transactionId
843+ let $t03352233657 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
844+ if (($t03352233657 == $t03352233657))
930845 then {
931- let userAddress = i.caller
932- let txId = i.transactionId
933- let $t03830238455 = calcGetOneToken(outAssetId, paymentAmount, paymentAssetId, userAddress, txId)
934- if (($t03830238455 == $t03830238455))
846+ let bonus = $t03352233657._4
847+ let feeAmount = $t03352233657._3
848+ let commonState = $t03352233657._2
849+ let amountEstimated = $t03352233657._1
850+ let amount = if (if ((minOutAmount > 0))
851+ then (minOutAmount > amountEstimated)
852+ else false)
853+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
854+ else amountEstimated
855+ let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
856+ if ((burnInv == burnInv))
935857 then {
936- let outInAmountAsset = $t03830238455._5
937- let bonus = $t03830238455._4
938- let feeAmount = $t03830238455._3
939- let commonState = $t03830238455._2
940- let amountEstimated = $t03830238455._1
941- let amount = if (if ((minOutAmount > 0))
942- then (minOutAmount > amountEstimated)
943- else false)
944- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
945- else amountEstimated
946- let burnInv = invoke(factoryContract, "burn", [paymentAmount], [AttachedPayment(paymentAssetId, paymentAmount)])
947- if ((burnInv == burnInv))
948- then {
949- let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
950- let sendFee = if ((feeAmount > 0))
951- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
952- else nil
953- let $t03895539202 = {
954- let feeAmountForCalc = if ((this == feeCollectorAddress))
955- then 0
956- else feeAmount
957- if (outInAmountAsset)
958- then $Tuple2(-((amount + feeAmountForCalc)), 0)
959- else $Tuple2(0, -((amount + feeAmountForCalc)))
960- }
961- let amountAssetBalanceDelta = $t03895539202._1
962- let priceAssetBalanceDelta = $t03895539202._2
963- let $t03920539313 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
964- let refreshKLpActions = $t03920539313._1
965- let updatedKLp = $t03920539313._2
966- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
967- if ((isUpdatedKLpValid == isUpdatedKLpValid))
968- then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
969- else throw("Strict value is not equal to itself.")
970- }
971- else throw("Strict value is not equal to itself.")
858+ let assetTransfer = [ScriptTransfer(userAddress, amount, outAssetId)]
859+ let sendFee = if ((feeAmount > 0))
860+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
861+ else nil
862+ $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
972863 }
973864 else throw("Strict value is not equal to itself.")
974865 }
975866 else throw("Strict value is not equal to itself.")
976867 }
977868 else throw("Strict value is not equal to itself.")
978869 }
979870
980871
981872
982873 @Callable(i)
983874 func getOneTknREADONLY (outAssetId,paymentAmount) = {
984- let $t03957039726 = calcGetOneToken(parseAssetId(outAssetId), paymentAmount, cfgLpAssetId, unit, unit)
985- let amountEstimated = $t03957039726._1
986- let commonState = $t03957039726._2
987- let feeAmount = $t03957039726._3
988- let bonus = $t03957039726._4
989- let outInAmountAsset = $t03957039726._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
990880 $Tuple2(nil, $Tuple3(amountEstimated, feeAmount, bonus))
991881 }
992882
993883
994884
995885 @Callable(i)
996886 func unstakeAndGetOneTkn (unstakeAmount,outAssetIdStr,minOutAmount) = {
997887 let isPoolOneTokenOperationsDisabled = {
998888 let @ = invoke(factoryContract, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
999889 if ($isInstanceOf(@, "Boolean"))
1000890 then @
1001891 else throw(($getType(@) + " couldn't be cast to Boolean"))
1002892 }
1003893 let isGetDisabled = if (if (isGlobalShutdown())
1004894 then true
1005895 else (cfgPoolStatus == PoolShutdown))
1006896 then true
1007897 else isPoolOneTokenOperationsDisabled
1008898 let checks = [if (if (!(isGetDisabled))
1009899 then true
1010900 else isManager(i))
1011901 then true
1012902 else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
1013903 then true
1014904 else throwErr("no payments are expected")]
1015905 if ((checks == checks))
1016906 then {
1017907 let outAssetId = parseAssetId(outAssetIdStr)
1018908 let userAddress = i.caller
1019909 let txId = i.transactionId
1020- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1021- if ((currentKLp == currentKLp))
910+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
911+ if ((unstakeInv == unstakeInv))
1022912 then {
1023- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1024- if ((unstakeInv == unstakeInv))
913+ let $t03525535388 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
914+ if (($t03525535388 == $t03525535388))
1025915 then {
1026- let $t04063140782 = calcGetOneToken(outAssetId, unstakeAmount, cfgLpAssetId, userAddress, txId)
1027- if (($t04063140782 == $t04063140782))
916+ let bonus = $t03525535388._4
917+ let feeAmount = $t03525535388._3
918+ let commonState = $t03525535388._2
919+ let amountEstimated = $t03525535388._1
920+ let amount = if (if ((minOutAmount > 0))
921+ then (minOutAmount > amountEstimated)
922+ else false)
923+ then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
924+ else amountEstimated
925+ let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
926+ if ((burnInv == burnInv))
1028927 then {
1029- let outInAmountAsset = $t04063140782._5
1030- let bonus = $t04063140782._4
1031- let feeAmount = $t04063140782._3
1032- let commonState = $t04063140782._2
1033- let amountEstimated = $t04063140782._1
1034- let amount = if (if ((minOutAmount > 0))
1035- then (minOutAmount > amountEstimated)
1036- else false)
1037- then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1038- else amountEstimated
1039- let burnInv = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1040- if ((burnInv == burnInv))
1041- then {
1042- let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
1043- let sendFee = if ((feeAmount > 0))
1044- then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
1045- else nil
1046- let $t04127741524 = {
1047- let feeAmountForCalc = if ((this == feeCollectorAddress))
1048- then 0
1049- else feeAmount
1050- if (outInAmountAsset)
1051- then $Tuple2(-((amount + feeAmountForCalc)), 0)
1052- else $Tuple2(0, -((amount + feeAmountForCalc)))
1053- }
1054- let amountAssetBalanceDelta = $t04127741524._1
1055- let priceAssetBalanceDelta = $t04127741524._2
1056- let $t04152741635 = refreshKLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1057- let refreshKLpActions = $t04152741635._1
1058- let updatedKLp = $t04152741635._2
1059- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1060- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1061- then $Tuple2((((commonState ++ assetTransfer) ++ sendFee) ++ refreshKLpActions), amount)
1062- else throw("Strict value is not equal to itself.")
1063- }
1064- else throw("Strict value is not equal to itself.")
928+ let assetTransfer = [ScriptTransfer(i.caller, amount, outAssetId)]
929+ let sendFee = if ((feeAmount > 0))
930+ then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetId)]
931+ else nil
932+ $Tuple2(((commonState ++ assetTransfer) ++ sendFee), amount)
1065933 }
1066934 else throw("Strict value is not equal to itself.")
1067935 }
1068936 else throw("Strict value is not equal to itself.")
1069937 }
1070938 else throw("Strict value is not equal to itself.")
1071939 }
1072940 else throw("Strict value is not equal to itself.")
1073941 }
1074942
1075943
1076944
1077945 @Callable(i)
1078946 func get () = {
1079947 let res = commonGet(i)
1080948 let outAmtAmt = res._1
1081949 let outPrAmt = res._2
1082950 let pmtAmt = res._3
1083951 let pmtAssetId = res._4
1084952 let state = res._5
1085- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1086- if ((currentKLp == currentKLp))
1087- then {
1088- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1089- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1090- then {
1091- let $t04258142663 = refreshKLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1092- let refreshKLpActions = $t04258142663._1
1093- let updatedKLp = $t04258142663._2
1094- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1095- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1096- then (state ++ refreshKLpActions)
1097- else throw("Strict value is not equal to itself.")
1098- }
1099- else throw("Strict value is not equal to itself.")
1100- }
953+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
954+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
955+ then state
1101956 else throw("Strict value is not equal to itself.")
1102957 }
1103958
1104959
1105960
1106961 @Callable(i)
1107962 func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
1108963 let res = commonGet(i)
1109964 let outAmAmt = res._1
1110965 let outPrAmt = res._2
1111966 let pmtAmt = res._3
1112967 let pmtAssetId = res._4
1113968 let state = res._5
1114969 if ((noLessThenAmtAsset > outAmAmt))
1115970 then throw(((("noLessThenAmtAsset failed: " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
1116971 else if ((noLessThenPriceAsset > outPrAmt))
1117972 then throw(((("noLessThenPriceAsset failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1118973 else {
1119- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1120- if ((currentKLp == currentKLp))
1121- then {
1122- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1123- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1124- then {
1125- let $t04361243693 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1126- let refreshKLpActions = $t04361243693._1
1127- let updatedKLp = $t04361243693._2
1128- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1129- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1130- then (state ++ refreshKLpActions)
1131- else throw("Strict value is not equal to itself.")
1132- }
1133- else throw("Strict value is not equal to itself.")
1134- }
974+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
975+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
976+ then state
1135977 else throw("Strict value is not equal to itself.")
1136978 }
1137979 }
1138980
1139981
1140982
1141983 @Callable(i)
1142984 func unstakeAndGet (amount) = {
1143985 let checkPayments = if ((size(i.payments) != 0))
1144986 then throw("No payments are expected")
1145987 else true
1146988 if ((checkPayments == checkPayments))
1147989 then {
1148990 let cfg = getPoolConfig()
1149991 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
1150- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1151- if ((currentKLp == currentKLp))
992+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
993+ if ((unstakeInv == unstakeInv))
1152994 then {
1153- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(lpAssetId), amount], nil)
1154- if ((unstakeInv == unstakeInv))
995+ let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
996+ let poolStatus = parseIntValue(res._9)
997+ let state = res._10
998+ let checkPoolStatus = if (if (isGlobalShutdown())
999+ then true
1000+ else (poolStatus == PoolShutdown))
1001+ then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
1002+ else true
1003+ if ((checkPoolStatus == checkPoolStatus))
11551004 then {
1156- let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1157- let outAmAmt = res._1
1158- let outPrAmt = res._2
1159- let poolStatus = parseIntValue(res._9)
1160- let state = res._10
1161- let checkPoolStatus = if (if (isGlobalShutdown())
1162- then true
1163- else (poolStatus == PoolShutdown))
1164- then throw(("Get operation is blocked by admin. Status = " + toString(poolStatus)))
1165- else true
1166- if ((checkPoolStatus == checkPoolStatus))
1167- then {
1168- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1169- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1170- then {
1171- let $t04481944900 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1172- let refreshKLpActions = $t04481944900._1
1173- let updatedKLp = $t04481944900._2
1174- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1175- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1176- then (state ++ refreshKLpActions)
1177- else throw("Strict value is not equal to itself.")
1178- }
1179- else throw("Strict value is not equal to itself.")
1180- }
1005+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1006+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1007+ then state
11811008 else throw("Strict value is not equal to itself.")
11821009 }
11831010 else throw("Strict value is not equal to itself.")
11841011 }
11851012 else throw("Strict value is not equal to itself.")
11861013 }
11871014 else throw("Strict value is not equal to itself.")
11881015 }
11891016
11901017
11911018
11921019 @Callable(i)
11931020 func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
11941021 let isGetDisabled = if (isGlobalShutdown())
11951022 then true
11961023 else (cfgPoolStatus == PoolShutdown)
11971024 let checks = [if (!(isGetDisabled))
11981025 then true
11991026 else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
12001027 then true
12011028 else throw("no payments are expected")]
12021029 if ((checks == checks))
12031030 then {
1204- let currentKLp = calcCurrentKLp(toBigInt(0), toBigInt(0), toBigInt(0))
1205- if ((currentKLp == currentKLp))
1031+ let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1032+ if ((unstakeInv == unstakeInv))
12061033 then {
1207- let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1208- if ((unstakeInv == unstakeInv))
1034+ let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
1035+ let outAmAmt = res._1
1036+ let outPrAmt = res._2
1037+ let state = res._10
1038+ let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
1039+ then true
1040+ else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
1041+ then true
1042+ else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
1043+ if ((checkAmounts == checkAmounts))
12091044 then {
1210- let res = estimateGetOperation(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
1211- let outAmAmt = res._1
1212- let outPrAmt = res._2
1213- let state = res._10
1214- let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
1215- then true
1216- else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
1217- then true
1218- else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
1219- if ((checkAmounts == checkAmounts))
1220- then {
1221- let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1222- if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1223- then {
1224- let $t04619546276 = refreshKLpInternal(-(outAmAmt), -(outPrAmt), 0)
1225- let refreshKLpActions = $t04619546276._1
1226- let updatedKLp = $t04619546276._2
1227- let isUpdatedKLpValid = validateUpdatedKLp(currentKLp, updatedKLp)
1228- if ((isUpdatedKLpValid == isUpdatedKLpValid))
1229- then (state ++ refreshKLpActions)
1230- else throw("Strict value is not equal to itself.")
1231- }
1232- else throw("Strict value is not equal to itself.")
1233- }
1045+ let burnLPAssetOnFactory = invoke(factoryContract, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1046+ if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1047+ then state
12341048 else throw("Strict value is not equal to itself.")
12351049 }
12361050 else throw("Strict value is not equal to itself.")
12371051 }
12381052 else throw("Strict value is not equal to itself.")
12391053 }
12401054 else throw("Strict value is not equal to itself.")
12411055 }
12421056
12431057
12441058
12451059 @Callable(i)
12461060 func activate (amtAssetStr,priceAssetStr) = if ((toString(i.caller) != toString(factoryContract)))
12471061 then throw("permissions denied")
12481062 else $Tuple2([StringEntry(aa(), amtAssetStr), StringEntry(pa(), priceAssetStr)], "success")
1249-
1250-
1251-
1252-@Callable(i)
1253-func refreshKLp () = {
1254- let lastRefreshedBlockHeight = valueOrElse(getInteger(keyKLpRefreshedHeight), 0)
1255- let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= kLpRefreshDelay))
1256- then unit
1257- else throwErr(makeString([toString(kLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1258- if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1259- then {
1260- let kLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyKLp), "0")), fmtErr("invalid kLp"))
1261- let $t04746347527 = refreshKLpInternal(0, 0, 0)
1262- let kLpUpdateActions = $t04746347527._1
1263- let updatedKLp = $t04746347527._2
1264- let actions = if ((kLp != updatedKLp))
1265- then kLpUpdateActions
1266- else throwErr("nothing to refresh")
1267- $Tuple2(actions, toString(updatedKLp))
1268- }
1269- else throw("Strict value is not equal to itself.")
1270- }
12711063
12721064
12731065
12741066 @Callable(i)
12751067 func getPoolConfigWrapperREADONLY () = $Tuple2(nil, getPoolConfig())
12761068
12771069
12781070
12791071 @Callable(i)
12801072 func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
12811073
12821074
12831075
12841076 @Callable(i)
12851077 func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
12861078 let prices = calcPrices(amAmt, prAmt, lpAmt)
12871079 $Tuple2(nil, [toString(prices[0]), toString(prices[1]), toString(prices[2])])
12881080 }
12891081
12901082
12911083
12921084 @Callable(i)
12931085 func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(toX18(origVal, origScaleMult)))
12941086
12951087
12961088
12971089 @Callable(i)
12981090 func fromX18WrapperREADONLY (val,resultScaleMult) = $Tuple2(nil, fromX18(parseBigIntValue(val), resultScaleMult))
12991091
13001092
13011093
13021094 @Callable(i)
13031095 func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(calcPriceBigInt(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
13041096
13051097
13061098
13071099 @Callable(i)
13081100 func estimatePutOperationWrapperREADONLY (txId58,slippageTolerance,inAmAssetAmt,inAmAssetId,inPrAssetAmt,inPrAssetId,userAddress,isEvaluate,emitLp) = $Tuple2(nil, estimatePutOperation(txId58, slippageTolerance, inAmAssetAmt, inAmAssetId, inPrAssetAmt, inPrAssetId, userAddress, isEvaluate, emitLp))
13091101
13101102
13111103
13121104 @Callable(i)
13131105 func estimateGetOperationWrapperREADONLY (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
13141106 let res = estimateGetOperation(txId58, pmtAssetId, pmtLpAmt, addressFromStringValue(userAddress))
13151107 $Tuple2(nil, $Tuple10(res._1, res._2, res._3, res._4, res._5, res._6, res._7, toString(res._8), res._9, res._10))
13161108 }
13171109
13181110
13191111
13201112 @Callable(i)
13211113 func statsREADONLY () = {
13221114 let cfg = getPoolConfig()
13231115 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
13241116 let amtAssetId = cfg[idxAmtAssetId]
13251117 let priceAssetId = cfg[idxPriceAssetId]
13261118 let iAmtAssetId = cfg[idxIAmtAssetId]
13271119 let iPriceAssetId = cfg[idxIPriceAssetId]
13281120 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
13291121 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
13301122 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
13311123 let accAmtAssetBalance = getAccBalance(amtAssetId)
13321124 let accPriceAssetBalance = getAccBalance(priceAssetId)
13331125 let pricesList = if ((poolLPBalance == 0))
13341126 then [zeroBigInt, zeroBigInt, zeroBigInt]
13351127 else calcPrices(accAmtAssetBalance, accPriceAssetBalance, poolLPBalance)
13361128 let curPrice = 0
13371129 let lpAmtAssetShare = fromX18(pricesList[1], scale8)
13381130 let lpPriceAssetShare = fromX18(pricesList[2], scale8)
13391131 let poolWeight = value(getInteger(factoryContract, keyPoolWeight(toString(this))))
13401132 $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))
13411133 }
13421134
13431135
13441136
13451137 @Callable(i)
13461138 func evaluatePutByAmountAssetREADONLY (inAmAssetAmt) = {
13471139 let cfg = getPoolConfig()
13481140 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
13491141 let amAssetIdStr = cfg[idxAmtAssetId]
13501142 let amAssetId = fromBase58String(amAssetIdStr)
13511143 let prAssetIdStr = cfg[idxPriceAssetId]
13521144 let prAssetId = fromBase58String(prAssetIdStr)
13531145 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
13541146 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
13551147 let poolStatus = cfg[idxPoolStatus]
13561148 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
13571149 let accAmtAssetBalance = getAccBalance(amAssetIdStr)
13581150 let accPriceAssetBalance = getAccBalance(prAssetIdStr)
13591151 let amtAssetAmtX18 = toX18(accAmtAssetBalance, amtAssetDcm)
13601152 let priceAssetAmtX18 = toX18(accPriceAssetBalance, priceAssetDcm)
13611153 let curPriceX18 = if ((poolLPBalance == 0))
13621154 then zeroBigInt
13631155 else calcPriceBigInt(priceAssetAmtX18, amtAssetAmtX18)
13641156 let inAmAssetAmtX18 = toX18(inAmAssetAmt, amtAssetDcm)
13651157 let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
13661158 let inPrAssetAmt = fromX18(inPrAssetAmtX18, priceAssetDcm)
13671159 let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
13681160 let calcLpAmt = estPut._1
13691161 let curPriceCalc = estPut._3
13701162 let amBalance = estPut._4
13711163 let prBalance = estPut._5
13721164 let lpEmission = estPut._6
13731165 $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))
13741166 }
13751167
13761168
13771169
13781170 @Callable(i)
13791171 func evaluatePutByPriceAssetREADONLY (inPrAssetAmt) = {
13801172 let cfg = getPoolConfig()
13811173 let lpAssetId = fromBase58String(cfg[idxPoolLPAssetId])
13821174 let amAssetIdStr = cfg[idxAmtAssetId]
13831175 let amAssetId = fromBase58String(amAssetIdStr)
13841176 let prAssetIdStr = cfg[idxPriceAssetId]
13851177 let prAssetId = fromBase58String(prAssetIdStr)
13861178 let amtAssetDcm = parseIntValue(cfg[idxAmtAssetDcm])
13871179 let priceAssetDcm = parseIntValue(cfg[idxPriceAssetDcm])
13881180 let poolStatus = cfg[idxPoolStatus]
13891181 let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
13901182 let amBalanceRaw = getAccBalance(amAssetIdStr)
13911183 let prBalanceRaw = getAccBalance(prAssetIdStr)
13921184 let amBalanceRawX18 = toX18(amBalanceRaw, amtAssetDcm)
13931185 let prBalanceRawX18 = toX18(prBalanceRaw, priceAssetDcm)
13941186 let curPriceX18 = if ((poolLPBalance == 0))
13951187 then zeroBigInt
13961188 else calcPriceBigInt(prBalanceRawX18, amBalanceRawX18)
13971189 let inPrAssetAmtX18 = toX18(inPrAssetAmt, priceAssetDcm)
13981190 let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
13991191 let inAmAssetAmt = fromX18(inAmAssetAmtX18, amtAssetDcm)
14001192 let estPut = estimatePutOperation("", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false)
14011193 let calcLpAmt = estPut._1
14021194 let curPriceCalc = estPut._3
14031195 let amBalance = estPut._4
14041196 let prBalance = estPut._5
14051197 let lpEmission = estPut._6
14061198 $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))
14071199 }
14081200
14091201
14101202
14111203 @Callable(i)
14121204 func evaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
14131205 let res = estimateGetOperation("", paymentLpAssetId, paymentLpAmt, this)
14141206 let outAmAmt = res._1
14151207 let outPrAmt = res._2
14161208 let amBalance = res._5
14171209 let prBalance = res._6
14181210 let lpEmission = res._7
14191211 let curPrice = res._8
14201212 let poolStatus = parseIntValue(res._9)
14211213 $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))
14221214 }
14231215
14241216
14251217 @Verifier(tx)
14261218 func verify () = {
14271219 let targetPublicKey = match managerPublicKeyOrUnit() {
14281220 case pk: ByteVector =>
14291221 pk
14301222 case _: Unit =>
14311223 tx.senderPublicKey
14321224 case _ =>
14331225 throw("Match error")
14341226 }
14351227 match tx {
14361228 case order: Order =>
14371229 let matcherPub = getMatcherPubOrFail()
14381230 let orderValid = validateMatcherOrderAllowed(order)
14391231 let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
14401232 let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
14411233 if (if (if (orderValid)
14421234 then senderValid
14431235 else false)
14441236 then matcherValid
14451237 else false)
14461238 then true
14471239 else throwOrderError(orderValid, senderValid, matcherValid)
14481240 case s: SetScriptTransaction =>
14491241 let newHash = blake2b256(value(s.script))
14501242 let allowedHash = fromBase64String(value(getString(factoryContract, keyAllowedLpScriptHash())))
14511243 let currentHash = scriptHash(this)
14521244 if (if ((allowedHash == newHash))
14531245 then (currentHash != newHash)
14541246 else false)
14551247 then true
14561248 else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
14571249 case _ =>
14581250 sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
14591251 }
14601252 }
14611253

github/deemru/w8io/026f985 
163.03 ms