w8 · tx · CvY···fpk

tx · CvYbWqgLQ9FqJyFAk6qVaywZnTpKcQwj9YfPt6vpmfpk

3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS:  -0.01000000 Waves

2023.03.24 21:45 [2504473] smart account 3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CvYbWqgLQ9FqJyFAk6qVaywZnTpKcQwj9YfPt6vpmfpk",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1679683552128,
    "version": 2,
    "chainId": 84,
    "sender": "3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS",
    "senderPublicKey": "HP8sssVq1866F7CaPQJwgFrt6fsqhQjKwM84cL1wjD2a",
    "proofs": [
        "2RE5eYLuoabBYnRAzvLgPoqeeKTtLYBxEq4YsrfcSHzjnyedbH4EWoYsuynmoePiEKjZJJFWU9mNAE9icwanFSuS"
    ],
    "script": "base64:BgIeCAISBwoFCAEIAQESAwoBCBIDCgEIEgcKBQgIAQEBJgALU0ZfUE9TX1RZUEUCAlNGAAtXWF9QT1NfVFlQRQICV1gABlNDQUxFOACAwtcvAApGRUVfU0NBTEU2AMCEPQAUa1NGUG9vbEFBc3NldEJhbGFuY2UCD0FfYXNzZXRfYmFsYW5jZQAUa1NGUG9vbEJBc3NldEJhbGFuY2UCD0JfYXNzZXRfYmFsYW5jZQAPa1NGUG9vbEFBc3NldElkAgpBX2Fzc2V0X2lkAA9rU0ZQb29sQkFzc2V0SWQCCkJfYXNzZXRfaWQADmtTRlBvb2xTaGFyZUlkAg5zaGFyZV9hc3NldF9pZAAOa1NGUG9vbFZlcnNpb24CB3ZlcnNpb24AEGtTRkZhcm1pbmdTdGFrZWQCFF9zaGFyZV90b2tlbnNfbG9ja2VkAA1rVXNlclBvc2l0aW9uAg5fdXNlcl9wb3NpdGlvbgARa1VzZXJQb3NpdGlvblR5cGUCE191c2VyX3Bvc2l0aW9uX3R5cGUAEGtVc2VyUG9zaXRpb25OdW0CFV91c2VyX3Bvc2l0aW9uX251bWJlcgAOa1RvdGFsUG9zaXRpb24CD190b3RhbF9wb3NpdGlvbgAVa0F4bHlJbkZlZVdpdGhvdXRMb2FuAhZfYXhseV9mZWVfd2l0aG91dF9sb2FuABJrQXhseUluRmVlV2l0aExvYW4CE19heGx5X2ZlZV93aXRoX2xvYW4AC2tBeGx5Q2FwRmVlAg1fYXhseV9mZWVfY2FwAAprUmVxdWVzdElkAgtfcmVxdWVzdF9pZAAMa1JlcXVlc3RJdGVyAg1yZXF1ZXN0c19pdGVyAAVrUG9vbAIFcG9vbF8ACWtNb25leUJveAIOYXhseV9tb25leV9ib3gADmtTRkZhcm1pbmdBZGRyAhNzd29wZmlfZmFybWluZ19hZGRyAAxrTGVuZFNlcnZpY2UCEWxlbmRfc2VydmljZV9hZGRyAAhtb25leUJveAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQlrTW9uZXlCb3gCGE5vIGF4bHkgbW9uZXlCb3ggYWRkcmVzcwEKaXNTZWxmQ2FsbAEBaQMJAAACCAUBaQZjYWxsZXIFBHRoaXMFBHVuaXQJAAIBAitPbmx5IGNvbnRyYWN0IGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAQ5hY2NvdW50QmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAJpZAUHJG1hdGNoMAkA8AcCBQR0aGlzBQJpZAMJAAECBQckbWF0Y2gwAgRVbml0BAV3YXZlcwUHJG1hdGNoMAgJAO8HAQUEdGhpcwlhdmFpbGFibGUJAAIBAgtNYXRjaCBlcnJvcgENZ2V0U0ZQb29sRGF0YQEIcG9vbEFkZHIJAJcKBQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQUFzc2V0SWQCGUNhbid0IGdldCBwb29sIEEgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQhwb29sQWRkcgUPa1NGUG9vbEJBc3NldElkAhlDYW4ndCBnZXQgcG9vbCBCIGFzc2V0IGlkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgUIcG9vbEFkZHIFFGtTRlBvb2xBQXNzZXRCYWxhbmNlAh5DYW4ndCBnZXQgcG9vbCBBIGFzc2V0IGJhbGFuY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEJBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEIgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ5rU0ZQb29sU2hhcmVJZAIYQ2FuJ3QgZ2V0IHNoYXJlIGFzc2V0IGlkAQ1nZXRXWFBvb2xEYXRhAQhwb29sQWRkcgkAlwoFCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFD2tTRlBvb2xBQXNzZXRJZAIZQ2FuJ3QgZ2V0IHBvb2wgQSBhc3NldCBpZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQkFzc2V0SWQCGUNhbid0IGdldCBwb29sIEIgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEFBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEEgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCHBvb2xBZGRyBRRrU0ZQb29sQkFzc2V0QmFsYW5jZQIeQ2FuJ3QgZ2V0IHBvb2wgQiBhc3NldCBiYWxhbmNlCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDmtTRlBvb2xTaGFyZUlkAhhDYW4ndCBnZXQgc2hhcmUgYXNzZXQgaWQBFGdldEF4bHlUb3RhbFBvc2l0aW9uAQRwb29sCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24AAAEYZ2V0TmV3VXNlclBvc2l0aW9uTnVtYmVyAgRwb29sBHVzZXIJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0AAAABAQxnZXRBeGx5SW5GZWUCBHBvb2wId2l0aExvYW4DBQh3aXRoTG9hbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICBQRwb29sBRJrQXhseUluRmVlV2l0aExvYW4JARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUVa0F4bHlJbkZlZVdpdGhvdXRMb2FuARBnZXRTRkZhcm1pbmdBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQ5rU0ZGYXJtaW5nQWRkcgIdQ2FuJ3QgZ2V0IHN3b3BmaSBmYXJtaW5nIGFkZHIBDmdldExlbmRTcnZBZGRyAAkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQxrTGVuZFNlcnZpY2UCG0Nhbid0IGdldCBsZW5kIHNlcnZpY2UgYWRkcgEMYXNzZXRJZFRvU3RyAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDYBAEFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwAgVXQVZFUwkAAgECC01hdGNoIGVycm9yAQ5hc3NldElkRnJvbVN0cgEHYXNzZXRJZAMJAAACBQdhc3NldElkAgVXQVZFUwUEdW5pdAkA2QQBBQdhc3NldElkAQ9yZXBsYW5pc2hTd29wRmkMBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQEEnNoYXJlQmFsYW5jZUJlZm9yZQkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkAwkAAAIFEnNoYXJlQmFsYW5jZUJlZm9yZQUSc2hhcmVCYWxhbmNlQmVmb3JlBAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wEBnJhdGlvQQkAawMFBlNDQUxFOAUEcG10QQUEYmFsQQQGcmF0aW9CCQBrAwUGU0NBTEU4BQRwbXRCBQRiYWxCBAskdDA0NTQ3NDg0MAMJAGYCBQZyYXRpb0IFBnJhdGlvQQQDcG10CQBuBAUEYmFsQgUGcmF0aW9BBQZTQ0FMRTgFB0NFSUxJTkcJAJYKBAUEcG10QQUDcG10CQBlAgUEcG10QgUDcG10BQlwbXRBc3NldEIEA3BtdAkAbgQFBGJhbEEFBnJhdGlvQgUGU0NBTEU4BQdDRUlMSU5HCQCWCgQFA3BtdAUEcG10QgkAZQIFBHBtdEEFA3BtdAUJcG10QXNzZXRBBApwbXRBbW91bnRBCAULJHQwNDU0NzQ4NDACXzEECnBtdEFtb3VudEIIBQskdDA0NTQ3NDg0MAJfMgQGY2hhbmdlCAULJHQwNDU0NzQ4NDACXzMEDWNoYW5nZUFzc2V0SWQIBQskdDA0NTQ3NDg0MAJfNAQLcG9vbFZlcnNpb24JARFAZXh0ck5hdGl2ZSgxMDUzKQIFCHBvb2xBZGRyAgd2ZXJzaW9uBARpbnYxAwMJAGYCBQpwbXRBbW91bnRBAAAJAGYCBQpwbXRBbW91bnRCAAAHBAhwYXltZW50cwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDmFzc2V0SWRGcm9tU3RyAQUJcG10QXNzZXRBBQpwbXRBbW91bnRBCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQlwbXRBc3NldEIFCnBtdEFtb3VudEIFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhZyZXBsZW5pc2hXaXRoVHdvVG9rZW5zCQDMCAIJAMwIAgIFZmFsc2UJAMwIAgIBMAUDbmlsBQNuaWwFCHBheW1lbnRzAwkAAAIFC3Bvb2xWZXJzaW9uAgUyLjAuMAkA/AcEBQhwb29sQWRkcgIYcmVwbGVuaXNoV2l0aFR3b1Rva2Vuc1YyCQDMCAIHCQDMCAIAAAUDbmlsBQhwYXltZW50cwkAAgECD1dyb25nIHBvb2wgdHlwZQAAAwkAAAIFBGludjEFBGludjEEBGludjIDCQBmAgUGY2hhbmdlAAAECHBheW1lbnRzCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQ1jaGFuZ2VBc3NldElkBQZjaGFuZ2UFA25pbAMJAAACBQtwb29sVmVyc2lvbgIFMS4wLjAEBHZhcnMJAMwIAgIBMAkAzAgCAgVmYWxzZQkAzAgCAgEwBQNuaWwJAPwHBAUIcG9vbEFkZHICDGNhbGxGdW5jdGlvbgkAzAgCAhVyZXBsZW5pc2hXaXRoT25lVG9rZW4JAMwIAgUEdmFycwUDbmlsBQhwYXltZW50cwMJAAACBQtwb29sVmVyc2lvbgIFMi4wLjAEBHZhcnMJAMwIAgUTdmlydHVhbFN3YXBUb2tlblBheQkAzAgCBRN2aXJ0dWFsU3dhcFRva2VuR2V0CQDMCAIHCQDMCAIAAAUDbmlsCQD8BwQFCHBvb2xBZGRyAhdyZXBsZW5pc2hXaXRoT25lVG9rZW5WMgkAzAgCBwkAzAgCAAAFA25pbAUIcGF5bWVudHMJAAIBAg9Xcm9uZyBwb29sIHR5cGUAAAMJAAACBQRpbnYyBQRpbnYyBBFzaGFyZUJhbGFuY2VBZnRlcgkBDmFjY291bnRCYWxhbmNlAQkA2QQBBQdzaGFyZUlkBAp0b3RhbFNoYXJlCQBlAgURc2hhcmVCYWxhbmNlQWZ0ZXIFEnNoYXJlQmFsYW5jZUJlZm9yZQQJYXhseUluRmVlCQBrAwUKdG90YWxTaGFyZQkBDGdldEF4bHlJbkZlZQIFBHBvb2wFCHdpdGhMb2FuBQpGRUVfU0NBTEU2BBF1c2VyU2hhcmVGb3JTdGFrZQkAZQIFCnRvdGFsU2hhcmUFCWF4bHlJbkZlZQMJAGcCAAAFEXVzZXJTaGFyZUZvclN0YWtlCQACAQIoYW1vdW50IG9mIHN0YWtlZCBzaGFyZXRva2VucyBtdXN0IGJlID4gMAQEaW52MwkA/AcECQEQZ2V0U0ZGYXJtaW5nQWRkcgACD2xvY2tTaGFyZVRva2VucwkAzAgCBQRwb29sCQDMCAIAAAUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQDZBAEFB3NoYXJlSWQFEXVzZXJTaGFyZUZvclN0YWtlBQNuaWwDCQAAAgUEaW52MwUEaW52MwQLdG90YWxBbW91bnQJARRnZXRBeGx5VG90YWxQb3NpdGlvbgEFBHBvb2wECW5ld1Bvc051bQkBGGdldE5ld1VzZXJQb3NpdGlvbk51bWJlcgIFBHBvb2wFBHVzZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24JAGQCBQt0b3RhbEFtb3VudAURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyAgFfCQCkAwEFCW5ld1Bvc051bQUNa1VzZXJQb3NpdGlvbgURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXICAV8JAKQDAQUJbmV3UG9zTnVtBRFrVXNlclBvc2l0aW9uVHlwZQULU0ZfUE9TX1RZUEUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0FCW5ld1Bvc051bQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQhtb25leUJveAUJYXhseUluRmVlCQDZBAEFB3NoYXJlSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELcmVwbGFuaXNoV1gMBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZBN2aXJ0dWFsU3dhcFRva2VuUGF5E3ZpcnR1YWxTd2FwVG9rZW5HZXQFA25pbAQBaQEJcmVwbGFuaXNoBQRwb29sDGJvcnJvd0Ftb3VudA1ib3Jyb3dBc3NldElkE3ZpcnR1YWxTd2FwVG9rZW5QYXkTdmlydHVhbFN3YXBUb2tlbkdldAQEdHlwZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgUFa1Bvb2wFBHBvb2wCElBvb2wgaXMgbm90IGluaXRlZAQLJHQwNzU3Mzc4MjQDCQAAAgUEdHlwZQULU0ZfUE9TX1RZUEUJAQ1nZXRTRlBvb2xEYXRhAQkBB0FkZHJlc3MBCQDZBAEFBHBvb2wDCQAAAgUEdHlwZQULV1hfUE9TX1RZUEUJAQ1nZXRXWFBvb2xEYXRhAQkBB0FkZHJlc3MBCQDZBAEFBHBvb2wJAAIBAg9Xcm9uZyBwb29sIHR5cGUEA0FJZAgFCyR0MDc1NzM3ODI0Al8xBANCSWQIBQskdDA3NTczNzgyNAJfMgQEYmFsQQgFCyR0MDc1NzM3ODI0Al8zBARiYWxCCAULJHQwNzU3Mzc4MjQCXzQEB3NoYXJlSWQIBQskdDA3NTczNzgyNAJfNQQLJHQwNzgyODg0NjUDCQAAAgkAkAMBCAUBaQhwYXltZW50cwACAwkBAiE9AgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDQUlkCQACAQIVV3JvbmcgcGF5bWVudCBhc3NldCBBAwkBAiE9AgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAUDQklkCQACAQIVV3JvbmcgcGF5bWVudCBhc3NldCBCCQCWCgQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNBSWQICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BQNCSWQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABAwkAAAIJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFA0FJZAkAlgoECAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAUDQUlkAAAFA0JJZAMJAAACCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNCSWQJAJYKBAAABQNBSWQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNCSWQJAAIBAg1Xcm9uZyBwYXltZW50CQACAQIcT25lIG9yIHR3byBwYXltZW50cyBleHBlY3RlZAQEcG10QQgFCyR0MDc4Mjg4NDY1Al8xBAlwbXRBc3NldEEIBQskdDA3ODI4ODQ2NQJfMgQEcG10QggFCyR0MDc4Mjg4NDY1Al8zBAlwbXRBc3NldEIIBQskdDA3ODI4ODQ2NQJfNAMJAGYCBQxib3Jyb3dBbW91bnQAAAQHcmVxdWVzdAkAuQkCCQDMCAIFBHR5cGUJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgUEcG9vbAkAzAgCCQCkAwEFBHBtdEEJAMwIAgUJcG10QXNzZXRBCQDMCAIJAKQDAQUEcG10QgkAzAgCBQlwbXRBc3NldEIJAMwIAgkApAMBBQRiYWxBCQDMCAIJAKQDAQUEYmFsQgkAzAgCBQdzaGFyZUlkCQDMCAIJAKQDAQUTdmlydHVhbFN3YXBUb2tlblBheQkAzAgCCQCkAwEFE3ZpcnR1YWxTd2FwVG9rZW5HZXQJAMwIAgUNYm9ycm93QXNzZXRJZAkAzAgCCQCkAwEFDGJvcnJvd0Ftb3VudAUDbmlsAgEsBAxuZXdSZXF1ZXN0SWQKAAFACQD8BwQFBHRoaXMCEGNyZWF0ZU5ld1JlcXVlc3QJAMwIAgUHcmVxdWVzdAUDbmlsBQNuaWwDCQABAgUBQAIDSW50BQFABQR1bml0AwkAAAIFDG5ld1JlcXVlc3RJZAUMbmV3UmVxdWVzdElkBARhcmdzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFB3NoYXJlSWQJAMwIAgUNYm9ycm93QXNzZXRJZAkAzAgCBQxib3Jyb3dBbW91bnQJAMwIAgkApQgBBQR0aGlzCQDMCAICEXJlcGxhbmlzaEZyb21MYW5kCQDMCAIJAKQDAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBQxuZXdSZXF1ZXN0SWQCGENhbid0IGNyZWF0ZSBuZXcgcmVxdWVzdAUDbmlsBANpbnYJAP0HBAkBDmdldExlbmRTcnZBZGRyAAINZmxhc2hQb3NpdGlvbgUEYXJncwUDbmlsBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQAAAgUEdHlwZQULU0ZfUE9TX1RZUEUJAQ9yZXBsYW5pc2hTd29wRmkMCQClCAEIBQFpBmNhbGxlcgUEcG9vbAcFBHBtdEEFCXBtdEFzc2V0QQUEcG10QgUJcG10QXNzZXRCBQRiYWxBBQRiYWxCBQdzaGFyZUlkBRN2aXJ0dWFsU3dhcFRva2VuUGF5BRN2aXJ0dWFsU3dhcFRva2VuR2V0CQACAQIHQ2FudCB3eAFpARFyZXBsYW5pc2hGcm9tTGFuZAEJcmVxdWVzdElkBAdyZXF1ZXN0CQC1CQIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzCQCsAgIFCXJlcXVlc3RJZAUKa1JlcXVlc3RJZAkArAICAhNObyByZXF1ZXN0IHdpdGggaWQgBQlyZXF1ZXN0SWQCASwDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhJXcm9uZyBwYXltZW50IHNpemUDAwkBAiE9AgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkAkQMCBQdyZXF1ZXN0AAwGCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QADQkAAgECDVdyb25nIHBheW1lbnQEBHBtdEEDCQAAAgkAkQMCBQdyZXF1ZXN0AAQJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAADCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QAAwQEcG10QgMJAAACCQCRAwIFB3JlcXVlc3QABgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAUICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAADAwkAAAIJAJEDAgUHcmVxdWVzdAAABQtTRl9QT1NfVFlQRQkAzQgCCQEPcmVwbGFuaXNoU3dvcEZpDAkAkQMCBQdyZXF1ZXN0AAEJAJEDAgUHcmVxdWVzdAACBgUEcG10QQkAkQMCBQdyZXF1ZXN0AAQFBHBtdEIJAJEDAgUHcmVxdWVzdAAGCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAHCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAICQCRAwIFB3JlcXVlc3QACQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QACgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QACwkBC0RlbGV0ZUVudHJ5AQkArAICBQlyZXF1ZXN0SWQFCmtSZXF1ZXN0SWQJAAIBAgdDYW50IHd4AWkBEGNyZWF0ZU5ld1JlcXVlc3QBBnBhcmFtcwkBC3ZhbHVlT3JFbHNlAgkBCmlzU2VsZkNhbGwBBQFpBAxuZXdSZXF1ZXN0SWQJAGQCCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDGtSZXF1ZXN0SXRlcgAAAAEJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKQDAQUMbmV3UmVxdWVzdElkBQprUmVxdWVzdElkBQZwYXJhbXMFA25pbAUMbmV3UmVxdWVzdElkAWkBC2luaXROZXdQb29sBQR0eXBlCHBvb2xBZGRyC2luRmVlTm9Mb2FuCWluRmVlTG9hbgZjYXBGZWUDAwkBAiE9AgUEdHlwZQULU0ZfUE9TX1RZUEUJAQIhPQIFBHR5cGUFC1dYX1BPU19UWVBFBwkAAgECCldyb25nIHR5cGUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUIcG9vbEFkZHIFFWtBeGx5SW5GZWVXaXRob3V0TG9hbgULaW5GZWVOb0xvYW4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUIcG9vbEFkZHIFEmtBeGx5SW5GZWVXaXRoTG9hbgUJaW5GZWVMb2FuCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCHBvb2xBZGRyBQtrQXhseUNhcEZlZQUGY2FwRmVlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgUFa1Bvb2wFCHBvb2xBZGRyBQR0eXBlBQNuaWwBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5vZWm6A==",
    "height": 2504473,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: CbzQekGhsyRoKdFAMECTgJGFvbxHnbosbr9rhtrv9bPt
Next: 46drfk4cqfd98yHBmxgEe9oJDMQ4by34r7Nw4bgQoGFp

Diff: 
Old New Differences
217 217      let pmtAssetB = $t078288465._4
218 218      if ((borrowAmount > 0))
219 219          then {
220 -             let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
220 +             let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), borrowAssetId, toString(borrowAmount)], ",")
221 221              let newRequestId = {
222 222                  let @ = invoke(this, "createNewRequest", [request], nil)
223 223                  if ($isInstanceOf(@, "Int"))
242 242  @Callable(i)
243 243  func replanishFromLand (requestId) = {
244 244      let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
245 -     if ((request[0] == SF_POS_TYPE))
246 -         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]))
247 -         else throw("Cant wx")
245 +     if ((size(i.payments) != 1))
246 +         then throw("Wrong payment size")
247 +         else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
248 +             then true
249 +             else (i.payments[0].amount != parseIntValue(request[13])))
250 +             then throw("Wrong payment")
251 +             else {
252 +                 let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
253 +                     then (parseIntValue(request[3]) + i.payments[0].amount)
254 +                     else parseIntValue(request[3])
255 +                 let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
256 +                     then (parseIntValue(request[5]) + i.payments[0].amount)
257 +                     else parseIntValue(request[3])
258 +                 if ((request[0] == SF_POS_TYPE))
259 +                     then (replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11])) :+ DeleteEntry((requestId + kRequestId)))
260 +                     else throw("Cant wx")
261 +                 }
248 262      }
249 263  
250 264  
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      if ((shareBalanceBefore == shareBalanceBefore))
110 110          then {
111 111              let poolAddr = Address(fromBase58String(pool))
112 112              let ratioA = fraction(SCALE8, pmtA, balA)
113 113              let ratioB = fraction(SCALE8, pmtB, balB)
114 114              let $t045474840 = if ((ratioB > ratioA))
115 115                  then {
116 116                      let pmt = fraction(balB, ratioA, SCALE8, CEILING)
117 117                      $Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
118 118                      }
119 119                  else {
120 120                      let pmt = fraction(balA, ratioB, SCALE8, CEILING)
121 121                      $Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
122 122                      }
123 123              let pmtAmountA = $t045474840._1
124 124              let pmtAmountB = $t045474840._2
125 125              let change = $t045474840._3
126 126              let changeAssetId = $t045474840._4
127 127              let poolVersion = getStringValue(poolAddr, "version")
128 128              let inv1 = if (if ((pmtAmountA > 0))
129 129                  then (pmtAmountB > 0)
130 130                  else false)
131 131                  then {
132 132                      let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
133 133                      if ((poolVersion == "1.0.0"))
134 134                          then invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
135 135                          else if ((poolVersion == "2.0.0"))
136 136                              then invoke(poolAddr, "replenishWithTwoTokensV2", [false, 0], payments)
137 137                              else throw("Wrong pool type")
138 138                      }
139 139                  else 0
140 140              if ((inv1 == inv1))
141 141                  then {
142 142                      let inv2 = if ((change > 0))
143 143                          then {
144 144                              let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
145 145                              if ((poolVersion == "1.0.0"))
146 146                                  then {
147 147                                      let vars = ["0", "false", "0"]
148 148                                      invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
149 149                                      }
150 150                                  else if ((poolVersion == "2.0.0"))
151 151                                      then {
152 152                                          let vars = [virtualSwapTokenPay, virtualSwapTokenGet, false, 0]
153 153                                          invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
154 154                                          }
155 155                                      else throw("Wrong pool type")
156 156                              }
157 157                          else 0
158 158                      if ((inv2 == inv2))
159 159                          then {
160 160                              let shareBalanceAfter = accountBalance(fromBase58String(shareId))
161 161                              let totalShare = (shareBalanceAfter - shareBalanceBefore)
162 162                              let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
163 163                              let userShareForStake = (totalShare - axlyInFee)
164 164                              if ((0 >= userShareForStake))
165 165                                  then throw("amount of staked sharetokens must be > 0")
166 166                                  else {
167 167                                      let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
168 168                                      if ((inv3 == inv3))
169 169                                          then {
170 170                                              let totalAmount = getAxlyTotalPosition(pool)
171 171                                              let newPosNum = getNewUserPositionNumber(pool, user)
172 172  [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))]
173 173                                              }
174 174                                          else throw("Strict value is not equal to itself.")
175 175                                      }
176 176                              }
177 177                          else throw("Strict value is not equal to itself.")
178 178                      }
179 179                  else throw("Strict value is not equal to itself.")
180 180              }
181 181          else throw("Strict value is not equal to itself.")
182 182      }
183 183  
184 184  
185 185  func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = nil
186 186  
187 187  
188 188  @Callable(i)
189 189  func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
190 190      let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
191 191      let $t075737824 = if ((type == SF_POS_TYPE))
192 192          then getSFPoolData(Address(fromBase58String(pool)))
193 193          else if ((type == WX_POS_TYPE))
194 194              then getWXPoolData(Address(fromBase58String(pool)))
195 195              else throw("Wrong pool type")
196 196      let AId = $t075737824._1
197 197      let BId = $t075737824._2
198 198      let balA = $t075737824._3
199 199      let balB = $t075737824._4
200 200      let shareId = $t075737824._5
201 201      let $t078288465 = if ((size(i.payments) == 2))
202 202          then if ((assetIdToStr(i.payments[0].assetId) != AId))
203 203              then throw("Wrong payment asset A")
204 204              else if ((assetIdToStr(i.payments[1].assetId) != BId))
205 205                  then throw("Wrong payment asset B")
206 206                  else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
207 207          else if ((size(i.payments) == 1))
208 208              then if ((assetIdToStr(i.payments[0].assetId) == AId))
209 209                  then $Tuple4(i.payments[0].amount, AId, 0, BId)
210 210                  else if ((assetIdToStr(i.payments[0].assetId) == BId))
211 211                      then $Tuple4(0, AId, i.payments[0].amount, BId)
212 212                      else throw("Wrong payment")
213 213              else throw("One or two payments expected")
214 214      let pmtA = $t078288465._1
215 215      let pmtAssetA = $t078288465._2
216 216      let pmtB = $t078288465._3
217 217      let pmtAssetB = $t078288465._4
218 218      if ((borrowAmount > 0))
219 219          then {
220 -             let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
220 +             let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), borrowAssetId, toString(borrowAmount)], ",")
221 221              let newRequestId = {
222 222                  let @ = invoke(this, "createNewRequest", [request], nil)
223 223                  if ($isInstanceOf(@, "Int"))
224 224                      then @
225 225                      else unit
226 226                  }
227 227              if ((newRequestId == newRequestId))
228 228                  then {
229 229                      let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
230 230                      let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
231 231                      nil
232 232                      }
233 233                  else throw("Strict value is not equal to itself.")
234 234              }
235 235          else if ((type == SF_POS_TYPE))
236 236              then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId, virtualSwapTokenPay, virtualSwapTokenGet)
237 237              else throw("Cant wx")
238 238      }
239 239  
240 240  
241 241  
242 242  @Callable(i)
243 243  func replanishFromLand (requestId) = {
244 244      let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
245 -     if ((request[0] == SF_POS_TYPE))
246 -         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]))
247 -         else throw("Cant wx")
245 +     if ((size(i.payments) != 1))
246 +         then throw("Wrong payment size")
247 +         else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
248 +             then true
249 +             else (i.payments[0].amount != parseIntValue(request[13])))
250 +             then throw("Wrong payment")
251 +             else {
252 +                 let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
253 +                     then (parseIntValue(request[3]) + i.payments[0].amount)
254 +                     else parseIntValue(request[3])
255 +                 let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
256 +                     then (parseIntValue(request[5]) + i.payments[0].amount)
257 +                     else parseIntValue(request[3])
258 +                 if ((request[0] == SF_POS_TYPE))
259 +                     then (replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11])) :+ DeleteEntry((requestId + kRequestId)))
260 +                     else throw("Cant wx")
261 +                 }
248 262      }
249 263  
250 264  
251 265  
252 266  @Callable(i)
253 267  func createNewRequest (params) = valueOrElse(isSelfCall(i), {
254 268      let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
255 269      $Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
256 270      })
257 271  
258 272  
259 273  
260 274  @Callable(i)
261 275  func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
262 276      then (type != WX_POS_TYPE)
263 277      else false)
264 278      then throw("Wrong type")
265 279      else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
266 280  
267 281  
268 282  @Verifier(tx)
269 283  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
270 284

Old	New		Differences
217	217		let pmtAssetB = $t078288465._4
218	218		if ((borrowAmount > 0))
219	219		then {
220		-	let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
	220	+	let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), borrowAssetId, toString(borrowAmount)], ",")
221	221		let newRequestId = {
222	222		let @ = invoke(this, "createNewRequest", [request], nil)
223	223		if ($isInstanceOf(@, "Int"))

242	242		@Callable(i)
243	243		func replanishFromLand (requestId) = {
244	244		let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
245		-	if ((request[0] == SF_POS_TYPE))
246		-	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]))
247		-	else throw("Cant wx")
	245	+	if ((size(i.payments) != 1))
	246	+	then throw("Wrong payment size")
	247	+	else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
	248	+	then true
	249	+	else (i.payments[0].amount != parseIntValue(request[13])))
	250	+	then throw("Wrong payment")
	251	+	else {
	252	+	let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
	253	+	then (parseIntValue(request[3]) + i.payments[0].amount)
	254	+	else parseIntValue(request[3])
	255	+	let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
	256	+	then (parseIntValue(request[5]) + i.payments[0].amount)
	257	+	else parseIntValue(request[3])
	258	+	if ((request[0] == SF_POS_TYPE))
	259	+	then (replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11])) :+ DeleteEntry((requestId + kRequestId)))
	260	+	else throw("Cant wx")
	261	+	}
248	262		}
249	263
250	264

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		if ((shareBalanceBefore == shareBalanceBefore))
110	110		then {
111	111		let poolAddr = Address(fromBase58String(pool))
112	112		let ratioA = fraction(SCALE8, pmtA, balA)
113	113		let ratioB = fraction(SCALE8, pmtB, balB)
114	114		let $t045474840 = if ((ratioB > ratioA))
115	115		then {
116	116		let pmt = fraction(balB, ratioA, SCALE8, CEILING)
117	117		$Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
118	118		}
119	119		else {
120	120		let pmt = fraction(balA, ratioB, SCALE8, CEILING)
121	121		$Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
122	122		}
123	123		let pmtAmountA = $t045474840._1
124	124		let pmtAmountB = $t045474840._2
125	125		let change = $t045474840._3
126	126		let changeAssetId = $t045474840._4
127	127		let poolVersion = getStringValue(poolAddr, "version")
128	128		let inv1 = if (if ((pmtAmountA > 0))
129	129		then (pmtAmountB > 0)
130	130		else false)
131	131		then {
132	132		let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
133	133		if ((poolVersion == "1.0.0"))
134	134		then invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
135	135		else if ((poolVersion == "2.0.0"))
136	136		then invoke(poolAddr, "replenishWithTwoTokensV2", [false, 0], payments)
137	137		else throw("Wrong pool type")
138	138		}
139	139		else 0
140	140		if ((inv1 == inv1))
141	141		then {
142	142		let inv2 = if ((change > 0))
143	143		then {
144	144		let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
145	145		if ((poolVersion == "1.0.0"))
146	146		then {
147	147		let vars = ["0", "false", "0"]
148	148		invoke(poolAddr, "callFunction", ["replenishWithOneToken", vars], payments)
149	149		}
150	150		else if ((poolVersion == "2.0.0"))
151	151		then {
152	152		let vars = [virtualSwapTokenPay, virtualSwapTokenGet, false, 0]
153	153		invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
154	154		}
155	155		else throw("Wrong pool type")
156	156		}
157	157		else 0
158	158		if ((inv2 == inv2))
159	159		then {
160	160		let shareBalanceAfter = accountBalance(fromBase58String(shareId))
161	161		let totalShare = (shareBalanceAfter - shareBalanceBefore)
162	162		let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
163	163		let userShareForStake = (totalShare - axlyInFee)
164	164		if ((0 >= userShareForStake))
165	165		then throw("amount of staked sharetokens must be > 0")
166	166		else {
167	167		let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
168	168		if ((inv3 == inv3))
169	169		then {
170	170		let totalAmount = getAxlyTotalPosition(pool)
171	171		let newPosNum = getNewUserPositionNumber(pool, user)
172	172		[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))]
173	173		}
174	174		else throw("Strict value is not equal to itself.")
175	175		}
176	176		}
177	177		else throw("Strict value is not equal to itself.")
178	178		}
179	179		else throw("Strict value is not equal to itself.")
180	180		}
181	181		else throw("Strict value is not equal to itself.")
182	182		}
183	183
184	184
185	185		func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId,virtualSwapTokenPay,virtualSwapTokenGet) = nil
186	186
187	187
188	188		@Callable(i)
189	189		func replanish (pool,borrowAmount,borrowAssetId,virtualSwapTokenPay,virtualSwapTokenGet) = {
190	190		let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
191	191		let $t075737824 = if ((type == SF_POS_TYPE))
192	192		then getSFPoolData(Address(fromBase58String(pool)))
193	193		else if ((type == WX_POS_TYPE))
194	194		then getWXPoolData(Address(fromBase58String(pool)))
195	195		else throw("Wrong pool type")
196	196		let AId = $t075737824._1
197	197		let BId = $t075737824._2
198	198		let balA = $t075737824._3
199	199		let balB = $t075737824._4
200	200		let shareId = $t075737824._5
201	201		let $t078288465 = if ((size(i.payments) == 2))
202	202		then if ((assetIdToStr(i.payments[0].assetId) != AId))
203	203		then throw("Wrong payment asset A")
204	204		else if ((assetIdToStr(i.payments[1].assetId) != BId))
205	205		then throw("Wrong payment asset B")
206	206		else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
207	207		else if ((size(i.payments) == 1))
208	208		then if ((assetIdToStr(i.payments[0].assetId) == AId))
209	209		then $Tuple4(i.payments[0].amount, AId, 0, BId)
210	210		else if ((assetIdToStr(i.payments[0].assetId) == BId))
211	211		then $Tuple4(0, AId, i.payments[0].amount, BId)
212	212		else throw("Wrong payment")
213	213		else throw("One or two payments expected")
214	214		let pmtA = $t078288465._1
215	215		let pmtAssetA = $t078288465._2
216	216		let pmtB = $t078288465._3
217	217		let pmtAssetB = $t078288465._4
218	218		if ((borrowAmount > 0))
219	219		then {
220		-	let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet)], ",")
	220	+	let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, toString(virtualSwapTokenPay), toString(virtualSwapTokenGet), borrowAssetId, toString(borrowAmount)], ",")
221	221		let newRequestId = {
222	222		let @ = invoke(this, "createNewRequest", [request], nil)
223	223		if ($isInstanceOf(@, "Int"))
224	224		then @
225	225		else unit
226	226		}
227	227		if ((newRequestId == newRequestId))
228	228		then {
229	229		let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
230	230		let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
231	231		nil
232	232		}
233	233		else throw("Strict value is not equal to itself.")
234	234		}
235	235		else if ((type == SF_POS_TYPE))
236	236		then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId, virtualSwapTokenPay, virtualSwapTokenGet)
237	237		else throw("Cant wx")
238	238		}
239	239
240	240
241	241
242	242		@Callable(i)
243	243		func replanishFromLand (requestId) = {
244	244		let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
245		-	if ((request[0] == SF_POS_TYPE))
246		-	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]))
247		-	else throw("Cant wx")
	245	+	if ((size(i.payments) != 1))
	246	+	then throw("Wrong payment size")
	247	+	else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
	248	+	then true
	249	+	else (i.payments[0].amount != parseIntValue(request[13])))
	250	+	then throw("Wrong payment")
	251	+	else {
	252	+	let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
	253	+	then (parseIntValue(request[3]) + i.payments[0].amount)
	254	+	else parseIntValue(request[3])
	255	+	let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
	256	+	then (parseIntValue(request[5]) + i.payments[0].amount)
	257	+	else parseIntValue(request[3])
	258	+	if ((request[0] == SF_POS_TYPE))
	259	+	then (replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9], parseIntValue(request[10]), parseIntValue(request[11])) :+ DeleteEntry((requestId + kRequestId)))
	260	+	else throw("Cant wx")
	261	+	}
248	262		}
249	263
250	264
251	265
252	266		@Callable(i)
253	267		func createNewRequest (params) = valueOrElse(isSelfCall(i), {
254	268		let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
255	269		$Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
256	270		})
257	271
258	272
259	273
260	274		@Callable(i)
261	275		func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
262	276		then (type != WX_POS_TYPE)
263	277		else false)
264	278		then throw("Wrong type")
265	279		else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
266	280
267	281
268	282		@Verifier(tx)
269	283		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
270	284

github/deemru/w8io/169f3d6 
44.81 ms ◑