w8 · tx · JDJ···eaa

tx · JDJUwqzx3X8AZzceH5WkHVYC7py7GgEWMUHWASuwdeaa

3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS:  -0.01000000 Waves

2023.03.24 21:10 [2504438] smart account 3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "JDJUwqzx3X8AZzceH5WkHVYC7py7GgEWMUHWASuwdeaa",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679681405543,
    "version": 2,
    "chainId": 84,
    "sender": "3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS",
    "senderPublicKey": "HP8sssVq1866F7CaPQJwgFrt6fsqhQjKwM84cL1wjD2a",
    "proofs": [
        "4XLRFURLQkSG1jQvTb38vgMdafk4KLJbs11JjstW7LmEfzVJwBZGzwKZ213BQWWafA137j7bJ8dLJzvEuxpw8pSk"
    ],
    "script": "base64:BgIeCAISBwoFCAEIAQESAwoBCBIDCgEIEgcKBQgIAQEBJgALU0ZfUE9TX1RZUEUCAlNGAAtXWF9QT1NfVFlQRQICV1gABlNDQUxFOACAwtcvAApGRUVfU0NBTEU2AMCEPQAUa1NGUG9vbEFBc3NldEJhbGFuY2UCD0FfYXNzZXRfYmFsYW5jZQAUa1NGUG9vbEJBc3NldEJhbGFuY2UCD0JfYXNzZXRfYmFsYW5jZQAPa1NGUG9vbEFBc3NldElkAgpBX2Fzc2V0X2lkAA9rU0ZQb29sQkFzc2V0SWQCCkJfYXNzZXRfaWQADmtTRlBvb2xTaGFyZUlkAg5zaGFyZV9hc3NldF9pZAAOa1NGUG9vbFZlcnNpb24CB3ZlcnNpb24AEGtTRkZhcm1pbmdTdGFrZWQCFF9zaGFyZV90b2tlbnNfbG9ja2VkAA1rVXNlclBvc2l0aW9uAg5fdXNlcl9wb3NpdGlvbgARa1VzZXJQb3NpdGlvblR5cGUCE191c2VyX3Bvc2l0aW9uX3R5cGUAEGtVc2VyUG9zaXRpb25OdW0CFV91c2VyX3Bvc2l0aW9uX251bWJlcgAOa1RvdGFsUG9zaXRpb24CD190b3RhbF9wb3NpdGlvbgAVa0F4bHlJbkZlZVdpdGhvdXRMb2FuAhZfYXhseV9mZWVfd2l0aG91dF9sb2FuABJrQXhseUluRmVlV2l0aExvYW4CE19heGx5X2ZlZV93aXRoX2xvYW4AC2tBeGx5Q2FwRmVlAg1fYXhseV9mZWVfY2FwAAprUmVxdWVzdElkAgtfcmVxdWVzdF9pZAAMa1JlcXVlc3RJdGVyAg1yZXF1ZXN0c19pdGVyAAVrUG9vbAIFcG9vbF8ACWtNb25leUJveAIOYXhseV9tb25leV9ib3gADmtTRkZhcm1pbmdBZGRyAhNzd29wZmlfZmFybWluZ19hZGRyAAxrTGVuZFNlcnZpY2UCEWxlbmRfc2VydmljZV9hZGRyAAhtb25leUJveAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQlrTW9uZXlCb3gCGE5vIGF4bHkgbW9uZXlCb3ggYWRkcmVzcwEKaXNTZWxmQ2FsbAEBaQMJAAACCAUBaQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAitPbmx5IGNvbnRyYWN0IGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAQ5hY2NvdW50QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA8AcCBQR0aGlzBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAAIBAgtNYXRjaCBlcnJvcgENZ2V0U0ZQb29sRGF0YQEIcG9vbEFkZHIJAJcKBQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQUFzc2V0SWQCGUNhbid0IGdldCBwb29sIEEgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQhwb29sQWRkcgUPa1NGUG9vbEJBc3NldElkAhlDYW4ndCBnZXQgcG9vbCBCIGFzc2V0IGlkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUIcG9vbEFkZHIFFGtTRlBvb2xBQXNzZXRCYWxhbmNlAh5DYW4ndCBnZXQgcG9vbCBBIGFzc2V0IGJhbGFuY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEJBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEIgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ5rU0ZQb29sU2hhcmVJZAIYQ2FuJ3QgZ2V0IHNoYXJlIGFzc2V0IGlkAQ1nZXRXWFBvb2xEYXRhAQhwb29sQWRkcgkAlwoFCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFD2tTRlBvb2xBQXNzZXRJZAIZQ2FuJ3QgZ2V0IHBvb2wgQSBhc3NldCBpZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQkFzc2V0SWQCGUNhbid0IGdldCBwb29sIEIgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEFBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEEgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCHBvb2xBZGRyBRRrU0ZQb29sQkFzc2V0QmFsYW5jZQIeQ2FuJ3QgZ2V0IHBvb2wgQiBhc3NldCBiYWxhbmNlCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDmtTRlBvb2xTaGFyZUlkAhhDYW4ndCBnZXQgc2hhcmUgYXNzZXQgaWQBFGdldEF4bHlUb3RhbFBvc2l0aW9uAQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24AAAEYZ2V0TmV3VXNlclBvc2l0aW9uTnVtYmVyAgRwb29sBHVzZXIJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0AAAABAQxnZXRBeGx5SW5GZWUCBHBvb2wId2l0aExvYW4DBQh3aXRoTG9hbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICBQRwb29sBRJrQXhseUluRmVlV2l0aExvYW4JARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUVa0F4bHlJbkZlZVdpdGhvdXRMb2FuARBnZXRTRkZhcm1pbmdBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQ5rU0ZGYXJtaW5nQWRkcgIdQ2FuJ3QgZ2V0IHN3b3BmaSBmYXJtaW5nIGFkZHIBDmdldExlbmRTcnZBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQxrTGVuZFNlcnZpY2UCG0Nhbid0IGdldCBsZW5kIHNlcnZpY2UgYWRkcgEMYXNzZXRJZFRvU3RyAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDYBAEFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwAgVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ5hc3NldElkRnJvbVN0cgEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwUEdW5pdAkA2QQBBQdhc3NldElkAQ9yZXBsYW5pc2hTd29wRmkMBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQEEnNoYXJlQmFsYW5jZUJlZm9yZQkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkBAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBnJhdGlvQQkAawMFBlNDQUxFOAUEcG10QQUEYmFsQQQGcmF0aW9CCQBrAwUGU0NBTEU4BQRwbXRCBQRiYWxCBAskdDA0NTQ0NDgzNwMJAGYCBQZyYXRpb0IFBnJhdGlvQQQDcG10CQBuBAUEYmFsQgUGcmF0aW9BBQZTQ0FMRTgFB0NFSUxJTkcJAJYKBAUEcG10QQUDcG10CQBlAgUEcG10QgUDcG10BQlwbXRBc3NldEIEA3BtdAkAbgQFBGJhbEEFBnJhdGlvQgUGU0NBTEU4BQdDRUlMSU5HCQCWCgQFA3BtdAUEcG10QgkAZQIFBHBtdEEFA3BtdAUJcG10QXNzZXRBBApwbXRBbW91bnRBCAULJHQwNDU0NDQ4MzcCXzEECnBtdEFtb3VudEIIBQskdDA0NTQ0NDgzNwJfMgQGY2hhbmdlCAULJHQwNDU0NDQ4MzcCXzMEDWNoYW5nZUFzc2V0SWQIBQskdDA0NTQ0NDgzNwJfNAQLcG9vbFZlcnNpb24JARFAZXh0ck5hdGl2ZSgxMDUzKQIFCHBvb2xBZGRyAgd2ZXJzaW9uBARpbnYxAwMJAGYCBQpwbXRBbW91bnRBAAAJAGYCBQpwbXRBbW91bnRCAAAHBAhwYXltZW50cwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDmFzc2V0SWRGcm9tU3RyAQUJcG10QXNzZXRBBQpwbXRBbW91bnRBCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQlwbXRBc3NldEIFCnBtdEFtb3VudEIFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhZyZXBsZW5pc2hXaXRoVHdvVG9rZW5zCQDMCAIJAMwIAgIFZmFsc2UJAMwIAgIBMAUDbmlsBQNuaWwFCHBheW1lbnRzAwkAAAIFC3Bvb2xWZXJzaW9uAgUyLjAuMAkA/AcEBQhwb29sQWRkcgIYcmVwbGVuaXNoV2l0aFR3b1Rva2Vuc1YyCQDMCAIHCQDMCAIAAAUDbmlsBQhwYXltZW50cwkAAgECD1dyb25nIHBvb2wgdHlwZQAAAwkAAAIFBGludjEFBGludjEEBGludjIDCQBmAgUGY2hhbmdlAAAECHBheW1lbnRzCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQ1jaGFuZ2VBc3NldElkBQZjaGFuZ2UFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAEBHZhcnMJAMwIAgIBMAkAzAgCAgVmYWxzZQkAzAgCAgEwBQNuaWwJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhVyZXBsZW5pc2hXaXRoT25lVG9rZW4JAMwIAgUEdmFycwUDbmlsBQhwYXltZW50cwMJAAACBQtwb29sVmVyc2lvbgIFMi4wLjAEBHZhcnMJAMwIAgUTdmlydHVhbFN3YXBUb2tlblBheQkAzAgCBRN2aXJ0dWFsU3dhcFRva2VuR2V0CQDMCAIHCQDMCAIAAAUDbmlsCQD8BwQFCHBvb2xBZGRyAhdyZXBsZW5pc2hXaXRoT25lVG9rZW5WMgkAzAgCBwkAzAgCAAAFA25pbAUIcGF5bWVudHMJAAIBAg9Xcm9uZyBwb29sIHR5cGUAAAMJAAACBQRpbnYyBQRpbnYyBBFzaGFyZUJhbGFuY2VBZnRlcgkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkBAp0b3RhbFNoYXJlCQBlAgURc2hhcmVCYWxhbmNlQWZ0ZXIFEnNoYXJlQmFsYW5jZUJlZm9yZQQJYXhseUluRmVlCQBrAwUKdG90YWxTaGFyZQkAZQIFCkZFRV9TQ0FMRTYJAQxnZXRBeGx5SW5GZWUCBQRwb29sBQh3aXRoTG9hbgUKRkVFX1NDQUxFNgQRdXNlclNoYXJlRm9yU3Rha2UJAGUCBQp0b3RhbFNoYXJlBQlheGx5SW5GZWUDCQBnAgAABRF1c2VyU2hhcmVGb3JTdGFrZQkAAgECKGFtb3VudCBvZiBzdGFrZWQgc2hhcmV0b2tlbnMgbXVzdCBiZSA+IDAEBGludjMJAPwHBAkBEGdldFNGRmFybWluZ0FkZHIAAg9sb2NrU2hhcmVUb2tlbnMJAMwIAgUEcG9vbAkAzAgCAAAFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQdzaGFyZUlkBRF1c2VyU2hhcmVGb3JTdGFrZQUDbmlsAwkAAAIFBGludjMFBGludjMEC3RvdGFsQW1vdW50CQEUZ2V0QXhseVRvdGFsUG9zaXRpb24BBQRwb29sBAluZXdQb3NOdW0JARhnZXROZXdVc2VyUG9zaXRpb25OdW1iZXICBQRwb29sBQR1c2VyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFDmtUb3RhbFBvc2l0aW9uCQBkAgULdG90YWxBbW91bnQFEXVzZXJTaGFyZUZvclN0YWtlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgIBXwkApAMBBQluZXdQb3NOdW0FDWtVc2VyUG9zaXRpb24FEXVzZXJTaGFyZUZvclN0YWtlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyAgFfCQCkAwEFCW5ld1Bvc051bQURa1VzZXJQb3NpdGlvblR5cGUFC1NGX1BPU19UWVBFCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRBrVXNlclBvc2l0aW9uTnVtBQluZXdQb3NOdW0JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUIbW9uZXlCb3gFCWF4bHlJbkZlZQkA2QQBBQdzaGFyZUlkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BC3JlcGxhbmlzaFdYDAR1c2VyBHBvb2wId2l0aExvYW4EcG10QQlwbXRBc3NldEEEcG10QglwbXRBc3NldEIEYmFsQQRiYWxCB3NoYXJlSWQTdmlydHVhbFN3YXBUb2tlblBheRN2aXJ0dWFsU3dhcFRva2VuR2V0BQNuaWwEAWkBCXJlcGxhbmlzaAUEcG9vbAxib3Jyb3dBbW91bnQNYm9ycm93QXNzZXRJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQEBHR5cGUJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzCQCsAgIFBWtQb29sBQRwb29sAhJQb29sIGlzIG5vdCBpbml0ZWQECyR0MDc1ODM3ODM0AwkAAAIFBHR5cGUFC1NGX1BPU19UWVBFCQENZ2V0U0ZQb29sRGF0YQEJAQdBZGRyZXNzAQkA2QQBBQRwb29sAwkAAAIFBHR5cGUFC1dYX1BPU19UWVBFCQENZ2V0V1hQb29sRGF0YQEJAQdBZGRyZXNzAQkA2QQBBQRwb29sCQACAQIPV3JvbmcgcG9vbCB0eXBlBANBSWQIBQskdDA3NTgzNzgzNAJfMQQDQklkCAULJHQwNzU4Mzc4MzQCXzIEBGJhbEEIBQskdDA3NTgzNzgzNAJfMwQEYmFsQggFCyR0MDc1ODM3ODM0Al80BAdzaGFyZUlkCAULJHQwNzU4Mzc4MzQCXzUECyR0MDc4Mzg4NDc1AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAgMJAQIhPQIJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFA0FJZAkAAgECFVdyb25nIHBheW1lbnQgYXNzZXQgQQMJAQIhPQIJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwABB2Fzc2V0SWQFA0JJZAkAAgECFVdyb25nIHBheW1lbnQgYXNzZXQgQgkAlgoECAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUDQUlkCAkAkQMCCAUBaQhwYXltZW50cwABBmFtb3VudAUDQklkAwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQMJAAACCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNBSWQJAJYKBAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFA0FJZAAABQNCSWQDCQAAAgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDQklkCQCWCgQAAAUDQUlkCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUDQklkCQACAQINV3JvbmcgcGF5bWVudAkAAgECHE9uZSBvciB0d28gcGF5bWVudHMgZXhwZWN0ZWQEBHBtdEEIBQskdDA3ODM4ODQ3NQJfMQQJcG10QXNzZXRBCAULJHQwNzgzODg0NzUCXzIEBHBtdEIIBQskdDA3ODM4ODQ3NQJfMwQJcG10QXNzZXRCCAULJHQwNzgzODg0NzUCXzQDCQBmAgUMYm9ycm93QW1vdW50AAAEB3JlcXVlc3QJALkJAgkAzAgCBQR0eXBlCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFBHBvb2wJAMwIAgkApAMBBQRwbXRBCQDMCAIFCXBtdEFzc2V0QQkAzAgCCQCkAwEFBHBtdEIJAMwIAgUJcG10QXNzZXRCCQDMCAIJAKQDAQUEYmFsQQkAzAgCCQCkAwEFBGJhbEIJAMwIAgUHc2hhcmVJZAkAzAgCCQCkAwEFE3ZpcnR1YWxTd2FwVG9rZW5QYXkJAMwIAgkApAMBBRN2aXJ0dWFsU3dhcFRva2VuR2V0BQNuaWwCASwEDG5ld1JlcXVlc3RJZAoAAUAJAPwHBAUEdGhpcwIQY3JlYXRlTmV3UmVxdWVzdAkAzAgCBQdyZXF1ZXN0BQNuaWwFA25pbAMJAAECBQFAAgNJbnQFAUAFBHVuaXQDCQAAAgUMbmV3UmVxdWVzdElkBQxuZXdSZXF1ZXN0SWQEBGFyZ3MJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgUHc2hhcmVJZAkAzAgCBQ1ib3Jyb3dBc3NldElkCQDMCAIFDGJvcnJvd0Ftb3VudAkAzAgCCQClCAEFBHRoaXMJAMwIAgIRcmVwbGFuaXNoRnJvbUxhbmQJAMwIAgkApAMBCQETdmFsdWVPckVycm9yTWVzc2FnZQIFDG5ld1JlcXVlc3RJZAIYQ2FuJ3QgY3JlYXRlIG5ldyByZXF1ZXN0BQNuaWwEA2ludgkA/QcECQEOZ2V0TGVuZFNydkFkZHIAAg1mbGFzaFBvc2l0aW9uBQRhcmdzBQNuaWwFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgMJAAACBQR0eXBlBQtTRl9QT1NfVFlQRQkBD3JlcGxhbmlzaFN3b3BGaQwJAKUIAQgFAWkGY2FsbGVyBQRwb29sBwUEcG10QQUJcG10QXNzZXRBBQRwbXRCBQlwbXRBc3NldEIFBGJhbEEFBGJhbEIFB3NoYXJlSWQFE3ZpcnR1YWxTd2FwVG9rZW5QYXkFE3ZpcnR1YWxTd2FwVG9rZW5HZXQJAAIBAgdDYW50IHd4AWkBEXJlcGxhbmlzaEZyb21MYW5kAQlyZXF1ZXN0SWQEB3JlcXVlc3QJALUJAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgUJcmVxdWVzdElkBQprUmVxdWVzdElkCQCsAgICE05vIHJlcXVlc3Qgd2l0aCBpZCAFCXJlcXVlc3RJZAIBLAMJAAACCQCRAwIFB3JlcXVlc3QAAAULU0ZfUE9TX1RZUEUJAQ9yZXBsYW5pc2hTd29wRmkMCQCRAwIFB3JlcXVlc3QAAQkAkQMCBQdyZXF1ZXN0AAIGCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAADCQCRAwIFB3JlcXVlc3QABAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QABQkAkQMCBQdyZXF1ZXN0AAYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAcJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAgJAJEDAgUHcmVxdWVzdAAJCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAKCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAALCQACAQIHQ2FudCB3eAFpARBjcmVhdGVOZXdSZXF1ZXN0AQZwYXJhbXMJAQt2YWx1ZU9yRWxzZQIJAQppc1NlbGZDYWxsAQUBaQQMbmV3UmVxdWVzdElkCQBkAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBQxrUmVxdWVzdEl0ZXIAAAABCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCkAwEFDG5ld1JlcXVlc3RJZAUKa1JlcXVlc3RJZAUGcGFyYW1zBQNuaWwFDG5ld1JlcXVlc3RJZAFpAQtpbml0TmV3UG9vbAUEdHlwZQhwb29sQWRkcgtpbkZlZU5vTG9hbglpbkZlZUxvYW4GY2FwRmVlAwMJAQIhPQIFBHR5cGUFC1NGX1BPU19UWVBFCQECIT0CBQR0eXBlBQtXWF9QT1NfVFlQRQcJAAIBAgpXcm9uZyB0eXBlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCHBvb2xBZGRyBRVrQXhseUluRmVlV2l0aG91dExvYW4FC2luRmVlTm9Mb2FuCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCHBvb2xBZGRyBRJrQXhseUluRmVlV2l0aExvYW4FCWluRmVlTG9hbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQhwb29sQWRkcgULa0F4bHlDYXBGZWUFBmNhcEZlZQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFBWtQb29sBQhwb29sQWRkcgUEdHlwZQUDbmlsAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleYA9WjQ=",
    "height": 2504438,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EUVo8k9EQrbzF22FqGngLPXDXhqEffZU92rX9pjgTR3Z
Next: D2biWyQf9VrsL32KB9iTKx9sCPWYcA114RHun7hZkfzv

Diff: 
Old New Differences
142 142                      let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
143 143                      if ((poolVersion == "1.0.0"))
144 144                          then {
145 -                             let vars = [toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), "false", "0"]
145 +                             let vars = ["0", "false", "0"]
146 146                              invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
147 147                              }
148 148                          else if ((poolVersion == "2.0.0"))
184 184  @Callable(i)
185 185  func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
186 186      let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
187 -     let $t076537904 = if ((type == SF_POS_TYPE))
187 +     let $t075837834 = if ((type == SF_POS_TYPE))
188 188          then getSFPoolData(Address(fromBase58String(pool)))
189 189          else if ((type == WX_POS_TYPE))
190 190              then getWXPoolData(Address(fromBase58String(pool)))
191 191              else throw("Wrong pool type")
192 -     let AId = $t076537904._1
193 -     let BId = $t076537904._2
194 -     let balA = $t076537904._3
195 -     let balB = $t076537904._4
196 -     let shareId = $t076537904._5
197 -     let $t079088545 = if ((size(i.payments) == 2))
192 +     let AId = $t075837834._1
193 +     let BId = $t075837834._2
194 +     let balA = $t075837834._3
195 +     let balB = $t075837834._4
196 +     let shareId = $t075837834._5
197 +     let $t078388475 = if ((size(i.payments) == 2))
198 198          then if ((assetIdToStr(i.payments[0].assetId) != AId))
199 199              then throw("Wrong payment asset A")
200 200              else if ((assetIdToStr(i.payments[1].assetId) != BId))
207 207                      then $Tuple4(0, AId, i.payments[0].amount, BId)
208 208                      else throw("Wrong payment")
209 209              else throw("One or two payments expected")
210 -     let pmtA = $t079088545._1
211 -     let pmtAssetA = $t079088545._2
212 -     let pmtB = $t079088545._3
213 -     let pmtAssetB = $t079088545._4
210 +     let pmtA = $t078388475._1
211 +     let pmtAssetA = $t078388475._2
212 +     let pmtB = $t078388475._3
213 +     let pmtAssetB = $t078388475._4
214 214      if ((borrowAmount > 0))
215 215          then {
216 216              let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SF_POS_TYPE = "SF"
5 5  
6 6  let WX_POS_TYPE = "WX"
7 7  
8 8  let SCALE8 = 100000000
9 9  
10 10  let FEE_SCALE6 = 1000000
11 11  
12 12  let kSFPoolAAssetBalance = "A_asset_balance"
13 13  
14 14  let kSFPoolBAssetBalance = "B_asset_balance"
15 15  
16 16  let kSFPoolAAssetId = "A_asset_id"
17 17  
18 18  let kSFPoolBAssetId = "B_asset_id"
19 19  
20 20  let kSFPoolShareId = "share_asset_id"
21 21  
22 22  let kSFPoolVersion = "version"
23 23  
24 24  let kSFFarmingStaked = "_share_tokens_locked"
25 25  
26 26  let kUserPosition = "_user_position"
27 27  
28 28  let kUserPositionType = "_user_position_type"
29 29  
30 30  let kUserPositionNum = "_user_position_number"
31 31  
32 32  let kTotalPosition = "_total_position"
33 33  
34 34  let kAxlyInFeeWithoutLoan = "_axly_fee_without_loan"
35 35  
36 36  let kAxlyInFeeWithLoan = "_axly_fee_with_loan"
37 37  
38 38  let kAxlyCapFee = "_axly_fee_cap"
39 39  
40 40  let kRequestId = "_request_id"
41 41  
42 42  let kRequestIter = "requests_iter"
43 43  
44 44  let kPool = "pool_"
45 45  
46 46  let kMoneyBox = "axly_money_box"
47 47  
48 48  let kSFFarmingAddr = "swopfi_farming_addr"
49 49  
50 50  let kLendService = "lend_service_addr"
51 51  
52 52  let moneyBox = Address(fromBase58String(valueOrErrorMessage(getString(this, kMoneyBox), "No axly moneyBox address")))
53 53  
54 54  func isSelfCall (i) = if ((i.caller == this))
55 55      then unit
56 56      else throw("Only contract itself can call this function")
57 57  
58 58  
59 59  func accountBalance (assetId) = match assetId {
60 60      case id: ByteVector => 
61 61          assetBalance(this, id)
62 62      case waves: Unit => 
63 63          wavesBalance(this).available
64 64      case _ => 
65 65          throw("Match error")
66 66  }
67 67  
68 68  
69 69  func getSFPoolData (poolAddr) = $Tuple5(valueOrErrorMessage(getString(poolAddr, kSFPoolAAssetId), "Can't get pool A asset id"), valueOrErrorMessage(getString(poolAddr, kSFPoolBAssetId), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolAAssetBalance), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolBAssetBalance), "Can't get pool B asset balance"), valueOrErrorMessage(getString(poolAddr, kSFPoolShareId), "Can't get share asset id"))
70 70  
71 71  
72 72  func getWXPoolData (poolAddr) = $Tuple5(valueOrErrorMessage(getString(poolAddr, kSFPoolAAssetId), "Can't get pool A asset id"), valueOrErrorMessage(getString(poolAddr, kSFPoolBAssetId), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolAAssetBalance), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolBAssetBalance), "Can't get pool B asset balance"), valueOrErrorMessage(getString(poolAddr, kSFPoolShareId), "Can't get share asset id"))
73 73  
74 74  
75 75  func getAxlyTotalPosition (pool) = valueOrElse(getInteger(this, (pool + kTotalPosition)), 0)
76 76  
77 77  
78 78  func getNewUserPositionNumber (pool,user) = (valueOrElse(getInteger(this, (((pool + "_") + user) + kUserPositionNum)), 0) + 1)
79 79  
80 80  
81 81  func getAxlyInFee (pool,withLoan) = if (withLoan)
82 82      then getIntegerValue(this, (pool + kAxlyInFeeWithLoan))
83 83      else getIntegerValue(this, (pool + kAxlyInFeeWithoutLoan))
84 84  
85 85  
86 86  func getSFFarmingAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kSFFarmingAddr), "Can't get swopfi farming addr")))
87 87  
88 88  
89 89  func getLendSrvAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kLendService), "Can't get lend service addr")))
90 90  
91 91  
92 92  func assetIdToStr (assetId) = match assetId {
93 93      case id: ByteVector => 
94 94          toBase58String(id)
95 95      case waves: Unit => 
96 96          "WAVES"
97 97      case _ => 
98 98          throw("Match error")
99 99  }
100 100  
101 101  
102 102  func assetIdFromStr (assetId) = if ((assetId == "WAVES"))
103 103      then unit
104 104      else fromBase58String(assetId)
105 105  
106 106  
107 107  func replanishSwopFi (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = {
108 108      let shareBalanceBefore = accountBalance(fromBase58String(shareId))
109 109      let poolAddr = Address(fromBase58String(pool))
110 110      let ratioA = fraction(SCALE8, pmtA, balA)
111 111      let ratioB = fraction(SCALE8, pmtB, balB)
112 112      let $t045444837 = if ((ratioB > ratioA))
113 113          then {
114 114              let pmt = fraction(balB, ratioA, SCALE8, CEILING)
115 115              $Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
116 116              }
117 117          else {
118 118              let pmt = fraction(balA, ratioB, SCALE8, CEILING)
119 119              $Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
120 120              }
121 121      let pmtAmountA = $t045444837._1
122 122      let pmtAmountB = $t045444837._2
123 123      let change = $t045444837._3
124 124      let changeAssetId = $t045444837._4
125 125      let poolVersion = getStringValue(poolAddr, "version")
126 126      let inv1 = if (if ((pmtAmountA > 0))
127 127          then (pmtAmountB > 0)
128 128          else false)
129 129          then {
130 130              let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
131 131              if ((poolVersion == "1.0.0"))
132 132                  then invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
133 133                  else if ((poolVersion == "2.0.0"))
134 134                      then invoke(poolAddr, "replenishWithTwoTokensV2", [false, 0], payments)
135 135                      else throw("Wrong pool type")
136 136              }
137 137          else 0
138 138      if ((inv1 == inv1))
139 139          then {
140 140              let inv2 = if ((change > 0))
141 141                  then {
142 142                      let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
143 143                      if ((poolVersion == "1.0.0"))
144 144                          then {
145 -                             let vars = [toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), "false", "0"]
145 +                             let vars = ["0", "false", "0"]
146 146                              invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
147 147                              }
148 148                          else if ((poolVersion == "2.0.0"))
149 149                              then {
150 150                                  let vars = [virtualSwapTokenPay, virtualSwapTokenGet, false, 0]
151 151                                  invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
152 152                                  }
153 153                              else throw("Wrong pool type")
154 154                      }
155 155                  else 0
156 156              if ((inv2 == inv2))
157 157                  then {
158 158                      let shareBalanceAfter = accountBalance(fromBase58String(shareId))
159 159                      let totalShare = (shareBalanceAfter - shareBalanceBefore)
160 160                      let axlyInFee = fraction(totalShare, (FEE_SCALE6 - getAxlyInFee(pool, withLoan)), FEE_SCALE6)
161 161                      let userShareForStake = (totalShare - axlyInFee)
162 162                      if ((0 >= userShareForStake))
163 163                          then throw("amount of staked sharetokens must be > 0")
164 164                          else {
165 165                              let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
166 166                              if ((inv3 == inv3))
167 167                                  then {
168 168                                      let totalAmount = getAxlyTotalPosition(pool)
169 169                                      let newPosNum = getNewUserPositionNumber(pool, user)
170 170  [IntegerEntry((pool + kTotalPosition), (totalAmount + userShareForStake)), IntegerEntry((((((pool + "_") + user) + "_") + toString(newPosNum)) + kUserPosition), userShareForStake), StringEntry((((((pool + "_") + user) + "_") + toString(newPosNum)) + kUserPositionType), SF_POS_TYPE), IntegerEntry((((pool + "_") + user) + kUserPositionNum), newPosNum), ScriptTransfer(moneyBox, axlyInFee, fromBase58String(shareId))]
171 171                                      }
172 172                                  else throw("Strict value is not equal to itself.")
173 173                              }
174 174                      }
175 175                  else throw("Strict value is not equal to itself.")
176 176              }
177 177          else throw("Strict value is not equal to itself.")
178 178      }
179 179  
180 180  
181 181  func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = nil
182 182  
183 183  
184 184  @Callable(i)
185 185  func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
186 186      let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
187 -     let $t076537904 = if ((type == SF_POS_TYPE))
187 +     let $t075837834 = if ((type == SF_POS_TYPE))
188 188          then getSFPoolData(Address(fromBase58String(pool)))
189 189          else if ((type == WX_POS_TYPE))
190 190              then getWXPoolData(Address(fromBase58String(pool)))
191 191              else throw("Wrong pool type")
192 -     let AId = $t076537904._1
193 -     let BId = $t076537904._2
194 -     let balA = $t076537904._3
195 -     let balB = $t076537904._4
196 -     let shareId = $t076537904._5
197 -     let $t079088545 = if ((size(i.payments) == 2))
192 +     let AId = $t075837834._1
193 +     let BId = $t075837834._2
194 +     let balA = $t075837834._3
195 +     let balB = $t075837834._4
196 +     let shareId = $t075837834._5
197 +     let $t078388475 = if ((size(i.payments) == 2))
198 198          then if ((assetIdToStr(i.payments[0].assetId) != AId))
199 199              then throw("Wrong payment asset A")
200 200              else if ((assetIdToStr(i.payments[1].assetId) != BId))
201 201                  then throw("Wrong payment asset B")
202 202                  else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
203 203          else if ((size(i.payments) == 1))
204 204              then if ((assetIdToStr(i.payments[0].assetId) == AId))
205 205                  then $Tuple4(i.payments[0].amount, AId, 0, BId)
206 206                  else if ((assetIdToStr(i.payments[0].assetId) == BId))
207 207                      then $Tuple4(0, AId, i.payments[0].amount, BId)
208 208                      else throw("Wrong payment")
209 209              else throw("One or two payments expected")
210 -     let pmtA = $t079088545._1
211 -     let pmtAssetA = $t079088545._2
212 -     let pmtB = $t079088545._3
213 -     let pmtAssetB = $t079088545._4
210 +     let pmtA = $t078388475._1
211 +     let pmtAssetA = $t078388475._2
212 +     let pmtB = $t078388475._3
213 +     let pmtAssetB = $t078388475._4
214 214      if ((borrowAmount > 0))
215 215          then {
216 216              let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
217 217              let newRequestId = {
218 218                  let @ = invoke(this, "createNewRequest", [request], nil)
219 219                  if ($isInstanceOf(@, "Int"))
220 220                      then @
221 221                      else unit
222 222                  }
223 223              if ((newRequestId == newRequestId))
224 224                  then {
225 225                      let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
226 226                      let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
227 227                      nil
228 228                      }
229 229                  else throw("Strict value is not equal to itself.")
230 230              }
231 231          else if ((type == SF_POS_TYPE))
232 232              then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId, virtualSwapTokenPay, virtualSwapTokenGet)
233 233              else throw("Cant wx")
234 234      }
235 235  
236 236  
237 237  
238 238  @Callable(i)
239 239  func replanishFromLand (requestId) = {
240 240      let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
241 241      if ((request[0] == SF_POS_TYPE))
242 242          then replanishSwopFi(request[1], request[2], true, parseIntValue(request[3]), request[4], parseIntValue(request[5]), request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11]))
243 243          else throw("Cant wx")
244 244      }
245 245  
246 246  
247 247  
248 248  @Callable(i)
249 249  func createNewRequest (params) = valueOrElse(isSelfCall(i), {
250 250      let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
251 251      $Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
252 252      })
253 253  
254 254  
255 255  
256 256  @Callable(i)
257 257  func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
258 258      then (type != WX_POS_TYPE)
259 259      else false)
260 260      then throw("Wrong type")
261 261      else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
262 262  
263 263  
264 264  @Verifier(tx)
265 265  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
266 266

Old	New		Differences
142	142		let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
143	143		if ((poolVersion == "1.0.0"))
144	144		then {
145		-	let vars = [~~toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)~~, "false", "0"]
	145	+	let vars = ["0", "false", "0"]
146	146		invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
147	147		}
148	148		else if ((poolVersion == "2.0.0"))

184	184		@Callable(i)
185	185		func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
186	186		let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
187		-	let $~~t076537904~~ = if ((type == SF_POS_TYPE))
	187	+	let $t075837834 = if ((type == SF_POS_TYPE))
188	188		then getSFPoolData(Address(fromBase58String(pool)))
189	189		else if ((type == WX_POS_TYPE))
190	190		then getWXPoolData(Address(fromBase58String(pool)))
191	191		else throw("Wrong pool type")
192		-	let AId = $~~t076537904~~._1
193		-	let BId = $~~t076537904~~._2
194		-	let balA = $~~t076537904~~._3
195		-	let balB = $~~t076537904~~._4
196		-	let shareId = $~~t076537904~~._5
197		-	let $~~t079088545~~ = if ((size(i.payments) == 2))
	192	+	let AId = $t075837834._1
	193	+	let BId = $t075837834._2
	194	+	let balA = $t075837834._3
	195	+	let balB = $t075837834._4
	196	+	let shareId = $t075837834._5
	197	+	let $t078388475 = if ((size(i.payments) == 2))
198	198		then if ((assetIdToStr(i.payments[0].assetId) != AId))
199	199		then throw("Wrong payment asset A")
200	200		else if ((assetIdToStr(i.payments[1].assetId) != BId))

207	207		then $Tuple4(0, AId, i.payments[0].amount, BId)
208	208		else throw("Wrong payment")
209	209		else throw("One or two payments expected")
210		-	let pmtA = $~~t079088545~~._1
211		-	let pmtAssetA = $~~t079088545~~._2
212		-	let pmtB = $~~t079088545~~._3
213		-	let pmtAssetB = $~~t079088545~~._4
	210	+	let pmtA = $t078388475._1
	211	+	let pmtAssetA = $t078388475._2
	212	+	let pmtB = $t078388475._3
	213	+	let pmtAssetB = $t078388475._4
214	214		if ((borrowAmount > 0))
215	215		then {
216	216		let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SF_POS_TYPE = "SF"
5	5
6	6		let WX_POS_TYPE = "WX"
7	7
8	8		let SCALE8 = 100000000
9	9
10	10		let FEE_SCALE6 = 1000000
11	11
12	12		let kSFPoolAAssetBalance = "A_asset_balance"
13	13
14	14		let kSFPoolBAssetBalance = "B_asset_balance"
15	15
16	16		let kSFPoolAAssetId = "A_asset_id"
17	17
18	18		let kSFPoolBAssetId = "B_asset_id"
19	19
20	20		let kSFPoolShareId = "share_asset_id"
21	21
22	22		let kSFPoolVersion = "version"
23	23
24	24		let kSFFarmingStaked = "_share_tokens_locked"
25	25
26	26		let kUserPosition = "_user_position"
27	27
28	28		let kUserPositionType = "_user_position_type"
29	29
30	30		let kUserPositionNum = "_user_position_number"
31	31
32	32		let kTotalPosition = "_total_position"
33	33
34	34		let kAxlyInFeeWithoutLoan = "_axly_fee_without_loan"
35	35
36	36		let kAxlyInFeeWithLoan = "_axly_fee_with_loan"
37	37
38	38		let kAxlyCapFee = "_axly_fee_cap"
39	39
40	40		let kRequestId = "_request_id"
41	41
42	42		let kRequestIter = "requests_iter"
43	43
44	44		let kPool = "pool_"
45	45
46	46		let kMoneyBox = "axly_money_box"
47	47
48	48		let kSFFarmingAddr = "swopfi_farming_addr"
49	49
50	50		let kLendService = "lend_service_addr"
51	51
52	52		let moneyBox = Address(fromBase58String(valueOrErrorMessage(getString(this, kMoneyBox), "No axly moneyBox address")))
53	53
54	54		func isSelfCall (i) = if ((i.caller == this))
55	55		then unit
56	56		else throw("Only contract itself can call this function")
57	57
58	58
59	59		func accountBalance (assetId) = match assetId {
60	60		case id: ByteVector =>
61	61		assetBalance(this, id)
62	62		case waves: Unit =>
63	63		wavesBalance(this).available
64	64		case _ =>
65	65		throw("Match error")
66	66		}
67	67
68	68
69	69		func getSFPoolData (poolAddr) = $Tuple5(valueOrErrorMessage(getString(poolAddr, kSFPoolAAssetId), "Can't get pool A asset id"), valueOrErrorMessage(getString(poolAddr, kSFPoolBAssetId), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolAAssetBalance), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolBAssetBalance), "Can't get pool B asset balance"), valueOrErrorMessage(getString(poolAddr, kSFPoolShareId), "Can't get share asset id"))
70	70
71	71
72	72		func getWXPoolData (poolAddr) = $Tuple5(valueOrErrorMessage(getString(poolAddr, kSFPoolAAssetId), "Can't get pool A asset id"), valueOrErrorMessage(getString(poolAddr, kSFPoolBAssetId), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolAAssetBalance), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(poolAddr, kSFPoolBAssetBalance), "Can't get pool B asset balance"), valueOrErrorMessage(getString(poolAddr, kSFPoolShareId), "Can't get share asset id"))
73	73
74	74
75	75		func getAxlyTotalPosition (pool) = valueOrElse(getInteger(this, (pool + kTotalPosition)), 0)
76	76
77	77
78	78		func getNewUserPositionNumber (pool,user) = (valueOrElse(getInteger(this, (((pool + "_") + user) + kUserPositionNum)), 0) + 1)
79	79
80	80
81	81		func getAxlyInFee (pool,withLoan) = if (withLoan)
82	82		then getIntegerValue(this, (pool + kAxlyInFeeWithLoan))
83	83		else getIntegerValue(this, (pool + kAxlyInFeeWithoutLoan))
84	84
85	85
86	86		func getSFFarmingAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kSFFarmingAddr), "Can't get swopfi farming addr")))
87	87
88	88
89	89		func getLendSrvAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kLendService), "Can't get lend service addr")))
90	90
91	91
92	92		func assetIdToStr (assetId) = match assetId {
93	93		case id: ByteVector =>
94	94		toBase58String(id)
95	95		case waves: Unit =>
96	96		"WAVES"
97	97		case _ =>
98	98		throw("Match error")
99	99		}
100	100
101	101
102	102		func assetIdFromStr (assetId) = if ((assetId == "WAVES"))
103	103		then unit
104	104		else fromBase58String(assetId)
105	105
106	106
107	107		func replanishSwopFi (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = {
108	108		let shareBalanceBefore = accountBalance(fromBase58String(shareId))
109	109		let poolAddr = Address(fromBase58String(pool))
110	110		let ratioA = fraction(SCALE8, pmtA, balA)
111	111		let ratioB = fraction(SCALE8, pmtB, balB)
112	112		let $t045444837 = if ((ratioB > ratioA))
113	113		then {
114	114		let pmt = fraction(balB, ratioA, SCALE8, CEILING)
115	115		$Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
116	116		}
117	117		else {
118	118		let pmt = fraction(balA, ratioB, SCALE8, CEILING)
119	119		$Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
120	120		}
121	121		let pmtAmountA = $t045444837._1
122	122		let pmtAmountB = $t045444837._2
123	123		let change = $t045444837._3
124	124		let changeAssetId = $t045444837._4
125	125		let poolVersion = getStringValue(poolAddr, "version")
126	126		let inv1 = if (if ((pmtAmountA > 0))
127	127		then (pmtAmountB > 0)
128	128		else false)
129	129		then {
130	130		let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
131	131		if ((poolVersion == "1.0.0"))
132	132		then invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
133	133		else if ((poolVersion == "2.0.0"))
134	134		then invoke(poolAddr, "replenishWithTwoTokensV2", [false, 0], payments)
135	135		else throw("Wrong pool type")
136	136		}
137	137		else 0
138	138		if ((inv1 == inv1))
139	139		then {
140	140		let inv2 = if ((change > 0))
141	141		then {
142	142		let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
143	143		if ((poolVersion == "1.0.0"))
144	144		then {
145		-	let vars = [~~toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)~~, "false", "0"]
	145	+	let vars = ["0", "false", "0"]
146	146		invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
147	147		}
148	148		else if ((poolVersion == "2.0.0"))
149	149		then {
150	150		let vars = [virtualSwapTokenPay, virtualSwapTokenGet, false, 0]
151	151		invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
152	152		}
153	153		else throw("Wrong pool type")
154	154		}
155	155		else 0
156	156		if ((inv2 == inv2))
157	157		then {
158	158		let shareBalanceAfter = accountBalance(fromBase58String(shareId))
159	159		let totalShare = (shareBalanceAfter - shareBalanceBefore)
160	160		let axlyInFee = fraction(totalShare, (FEE_SCALE6 - getAxlyInFee(pool, withLoan)), FEE_SCALE6)
161	161		let userShareForStake = (totalShare - axlyInFee)
162	162		if ((0 >= userShareForStake))
163	163		then throw("amount of staked sharetokens must be > 0")
164	164		else {
165	165		let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
166	166		if ((inv3 == inv3))
167	167		then {
168	168		let totalAmount = getAxlyTotalPosition(pool)
169	169		let newPosNum = getNewUserPositionNumber(pool, user)
170	170		[IntegerEntry((pool + kTotalPosition), (totalAmount + userShareForStake)), IntegerEntry((((((pool + "_") + user) + "_") + toString(newPosNum)) + kUserPosition), userShareForStake), StringEntry((((((pool + "_") + user) + "_") + toString(newPosNum)) + kUserPositionType), SF_POS_TYPE), IntegerEntry((((pool + "_") + user) + kUserPositionNum), newPosNum), ScriptTransfer(moneyBox, axlyInFee, fromBase58String(shareId))]
171	171		}
172	172		else throw("Strict value is not equal to itself.")
173	173		}
174	174		}
175	175		else throw("Strict value is not equal to itself.")
176	176		}
177	177		else throw("Strict value is not equal to itself.")
178	178		}
179	179
180	180
181	181		func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = nil
182	182
183	183
184	184		@Callable(i)
185	185		func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
186	186		let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
187		-	let $~~t076537904~~ = if ((type == SF_POS_TYPE))
	187	+	let $t075837834 = if ((type == SF_POS_TYPE))
188	188		then getSFPoolData(Address(fromBase58String(pool)))
189	189		else if ((type == WX_POS_TYPE))
190	190		then getWXPoolData(Address(fromBase58String(pool)))
191	191		else throw("Wrong pool type")
192		-	let AId = $~~t076537904~~._1
193		-	let BId = $~~t076537904~~._2
194		-	let balA = $~~t076537904~~._3
195		-	let balB = $~~t076537904~~._4
196		-	let shareId = $~~t076537904~~._5
197		-	let $~~t079088545~~ = if ((size(i.payments) == 2))
	192	+	let AId = $t075837834._1
	193	+	let BId = $t075837834._2
	194	+	let balA = $t075837834._3
	195	+	let balB = $t075837834._4
	196	+	let shareId = $t075837834._5
	197	+	let $t078388475 = if ((size(i.payments) == 2))
198	198		then if ((assetIdToStr(i.payments[0].assetId) != AId))
199	199		then throw("Wrong payment asset A")
200	200		else if ((assetIdToStr(i.payments[1].assetId) != BId))
201	201		then throw("Wrong payment asset B")
202	202		else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
203	203		else if ((size(i.payments) == 1))
204	204		then if ((assetIdToStr(i.payments[0].assetId) == AId))
205	205		then $Tuple4(i.payments[0].amount, AId, 0, BId)
206	206		else if ((assetIdToStr(i.payments[0].assetId) == BId))
207	207		then $Tuple4(0, AId, i.payments[0].amount, BId)
208	208		else throw("Wrong payment")
209	209		else throw("One or two payments expected")
210		-	let pmtA = $~~t079088545~~._1
211		-	let pmtAssetA = $~~t079088545~~._2
212		-	let pmtB = $~~t079088545~~._3
213		-	let pmtAssetB = $~~t079088545~~._4
	210	+	let pmtA = $t078388475._1
	211	+	let pmtAssetA = $t078388475._2
	212	+	let pmtB = $t078388475._3
	213	+	let pmtAssetB = $t078388475._4
214	214		if ((borrowAmount > 0))
215	215		then {
216	216		let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
217	217		let newRequestId = {
218	218		let @ = invoke(this, "createNewRequest", [request], nil)
219	219		if ($isInstanceOf(@, "Int"))
220	220		then @
221	221		else unit
222	222		}
223	223		if ((newRequestId == newRequestId))
224	224		then {
225	225		let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
226	226		let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
227	227		nil
228	228		}
229	229		else throw("Strict value is not equal to itself.")
230	230		}
231	231		else if ((type == SF_POS_TYPE))
232	232		then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId, virtualSwapTokenPay, virtualSwapTokenGet)
233	233		else throw("Cant wx")
234	234		}
235	235
236	236
237	237
238	238		@Callable(i)
239	239		func replanishFromLand (requestId) = {
240	240		let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
241	241		if ((request[0] == SF_POS_TYPE))
242	242		then replanishSwopFi(request[1], request[2], true, parseIntValue(request[3]), request[4], parseIntValue(request[5]), request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11]))
243	243		else throw("Cant wx")
244	244		}
245	245
246	246
247	247
248	248		@Callable(i)
249	249		func createNewRequest (params) = valueOrElse(isSelfCall(i), {
250	250		let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
251	251		$Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
252	252		})
253	253
254	254
255	255
256	256		@Callable(i)
257	257		func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
258	258		then (type != WX_POS_TYPE)
259	259		else false)
260	260		then throw("Wrong type")
261	261		else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
262	262
263	263
264	264		@Verifier(tx)
265	265		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
266	266

github/deemru/w8io/169f3d6 
44.50 ms ◑