w8 · tx · 83t···8NT

tx · 83tmBwRtUhBf5EjoybdFX7mnWFapcFmC4f9ZBbukg8NT

3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA:  -0.03400000 Waves

2022.10.06 16:04 [2260493] smart account 3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "83tmBwRtUhBf5EjoybdFX7mnWFapcFmC4f9ZBbukg8NT",
    "fee": 3400000,
    "feeAssetId": null,
    "timestamp": 1665061477589,
    "version": 1,
    "sender": "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA",
    "senderPublicKey": "35yd3qw1gxKDxKwGAykHN9fANbXNWwseaUwbWDj24o3x",
    "proofs": [
        "3NE9W4eNHAb4cBuJMubPPx7gXmj8LFQJwe1YRBFRvEdHTY7QyFbCSKBFrgppPCagUJRz7mPTQRFpBXhp6dqFf1pN"
    ],
    "script": "base64:BgKkIggCEgMKAQgSAwoBCBIAEgQKAgEEEgcKBQEBAQEEEgQKAgEEEgQKAgEIEgMKAQESABIHCgUBAQEIARIECgIIARIECgIIARIECgIIARIECgIIARIECgIBARIDCgEBEgUKAwEIARIECgIBCBIECgIICBIECgIICBIECgIIARIAEgMKAQgSBQoDAQEBEgQKAggBEgQKAgEBEgQKAggIEgsKCQgBAQIBAggEBBIGCgQICAEIEgAiBnNjYWxlOCIMc2NhbGU4QmlnSW50IgdzY2FsZTE4Igp6ZXJvQmlnSW50IgRiaWcwIgRiaWcxIgRiaWcyIgpzbGlwcGFnZTREIgVBbXVsdCIFRGNvbnYiA1NFUCIFRU1QVFkiClBvb2xBY3RpdmUiClBvb2xQdXREaXMiDlBvb2xNYXRjaGVyRGlzIgxQb29sU2h1dGRvd24iDmlkeFBvb2xBZGRyZXNzIglpZHhQb29sU3QiCWlkeExQQXNJZCIJaWR4QW1Bc0lkIglpZHhQckFzSWQiC2lkeEFtdEFzRGNtIg1pZHhQcmljZUFzRGNtIgtpZHhJQW10QXNJZCINaWR4SVByaWNlQXNJZCIPaWR4RmFjdFN0YWtDbnRyIhBpZHhGYWN0U2xpcHBDbnRyIhFpZHhGYWN0R3d4UmV3Q250ciIKZmVlRGVmYXVsdCICdDEiB29yaWdWYWwiDW9yaWdTY2FsZU11bHQiAmYxIgN2YWwiD3Jlc3VsdFNjYWxlTXVsdCICdHMiA2FtdCIIcmVzU2NhbGUiCGN1clNjYWxlIgNhYnMiCWFic0JpZ0ludCICZmMiA21wayIEcG1wayICcGwiAnBoIgFoIgF0IgNwYXUiAnVhIgR0eElkIgNnYXUiAmFhIgJwYSIDYW1wIgNhZGEiBmtleUZlZSIDZmVlIgRmY2ZnIgRtdHBrIgJwYyIGaUFtdEFzIgVpUHJBcyIDbWJhIgViQVN0ciIDYXBzIhxrZXlBbGxvd2VkTHBTdGFibGVTY3JpcHRIYXNoIhZrZXlGZWVDb2xsZWN0b3JBZGRyZXNzIgN0b2UiA29yViIGc2VuZHJWIgZtYXRjaFYiA3N0ciIHJG1hdGNoMCIGdmFsU3RyIgRzdHJmIgRhZGRyIgNrZXkiBGludGYiA2ZjYSIBQSIDaWdzIgJtcCITZmVlQ29sbGVjdG9yQWRkcmVzcyIDZ3BjIgVhbXRBcyIHcHJpY2VBcyIIaVByaWNlQXMiA2dmYyINZmFjdG9yeUNvbmZpZyIPc3Rha2luZ0NvbnRyYWN0Ig9zbGlwYWdlQ29udHJhY3QiC2d3eENvbnRyYWN0IhFkYXRhUHV0QWN0aW9uSW5mbyINaW5BbXRBc3NldEFtdCIPaW5QcmljZUFzc2V0QW10IghvdXRMcEFtdCIFcHJpY2UiCnNsaXBCeVVzZXIiDHNsaXBwYWdlUmVhbCIIdHhIZWlnaHQiC3R4VGltZXN0YW1wIgxzbGlwYWdlQW1BbXQiDHNsaXBhZ2VQckFtdCIRZGF0YUdldEFjdGlvbkluZm8iDm91dEFtdEFzc2V0QW10IhBvdXRQcmljZUFzc2V0QW10IgdpbkxwQW10Ig1nZXRBY2NCYWxhbmNlIgdhc3NldElkIgRjcGJpIghwckFtdFgxOCIIYW1BbXRYMTgiA3ZhZCICQTEiAkEyIghzbGlwcGFnZSIEZGlmZiIEcGFzcyICdmQiAkQxIgJEMCIEc2xwZyIEZmFpbCIDcGNwIgphbUFzc2V0RGNtIgpwckFzc2V0RGNtIgVhbUFtdCIFcHJBbXQiC2FtdEFzQW10WDE4IgpwckFzQW10WDE4IgpjYWxjUHJpY2VzIgVscEFtdCIDY2ZnIghhbXRBc0RjbSIHcHJBc0RjbSIIcHJpY2VYMTgiCGxwQW10WDE4Ig1scFBySW5BbUFzWDE4Ig1scFBySW5QckFzWDE4Ig9jYWxjdWxhdGVQcmljZXMiAXAiB3Rha2VGZWUiBmFtb3VudCIJZmVlQW1vdW50IgNlZ28iBnR4SWQ1OCIKcG10QXNzZXRJZCIIcG10THBBbXQiC3VzZXJBZGRyZXNzIgRscElkIgRhbUlkIgRwcklkIgVhbURjbSIFcHJEY20iA3N0cyIHbHBFbWlzcyIJYW1CYWxhbmNlIgxhbUJhbGFuY2VYMTgiCXByQmFsYW5jZSIMcHJCYWxhbmNlWDE4IgtjdXJQcmljZVgxOCIIY3VyUHJpY2UiC3BtdExwQW10WDE4IgpscEVtaXNzWDE4IgtvdXRBbUFtdFgxOCILb3V0UHJBbXRYMTgiCG91dEFtQW10IghvdXRQckFtdCIFc3RhdGUiA2VwbyIHaW5BbUFtdCIGaW5BbUlkIgdpblByQW10IgZpblBySWQiBmlzRXZhbCIGZW1pdExwIgppc09uZUFzc2V0IhB2YWxpZGF0ZVNsaXBwYWdlIgZwbXRBbXQiBXBtdElkIgdhbUlkU3RyIgdwcklkU3RyIglpbkFtSWRTdHIiCWluUHJJZFN0ciIGYW10RGNtIghwcmljZURjbSIEbHBFbSIPaW5BbUFzc2V0QW10WDE4Ig9pblByQXNzZXRBbXRYMTgiDHVzZXJQcmljZVgxOCIBciILc2xpcHBhZ2VYMTgiD3NsaXBwYWdlUmVhbFgxOCINbHBFbWlzc2lvblgxOCIKcHJWaWFBbVgxOCIKYW1WaWFQclgxOCIMZXhwZWN0ZWRBbXRzIhFleHBBbXRBc3NldEFtdFgxOCITZXhwUHJpY2VBc3NldEFtdFgxOCIJY2FsY0xwQW10Ig5jYWxjQW1Bc3NldFBtdCIOY2FsY1ByQXNzZXRQbXQiDHNsaXBwYWdlQ2FsYyIJZW1pdExwQW10IgZhbURpZmYiBnByRGlmZiINJHQwMTYzNTExNjY5NiIKd3JpdGVBbUFtdCIKd3JpdGVQckFtdCILY29tbW9uU3RhdGUiA21vYSIFb3JkZXIiB2FtdEFzSWQiBnByQXNJZCIPYWNjQW10QXNCYWxhbmNlIg5hY2NQckFzQmFsYW5jZSIKb3JBbXRBc3NldCIKb3JBbXRBc1N0ciIJb3JQckFzc2V0IglvclByQXNTdHIiCm9yZGVyUHJpY2UiDmNhc3RPcmRlclByaWNlIhFpc09yZGVyUHJpY2VWYWxpZCICY2ciAWkiA3BtdCICY3AiBmNhbGxlciIHYW1Bc1BtdCIHcHJBc1BtdCITZXN0aW1hdGVQdXRPbmVUa25WMiIJcG10QW10UmF3Igpwb29sQ29uZmlnIg0kdDAyMTAyNzIxMDcyIg0kdDAyMTA3NjIxNTM3IgxhbUJhbGFuY2VOb3ciDHByQmFsYW5jZU5vdyINJHQwMjE1NDEyMTY3NSIQYW1CYWxhbmNlRm9yQ2FsYyIQcHJCYWxhbmNlRm9yQ2FsYyIKeFByZWNpc2lvbiIGcmVzdWx0IgFAIg0kdDAyMjE0NDIyMjQwIgthbUFzc2V0UGFydCILcHJBc3NldFBhcnQiBmVzdFB1dCIHZXN0aW1MUCIJbHBBc3NldElkIhNnZXRPbmVUa25WMkludGVybmFsIgpvdXRBc3NldElkIgxtaW5PdXRBbW91bnQiCHBheW1lbnRzIgxvcmlnaW5DYWxsZXIiDXRyYW5zYWN0aW9uSWQiCmFtRGVjaW1hbHMiCnByRGVjaW1hbHMiCnBvb2xTdGF0dXMiDSR0MDIzNTk1MjM3MDMiCHRvdGFsR2V0Igt0b3RhbEFtb3VudCINJHQwMjM4OTAyMzk3NyIFb3V0QW0iBW91dFByIghjdXJQclgxOCIFY3VyUHIiEW91dEFzc2V0SWRPcldhdmVzIhBzZW5kRmVlVG9NYXRjaGVyIgRidXJuIgRnZXREIgJ4cCIBbiIDeHAwIgN4cDEiCmFQcmVjaXNpb24iAWEiAXMiA2FubiIEY2FsYyIDYWNjIgNjdXIiDSR0MDI1MTM1MjUxNTUiAWQiBWZvdW5kIgJkcCIFZE5leHQiBWREaWZmIgNhcnIiDSR0MDI1NTc5MjU2MjUiAiRsIgIkcyIFJGFjYzAiBSRmMF8xIgIkYSICJGkiBSRmMF8yIgVnZXRZRCIBRCIBeCIBYyIBYiINJHQwMjYxMjUyNjE0NSIBeSIFeU5leHQiBXlEaWZmIg0kdDAyNjQ1MjI2NDk5IgFtIgJwbSICcGQiAm1tIgJwayIXcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkiAmNtIgNocG0iA2NwbSIEc2xpcCIJYXV0b1N0YWtlIgdmYWN0Q2ZnIgtzdGFraW5nQ250ciIIc2xpcENudHIiAWUiAmVsIgZsZWdhY3kiAnNhIgJzcCIIbHBUcm5zZnIiAnNzIgVvdXRMcCIHZ3d4Q250ciIHcG9vbENmZyIFYWRkb24iEHBheW1lbnRBbW91bnRSYXciDSR0MDMxMTk1MzEyNDciDSR0MDMxNDA3MzIwMjMiDHZpcnRTd2FwSW5BbSINdmlydFN3YXBPdXRQciIMdmlydFN3YXBJblByIg12aXJ0U3dhcE91dEFtIgZEMHZzRDEiCWxwQ2FsY1JlcyINcGF5bWVudEFtb3VudCIOcGF5bWVudEFzc2V0SWQiD2xwQXNzZXRFbWlzc2lvbiIOcG9vbFByb3BvcnRpb24iD2Ftb3VudEFzc2V0UGFydCIOcHJpY2VBc3NldFBhcnQiCWxwQW10Qm90aCIFYm9udXMiB21heFNscGciCW91dEFtdEFtdCIKZXhjaFJlc3VsdCIHbm90VXNlZCIJb3V0QW1vdW50Igplc3RpbUFtQW10Igplc3RpbVByQW10Ig0kdDAzOTk4MzQwNDQzIgt0b3RhbEdldFJhdyIIZmluYWxSZXMiDSR0MDQxMTkwNDEyOTQiDSR0MDQyMzE5NDI0NzQiDWxwQXNzZXRBbW91bnQiDSR0MDQyOTg3NDMyOTUiFGFtb3VudEJhbGFuY2VGb3JTd2FwIhNwcmljZUJhbGFuY2VGb3JTd2FwIgxhbW91bnRUb1N3YXAiC2Ftb3VudFRvQWRkIgp5UHJlY2lzaW9uIg0kdDA0MzgyMzQzODcyIgpscEVtaXNzaW9uIgVpbmRleCIEbmV3WSICZHkiDSR0MDQ0NTYzNDQ2MTIiDSR0MDQ0OTU3NDUwNzIiDnN1bU9mR2V0QXNzZXRzIhJub0xlc3NUaGVuQW10QXNzZXQiFG5vTGVzc1RoZW5QcmljZUFzc2V0IhRidXJuTFBBc3NldE9uRmFjdG9yeSINY2hlY2tQYXltZW50cyIKZmFjdG9yeUNmZyIHc3Rha2luZyIKdW5zdGFrZUludiIBdiIFYnVybkEiDXVuc3Rha2VBbW91bnQiDSR0MDQ3Mzc3NDc1NjUiBWFzc2V0IgxwYXltZW50QXNzZXQiDSR0MDQ4MDAyNDgwOTIiDSR0MDQ4MDk2NDgyNzgiCGFtQW1vdW50IghwckFtb3VudCIMYW1CYWxhbmNlT2xkIgxwckJhbGFuY2VPbGQiDGFtQmFsYW5jZU5ldyIMcHJCYWxhbmNlTmV3IghscEFtb3VudCIIYW10QXNTdHIiB3ByQXNTdHIiAWsiAnByIgxyZXNTY2FsZU11bHQiB3VzckFkZHIiB3BtdEFzSWQiAnR4IgZ2ZXJpZnkiD3RhcmdldFB1YmxpY0tleSIKbWF0Y2hlclB1YiIKb3JkZXJWYWxpZCILc2VuZGVyVmFsaWQiDG1hdGNoZXJWYWxpZCIHbmV3SGFzaCILYWxsb3dlZEhhc2giC2N1cnJlbnRIYXNoXAABYQCAwtcvAAFiCQC2AgEAgMLXLwABYwkAtgIBAICAkLu61q3wDQABZAkAtgIBAAAAAWUJALYCAQAAAAFmCQC2AgEAAQABZwkAtgIBAAIAAWgJALYCAQkAZQIFAWEJAGkCCQBoAgUBYQABBQFhAAFpAgMxMDAAAWoCATEAAWsCAl9fAAFsAgAAAW0AAQABbgACAAFvAAMAAXAABAABcQABAAFyAAIAAXMAAwABdAAEAAF1AAUAAXYABgABdwAHAAF4AAgAAXkACQABegABAAFBAAcAAUIACgABQwkAawMABQUBYQCQTgEBRAIBRQFGCQC8AgMJALYCAQUBRQUBYwkAtgIBBQFGAQFHAgFIAUkJAKADAQkAvAIDBQFICQC2AgEFAUkFAWMBAUoDAUsBTAFNCQBrAwUBSwUBTAUBTQEBTgEBSAMJAL8CAgUBZAUBSAkAvgIBBQFIBQFIAQFPAQFIAwkAvwICBQFkBQFICQC+AgEFAUgFAUgBAVAAAhMlc19fZmFjdG9yeUNvbnRyYWN0AQFRAAIUJXNfX21hbmFnZXJQdWJsaWNLZXkBAVIAAhslc19fcGVuZGluZ01hbmFnZXJQdWJsaWNLZXkBAVMAAhElcyVzX19wcmljZV9fbGFzdAEBVAIBVQFWCQC5CQIJAMwIAgIYJXMlcyVkJWRfX3ByaWNlX19oaXN0b3J5CQDMCAIJAKQDAQUBVQkAzAgCCQCkAwEFAVYFA25pbAUBawEBVwIBWAFZCQCsAgIJAKwCAgkArAICAgslcyVzJXNfX1BfXwUBWAICX18FAVkBAVoCAVgBWQkArAICCQCsAgIJAKwCAgILJXMlcyVzX19HX18FAVgCAl9fBQFZAQJhYQACDyVzX19hbW91bnRBc3NldAECYWIAAg4lc19fcHJpY2VBc3NldAECYWMAAgclc19fYW1wAQJhZAACDSVzX19hZGRvbkFkZHIAAmFlAgclc19fZmVlAAJhZgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQJhZQUBQwECYWcAAhElc19fZmFjdG9yeUNvbmZpZwECYWgAAhglcyVzX19tYXRjaGVyX19wdWJsaWNLZXkBAmFpAgJhagJhawkArAICCQCsAgIJAKwCAgkArAICAgglZCVkJXNfXwUCYWoCAl9fBQJhawIIX19jb25maWcBAmFsAQJhbQkArAICAiglcyVzJXNfX21hcHBpbmdzX19iYXNlQXNzZXQyaW50ZXJuYWxJZF9fBQJhbQECYW4AAgwlc19fc2h1dGRvd24BAmFvAAIdJXNfX2FsbG93ZWRMcFN0YWJsZVNjcmlwdEhhc2gBAmFwAAIXJXNfX2ZlZUNvbGxlY3RvckFkZHJlc3MBAmFxAwJhcgJhcwJhdAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhFGYWlsZWQ6IG9yZFZhbGlkPQkApQMBBQJhcgILIHNuZHJWYWxpZD0JAKUDAQUCYXMCDCBtdGNoclZhbGlkPQkApQMBBQJhdAECYXUBAUgEAmF2BQFIAwkAAQIFAmF2AgZTdHJpbmcEAmF3BQJhdgUCYXcJAAIBAhNmYWlsIGNhc3QgdG8gU3RyaW5nAQJheAICYXkCYXoJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQJheQUCYXoJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUCYXkJAMwIAgIBLgkAzAgCBQJhegkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAQJhQQICYXkCYXoJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQJheQUCYXoJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUCYXkJAMwIAgIBLgkAzAgCBQJhegkAzAgCAgwgbm90IGRlZmluZWQFA25pbAIAAAJhQgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmF4AgUEdGhpcwkBAVAAAAJhQwkBAmF4AgUEdGhpcwkBAmFjAAECYUQACQELdmFsdWVPckVsc2UCCQCbCAIFAmFCCQECYW4ABwECYUUACQDZBAEJAQJheAIFAmFCCQECYWgAAAJhRgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBAmF4AgUCYUIJAQJhcAABAmFHAAQCYUgJAQJheAIFBHRoaXMJAQJhYQAEAmFJCQECYXgCBQR0aGlzCQECYWIABAJhSgkBAmFBAgUCYUIJAQJhbAEFAmFJBAJhagkBAmFBAgUCYUIJAQJhbAEFAmFICQC1CQIJAQJheAIFAmFCCQECYWkCCQCkAwEFAmFqCQCkAwEFAmFKBQFrAQJhSwAJALUJAgkBAmF4AgUCYUIJAQJhZwAFAWsAAmFMCQECYUsAAAJhTQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUwFAXoCIEludmFsaWQgc3Rha2luZyBjb250cmFjdCBhZGRyZXNzAAJhTgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUwFAUECIEludmFsaWQgc2xpcGFnZSBjb250cmFjdCBhZGRyZXNzAAJhTwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYUwFAUICHEludmFsaWQgZ3d4IGNvbnRyYWN0IGFkZHJlc3MBAmFQCgJhUQJhUgJhUwJhVAJhVQJhVgJhVwJhWAJhWQJhWgkAuQkCCQDMCAICFCVkJWQlZCVkJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYVEJAMwIAgkApAMBBQJhUgkAzAgCCQCkAwEFAmFTCQDMCAIJAKQDAQUCYVQJAMwIAgkApAMBBQJhVQkAzAgCCQCkAwEFAmFWCQDMCAIJAKQDAQUCYVcJAMwIAgkApAMBBQJhWAkAzAgCCQCkAwEFAmFZCQDMCAIJAKQDAQUCYVoFA25pbAUBawECYmEGAmJiAmJjAmJkAmFUAmFXAmFYCQC5CQIJAMwIAgIMJWQlZCVkJWQlZCVkCQDMCAIJAKQDAQUCYmIJAMwIAgkApAMBBQJiYwkAzAgCCQCkAwEFAmJkCQDMCAIJAKQDAQUCYVQJAMwIAgkApAMBBQJhVwkAzAgCCQCkAwEFAmFYBQNuaWwFAWsBAmJlAQJiZgMJAAACBQJiZgIFV0FWRVMICQDvBwEFBHRoaXMJYXZhaWxhYmxlCQDwBwIFBHRoaXMJANkEAQUCYmYBAmJnAgJiaAJiaQkAvAIDBQJiaAUBYwUCYmkBAmJqAwJiawJibAJibQQCYm4JALwCAwkAuAICBQJiawUCYmwFAWIFAmJsBAJibwkAvwICCQC4AgIFAmJtCQEBTgEFAmJuBQFkAwkBASEBBQJibwkAAgEJAKwCAgIKQmlnIHNscGc6IAkApgMBBQJibgkAlAoCBQJibwkAmQMBCQDMCAIFAmJrCQDMCAIFAmJsBQNuaWwBAmJwAwJicQJicgJicwQCYm4JALwCAwUCYnIFAWIFAmJxBAJidAkAvwICBQJicwUCYm4DAwUCYnQGCQC/AgIFAmJyBQJicQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKYDAQUCYnICASAJAKYDAQUCYnECASAJAKYDAQUCYm4CASAJAKYDAQUCYnMFAmJ0AQJidQQCYnYCYncCYngCYnkEAmJ6CQEBRAIFAmJ4BQJidgQCYkEJAQFEAgUCYnkFAmJ3CQECYmcCBQJiQQUCYnoBAmJCAwJieAJieQJiQwQCYkQJAQJhRwAEAmJFCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXYEAmJGCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUCYkQFAXcEAmJHCQECYnUEBQJiRQUCYkYFAmJ4BQJieQQCYmkJAQFEAgUCYngFAmJFBAJiaAkBAUQCBQJieQUCYkYEAmJICQEBRAIFAmJDBQFhBAJiSQkBAmJnAgUCYmkFAmJIBAJiSgkBAmJnAgUCYmgFAmJICQDMCAIFAmJHCQDMCAIFAmJJCQDMCAIFAmJKBQNuaWwBAmJLAwJieAJieQJiQwQCYkwJAQJiQgMFAmJ4BQJieQUCYkMJAMwIAgkBAUcCCQCRAwIFAmJMAAAFAWEJAMwIAgkBAUcCCQCRAwIFAmJMAAEFAWEJAMwIAgkBAUcCCQCRAwIFAmJMAAIFAWEFA25pbAECYk0BAmJOBAJiTwkAawMFAmJOBQJhZgUBYQkAlAoCCQBlAgUCYk4FAmJPBQJiTwECYlAEAmJRAmJSAmJTAmJUBAJiRAkBAmFHAAQCYlUJAJEDAgUCYkQFAXMEAmJWCQCRAwIFAmJEBQF0BAJiVwkAkQMCBQJiRAUBdQQCYlgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdgQCYlkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdwQCYloJAJEDAgUCYkQFAXIEAmNhCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCYlUCC1dyb25nIExQIGlkCHF1YW50aXR5AwkBAiE9AgUCYlUFAmJSCQACAQIPV3JvbmcgcG10IGFzc2V0BAJjYgkBAmJlAQUCYlYEAmNjCQEBRAIFAmNiBQJiWAQCY2QJAQJiZQEFAmJXBAJjZQkBAUQCBQJjZAUCYlkEAmNmCQECYmcCBQJjZQUCY2MEAmNnCQEBRwIFAmNmBQFhBAJjaAkBAUQCBQJiUwUBYQQCY2kJAQFEAgUCY2EFAWEEAmNqCQC8AgMFAmNjBQJjaAUCY2kEAmNrCQC8AgMFAmNlBQJjaAUCY2kEAmNsCQEBRwIFAmNqBQJiWAQCY20JAQFHAgUCY2sFAmJZBAJjbgMJAAACBQJiUQIABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlQFAmNsAwkAAAIFAmJWAgVXQVZFUwUEdW5pdAkA2QQBBQJiVgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJiVAUCY20DCQAAAgUCYlcCBVdBVkVTBQR1bml0CQDZBAEFAmJXCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFaAgkApQgBBQJiVAUCYlEJAQJiYQYFAmNsBQJjbQUCYlMFAmNnBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBUwAFAmNnCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEBVAIFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAFAmNnBQNuaWwJAJwKCgUCY2wFAmNtBQJiVgUCYlcFAmNiBQJjZAUCY2EFAmNmBQJiWgUCY24BAmNvDQJiUQJibQJjcAJjcQJjcgJjcwJiVAJjdAJjdQJjdgJjdwJjeAJjeQQCYkQJAQJhRwAEAmJVCQDZBAEJAJEDAgUCYkQFAXMEAmN6CQCRAwIFAmJEBQF0BAJjQQkAkQMCBQJiRAUBdQQCY0IJAJEDAgUCYkQFAXgEAmNDCQCRAwIFAmJEBQF5BAJjRAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF2BAJjRQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF3BAJiWgkAkQMCBQJiRAUBcgQCY0YICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQUCYlUCCFdyIGxwIGFzCHF1YW50aXR5BAJjYgMFAmN0CQECYmUBBQJjegMDBQJjdgkAAAIFAmN5BQJjegcJAGUCCQECYmUBBQJjegUCY3gDBQJjdgkBAmJlAQUCY3oJAGUCCQECYmUBBQJjegUCY3AEAmNkAwUCY3QJAQJiZQEFAmNBAwMFAmN2CQAAAgUCY3kFAmNBBwkAZQIJAQJiZQEFAmNBBQJjeAMFAmN2CQECYmUBBQJjQQkAZQIJAQJiZQEFAmNBBQJjcgQCY0cJAQFEAgUCY3AFAmNEBAJjSAkBAUQCBQJjcgUCY0UEAmNJCQECYmcCBQJjSAUCY0cEAmNjCQEBRAIFAmNiBQJjRAQCY2UJAQFEAgUCY2QFAmNFBAJjSgMJAAACBQJjRgAABAJjZgUBZAQCY0sFAWQEAmJICQB2BgkAuQICBQJjRwUCY0gAAAkAtgIBAAUAAQAABQRET1dOCQCXCgUJAQFHAgUCYkgFAWEJAQFHAgUCY0cFAmNECQEBRwIFAmNIBQJjRQkBAmJnAgkAtwICBQJjZQUCY0gJALcCAgUCY2MFAmNHBQJjSwQCY2YJAQJiZwIFAmNlBQJjYwQCY0wJALwCAwkBAU4BCQC4AgIFAmNmBQJjSQUBYwUCY2YEAmNLCQEBRAIFAmJtBQFhAwMDBQJjdwkBAiE9AgUCY2YFAWQHCQC/AgIFAmNMBQJjSwcJAAIBCQCsAgIJAKwCAgkArAICAg9QcmljZSBzbGlwcGFnZSAJAKYDAQUCY0wCAyA+IAkApgMBBQJjSwQCY00JAQFEAgUCY0YFAWEEAmNOCQC8AgMFAmNHBQJjZgUBYwQCY08JALwCAwUCY0gFAWMFAmNmBAJjUAMJAL8CAgUCY04FAmNICQCUCgIFAmNPBQJjSAkAlAoCBQJjRwUCY04EAmNRCAUCY1ACXzEEAmNSCAUCY1ACXzIEAmJICQC8AgMFAmNNBQJjUgUCY2UJAJcKBQkBAUcCBQJiSAUBYQkBAUcCBQJjUQUCY0QJAQFHAgUCY1IFAmNFBQJjZgUCY0sEAmNTCAUCY0oCXzEEAmNUCAUCY0oCXzIEAmNVCAUCY0oCXzMEAmNnCQEBRwIIBQJjSgJfNAUBYQQCY1YJAQFHAggFAmNKAl81BQFhAwkAZwIAAAUCY1MJAAIBAgdMUCA8PSAwBAJjVwMJAQEhAQUCY3UAAAUCY1MEAmNYCQBlAgUCY3AFAmNUBAJjWQkAZQIFAmNyBQJjVQQCY1oDAwUCY3YJAAACBQJjeQUCY3oHCQCUCgIFAmN4AAADAwUCY3YJAAACBQJjeQUCY0EHCQCUCgIAAAUCY3gJAJQKAgUCY1QFAmNVBAJkYQgFAmNaAl8xBAJkYggFAmNaAl8yBAJkYwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJjZwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJjZwkAzAgCCQELU3RyaW5nRW50cnkCCQEBVwIFAmJUBQJiUQkBAmFQCgUCZGEFAmRiBQJjVwUCY2cFAmJtBQJjVgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCY1gFAmNZBQNuaWwJAJ8KDQUCY1MFAmNXBQJjZwUCY2IFAmNkBQJjRgUCYlUFAmJaBQJkYwUCY1gFAmNZBQJjcQUCY3MBAmRkAQJkZQQCYkQJAQJhRwAEAmRmCQCRAwIFAmJEBQF0BAJkZwkAkQMCBQJiRAUBdQQCYloJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBcgQCYkUJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdgQCYkYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJiRAUBdwQCZGgJAQJiZQEFAmRmBAJkaQkBAmJlAQUCZGcEAmNmAwkAAAIIBQJkZQlvcmRlclR5cGUFA0J1eQkBAmJ1BAUCYkUFAmJGCQBkAgUCZGgIBQJkZQZhbW91bnQFAmRpCQECYnUEBQJiRQUCYkYJAGUCBQJkaAgFAmRlBmFtb3VudAUCZGkEAmNnCQEBRwIFAmNmBQFhAwMDCQECYUQABgkAAAIFAmJaBQFvBgkAAAIFAmJaBQFwCQACAQINQWRtaW4gYmxvY2tlZAQCZGoICAUCZGUJYXNzZXRQYWlyC2Ftb3VudEFzc2V0BAJkawMJAAACBQJkagUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUCZGoEAmRsCAgFAmRlCWFzc2V0UGFpcgpwcmljZUFzc2V0BAJkbQMJAAACBQJkbAUEdW5pdAIFV0FWRVMJANgEAQkBBXZhbHVlAQUCZGwDAwkBAiE9AgUCZGsFAmRmBgkBAiE9AgUCZG0FAmRnCQACAQIJV3IgYXNzZXRzBAJkbggFAmRlBXByaWNlBAJjRQkAawMFAWEFAmJGBQJiRQQCZG8JAQFKAwUCZG4FAWEFAmNFBAJkcAMJAAACCAUCZGUJb3JkZXJUeXBlBQNCdXkJAGcCBQJjZwUCZG8JAGcCBQJkbwUCY2cGAQJkcQECZHIDCQECIT0CCQCQAwEIBQJkcghwYXltZW50cwABCQACAQIKMSBwbW50IGV4cAQCZHMJAQV2YWx1ZQEJAJEDAggFAmRyCHBheW1lbnRzAAAEAmJSCQEFdmFsdWUBCAUCZHMHYXNzZXRJZAQCY3gIBQJkcwZhbW91bnQEAmNKCQECYlAECQDYBAEIBQJkcg10cmFuc2FjdGlvbklkCQDYBAEFAmJSBQJjeAgFAmRyBmNhbGxlcgQCY2wIBQJjSgJfMQQCY20IBQJjSgJfMgQCYloJAQ1wYXJzZUludFZhbHVlAQgFAmNKAl85BAJjbggFAmNKA18xMAMDCQECYUQABgkAAAIFAmJaBQFwCQACAQkArAICAg9BZG1pbiBibG9ja2VkOiAJAKQDAQUCYloJAJcKBQUCY2wFAmNtBQJjeAUCYlIFAmNuAQJkdAoCZHUBWQJkdgJkdwJibQJjdQJjdgJjdwJjeAJjeQQCY0oJAQJjbw0FAVkFAmJtCAkBBXZhbHVlAQUCZHYGYW1vdW50CAkBBXZhbHVlAQUCZHYHYXNzZXRJZAgJAQV2YWx1ZQEFAmR3BmFtb3VudAgJAQV2YWx1ZQEFAmR3B2Fzc2V0SWQFAmR1CQAAAgUBWQIABQJjdQUCY3YFAmN3BQJjeAUCY3kEAmJaCQENcGFyc2VJbnRWYWx1ZQEIBQJjSgJfOAMDAwkBAmFEAAYJAAACBQJiWgUBbgYJAAACBQJiWgUBcAkAAgEJAKwCAgIIQmxvY2tlZDoJAKQDAQUCYloFAmNKAQJkeAQCZHkCYlICYlQBWQQCZHoJAQJhRwAEAmJWCQCRAwIFAmR6BQF0BAJiVwkAkQMCBQJkegUBdQQCY2IJAQJiZQEFAmJWBAJjZAkBAmJlAQUCYlcEAmRBCQECYk0BBQJkeQQCY3gIBQJkQQJfMQQCYk8IBQJkQQJfMgQCZEIDCQAAAgUBWQIACQCUCgIFAmNiBQJjZAMJAAACBQJiUgUCYlYDCQBmAgUCZHkFAmNiCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCCQBlAgUCY2IFAmR5BQJjZAMJAAACBQJiUgUCYlcDCQBmAgUCZHkFAmNkCQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAlAoCBQJjYgkAZQIFAmNkBQJkeQkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmRDCAUCZEICXzEEAmRECAUCZEICXzIEAmRFAwkAAAIFAmJSBQJiVgkAlAoCBQJkQwUCZEQJAJQKAgUCZEQFAmRDBAJkRggFAmRFAl8xBAJkRwgFAmRFAl8yBAJkSAABBAJkSQoAAmRKCQD8BwQFAmFPAgxjYWxjUHV0WE9ubHkJAMwIAgkApAMBBQJjeAkAzAgCCQCkAwEFAmRGCQDMCAIJAKQDAQUCZEcJAMwIAgIACQDMCAIFAmFDCQDMCAIFAWkJAMwIAgkApAMBBQJkSAkAzAgCBQFqBQNuaWwFA25pbAMJAAECBQJkSgIKKEludCwgSW50KQUCZEoJAAIBCQCsAgIJAAMBBQJkSgIfIGNvdWxkbid0IGJlIGNhc3QgdG8gKEludCwgSW50KQQCZEsDCQAAAgUCYlIFAmJWBQJkSQkAlAoCCAUCZEkCXzIIBQJkSQJfMQQCZEwIBQJkSwJfMQQCZE0IBQJkSwJfMgQCZE4JAQJkdAoFAmJUBQFZCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVgUCZEwJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJXBQJkTQAABgYHBQJkeQUCYlIEAmRPCAUCZE4CXzIEAmRQCAUCZE4CXzcEAmNuCAUCZE4CXzkEAmNYCAUCZE4DXzEwBAJjWQgFAmROA18xMQUCZE4BAmRRBgJkUgJkUwJkVAJkdQJkVQJkVgMJAQIhPQIJAJADAQUCZFQAAQkAAgECCzEgcG1udCBleHBkBAJkegkBAmFHAAQCYlUJAJEDAgUCZHoFAXMEAmJWCQCRAwIFAmR6BQF0BAJiVwkAkQMCBQJkegUBdQQCZFcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJkegUBdgQCZFgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQJkegUBdwQCZFkJAJEDAgUCZHoFAXIEAmJUAwkAAAIFAmR1BQR0aGlzBQJkVQUCZHUEAmRzCQEFdmFsdWUBCQCRAwIFAmRUAAAEAmJSCQEFdmFsdWUBCAUCZHMHYXNzZXRJZAQCY3gIBQJkcwZhbW91bnQDCQBmAgCAlOvcAwUCY3gJAAIBAg1NaW4gcG10IDEwIExQBAJiUQkA2AQBBQJkVgMJAQIhPQIFAmJVCQDYBAEFAmJSCQACAQIIV3JvbmcgTFAEAmNiCQECYmUBBQJiVgQCY2QJAQJiZQEFAmJXBAJkWgoAAmRKCQD8BwQFBHRoaXMCE2dldE9uZVRrblYyUkVBRE9OTFkJAMwIAgUCZFIJAMwIAgUCY3gFA25pbAUDbmlsAwkAAQIFAmRKAgooSW50LCBJbnQpBQJkSgkAAgEJAKwCAgkAAwEFAmRKAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpBAJlYQgFAmRaAl8xBAJiTwgFAmRaAl8yBAJlYgMDCQBmAgUCZFMAAAkAZgIFAmRTBQJlYQcJAAIBCQC5CQIJAMwIAgIfYW1vdW50IHRvIHJlY2VpdmUgaXMgbGVzcyB0aGFuIAkAzAgCCQCkAwEFAmRTBQNuaWwCAAUCZWEEAmVjAwkAAAIFAmRSBQJiVgkAlAoCBQJlYgAACQCUCgIAAAUCZWIEAmVkCAUCZWMCXzEEAmVlCAUCZWMCXzIEAmVmCQECYmcCCQEBRAIFAmNkBQJkWAkBAUQCBQJjYgUCZFcEAmVnCQEBRwIFAmVmBQFhBAJlaAMJAAACBQJkUgIFV0FWRVMFBHVuaXQJANkEAQUCZFIEAmVpAwkAZgIFAmJPAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYUYFAmJPBQJlaAUDbmlsBQNuaWwEAmNuCQDOCAIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUCYlQFAmViBQJlaAkAzAgCCQELU3RyaW5nRW50cnkCCQEBWgIJAKUIAQUCYlQFAmJRCQECYmEGBQJlZAUCZWUFAmN4BQJlZwUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVMABQJlZwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBAVQCBQZoZWlnaHQIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQJlZwUDbmlsBQJlaQMJAAACBQJjbgUCY24EAmVqCQD8BwQFAmFCAgRidXJuCQDMCAIFAmN4BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJSBQJjeAUDbmlsAwkAAAIFAmVqBQJlagkAlAoCBQJjbgUCZWIJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BAmVrAQJlbAQCZW0FAWcEAmVuCQCRAwIFAmVsAAAEAmVvCQCRAwIFAmVsAAEEAmVwCQCnAwEFAWkEAmVxCQC5AgIJAKcDAQUCYUMFAmVwBAJlcgkAtwICBQJlbgUCZW8DCQAAAgUCZXIFAWUFAWUEAmVzCQC5AgIFAmVxBQJlbQoBAmV0AgJldQJldgQCZXcFAmV1BAJleAgFAmV3Al8xBAJleQgFAmV3Al8yAwkBAiE9AgUCZXkFBHVuaXQFAmV1BAJlegkAugICCQC5AgIJALkCAgUCZXgFAmV4BQJleAkAuQICCQC5AgIJALkCAgUCZW4FAmVvBQJlbQUCZW0EAmVBCQC6AgIJALkCAgkAtwICCQC6AgIJALkCAgUCZXMFAmVyBQJlcAkAuQICBQJlegUCZW0FAmV4CQC3AgIJALoCAgkAuQICCQC4AgIFAmVzBQJlcAUCZXgFAmVwCQC5AgIJALcCAgUCZW0JALYCAQABBQJlegQCZUIJAQFPAQkAuAICBQJlQQkBBXZhbHVlAQUCZXgDCQDAAgIFAWYFAmVCCQCUCgIFAmVBBQJldgkAlAoCBQJlQQUEdW5pdAQCZUMJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGBQNuaWwEAmVECgACZUUFAmVDCgACZUYJAJADAQUCZUUKAAJlRwkAlAoCBQJlcgUEdW5pdAoBAmVIAgJlSQJlSgMJAGcCBQJlSgUCZUYFAmVJCQECZXQCBQJlSQkAkQMCBQJlRQUCZUoKAQJlSwICZUkCZUoDCQBnAgUCZUoFAmVGBQJlSQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDcJAQJlSwIJAQJlSAIJAQJlSAIJAQJlSAIJAQJlSAIJAQJlSAIJAQJlSAIJAQJlSAIFAmVHAAAAAQACAAMABAAFAAYABwQCZXgIBQJlRAJfMQQCZXkIBQJlRAJfMgMJAQIhPQIFAmV5BQR1bml0BQJleAkAAgEJAKwCAgIZRCBjYWxjdWxhdGlvbiBlcnJvciwgRCA9IAkApgMBBQJleAECZUwDAmVsAmRyAmVNBAJlbQUBZwQCZU4JAJEDAgUCZWwDCQAAAgUCZHIAAAABAAAEAmVwCQCnAwEFAWkEAmVxCQC5AgIJAKcDAQUCYUMFAmVwBAJlcgUCZU4EAmVzCQC5AgIFAmVxBQJlbQQCZU8JALoCAgkAuQICCQC5AgIJALoCAgkAuQICBQJlTQUCZU0JALkCAgUCZU4FAmVtBQJlTQUCZXAJALkCAgUCZXMFAmVtBAJlUAkAuAICCQC3AgIFAmVyCQC6AgIJALkCAgUCZU0FAmVwBQJlcwUCZU0KAQJldAICZXUCZXYEAmVRBQJldQQCZVIIBQJlUQJfMQQCZXkIBQJlUQJfMgMJAQIhPQIFAmV5BQR1bml0BQJldQQCZVMJALoCAgkAtwICCQC5AgIFAmVSBQJlUgUCZU8JALcCAgkAuQICBQFnBQJlUgUCZVAEAmVUCQEBTwEJALgCAgUCZVMJAQV2YWx1ZQEFAmVSAwkAwAICBQFmBQJlVAkAlAoCBQJlUwUCZXYJAJQKAgUCZVMFBHVuaXQEAmVDCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOBQNuaWwEAmVVCgACZUUFAmVDCgACZUYJAJADAQUCZUUKAAJlRwkAlAoCBQJlTQUEdW5pdAoBAmVIAgJlSQJlSgMJAGcCBQJlSgUCZUYFAmVJCQECZXQCBQJlSQkAkQMCBQJlRQUCZUoKAQJlSwICZUkCZUoDCQBnAgUCZUoFAmVGBQJlSQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDE1CQECZUsCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCCQECZUgCBQJlRwAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPBAJlUggFAmVVAl8xBAJleQgFAmVVAl8yAwkBAiE9AgUCZXkFBHVuaXQFAmVSCQACAQkArAICAhlZIGNhbGN1bGF0aW9uIGVycm9yLCBZID0gCQCmAwEFAmVSAQJlVgAEAmF2CQCiCAEJAQFRAAMJAAECBQJhdgIGU3RyaW5nBAJlcgUCYXYJANkEAQUCZXIDCQABAgUCYXYCBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgECZVcABAJhdgkAoggBCQEBUgADCQABAgUCYXYCBlN0cmluZwQCZXIFAmF2CQDZBAEFAmVyAwkAAQIFAmF2AgRVbml0BQR1bml0CQACAQILTWF0Y2ggZXJyb3IAAmVYCQACAQIRUGVybWlzc2lvbiBkZW5pZWQBAmVZAQJkcgQCYXYJAQJlVgADCQABAgUCYXYCCkJ5dGVWZWN0b3IEAmVaBQJhdgMJAAACCAUCZHIPY2FsbGVyUHVibGljS2V5BQJlWgYFAmVYAwkAAQIFAmF2AgRVbml0AwkAAAIIBQJkcgZjYWxsZXIFBHRoaXMGBQJlWAkAAgECC01hdGNoIGVycm9yHgJkcgELY29uc3RydWN0b3IBAVAEAmVPCQECZVkBBQJkcgMJAAACBQJlTwUCZU8JAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVAABQFQBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHIBCnNldE1hbmFnZXIBAmZhBAJlTwkBAmVZAQUCZHIDCQAAAgUCZU8FAmVPBAJmYgkA2QQBBQJmYQMJAAACBQJmYgUCZmIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVIABQJmYQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyAQ5jb25maXJtTWFuYWdlcgAEAmJMCQECZVcABAJmYwMJAQlpc0RlZmluZWQBBQJiTAYJAAIBAhJObyBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmMFAmZjBAJmZAMJAAACCAUCZHIPY2FsbGVyUHVibGljS2V5CQEFdmFsdWUBBQJiTAYJAAIBAhtZb3UgYXJlIG5vdCBwZW5kaW5nIG1hbmFnZXIDCQAAAgUCZmQFAmZkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQFRAAkA2AQBCQEFdmFsdWUBBQJiTAkAzAgCCQELRGVsZXRlRW50cnkBCQEBUgAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEDcHV0AgJmZQJmZgQCZmcJAQJhSwAEAmZoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJmZwUBegIKV3Igc3QgYWRkcgQCZmkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmZnBQFBAgpXciBzbCBhZGRyAwkAZgIAAAUCZmUJAAIBAg5Xcm9uZyBzbGlwcGFnZQMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmZqCQECZHQKCQClCAEIBQJkcgZjYWxsZXIJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRyCHBheW1lbnRzAAEFAmZlBgcGAAACAAQCY1cIBQJmagJfMgQCZFAIBQJmagJfNwQCY24IBQJmagJfOQQCY1gIBQJmagNfMTAEAmNZCAUCZmoDXzExBAJiVggFAmZqA18xMgQCYlcIBQJmagNfMTMEAmNKCQD8BwQFAmFCAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAMJAAACBQJjSgUCY0oEAmZrBAJhdgUCY0oDCQABAgUCYXYCB0FkZHJlc3MEAmZsBQJhdgkA/AcEBQJmbAIEZW1pdAkAzAgCBQJjVwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZmsFAmZrBAJmbQMJAGYCBQJjWAAACQD8BwQFAmZpAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlYFAmNYBQNuaWwFA25pbAMJAAACBQJmbQUCZm0EAmZuAwkAZgIFAmNZAAAJAPwHBAUCZmkCA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJiVwUCY1kFA25pbAUDbmlsAwkAAAIFAmZuBQJmbgQCZm8DBQJmZgQCZnAJAPwHBAUCZmgCBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmRQBQJjVwUDbmlsAwkAAAIFAmZwBQJmcAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkcgZjYWxsZXIFAmNXBQJkUAUDbmlsCQDOCAIFAmNuBQJmbwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEJcHV0T25lVGtuBQJkTAJkTQJmcQJibQJmZgQCYkQJAQJhSwAEAmZoCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJiRAUBegIKV3Igc3QgYWRkcgQCZmkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFAmJEBQFBAgpXciBzbCBhZGRyBAJmcgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCYkQFAUICC1dyIGd3eCBhZGRyBAJmcwkBAmFHAAQCYlYJAJEDAgUCZnMFAXQEAmJXCQCRAwIFAmZzBQF1BAJiWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZzBQF2BAJiWQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmZzBQF3BAJmdAkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQECYWQAAgAEAmJUAwkAAAIFAmZ0CQClCAEIBQJkcgZjYWxsZXIIBQJkcgxvcmlnaW5DYWxsZXIIBQJkcgZjYWxsZXIDAwMDCQBnAgAABQJibQYJAGcCAAAFAmRMBgkAZwIAAAUCZE0GCQBnAgAABQJmcQkAAgECDFdyb25nIHBhcmFtcwMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAEJAAIBAgsxIHBtbnQgZXhwZAQCZHMJAQV2YWx1ZQEJAJEDAggFAmRyCHBheW1lbnRzAAAEAmJSCQDYBAEJAQV2YWx1ZQEIBQJkcwdhc3NldElkBAJmdQgFAmRzBmFtb3VudAQCZnYJAQJiTQEFAmZ1BAJjeAgFAmZ2Al8xBAJiTwgFAmZ2Al8yAwkAZgIAgK3iBAUCZnUJAAIBAg1Xcm9uZyBwbXQgYW10BAJjYgkBAmJlAQUCYlYEAmNkCQECYmUBBQJiVwQCZncDCQAAAgUCYlIFAmJWAwMJAGYCBQJmdQUCY2IGCQBmAgUCZEwFAmN4CQACAQIWaW52YWxpZCBwYXltZW50IGFtb3VudAkAmAoGCQBlAgUCY2IFAmZ1BQJjZAkAZQIFAmN4BQJkTAUCZE0AAAAAAwkAAAIFAmJSBQJiVwMDCQBmAgUCZnUFAmNkBgkAZgIFAmRNBQJjeAkAAgECFmludmFsaWQgcGF5bWVudCBhbW91bnQJAJgKBgUCY2IJAGUCBQJjZAUCZnUAAAAACQBlAgUCY3gFAmRNBQJkTAkAAgECEHdyb25nIHBtdEFzc2V0SWQEAmRDCAUCZncCXzEEAmRECAUCZncCXzIEAmZ4CAUCZncCXzMEAmZ5CAUCZncCXzQEAmZ6CAUCZncCXzUEAmZBCAUCZncCXzYEAmJyCQD8BwQFAmZyAgVjYWxjRAkAzAgCCQCkAwEFAmRDCQDMCAIJAKQDAQUCZEQJAMwIAgUCYUMJAMwIAgUBaQkAzAgCBQFqBQNuaWwFA25pbAQCYnEJAPwHBAUCZnICBWNhbGNECQDMCAIJAKYDAQkAtgIBCQBlAgkAZAIFAmRDBQJmeAUCZkEJAMwIAgkApgMBCQC2AgEJAGUCCQBkAgUCZEQFAmZ6BQJmeQkAzAgCBQJhQwkAzAgCBQFpCQDMCAIFAWoFA25pbAUDbmlsBAJmQgkBAmJwAwkApwMBCQECYXUBBQJicQkApwMBCQECYXUBBQJicgUBaAMJAAACBQJmQgUCZkIEAmROCQECZHQKCQClCAEIBQJkcgZjYWxsZXIJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJWBQJkTAkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlcFAmRNBQJibQYGBgUCY3gFAmJSBAJkTwgFAmROAl8yBAJkUAgFAmROAl83BAJjbggFAmROAl85BAJjWAgFAmROA18xMAQCY1kIBQJkTgNfMTEEAmZDCQECYmoDCQC2AgEFAmRPCQC2AgEFAmZxCQC2AgEFAmJtBAJjVwkAoAMBCAUCZkMCXzIEAmZqCQD8BwQFAmFCAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAMJAAACBQJmagUCZmoEAmZrBAJhdgUCZmoDCQABAgUCYXYCB0FkZHJlc3MEAmZsBQJhdgkA/AcEBQJmbAIEZW1pdAkAzAgCBQJjVwUDbmlsBQNuaWwFBHVuaXQDCQAAAgUCZmsFAmZrBAJmbQMJAGYCBQJjWAAACQD8BwQFAmZpAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVgUCY1gFA25pbAUDbmlsAwkAAAIFAmZtBQJmbQQCZm4DCQBmAgUCY1kAAAkA/AcEBQJmaQIDcHV0BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUCYlcFAmNZBQNuaWwFA25pbAMJAAACBQJmbgUCZm4EAmZvAwUCZmYEAmZwCQD8BwQFAmZoAgVzdGFrZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQJkUAUCY1cFA25pbAMJAAACBQJmcAUCZnAFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUCZHIGY2FsbGVyBQJjVwUCZFAFA25pbAQCZWkDCQBmAgUCYk8AAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhRgUCYk8JANkEAQUCYlIFA25pbAUDbmlsCQDOCAIJAM4IAgUCY24FAmZvBQJlaQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgELcHV0T25lVGtuVjICAmRTAmZmAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAQkAAgECCzEgcG1udCBleHBkBAJkegkBAmFHAAQCYlYJAJEDAgUCZHoFAXQEAmJXCQCRAwIFAmR6BQF1BAJkVwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmR6BQF2BAJkWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmR6BQF3BAJiVAMJAAACCAUCZHIGY2FsbGVyBQR0aGlzCAUCZHIMb3JpZ2luQ2FsbGVyCAUCZHIGY2FsbGVyBAJkcwkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAQCYlIJANgEAQkBBXZhbHVlAQgFAmRzB2Fzc2V0SWQEAmN4CAUCZHMGYW1vdW50AwkAZgIAgK3iBAUCY3gJAAIBAg1Xcm9uZyBwbXQgYW10BAJjSgkBAmR4BAUCY3gFAmJSCQClCAEFAmJUCQDYBAEIBQJkcg10cmFuc2FjdGlvbklkBAJkTwgFAmNKAl8yBAJkUAgFAmNKAl83BAJjbggFAmNKAl85BAJjWAgFAmNKA18xMAQCY1kIBQJjSgNfMTEEAmNXAwMJAGYCBQJkUwAACQBmAgUCZFMFAmRPBwkAAgEJALkJAgkAzAgCAh9hbW91bnQgdG8gcmVjZWl2ZSBpcyBsZXNzIHRoYW4gCQDMCAIJAKQDAQUCZFMFA25pbAIABQJkTwQCZmoJAPwHBAUCYUICBGVtaXQJAMwIAgUCY1cFA25pbAUDbmlsAwkAAAIFAmZqBQJmagQCZmsEAmF2BQJmagMJAAECBQJhdgIHQWRkcmVzcwQCZmwFAmF2CQD8BwQFAmZsAgRlbWl0CQDMCAIFAmNXBQNuaWwFA25pbAUEdW5pdAMJAAACBQJmawUCZmsEAmZtAwkAZgIFAmNYAAAJAPwHBAUCYU4CA3B1dAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFAmJWBQJjWAUDbmlsBQNuaWwDCQAAAgUCZm0FAmZtBAJmbgMJAGYCBQJjWQAACQD8BwQFAmFOAgNwdXQFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQJiVwUCY1kFA25pbAUDbmlsAwkAAAIFAmZuBQJmbgQCZm8DBQJmZgQCZnAJAPwHBAUCYU0CBXN0YWtlBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmRQBQJjVwUDbmlsAwkAAAIFAmZwBQJmcAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQJkcgZjYWxsZXIFAmNXBQJkUAUDbmlsBAJiTwgJAQJiTQEFAmN4Al8yBAJlaQMJAGYCBQJiTwAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmFGBQJiTwkA2QQBBQJiUgUDbmlsBQNuaWwJAJQKAgkAzggCCQDOCAIFAmNuBQJmbwUCZWkFAmNXCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAmRyAR9wdXRPbmVUa25WMldpdGhCb251c09sZFJFQURPTkxZAgJmRAJmRQQCZHoJAQJhRwAEAmJWCQCRAwIFAmR6BQF0BAJiVwkAkQMCBQJkegUBdQQCY0oJAQJkeAQFAmZEBQJmRQIAAgAEAmRPCAUCY0oCXzIEAmNnCAUCY0oCXzMEAmZGCAUCY0oCXzYEAmRQCAUCY0oCXzcEAmNiCQECYmUBBQJiVgQCY2QJAQJiZQEFAmJXBAJmRwkAawMFAmNkBQFhBQJjYgQCZkgJAGsDBQJmRAUBYQkAZAIFAmZHBQFhBAJmSQkAZQIFAmZEBQJmSAQCZkoJAGsDBQJmRgUCZkkFAmNkBAJmSwkAawMJAGUCBQJkTwUCZkoFAWEFAmZKBAJiTwgJAQJiTQEFAmZEAl8yCQCUCgIFA25pbAkAlQoDBQJkTwUCYk8FAmZLAmRyAQpwdXRGb3JGcmVlAQJmTAMJAGYCAAAFAmZMCQACAQIKV3Jvbmcgc2xwZwMJAQIhPQIJAJADAQgFAmRyCHBheW1lbnRzAAIJAAIBAgwyIHBtbnRzIGV4cGQEAmROCQECZHQKCQClCAEIBQJkcgZjYWxsZXIJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJAQ9BdHRhY2hlZFBheW1lbnQCCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAdhc3NldElkCAkBBXZhbHVlAQkAkQMCCAUCZHIIcGF5bWVudHMAAAZhbW91bnQJAJEDAggFAmRyCHBheW1lbnRzAAEFAmZMBwcGAAACAAgFAmROAl85AmRyAQNnZXQABAJjSgkBAmRxAQUCZHIEAmZNCAUCY0oCXzEEAmNtCAUCY0oCXzIEAmN4CAUCY0oCXzMEAmJSCAUCY0oCXzQEAmNuCAUCY0oCXzUEAmVQCQD8BwQFAmFCAgRidXJuCQDMCAIFAmN4BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJSBQJjeAUDbmlsAwkAAAIFAmVQBQJlUAUCY24JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHIBCWdldE9uZVRrbgUCZk4CZk8CZlACZFICYm0DCQECIT0CCQCQAwEIBQJkcghwYXltZW50cwABCQACAQILMSBwbW50IGV4cGQEAmJECQECYUcABAJiVQkAkQMCBQJiRAUBcwQCYlYJAJEDAgUCYkQFAXQEAmJXCQCRAwIFAmJEBQF1BAJiWAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF2BAJiWQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFAmJEBQF3BAJiWgkAkQMCBQJiRAUBcgQCZmcJAQJhSwAEAmZyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQJmZwUBQgIKV3Igc2wgYWRkcgQCZHMJAQV2YWx1ZQEJAJEDAggFAmRyCHBheW1lbnRzAAAEAmZ0CQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQJhZAACAAQCYlQDCQAAAgUCZnQJAKUIAQgFAmRyBmNhbGxlcggFAmRyDG9yaWdpbkNhbGxlcggFAmRyBmNhbGxlcgQCYlEJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQEAmJSCQEFdmFsdWUBCAUCZHMHYXNzZXRJZAQCY3gIBQJkcwZhbW91bnQDCQBmAgCAlOvcAwUCY3gJAAIBAg1NaW4gcG10IDEwIExQAwMDCQBmAgAABQJibQYJAGYCAAAFAmZOBgkAZgIAAAUCZlAJAAIBAgxXcm9uZyBwYXJhbXMDCQECIT0CBQJiVQkA2AQBBQJiUgkAAgECCFdyb25nIExQBAJjSgkBAmJQBAkA2AQBCAUCZHINdHJhbnNhY3Rpb25JZAkA2AQBBQJiUgUCY3gIBQJkcgZjYWxsZXIEAmZRCAUCY0oCXzEEAmZSCAUCY0oCXzIEAmNiCQECYmUBBQJiVgQCY2QJAQJiZQEFAmJXBAJmUwMJAAACBQJkUgUCYlYJAJkKBwkAZQIFAmNiBQJmUQkAZQIFAmNkBQJmUgUCZk4FAmZSAAAAAAkAZAIFAmZRBQJmTgMJAAACBQJkUgUCYlcJAJkKBwkAZQIFAmNiBQJmUQkAZQIFAmNkBQJmUgAAAAAFAmZOBQJmUQkAZAIFAmZSBQJmTgkAAgECEHdyb25nIG91dEFzc2V0SWQEAmRDCAUCZlMCXzEEAmRECAUCZlMCXzIEAmZ4CAUCZlMCXzMEAmZ5CAUCZlMCXzQEAmZ6CAUCZlMCXzUEAmZBCAUCZlMCXzYEAmZUCAUCZlMCXzcDAwkAZgIAAAUCZngGCQBmAgAABQJmegkAAgECCldyb25nIGNhbGMEAmJyCQD8BwQFAmZyAgVjYWxjRAkAzAgCCQCkAwEFAmRDCQDMCAIJAKQDAQUCZEQJAMwIAgUCYUMJAMwIAgUBaQkAzAgCBQFqBQNuaWwFA25pbAQCYnEJAPwHBAUCZnICBWNhbGNECQDMCAIJAKQDAQkAZAIJAGUCBQJkQwUCZngFAmZBCQDMCAIJAKQDAQkAZQIJAGQCBQJkRAUCZnkFAmZ6CQDMCAIFAmFDCQDMCAIFAWkJAMwIAgUBagUDbmlsBQNuaWwEAmZCCQECYnADCQCnAwEJAQJhdQEFAmJxCQCnAwEJAQJhdQEFAmJyBQFoAwkAAAIFAmZCBQJmQgQCZWEICQECYk0BBQJmVAJfMQQCZlUJAQJiagMJALYCAQUCZWEJALYCAQUCZlAJALYCAQUCYm0DCQAAAgUCZlUFAmZVBAJmVgMJAAACBQJkUgUCYlYJAJQKAgkAoAMBCAUCZlUCXzIAAAkAlAoCAAAJAKADAQgFAmZVAl8yBAJlZAgFAmZWAl8xBAJlZQgFAmZWAl8yBAJlYgkAZAIFAmVkBQJlZQQCYk8JAGUCBQJmVAUCZWEEAmVoAwkAAAIFAmRSAgVXQVZFUwUEdW5pdAkA2QQBBQJkUgQCZWkDCQBmAgUCYk8AAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQJhRgUCYk8FAmVoBQNuaWwFA25pbAQCZWYJAQJiZwIJAQFEAgUCY2QFAmJZCQEBRAIFAmNiBQJiWAQCZWcJAQFHAgUCZWYFAWEEAmNuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFAmJUBQJlYgUCZWgJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAVoCCQClCAEFAmJUBQJiUQkBAmJhBgUCZWQFAmVlBQJjeAUCZWcFBmhlaWdodAgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFTAAUCZWcJAMwIAgkBDEludGVnZXJFbnRyeQIJAQFUAgUGaGVpZ2h0CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUCZWcFA25pbAMJAAACBQJjbgUCY24EAmVqCQD8BwQFAmFCAgRidXJuCQDMCAIFAmN4BQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFAmJSBQJjeAUDbmlsAwkAAAIFAmVqBQJlagkAzggCBQJjbgUCZWkJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CZHIBC2dldE9uZVRrblYyAgJkUgJkUwQCZlcJAQJkUQYFAmRSBQJkUwgFAmRyCHBheW1lbnRzCAUCZHIGY2FsbGVyCAUCZHIMb3JpZ2luQ2FsbGVyCAUCZHINdHJhbnNhY3Rpb25JZAQCY24IBQJmVwJfMQQCZWIIBQJmVwJfMgkAlAoCBQJjbgUCZWICZHIBFmdldE9uZVRrblYyT2xkUkVBRE9OTFkCAmRSAmZYBAJkegkBAmFHAAQCYlUJAJEDAgUCZHoFAXMEAmJWCQCRAwIFAmR6BQF0BAJiVwkAkQMCBQJkegUBdQQCY0oJAQJiUAQCAAUCYlUFAmZYBQR0aGlzBAJmUQgFAmNKAl8xBAJmUggFAmNKAl8yBAJjYgkBAmJlAQUCYlYEAmNkCQECYmUBBQJiVwQCZEMJAGUCBQJjYgUCZlEEAmRECQBlAgUCY2QFAmZSBAJmWQMJAAACBQJkUgUCYlYJAJYKBAUCZEQFAmRDBQJmUgUCZlEDCQAAAgUCZFIFAmJXCQCWCgQFAmRDBQJkRAUCZlEFAmZSCQACAQIQd3Jvbmcgb3V0QXNzZXRJZAQCZloIBQJmWQJfMQQCZ2EIBQJmWQJfMgQCZ2IIBQJmWQJfMwQCZ2MIBQJmWQJfNAQCZ2QAAQQCZk4KAAJkSgkA/AcEBQJhTwIMY2FsY1N3YXBYVG9ZCQDMCAIJAKQDAQUCZ2IJAMwIAgkApAMBBQJmWgkAzAgCCQCkAwEFAmdhCQDMCAICAAkAzAgCBQJhQwkAzAgCBQFpCQDMCAIJAKQDAQUCZ2QJAMwIAgUBagUDbmlsBQNuaWwDCQABAgUCZEoCA0ludAUCZEoJAAIBCQCsAgIJAAMBBQJkSgIYIGNvdWxkbid0IGJlIGNhc3QgdG8gSW50BAJmVAkAZAIFAmZOBQJnYwQCZ2UJAQJiTQEFAmZUBAJlYQgFAmdlAl8xBAJiTwgFAmdlAl8yCQCUCgIFA25pbAkAlAoCBQJlYQUCYk8CZHIBE2dldE9uZVRrblYyUkVBRE9OTFkCAmRSAmZYBAJkegkBAmFHAAQCYlYJAJEDAgUCZHoFAXQEAmJXCQCRAwIFAmR6BQF1BAJiVQkAkQMCBQJkegUBcwQCZWwJAMwIAgkAtgIBCQECYmUBBQJiVgkAzAgCCQC2AgEJAQJiZQEFAmJXBQNuaWwEAmdmCQC2AgEICQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQJiVQIQaW52YWxpZCBscCBhc3NldAhxdWFudGl0eQQCYnIJAQJlawEFAmVsBAJicQkAuAICBQJicgkAvAIDCQC2AgEFAmZYBQJicgUCZ2YEAmdnAwkAAAIFAmRSBQJiVgAAAAEEAmdoCQECZUwDBQJlbAUCZ2cFAmJxBAJnaQkAuAICCQCRAwIFAmVsBQJnZwUCZ2gEAmZUCQCgAwEJALgCAgUCZ2kFAWYEAmdqCQECYk0BBQJmVAQCZWEIBQJnagJfMQQCYk8IBQJnagJfMgkAlAoCBQNuaWwJAJQKAgUCZWEFAmJPAmRyARxnZXRPbmVUa25WMldpdGhCb251c1JFQURPTkxZAgJkUgJmWAQCZHoJAQJhRwAEAmJWCQCRAwIFAmR6BQF0BAJiVwkAkQMCBQJkegUBdQQCYlUJAJEDAgUCZHoFAXMEAmNiCQECYmUBBQJiVgQCY2QJAQJiZQEFAmJXBAJnawoAAmRKCQD8BwQFBHRoaXMCE2dldE9uZVRrblYyUkVBRE9OTFkJAMwIAgUCZFIJAMwIAgUCZlgFA25pbAUDbmlsAwkAAQIFAmRKAgooSW50LCBJbnQpBQJkSgkAAgEJAKwCAgkAAwEFAmRKAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpBAJlYQgFAmdrAl8xBAJiTwgFAmdrAl8yBAJjSgkBAmJQBAIABQJiVQUCZlgFBHRoaXMEAmNsCAUCY0oCXzEEAmNtCAUCY0oCXzIEAmdsCQBkAgUCY2wFAmNtBAJmSwkAawMJAGUCBQJlYQUCZ2wFAWEFAmdsCQCUCgIFA25pbAkAlQoDBQJlYQUCYk8FAmZLAmRyAQlnZXROb0xlc3MCAmdtAmduBAJjSgkBAmRxAQUCZHIEAmNsCAUCY0oCXzEEAmNtCAUCY0oCXzIEAmN4CAUCY0oCXzMEAmJSCAUCY0oCXzQEAmNuCAUCY0oCXzUDCQBmAgUCZ20FAmNsCQACAQkArAICCQCsAgIJAKwCAgIJRmFpbGVkOiAgCQCkAwEFAmNsAgMgPCAJAKQDAQUCZ20DCQBmAgUCZ24FAmNtCQACAQkArAICCQCsAgIJAKwCAgIIRmFpbGVkOiAJAKQDAQUCY20CAyA8IAkApAMBBQJnbgQCZ28JAPwHBAUCYUICBGJ1cm4JAMwIAgUCY3gFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCYlIFAmN4BQNuaWwDCQAAAgUCZ28FAmdvBQJjbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgENdW5zdGFrZUFuZEdldAECYk4EAmdwAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAAkAAgECDU5vIHBtbnRzIGV4cGQGAwkAAAIFAmdwBQJncAQCYkQJAQJhRwAEAmdxCQECYUsABAJkUAkA2QQBCQCRAwIFAmJEBQFzBAJncgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3EFAXoCCldyIHN0IGFkZHIEAmdzCQD8BwQFAmdyAgd1bnN0YWtlCQDMCAIJANgEAQUCZFAJAMwIAgUCYk4FA25pbAUDbmlsAwkAAAIFAmdzBQJncwQCY0oJAQJiUAQJANgEAQgFAmRyDXRyYW5zYWN0aW9uSWQJANgEAQUCZFAFAmJOCAUCZHIGY2FsbGVyBAJiWgkBDXBhcnNlSW50VmFsdWUBCAUCY0oCXzkEAmNuCAUCY0oDXzEwBAJndAMDCQECYUQABgkAAAIFAmJaBQFwCQACAQkArAICAglCbG9ja2VkOiAJAKQDAQUCYloGAwkAAAIFAmd0BQJndAQCZ3UJAPwHBAUCYUICBGJ1cm4JAMwIAgUCYk4FA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZFAFAmJOBQNuaWwDCQAAAgUCZ3UFAmd1BQJjbgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgETdW5zdGFrZUFuZEdldE9uZVRrbgMCZ3YCZFICZFMEAmdwAwkBAiE9AgkAkAMBCAUCZHIIcGF5bWVudHMAAAkAAgECDU5vIHBtbnRzIGV4cGQGAwkAAAIFAmdwBQJncAQCYkQJAQJhRwAEAmdxCQECYUsABAJkUAkA2QQBCQCRAwIFAmJEBQFzBAJncgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUCZ3EFAXoCCldyIHN0IGFkZHIEAmdzCQD8BwQFAmdyAgd1bnN0YWtlCQDMCAIJANgEAQUCZFAJAMwIAgUCZ3YFA25pbAUDbmlsAwkAAAIFAmdzBQJncwQCZ3cJAQJkUQYFAmRSBQJkUwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUCZFAFAmd2BQNuaWwIBQJkcgZjYWxsZXIIBQJkcgxvcmlnaW5DYWxsZXIIBQJkcg10cmFuc2FjdGlvbklkBAJjbggFAmd3Al8xBAJlYggFAmd3Al8yCQCUCgIFAmNuBQJlYgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgJkcgEccHV0T25lVGtuVjJXaXRoQm9udXNSRUFET05MWQICYk4CZ3gEAmR6CQECYUcABAJiVgkAkQMCBQJkegUBdAQCYlcJAJEDAgUCZHoFAXUEAmJVCQCRAwIFAmR6BQFzBAJneQUCZ3gEAmZ1BQJiTgQCZ3oJAQJiTQEFAmZ1BAJmRAgFAmd6Al8xBAJiTwgFAmd6Al8yBAJnQQMJAAACBQJneQUCYlYJAJQKAgUCZkQAAAMJAAACBQJneQUCYlcJAJQKAgAABQJmRAkAAgECD2ludmFsaWQgcGF5bWVudAQCZ0IIBQJnQQJfMQQCZ0MIBQJnQQJfMgQCZ0QJAQJiZQEFAmJWBAJnRQkBAmJlAQUCYlcEAmdGCQBkAgUCZ0QFAmdCBAJnRwkAZAIFAmdEBQJnQwQCYnIJAQJlawEJAMwIAgkAtgIBBQJnRAkAzAgCCQC2AgEFAmdFBQNuaWwEAmJxCQECZWsBCQDMCAIJALYCAQUCZ0YJAMwIAgkAtgIBBQJnRwUDbmlsBAJnZgkAtgIBCAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUCYlUCEGludmFsaWQgbHAgYXNzZXQIcXVhbnRpdHkEAmdICQC6AgIJALkCAgUCZ2YJALgCAgUCYnEFAmJyBQJicgkAlAoCBQNuaWwJAJUKAwkAoAMBBQJnSAUCYk8AAAJkcgEIYWN0aXZhdGUCAmdJAmdKAwkBAiE9AgkApQgBCAUCZHIGY2FsbGVyCQClCAEFAmFCCQACAQIGZGVuaWVkCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFhAAUCZ0kJAMwIAgkBC1N0cmluZ0VudHJ5AgkBAmFiAAUCZ0oFA25pbAIHc3VjY2VzcwJkcgEEc2V0UwICZ0sCZ3QDCQECIT0CCQClCAEIBQJkcgZjYWxsZXIJAQJheAIFBHRoaXMJAQJhZAAFAmVYCQDMCAIJAQtTdHJpbmdFbnRyeQIFAmdLBQJndAUDbmlsAmRyAQRzZXRJAgJnSwJndAMJAQIhPQIJAKUIAQgFAmRyBmNhbGxlcgkBAmF4AgUEdGhpcwkBAmFkAAUCZVgJAMwIAgkBDEludGVnZXJFbnRyeQIFAmdLBQJndAUDbmlsAmRyARxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZAAkAlAoCBQNuaWwJAQJhRwACZHIBHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkBAmJmCQCUCgIFA25pbAkBAmJlAQUCYmYCZHIBGWNhbGNQcmljZXNXcmFwcGVyUkVBRE9OTFkDAmJ4AmJ5AmJDBAJnTAkBAmJCAwUCYngFAmJ5BQJiQwkAlAoCBQNuaWwJAMwIAgkApgMBCQCRAwIFAmdMAAAJAMwIAgkApgMBCQCRAwIFAmdMAAEJAMwIAgkApgMBCQCRAwIFAmdMAAIFA25pbAJkcgEWZnJvbVgxOFdyYXBwZXJSRUFET05MWQIBSAJnTQkAlAoCBQNuaWwJAQFHAgkApwMBBQFIBQJnTQJkcgEUdG9YMThXcmFwcGVyUkVBRE9OTFkCAUUBRgkAlAoCBQNuaWwJAKYDAQkBAUQCBQFFBQFGAmRyAR5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkCAmJoAmJpCQCUCgIFA25pbAkApgMBCQECYmcCCQCnAwEFAmJoCQCnAwEFAmJpAmRyASNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkCYlECYm0CY3ACY3ECY3ICY3MCZ04CY3QCY3UJAJQKAgUDbmlsCQECY28NBQJiUQUCYm0FAmNwBQJjcQUCY3IFAmNzBQJnTgUCY3QFAmN1BgcAAAIAAmRyASNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQQCYlECZ08CYlMCZ04EAmNKCQECYlAEBQJiUQUCZ08FAmJTCQERQGV4dHJOYXRpdmUoMTA2MikBBQJnTgkAlAoCBQNuaWwJAJwKCggFAmNKAl8xCAUCY0oCXzIIBQJjSgJfMwgFAmNKAl80CAUCY0oCXzUIBQJjSgJfNggFAmNKAl83CQCmAwEIBQJjSgJfOAgFAmNKAl85CAUCY0oDXzEwAmRyAQ5nZXRGZWVSRUFET05MWQAJAJQKAgUDbmlsBQJhZgECZ1ABAmdRAAQCZ1IEAmF2CQECZVYAAwkAAQIFAmF2AgpCeXRlVmVjdG9yBAJlWgUCYXYFAmVaAwkAAQIFAmF2AgRVbml0CAUCZ1APc2VuZGVyUHVibGljS2V5CQACAQILTWF0Y2ggZXJyb3IEAmF2BQJnUAMJAAECBQJhdgIFT3JkZXIEAmRlBQJhdgQCZ1MJAQJhRQAEAmdUCQECZGQBBQJkZQQCZ1UJAPQDAwgFAmRlCWJvZHlCeXRlcwkAkQMCCAUCZGUGcHJvb2ZzAAAIBQJkZQ9zZW5kZXJQdWJsaWNLZXkEAmdWCQD0AwMIBQJkZQlib2R5Qnl0ZXMJAJEDAggFAmRlBnByb29mcwABBQJnUwMDAwUCZ1QFAmdVBwUCZ1YHBgkBAmFxAwUCZ1QFAmdVBQJnVgMJAAECBQJhdgIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAmVyBQJhdgQCZ1cJAPYDAQkBBXZhbHVlAQgFAmVyBnNjcmlwdAQCZ1gJANsEAQkBBXZhbHVlAQkAnQgCBQJhQgkBAmFvAAQCZ1kJAPEHAQUEdGhpcwMDCQAAAgUCZ1gFAmdXCQECIT0CBQJnWQUCZ1cHBgkA9AMDCAUCZ1AJYm9keUJ5dGVzCQCRAwIIBQJnUAZwcm9vZnMAAAUCZ1IJAPQDAwgFAmdQCWJvZHlCeXRlcwkAkQMCCAUCZ1AGcHJvb2ZzAAAFAmdSqq4NoQ==",
    "chainId": 84,
    "height": 2260493,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Cdf8Zr2GsMYHSPkiZdWYSZmAf2nJ3PNz4bsLqHSuAFet
Next: 4iu2Eos1qQ8s4qEynGo5ywxgSBBjoJqirkpX5QgGvuW7

Diff: 
Old New Differences
1010 1010  
1011 1011  
1012 1012  @Callable(i)
1013 - func putOneTknV2OldREADONLY (paymentAmount,paymentAssetId) = {
1014 -     let r = estimatePutOneTknV2(paymentAmount, paymentAssetId, "", "")
1015 -     let estimLP = r._2
1016 -     let lpAssetId = r._7
1017 -     let state = r._9
1018 -     let amDiff = r._10
1019 -     let prDiff = r._11
1020 -     $Tuple2(nil, estimLP)
1021 -     }
1022 - 
1023 - 
1024 - 
1025 - @Callable(i)
1026 - func putOneTknV2WithBonusREADONLY (paymentAmount,paymentAssetId) = {
1013 + func putOneTknV2WithBonusOldREADONLY (paymentAmount,paymentAssetId) = {
1027 1014      let poolConfig = gpc()
1028 1015      let amId = poolConfig[idxAmAsId]
1029 1016      let prId = poolConfig[idxPrAsId]
1110 1097                          let estimPrAmt = r._2
1111 1098                          let amBalance = getAccBalance(amId)
1112 1099                          let prBalance = getAccBalance(prId)
1113 -                         let $t04028140741 = if ((outAssetId == amId))
1100 +                         let $t03998340443 = if ((outAssetId == amId))
1114 1101                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1115 1102                              else if ((outAssetId == prId))
1116 1103                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1117 1104                                  else throw("wrong outAssetId")
1118 -                         let amBalanceNow = $t04028140741._1
1119 -                         let prBalanceNow = $t04028140741._2
1120 -                         let virtSwapInAm = $t04028140741._3
1121 -                         let virtSwapOutPr = $t04028140741._4
1122 -                         let virtSwapInPr = $t04028140741._5
1123 -                         let virtSwapOutAm = $t04028140741._6
1124 -                         let totalGetRaw = $t04028140741._7
1105 +                         let amBalanceNow = $t03998340443._1
1106 +                         let prBalanceNow = $t03998340443._2
1107 +                         let virtSwapInAm = $t03998340443._3
1108 +                         let virtSwapOutPr = $t03998340443._4
1109 +                         let virtSwapInPr = $t03998340443._5
1110 +                         let virtSwapOutAm = $t03998340443._6
1111 +                         let totalGetRaw = $t03998340443._7
1125 1112                          if (if ((0 > virtSwapInAm))
1126 1113                              then true
1127 1114                              else (0 > virtSwapInPr))
1136 1123                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1137 1124                                          if ((finalRes == finalRes))
1138 1125                                              then {
1139 -                                                 let $t04148841592 = if ((outAssetId == amId))
1126 +                                                 let $t04119041294 = if ((outAssetId == amId))
1140 1127                                                      then $Tuple2(toInt(finalRes._2), 0)
1141 1128                                                      else $Tuple2(0, toInt(finalRes._2))
1142 -                                                 let outAm = $t04148841592._1
1143 -                                                 let outPr = $t04148841592._2
1129 +                                                 let outAm = $t04119041294._1
1130 +                                                 let outPr = $t04119041294._2
1144 1131                                                  let totalAmount = (outAm + outPr)
1145 1132                                                  let feeAmount = (totalGetRaw - totalGet)
1146 1133                                                  let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
1172 1159  
1173 1160  @Callable(i)
1174 1161  func getOneTknV2 (outAssetId,minOutAmount) = {
1175 -     let $t04261742772 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1176 -     let state = $t04261742772._1
1177 -     let totalAmount = $t04261742772._2
1162 +     let $t04231942474 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1163 +     let state = $t04231942474._1
1164 +     let totalAmount = $t04231942474._2
1178 1165      $Tuple2(state, totalAmount)
1179 1166      }
1180 1167  
1193 1180      let prBalance = getAccBalance(prId)
1194 1181      let amBalanceNow = (amBalance - estimAmAmt)
1195 1182      let prBalanceNow = (prBalance - estimPrAmt)
1196 -     let $t04328543593 = if ((outAssetId == amId))
1183 +     let $t04298743295 = if ((outAssetId == amId))
1197 1184          then $Tuple4(prBalanceNow, amBalanceNow, estimPrAmt, estimAmAmt)
1198 1185          else if ((outAssetId == prId))
1199 1186              then $Tuple4(amBalanceNow, prBalanceNow, estimAmAmt, estimPrAmt)
1200 1187              else throw("wrong outAssetId")
1201 -     let amountBalanceForSwap = $t04328543593._1
1202 -     let priceBalanceForSwap = $t04328543593._2
1203 -     let amountToSwap = $t04328543593._3
1204 -     let amountToAdd = $t04328543593._4
1188 +     let amountBalanceForSwap = $t04298743295._1
1189 +     let priceBalanceForSwap = $t04298743295._2
1190 +     let amountToSwap = $t04298743295._3
1191 +     let amountToAdd = $t04298743295._4
1205 1192      let yPrecision = 1
1206 1193      let exchResult = {
1207 1194          let @ = invoke(gwxContract, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)
1210 1197              else throw(($getType(@) + " couldn't be cast to Int"))
1211 1198          }
1212 1199      let totalGetRaw = (exchResult + amountToAdd)
1213 -     let $t04412144170 = takeFee(totalGetRaw)
1214 -     let totalGet = $t04412144170._1
1215 -     let feeAmount = $t04412144170._2
1200 +     let $t04382343872 = takeFee(totalGetRaw)
1201 +     let totalGet = $t04382343872._1
1202 +     let feeAmount = $t04382343872._2
1216 1203      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1217 1204      }
1218 1205  
1234 1221      let newY = getYD(xp, index, D1)
1235 1222      let dy = (xp[index] - newY)
1236 1223      let totalGetRaw = toInt((dy - big1))
1237 -     let $t04486144910 = takeFee(totalGetRaw)
1238 -     let totalGet = $t04486144910._1
1239 -     let feeAmount = $t04486144910._2
1224 +     let $t04456344612 = takeFee(totalGetRaw)
1225 +     let totalGet = $t04456344612._1
1226 +     let feeAmount = $t04456344612._2
1240 1227      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1241 1228      }
1242 1229  
1250 1237      let lpId = poolConfig[idxLPAsId]
1251 1238      let amBalance = getAccBalance(amId)
1252 1239      let prBalance = getAccBalance(prId)
1253 -     let $t04525545370 = {
1240 +     let $t04495745072 = {
1254 1241          let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1255 1242          if ($isInstanceOf(@, "(Int, Int)"))
1256 1243              then @
1257 1244              else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1258 1245          }
1259 -     let totalGet = $t04525545370._1
1260 -     let feeAmount = $t04525545370._2
1246 +     let totalGet = $t04495745072._1
1247 +     let feeAmount = $t04495745072._2
1261 1248      let r = ego("", lpId, lpAssetAmount, this)
1262 1249      let outAmAmt = r._1
1263 1250      let outPrAmt = r._2
1342 1329              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1343 1330              if ((unstakeInv == unstakeInv))
1344 1331                  then {
1345 -                     let $t04767547863 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1346 -                     let state = $t04767547863._1
1347 -                     let totalAmount = $t04767547863._2
1332 +                     let $t04737747565 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1333 +                     let state = $t04737747565._1
1334 +                     let totalAmount = $t04737747565._2
1348 1335                      $Tuple2(state, totalAmount)
1349 1336                      }
1350 1337                  else throw("Strict value is not equal to itself.")
1355 1342  
1356 1343  
1357 1344  @Callable(i)
1358 - func putOneTknV2READONLY (amount,asset) = {
1345 + func putOneTknV2WithBonusREADONLY (amount,asset) = {
1359 1346      let poolConfig = gpc()
1360 1347      let amId = poolConfig[idxAmAsId]
1361 1348      let prId = poolConfig[idxPrAsId]
1362 1349      let lpId = poolConfig[idxLPAsId]
1363 1350      let paymentAsset = asset
1364 1351      let paymentAmountRaw = amount
1365 -     let $t04829148381 = takeFee(paymentAmountRaw)
1366 -     let paymentAmount = $t04829148381._1
1367 -     let feeAmount = $t04829148381._2
1368 -     let $t04838548567 = if ((paymentAsset == amId))
1352 +     let $t04800248092 = takeFee(paymentAmountRaw)
1353 +     let paymentAmount = $t04800248092._1
1354 +     let feeAmount = $t04800248092._2
1355 +     let $t04809648278 = if ((paymentAsset == amId))
1369 1356          then $Tuple2(paymentAmount, 0)
1370 1357          else if ((paymentAsset == prId))
1371 1358              then $Tuple2(0, paymentAmount)
1372 1359              else throw("invalid payment")
1373 -     let amAmount = $t04838548567._1
1374 -     let prAmount = $t04838548567._2
1360 +     let amAmount = $t04809648278._1
1361 +     let prAmount = $t04809648278._2
1375 1362      let amBalanceOld = getAccBalance(amId)
1376 1363      let prBalanceOld = getAccBalance(prId)
1377 1364      let amBalanceNew = (amBalanceOld + amAmount)
1380 1367      let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
1381 1368      let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1382 1369      let lpAmount = ((lpEmission * (D1 - D0)) / D0)
1383 -     $Tuple2(nil, toInt(lpAmount))
1370 +     $Tuple2(nil, $Tuple3(toInt(lpAmount), feeAmount, 0))
1384 1371      }
1385 1372  
1386 1373  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let scale8 = 100000000
5 5  
6 6  let scale8BigInt = toBigInt(100000000)
7 7  
8 8  let scale18 = toBigInt(1000000000000000000)
9 9  
10 10  let zeroBigInt = toBigInt(0)
11 11  
12 12  let big0 = toBigInt(0)
13 13  
14 14  let big1 = toBigInt(1)
15 15  
16 16  let big2 = toBigInt(2)
17 17  
18 18  let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19 19  
20 20  let Amult = "100"
21 21  
22 22  let Dconv = "1"
23 23  
24 24  let SEP = "__"
25 25  
26 26  let EMPTY = ""
27 27  
28 28  let PoolActive = 1
29 29  
30 30  let PoolPutDis = 2
31 31  
32 32  let PoolMatcherDis = 3
33 33  
34 34  let PoolShutdown = 4
35 35  
36 36  let idxPoolAddress = 1
37 37  
38 38  let idxPoolSt = 2
39 39  
40 40  let idxLPAsId = 3
41 41  
42 42  let idxAmAsId = 4
43 43  
44 44  let idxPrAsId = 5
45 45  
46 46  let idxAmtAsDcm = 6
47 47  
48 48  let idxPriceAsDcm = 7
49 49  
50 50  let idxIAmtAsId = 8
51 51  
52 52  let idxIPriceAsId = 9
53 53  
54 54  let idxFactStakCntr = 1
55 55  
56 56  let idxFactSlippCntr = 7
57 57  
58 58  let idxFactGwxRewCntr = 10
59 59  
60 60  let feeDefault = fraction(5, scale8, 10000)
61 61  
62 62  func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63 63  
64 64  
65 65  func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66 66  
67 67  
68 68  func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69 69  
70 70  
71 71  func abs (val) = if ((zeroBigInt > val))
72 72      then -(val)
73 73      else val
74 74  
75 75  
76 76  func absBigInt (val) = if ((zeroBigInt > val))
77 77      then -(val)
78 78      else val
79 79  
80 80  
81 81  func fc () = "%s__factoryContract"
82 82  
83 83  
84 84  func mpk () = "%s__managerPublicKey"
85 85  
86 86  
87 87  func pmpk () = "%s__pendingManagerPublicKey"
88 88  
89 89  
90 90  func pl () = "%s%s__price__last"
91 91  
92 92  
93 93  func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
94 94  
95 95  
96 96  func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
97 97  
98 98  
99 99  func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
100 100  
101 101  
102 102  func aa () = "%s__amountAsset"
103 103  
104 104  
105 105  func pa () = "%s__priceAsset"
106 106  
107 107  
108 108  func amp () = "%s__amp"
109 109  
110 110  
111 111  func ada () = "%s__addonAddr"
112 112  
113 113  
114 114  let keyFee = "%s__fee"
115 115  
116 116  let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
117 117  
118 118  func fcfg () = "%s__factoryConfig"
119 119  
120 120  
121 121  func mtpk () = "%s%s__matcher__publicKey"
122 122  
123 123  
124 124  func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125 125  
126 126  
127 127  func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128 128  
129 129  
130 130  func aps () = "%s__shutdown"
131 131  
132 132  
133 133  func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134 134  
135 135  
136 136  func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137 137  
138 138  
139 139  func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140 140  
141 141  
142 142  func str (val) = match val {
143 143      case valStr: String => 
144 144          valStr
145 145      case _ => 
146 146          throw("fail cast to String")
147 147  }
148 148  
149 149  
150 150  func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151 151  
152 152  
153 153  func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154 154  
155 155  
156 156  let fca = addressFromStringValue(strf(this, fc()))
157 157  
158 158  let A = strf(this, amp())
159 159  
160 160  func igs () = valueOrElse(getBoolean(fca, aps()), false)
161 161  
162 162  
163 163  func mp () = fromBase58String(strf(fca, mtpk()))
164 164  
165 165  
166 166  let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
167 167  
168 168  func gpc () = {
169 169      let amtAs = strf(this, aa())
170 170      let priceAs = strf(this, pa())
171 171      let iPriceAs = intf(fca, mba(priceAs))
172 172      let iAmtAs = intf(fca, mba(amtAs))
173 173      split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
174 174      }
175 175  
176 176  
177 177  func gfc () = split(strf(fca, fcfg()), SEP)
178 178  
179 179  
180 180  let factoryConfig = gfc()
181 181  
182 182  let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
183 183  
184 184  let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
185 185  
186 186  let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
187 187  
188 188  func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
189 189  
190 190  
191 191  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)
192 192  
193 193  
194 194  func getAccBalance (assetId) = if ((assetId == "WAVES"))
195 195      then wavesBalance(this).available
196 196      else assetBalance(this, fromBase58String(assetId))
197 197  
198 198  
199 199  func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
200 200  
201 201  
202 202  func vad (A1,A2,slippage) = {
203 203      let diff = fraction((A1 - A2), scale8BigInt, A2)
204 204      let pass = ((slippage - abs(diff)) > zeroBigInt)
205 205      if (!(pass))
206 206          then throw(("Big slpg: " + toString(diff)))
207 207          else $Tuple2(pass, min([A1, A2]))
208 208      }
209 209  
210 210  
211 211  func vd (D1,D0,slpg) = {
212 212      let diff = fraction(D0, scale8BigInt, D1)
213 213      let fail = (slpg > diff)
214 214      if (if (fail)
215 215          then true
216 216          else (D0 > D1))
217 217          then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
218 218          else fail
219 219      }
220 220  
221 221  
222 222  func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
223 223      let amtAsAmtX18 = t1(amAmt, amAssetDcm)
224 224      let prAsAmtX18 = t1(prAmt, prAssetDcm)
225 225      cpbi(prAsAmtX18, amtAsAmtX18)
226 226      }
227 227  
228 228  
229 229  func calcPrices (amAmt,prAmt,lpAmt) = {
230 230      let cfg = gpc()
231 231      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
232 232      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
233 233      let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
234 234      let amAmtX18 = t1(amAmt, amtAsDcm)
235 235      let prAmtX18 = t1(prAmt, prAsDcm)
236 236      let lpAmtX18 = t1(lpAmt, scale8)
237 237      let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
238 238      let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
239 239  [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
240 240      }
241 241  
242 242  
243 243  func calculatePrices (amAmt,prAmt,lpAmt) = {
244 244      let p = calcPrices(amAmt, prAmt, lpAmt)
245 245  [f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
246 246      }
247 247  
248 248  
249 249  func takeFee (amount) = {
250 250      let feeAmount = fraction(amount, fee, scale8)
251 251      $Tuple2((amount - feeAmount), feeAmount)
252 252      }
253 253  
254 254  
255 255  func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
256 256      let cfg = gpc()
257 257      let lpId = cfg[idxLPAsId]
258 258      let amId = cfg[idxAmAsId]
259 259      let prId = cfg[idxPrAsId]
260 260      let amDcm = parseIntValue(cfg[idxAmtAsDcm])
261 261      let prDcm = parseIntValue(cfg[idxPriceAsDcm])
262 262      let sts = cfg[idxPoolSt]
263 263      let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
264 264      if ((lpId != pmtAssetId))
265 265          then throw("Wrong pmt asset")
266 266          else {
267 267              let amBalance = getAccBalance(amId)
268 268              let amBalanceX18 = t1(amBalance, amDcm)
269 269              let prBalance = getAccBalance(prId)
270 270              let prBalanceX18 = t1(prBalance, prDcm)
271 271              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
272 272              let curPrice = f1(curPriceX18, scale8)
273 273              let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
274 274              let lpEmissX18 = t1(lpEmiss, scale8)
275 275              let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
276 276              let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
277 277              let outAmAmt = f1(outAmAmtX18, amDcm)
278 278              let outPrAmt = f1(outPrAmtX18, prDcm)
279 279              let state = if ((txId58 == ""))
280 280                  then nil
281 281                  else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
282 282                      then unit
283 283                      else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
284 284                      then unit
285 285                      else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
286 286              $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
287 287              }
288 288      }
289 289  
290 290  
291 291  func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
292 292      let cfg = gpc()
293 293      let lpId = fromBase58String(cfg[idxLPAsId])
294 294      let amIdStr = cfg[idxAmAsId]
295 295      let prIdStr = cfg[idxPrAsId]
296 296      let inAmIdStr = cfg[idxIAmtAsId]
297 297      let inPrIdStr = cfg[idxIPriceAsId]
298 298      let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
299 299      let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
300 300      let sts = cfg[idxPoolSt]
301 301      let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
302 302      let amBalance = if (isEval)
303 303          then getAccBalance(amIdStr)
304 304          else if (if (isOneAsset)
305 305              then (pmtId == amIdStr)
306 306              else false)
307 307              then (getAccBalance(amIdStr) - pmtAmt)
308 308              else if (isOneAsset)
309 309                  then getAccBalance(amIdStr)
310 310                  else (getAccBalance(amIdStr) - inAmAmt)
311 311      let prBalance = if (isEval)
312 312          then getAccBalance(prIdStr)
313 313          else if (if (isOneAsset)
314 314              then (pmtId == prIdStr)
315 315              else false)
316 316              then (getAccBalance(prIdStr) - pmtAmt)
317 317              else if (isOneAsset)
318 318                  then getAccBalance(prIdStr)
319 319                  else (getAccBalance(prIdStr) - inPrAmt)
320 320      let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
321 321      let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
322 322      let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
323 323      let amBalanceX18 = t1(amBalance, amtDcm)
324 324      let prBalanceX18 = t1(prBalance, priceDcm)
325 325      let r = if ((lpEm == 0))
326 326          then {
327 327              let curPriceX18 = zeroBigInt
328 328              let slippageX18 = zeroBigInt
329 329              let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
330 330              $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
331 331              }
332 332          else {
333 333              let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
334 334              let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
335 335              let slippageX18 = t1(slippage, scale8)
336 336              if (if (if (validateSlippage)
337 337                  then (curPriceX18 != zeroBigInt)
338 338                  else false)
339 339                  then (slippageRealX18 > slippageX18)
340 340                  else false)
341 341                  then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
342 342                  else {
343 343                      let lpEmissionX18 = t1(lpEm, scale8)
344 344                      let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
345 345                      let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
346 346                      let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
347 347                          then $Tuple2(amViaPrX18, inPrAssetAmtX18)
348 348                          else $Tuple2(inAmAssetAmtX18, prViaAmX18)
349 349                      let expAmtAssetAmtX18 = expectedAmts._1
350 350                      let expPriceAssetAmtX18 = expectedAmts._2
351 351                      let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
352 352                      $Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
353 353                      }
354 354              }
355 355      let calcLpAmt = r._1
356 356      let calcAmAssetPmt = r._2
357 357      let calcPrAssetPmt = r._3
358 358      let curPrice = f1(r._4, scale8)
359 359      let slippageCalc = f1(r._5, scale8)
360 360      if ((0 >= calcLpAmt))
361 361          then throw("LP <= 0")
362 362          else {
363 363              let emitLpAmt = if (!(emitLp))
364 364                  then 0
365 365                  else calcLpAmt
366 366              let amDiff = (inAmAmt - calcAmAssetPmt)
367 367              let prDiff = (inPrAmt - calcPrAssetPmt)
368 368              let $t01635116696 = if (if (isOneAsset)
369 369                  then (pmtId == amIdStr)
370 370                  else false)
371 371                  then $Tuple2(pmtAmt, 0)
372 372                  else if (if (isOneAsset)
373 373                      then (pmtId == prIdStr)
374 374                      else false)
375 375                      then $Tuple2(0, pmtAmt)
376 376                      else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
377 377              let writeAmAmt = $t01635116696._1
378 378              let writePrAmt = $t01635116696._2
379 379              let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
380 380              $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
381 381              }
382 382      }
383 383  
384 384  
385 385  func moa (order) = {
386 386      let cfg = gpc()
387 387      let amtAsId = cfg[idxAmAsId]
388 388      let prAsId = cfg[idxPrAsId]
389 389      let sts = parseIntValue(cfg[idxPoolSt])
390 390      let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
391 391      let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
392 392      let accAmtAsBalance = getAccBalance(amtAsId)
393 393      let accPrAsBalance = getAccBalance(prAsId)
394 394      let curPriceX18 = if ((order.orderType == Buy))
395 395          then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
396 396          else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
397 397      let curPrice = f1(curPriceX18, scale8)
398 398      if (if (if (igs())
399 399          then true
400 400          else (sts == PoolMatcherDis))
401 401          then true
402 402          else (sts == PoolShutdown))
403 403          then throw("Admin blocked")
404 404          else {
405 405              let orAmtAsset = order.assetPair.amountAsset
406 406              let orAmtAsStr = if ((orAmtAsset == unit))
407 407                  then "WAVES"
408 408                  else toBase58String(value(orAmtAsset))
409 409              let orPrAsset = order.assetPair.priceAsset
410 410              let orPrAsStr = if ((orPrAsset == unit))
411 411                  then "WAVES"
412 412                  else toBase58String(value(orPrAsset))
413 413              if (if ((orAmtAsStr != amtAsId))
414 414                  then true
415 415                  else (orPrAsStr != prAsId))
416 416                  then throw("Wr assets")
417 417                  else {
418 418                      let orderPrice = order.price
419 419                      let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
420 420                      let castOrderPrice = ts(orderPrice, scale8, priceDcm)
421 421                      let isOrderPriceValid = if ((order.orderType == Buy))
422 422                          then (curPrice >= castOrderPrice)
423 423                          else (castOrderPrice >= curPrice)
424 424                      true
425 425                      }
426 426              }
427 427      }
428 428  
429 429  
430 430  func cg (i) = if ((size(i.payments) != 1))
431 431      then throw("1 pmnt exp")
432 432      else {
433 433          let pmt = value(i.payments[0])
434 434          let pmtAssetId = value(pmt.assetId)
435 435          let pmtAmt = pmt.amount
436 436          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
437 437          let outAmAmt = r._1
438 438          let outPrAmt = r._2
439 439          let sts = parseIntValue(r._9)
440 440          let state = r._10
441 441          if (if (igs())
442 442              then true
443 443              else (sts == PoolShutdown))
444 444              then throw(("Admin blocked: " + toString(sts)))
445 445              else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
446 446          }
447 447  
448 448  
449 449  func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
450 450      let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
451 451      let sts = parseIntValue(r._8)
452 452      if (if (if (igs())
453 453          then true
454 454          else (sts == PoolPutDis))
455 455          then true
456 456          else (sts == PoolShutdown))
457 457          then throw(("Blocked:" + toString(sts)))
458 458          else r
459 459      }
460 460  
461 461  
462 462  func estimatePutOneTknV2 (pmtAmtRaw,pmtAssetId,userAddress,txId) = {
463 463      let poolConfig = gpc()
464 464      let amId = poolConfig[idxAmAsId]
465 465      let prId = poolConfig[idxPrAsId]
466 466      let amBalance = getAccBalance(amId)
467 467      let prBalance = getAccBalance(prId)
468 468      let $t02102721072 = takeFee(pmtAmtRaw)
469 469      let pmtAmt = $t02102721072._1
470 470      let feeAmount = $t02102721072._2
471 471      let $t02107621537 = if ((txId == ""))
472 472          then $Tuple2(amBalance, prBalance)
473 473          else if ((pmtAssetId == amId))
474 474              then if ((pmtAmtRaw > amBalance))
475 475                  then throw("invalid payment amount")
476 476                  else $Tuple2((amBalance - pmtAmtRaw), prBalance)
477 477              else if ((pmtAssetId == prId))
478 478                  then if ((pmtAmtRaw > prBalance))
479 479                      then throw("invalid payment amount")
480 480                      else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
481 481                  else throw("wrong pmtAssetId")
482 482      let amBalanceNow = $t02107621537._1
483 483      let prBalanceNow = $t02107621537._2
484 484      let $t02154121675 = if ((pmtAssetId == amId))
485 485          then $Tuple2(amBalanceNow, prBalanceNow)
486 486          else $Tuple2(prBalanceNow, amBalanceNow)
487 487      let amBalanceForCalc = $t02154121675._1
488 488      let prBalanceForCalc = $t02154121675._2
489 489      let xPrecision = 1
490 490      let result = {
491 491          let @ = invoke(gwxContract, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
492 492          if ($isInstanceOf(@, "(Int, Int)"))
493 493              then @
494 494              else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
495 495          }
496 496      let $t02214422240 = if ((pmtAssetId == amId))
497 497          then result
498 498          else $Tuple2(result._2, result._1)
499 499      let amAssetPart = $t02214422240._1
500 500      let prAssetPart = $t02214422240._2
501 501      let estPut = cp(userAddress, txId, AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), 0, true, true, false, pmtAmtRaw, pmtAssetId)
502 502      let estimLP = estPut._2
503 503      let lpAssetId = estPut._7
504 504      let state = estPut._9
505 505      let amDiff = estPut._10
506 506      let prDiff = estPut._11
507 507      estPut
508 508      }
509 509  
510 510  
511 511  func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = if ((size(payments) != 1))
512 512      then throw("1 pmnt expd")
513 513      else {
514 514          let poolConfig = gpc()
515 515          let lpId = poolConfig[idxLPAsId]
516 516          let amId = poolConfig[idxAmAsId]
517 517          let prId = poolConfig[idxPrAsId]
518 518          let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
519 519          let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
520 520          let poolStatus = poolConfig[idxPoolSt]
521 521          let userAddress = if ((caller == this))
522 522              then originCaller
523 523              else caller
524 524          let pmt = value(payments[0])
525 525          let pmtAssetId = value(pmt.assetId)
526 526          let pmtAmt = pmt.amount
527 527          if ((1000000000 > pmtAmt))
528 528              then throw("Min pmt 10 LP")
529 529              else {
530 530                  let txId58 = toBase58String(transactionId)
531 531                  if ((lpId != toBase58String(pmtAssetId)))
532 532                      then throw("Wrong LP")
533 533                      else {
534 534                          let amBalance = getAccBalance(amId)
535 535                          let prBalance = getAccBalance(prId)
536 536                          let $t02359523703 = {
537 537                              let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
538 538                              if ($isInstanceOf(@, "(Int, Int)"))
539 539                                  then @
540 540                                  else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
541 541                              }
542 542                          let totalGet = $t02359523703._1
543 543                          let feeAmount = $t02359523703._2
544 544                          let totalAmount = if (if ((minOutAmount > 0))
545 545                              then (minOutAmount > totalGet)
546 546                              else false)
547 547                              then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
548 548                              else totalGet
549 549                          let $t02389023977 = if ((outAssetId == amId))
550 550                              then $Tuple2(totalAmount, 0)
551 551                              else $Tuple2(0, totalAmount)
552 552                          let outAm = $t02389023977._1
553 553                          let outPr = $t02389023977._2
554 554                          let curPrX18 = cpbi(t1(prBalance, prDecimals), t1(amBalance, amDecimals))
555 555                          let curPr = f1(curPrX18, scale8)
556 556                          let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
557 557                              then unit
558 558                              else fromBase58String(outAssetId)
559 559                          let sendFeeToMatcher = if ((feeAmount > 0))
560 560                              then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
561 561                              else nil
562 562                          let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
563 563                          if ((state == state))
564 564                              then {
565 565                                  let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
566 566                                  if ((burn == burn))
567 567                                      then $Tuple2(state, totalAmount)
568 568                                      else throw("Strict value is not equal to itself.")
569 569                                  }
570 570                              else throw("Strict value is not equal to itself.")
571 571                          }
572 572                  }
573 573          }
574 574  
575 575  
576 576  func getD (xp) = {
577 577      let n = big2
578 578      let xp0 = xp[0]
579 579      let xp1 = xp[1]
580 580      let aPrecision = parseBigIntValue(Amult)
581 581      let a = (parseBigIntValue(A) * aPrecision)
582 582      let s = (xp0 + xp1)
583 583      if ((s == big0))
584 584          then big0
585 585          else {
586 586              let ann = (a * n)
587 587              func calc (acc,cur) =             {
588 588                  let $t02513525155 = acc
589 589                  let d = $t02513525155._1
590 590                  let found = $t02513525155._2
591 591                  if ((found != unit))
592 592                      then acc
593 593                      else {
594 594                          let dp = (((d * d) * d) / (((xp0 * xp1) * n) * n))
595 595                          let dNext = (((((ann * s) / aPrecision) + (dp * n)) * d) / ((((ann - aPrecision) * d) / aPrecision) + ((n + toBigInt(1)) * dp)))
596 596                          let dDiff = absBigInt((dNext - value(d)))
597 597                          if ((big1 >= dDiff))
598 598                              then $Tuple2(dNext, cur)
599 599                              else $Tuple2(dNext, unit)
600 600                          }
601 601                  }
602 602  
603 603              let arr = [0, 1, 2, 3, 4, 5, 6]
604 604              let $t02557925625 = {
605 605                  let $l = arr
606 606                  let $s = size($l)
607 607                  let $acc0 = $Tuple2(s, unit)
608 608                  func $f0_1 ($a,$i) =                 if (($i >= $s))
609 609                      then $a
610 610                      else calc($a, $l[$i])
611 611  
612 612                  func $f0_2 ($a,$i) =                 if (($i >= $s))
613 613                      then $a
614 614                      else throw("List size exceeds 7")
615 615  
616 616                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7)
617 617                  }
618 618              let d = $t02557925625._1
619 619              let found = $t02557925625._2
620 620              if ((found != unit))
621 621                  then d
622 622                  else throw(("D calculation error, D = " + toString(d)))
623 623              }
624 624      }
625 625  
626 626  
627 627  func getYD (xp,i,D) = {
628 628      let n = big2
629 629      let x = xp[if ((i == 0))
630 630          then 1
631 631          else 0]
632 632      let aPrecision = parseBigIntValue(Amult)
633 633      let a = (parseBigIntValue(A) * aPrecision)
634 634      let s = x
635 635      let ann = (a * n)
636 636      let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
637 637      let b = ((s + ((D * aPrecision) / ann)) - D)
638 638      func calc (acc,cur) =     {
639 639          let $t02612526145 = acc
640 640          let y = $t02612526145._1
641 641          let found = $t02612526145._2
642 642          if ((found != unit))
643 643              then acc
644 644              else {
645 645                  let yNext = (((y * y) + c) / ((big2 * y) + b))
646 646                  let yDiff = absBigInt((yNext - value(y)))
647 647                  if ((big1 >= yDiff))
648 648                      then $Tuple2(yNext, cur)
649 649                      else $Tuple2(yNext, unit)
650 650                  }
651 651          }
652 652  
653 653      let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
654 654      let $t02645226499 = {
655 655          let $l = arr
656 656          let $s = size($l)
657 657          let $acc0 = $Tuple2(D, unit)
658 658          func $f0_1 ($a,$i) =         if (($i >= $s))
659 659              then $a
660 660              else calc($a, $l[$i])
661 661  
662 662          func $f0_2 ($a,$i) =         if (($i >= $s))
663 663              then $a
664 664              else throw("List size exceeds 15")
665 665  
666 666          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
667 667          }
668 668      let y = $t02645226499._1
669 669      let found = $t02645226499._2
670 670      if ((found != unit))
671 671          then y
672 672          else throw(("Y calculation error, Y = " + toString(y)))
673 673      }
674 674  
675 675  
676 676  func m () = match getString(mpk()) {
677 677      case s: String => 
678 678          fromBase58String(s)
679 679      case _: Unit => 
680 680          unit
681 681      case _ => 
682 682          throw("Match error")
683 683  }
684 684  
685 685  
686 686  func pm () = match getString(pmpk()) {
687 687      case s: String => 
688 688          fromBase58String(s)
689 689      case _: Unit => 
690 690          unit
691 691      case _ => 
692 692          throw("Match error")
693 693  }
694 694  
695 695  
696 696  let pd = throw("Permission denied")
697 697  
698 698  func mm (i) = match m() {
699 699      case pk: ByteVector => 
700 700          if ((i.callerPublicKey == pk))
701 701              then true
702 702              else pd
703 703      case _: Unit => 
704 704          if ((i.caller == this))
705 705              then true
706 706              else pd
707 707      case _ => 
708 708          throw("Match error")
709 709  }
710 710  
711 711  
712 712  @Callable(i)
713 713  func constructor (fc) = {
714 714      let c = mm(i)
715 715      if ((c == c))
716 716          then [StringEntry(fc(), fc)]
717 717          else throw("Strict value is not equal to itself.")
718 718      }
719 719  
720 720  
721 721  
722 722  @Callable(i)
723 723  func setManager (pendingManagerPublicKey) = {
724 724      let c = mm(i)
725 725      if ((c == c))
726 726          then {
727 727              let cm = fromBase58String(pendingManagerPublicKey)
728 728              if ((cm == cm))
729 729                  then [StringEntry(pmpk(), pendingManagerPublicKey)]
730 730                  else throw("Strict value is not equal to itself.")
731 731              }
732 732          else throw("Strict value is not equal to itself.")
733 733      }
734 734  
735 735  
736 736  
737 737  @Callable(i)
738 738  func confirmManager () = {
739 739      let p = pm()
740 740      let hpm = if (isDefined(p))
741 741          then true
742 742          else throw("No pending manager")
743 743      if ((hpm == hpm))
744 744          then {
745 745              let cpm = if ((i.callerPublicKey == value(p)))
746 746                  then true
747 747                  else throw("You are not pending manager")
748 748              if ((cpm == cpm))
749 749                  then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
750 750                  else throw("Strict value is not equal to itself.")
751 751              }
752 752          else throw("Strict value is not equal to itself.")
753 753      }
754 754  
755 755  
756 756  
757 757  @Callable(i)
758 758  func put (slip,autoStake) = {
759 759      let factCfg = gfc()
760 760      let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
761 761      let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
762 762      if ((0 > slip))
763 763          then throw("Wrong slippage")
764 764          else if ((size(i.payments) != 2))
765 765              then throw("2 pmnts expd")
766 766              else {
767 767                  let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
768 768                  let emitLpAmt = e._2
769 769                  let lpAssetId = e._7
770 770                  let state = e._9
771 771                  let amDiff = e._10
772 772                  let prDiff = e._11
773 773                  let amId = e._12
774 774                  let prId = e._13
775 775                  let r = invoke(fca, "emit", [emitLpAmt], nil)
776 776                  if ((r == r))
777 777                      then {
778 778                          let el =                         match r {
779 779                              case legacy: Address => 
780 780                                  invoke(legacy, "emit", [emitLpAmt], nil)
781 781                              case _ => 
782 782                                  unit
783 783                          }
784 784                          if ((el == el))
785 785                              then {
786 786                                  let sa = if ((amDiff > 0))
787 787                                      then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
788 788                                      else nil
789 789                                  if ((sa == sa))
790 790                                      then {
791 791                                          let sp = if ((prDiff > 0))
792 792                                              then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
793 793                                              else nil
794 794                                          if ((sp == sp))
795 795                                              then {
796 796                                                  let lpTrnsfr = if (autoStake)
797 797                                                      then {
798 798                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
799 799                                                          if ((ss == ss))
800 800                                                              then nil
801 801                                                              else throw("Strict value is not equal to itself.")
802 802                                                          }
803 803                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
804 804                                                  (state ++ lpTrnsfr)
805 805                                                  }
806 806                                              else throw("Strict value is not equal to itself.")
807 807                                          }
808 808                                      else throw("Strict value is not equal to itself.")
809 809                                  }
810 810                              else throw("Strict value is not equal to itself.")
811 811                          }
812 812                      else throw("Strict value is not equal to itself.")
813 813                  }
814 814      }
815 815  
816 816  
817 817  
818 818  @Callable(i)
819 819  func putOneTkn (amAssetPart,prAssetPart,outLp,slippage,autoStake) = {
820 820      let cfg = gfc()
821 821      let stakingCntr = valueOrErrorMessage(addressFromString(cfg[idxFactStakCntr]), "Wr st addr")
822 822      let slipCntr = valueOrErrorMessage(addressFromString(cfg[idxFactSlippCntr]), "Wr sl addr")
823 823      let gwxCntr = valueOrErrorMessage(addressFromString(cfg[idxFactGwxRewCntr]), "Wr gwx addr")
824 824      let poolCfg = gpc()
825 825      let amId = poolCfg[idxAmAsId]
826 826      let prId = poolCfg[idxPrAsId]
827 827      let amDcm = parseIntValue(poolCfg[idxAmtAsDcm])
828 828      let prDcm = parseIntValue(poolCfg[idxPriceAsDcm])
829 829      let addon = valueOrElse(getString(this, ada()), "")
830 830      let userAddress = if ((addon == toString(i.caller)))
831 831          then i.originCaller
832 832          else i.caller
833 833      if (if (if (if ((0 >= slippage))
834 834          then true
835 835          else (0 >= amAssetPart))
836 836          then true
837 837          else (0 >= prAssetPart))
838 838          then true
839 839          else (0 >= outLp))
840 840          then throw("Wrong params")
841 841          else if ((size(i.payments) != 1))
842 842              then throw("1 pmnt expd")
843 843              else {
844 844                  let pmt = value(i.payments[0])
845 845                  let pmtAssetId = toBase58String(value(pmt.assetId))
846 846                  let paymentAmountRaw = pmt.amount
847 847                  let $t03119531247 = takeFee(paymentAmountRaw)
848 848                  let pmtAmt = $t03119531247._1
849 849                  let feeAmount = $t03119531247._2
850 850                  if ((10000000 > paymentAmountRaw))
851 851                      then throw("Wrong pmt amt")
852 852                      else {
853 853                          let amBalance = getAccBalance(amId)
854 854                          let prBalance = getAccBalance(prId)
855 855                          let $t03140732023 = if ((pmtAssetId == amId))
856 856                              then if (if ((paymentAmountRaw > amBalance))
857 857                                  then true
858 858                                  else (amAssetPart > pmtAmt))
859 859                                  then throw("invalid payment amount")
860 860                                  else $Tuple6((amBalance - paymentAmountRaw), prBalance, (pmtAmt - amAssetPart), prAssetPart, 0, 0)
861 861                              else if ((pmtAssetId == prId))
862 862                                  then if (if ((paymentAmountRaw > prBalance))
863 863                                      then true
864 864                                      else (prAssetPart > pmtAmt))
865 865                                      then throw("invalid payment amount")
866 866                                      else $Tuple6(amBalance, (prBalance - paymentAmountRaw), 0, 0, (pmtAmt - prAssetPart), amAssetPart)
867 867                                  else throw("wrong pmtAssetId")
868 868                          let amBalanceNow = $t03140732023._1
869 869                          let prBalanceNow = $t03140732023._2
870 870                          let virtSwapInAm = $t03140732023._3
871 871                          let virtSwapOutPr = $t03140732023._4
872 872                          let virtSwapInPr = $t03140732023._5
873 873                          let virtSwapOutAm = $t03140732023._6
874 874                          let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
875 875                          let D1 = invoke(gwxCntr, "calcD", [toString(toBigInt(((amBalanceNow + virtSwapInAm) - virtSwapOutAm))), toString(toBigInt(((prBalanceNow + virtSwapInPr) - virtSwapOutPr))), A, Amult, Dconv], nil)
876 876                          let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
877 877                          if ((D0vsD1 == D0vsD1))
878 878                              then {
879 879                                  let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(fromBase58String(amId), amAssetPart), AttachedPayment(fromBase58String(prId), prAssetPart), slippage, true, true, true, pmtAmt, pmtAssetId)
880 880                                  let estimLP = estPut._2
881 881                                  let lpAssetId = estPut._7
882 882                                  let state = estPut._9
883 883                                  let amDiff = estPut._10
884 884                                  let prDiff = estPut._11
885 885                                  let lpCalcRes = vad(toBigInt(estimLP), toBigInt(outLp), toBigInt(slippage))
886 886                                  let emitLpAmt = toInt(lpCalcRes._2)
887 887                                  let e = invoke(fca, "emit", [emitLpAmt], nil)
888 888                                  if ((e == e))
889 889                                      then {
890 890                                          let el =                                         match e {
891 891                                              case legacy: Address => 
892 892                                                  invoke(legacy, "emit", [emitLpAmt], nil)
893 893                                              case _ => 
894 894                                                  unit
895 895                                          }
896 896                                          if ((el == el))
897 897                                              then {
898 898                                                  let sa = if ((amDiff > 0))
899 899                                                      then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
900 900                                                      else nil
901 901                                                  if ((sa == sa))
902 902                                                      then {
903 903                                                          let sp = if ((prDiff > 0))
904 904                                                              then invoke(slipCntr, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
905 905                                                              else nil
906 906                                                          if ((sp == sp))
907 907                                                              then {
908 908                                                                  let lpTrnsfr = if (autoStake)
909 909                                                                      then {
910 910                                                                          let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
911 911                                                                          if ((ss == ss))
912 912                                                                              then nil
913 913                                                                              else throw("Strict value is not equal to itself.")
914 914                                                                          }
915 915                                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
916 916                                                                  let sendFeeToMatcher = if ((feeAmount > 0))
917 917                                                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
918 918                                                                      else nil
919 919                                                                  ((state ++ lpTrnsfr) ++ sendFeeToMatcher)
920 920                                                                  }
921 921                                                              else throw("Strict value is not equal to itself.")
922 922                                                          }
923 923                                                      else throw("Strict value is not equal to itself.")
924 924                                                  }
925 925                                              else throw("Strict value is not equal to itself.")
926 926                                          }
927 927                                      else throw("Strict value is not equal to itself.")
928 928                                  }
929 929                              else throw("Strict value is not equal to itself.")
930 930                          }
931 931                  }
932 932      }
933 933  
934 934  
935 935  
936 936  @Callable(i)
937 937  func putOneTknV2 (minOutAmount,autoStake) = if ((size(i.payments) != 1))
938 938      then throw("1 pmnt expd")
939 939      else {
940 940          let poolConfig = gpc()
941 941          let amId = poolConfig[idxAmAsId]
942 942          let prId = poolConfig[idxPrAsId]
943 943          let amDecimals = parseIntValue(poolConfig[idxAmtAsDcm])
944 944          let prDecimals = parseIntValue(poolConfig[idxPriceAsDcm])
945 945          let userAddress = if ((i.caller == this))
946 946              then i.originCaller
947 947              else i.caller
948 948          let pmt = value(i.payments[0])
949 949          let pmtAssetId = toBase58String(value(pmt.assetId))
950 950          let pmtAmt = pmt.amount
951 951          if ((10000000 > pmtAmt))
952 952              then throw("Wrong pmt amt")
953 953              else {
954 954                  let r = estimatePutOneTknV2(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId))
955 955                  let estimLP = r._2
956 956                  let lpAssetId = r._7
957 957                  let state = r._9
958 958                  let amDiff = r._10
959 959                  let prDiff = r._11
960 960                  let emitLpAmt = if (if ((minOutAmount > 0))
961 961                      then (minOutAmount > estimLP)
962 962                      else false)
963 963                      then throw(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
964 964                      else estimLP
965 965                  let e = invoke(fca, "emit", [emitLpAmt], nil)
966 966                  if ((e == e))
967 967                      then {
968 968                          let el =                         match e {
969 969                              case legacy: Address => 
970 970                                  invoke(legacy, "emit", [emitLpAmt], nil)
971 971                              case _ => 
972 972                                  unit
973 973                          }
974 974                          if ((el == el))
975 975                              then {
976 976                                  let sa = if ((amDiff > 0))
977 977                                      then invoke(slipageContract, "put", nil, [AttachedPayment(fromBase58String(amId), amDiff)])
978 978                                      else nil
979 979                                  if ((sa == sa))
980 980                                      then {
981 981                                          let sp = if ((prDiff > 0))
982 982                                              then invoke(slipageContract, "put", nil, [AttachedPayment(fromBase58String(prId), prDiff)])
983 983                                              else nil
984 984                                          if ((sp == sp))
985 985                                              then {
986 986                                                  let lpTrnsfr = if (autoStake)
987 987                                                      then {
988 988                                                          let ss = invoke(stakingContract, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
989 989                                                          if ((ss == ss))
990 990                                                              then nil
991 991                                                              else throw("Strict value is not equal to itself.")
992 992                                                          }
993 993                                                      else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
994 994                                                  let feeAmount = takeFee(pmtAmt)._2
995 995                                                  let sendFeeToMatcher = if ((feeAmount > 0))
996 996                                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
997 997                                                      else nil
998 998                                                  $Tuple2(((state ++ lpTrnsfr) ++ sendFeeToMatcher), emitLpAmt)
999 999                                                  }
1000 1000                                              else throw("Strict value is not equal to itself.")
1001 1001                                          }
1002 1002                                      else throw("Strict value is not equal to itself.")
1003 1003                                  }
1004 1004                              else throw("Strict value is not equal to itself.")
1005 1005                          }
1006 1006                      else throw("Strict value is not equal to itself.")
1007 1007                  }
1008 1008          }
1009 1009  
1010 1010  
1011 1011  
1012 1012  @Callable(i)
1013 - func putOneTknV2OldREADONLY (paymentAmount,paymentAssetId) = {
1014 -     let r = estimatePutOneTknV2(paymentAmount, paymentAssetId, "", "")
1015 -     let estimLP = r._2
1016 -     let lpAssetId = r._7
1017 -     let state = r._9
1018 -     let amDiff = r._10
1019 -     let prDiff = r._11
1020 -     $Tuple2(nil, estimLP)
1021 -     }
1022 - 
1023 - 
1024 - 
1025 - @Callable(i)
1026 - func putOneTknV2WithBonusREADONLY (paymentAmount,paymentAssetId) = {
1013 + func putOneTknV2WithBonusOldREADONLY (paymentAmount,paymentAssetId) = {
1027 1014      let poolConfig = gpc()
1028 1015      let amId = poolConfig[idxAmAsId]
1029 1016      let prId = poolConfig[idxPrAsId]
1030 1017      let r = estimatePutOneTknV2(paymentAmount, paymentAssetId, "", "")
1031 1018      let estimLP = r._2
1032 1019      let curPrice = r._3
1033 1020      let lpAssetEmission = r._6
1034 1021      let lpAssetId = r._7
1035 1022      let amBalance = getAccBalance(amId)
1036 1023      let prBalance = getAccBalance(prId)
1037 1024      let poolProportion = fraction(prBalance, scale8, amBalance)
1038 1025      let amountAssetPart = fraction(paymentAmount, scale8, (poolProportion + scale8))
1039 1026      let priceAssetPart = (paymentAmount - amountAssetPart)
1040 1027      let lpAmtBoth = fraction(lpAssetEmission, priceAssetPart, prBalance)
1041 1028      let bonus = fraction((estimLP - lpAmtBoth), scale8, lpAmtBoth)
1042 1029      let feeAmount = takeFee(paymentAmount)._2
1043 1030      $Tuple2(nil, $Tuple3(estimLP, feeAmount, bonus))
1044 1031      }
1045 1032  
1046 1033  
1047 1034  
1048 1035  @Callable(i)
1049 1036  func putForFree (maxSlpg) = if ((0 > maxSlpg))
1050 1037      then throw("Wrong slpg")
1051 1038      else if ((size(i.payments) != 2))
1052 1039          then throw("2 pmnts expd")
1053 1040          else {
1054 1041              let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, true, 0, "")
1055 1042              estPut._9
1056 1043              }
1057 1044  
1058 1045  
1059 1046  
1060 1047  @Callable(i)
1061 1048  func get () = {
1062 1049      let r = cg(i)
1063 1050      let outAmtAmt = r._1
1064 1051      let outPrAmt = r._2
1065 1052      let pmtAmt = r._3
1066 1053      let pmtAssetId = r._4
1067 1054      let state = r._5
1068 1055      let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1069 1056      if ((b == b))
1070 1057          then state
1071 1058          else throw("Strict value is not equal to itself.")
1072 1059      }
1073 1060  
1074 1061  
1075 1062  
1076 1063  @Callable(i)
1077 1064  func getOneTkn (exchResult,notUsed,outAmount,outAssetId,slippage) = if ((size(i.payments) != 1))
1078 1065      then throw("1 pmnt expd")
1079 1066      else {
1080 1067          let cfg = gpc()
1081 1068          let lpId = cfg[idxLPAsId]
1082 1069          let amId = cfg[idxAmAsId]
1083 1070          let prId = cfg[idxPrAsId]
1084 1071          let amDcm = parseIntValue(cfg[idxAmtAsDcm])
1085 1072          let prDcm = parseIntValue(cfg[idxPriceAsDcm])
1086 1073          let sts = cfg[idxPoolSt]
1087 1074          let factCfg = gfc()
1088 1075          let gwxCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactGwxRewCntr]), "Wr sl addr")
1089 1076          let pmt = value(i.payments[0])
1090 1077          let addon = valueOrElse(getString(this, ada()), "")
1091 1078          let userAddress = if ((addon == toString(i.caller)))
1092 1079              then i.originCaller
1093 1080              else i.caller
1094 1081          let txId58 = toBase58String(i.transactionId)
1095 1082          let pmtAssetId = value(pmt.assetId)
1096 1083          let pmtAmt = pmt.amount
1097 1084          if ((1000000000 > pmtAmt))
1098 1085              then throw("Min pmt 10 LP")
1099 1086              else if (if (if ((0 > slippage))
1100 1087                  then true
1101 1088                  else (0 > exchResult))
1102 1089                  then true
1103 1090                  else (0 > outAmount))
1104 1091                  then throw("Wrong params")
1105 1092                  else if ((lpId != toBase58String(pmtAssetId)))
1106 1093                      then throw("Wrong LP")
1107 1094                      else {
1108 1095                          let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
1109 1096                          let estimAmAmt = r._1
1110 1097                          let estimPrAmt = r._2
1111 1098                          let amBalance = getAccBalance(amId)
1112 1099                          let prBalance = getAccBalance(prId)
1113 -                         let $t04028140741 = if ((outAssetId == amId))
1100 +                         let $t03998340443 = if ((outAssetId == amId))
1114 1101                              then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1115 1102                              else if ((outAssetId == prId))
1116 1103                                  then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1117 1104                                  else throw("wrong outAssetId")
1118 -                         let amBalanceNow = $t04028140741._1
1119 -                         let prBalanceNow = $t04028140741._2
1120 -                         let virtSwapInAm = $t04028140741._3
1121 -                         let virtSwapOutPr = $t04028140741._4
1122 -                         let virtSwapInPr = $t04028140741._5
1123 -                         let virtSwapOutAm = $t04028140741._6
1124 -                         let totalGetRaw = $t04028140741._7
1105 +                         let amBalanceNow = $t03998340443._1
1106 +                         let prBalanceNow = $t03998340443._2
1107 +                         let virtSwapInAm = $t03998340443._3
1108 +                         let virtSwapOutPr = $t03998340443._4
1109 +                         let virtSwapInPr = $t03998340443._5
1110 +                         let virtSwapOutAm = $t03998340443._6
1111 +                         let totalGetRaw = $t03998340443._7
1125 1112                          if (if ((0 > virtSwapInAm))
1126 1113                              then true
1127 1114                              else (0 > virtSwapInPr))
1128 1115                              then throw("Wrong calc")
1129 1116                              else {
1130 1117                                  let D0 = invoke(gwxCntr, "calcD", [toString(amBalanceNow), toString(prBalanceNow), A, Amult, Dconv], nil)
1131 1118                                  let D1 = invoke(gwxCntr, "calcD", [toString(((amBalanceNow - virtSwapInAm) + virtSwapOutAm)), toString(((prBalanceNow + virtSwapOutPr) - virtSwapInPr)), A, Amult, Dconv], nil)
1132 1119                                  let D0vsD1 = vd(parseBigIntValue(str(D1)), parseBigIntValue(str(D0)), slippage4D)
1133 1120                                  if ((D0vsD1 == D0vsD1))
1134 1121                                      then {
1135 1122                                          let totalGet = takeFee(totalGetRaw)._1
1136 1123                                          let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1137 1124                                          if ((finalRes == finalRes))
1138 1125                                              then {
1139 -                                                 let $t04148841592 = if ((outAssetId == amId))
1126 +                                                 let $t04119041294 = if ((outAssetId == amId))
1140 1127                                                      then $Tuple2(toInt(finalRes._2), 0)
1141 1128                                                      else $Tuple2(0, toInt(finalRes._2))
1142 -                                                 let outAm = $t04148841592._1
1143 -                                                 let outPr = $t04148841592._2
1129 +                                                 let outAm = $t04119041294._1
1130 +                                                 let outPr = $t04119041294._2
1144 1131                                                  let totalAmount = (outAm + outPr)
1145 1132                                                  let feeAmount = (totalGetRaw - totalGet)
1146 1133                                                  let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
1147 1134                                                      then unit
1148 1135                                                      else fromBase58String(outAssetId)
1149 1136                                                  let sendFeeToMatcher = if ((feeAmount > 0))
1150 1137                                                      then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
1151 1138                                                      else nil
1152 1139                                                  let curPrX18 = cpbi(t1(prBalance, prDcm), t1(amBalance, amDcm))
1153 1140                                                  let curPr = f1(curPrX18, scale8)
1154 1141                                                  let state = [ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)]
1155 1142                                                  if ((state == state))
1156 1143                                                      then {
1157 1144                                                          let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1158 1145                                                          if ((burn == burn))
1159 1146                                                              then (state ++ sendFeeToMatcher)
1160 1147                                                              else throw("Strict value is not equal to itself.")
1161 1148                                                          }
1162 1149                                                      else throw("Strict value is not equal to itself.")
1163 1150                                                  }
1164 1151                                              else throw("Strict value is not equal to itself.")
1165 1152                                          }
1166 1153                                      else throw("Strict value is not equal to itself.")
1167 1154                                  }
1168 1155                          }
1169 1156          }
1170 1157  
1171 1158  
1172 1159  
1173 1160  @Callable(i)
1174 1161  func getOneTknV2 (outAssetId,minOutAmount) = {
1175 -     let $t04261742772 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1176 -     let state = $t04261742772._1
1177 -     let totalAmount = $t04261742772._2
1162 +     let $t04231942474 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1163 +     let state = $t04231942474._1
1164 +     let totalAmount = $t04231942474._2
1178 1165      $Tuple2(state, totalAmount)
1179 1166      }
1180 1167  
1181 1168  
1182 1169  
1183 1170  @Callable(i)
1184 1171  func getOneTknV2OldREADONLY (outAssetId,lpAssetAmount) = {
1185 1172      let poolConfig = gpc()
1186 1173      let lpId = poolConfig[idxLPAsId]
1187 1174      let amId = poolConfig[idxAmAsId]
1188 1175      let prId = poolConfig[idxPrAsId]
1189 1176      let r = ego("", lpId, lpAssetAmount, this)
1190 1177      let estimAmAmt = r._1
1191 1178      let estimPrAmt = r._2
1192 1179      let amBalance = getAccBalance(amId)
1193 1180      let prBalance = getAccBalance(prId)
1194 1181      let amBalanceNow = (amBalance - estimAmAmt)
1195 1182      let prBalanceNow = (prBalance - estimPrAmt)
1196 -     let $t04328543593 = if ((outAssetId == amId))
1183 +     let $t04298743295 = if ((outAssetId == amId))
1197 1184          then $Tuple4(prBalanceNow, amBalanceNow, estimPrAmt, estimAmAmt)
1198 1185          else if ((outAssetId == prId))
1199 1186              then $Tuple4(amBalanceNow, prBalanceNow, estimAmAmt, estimPrAmt)
1200 1187              else throw("wrong outAssetId")
1201 -     let amountBalanceForSwap = $t04328543593._1
1202 -     let priceBalanceForSwap = $t04328543593._2
1203 -     let amountToSwap = $t04328543593._3
1204 -     let amountToAdd = $t04328543593._4
1188 +     let amountBalanceForSwap = $t04298743295._1
1189 +     let priceBalanceForSwap = $t04298743295._2
1190 +     let amountToSwap = $t04298743295._3
1191 +     let amountToAdd = $t04298743295._4
1205 1192      let yPrecision = 1
1206 1193      let exchResult = {
1207 1194          let @ = invoke(gwxContract, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)
1208 1195          if ($isInstanceOf(@, "Int"))
1209 1196              then @
1210 1197              else throw(($getType(@) + " couldn't be cast to Int"))
1211 1198          }
1212 1199      let totalGetRaw = (exchResult + amountToAdd)
1213 -     let $t04412144170 = takeFee(totalGetRaw)
1214 -     let totalGet = $t04412144170._1
1215 -     let feeAmount = $t04412144170._2
1200 +     let $t04382343872 = takeFee(totalGetRaw)
1201 +     let totalGet = $t04382343872._1
1202 +     let feeAmount = $t04382343872._2
1216 1203      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1217 1204      }
1218 1205  
1219 1206  
1220 1207  
1221 1208  @Callable(i)
1222 1209  func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1223 1210      let poolConfig = gpc()
1224 1211      let amId = poolConfig[idxAmAsId]
1225 1212      let prId = poolConfig[idxPrAsId]
1226 1213      let lpId = poolConfig[idxLPAsId]
1227 1214      let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
1228 1215      let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1229 1216      let D0 = getD(xp)
1230 1217      let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
1231 1218      let index = if ((outAssetId == amId))
1232 1219          then 0
1233 1220          else 1
1234 1221      let newY = getYD(xp, index, D1)
1235 1222      let dy = (xp[index] - newY)
1236 1223      let totalGetRaw = toInt((dy - big1))
1237 -     let $t04486144910 = takeFee(totalGetRaw)
1238 -     let totalGet = $t04486144910._1
1239 -     let feeAmount = $t04486144910._2
1224 +     let $t04456344612 = takeFee(totalGetRaw)
1225 +     let totalGet = $t04456344612._1
1226 +     let feeAmount = $t04456344612._2
1240 1227      $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1241 1228      }
1242 1229  
1243 1230  
1244 1231  
1245 1232  @Callable(i)
1246 1233  func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1247 1234      let poolConfig = gpc()
1248 1235      let amId = poolConfig[idxAmAsId]
1249 1236      let prId = poolConfig[idxPrAsId]
1250 1237      let lpId = poolConfig[idxLPAsId]
1251 1238      let amBalance = getAccBalance(amId)
1252 1239      let prBalance = getAccBalance(prId)
1253 -     let $t04525545370 = {
1240 +     let $t04495745072 = {
1254 1241          let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1255 1242          if ($isInstanceOf(@, "(Int, Int)"))
1256 1243              then @
1257 1244              else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1258 1245          }
1259 -     let totalGet = $t04525545370._1
1260 -     let feeAmount = $t04525545370._2
1246 +     let totalGet = $t04495745072._1
1247 +     let feeAmount = $t04495745072._2
1261 1248      let r = ego("", lpId, lpAssetAmount, this)
1262 1249      let outAmAmt = r._1
1263 1250      let outPrAmt = r._2
1264 1251      let sumOfGetAssets = (outAmAmt + outPrAmt)
1265 1252      let bonus = fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
1266 1253      $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
1267 1254      }
1268 1255  
1269 1256  
1270 1257  
1271 1258  @Callable(i)
1272 1259  func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
1273 1260      let r = cg(i)
1274 1261      let outAmAmt = r._1
1275 1262      let outPrAmt = r._2
1276 1263      let pmtAmt = r._3
1277 1264      let pmtAssetId = r._4
1278 1265      let state = r._5
1279 1266      if ((noLessThenAmtAsset > outAmAmt))
1280 1267          then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
1281 1268          else if ((noLessThenPriceAsset > outPrAmt))
1282 1269              then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1283 1270              else {
1284 1271                  let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1285 1272                  if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1286 1273                      then state
1287 1274                      else throw("Strict value is not equal to itself.")
1288 1275                  }
1289 1276      }
1290 1277  
1291 1278  
1292 1279  
1293 1280  @Callable(i)
1294 1281  func unstakeAndGet (amount) = {
1295 1282      let checkPayments = if ((size(i.payments) != 0))
1296 1283          then throw("No pmnts expd")
1297 1284          else true
1298 1285      if ((checkPayments == checkPayments))
1299 1286          then {
1300 1287              let cfg = gpc()
1301 1288              let factoryCfg = gfc()
1302 1289              let lpAssetId = fromBase58String(cfg[idxLPAsId])
1303 1290              let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1304 1291              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
1305 1292              if ((unstakeInv == unstakeInv))
1306 1293                  then {
1307 1294                      let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1308 1295                      let sts = parseIntValue(r._9)
1309 1296                      let state = r._10
1310 1297                      let v = if (if (igs())
1311 1298                          then true
1312 1299                          else (sts == PoolShutdown))
1313 1300                          then throw(("Blocked: " + toString(sts)))
1314 1301                          else true
1315 1302                      if ((v == v))
1316 1303                          then {
1317 1304                              let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1318 1305                              if ((burnA == burnA))
1319 1306                                  then state
1320 1307                                  else throw("Strict value is not equal to itself.")
1321 1308                              }
1322 1309                          else throw("Strict value is not equal to itself.")
1323 1310                      }
1324 1311                  else throw("Strict value is not equal to itself.")
1325 1312              }
1326 1313          else throw("Strict value is not equal to itself.")
1327 1314      }
1328 1315  
1329 1316  
1330 1317  
1331 1318  @Callable(i)
1332 1319  func unstakeAndGetOneTkn (unstakeAmount,outAssetId,minOutAmount) = {
1333 1320      let checkPayments = if ((size(i.payments) != 0))
1334 1321          then throw("No pmnts expd")
1335 1322          else true
1336 1323      if ((checkPayments == checkPayments))
1337 1324          then {
1338 1325              let cfg = gpc()
1339 1326              let factoryCfg = gfc()
1340 1327              let lpAssetId = fromBase58String(cfg[idxLPAsId])
1341 1328              let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1342 1329              let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1343 1330              if ((unstakeInv == unstakeInv))
1344 1331                  then {
1345 -                     let $t04767547863 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1346 -                     let state = $t04767547863._1
1347 -                     let totalAmount = $t04767547863._2
1332 +                     let $t04737747565 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1333 +                     let state = $t04737747565._1
1334 +                     let totalAmount = $t04737747565._2
1348 1335                      $Tuple2(state, totalAmount)
1349 1336                      }
1350 1337                  else throw("Strict value is not equal to itself.")
1351 1338              }
1352 1339          else throw("Strict value is not equal to itself.")
1353 1340      }
1354 1341  
1355 1342  
1356 1343  
1357 1344  @Callable(i)
1358 - func putOneTknV2READONLY (amount,asset) = {
1345 + func putOneTknV2WithBonusREADONLY (amount,asset) = {
1359 1346      let poolConfig = gpc()
1360 1347      let amId = poolConfig[idxAmAsId]
1361 1348      let prId = poolConfig[idxPrAsId]
1362 1349      let lpId = poolConfig[idxLPAsId]
1363 1350      let paymentAsset = asset
1364 1351      let paymentAmountRaw = amount
1365 -     let $t04829148381 = takeFee(paymentAmountRaw)
1366 -     let paymentAmount = $t04829148381._1
1367 -     let feeAmount = $t04829148381._2
1368 -     let $t04838548567 = if ((paymentAsset == amId))
1352 +     let $t04800248092 = takeFee(paymentAmountRaw)
1353 +     let paymentAmount = $t04800248092._1
1354 +     let feeAmount = $t04800248092._2
1355 +     let $t04809648278 = if ((paymentAsset == amId))
1369 1356          then $Tuple2(paymentAmount, 0)
1370 1357          else if ((paymentAsset == prId))
1371 1358              then $Tuple2(0, paymentAmount)
1372 1359              else throw("invalid payment")
1373 -     let amAmount = $t04838548567._1
1374 -     let prAmount = $t04838548567._2
1360 +     let amAmount = $t04809648278._1
1361 +     let prAmount = $t04809648278._2
1375 1362      let amBalanceOld = getAccBalance(amId)
1376 1363      let prBalanceOld = getAccBalance(prId)
1377 1364      let amBalanceNew = (amBalanceOld + amAmount)
1378 1365      let prBalanceNew = (amBalanceOld + prAmount)
1379 1366      let D0 = getD([toBigInt(amBalanceOld), toBigInt(prBalanceOld)])
1380 1367      let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
1381 1368      let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1382 1369      let lpAmount = ((lpEmission * (D1 - D0)) / D0)
1383 -     $Tuple2(nil, toInt(lpAmount))
1370 +     $Tuple2(nil, $Tuple3(toInt(lpAmount), feeAmount, 0))
1384 1371      }
1385 1372  
1386 1373  
1387 1374  
1388 1375  @Callable(i)
1389 1376  func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
1390 1377      then throw("denied")
1391 1378      else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr)], "success")
1392 1379  
1393 1380  
1394 1381  
1395 1382  @Callable(i)
1396 1383  func setS (k,v) = if ((toString(i.caller) != strf(this, ada())))
1397 1384      then pd
1398 1385      else [StringEntry(k, v)]
1399 1386  
1400 1387  
1401 1388  
1402 1389  @Callable(i)
1403 1390  func setI (k,v) = if ((toString(i.caller) != strf(this, ada())))
1404 1391      then pd
1405 1392      else [IntegerEntry(k, v)]
1406 1393  
1407 1394  
1408 1395  
1409 1396  @Callable(i)
1410 1397  func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
1411 1398  
1412 1399  
1413 1400  
1414 1401  @Callable(i)
1415 1402  func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
1416 1403  
1417 1404  
1418 1405  
1419 1406  @Callable(i)
1420 1407  func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
1421 1408      let pr = calcPrices(amAmt, prAmt, lpAmt)
1422 1409      $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
1423 1410      }
1424 1411  
1425 1412  
1426 1413  
1427 1414  @Callable(i)
1428 1415  func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
1429 1416  
1430 1417  
1431 1418  
1432 1419  @Callable(i)
1433 1420  func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
1434 1421  
1435 1422  
1436 1423  
1437 1424  @Callable(i)
1438 1425  func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
1439 1426  
1440 1427  
1441 1428  
1442 1429  @Callable(i)
1443 1430  func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, true, false, 0, ""))
1444 1431  
1445 1432  
1446 1433  
1447 1434  @Callable(i)
1448 1435  func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
1449 1436      let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
1450 1437      $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
1451 1438      }
1452 1439  
1453 1440  
1454 1441  
1455 1442  @Callable(i)
1456 1443  func getFeeREADONLY () = $Tuple2(nil, fee)
1457 1444  
1458 1445  
1459 1446  @Verifier(tx)
1460 1447  func verify () = {
1461 1448      let targetPublicKey =     match m() {
1462 1449          case pk: ByteVector => 
1463 1450              pk
1464 1451          case _: Unit => 
1465 1452              tx.senderPublicKey
1466 1453          case _ => 
1467 1454              throw("Match error")
1468 1455      }
1469 1456      match tx {
1470 1457          case order: Order => 
1471 1458              let matcherPub = mp()
1472 1459              let orderValid = moa(order)
1473 1460              let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1474 1461              let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
1475 1462              if (if (if (orderValid)
1476 1463                  then senderValid
1477 1464                  else false)
1478 1465                  then matcherValid
1479 1466                  else false)
1480 1467                  then true
1481 1468                  else toe(orderValid, senderValid, matcherValid)
1482 1469          case s: SetScriptTransaction => 
1483 1470              let newHash = blake2b256(value(s.script))
1484 1471              let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
1485 1472              let currentHash = scriptHash(this)
1486 1473              if (if ((allowedHash == newHash))
1487 1474                  then (currentHash != newHash)
1488 1475                  else false)
1489 1476                  then true
1490 1477                  else sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1491 1478          case _ => 
1492 1479              sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1493 1480      }
1494 1481      }
1495 1482

Old	New		Differences
1010	1010
1011	1011
1012	1012		@Callable(i)
1013		-	func putOneTknV2OldREADONLY (paymentAmount,paymentAssetId) = {
1014		-	let r = estimatePutOneTknV2(paymentAmount, paymentAssetId, "", "")
1015		-	let estimLP = r._2
1016		-	let lpAssetId = r._7
1017		-	let state = r._9
1018		-	let amDiff = r._10
1019		-	let prDiff = r._11
1020		-	$Tuple2(nil, estimLP)
1021		-	}
1022		-
1023		-
1024		-
1025		-	@Callable(i)
1026		-	func putOneTknV2WithBonusREADONLY (paymentAmount,paymentAssetId) = {
	1013	+	func putOneTknV2WithBonusOldREADONLY (paymentAmount,paymentAssetId) = {
1027	1014		let poolConfig = gpc()
1028	1015		let amId = poolConfig[idxAmAsId]
1029	1016		let prId = poolConfig[idxPrAsId]

1110	1097		let estimPrAmt = r._2
1111	1098		let amBalance = getAccBalance(amId)
1112	1099		let prBalance = getAccBalance(prId)
1113		-	let $~~t04028140741~~ = if ((outAssetId == amId))
	1100	+	let $t03998340443 = if ((outAssetId == amId))
1114	1101		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), exchResult, estimPrAmt, 0, 0, (estimAmAmt + exchResult))
1115	1102		else if ((outAssetId == prId))
1116	1103		then $Tuple7((amBalance - estimAmAmt), (prBalance - estimPrAmt), 0, 0, exchResult, estimAmAmt, (estimPrAmt + exchResult))
1117	1104		else throw("wrong outAssetId")
1118		-	let amBalanceNow = $~~t04028140741~~._1
1119		-	let prBalanceNow = $~~t04028140741~~._2
1120		-	let virtSwapInAm = $~~t04028140741~~._3
1121		-	let virtSwapOutPr = $~~t04028140741~~._4
1122		-	let virtSwapInPr = $~~t04028140741~~._5
1123		-	let virtSwapOutAm = $~~t04028140741~~._6
1124		-	let totalGetRaw = $~~t04028140741~~._7
	1105	+	let amBalanceNow = $t03998340443._1
	1106	+	let prBalanceNow = $t03998340443._2
	1107	+	let virtSwapInAm = $t03998340443._3
	1108	+	let virtSwapOutPr = $t03998340443._4
	1109	+	let virtSwapInPr = $t03998340443._5
	1110	+	let virtSwapOutAm = $t03998340443._6
	1111	+	let totalGetRaw = $t03998340443._7
1125	1112		if (if ((0 > virtSwapInAm))
1126	1113		then true
1127	1114		else (0 > virtSwapInPr))

1136	1123		let finalRes = vad(toBigInt(totalGet), toBigInt(outAmount), toBigInt(slippage))
1137	1124		if ((finalRes == finalRes))
1138	1125		then {
1139		-	let $~~t04148841592~~ = if ((outAssetId == amId))
	1126	+	let $t04119041294 = if ((outAssetId == amId))
1140	1127		then $Tuple2(toInt(finalRes._2), 0)
1141	1128		else $Tuple2(0, toInt(finalRes._2))
1142		-	let outAm = $~~t04148841592~~._1
1143		-	let outPr = $~~t04148841592~~._2
	1129	+	let outAm = $t04119041294._1
	1130	+	let outPr = $t04119041294._2
1144	1131		let totalAmount = (outAm + outPr)
1145	1132		let feeAmount = (totalGetRaw - totalGet)
1146	1133		let outAssetIdOrWaves = if ((outAssetId == "WAVES"))

1172	1159
1173	1160		@Callable(i)
1174	1161		func getOneTknV2 (outAssetId,minOutAmount) = {
1175		-	let $~~t04261742772~~ = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1176		-	let state = $~~t04261742772~~._1
1177		-	let totalAmount = $~~t04261742772~~._2
	1162	+	let $t04231942474 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
	1163	+	let state = $t04231942474._1
	1164	+	let totalAmount = $t04231942474._2
1178	1165		$Tuple2(state, totalAmount)
1179	1166		}
1180	1167

1193	1180		let prBalance = getAccBalance(prId)
1194	1181		let amBalanceNow = (amBalance - estimAmAmt)
1195	1182		let prBalanceNow = (prBalance - estimPrAmt)
1196		-	let $~~t04328543593~~ = if ((outAssetId == amId))
	1183	+	let $t04298743295 = if ((outAssetId == amId))
1197	1184		then $Tuple4(prBalanceNow, amBalanceNow, estimPrAmt, estimAmAmt)
1198	1185		else if ((outAssetId == prId))
1199	1186		then $Tuple4(amBalanceNow, prBalanceNow, estimAmAmt, estimPrAmt)
1200	1187		else throw("wrong outAssetId")
1201		-	let amountBalanceForSwap = $~~t04328543593~~._1
1202		-	let priceBalanceForSwap = $~~t04328543593~~._2
1203		-	let amountToSwap = $~~t04328543593~~._3
1204		-	let amountToAdd = $~~t04328543593~~._4
	1188	+	let amountBalanceForSwap = $t04298743295._1
	1189	+	let priceBalanceForSwap = $t04298743295._2
	1190	+	let amountToSwap = $t04298743295._3
	1191	+	let amountToAdd = $t04298743295._4
1205	1192		let yPrecision = 1
1206	1193		let exchResult = {
1207	1194		let @ = invoke(gwxContract, "calcSwapXToY", [toString(amountToSwap), toString(amountBalanceForSwap), toString(priceBalanceForSwap), "", A, Amult, toString(yPrecision), Dconv], nil)

1210	1197		else throw(($getType(@) + " couldn't be cast to Int"))
1211	1198		}
1212	1199		let totalGetRaw = (exchResult + amountToAdd)
1213		-	let $~~t04412144170~~ = takeFee(totalGetRaw)
1214		-	let totalGet = $~~t04412144170~~._1
1215		-	let feeAmount = $~~t04412144170~~._2
	1200	+	let $t04382343872 = takeFee(totalGetRaw)
	1201	+	let totalGet = $t04382343872._1
	1202	+	let feeAmount = $t04382343872._2
1216	1203		$Tuple2(nil, $Tuple2(totalGet, feeAmount))
1217	1204		}
1218	1205

1234	1221		let newY = getYD(xp, index, D1)
1235	1222		let dy = (xp[index] - newY)
1236	1223		let totalGetRaw = toInt((dy - big1))
1237		-	let $~~t04486144910~~ = takeFee(totalGetRaw)
1238		-	let totalGet = $~~t04486144910~~._1
1239		-	let feeAmount = $~~t04486144910~~._2
	1224	+	let $t04456344612 = takeFee(totalGetRaw)
	1225	+	let totalGet = $t04456344612._1
	1226	+	let feeAmount = $t04456344612._2
1240	1227		$Tuple2(nil, $Tuple2(totalGet, feeAmount))
1241	1228		}
1242	1229

1250	1237		let lpId = poolConfig[idxLPAsId]
1251	1238		let amBalance = getAccBalance(amId)
1252	1239		let prBalance = getAccBalance(prId)
1253		-	let $~~t04525545370~~ = {
	1240	+	let $t04495745072 = {
1254	1241		let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1255	1242		if ($isInstanceOf(@, "(Int, Int)"))
1256	1243		then @
1257	1244		else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1258	1245		}
1259		-	let totalGet = $~~t04525545370~~._1
1260		-	let feeAmount = $~~t04525545370~~._2
	1246	+	let totalGet = $t04495745072._1
	1247	+	let feeAmount = $t04495745072._2
1261	1248		let r = ego("", lpId, lpAssetAmount, this)
1262	1249		let outAmAmt = r._1
1263	1250		let outPrAmt = r._2

1342	1329		let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), unstakeAmount], nil)
1343	1330		if ((unstakeInv == unstakeInv))
1344	1331		then {
1345		-	let $~~t04767547863~~ = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1346		-	let state = $~~t04767547863~~._1
1347		-	let totalAmount = $~~t04767547863~~._2
	1332	+	let $t04737747565 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
	1333	+	let state = $t04737747565._1
	1334	+	let totalAmount = $t04737747565._2
1348	1335		$Tuple2(state, totalAmount)
1349	1336		}
1350	1337		else throw("Strict value is not equal to itself.")

1355	1342
1356	1343
1357	1344		@Callable(i)
1358		-	func ~~putOneTknV2READONLY~~ (amount,asset) = {
	1345	+	func putOneTknV2WithBonusREADONLY (amount,asset) = {
1359	1346		let poolConfig = gpc()
1360	1347		let amId = poolConfig[idxAmAsId]
1361	1348		let prId = poolConfig[idxPrAsId]
1362	1349		let lpId = poolConfig[idxLPAsId]
1363	1350		let paymentAsset = asset
1364	1351		let paymentAmountRaw = amount
1365		-	let $~~t04829148381~~ = takeFee(paymentAmountRaw)
1366		-	let paymentAmount = $~~t04829148381~~._1
1367		-	let feeAmount = $~~t04829148381~~._2
1368		-	let $~~t04838548567~~ = if ((paymentAsset == amId))
	1352	+	let $t04800248092 = takeFee(paymentAmountRaw)
	1353	+	let paymentAmount = $t04800248092._1
	1354	+	let feeAmount = $t04800248092._2
	1355	+	let $t04809648278 = if ((paymentAsset == amId))
1369	1356		then $Tuple2(paymentAmount, 0)
1370	1357		else if ((paymentAsset == prId))
1371	1358		then $Tuple2(0, paymentAmount)
1372	1359		else throw("invalid payment")
1373		-	let amAmount = $~~t04838548567~~._1
1374		-	let prAmount = $~~t04838548567~~._2
	1360	+	let amAmount = $t04809648278._1
	1361	+	let prAmount = $t04809648278._2
1375	1362		let amBalanceOld = getAccBalance(amId)
1376	1363		let prBalanceOld = getAccBalance(prId)
1377	1364		let amBalanceNew = (amBalanceOld + amAmount)

1380	1367		let D1 = getD([toBigInt(amBalanceNew), toBigInt(prBalanceNew)])
1381	1368		let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1382	1369		let lpAmount = ((lpEmission * (D1 - D0)) / D0)
1383		-	$Tuple2(nil, toInt(lpAmount))
	1370	+	$Tuple2(nil, $Tuple3(toInt(lpAmount), feeAmount, 0))
1384	1371		}
1385	1372
1386	1373

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let scale8 = 100000000
5	5
6	6	let scale8BigInt = toBigInt(100000000)
7	7
8	8	let scale18 = toBigInt(1000000000000000000)
9	9
10	10	let zeroBigInt = toBigInt(0)
11	11
12	12	let big0 = toBigInt(0)
13	13
14	14	let big1 = toBigInt(1)
15	15
16	16	let big2 = toBigInt(2)
17	17
18	18	let slippage4D = toBigInt((scale8 - ((scale8 * 1) / scale8)))
19	19
20	20	let Amult = "100"
21	21
22	22	let Dconv = "1"
23	23
24	24	let SEP = "__"
25	25
26	26	let EMPTY = ""
27	27
28	28	let PoolActive = 1
29	29
30	30	let PoolPutDis = 2
31	31
32	32	let PoolMatcherDis = 3
33	33
34	34	let PoolShutdown = 4
35	35
36	36	let idxPoolAddress = 1
37	37
38	38	let idxPoolSt = 2
39	39
40	40	let idxLPAsId = 3
41	41
42	42	let idxAmAsId = 4
43	43
44	44	let idxPrAsId = 5
45	45
46	46	let idxAmtAsDcm = 6
47	47
48	48	let idxPriceAsDcm = 7
49	49
50	50	let idxIAmtAsId = 8
51	51
52	52	let idxIPriceAsId = 9
53	53
54	54	let idxFactStakCntr = 1
55	55
56	56	let idxFactSlippCntr = 7
57	57
58	58	let idxFactGwxRewCntr = 10
59	59
60	60	let feeDefault = fraction(5, scale8, 10000)
61	61
62	62	func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
63	63
64	64
65	65	func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
66	66
67	67
68	68	func ts (amt,resScale,curScale) = fraction(amt, resScale, curScale)
69	69
70	70
71	71	func abs (val) = if ((zeroBigInt > val))
72	72	then -(val)
73	73	else val
74	74
75	75
76	76	func absBigInt (val) = if ((zeroBigInt > val))
77	77	then -(val)
78	78	else val
79	79
80	80
81	81	func fc () = "%s__factoryContract"
82	82
83	83
84	84	func mpk () = "%s__managerPublicKey"
85	85
86	86
87	87	func pmpk () = "%s__pendingManagerPublicKey"
88	88
89	89
90	90	func pl () = "%s%s__price__last"
91	91
92	92
93	93	func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
94	94
95	95
96	96	func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
97	97
98	98
99	99	func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
100	100
101	101
102	102	func aa () = "%s__amountAsset"
103	103
104	104
105	105	func pa () = "%s__priceAsset"
106	106
107	107
108	108	func amp () = "%s__amp"
109	109
110	110
111	111	func ada () = "%s__addonAddr"
112	112
113	113
114	114	let keyFee = "%s__fee"
115	115
116	116	let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
117	117
118	118	func fcfg () = "%s__factoryConfig"
119	119
120	120
121	121	func mtpk () = "%s%s__matcher__publicKey"
122	122
123	123
124	124	func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
125	125
126	126
127	127	func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
128	128
129	129
130	130	func aps () = "%s__shutdown"
131	131
132	132
133	133	func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
134	134
135	135
136	136	func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
137	137
138	138
139	139	func toe (orV,sendrV,matchV) = throw(((((("Failed: ordValid=" + toString(orV)) + " sndrValid=") + toString(sendrV)) + " mtchrValid=") + toString(matchV)))
140	140
141	141
142	142	func str (val) = match val {
143	143	case valStr: String =>
144	144	valStr
145	145	case _ =>
146	146	throw("fail cast to String")
147	147	}
148	148
149	149
150	150	func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
151	151
152	152
153	153	func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
154	154
155	155
156	156	let fca = addressFromStringValue(strf(this, fc()))
157	157
158	158	let A = strf(this, amp())
159	159
160	160	func igs () = valueOrElse(getBoolean(fca, aps()), false)
161	161
162	162
163	163	func mp () = fromBase58String(strf(fca, mtpk()))
164	164
165	165
166	166	let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
167	167
168	168	func gpc () = {
169	169	let amtAs = strf(this, aa())
170	170	let priceAs = strf(this, pa())
171	171	let iPriceAs = intf(fca, mba(priceAs))
172	172	let iAmtAs = intf(fca, mba(amtAs))
173	173	split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
174	174	}
175	175
176	176
177	177	func gfc () = split(strf(fca, fcfg()), SEP)
178	178
179	179
180	180	let factoryConfig = gfc()
181	181
182	182	let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
183	183
184	184	let slipageContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactSlippCntr]), "Invalid slipage contract address")
185	185
186	186	let gwxContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactGwxRewCntr]), "Invalid gwx contract address")
187	187
188	188	func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
189	189
190	190
191	191	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)
192	192
193	193
194	194	func getAccBalance (assetId) = if ((assetId == "WAVES"))
195	195	then wavesBalance(this).available
196	196	else assetBalance(this, fromBase58String(assetId))
197	197
198	198
199	199	func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
200	200
201	201
202	202	func vad (A1,A2,slippage) = {
203	203	let diff = fraction((A1 - A2), scale8BigInt, A2)
204	204	let pass = ((slippage - abs(diff)) > zeroBigInt)
205	205	if (!(pass))
206	206	then throw(("Big slpg: " + toString(diff)))
207	207	else $Tuple2(pass, min([A1, A2]))
208	208	}
209	209
210	210
211	211	func vd (D1,D0,slpg) = {
212	212	let diff = fraction(D0, scale8BigInt, D1)
213	213	let fail = (slpg > diff)
214	214	if (if (fail)
215	215	then true
216	216	else (D0 > D1))
217	217	then throw(((((((toString(D0) + " ") + toString(D1)) + " ") + toString(diff)) + " ") + toString(slpg)))
218	218	else fail
219	219	}
220	220
221	221
222	222	func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
223	223	let amtAsAmtX18 = t1(amAmt, amAssetDcm)
224	224	let prAsAmtX18 = t1(prAmt, prAssetDcm)
225	225	cpbi(prAsAmtX18, amtAsAmtX18)
226	226	}
227	227
228	228
229	229	func calcPrices (amAmt,prAmt,lpAmt) = {
230	230	let cfg = gpc()
231	231	let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
232	232	let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
233	233	let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
234	234	let amAmtX18 = t1(amAmt, amtAsDcm)
235	235	let prAmtX18 = t1(prAmt, prAsDcm)
236	236	let lpAmtX18 = t1(lpAmt, scale8)
237	237	let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
238	238	let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
239	239	[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
240	240	}
241	241
242	242
243	243	func calculatePrices (amAmt,prAmt,lpAmt) = {
244	244	let p = calcPrices(amAmt, prAmt, lpAmt)
245	245	[f1(p[0], scale8), f1(p[1], scale8), f1(p[2], scale8)]
246	246	}
247	247
248	248
249	249	func takeFee (amount) = {
250	250	let feeAmount = fraction(amount, fee, scale8)
251	251	$Tuple2((amount - feeAmount), feeAmount)
252	252	}
253	253
254	254
255	255	func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
256	256	let cfg = gpc()
257	257	let lpId = cfg[idxLPAsId]
258	258	let amId = cfg[idxAmAsId]
259	259	let prId = cfg[idxPrAsId]
260	260	let amDcm = parseIntValue(cfg[idxAmtAsDcm])
261	261	let prDcm = parseIntValue(cfg[idxPriceAsDcm])
262	262	let sts = cfg[idxPoolSt]
263	263	let lpEmiss = valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "Wrong LP id").quantity
264	264	if ((lpId != pmtAssetId))
265	265	then throw("Wrong pmt asset")
266	266	else {
267	267	let amBalance = getAccBalance(amId)
268	268	let amBalanceX18 = t1(amBalance, amDcm)
269	269	let prBalance = getAccBalance(prId)
270	270	let prBalanceX18 = t1(prBalance, prDcm)
271	271	let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
272	272	let curPrice = f1(curPriceX18, scale8)
273	273	let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
274	274	let lpEmissX18 = t1(lpEmiss, scale8)
275	275	let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
276	276	let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
277	277	let outAmAmt = f1(outAmAmtX18, amDcm)
278	278	let outPrAmt = f1(outPrAmtX18, prDcm)
279	279	let state = if ((txId58 == ""))
280	280	then nil
281	281	else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
282	282	then unit
283	283	else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
284	284	then unit
285	285	else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
286	286	$Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
287	287	}
288	288	}
289	289
290	290
291	291	func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
292	292	let cfg = gpc()
293	293	let lpId = fromBase58String(cfg[idxLPAsId])
294	294	let amIdStr = cfg[idxAmAsId]
295	295	let prIdStr = cfg[idxPrAsId]
296	296	let inAmIdStr = cfg[idxIAmtAsId]
297	297	let inPrIdStr = cfg[idxIPriceAsId]
298	298	let amtDcm = parseIntValue(cfg[idxAmtAsDcm])
299	299	let priceDcm = parseIntValue(cfg[idxPriceAsDcm])
300	300	let sts = cfg[idxPoolSt]
301	301	let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
302	302	let amBalance = if (isEval)
303	303	then getAccBalance(amIdStr)
304	304	else if (if (isOneAsset)
305	305	then (pmtId == amIdStr)
306	306	else false)
307	307	then (getAccBalance(amIdStr) - pmtAmt)
308	308	else if (isOneAsset)
309	309	then getAccBalance(amIdStr)
310	310	else (getAccBalance(amIdStr) - inAmAmt)
311	311	let prBalance = if (isEval)
312	312	then getAccBalance(prIdStr)
313	313	else if (if (isOneAsset)
314	314	then (pmtId == prIdStr)
315	315	else false)
316	316	then (getAccBalance(prIdStr) - pmtAmt)
317	317	else if (isOneAsset)
318	318	then getAccBalance(prIdStr)
319	319	else (getAccBalance(prIdStr) - inPrAmt)
320	320	let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
321	321	let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
322	322	let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
323	323	let amBalanceX18 = t1(amBalance, amtDcm)
324	324	let prBalanceX18 = t1(prBalance, priceDcm)
325	325	let r = if ((lpEm == 0))
326	326	then {
327	327	let curPriceX18 = zeroBigInt
328	328	let slippageX18 = zeroBigInt
329	329	let lpAmtX18 = pow((inAmAssetAmtX18 * inPrAssetAmtX18), 0, toBigInt(5), 1, 0, DOWN)
330	330	$Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
331	331	}
332	332	else {
333	333	let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
334	334	let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
335	335	let slippageX18 = t1(slippage, scale8)
336	336	if (if (if (validateSlippage)
337	337	then (curPriceX18 != zeroBigInt)
338	338	else false)
339	339	then (slippageRealX18 > slippageX18)
340	340	else false)
341	341	then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
342	342	else {
343	343	let lpEmissionX18 = t1(lpEm, scale8)
344	344	let prViaAmX18 = fraction(inAmAssetAmtX18, curPriceX18, scale18)
345	345	let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, curPriceX18)
346	346	let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
347	347	then $Tuple2(amViaPrX18, inPrAssetAmtX18)
348	348	else $Tuple2(inAmAssetAmtX18, prViaAmX18)
349	349	let expAmtAssetAmtX18 = expectedAmts._1
350	350	let expPriceAssetAmtX18 = expectedAmts._2
351	351	let lpAmtX18 = fraction(lpEmissionX18, expPriceAssetAmtX18, prBalanceX18)
352	352	$Tuple5(f1(lpAmtX18, scale8), f1(expAmtAssetAmtX18, amtDcm), f1(expPriceAssetAmtX18, priceDcm), curPriceX18, slippageX18)
353	353	}
354	354	}
355	355	let calcLpAmt = r._1
356	356	let calcAmAssetPmt = r._2
357	357	let calcPrAssetPmt = r._3
358	358	let curPrice = f1(r._4, scale8)
359	359	let slippageCalc = f1(r._5, scale8)
360	360	if ((0 >= calcLpAmt))
361	361	then throw("LP <= 0")
362	362	else {
363	363	let emitLpAmt = if (!(emitLp))
364	364	then 0
365	365	else calcLpAmt
366	366	let amDiff = (inAmAmt - calcAmAssetPmt)
367	367	let prDiff = (inPrAmt - calcPrAssetPmt)
368	368	let $t01635116696 = if (if (isOneAsset)
369	369	then (pmtId == amIdStr)
370	370	else false)
371	371	then $Tuple2(pmtAmt, 0)
372	372	else if (if (isOneAsset)
373	373	then (pmtId == prIdStr)
374	374	else false)
375	375	then $Tuple2(0, pmtAmt)
376	376	else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
377	377	let writeAmAmt = $t01635116696._1
378	378	let writePrAmt = $t01635116696._2
379	379	let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
380	380	$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
381	381	}
382	382	}
383	383
384	384
385	385	func moa (order) = {
386	386	let cfg = gpc()
387	387	let amtAsId = cfg[idxAmAsId]
388	388	let prAsId = cfg[idxPrAsId]
389	389	let sts = parseIntValue(cfg[idxPoolSt])
390	390	let amtAsDcm = parseIntValue(cfg[idxAmtAsDcm])
391	391	let prAsDcm = parseIntValue(cfg[idxPriceAsDcm])
392	392	let accAmtAsBalance = getAccBalance(amtAsId)
393	393	let accPrAsBalance = getAccBalance(prAsId)
394	394	let curPriceX18 = if ((order.orderType == Buy))
395	395	then pcp(amtAsDcm, prAsDcm, (accAmtAsBalance + order.amount), accPrAsBalance)
396	396	else pcp(amtAsDcm, prAsDcm, (accAmtAsBalance - order.amount), accPrAsBalance)
397	397	let curPrice = f1(curPriceX18, scale8)
398	398	if (if (if (igs())
399	399	then true
400	400	else (sts == PoolMatcherDis))
401	401	then true
402	402	else (sts == PoolShutdown))
403	403	then throw("Admin blocked")
404	404	else {
405	405	let orAmtAsset = order.assetPair.amountAsset
406	406	let orAmtAsStr = if ((orAmtAsset == unit))
407	407	then "WAVES"
408	408	else toBase58String(value(orAmtAsset))
409	409	let orPrAsset = order.assetPair.priceAsset
410	410	let orPrAsStr = if ((orPrAsset == unit))
411	411	then "WAVES"
412	412	else toBase58String(value(orPrAsset))
413	413	if (if ((orAmtAsStr != amtAsId))
414	414	then true
415	415	else (orPrAsStr != prAsId))
416	416	then throw("Wr assets")
417	417	else {
418	418	let orderPrice = order.price
419	419	let priceDcm = fraction(scale8, prAsDcm, amtAsDcm)
420	420	let castOrderPrice = ts(orderPrice, scale8, priceDcm)
421	421	let isOrderPriceValid = if ((order.orderType == Buy))
422	422	then (curPrice >= castOrderPrice)
423	423	else (castOrderPrice >= curPrice)
424	424	true
425	425	}
426	426	}
427	427	}
428	428
429	429
430	430	func cg (i) = if ((size(i.payments) != 1))
431	431	then throw("1 pmnt exp")
432	432	else {
433	433	let pmt = value(i.payments[0])
434	434	let pmtAssetId = value(pmt.assetId)
435	435	let pmtAmt = pmt.amount
436	436	let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
437	437	let outAmAmt = r._1
438	438	let outPrAmt = r._2
439	439	let sts = parseIntValue(r._9)
440	440	let state = r._10
441	441	if (if (igs())
442	442	then true
443	443	else (sts == PoolShutdown))
444	444	then throw(("Admin blocked: " + toString(sts)))
445	445	else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
446	446	}
447	447
448	448
449	449	func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
450	450	let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
451	451	let sts = parseIntValue(r._8)
452	452	if (if (if (igs())
453	453	then true
454	454	else (sts == PoolPutDis))
455	455	then true
456	456	else (sts == PoolShutdown))
457	457	then throw(("Blocked:" + toString(sts)))
458	458	else r
459	459	}
460	460
461	461
462	462	func estimatePutOneTknV2 (pmtAmtRaw,pmtAssetId,userAddress,txId) = {
463	463	let poolConfig = gpc()
464	464	let amId = poolConfig[idxAmAsId]
465	465	let prId = poolConfig[idxPrAsId]
466	466	let amBalance = getAccBalance(amId)
467	467	let prBalance = getAccBalance(prId)
468	468	let $t02102721072 = takeFee(pmtAmtRaw)
469	469	let pmtAmt = $t02102721072._1
470	470	let feeAmount = $t02102721072._2
471	471	let $t02107621537 = if ((txId == ""))
472	472	then $Tuple2(amBalance, prBalance)
473	473	else if ((pmtAssetId == amId))
474	474	then if ((pmtAmtRaw > amBalance))
475	475	then throw("invalid payment amount")
476	476	else $Tuple2((amBalance - pmtAmtRaw), prBalance)
477	477	else if ((pmtAssetId == prId))
478	478	then if ((pmtAmtRaw > prBalance))
479	479	then throw("invalid payment amount")
480	480	else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
481	481	else throw("wrong pmtAssetId")
482	482	let amBalanceNow = $t02107621537._1
483	483	let prBalanceNow = $t02107621537._2
484	484	let $t02154121675 = if ((pmtAssetId == amId))
485	485	then $Tuple2(amBalanceNow, prBalanceNow)
486	486	else $Tuple2(prBalanceNow, amBalanceNow)
487	487	let amBalanceForCalc = $t02154121675._1
488	488	let prBalanceForCalc = $t02154121675._2
489	489	let xPrecision = 1
490	490	let result = {
491	491	let @ = invoke(gwxContract, "calcPutXOnly", [toString(pmtAmt), toString(amBalanceForCalc), toString(prBalanceForCalc), "", A, Amult, toString(xPrecision), Dconv], nil)
492	492	if ($isInstanceOf(@, "(Int, Int)"))
493	493	then @
494	494	else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
495	495	}
496	496	let $t02214422240 = if ((pmtAssetId == amId))
497	497	then result
498	498	else $Tuple2(result._2, result._1)
499	499	let amAssetPart = $t02214422240._1
500	500	let prAssetPart = $t02214422240._2

github/deemru/w8io/c3f4982 
135.82 ms ◑