w8 · tx · 8xp···iFz

tx · 8xpemsRMX3ySaHNG8ZS5Pvo3mLi4hCsvLV1TjbG6YiFz

3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS:  -0.01000000 Waves

2023.03.24 21:26 [2504456] smart account 3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8xpemsRMX3ySaHNG8ZS5Pvo3mLi4hCsvLV1TjbG6YiFz",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679682398961,
    "version": 2,
    "chainId": 84,
    "sender": "3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS",
    "senderPublicKey": "HP8sssVq1866F7CaPQJwgFrt6fsqhQjKwM84cL1wjD2a",
    "proofs": [
        "5a8ZQ7u6nkLhdoipNAzMHt3n6z9MFWM1mUZsg1fJU8q5WQPvQuk6LdwhsoMf39AhCNLdZFXeZF2wF5gee6rCe3T1"
    ],
    "script": "base64:BgIeCAISBwoFCAEIAQESAwoBCBIDCgEIEgcKBQgIAQEBJgALU0ZfUE9TX1RZUEUCAlNGAAtXWF9QT1NfVFlQRQICV1gABlNDQUxFOACAwtcvAApGRUVfU0NBTEU2AMCEPQAUa1NGUG9vbEFBc3NldEJhbGFuY2UCD0FfYXNzZXRfYmFsYW5jZQAUa1NGUG9vbEJBc3NldEJhbGFuY2UCD0JfYXNzZXRfYmFsYW5jZQAPa1NGUG9vbEFBc3NldElkAgpBX2Fzc2V0X2lkAA9rU0ZQb29sQkFzc2V0SWQCCkJfYXNzZXRfaWQADmtTRlBvb2xTaGFyZUlkAg5zaGFyZV9hc3NldF9pZAAOa1NGUG9vbFZlcnNpb24CB3ZlcnNpb24AEGtTRkZhcm1pbmdTdGFrZWQCFF9zaGFyZV90b2tlbnNfbG9ja2VkAA1rVXNlclBvc2l0aW9uAg5fdXNlcl9wb3NpdGlvbgARa1VzZXJQb3NpdGlvblR5cGUCE191c2VyX3Bvc2l0aW9uX3R5cGUAEGtVc2VyUG9zaXRpb25OdW0CFV91c2VyX3Bvc2l0aW9uX251bWJlcgAOa1RvdGFsUG9zaXRpb24CD190b3RhbF9wb3NpdGlvbgAVa0F4bHlJbkZlZVdpdGhvdXRMb2FuAhZfYXhseV9mZWVfd2l0aG91dF9sb2FuABJrQXhseUluRmVlV2l0aExvYW4CE19heGx5X2ZlZV93aXRoX2xvYW4AC2tBeGx5Q2FwRmVlAg1fYXhseV9mZWVfY2FwAAprUmVxdWVzdElkAgtfcmVxdWVzdF9pZAAMa1JlcXVlc3RJdGVyAg1yZXF1ZXN0c19pdGVyAAVrUG9vbAIFcG9vbF8ACWtNb25leUJveAIOYXhseV9tb25leV9ib3gADmtTRkZhcm1pbmdBZGRyAhNzd29wZmlfZmFybWluZ19hZGRyAAxrTGVuZFNlcnZpY2UCEWxlbmRfc2VydmljZV9hZGRyAAhtb25leUJveAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQlrTW9uZXlCb3gCGE5vIGF4bHkgbW9uZXlCb3ggYWRkcmVzcwEKaXNTZWxmQ2FsbAEBaQMJAAACCAUBaQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAitPbmx5IGNvbnRyYWN0IGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAQ5hY2NvdW50QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA8AcCBQR0aGlzBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAAIBAgtNYXRjaCBlcnJvcgENZ2V0U0ZQb29sRGF0YQEIcG9vbEFkZHIJAJcKBQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQUFzc2V0SWQCGUNhbid0IGdldCBwb29sIEEgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQhwb29sQWRkcgUPa1NGUG9vbEJBc3NldElkAhlDYW4ndCBnZXQgcG9vbCBCIGFzc2V0IGlkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUIcG9vbEFkZHIFFGtTRlBvb2xBQXNzZXRCYWxhbmNlAh5DYW4ndCBnZXQgcG9vbCBBIGFzc2V0IGJhbGFuY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEJBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEIgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ5rU0ZQb29sU2hhcmVJZAIYQ2FuJ3QgZ2V0IHNoYXJlIGFzc2V0IGlkAQ1nZXRXWFBvb2xEYXRhAQhwb29sQWRkcgkAlwoFCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFD2tTRlBvb2xBQXNzZXRJZAIZQ2FuJ3QgZ2V0IHBvb2wgQSBhc3NldCBpZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQkFzc2V0SWQCGUNhbid0IGdldCBwb29sIEIgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEFBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEEgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCHBvb2xBZGRyBRRrU0ZQb29sQkFzc2V0QmFsYW5jZQIeQ2FuJ3QgZ2V0IHBvb2wgQiBhc3NldCBiYWxhbmNlCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDmtTRlBvb2xTaGFyZUlkAhhDYW4ndCBnZXQgc2hhcmUgYXNzZXQgaWQBFGdldEF4bHlUb3RhbFBvc2l0aW9uAQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24AAAEYZ2V0TmV3VXNlclBvc2l0aW9uTnVtYmVyAgRwb29sBHVzZXIJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0AAAABAQxnZXRBeGx5SW5GZWUCBHBvb2wId2l0aExvYW4DBQh3aXRoTG9hbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICBQRwb29sBRJrQXhseUluRmVlV2l0aExvYW4JARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUVa0F4bHlJbkZlZVdpdGhvdXRMb2FuARBnZXRTRkZhcm1pbmdBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQ5rU0ZGYXJtaW5nQWRkcgIdQ2FuJ3QgZ2V0IHN3b3BmaSBmYXJtaW5nIGFkZHIBDmdldExlbmRTcnZBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQxrTGVuZFNlcnZpY2UCG0Nhbid0IGdldCBsZW5kIHNlcnZpY2UgYWRkcgEMYXNzZXRJZFRvU3RyAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDYBAEFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwAgVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ5hc3NldElkRnJvbVN0cgEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwUEdW5pdAkA2QQBBQdhc3NldElkAQ9yZXBsYW5pc2hTd29wRmkMBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQEEnNoYXJlQmFsYW5jZUJlZm9yZQkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkAwkAAAIFEnNoYXJlQmFsYW5jZUJlZm9yZQUSc2hhcmVCYWxhbmNlQmVmb3JlBAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBnJhdGlvQQkAawMFBlNDQUxFOAUEcG10QQUEYmFsQQQGcmF0aW9CCQBrAwUGU0NBTEU4BQRwbXRCBQRiYWxCBAskdDA0NTQ3NDg0MAMJAGYCBQZyYXRpb0IFBnJhdGlvQQQDcG10CQBuBAUEYmFsQgUGcmF0aW9BBQZTQ0FMRTgFB0NFSUxJTkcJAJYKBAUEcG10QQUDcG10CQBlAgUEcG10QgUDcG10BQlwbXRBc3NldEIEA3BtdAkAbgQFBGJhbEEFBnJhdGlvQgUGU0NBTEU4BQdDRUlMSU5HCQCWCgQFA3BtdAUEcG10QgkAZQIFBHBtdEEFA3BtdAUJcG10QXNzZXRBBApwbXRBbW91bnRBCAULJHQwNDU0NzQ4NDACXzEECnBtdEFtb3VudEIIBQskdDA0NTQ3NDg0MAJfMgQGY2hhbmdlCAULJHQwNDU0NzQ4NDACXzMEDWNoYW5nZUFzc2V0SWQIBQskdDA0NTQ3NDg0MAJfNAQLcG9vbFZlcnNpb24JARFAZXh0ck5hdGl2ZSgxMDUzKQIFCHBvb2xBZGRyAgd2ZXJzaW9uBARpbnYxAwMJAGYCBQpwbXRBbW91bnRBAAAJAGYCBQpwbXRBbW91bnRCAAAHBAhwYXltZW50cwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDmFzc2V0SWRGcm9tU3RyAQUJcG10QXNzZXRBBQpwbXRBbW91bnRBCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQlwbXRBc3NldEIFCnBtdEFtb3VudEIFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhZyZXBsZW5pc2hXaXRoVHdvVG9rZW5zCQDMCAIJAMwIAgIFZmFsc2UJAMwIAgIBMAUDbmlsBQNuaWwFCHBheW1lbnRzAwkAAAIFC3Bvb2xWZXJzaW9uAgUyLjAuMAkA/AcEBQhwb29sQWRkcgIYcmVwbGVuaXNoV2l0aFR3b1Rva2Vuc1YyCQDMCAIHCQDMCAIAAAUDbmlsBQhwYXltZW50cwkAAgECD1dyb25nIHBvb2wgdHlwZQAAAwkAAAIFBGludjEFBGludjEEBGludjIDCQBmAgUGY2hhbmdlAAAECHBheW1lbnRzCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQ1jaGFuZ2VBc3NldElkBQZjaGFuZ2UFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAEBHZhcnMJAMwIAgIBMAkAzAgCAgVmYWxzZQkAzAgCAgEwBQNuaWwJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhVyZXBsZW5pc2hXaXRoT25lVG9rZW4JAMwIAgUEdmFycwUDbmlsBQhwYXltZW50cwMJAAACBQtwb29sVmVyc2lvbgIFMi4wLjAEBHZhcnMJAMwIAgUTdmlydHVhbFN3YXBUb2tlblBheQkAzAgCBRN2aXJ0dWFsU3dhcFRva2VuR2V0CQDMCAIHCQDMCAIAAAUDbmlsCQD8BwQFCHBvb2xBZGRyAhdyZXBsZW5pc2hXaXRoT25lVG9rZW5WMgkAzAgCBwkAzAgCAAAFA25pbAUIcGF5bWVudHMJAAIBAg9Xcm9uZyBwb29sIHR5cGUAAAMJAAACBQRpbnYyBQRpbnYyBBFzaGFyZUJhbGFuY2VBZnRlcgkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkAwkAAAIAAQABCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCkAwEFEXNoYXJlQmFsYW5jZUFmdGVyAgQgfHwgCQCkAwEFEnNoYXJlQmFsYW5jZUJlZm9yZQIEIHx8IAkApAMBCQBlAgURc2hhcmVCYWxhbmNlQWZ0ZXIFEnNoYXJlQmFsYW5jZUJlZm9yZQQKdG90YWxTaGFyZQkAZQIFEXNoYXJlQmFsYW5jZUFmdGVyBRJzaGFyZUJhbGFuY2VCZWZvcmUECWF4bHlJbkZlZQkAawMFCnRvdGFsU2hhcmUJAQxnZXRBeGx5SW5GZWUCBQRwb29sBQh3aXRoTG9hbgUKRkVFX1NDQUxFNgMJAAACAAEAAQkAAgEJAKQDAQkBDGdldEF4bHlJbkZlZQIFBHBvb2wFCHdpdGhMb2FuBBF1c2VyU2hhcmVGb3JTdGFrZQkAZQIFCnRvdGFsU2hhcmUFCWF4bHlJbkZlZQMJAAACAAEAAQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkApAMBBQp0b3RhbFNoYXJlAgQgfHwgCQCkAwEFCWF4bHlJbkZlZQIEIHx8IAkApAMBBRF1c2VyU2hhcmVGb3JTdGFrZQMJAGcCAAAFEXVzZXJTaGFyZUZvclN0YWtlCQACAQIoYW1vdW50IG9mIHN0YWtlZCBzaGFyZXRva2VucyBtdXN0IGJlID4gMAQEaW52MwkA/AcECQEQZ2V0U0ZGYXJtaW5nQWRkcgACD2xvY2tTaGFyZVRva2VucwkAzAgCBQRwb29sCQDMCAIAAAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFB3NoYXJlSWQFEXVzZXJTaGFyZUZvclN0YWtlBQNuaWwDCQAAAgUEaW52MwUEaW52MwQLdG90YWxBbW91bnQJARRnZXRBeGx5VG90YWxQb3NpdGlvbgEFBHBvb2wECW5ld1Bvc051bQkBGGdldE5ld1VzZXJQb3NpdGlvbk51bWJlcgIFBHBvb2wFBHVzZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24JAGQCBQt0b3RhbEFtb3VudAURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyAgFfCQCkAwEFCW5ld1Bvc051bQUNa1VzZXJQb3NpdGlvbgURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXICAV8JAKQDAQUJbmV3UG9zTnVtBRFrVXNlclBvc2l0aW9uVHlwZQULU0ZfUE9TX1RZUEUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0FCW5ld1Bvc051bQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQhtb25leUJveAUJYXhseUluRmVlCQDZBAEFB3NoYXJlSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELcmVwbGFuaXNoV1gMBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQFA25pbAQBaQEJcmVwbGFuaXNoBQRwb29sDGJvcnJvd0Ftb3VudA1ib3Jyb3dBc3NldElkE3ZpcnR1YWxTd2FwVG9rZW5QYXkTdmlydHVhbFN3YXBUb2tlbkdldAQEdHlwZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgUFa1Bvb2wFBHBvb2wCElBvb2wgaXMgbm90IGluaXRlZAQLJHQwNzkyNzgxNzgDCQAAAgUEdHlwZQULU0ZfUE9TX1RZUEUJAQ1nZXRTRlBvb2xEYXRhAQkBB0FkZHJlc3MBCQDZBAEFBHBvb2wDCQAAAgUEdHlwZQULV1hfUE9TX1RZUEUJAQ1nZXRXWFBvb2xEYXRhAQkBB0FkZHJlc3MBCQDZBAEFBHBvb2wJAAIBAg9Xcm9uZyBwb29sIHR5cGUEA0FJZAgFCyR0MDc5Mjc4MTc4Al8xBANCSWQIBQskdDA3OTI3ODE3OAJfMgQEYmFsQQgFCyR0MDc5Mjc4MTc4Al8zBARiYWxCCAULJHQwNzkyNzgxNzgCXzQEB3NoYXJlSWQIBQskdDA3OTI3ODE3OAJfNQQLJHQwODE4Mjg4MTkDCQAAAgkAkAMBCAUBaQhwYXltZW50cwACAwkBAiE9AgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDQUlkCQACAQIVV3JvbmcgcGF5bWVudCBhc3NldCBBAwkBAiE9AgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUDQklkCQACAQIVV3JvbmcgcGF5bWVudCBhc3NldCBCCQCWCgQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNBSWQICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BQNCSWQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABAwkAAAIJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFA0FJZAkAlgoECAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUDQUlkAAAFA0JJZAMJAAACCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNCSWQJAJYKBAAABQNBSWQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNCSWQJAAIBAg1Xcm9uZyBwYXltZW50CQACAQIcT25lIG9yIHR3byBwYXltZW50cyBleHBlY3RlZAQEcG10QQgFCyR0MDgxODI4ODE5Al8xBAlwbXRBc3NldEEIBQskdDA4MTgyODgxOQJfMgQEcG10QggFCyR0MDgxODI4ODE5Al8zBAlwbXRBc3NldEIIBQskdDA4MTgyODgxOQJfNAMJAGYCBQxib3Jyb3dBbW91bnQAAAQHcmVxdWVzdAkAuQkCCQDMCAIFBHR5cGUJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgUEcG9vbAkAzAgCCQCkAwEFBHBtdEEJAMwIAgUJcG10QXNzZXRBCQDMCAIJAKQDAQUEcG10QgkAzAgCBQlwbXRBc3NldEIJAMwIAgkApAMBBQRiYWxBCQDMCAIJAKQDAQUEYmFsQgkAzAgCBQdzaGFyZUlkCQDMCAIJAKQDAQUTdmlydHVhbFN3YXBUb2tlblBheQkAzAgCCQCkAwEFE3ZpcnR1YWxTd2FwVG9rZW5HZXQFA25pbAIBLAQMbmV3UmVxdWVzdElkCgABQAkA/AcEBQR0aGlzAhBjcmVhdGVOZXdSZXF1ZXN0CQDMCAIFB3JlcXVlc3QFA25pbAUDbmlsAwkAAQIFAUACA0ludAUBQAUEdW5pdAMJAAACBQxuZXdSZXF1ZXN0SWQFDG5ld1JlcXVlc3RJZAQEYXJncwkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCBQdzaGFyZUlkCQDMCAIFDWJvcnJvd0Fzc2V0SWQJAMwIAgUMYm9ycm93QW1vdW50CQDMCAIJAKUIAQUEdGhpcwkAzAgCAhFyZXBsYW5pc2hGcm9tTGFuZAkAzAgCCQCkAwEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgUMbmV3UmVxdWVzdElkAhhDYW4ndCBjcmVhdGUgbmV3IHJlcXVlc3QFA25pbAQDaW52CQD9BwQJAQ5nZXRMZW5kU3J2QWRkcgACDWZsYXNoUG9zaXRpb24FBGFyZ3MFA25pbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAwkAAAIFBHR5cGUFC1NGX1BPU19UWVBFCQEPcmVwbGFuaXNoU3dvcEZpDAkApQgBCAUBaQZjYWxsZXIFBHBvb2wHBQRwbXRBBQlwbXRBc3NldEEFBHBtdEIFCXBtdEFzc2V0QgUEYmFsQQUEYmFsQgUHc2hhcmVJZAUTdmlydHVhbFN3YXBUb2tlblBheQUTdmlydHVhbFN3YXBUb2tlbkdldAkAAgECB0NhbnQgd3gBaQERcmVwbGFuaXNoRnJvbUxhbmQBCXJlcXVlc3RJZAQHcmVxdWVzdAkAtQkCCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwkArAICBQlyZXF1ZXN0SWQFCmtSZXF1ZXN0SWQJAKwCAgITTm8gcmVxdWVzdCB3aXRoIGlkIAUJcmVxdWVzdElkAgEsAwkAAAIJAJEDAgUHcmVxdWVzdAAABQtTRl9QT1NfVFlQRQkBD3JlcGxhbmlzaFN3b3BGaQwJAJEDAgUHcmVxdWVzdAABCQCRAwIFB3JlcXVlc3QAAgYJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAMJAJEDAgUHcmVxdWVzdAAECQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAFCQCRAwIFB3JlcXVlc3QABgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QABwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QACAkAkQMCBQdyZXF1ZXN0AAkJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAoJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAsJAAIBAgdDYW50IHd4AWkBEGNyZWF0ZU5ld1JlcXVlc3QBBnBhcmFtcwkBC3ZhbHVlT3JFbHNlAgkBCmlzU2VsZkNhbGwBBQFpBAxuZXdSZXF1ZXN0SWQJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDGtSZXF1ZXN0SXRlcgAAAAEJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKQDAQUMbmV3UmVxdWVzdElkBQprUmVxdWVzdElkBQZwYXJhbXMFA25pbAUMbmV3UmVxdWVzdElkAWkBC2luaXROZXdQb29sBQR0eXBlCHBvb2xBZGRyC2luRmVlTm9Mb2FuCWluRmVlTG9hbgZjYXBGZWUDAwkBAiE9AgUEdHlwZQULU0ZfUE9TX1RZUEUJAQIhPQIFBHR5cGUFC1dYX1BPU19UWVBFBwkAAgECCldyb25nIHR5cGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUIcG9vbEFkZHIFFWtBeGx5SW5GZWVXaXRob3V0TG9hbgULaW5GZWVOb0xvYW4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUIcG9vbEFkZHIFEmtBeGx5SW5GZWVXaXRoTG9hbgUJaW5GZWVMb2FuCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCHBvb2xBZGRyBQtrQXhseUNhcEZlZQUGY2FwRmVlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUFa1Bvb2wFCHBvb2xBZGRyBQR0eXBlBQNuaWwBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5wp1o1w==",
    "height": 2504456,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FJwMz31g3JYuRqQicSvUZ3QxaeGsxvsaQ9JxWkGVVqnf
Next: 4vcWPfZf8LmCebKnN2dG9FLRDv3GaWs2gEXE2W2QrYzT

Diff: 
Old New Differences
118 118  
119 119  func T (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = {
120 120      let ad = B(fromBase58String(aa))
121 -     let H = Address(fromBase58String(K))
122 -     let ae = fraction(c, U, Y)
123 -     let af = fraction(c, W, Z)
124 -     let ag = if ((af > ae))
121 +     if ((ad == ad))
125 122          then {
126 -             let ah = fraction(Z, ae, c, CEILING)
127 -             $Tuple4(U, ah, (W - ah), X)
128 -             }
129 -         else {
130 -             let ah = fraction(Y, af, c, CEILING)
131 -             $Tuple4(ah, W, (U - ah), V)
132 -             }
133 -     let ai = ag._1
134 -     let aj = ag._2
135 -     let ak = ag._3
136 -     let al = ag._4
137 -     let am = getStringValue(H, "version")
138 -     let an = if (if ((ai > 0))
139 -         then (aj > 0)
140 -         else false)
141 -         then {
142 -             let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
143 -             if ((am == "1.0.0"))
144 -                 then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
145 -                 else if ((am == "2.0.0"))
146 -                     then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
147 -                     else throw("Wrong pool type")
148 -             }
149 -         else 0
150 -     if ((an == an))
151 -         then {
152 -             let ap = if ((ak > 0))
123 +             let H = Address(fromBase58String(K))
124 +             let ae = fraction(c, U, Y)
125 +             let af = fraction(c, W, Z)
126 +             let ag = if ((af > ae))
153 127                  then {
154 -                     let ao = [AttachedPayment(S(al), ak)]
128 +                     let ah = fraction(Z, ae, c, CEILING)
129 +                     $Tuple4(U, ah, (W - ah), X)
130 +                     }
131 +                 else {
132 +                     let ah = fraction(Y, af, c, CEILING)
133 +                     $Tuple4(ah, W, (U - ah), V)
134 +                     }
135 +             let ai = ag._1
136 +             let aj = ag._2
137 +             let ak = ag._3
138 +             let al = ag._4
139 +             let am = getStringValue(H, "version")
140 +             let an = if (if ((ai > 0))
141 +                 then (aj > 0)
142 +                 else false)
143 +                 then {
144 +                     let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
155 145                      if ((am == "1.0.0"))
156 -                         then {
157 -                             let aq = ["0", "false", "0"]
158 -                             invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
159 -                             }
146 +                         then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
160 147                          else if ((am == "2.0.0"))
161 -                             then {
162 -                                 let aq = [ab, ac, false, 0]
163 -                                 invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
164 -                                 }
148 +                             then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
165 149                              else throw("Wrong pool type")
166 150                      }
167 151                  else 0
168 -             if ((ap == ap))
152 +             if ((an == an))
169 153                  then {
170 -                     let ar = B(fromBase58String(aa))
171 -                     if ((1 == 1))
172 -                         then throw(((((toString(ar) + " || ") + toString(ad)) + " || ") + toString((ar - ad))))
173 -                         else {
174 -                             let as = (ar - ad)
175 -                             let at = fraction(as, N(K, O), d)
154 +                     let ap = if ((ak > 0))
155 +                         then {
156 +                             let ao = [AttachedPayment(S(al), ak)]
157 +                             if ((am == "1.0.0"))
158 +                                 then {
159 +                                     let aq = ["0", "false", "0"]
160 +                                     invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
161 +                                     }
162 +                                 else if ((am == "2.0.0"))
163 +                                     then {
164 +                                         let aq = [ab, ac, false, 0]
165 +                                         invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
166 +                                         }
167 +                                     else throw("Wrong pool type")
168 +                             }
169 +                         else 0
170 +                     if ((ap == ap))
171 +                         then {
172 +                             let ar = B(fromBase58String(aa))
176 173                              if ((1 == 1))
177 -                                 then throw(toString(N(K, O)))
174 +                                 then throw(((((toString(ar) + " || ") + toString(ad)) + " || ") + toString((ar - ad))))
178 175                                  else {
179 -                                     let au = (as - at)
176 +                                     let as = (ar - ad)
177 +                                     let at = fraction(as, N(K, O), d)
180 178                                      if ((1 == 1))
181 -                                         then throw(((((toString(as) + " || ") + toString(at)) + " || ") + toString(au)))
182 -                                         else if ((0 >= au))
183 -                                             then throw("amount of staked sharetokens must be > 0")
184 -                                             else {
185 -                                                 let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
186 -                                                 if ((av == av))
187 -                                                     then {
188 -                                                         let aw = J(K)
189 -                                                         let ax = L(K, M)
179 +                                         then throw(toString(N(K, O)))
180 +                                         else {
181 +                                             let au = (as - at)
182 +                                             if ((1 == 1))
183 +                                                 then throw(((((toString(as) + " || ") + toString(at)) + " || ") + toString(au)))
184 +                                                 else if ((0 >= au))
185 +                                                     then throw("amount of staked sharetokens must be > 0")
186 +                                                     else {
187 +                                                         let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
188 +                                                         if ((av == av))
189 +                                                             then {
190 +                                                                 let aw = J(K)
191 +                                                                 let ax = L(K, M)
190 192  [IntegerEntry((K + o), (aw + au)), IntegerEntry((((((K + "_") + M) + "_") + toString(ax)) + l), au), StringEntry((((((K + "_") + M) + "_") + toString(ax)) + m), a), IntegerEntry((((K + "_") + M) + n), ax), ScriptTransfer(y, at, fromBase58String(aa))]
193 +                                                                 }
194 +                                                             else throw("Strict value is not equal to itself.")
191 195                                                          }
192 -                                                     else throw("Strict value is not equal to itself.")
193 -                                                 }
196 +                                             }
194 197                                      }
195 198                              }
199 +                         else throw("Strict value is not equal to itself.")
196 200                      }
197 201                  else throw("Strict value is not equal to itself.")
198 202              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = "SF"
5 5  
6 6  let b = "WX"
7 7  
8 8  let c = 100000000
9 9  
10 10  let d = 1000000
11 11  
12 12  let e = "A_asset_balance"
13 13  
14 14  let f = "B_asset_balance"
15 15  
16 16  let g = "A_asset_id"
17 17  
18 18  let h = "B_asset_id"
19 19  
20 20  let i = "share_asset_id"
21 21  
22 22  let j = "version"
23 23  
24 24  let k = "_share_tokens_locked"
25 25  
26 26  let l = "_user_position"
27 27  
28 28  let m = "_user_position_type"
29 29  
30 30  let n = "_user_position_number"
31 31  
32 32  let o = "_total_position"
33 33  
34 34  let p = "_axly_fee_without_loan"
35 35  
36 36  let q = "_axly_fee_with_loan"
37 37  
38 38  let r = "_axly_fee_cap"
39 39  
40 40  let s = "_request_id"
41 41  
42 42  let t = "requests_iter"
43 43  
44 44  let u = "pool_"
45 45  
46 46  let v = "axly_money_box"
47 47  
48 48  let w = "swopfi_farming_addr"
49 49  
50 50  let x = "lend_service_addr"
51 51  
52 52  let y = Address(fromBase58String(valueOrErrorMessage(getString(this, v), "No axly moneyBox address")))
53 53  
54 54  func z (A) = if ((A.caller == this))
55 55      then unit
56 56      else throw("Only contract itself can call this function")
57 57  
58 58  
59 59  func B (C) = {
60 60      let D = C
61 61      if ($isInstanceOf(D, "ByteVector"))
62 62          then {
63 63              let E = D
64 64              assetBalance(this, E)
65 65              }
66 66          else if ($isInstanceOf(D, "Unit"))
67 67              then {
68 68                  let F = D
69 69                  wavesBalance(this).available
70 70                  }
71 71              else throw("Match error")
72 72      }
73 73  
74 74  
75 75  func G (H) = $Tuple5(valueOrErrorMessage(getString(H, g), "Can't get pool A asset id"), valueOrErrorMessage(getString(H, h), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(H, e), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(H, f), "Can't get pool B asset balance"), valueOrErrorMessage(getString(H, i), "Can't get share asset id"))
76 76  
77 77  
78 78  func I (H) = $Tuple5(valueOrErrorMessage(getString(H, g), "Can't get pool A asset id"), valueOrErrorMessage(getString(H, h), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(H, e), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(H, f), "Can't get pool B asset balance"), valueOrErrorMessage(getString(H, i), "Can't get share asset id"))
79 79  
80 80  
81 81  func J (K) = valueOrElse(getInteger(this, (K + o)), 0)
82 82  
83 83  
84 84  func L (K,M) = (valueOrElse(getInteger(this, (((K + "_") + M) + n)), 0) + 1)
85 85  
86 86  
87 87  func N (K,O) = if (O)
88 88      then getIntegerValue(this, (K + q))
89 89      else getIntegerValue(this, (K + p))
90 90  
91 91  
92 92  func P () = Address(fromBase58String(valueOrErrorMessage(getString(this, w), "Can't get swopfi farming addr")))
93 93  
94 94  
95 95  func Q () = Address(fromBase58String(valueOrErrorMessage(getString(this, x), "Can't get lend service addr")))
96 96  
97 97  
98 98  func R (C) = {
99 99      let D = C
100 100      if ($isInstanceOf(D, "ByteVector"))
101 101          then {
102 102              let E = D
103 103              toBase58String(E)
104 104              }
105 105          else if ($isInstanceOf(D, "Unit"))
106 106              then {
107 107                  let F = D
108 108                  "WAVES"
109 109                  }
110 110              else throw("Match error")
111 111      }
112 112  
113 113  
114 114  func S (C) = if ((C == "WAVES"))
115 115      then unit
116 116      else fromBase58String(C)
117 117  
118 118  
119 119  func T (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = {
120 120      let ad = B(fromBase58String(aa))
121 -     let H = Address(fromBase58String(K))
122 -     let ae = fraction(c, U, Y)
123 -     let af = fraction(c, W, Z)
124 -     let ag = if ((af > ae))
121 +     if ((ad == ad))
125 122          then {
126 -             let ah = fraction(Z, ae, c, CEILING)
127 -             $Tuple4(U, ah, (W - ah), X)
128 -             }
129 -         else {
130 -             let ah = fraction(Y, af, c, CEILING)
131 -             $Tuple4(ah, W, (U - ah), V)
132 -             }
133 -     let ai = ag._1
134 -     let aj = ag._2
135 -     let ak = ag._3
136 -     let al = ag._4
137 -     let am = getStringValue(H, "version")
138 -     let an = if (if ((ai > 0))
139 -         then (aj > 0)
140 -         else false)
141 -         then {
142 -             let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
143 -             if ((am == "1.0.0"))
144 -                 then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
145 -                 else if ((am == "2.0.0"))
146 -                     then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
147 -                     else throw("Wrong pool type")
148 -             }
149 -         else 0
150 -     if ((an == an))
151 -         then {
152 -             let ap = if ((ak > 0))
123 +             let H = Address(fromBase58String(K))
124 +             let ae = fraction(c, U, Y)
125 +             let af = fraction(c, W, Z)
126 +             let ag = if ((af > ae))
153 127                  then {
154 -                     let ao = [AttachedPayment(S(al), ak)]
128 +                     let ah = fraction(Z, ae, c, CEILING)
129 +                     $Tuple4(U, ah, (W - ah), X)
130 +                     }
131 +                 else {
132 +                     let ah = fraction(Y, af, c, CEILING)
133 +                     $Tuple4(ah, W, (U - ah), V)
134 +                     }
135 +             let ai = ag._1
136 +             let aj = ag._2
137 +             let ak = ag._3
138 +             let al = ag._4
139 +             let am = getStringValue(H, "version")
140 +             let an = if (if ((ai > 0))
141 +                 then (aj > 0)
142 +                 else false)
143 +                 then {
144 +                     let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
155 145                      if ((am == "1.0.0"))
156 -                         then {
157 -                             let aq = ["0", "false", "0"]
158 -                             invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
159 -                             }
146 +                         then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
160 147                          else if ((am == "2.0.0"))
161 -                             then {
162 -                                 let aq = [ab, ac, false, 0]
163 -                                 invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
164 -                                 }
148 +                             then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
165 149                              else throw("Wrong pool type")
166 150                      }
167 151                  else 0
168 -             if ((ap == ap))
152 +             if ((an == an))
169 153                  then {
170 -                     let ar = B(fromBase58String(aa))
171 -                     if ((1 == 1))
172 -                         then throw(((((toString(ar) + " || ") + toString(ad)) + " || ") + toString((ar - ad))))
173 -                         else {
174 -                             let as = (ar - ad)
175 -                             let at = fraction(as, N(K, O), d)
154 +                     let ap = if ((ak > 0))
155 +                         then {
156 +                             let ao = [AttachedPayment(S(al), ak)]
157 +                             if ((am == "1.0.0"))
158 +                                 then {
159 +                                     let aq = ["0", "false", "0"]
160 +                                     invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
161 +                                     }
162 +                                 else if ((am == "2.0.0"))
163 +                                     then {
164 +                                         let aq = [ab, ac, false, 0]
165 +                                         invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
166 +                                         }
167 +                                     else throw("Wrong pool type")
168 +                             }
169 +                         else 0
170 +                     if ((ap == ap))
171 +                         then {
172 +                             let ar = B(fromBase58String(aa))
176 173                              if ((1 == 1))
177 -                                 then throw(toString(N(K, O)))
174 +                                 then throw(((((toString(ar) + " || ") + toString(ad)) + " || ") + toString((ar - ad))))
178 175                                  else {
179 -                                     let au = (as - at)
176 +                                     let as = (ar - ad)
177 +                                     let at = fraction(as, N(K, O), d)
180 178                                      if ((1 == 1))
181 -                                         then throw(((((toString(as) + " || ") + toString(at)) + " || ") + toString(au)))
182 -                                         else if ((0 >= au))
183 -                                             then throw("amount of staked sharetokens must be > 0")
184 -                                             else {
185 -                                                 let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
186 -                                                 if ((av == av))
187 -                                                     then {
188 -                                                         let aw = J(K)
189 -                                                         let ax = L(K, M)
179 +                                         then throw(toString(N(K, O)))
180 +                                         else {
181 +                                             let au = (as - at)
182 +                                             if ((1 == 1))
183 +                                                 then throw(((((toString(as) + " || ") + toString(at)) + " || ") + toString(au)))
184 +                                                 else if ((0 >= au))
185 +                                                     then throw("amount of staked sharetokens must be > 0")
186 +                                                     else {
187 +                                                         let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
188 +                                                         if ((av == av))
189 +                                                             then {
190 +                                                                 let aw = J(K)
191 +                                                                 let ax = L(K, M)
190 192  [IntegerEntry((K + o), (aw + au)), IntegerEntry((((((K + "_") + M) + "_") + toString(ax)) + l), au), StringEntry((((((K + "_") + M) + "_") + toString(ax)) + m), a), IntegerEntry((((K + "_") + M) + n), ax), ScriptTransfer(y, at, fromBase58String(aa))]
193 +                                                                 }
194 +                                                             else throw("Strict value is not equal to itself.")
191 195                                                          }
192 -                                                     else throw("Strict value is not equal to itself.")
193 -                                                 }
196 +                                             }
194 197                                      }
195 198                              }
199 +                         else throw("Strict value is not equal to itself.")
196 200                      }
197 201                  else throw("Strict value is not equal to itself.")
198 202              }
199 203          else throw("Strict value is not equal to itself.")
200 204      }
201 205  
202 206  
203 207  func ay (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = nil
204 208  
205 209  
206 210  @Callable(A)
207 211  func replanish (K,az,aA,ab,ac) = {
208 212      let aB = valueOrErrorMessage(getString(this, (u + K)), "Pool is not inited")
209 213      let aC = if ((aB == a))
210 214          then G(Address(fromBase58String(K)))
211 215          else if ((aB == b))
212 216              then I(Address(fromBase58String(K)))
213 217              else throw("Wrong pool type")
214 218      let aD = aC._1
215 219      let aE = aC._2
216 220      let Y = aC._3
217 221      let Z = aC._4
218 222      let aa = aC._5
219 223      let aF = if ((size(A.payments) == 2))
220 224          then if ((R(A.payments[0].assetId) != aD))
221 225              then throw("Wrong payment asset A")
222 226              else if ((R(A.payments[1].assetId) != aE))
223 227                  then throw("Wrong payment asset B")
224 228                  else $Tuple4(A.payments[0].amount, aD, A.payments[1].amount, aE)
225 229          else if ((size(A.payments) == 1))
226 230              then if ((R(A.payments[0].assetId) == aD))
227 231                  then $Tuple4(A.payments[0].amount, aD, 0, aE)
228 232                  else if ((R(A.payments[0].assetId) == aE))
229 233                      then $Tuple4(0, aD, A.payments[0].amount, aE)
230 234                      else throw("Wrong payment")
231 235              else throw("One or two payments expected")
232 236      let U = aF._1
233 237      let V = aF._2
234 238      let W = aF._3
235 239      let X = aF._4
236 240      if ((az > 0))
237 241          then {
238 242              let aG = makeString([aB, toString(A.caller), K, toString(U), V, toString(W), X, toString(Y), toString(Z), aa, toString(ab), toString(ac)], ",")
239 243              let aH = {
240 244                  let aI = invoke(this, "createNewRequest", [aG], nil)
241 245                  if ($isInstanceOf(aI, "Int"))
242 246                      then aI
243 247                      else unit
244 248                  }
245 249              if ((aH == aH))
246 250                  then {
247 251                      let aJ = [toString(A.caller), aa, aA, az, toString(this), "replanishFromLand", toString(valueOrErrorMessage(aH, "Can't create new request"))]
248 252                      let aK = reentrantInvoke(Q(), "flashPosition", aJ, nil)
249 253                      nil
250 254                      }
251 255                  else throw("Strict value is not equal to itself.")
252 256              }
253 257          else if ((aB == a))
254 258              then T(toString(A.caller), K, false, U, V, W, X, Y, Z, aa, ab, ac)
255 259              else throw("Cant wx")
256 260      }
257 261  
258 262  
259 263  
260 264  @Callable(A)
261 265  func replanishFromLand (aL) = {
262 266      let aG = split(valueOrErrorMessage(getString(this, (aL + s)), ("No request with id " + aL)), ",")
263 267      if ((aG[0] == a))
264 268          then T(aG[1], aG[2], true, parseIntValue(aG[3]), aG[4], parseIntValue(aG[5]), aG[6], parseIntValue(aG[7]), parseIntValue(aG[8]), aG[9], parseIntValue(aG[10]), parseIntValue(aG[11]))
265 269          else throw("Cant wx")
266 270      }
267 271  
268 272  
269 273  
270 274  @Callable(A)
271 275  func createNewRequest (aM) = valueOrElse(z(A), {
272 276      let aH = (valueOrElse(getInteger(this, t), 0) + 1)
273 277      $Tuple2([StringEntry((toString(aH) + s), aM)], aH)
274 278      })
275 279  
276 280  
277 281  
278 282  @Callable(A)
279 283  func initNewPool (aB,H,aN,aO,aP) = if (if ((aB != a))
280 284      then (aB != b)
281 285      else false)
282 286      then throw("Wrong type")
283 287      else [IntegerEntry((H + p), aN), IntegerEntry((H + q), aO), IntegerEntry((H + r), aP), StringEntry((u + H), aB)]
284 288  
285 289  
286 290  @Verifier(aQ)
287 291  func aR () = sigVerify(aQ.bodyBytes, aQ.proofs[0], aQ.senderPublicKey)
288 292

Old	New		Differences
118	118
119	119		func T (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = {
120	120		let ad = B(fromBase58String(aa))
121		-	let H = Address(fromBase58String(K))
122		-	let ae = fraction(c, U, Y)
123		-	let af = fraction(c, W, Z)
124		-	let ag = if ((af > ae))
	121	+	if ((ad == ad))
125	122		then {
126		-	let ah = fraction(Z, ae, c, CEILING)
127		-	$Tuple4(U, ah, (W - ah), X)
128		-	}
129		-	else {
130		-	let ah = fraction(Y, af, c, CEILING)
131		-	$Tuple4(ah, W, (U - ah), V)
132		-	}
133		-	let ai = ag._1
134		-	let aj = ag._2
135		-	let ak = ag._3
136		-	let al = ag._4
137		-	let am = getStringValue(H, "version")
138		-	let an = if (if ((ai > 0))
139		-	then (aj > 0)
140		-	else false)
141		-	then {
142		-	let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
143		-	if ((am == "1.0.0"))
144		-	then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
145		-	else if ((am == "2.0.0"))
146		-	then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
147		-	else throw("Wrong pool type")
148		-	}
149		-	else 0
150		-	if ((an == an))
151		-	then {
152		-	let ap = if ((ak > 0))
	123	+	let H = Address(fromBase58String(K))
	124	+	let ae = fraction(c, U, Y)
	125	+	let af = fraction(c, W, Z)
	126	+	let ag = if ((af > ae))
153	127		then {
154		-	let ao = [AttachedPayment(S(al), ak)]
	128	+	let ah = fraction(Z, ae, c, CEILING)
	129	+	$Tuple4(U, ah, (W - ah), X)
	130	+	}
	131	+	else {
	132	+	let ah = fraction(Y, af, c, CEILING)
	133	+	$Tuple4(ah, W, (U - ah), V)
	134	+	}
	135	+	let ai = ag._1
	136	+	let aj = ag._2
	137	+	let ak = ag._3
	138	+	let al = ag._4
	139	+	let am = getStringValue(H, "version")
	140	+	let an = if (if ((ai > 0))
	141	+	then (aj > 0)
	142	+	else false)
	143	+	then {
	144	+	let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
155	145		if ((am == "1.0.0"))
156		-	then {
157		-	let aq = ["0", "false", "0"]
158		-	invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
159		-	}
	146	+	then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
160	147		else if ((am == "2.0.0"))
161		-	then {
162		-	let aq = [ab, ac, false, 0]
163		-	invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
164		-	}
	148	+	then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
165	149		else throw("Wrong pool type")
166	150		}
167	151		else 0
168		-	if ((ap == ap))
	152	+	if ((an == an))
169	153		then {
170		-	let ar = B(fromBase58String(aa))
171		-	if ((1 == 1))
172		-	then throw(((((toString(ar) + " \|\| ") + toString(ad)) + " \|\| ") + toString((ar - ad))))
173		-	else {
174		-	let as = (ar - ad)
175		-	let at = fraction(as, N(K, O), d)
	154	+	let ap = if ((ak > 0))
	155	+	then {
	156	+	let ao = [AttachedPayment(S(al), ak)]
	157	+	if ((am == "1.0.0"))
	158	+	then {
	159	+	let aq = ["0", "false", "0"]
	160	+	invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
	161	+	}
	162	+	else if ((am == "2.0.0"))
	163	+	then {
	164	+	let aq = [ab, ac, false, 0]
	165	+	invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
	166	+	}
	167	+	else throw("Wrong pool type")
	168	+	}
	169	+	else 0
	170	+	if ((ap == ap))
	171	+	then {
	172	+	let ar = B(fromBase58String(aa))
176	173		if ((1 == 1))
177		-	then throw(toString(N(~~K, O~~)))
	174	+	then throw(((((toString(ar) + " \|\| ") + toString(ad)) + " \|\| ") + toString((ar - ad))))
178	175		else {
179		-	let au = (as - at)
	176	+	let as = (ar - ad)
	177	+	let at = fraction(as, N(K, O), d)
180	178		if ((1 == 1))
181		-	then throw(((((toString(as) + " \|\| ") + toString(at)) + " \|\| ") + toString(au)))
182		-	else if ((0 >= au))
183		-	then throw("amount of staked sharetokens must be > 0")
184		-	else {
185		-	let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
186		-	if ((av == av))
187		-	then {
188		-	let aw = J(K)
189		-	let ax = L(K, M)
	179	+	then throw(toString(N(K, O)))
	180	+	else {
	181	+	let au = (as - at)
	182	+	if ((1 == 1))
	183	+	then throw(((((toString(as) + " \|\| ") + toString(at)) + " \|\| ") + toString(au)))
	184	+	else if ((0 >= au))
	185	+	then throw("amount of staked sharetokens must be > 0")
	186	+	else {
	187	+	let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
	188	+	if ((av == av))
	189	+	then {
	190	+	let aw = J(K)
	191	+	let ax = L(K, M)
190	192		[IntegerEntry((K + o), (aw + au)), IntegerEntry((((((K + "_") + M) + "_") + toString(ax)) + l), au), StringEntry((((((K + "_") + M) + "_") + toString(ax)) + m), a), IntegerEntry((((K + "_") + M) + n), ax), ScriptTransfer(y, at, fromBase58String(aa))]
	193	+	}
	194	+	else throw("Strict value is not equal to itself.")
191	195		}
192		-	else throw("Strict value is not equal to itself.")
193		-	}
	196	+	}
194	197		}
195	198		}
	199	+	else throw("Strict value is not equal to itself.")
196	200		}
197	201		else throw("Strict value is not equal to itself.")
198	202		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = "SF"
5	5
6	6		let b = "WX"
7	7
8	8		let c = 100000000
9	9
10	10		let d = 1000000
11	11
12	12		let e = "A_asset_balance"
13	13
14	14		let f = "B_asset_balance"
15	15
16	16		let g = "A_asset_id"
17	17
18	18		let h = "B_asset_id"
19	19
20	20		let i = "share_asset_id"
21	21
22	22		let j = "version"
23	23
24	24		let k = "_share_tokens_locked"
25	25
26	26		let l = "_user_position"
27	27
28	28		let m = "_user_position_type"
29	29
30	30		let n = "_user_position_number"
31	31
32	32		let o = "_total_position"
33	33
34	34		let p = "_axly_fee_without_loan"
35	35
36	36		let q = "_axly_fee_with_loan"
37	37
38	38		let r = "_axly_fee_cap"
39	39
40	40		let s = "_request_id"
41	41
42	42		let t = "requests_iter"
43	43
44	44		let u = "pool_"
45	45
46	46		let v = "axly_money_box"
47	47
48	48		let w = "swopfi_farming_addr"
49	49
50	50		let x = "lend_service_addr"
51	51
52	52		let y = Address(fromBase58String(valueOrErrorMessage(getString(this, v), "No axly moneyBox address")))
53	53
54	54		func z (A) = if ((A.caller == this))
55	55		then unit
56	56		else throw("Only contract itself can call this function")
57	57
58	58
59	59		func B (C) = {
60	60		let D = C
61	61		if ($isInstanceOf(D, "ByteVector"))
62	62		then {
63	63		let E = D
64	64		assetBalance(this, E)
65	65		}
66	66		else if ($isInstanceOf(D, "Unit"))
67	67		then {
68	68		let F = D
69	69		wavesBalance(this).available
70	70		}
71	71		else throw("Match error")
72	72		}
73	73
74	74
75	75		func G (H) = $Tuple5(valueOrErrorMessage(getString(H, g), "Can't get pool A asset id"), valueOrErrorMessage(getString(H, h), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(H, e), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(H, f), "Can't get pool B asset balance"), valueOrErrorMessage(getString(H, i), "Can't get share asset id"))
76	76
77	77
78	78		func I (H) = $Tuple5(valueOrErrorMessage(getString(H, g), "Can't get pool A asset id"), valueOrErrorMessage(getString(H, h), "Can't get pool B asset id"), valueOrErrorMessage(getInteger(H, e), "Can't get pool A asset balance"), valueOrErrorMessage(getInteger(H, f), "Can't get pool B asset balance"), valueOrErrorMessage(getString(H, i), "Can't get share asset id"))
79	79
80	80
81	81		func J (K) = valueOrElse(getInteger(this, (K + o)), 0)
82	82
83	83
84	84		func L (K,M) = (valueOrElse(getInteger(this, (((K + "_") + M) + n)), 0) + 1)
85	85
86	86
87	87		func N (K,O) = if (O)
88	88		then getIntegerValue(this, (K + q))
89	89		else getIntegerValue(this, (K + p))
90	90
91	91
92	92		func P () = Address(fromBase58String(valueOrErrorMessage(getString(this, w), "Can't get swopfi farming addr")))
93	93
94	94
95	95		func Q () = Address(fromBase58String(valueOrErrorMessage(getString(this, x), "Can't get lend service addr")))
96	96
97	97
98	98		func R (C) = {
99	99		let D = C
100	100		if ($isInstanceOf(D, "ByteVector"))
101	101		then {
102	102		let E = D
103	103		toBase58String(E)
104	104		}
105	105		else if ($isInstanceOf(D, "Unit"))
106	106		then {
107	107		let F = D
108	108		"WAVES"
109	109		}
110	110		else throw("Match error")
111	111		}
112	112
113	113
114	114		func S (C) = if ((C == "WAVES"))
115	115		then unit
116	116		else fromBase58String(C)
117	117
118	118
119	119		func T (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = {
120	120		let ad = B(fromBase58String(aa))
121		-	let H = Address(fromBase58String(K))
122		-	let ae = fraction(c, U, Y)
123		-	let af = fraction(c, W, Z)
124		-	let ag = if ((af > ae))
	121	+	if ((ad == ad))
125	122		then {
126		-	let ah = fraction(Z, ae, c, CEILING)
127		-	$Tuple4(U, ah, (W - ah), X)
128		-	}
129		-	else {
130		-	let ah = fraction(Y, af, c, CEILING)
131		-	$Tuple4(ah, W, (U - ah), V)
132		-	}
133		-	let ai = ag._1
134		-	let aj = ag._2
135		-	let ak = ag._3
136		-	let al = ag._4
137		-	let am = getStringValue(H, "version")
138		-	let an = if (if ((ai > 0))
139		-	then (aj > 0)
140		-	else false)
141		-	then {
142		-	let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
143		-	if ((am == "1.0.0"))
144		-	then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
145		-	else if ((am == "2.0.0"))
146		-	then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
147		-	else throw("Wrong pool type")
148		-	}
149		-	else 0
150		-	if ((an == an))
151		-	then {
152		-	let ap = if ((ak > 0))
	123	+	let H = Address(fromBase58String(K))
	124	+	let ae = fraction(c, U, Y)
	125	+	let af = fraction(c, W, Z)
	126	+	let ag = if ((af > ae))
153	127		then {
154		-	let ao = [AttachedPayment(S(al), ak)]
	128	+	let ah = fraction(Z, ae, c, CEILING)
	129	+	$Tuple4(U, ah, (W - ah), X)
	130	+	}
	131	+	else {
	132	+	let ah = fraction(Y, af, c, CEILING)
	133	+	$Tuple4(ah, W, (U - ah), V)
	134	+	}
	135	+	let ai = ag._1
	136	+	let aj = ag._2
	137	+	let ak = ag._3
	138	+	let al = ag._4
	139	+	let am = getStringValue(H, "version")
	140	+	let an = if (if ((ai > 0))
	141	+	then (aj > 0)
	142	+	else false)
	143	+	then {
	144	+	let ao = [AttachedPayment(S(V), ai), AttachedPayment(S(X), aj)]
155	145		if ((am == "1.0.0"))
156		-	then {
157		-	let aq = ["0", "false", "0"]
158		-	invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
159		-	}
	146	+	then invoke(H, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], ao)
160	147		else if ((am == "2.0.0"))
161		-	then {
162		-	let aq = [ab, ac, false, 0]
163		-	invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
164		-	}
	148	+	then invoke(H, "replenishWithTwoTokensV2", [false, 0], ao)
165	149		else throw("Wrong pool type")
166	150		}
167	151		else 0
168		-	if ((ap == ap))
	152	+	if ((an == an))
169	153		then {
170		-	let ar = B(fromBase58String(aa))
171		-	if ((1 == 1))
172		-	then throw(((((toString(ar) + " \|\| ") + toString(ad)) + " \|\| ") + toString((ar - ad))))
173		-	else {
174		-	let as = (ar - ad)
175		-	let at = fraction(as, N(K, O), d)
	154	+	let ap = if ((ak > 0))
	155	+	then {
	156	+	let ao = [AttachedPayment(S(al), ak)]
	157	+	if ((am == "1.0.0"))
	158	+	then {
	159	+	let aq = ["0", "false", "0"]
	160	+	invoke(H, "callFunction", ["replenishWithOneToken", aq], ao)
	161	+	}
	162	+	else if ((am == "2.0.0"))
	163	+	then {
	164	+	let aq = [ab, ac, false, 0]
	165	+	invoke(H, "replenishWithOneTokenV2", [false, 0], ao)
	166	+	}
	167	+	else throw("Wrong pool type")
	168	+	}
	169	+	else 0
	170	+	if ((ap == ap))
	171	+	then {
	172	+	let ar = B(fromBase58String(aa))
176	173		if ((1 == 1))
177		-	then throw(toString(N(~~K, O~~)))
	174	+	then throw(((((toString(ar) + " \|\| ") + toString(ad)) + " \|\| ") + toString((ar - ad))))
178	175		else {
179		-	let au = (as - at)
	176	+	let as = (ar - ad)
	177	+	let at = fraction(as, N(K, O), d)
180	178		if ((1 == 1))
181		-	then throw(((((toString(as) + " \|\| ") + toString(at)) + " \|\| ") + toString(au)))
182		-	else if ((0 >= au))
183		-	then throw("amount of staked sharetokens must be > 0")
184		-	else {
185		-	let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
186		-	if ((av == av))
187		-	then {
188		-	let aw = J(K)
189		-	let ax = L(K, M)
	179	+	then throw(toString(N(K, O)))
	180	+	else {
	181	+	let au = (as - at)
	182	+	if ((1 == 1))
	183	+	then throw(((((toString(as) + " \|\| ") + toString(at)) + " \|\| ") + toString(au)))
	184	+	else if ((0 >= au))
	185	+	then throw("amount of staked sharetokens must be > 0")
	186	+	else {
	187	+	let av = invoke(P(), "lockShareTokens", [K, 0], [AttachedPayment(fromBase58String(aa), au)])
	188	+	if ((av == av))
	189	+	then {
	190	+	let aw = J(K)
	191	+	let ax = L(K, M)
190	192		[IntegerEntry((K + o), (aw + au)), IntegerEntry((((((K + "_") + M) + "_") + toString(ax)) + l), au), StringEntry((((((K + "_") + M) + "_") + toString(ax)) + m), a), IntegerEntry((((K + "_") + M) + n), ax), ScriptTransfer(y, at, fromBase58String(aa))]
	193	+	}
	194	+	else throw("Strict value is not equal to itself.")
191	195		}
192		-	else throw("Strict value is not equal to itself.")
193		-	}
	196	+	}
194	197		}
195	198		}
	199	+	else throw("Strict value is not equal to itself.")
196	200		}
197	201		else throw("Strict value is not equal to itself.")
198	202		}
199	203		else throw("Strict value is not equal to itself.")
200	204		}
201	205
202	206
203	207		func ay (M,K,O,U,V,W,X,Y,Z,aa,ab,ac) = nil
204	208
205	209
206	210		@Callable(A)
207	211		func replanish (K,az,aA,ab,ac) = {
208	212		let aB = valueOrErrorMessage(getString(this, (u + K)), "Pool is not inited")
209	213		let aC = if ((aB == a))
210	214		then G(Address(fromBase58String(K)))
211	215		else if ((aB == b))
212	216		then I(Address(fromBase58String(K)))
213	217		else throw("Wrong pool type")
214	218		let aD = aC._1
215	219		let aE = aC._2
216	220		let Y = aC._3
217	221		let Z = aC._4
218	222		let aa = aC._5
219	223		let aF = if ((size(A.payments) == 2))
220	224		then if ((R(A.payments[0].assetId) != aD))
221	225		then throw("Wrong payment asset A")
222	226		else if ((R(A.payments[1].assetId) != aE))
223	227		then throw("Wrong payment asset B")
224	228		else $Tuple4(A.payments[0].amount, aD, A.payments[1].amount, aE)
225	229		else if ((size(A.payments) == 1))
226	230		then if ((R(A.payments[0].assetId) == aD))
227	231		then $Tuple4(A.payments[0].amount, aD, 0, aE)
228	232		else if ((R(A.payments[0].assetId) == aE))
229	233		then $Tuple4(0, aD, A.payments[0].amount, aE)
230	234		else throw("Wrong payment")
231	235		else throw("One or two payments expected")
232	236		let U = aF._1
233	237		let V = aF._2
234	238		let W = aF._3
235	239		let X = aF._4
236	240		if ((az > 0))
237	241		then {
238	242		let aG = makeString([aB, toString(A.caller), K, toString(U), V, toString(W), X, toString(Y), toString(Z), aa, toString(ab), toString(ac)], ",")
239	243		let aH = {
240	244		let aI = invoke(this, "createNewRequest", [aG], nil)
241	245		if ($isInstanceOf(aI, "Int"))
242	246		then aI
243	247		else unit
244	248		}
245	249		if ((aH == aH))
246	250		then {
247	251		let aJ = [toString(A.caller), aa, aA, az, toString(this), "replanishFromLand", toString(valueOrErrorMessage(aH, "Can't create new request"))]
248	252		let aK = reentrantInvoke(Q(), "flashPosition", aJ, nil)
249	253		nil
250	254		}
251	255		else throw("Strict value is not equal to itself.")
252	256		}
253	257		else if ((aB == a))
254	258		then T(toString(A.caller), K, false, U, V, W, X, Y, Z, aa, ab, ac)
255	259		else throw("Cant wx")
256	260		}
257	261
258	262
259	263
260	264		@Callable(A)
261	265		func replanishFromLand (aL) = {
262	266		let aG = split(valueOrErrorMessage(getString(this, (aL + s)), ("No request with id " + aL)), ",")
263	267		if ((aG[0] == a))
264	268		then T(aG[1], aG[2], true, parseIntValue(aG[3]), aG[4], parseIntValue(aG[5]), aG[6], parseIntValue(aG[7]), parseIntValue(aG[8]), aG[9], parseIntValue(aG[10]), parseIntValue(aG[11]))
265	269		else throw("Cant wx")
266	270		}
267	271
268	272
269	273
270	274		@Callable(A)
271	275		func createNewRequest (aM) = valueOrElse(z(A), {
272	276		let aH = (valueOrElse(getInteger(this, t), 0) + 1)
273	277		$Tuple2([StringEntry((toString(aH) + s), aM)], aH)
274	278		})
275	279
276	280
277	281
278	282		@Callable(A)
279	283		func initNewPool (aB,H,aN,aO,aP) = if (if ((aB != a))
280	284		then (aB != b)
281	285		else false)
282	286		then throw("Wrong type")
283	287		else [IntegerEntry((H + p), aN), IntegerEntry((H + q), aO), IntegerEntry((H + r), aP), StringEntry((u + H), aB)]
284	288
285	289
286	290		@Verifier(aQ)
287	291		func aR () = sigVerify(aQ.bodyBytes, aQ.proofs[0], aQ.senderPublicKey)
288	292

github/deemru/w8io/03bedc9 
63.72 ms ◑