w8 · tx · AR2···p9i

tx · AR2r6qEDbZGVEsM3Xsyvozi1PKdBTAKsWDrKFo9FTp9i

3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS:  -0.01400000 Waves

2023.03.30 13:08 [2512540] smart account 3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AR2r6qEDbZGVEsM3Xsyvozi1PKdBTAKsWDrKFo9FTp9i",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1680170970787,
    "version": 2,
    "chainId": 84,
    "sender": "3MvRWw2FPEimFCTGtK7qY9uAJbM7XJ4ZfJS",
    "senderPublicKey": "HP8sssVq1866F7CaPQJwgFrt6fsqhQjKwM84cL1wjD2a",
    "proofs": [
        "Lc4kr1CzYKfvdGNBAas3BKshCzLAyWDmLVUFeLbuN3MZ1KJYHTeTNAYwmEVqUPR1F9T2JXtiv5KQmH6gLbapGEP"
    ],
    "script": "base64:BgIcCAISBQoDCAEIEgMKAQgSAwoBCBIHCgUICAEBASkAC1NGX1BPU19UWVBFAgJTRgALV1hfUE9TX1RZUEUCAldYAAZTQ0FMRTgAgMLXLwAKRkVFX1NDQUxFNgDAhD0AFGtTRlBvb2xBQXNzZXRCYWxhbmNlAg9BX2Fzc2V0X2JhbGFuY2UAFGtTRlBvb2xCQXNzZXRCYWxhbmNlAg9CX2Fzc2V0X2JhbGFuY2UAD2tTRlBvb2xBQXNzZXRJZAIKQV9hc3NldF9pZAAPa1NGUG9vbEJBc3NldElkAgpCX2Fzc2V0X2lkAA5rU0ZQb29sU2hhcmVJZAIOc2hhcmVfYXNzZXRfaWQAEGtTRkZhcm1pbmdTdGFrZWQCFF9zaGFyZV90b2tlbnNfbG9ja2VkAA1rVXNlclBvc2l0aW9uAg5fdXNlcl9wb3NpdGlvbgARa1VzZXJQb3NpdGlvblR5cGUCE191c2VyX3Bvc2l0aW9uX3R5cGUAEGtVc2VyUG9zaXRpb25OdW0CFV91c2VyX3Bvc2l0aW9uX251bWJlcgAOa1RvdGFsUG9zaXRpb24CD190b3RhbF9wb3NpdGlvbgAVa0F4bHlJbkZlZVdpdGhvdXRMb2FuAhZfYXhseV9mZWVfd2l0aG91dF9sb2FuABJrQXhseUluRmVlV2l0aExvYW4CE19heGx5X2ZlZV93aXRoX2xvYW4AC2tBeGx5Q2FwRmVlAg1fYXhseV9mZWVfY2FwAAprUmVxdWVzdElkAgtfcmVxdWVzdF9pZAAMa1JlcXVlc3RJdGVyAg1yZXF1ZXN0c19pdGVyAAVrUG9vbAIFcG9vbF8ACWtNb25leUJveAIOYXhseV9tb25leV9ib3gADmtTRkZhcm1pbmdBZGRyAhNzd29wZmlfZmFybWluZ19hZGRyAAxrTGVuZFNlcnZpY2UCEWxlbmRfc2VydmljZV9hZGRyAAxrUHJpY2VPcmFjbGUCDHByaWNlX29yYWNsZQAIbW9uZXlCb3gJAQdBZGRyZXNzAQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwUJa01vbmV5Qm94AhhObyBheGx5IG1vbmV5Qm94IGFkZHJlc3MAD3ByaWNlT3JhY2xlQWRkcgkBB0FkZHJlc3MBCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQxrUHJpY2VPcmFjbGUCF05vIHByaWNlIG9yYWNsZSBhZGRyZXNzAQppc1NlbGZDYWxsAQFpAwkAAAIIBQFpBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECK09ubHkgY29udHJhY3QgaXRzZWxmIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24BDmFjY291bnRCYWxhbmNlAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDwBwIFBHRoaXMFAmlkAwkAAQIFByRtYXRjaDACBFVuaXQEBXdhdmVzBQckbWF0Y2gwCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQkAAgECC01hdGNoIGVycm9yAQ1nZXRTRlBvb2xEYXRhAQhwb29sQWRkcgkAlwoFCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFD2tTRlBvb2xBQXNzZXRJZAIZQ2FuJ3QgZ2V0IHBvb2wgQSBhc3NldCBpZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFCHBvb2xBZGRyBQ9rU0ZQb29sQkFzc2V0SWQCGUNhbid0IGdldCBwb29sIEIgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQhwb29sQWRkcgUUa1NGUG9vbEFBc3NldEJhbGFuY2UCHkNhbid0IGdldCBwb29sIEEgYXNzZXQgYmFsYW5jZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFCHBvb2xBZGRyBRRrU0ZQb29sQkFzc2V0QmFsYW5jZQIeQ2FuJ3QgZ2V0IHBvb2wgQiBhc3NldCBiYWxhbmNlCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUIcG9vbEFkZHIFDmtTRlBvb2xTaGFyZUlkAhhDYW4ndCBnZXQgc2hhcmUgYXNzZXQgaWQBDWdldFdYUG9vbERhdGEBCHBvb2xBZGRyBANjZmcKAAFACQD8BwQFCHBvb2xBZGRyAhxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZBQNuaWwFA25pbAMJAAECBQFAAglMaXN0W0FueV0FAUAJAAIBCQCsAgIJAAMBBQFAAh4gY291bGRuJ3QgYmUgY2FzdCB0byBMaXN0W0FueV0DCQAAAgUDY2ZnBQNjZmcJAJcKBQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCgABQAkAkQMCBQNjZmcABAMJAAECBQFAAgZTdHJpbmcFAUAFBHVuaXQCGUNhbid0IGdldCBwb29sIEEgYXNzZXQgaWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgoAAUAJAJEDAgUDY2ZnAAUDCQABAgUBQAIGU3RyaW5nBQFABQR1bml0AhlDYW4ndCBnZXQgcG9vbCBCIGFzc2V0IGlkAAAAAAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCgABQAkAkQMCBQNjZmcAAwMJAAECBQFAAgZTdHJpbmcFAUAFBHVuaXQCGkNhbid0IGdldCBwb29sIExQIGFzc2V0IGlkCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuARRnZXRBeGx5VG90YWxQb3NpdGlvbgEEcG9vbAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIFBHBvb2wFDmtUb3RhbFBvc2l0aW9uAAABGGdldE5ld1VzZXJQb3NpdGlvbk51bWJlcgIEcG9vbAR1c2VyCQBkAgkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRBrVXNlclBvc2l0aW9uTnVtAAAAAQEMZ2V0QXhseUluRmVlAgRwb29sCHdpdGhMb2FuAwUId2l0aExvYW4JARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgUEcG9vbAUSa0F4bHlJbkZlZVdpdGhMb2FuCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgIFBHBvb2wFFWtBeGx5SW5GZWVXaXRob3V0TG9hbgEQZ2V0U0ZGYXJtaW5nQWRkcgAJAQdBZGRyZXNzAQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUEdGhpcwUOa1NGRmFybWluZ0FkZHICHUNhbid0IGdldCBzd29wZmkgZmFybWluZyBhZGRyARBnZXRXWEZhcm1pbmdBZGRyAQhwb29sQWRkcgQJZkNvbnRyYWN0CQEHQWRkcmVzcwEJANkEAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQhwb29sQWRkcgITJXNfX2ZhY3RvcnlDb250cmFjdAIiQ2FuJ3QgZ2V0IFdYIGZhY3RvcnkgY29udHJhY3QgYWRkcgQKZmFjdHJveUNmZwkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFCWZDb250cmFjdAIRJXNfX2ZhY3RvcnlDb25maWcCGENhbid0IGdldCBXWCBmYWN0b3J5IGNmZwICX18JAQdBZGRyZXNzAQkA2QQBCQCRAwIFCmZhY3Ryb3lDZmcAAQEOZ2V0TGVuZFNydkFkZHIACQEHQWRkcmVzcwEJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMFDGtMZW5kU2VydmljZQIbQ2FuJ3QgZ2V0IGxlbmQgc2VydmljZSBhZGRyAQxhc3NldElkVG9TdHIBB2Fzc2V0SWQEByRtYXRjaDAFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQCaWQFByRtYXRjaDAJANgEAQUCaWQDCQABAgUHJG1hdGNoMAIEVW5pdAQFd2F2ZXMFByRtYXRjaDACBVdBVkVTCQACAQILTWF0Y2ggZXJyb3IBDmFzc2V0SWRGcm9tU3RyAQdhc3NldElkAwkAAAIFB2Fzc2V0SWQCBVdBVkVTBQR1bml0CQDZBAEFB2Fzc2V0SWQBEGdldEFzc2V0RGVjaW1hbHMBB2Fzc2V0SWQDCQAAAgUHYXNzZXRJZAIFV0FWRVMACAQHJG1hdGNoMAkA7AcBCQDZBAEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEBWFzc2V0BQckbWF0Y2gwCAUFYXNzZXQIZGVjaW1hbHMJAAIBAhBDYW4ndCBmaW5kIGFzc2V0AQ9yZXBsYW5pc2hTd29wRmkKBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgRiYWxBBGJhbEIHc2hhcmVJZAQSc2hhcmVCYWxhbmNlQmVmb3JlCQEOYWNjb3VudEJhbGFuY2UBCQDZBAEFB3NoYXJlSWQDCQAAAgUSc2hhcmVCYWxhbmNlQmVmb3JlBRJzaGFyZUJhbGFuY2VCZWZvcmUECHBvb2xBZGRyCQEHQWRkcmVzcwEJANkEAQUEcG9vbAQGcmF0aW9BCQBrAwUGU0NBTEU4BQRwbXRBBQRiYWxBBAZyYXRpb0IJAGsDBQZTQ0FMRTgFBHBtdEIFBGJhbEIECyR0MDUwNDM1MzM1AwkAZgIFBnJhdGlvQgUGcmF0aW9BBANwbXQJAG4EBQRiYWxCBQZyYXRpb0EFBlNDQUxFOAUHQ0VJTElORwkAlgoEBQRwbXRBBQNwbXQJAGUCBQRwbXRCBQNwbXQFCXBtdEFzc2V0QgQDcG10CQBuBAUEYmFsQQUGcmF0aW9CBQZTQ0FMRTgFB0NFSUxJTkcJAJYKBAUDcG10BQRwbXRCCQBlAgUEcG10QQUDcG10BQlwbXRBc3NldEEECnBtdEFtb3VudEEIBQskdDA1MDQzNTMzNQJfMQQKcG10QW1vdW50QggFCyR0MDUwNDM1MzM1Al8yBAZjaGFuZ2UIBQskdDA1MDQzNTMzNQJfMwQNY2hhbmdlQXNzZXRJZAgFCyR0MDUwNDM1MzM1Al80BARpbnYxAwMJAGYCBQpwbXRBbW91bnRBAAAJAGYCBQpwbXRBbW91bnRCAAAHBAhwYXltZW50cwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDmFzc2V0SWRGcm9tU3RyAQUJcG10QXNzZXRBBQpwbXRBbW91bnRBCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQlwbXRBc3NldEIFCnBtdEFtb3VudEIFA25pbAkA/AcEBQhwb29sQWRkcgIMY2FsbEZ1bmN0aW9uCQDMCAICFnJlcGxlbmlzaFdpdGhUd29Ub2tlbnMJAMwIAgkAzAgCAgVmYWxzZQkAzAgCAgEwBQNuaWwFA25pbAUIcGF5bWVudHMAAAMJAAACBQRpbnYxBQRpbnYxBARpbnYyAwkAZgIFBmNoYW5nZQAABAhwYXltZW50cwkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDmFzc2V0SWRGcm9tU3RyAQUNY2hhbmdlQXNzZXRJZAUGY2hhbmdlBQNuaWwEBHZhcnMJAMwIAgIBMAkAzAgCAgVmYWxzZQkAzAgCAgEwBQNuaWwJAPwHBAUIcG9vbEFkZHICF3JlcGxlbmlzaFdpdGhPbmVUb2tlblYyCQDMCAIHCQDMCAIAAAUDbmlsBQhwYXltZW50cwAAAwkAAAIFBGludjIFBGludjIEEXNoYXJlQmFsYW5jZUFmdGVyCQEOYWNjb3VudEJhbGFuY2UBCQDZBAEFB3NoYXJlSWQECnRvdGFsU2hhcmUJAGUCBRFzaGFyZUJhbGFuY2VBZnRlcgUSc2hhcmVCYWxhbmNlQmVmb3JlBAlheGx5SW5GZWUJAGsDBQp0b3RhbFNoYXJlCQEMZ2V0QXhseUluRmVlAgUEcG9vbAUId2l0aExvYW4FCkZFRV9TQ0FMRTYEEXVzZXJTaGFyZUZvclN0YWtlCQBlAgUKdG90YWxTaGFyZQUJYXhseUluRmVlAwkAZwIAAAURdXNlclNoYXJlRm9yU3Rha2UJAAIBAihhbW91bnQgb2Ygc3Rha2VkIHNoYXJldG9rZW5zIG11c3QgYmUgPiAwBARpbnYzCQD8BwQJARBnZXRTRkZhcm1pbmdBZGRyAAIPbG9ja1NoYXJlVG9rZW5zCQDMCAIFBHBvb2wJAMwIAgAABQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJANkEAQUHc2hhcmVJZAURdXNlclNoYXJlRm9yU3Rha2UFA25pbAMJAAACBQRpbnYzBQRpbnYzBAt0b3RhbEFtb3VudAkBFGdldEF4bHlUb3RhbFBvc2l0aW9uAQUEcG9vbAQJbmV3UG9zTnVtCQEYZ2V0TmV3VXNlclBvc2l0aW9uTnVtYmVyAgUEcG9vbAUEdXNlcgQJYmFzZUVudHJ5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFBHBvb2wFDmtUb3RhbFBvc2l0aW9uCQBkAgULdG90YWxBbW91bnQFEXVzZXJTaGFyZUZvclN0YWtlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgUEcG9vbAIBXwUEdXNlcgIBXwkApAMBBQluZXdQb3NOdW0FDWtVc2VyUG9zaXRpb24FEXVzZXJTaGFyZUZvclN0YWtlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyAgFfCQCkAwEFCW5ld1Bvc051bQURa1VzZXJQb3NpdGlvblR5cGUFC1NGX1BPU19UWVBFCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyBRBrVXNlclBvc2l0aW9uTnVtBQluZXdQb3NOdW0JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUIbW9uZXlCb3gFCWF4bHlJbkZlZQkA2QQBBQdzaGFyZUlkBQNuaWwJAJQKAgUJYmFzZUVudHJ5BRF1c2VyU2hhcmVGb3JTdGFrZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELcmVwbGFuaXNoV1gIBHVzZXIEcG9vbAh3aXRoTG9hbgRwbXRBCXBtdEFzc2V0QQRwbXRCCXBtdEFzc2V0QgdzaGFyZUlkBAhwb29sQWRkcgkBB0FkZHJlc3MBCQDZBAEFBHBvb2wECyR0MDcyOTc4MTE2AwMJAGYCBQRwbXRBAAAJAGYCBQRwbXRCAAAHBApldmFsUHV0SW5BCgABQAkA/AcEBQhwb29sQWRkcgIgZXZhbHVhdGVQdXRCeUFtb3VudEFzc2V0UkVBRE9OTFkJAMwIAgUEcG10QQUDbmlsBQNuaWwDCQABAgUBQAIJTGlzdFtBbnldBQFACQACAQkArAICCQADAQUBQAIeIGNvdWxkbid0IGJlIGNhc3QgdG8gTGlzdFtBbnldAwkAAAIFCmV2YWxQdXRJbkEFCmV2YWxQdXRJbkEECmV2YWxQdXRJbkIKAAFACQD8BwQFCHBvb2xBZGRyAh9ldmFsdWF0ZVB1dEJ5UHJpY2VBc3NldFJFQURPTkxZCQDMCAIFBHBtdEIFA25pbAUDbmlsAwkAAQIFAUACCUxpc3RbQW55XQUBQAkAAgEJAKwCAgkAAwEFAUACHiBjb3VsZG4ndCBiZSBjYXN0IHRvIExpc3RbQW55XQMJAAACBQpldmFsUHV0SW5CBQpldmFsUHV0SW5CBAVscEluQQoAAUAJAJEDAgUKZXZhbFB1dEluQQAAAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAQFbHBJbkIKAAFACQCRAwIFCmV2YWxQdXRJbkIAAAMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQDCQBmAgUFbHBJbkEFBWxwSW5CBAZwbXRJbkIKAAFACQCRAwIFCmV2YWxQdXRJbkIABwMJAAECBQFAAgNJbnQFAUAJAAIBCQCsAgIJAAMBBQFAAhggY291bGRuJ3QgYmUgY2FzdCB0byBJbnQJAJYKBAUEcG10QQUGcG10SW5CCQBlAgUEcG10QgUGcG10SW5CBQlwbXRBc3NldEIEBnBtdEluQQoAAUAJAJEDAgUKZXZhbFB1dEluQgAGAwkAAQIFAUACA0ludAUBQAkAAgEJAKwCAgkAAwEFAUACGCBjb3VsZG4ndCBiZSBjYXN0IHRvIEludAkAlgoEBQZwbXRJbkEFBHBtdEIJAGUCBQRwbXRBBQZwbXRJbkEFCXBtdEFzc2V0QQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgMJAGYCBQRwbXRBAAAJAJYKBAUEcG10QQUEcG10QgUEcG10QQUJcG10QXNzZXRBAwkAZgIFBHBtdEIAAAkAlgoEBQRwbXRBBQRwbXRCBQRwbXRCBQlwbXRBc3NldEIJAAIBAhBwbXRzIG11c3QgYmUgPiAwBApwbXRBbW91bnRBCAULJHQwNzI5NzgxMTYCXzEECnBtdEFtb3VudEIIBQskdDA3Mjk3ODExNgJfMgQGY2hhbmdlCAULJHQwNzI5NzgxMTYCXzMEDWNoYW5nZUFzc2V0SWQIBQskdDA3Mjk3ODExNgJfNAQSc2hhcmVCYWxhbmNlQmVmb3JlCQEOYWNjb3VudEJhbGFuY2UBCQDZBAEFB3NoYXJlSWQDCQAAAgUSc2hhcmVCYWxhbmNlQmVmb3JlBRJzaGFyZUJhbGFuY2VCZWZvcmUEBGludjEDAwkAZgIFCnBtdEFtb3VudEEAAAkAZgIFCnBtdEFtb3VudEIAAAcECHBheW1lbnRzCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCCQEOYXNzZXRJZEZyb21TdHIBBQlwbXRBc3NldEEFCnBtdEFtb3VudEEJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJAQ5hc3NldElkRnJvbVN0cgEFCXBtdEFzc2V0QgUKcG10QW1vdW50QgUDbmlsCQD8BwQFCHBvb2xBZGRyAgNwdXQJAMwIAgABCQDMCAIHBQNuaWwFCHBheW1lbnRzAAADCQAAAgUEaW52MQUEaW52MQQEaW52MgMJAGYCBQZjaGFuZ2UAAAQIcGF5bWVudHMJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIJAQ5hc3NldElkRnJvbVN0cgEFDWNoYW5nZUFzc2V0SWQFBmNoYW5nZQUDbmlsCQD8BwQFCHBvb2xBZGRyAglwdXRPbmVUa24JAMwIAgAACQDMCAIHBQNuaWwFCHBheW1lbnRzAAADCQAAAgUEaW52MgUEaW52MgQRc2hhcmVCYWxhbmNlQWZ0ZXIJAQ5hY2NvdW50QmFsYW5jZQEJANkEAQUHc2hhcmVJZAQKdG90YWxTaGFyZQkAZQIFEXNoYXJlQmFsYW5jZUFmdGVyBRJzaGFyZUJhbGFuY2VCZWZvcmUECWF4bHlJbkZlZQkAawMFCnRvdGFsU2hhcmUJAQxnZXRBeGx5SW5GZWUCBQRwb29sBQh3aXRoTG9hbgUKRkVFX1NDQUxFNgQRdXNlclNoYXJlRm9yU3Rha2UJAGUCBQp0b3RhbFNoYXJlBQlheGx5SW5GZWUDCQBnAgAABRF1c2VyU2hhcmVGb3JTdGFrZQkAAgECKGFtb3VudCBvZiBzdGFrZWQgc2hhcmV0b2tlbnMgbXVzdCBiZSA+IDAEBGludjMJAPwHBAkBEGdldFdYRmFybWluZ0FkZHIBBQhwb29sQWRkcgIFc3Rha2UFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkA2QQBBQdzaGFyZUlkBRF1c2VyU2hhcmVGb3JTdGFrZQUDbmlsAwkAAAIFBGludjMFBGludjMEC3RvdGFsQW1vdW50CQEUZ2V0QXhseVRvdGFsUG9zaXRpb24BBQRwb29sBAluZXdQb3NOdW0JARhnZXROZXdVc2VyUG9zaXRpb25OdW1iZXICBQRwb29sBQR1c2VyCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUEcG9vbAUOa1RvdGFsUG9zaXRpb24JAGQCBQt0b3RhbEFtb3VudAURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICBQRwb29sAgFfBQR1c2VyAgFfCQCkAwEFCW5ld1Bvc051bQUNa1VzZXJQb3NpdGlvbgURdXNlclNoYXJlRm9yU3Rha2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXICAV8JAKQDAQUJbmV3UG9zTnVtBRFrVXNlclBvc2l0aW9uVHlwZQULU0ZfUE9TX1RZUEUJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFBHBvb2wCAV8FBHVzZXIFEGtVc2VyUG9zaXRpb25OdW0FCW5ld1Bvc051bQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQhtb25leUJveAUJYXhseUluRmVlCQDZBAEFB3NoYXJlSWQFA25pbAURdXNlclNoYXJlRm9yU3Rha2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EAWkBCXJlcGxhbmlzaAMEcG9vbAhsZXZlcmFnZQ1ib3Jyb3dBc3NldElkAwMJAGYCAGQFCGxldmVyYWdlBgkAZgIFCGxldmVyYWdlAKwCCQACAQIfTGV2ZXJhZ2UgY2FuJ3QgYmUgPDEwMCBhbmQgPjMwMAQEdHlwZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgUFa1Bvb2wFBHBvb2wCElBvb2wgaXMgbm90IGluaXRlZAQMJHQwOTk2OTEwMjIwAwkAAAIFBHR5cGUFC1NGX1BPU19UWVBFCQENZ2V0U0ZQb29sRGF0YQEJAQdBZGRyZXNzAQkA2QQBBQRwb29sAwkAAAIFBHR5cGUFC1dYX1BPU19UWVBFCQENZ2V0V1hQb29sRGF0YQEJAQdBZGRyZXNzAQkA2QQBBQRwb29sCQACAQIPV3JvbmcgcG9vbCB0eXBlBANBSWQIBQwkdDA5OTY5MTAyMjACXzEEA0JJZAgFDCR0MDk5NjkxMDIyMAJfMgQEYmFsQQgFDCR0MDk5NjkxMDIyMAJfMwQEYmFsQggFDCR0MDk5NjkxMDIyMAJfNAQHc2hhcmVJZAgFDCR0MDk5NjkxMDIyMAJfNQQNJHQwMTAyMjMxMDg2MAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAIDCQECIT0CCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQNBSWQJAAIBAhVXcm9uZyBwYXltZW50IGFzc2V0IEEDCQECIT0CCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAQdhc3NldElkBQNCSWQJAAIBAhVXcm9uZyBwYXltZW50IGFzc2V0IEIJAJYKBAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFA0FJZAgJAJEDAggFAWkIcGF5bWVudHMAAQZhbW91bnQFA0JJZAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEDCQAAAgkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUDQUlkCQCWCgQICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BQNBSWQAAAUDQklkAwkAAAIJAQxhc3NldElkVG9TdHIBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFA0JJZAkAlgoEAAAFA0FJZAgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFA0JJZAkAAgECDVdyb25nIHBheW1lbnQJAAIBAhxPbmUgb3IgdHdvIHBheW1lbnRzIGV4cGVjdGVkBARwbXRBCAUNJHQwMTAyMjMxMDg2MAJfMQQJcG10QXNzZXRBCAUNJHQwMTAyMjMxMDg2MAJfMgQEcG10QggFDSR0MDEwMjIzMTA4NjACXzMECXBtdEFzc2V0QggFDSR0MDEwMjIzMTA4NjACXzQDCQBmAgUIbGV2ZXJhZ2UAZAQHZFByaWNlQQgKAAFACQD8BwQFD3ByaWNlT3JhY2xlQWRkcgIJZ2V0VFdBUDYwCQDMCAIFCXBtdEFzc2V0QQkAzAgCBwUDbmlsBQNuaWwDCQABAgUBQAIKKEludCwgSW50KQUBQAkAAgEJAKwCAgkAAwEFAUACHyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEludCkCXzEEB2RQcmljZUIICgABQAkA/AcEBQ9wcmljZU9yYWNsZUFkZHICCWdldFRXQVA2MAkAzAgCBQlwbXRBc3NldEIJAMwIAgcFA25pbAUDbmlsAwkAAQIFAUACCihJbnQsIEludCkFAUAJAAIBCQCsAgIJAAMBBQFAAh8gY291bGRuJ3QgYmUgY2FzdCB0byAoSW50LCBJbnQpAl8xBAxwYXlkSW5Eb2xsYXIJAGQCCQBrAwUHZFByaWNlQQUEcG10QQkAbAYACgAACQEQZ2V0QXNzZXREZWNpbWFscwEFCXBtdEFzc2V0QQAAAAAFBERPV04JAGsDBQdkUHJpY2VCBQRwbXRCCQBsBgAKAAAJARBnZXRBc3NldERlY2ltYWxzAQUJcG10QXNzZXRCAAAAAAUERE9XTgQMYm9ycm93QW1vdW50CQBrAwUMcGF5ZEluRG9sbGFyCQBlAgUIbGV2ZXJhZ2UAZABkBAdyZXF1ZXN0CQC5CQIJAMwIAgUEdHlwZQkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCBQRwb29sCQDMCAIJAKQDAQUEcG10QQkAzAgCBQlwbXRBc3NldEEJAMwIAgkApAMBBQRwbXRCCQDMCAIFCXBtdEFzc2V0QgkAzAgCCQCkAwEFBGJhbEEJAMwIAgkApAMBBQRiYWxCCQDMCAIFB3NoYXJlSWQJAMwIAgUNYm9ycm93QXNzZXRJZAkAzAgCCQCkAwEFDGJvcnJvd0Ftb3VudAUDbmlsAgEsBAxuZXdSZXF1ZXN0SWQKAAFACQD8BwQFBHRoaXMCEGNyZWF0ZU5ld1JlcXVlc3QJAMwIAgUHcmVxdWVzdAUDbmlsBQNuaWwDCQABAgUBQAIDSW50BQFABQR1bml0AwkAAAIFDG5ld1JlcXVlc3RJZAUMbmV3UmVxdWVzdElkBARhcmdzCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFB3NoYXJlSWQJAMwIAgUNYm9ycm93QXNzZXRJZAkAzAgCBQxib3Jyb3dBbW91bnQJAMwIAgkApQgBBQR0aGlzCQDMCAICEXJlcGxhbmlzaEZyb21MYW5kCQDMCAIJAKQDAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBQxuZXdSZXF1ZXN0SWQCGENhbid0IGNyZWF0ZSBuZXcgcmVxdWVzdAUDbmlsBANpbnYJAP0HBAkBDmdldExlbmRTcnZBZGRyAAINZmxhc2hQb3NpdGlvbgUEYXJncwUDbmlsAwkAAAIFA2ludgUDaW52BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4DCQAAAgUEdHlwZQULU0ZfUE9TX1RZUEUJAQ9yZXBsYW5pc2hTd29wRmkKCQClCAEIBQFpBmNhbGxlcgUEcG9vbAcFBHBtdEEFCXBtdEFzc2V0QQUEcG10QgUJcG10QXNzZXRCBQRiYWxBBQRiYWxCBQdzaGFyZUlkCQELcmVwbGFuaXNoV1gICQClCAEIBQFpBmNhbGxlcgUEcG9vbAcFBHBtdEEFCXBtdEFzc2V0QQUEcG10QgUJcG10QXNzZXRCBQdzaGFyZUlkAWkBEXJlcGxhbmlzaEZyb21MYW5kAQlyZXF1ZXN0SWQEB3JlcXVlc3QJALUJAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgUJcmVxdWVzdElkBQprUmVxdWVzdElkCQCsAgICE05vIHJlcXVlc3Qgd2l0aCBpZCAFCXJlcXVlc3RJZAIBLAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECEldyb25nIHBheW1lbnQgc2l6ZQMDCQECIT0CCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQCRAwIFB3JlcXVlc3QADAYJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAANCQACAQINV3JvbmcgcGF5bWVudAQEcG10QQMJAAACCQCRAwIFB3JlcXVlc3QABAkBDGFzc2V0SWRUb1N0cgEICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAMICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAADBARwbXRCAwkAAAIJAJEDAgUHcmVxdWVzdAAGCQEMYXNzZXRJZFRvU3RyAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQBkAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3JlcXVlc3QABQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXF1ZXN0AAMDCQAAAgkAkQMCBQdyZXF1ZXN0AAAFC1NGX1BPU19UWVBFBA0kdDAxMzI2NjEzNTgwCQEPcmVwbGFuaXNoU3dvcEZpCgkAkQMCBQdyZXF1ZXN0AAEJAJEDAgUHcmVxdWVzdAACBgUEcG10QQkAkQMCBQdyZXF1ZXN0AAQFBHBtdEIJAJEDAgUHcmVxdWVzdAAGCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAHCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHcmVxdWVzdAAICQCRAwIFB3JlcXVlc3QACQQHZW50cmllcwgFDSR0MDEzMjY2MTM1ODACXzEECGxwQW1vdW50CAUNJHQwMTMyNjYxMzU4MAJfMgkAlAoCCQDNCAIFB2VudHJpZXMJAQtEZWxldGVFbnRyeQEJAKwCAgUJcmVxdWVzdElkBQprUmVxdWVzdElkBQhscEFtb3VudAMJAAACCQCRAwIFB3JlcXVlc3QAAAULU0ZfUE9TX1RZUEUEDSR0MDEzNjkxMTM5MjEJAQtyZXBsYW5pc2hXWAgJAJEDAgUHcmVxdWVzdAABCQCRAwIFB3JlcXVlc3QAAgYFBHBtdEEJAJEDAgUHcmVxdWVzdAAEBQRwbXRCCQCRAwIFB3JlcXVlc3QABgkAkQMCBQdyZXF1ZXN0AAkEB2VudHJpZXMIBQ0kdDAxMzY5MTEzOTIxAl8xBAhscEFtb3VudAgFDSR0MDEzNjkxMTM5MjECXzIJAJQKAgkAzQgCBQdlbnRyaWVzCQELRGVsZXRlRW50cnkBCQCsAgIFCXJlcXVlc3RJZAUKa1JlcXVlc3RJZAUIbHBBbW91bnQJAAIBAhJXcm9uZyByZXF1ZXN0IHR5cGUBaQEQY3JlYXRlTmV3UmVxdWVzdAEGcGFyYW1zCQELdmFsdWVPckVsc2UCCQEKaXNTZWxmQ2FsbAEFAWkEDG5ld1JlcXVlc3RJZAkAZAIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUMa1JlcXVlc3RJdGVyAAAAAQkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkApAMBBQxuZXdSZXF1ZXN0SWQFCmtSZXF1ZXN0SWQFBnBhcmFtcwUDbmlsBQxuZXdSZXF1ZXN0SWQBaQELaW5pdE5ld1Bvb2wFBHR5cGUIcG9vbEFkZHILaW5GZWVOb0xvYW4JaW5GZWVMb2FuBmNhcEZlZQMDCQECIT0CBQR0eXBlBQtTRl9QT1NfVFlQRQkBAiE9AgUEdHlwZQULV1hfUE9TX1RZUEUHCQACAQIKV3JvbmcgdHlwZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQhwb29sQWRkcgUVa0F4bHlJbkZlZVdpdGhvdXRMb2FuBQtpbkZlZU5vTG9hbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQhwb29sQWRkcgUSa0F4bHlJbkZlZVdpdGhMb2FuBQlpbkZlZUxvYW4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUIcG9vbEFkZHIFC2tBeGx5Q2FwRmVlBQZjYXBGZWUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQVrUG9vbAUIcG9vbEFkZHIFBHR5cGUFA25pbAECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXnok5L1",
    "height": 2512540,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7W9rSazdqpfwrYAQFrUZxSrVEtRZUeS1At15QEx6x1wd
Next: EVnEMdTbMB5sYEnYikVqHJ4NbvS6VVdEfMor82eUGtza

Diff: 
Old New Differences
383 383                      then {
384 384                          let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
385 385                          let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
386 -                         nil
386 +                         if ((inv == inv))
387 +                             then nil
388 +                             else throw("Strict value is not equal to itself.")
387 389                          }
388 390                      else throw("Strict value is not equal to itself.")
389 391                  }
412 414                      else parseIntValue(request[3])
413 415                  if ((request[0] == SF_POS_TYPE))
414 416                      then {
415 -                         let $t01326313577 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
416 -                         let entries = $t01326313577._1
417 -                         let lpAmount = $t01326313577._2
417 +                         let $t01326613580 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
418 +                         let entries = $t01326613580._1
419 +                         let lpAmount = $t01326613580._2
418 420                          $Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
419 421                          }
420 422                      else if ((request[0] == SF_POS_TYPE))
421 423                          then {
422 -                             let $t01368813918 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
423 -                             let entries = $t01368813918._1
424 -                             let lpAmount = $t01368813918._2
424 +                             let $t01369113921 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
425 +                             let entries = $t01369113921._1
426 +                             let lpAmount = $t01369113921._2
425 427                              $Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
426 428                              }
427 429                          else throw("Wrong request type")
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 kSFFarmingStaked = "_share_tokens_locked"
23 23  
24 24  let kUserPosition = "_user_position"
25 25  
26 26  let kUserPositionType = "_user_position_type"
27 27  
28 28  let kUserPositionNum = "_user_position_number"
29 29  
30 30  let kTotalPosition = "_total_position"
31 31  
32 32  let kAxlyInFeeWithoutLoan = "_axly_fee_without_loan"
33 33  
34 34  let kAxlyInFeeWithLoan = "_axly_fee_with_loan"
35 35  
36 36  let kAxlyCapFee = "_axly_fee_cap"
37 37  
38 38  let kRequestId = "_request_id"
39 39  
40 40  let kRequestIter = "requests_iter"
41 41  
42 42  let kPool = "pool_"
43 43  
44 44  let kMoneyBox = "axly_money_box"
45 45  
46 46  let kSFFarmingAddr = "swopfi_farming_addr"
47 47  
48 48  let kLendService = "lend_service_addr"
49 49  
50 50  let kPriceOracle = "price_oracle"
51 51  
52 52  let moneyBox = Address(fromBase58String(valueOrErrorMessage(getString(this, kMoneyBox), "No axly moneyBox address")))
53 53  
54 54  let priceOracleAddr = Address(fromBase58String(valueOrErrorMessage(getString(this, kPriceOracle), "No price oracle address")))
55 55  
56 56  func isSelfCall (i) = if ((i.caller == this))
57 57      then unit
58 58      else throw("Only contract itself can call this function")
59 59  
60 60  
61 61  func accountBalance (assetId) = match assetId {
62 62      case id: ByteVector => 
63 63          assetBalance(this, id)
64 64      case waves: Unit => 
65 65          wavesBalance(this).available
66 66      case _ => 
67 67          throw("Match error")
68 68  }
69 69  
70 70  
71 71  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"))
72 72  
73 73  
74 74  func getWXPoolData (poolAddr) = {
75 75      let cfg = {
76 76          let @ = invoke(poolAddr, "getPoolConfigWrapperREADONLY", nil, nil)
77 77          if ($isInstanceOf(@, "List[Any]"))
78 78              then @
79 79              else throw(($getType(@) + " couldn't be cast to List[Any]"))
80 80          }
81 81      if ((cfg == cfg))
82 82          then $Tuple5(valueOrErrorMessage({
83 83              let @ = cfg[4]
84 84              if ($isInstanceOf(@, "String"))
85 85                  then @
86 86                  else unit
87 87              }, "Can't get pool A asset id"), valueOrErrorMessage({
88 88              let @ = cfg[5]
89 89              if ($isInstanceOf(@, "String"))
90 90                  then @
91 91                  else unit
92 92              }, "Can't get pool B asset id"), 0, 0, valueOrErrorMessage({
93 93              let @ = cfg[3]
94 94              if ($isInstanceOf(@, "String"))
95 95                  then @
96 96                  else unit
97 97              }, "Can't get pool LP asset id"))
98 98          else throw("Strict value is not equal to itself.")
99 99      }
100 100  
101 101  
102 102  func getAxlyTotalPosition (pool) = valueOrElse(getInteger(this, (pool + kTotalPosition)), 0)
103 103  
104 104  
105 105  func getNewUserPositionNumber (pool,user) = (valueOrElse(getInteger(this, (((pool + "_") + user) + kUserPositionNum)), 0) + 1)
106 106  
107 107  
108 108  func getAxlyInFee (pool,withLoan) = if (withLoan)
109 109      then getIntegerValue(this, (pool + kAxlyInFeeWithLoan))
110 110      else getIntegerValue(this, (pool + kAxlyInFeeWithoutLoan))
111 111  
112 112  
113 113  func getSFFarmingAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kSFFarmingAddr), "Can't get swopfi farming addr")))
114 114  
115 115  
116 116  func getWXFarmingAddr (poolAddr) = {
117 117      let fContract = Address(fromBase58String(valueOrElse(getString(poolAddr, "%s__factoryContract"), "Can't get WX factory contract addr")))
118 118      let factroyCfg = split(valueOrElse(getString(fContract, "%s__factoryConfig"), "Can't get WX factory cfg"), "__")
119 119      Address(fromBase58String(factroyCfg[1]))
120 120      }
121 121  
122 122  
123 123  func getLendSrvAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kLendService), "Can't get lend service addr")))
124 124  
125 125  
126 126  func assetIdToStr (assetId) = match assetId {
127 127      case id: ByteVector => 
128 128          toBase58String(id)
129 129      case waves: Unit => 
130 130          "WAVES"
131 131      case _ => 
132 132          throw("Match error")
133 133  }
134 134  
135 135  
136 136  func assetIdFromStr (assetId) = if ((assetId == "WAVES"))
137 137      then unit
138 138      else fromBase58String(assetId)
139 139  
140 140  
141 141  func getAssetDecimals (assetId) = if ((assetId == "WAVES"))
142 142      then 8
143 143      else     match assetInfo(fromBase58String(assetId)) {
144 144          case asset: Asset => 
145 145              asset.decimals
146 146          case _ => 
147 147              throw("Can't find asset")
148 148      }
149 149  
150 150  
151 151  func replanishSwopFi (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId) = {
152 152      let shareBalanceBefore = accountBalance(fromBase58String(shareId))
153 153      if ((shareBalanceBefore == shareBalanceBefore))
154 154          then {
155 155              let poolAddr = Address(fromBase58String(pool))
156 156              let ratioA = fraction(SCALE8, pmtA, balA)
157 157              let ratioB = fraction(SCALE8, pmtB, balB)
158 158              let $t050435335 = if ((ratioB > ratioA))
159 159                  then {
160 160                      let pmt = fraction(balB, ratioA, SCALE8, CEILING)
161 161                      $Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
162 162                      }
163 163                  else {
164 164                      let pmt = fraction(balA, ratioB, SCALE8, CEILING)
165 165                      $Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
166 166                      }
167 167              let pmtAmountA = $t050435335._1
168 168              let pmtAmountB = $t050435335._2
169 169              let change = $t050435335._3
170 170              let changeAssetId = $t050435335._4
171 171              let inv1 = if (if ((pmtAmountA > 0))
172 172                  then (pmtAmountB > 0)
173 173                  else false)
174 174                  then {
175 175                      let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
176 176                      invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
177 177                      }
178 178                  else 0
179 179              if ((inv1 == inv1))
180 180                  then {
181 181                      let inv2 = if ((change > 0))
182 182                          then {
183 183                              let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
184 184                              let vars = ["0", "false", "0"]
185 185                              invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
186 186                              }
187 187                          else 0
188 188                      if ((inv2 == inv2))
189 189                          then {
190 190                              let shareBalanceAfter = accountBalance(fromBase58String(shareId))
191 191                              let totalShare = (shareBalanceAfter - shareBalanceBefore)
192 192                              let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
193 193                              let userShareForStake = (totalShare - axlyInFee)
194 194                              if ((0 >= userShareForStake))
195 195                                  then throw("amount of staked sharetokens must be > 0")
196 196                                  else {
197 197                                      let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
198 198                                      if ((inv3 == inv3))
199 199                                          then {
200 200                                              let totalAmount = getAxlyTotalPosition(pool)
201 201                                              let newPosNum = getNewUserPositionNumber(pool, user)
202 202                                              let baseEntry = [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))]
203 203                                              $Tuple2(baseEntry, userShareForStake)
204 204                                              }
205 205                                          else throw("Strict value is not equal to itself.")
206 206                                      }
207 207                              }
208 208                          else throw("Strict value is not equal to itself.")
209 209                      }
210 210                  else throw("Strict value is not equal to itself.")
211 211              }
212 212          else throw("Strict value is not equal to itself.")
213 213      }
214 214  
215 215  
216 216  func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,shareId) = {
217 217      let poolAddr = Address(fromBase58String(pool))
218 218      let $t072978116 = if (if ((pmtA > 0))
219 219          then (pmtB > 0)
220 220          else false)
221 221          then {
222 222              let evalPutInA = {
223 223                  let @ = invoke(poolAddr, "evaluatePutByAmountAssetREADONLY", [pmtA], nil)
224 224                  if ($isInstanceOf(@, "List[Any]"))
225 225                      then @
226 226                      else throw(($getType(@) + " couldn't be cast to List[Any]"))
227 227                  }
228 228              if ((evalPutInA == evalPutInA))
229 229                  then {
230 230                      let evalPutInB = {
231 231                          let @ = invoke(poolAddr, "evaluatePutByPriceAssetREADONLY", [pmtB], nil)
232 232                          if ($isInstanceOf(@, "List[Any]"))
233 233                              then @
234 234                              else throw(($getType(@) + " couldn't be cast to List[Any]"))
235 235                          }
236 236                      if ((evalPutInB == evalPutInB))
237 237                          then {
238 238                              let lpInA = {
239 239                                  let @ = evalPutInA[0]
240 240                                  if ($isInstanceOf(@, "Int"))
241 241                                      then @
242 242                                      else throw(($getType(@) + " couldn't be cast to Int"))
243 243                                  }
244 244                              let lpInB = {
245 245                                  let @ = evalPutInB[0]
246 246                                  if ($isInstanceOf(@, "Int"))
247 247                                      then @
248 248                                      else throw(($getType(@) + " couldn't be cast to Int"))
249 249                                  }
250 250                              if ((lpInA > lpInB))
251 251                                  then {
252 252                                      let pmtInB = {
253 253                                          let @ = evalPutInB[7]
254 254                                          if ($isInstanceOf(@, "Int"))
255 255                                              then @
256 256                                              else throw(($getType(@) + " couldn't be cast to Int"))
257 257                                          }
258 258                                      $Tuple4(pmtA, pmtInB, (pmtB - pmtInB), pmtAssetB)
259 259                                      }
260 260                                  else {
261 261                                      let pmtInA = {
262 262                                          let @ = evalPutInB[6]
263 263                                          if ($isInstanceOf(@, "Int"))
264 264                                              then @
265 265                                              else throw(($getType(@) + " couldn't be cast to Int"))
266 266                                          }
267 267                                      $Tuple4(pmtInA, pmtB, (pmtA - pmtInA), pmtAssetA)
268 268                                      }
269 269                              }
270 270                          else throw("Strict value is not equal to itself.")
271 271                      }
272 272                  else throw("Strict value is not equal to itself.")
273 273              }
274 274          else if ((pmtA > 0))
275 275              then $Tuple4(pmtA, pmtB, pmtA, pmtAssetA)
276 276              else if ((pmtB > 0))
277 277                  then $Tuple4(pmtA, pmtB, pmtB, pmtAssetB)
278 278                  else throw("pmts must be > 0")
279 279      let pmtAmountA = $t072978116._1
280 280      let pmtAmountB = $t072978116._2
281 281      let change = $t072978116._3
282 282      let changeAssetId = $t072978116._4
283 283      let shareBalanceBefore = accountBalance(fromBase58String(shareId))
284 284      if ((shareBalanceBefore == shareBalanceBefore))
285 285          then {
286 286              let inv1 = if (if ((pmtAmountA > 0))
287 287                  then (pmtAmountB > 0)
288 288                  else false)
289 289                  then {
290 290                      let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
291 291                      invoke(poolAddr, "put", [1, false], payments)
292 292                      }
293 293                  else 0
294 294              if ((inv1 == inv1))
295 295                  then {
296 296                      let inv2 = if ((change > 0))
297 297                          then {
298 298                              let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
299 299                              invoke(poolAddr, "putOneTkn", [0, false], payments)
300 300                              }
301 301                          else 0
302 302                      if ((inv2 == inv2))
303 303                          then {
304 304                              let shareBalanceAfter = accountBalance(fromBase58String(shareId))
305 305                              let totalShare = (shareBalanceAfter - shareBalanceBefore)
306 306                              let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
307 307                              let userShareForStake = (totalShare - axlyInFee)
308 308                              if ((0 >= userShareForStake))
309 309                                  then throw("amount of staked sharetokens must be > 0")
310 310                                  else {
311 311                                      let inv3 = invoke(getWXFarmingAddr(poolAddr), "stake", nil, [AttachedPayment(fromBase58String(shareId), userShareForStake)])
312 312                                      if ((inv3 == inv3))
313 313                                          then {
314 314                                              let totalAmount = getAxlyTotalPosition(pool)
315 315                                              let newPosNum = getNewUserPositionNumber(pool, user)
316 316                                              $Tuple2([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))], userShareForStake)
317 317                                              }
318 318                                          else throw("Strict value is not equal to itself.")
319 319                                      }
320 320                              }
321 321                          else throw("Strict value is not equal to itself.")
322 322                      }
323 323                  else throw("Strict value is not equal to itself.")
324 324              }
325 325          else throw("Strict value is not equal to itself.")
326 326      }
327 327  
328 328  
329 329  @Callable(i)
330 330  func replanish (pool,leverage,borrowAssetId) = if (if ((100 > leverage))
331 331      then true
332 332      else (leverage > 300))
333 333      then throw("Leverage can't be <100 and >300")
334 334      else {
335 335          let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
336 336          let $t0996910220 = if ((type == SF_POS_TYPE))
337 337              then getSFPoolData(Address(fromBase58String(pool)))
338 338              else if ((type == WX_POS_TYPE))
339 339                  then getWXPoolData(Address(fromBase58String(pool)))
340 340                  else throw("Wrong pool type")
341 341          let AId = $t0996910220._1
342 342          let BId = $t0996910220._2
343 343          let balA = $t0996910220._3
344 344          let balB = $t0996910220._4
345 345          let shareId = $t0996910220._5
346 346          let $t01022310860 = if ((size(i.payments) == 2))
347 347              then if ((assetIdToStr(i.payments[0].assetId) != AId))
348 348                  then throw("Wrong payment asset A")
349 349                  else if ((assetIdToStr(i.payments[1].assetId) != BId))
350 350                      then throw("Wrong payment asset B")
351 351                      else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
352 352              else if ((size(i.payments) == 1))
353 353                  then if ((assetIdToStr(i.payments[0].assetId) == AId))
354 354                      then $Tuple4(i.payments[0].amount, AId, 0, BId)
355 355                      else if ((assetIdToStr(i.payments[0].assetId) == BId))
356 356                          then $Tuple4(0, AId, i.payments[0].amount, BId)
357 357                          else throw("Wrong payment")
358 358                  else throw("One or two payments expected")
359 359          let pmtA = $t01022310860._1
360 360          let pmtAssetA = $t01022310860._2
361 361          let pmtB = $t01022310860._3
362 362          let pmtAssetB = $t01022310860._4
363 363          if ((leverage > 100))
364 364              then {
365 365                  let dPriceA = (                let @ = invoke(priceOracleAddr, "getTWAP60", [pmtAssetA, false], nil)
366 366                  if ($isInstanceOf(@, "(Int, Int)"))
367 367                      then @
368 368                      else throw(($getType(@) + " couldn't be cast to (Int, Int)")))._1
369 369                  let dPriceB = (                let @ = invoke(priceOracleAddr, "getTWAP60", [pmtAssetB, false], nil)
370 370                  if ($isInstanceOf(@, "(Int, Int)"))
371 371                      then @
372 372                      else throw(($getType(@) + " couldn't be cast to (Int, Int)")))._1
373 373                  let paydInDollar = (fraction(dPriceA, pmtA, pow(10, 0, getAssetDecimals(pmtAssetA), 0, 0, DOWN)) + fraction(dPriceB, pmtB, pow(10, 0, getAssetDecimals(pmtAssetB), 0, 0, DOWN)))
374 374                  let borrowAmount = fraction(paydInDollar, (leverage - 100), 100)
375 375                  let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, borrowAssetId, toString(borrowAmount)], ",")
376 376                  let newRequestId = {
377 377                      let @ = invoke(this, "createNewRequest", [request], nil)
378 378                      if ($isInstanceOf(@, "Int"))
379 379                          then @
380 380                          else unit
381 381                      }
382 382                  if ((newRequestId == newRequestId))
383 383                      then {
384 384                          let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
385 385                          let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
386 -                         nil
386 +                         if ((inv == inv))
387 +                             then nil
388 +                             else throw("Strict value is not equal to itself.")
387 389                          }
388 390                      else throw("Strict value is not equal to itself.")
389 391                  }
390 392              else if ((type == SF_POS_TYPE))
391 393                  then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId)
392 394                  else replanishWX(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, shareId)
393 395          }
394 396  
395 397  
396 398  
397 399  @Callable(i)
398 400  func replanishFromLand (requestId) = {
399 401      let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
400 402      if ((size(i.payments) != 1))
401 403          then throw("Wrong payment size")
402 404          else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
403 405              then true
404 406              else (i.payments[0].amount != parseIntValue(request[13])))
405 407              then throw("Wrong payment")
406 408              else {
407 409                  let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
408 410                      then (parseIntValue(request[3]) + i.payments[0].amount)
409 411                      else parseIntValue(request[3])
410 412                  let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
411 413                      then (parseIntValue(request[5]) + i.payments[0].amount)
412 414                      else parseIntValue(request[3])
413 415                  if ((request[0] == SF_POS_TYPE))
414 416                      then {
415 -                         let $t01326313577 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
416 -                         let entries = $t01326313577._1
417 -                         let lpAmount = $t01326313577._2
417 +                         let $t01326613580 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
418 +                         let entries = $t01326613580._1
419 +                         let lpAmount = $t01326613580._2
418 420                          $Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
419 421                          }
420 422                      else if ((request[0] == SF_POS_TYPE))
421 423                          then {
422 -                             let $t01368813918 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
423 -                             let entries = $t01368813918._1
424 -                             let lpAmount = $t01368813918._2
424 +                             let $t01369113921 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
425 +                             let entries = $t01369113921._1
426 +                             let lpAmount = $t01369113921._2
425 427                              $Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
426 428                              }
427 429                          else throw("Wrong request type")
428 430                  }
429 431      }
430 432  
431 433  
432 434  
433 435  @Callable(i)
434 436  func createNewRequest (params) = valueOrElse(isSelfCall(i), {
435 437      let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
436 438      $Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
437 439      })
438 440  
439 441  
440 442  
441 443  @Callable(i)
442 444  func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
443 445      then (type != WX_POS_TYPE)
444 446      else false)
445 447      then throw("Wrong type")
446 448      else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
447 449  
448 450  
449 451  @Verifier(tx)
450 452  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
451 453

Old	New		Differences
383	383		then {
384	384		let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
385	385		let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
386		-	nil
	386	+	if ((inv == inv))
	387	+	then nil
	388	+	else throw("Strict value is not equal to itself.")
387	389		}
388	390		else throw("Strict value is not equal to itself.")
389	391		}

412	414		else parseIntValue(request[3])
413	415		if ((request[0] == SF_POS_TYPE))
414	416		then {
415		-	let $~~t01326313577~~ = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
416		-	let entries = $~~t01326313577~~._1
417		-	let lpAmount = $~~t01326313577~~._2
	417	+	let $t01326613580 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
	418	+	let entries = $t01326613580._1
	419	+	let lpAmount = $t01326613580._2
418	420		$Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
419	421		}
420	422		else if ((request[0] == SF_POS_TYPE))
421	423		then {
422		-	let $~~t01368813918~~ = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
423		-	let entries = $~~t01368813918~~._1
424		-	let lpAmount = $~~t01368813918~~._2
	424	+	let $t01369113921 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
	425	+	let entries = $t01369113921._1
	426	+	let lpAmount = $t01369113921._2
425	427		$Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
426	428		}
427	429		else throw("Wrong request type")

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 kSFFarmingStaked = "_share_tokens_locked"
23	23
24	24		let kUserPosition = "_user_position"
25	25
26	26		let kUserPositionType = "_user_position_type"
27	27
28	28		let kUserPositionNum = "_user_position_number"
29	29
30	30		let kTotalPosition = "_total_position"
31	31
32	32		let kAxlyInFeeWithoutLoan = "_axly_fee_without_loan"
33	33
34	34		let kAxlyInFeeWithLoan = "_axly_fee_with_loan"
35	35
36	36		let kAxlyCapFee = "_axly_fee_cap"
37	37
38	38		let kRequestId = "_request_id"
39	39
40	40		let kRequestIter = "requests_iter"
41	41
42	42		let kPool = "pool_"
43	43
44	44		let kMoneyBox = "axly_money_box"
45	45
46	46		let kSFFarmingAddr = "swopfi_farming_addr"
47	47
48	48		let kLendService = "lend_service_addr"
49	49
50	50		let kPriceOracle = "price_oracle"
51	51
52	52		let moneyBox = Address(fromBase58String(valueOrErrorMessage(getString(this, kMoneyBox), "No axly moneyBox address")))
53	53
54	54		let priceOracleAddr = Address(fromBase58String(valueOrErrorMessage(getString(this, kPriceOracle), "No price oracle address")))
55	55
56	56		func isSelfCall (i) = if ((i.caller == this))
57	57		then unit
58	58		else throw("Only contract itself can call this function")
59	59
60	60
61	61		func accountBalance (assetId) = match assetId {
62	62		case id: ByteVector =>
63	63		assetBalance(this, id)
64	64		case waves: Unit =>
65	65		wavesBalance(this).available
66	66		case _ =>
67	67		throw("Match error")
68	68		}
69	69
70	70
71	71		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"))
72	72
73	73
74	74		func getWXPoolData (poolAddr) = {
75	75		let cfg = {
76	76		let @ = invoke(poolAddr, "getPoolConfigWrapperREADONLY", nil, nil)
77	77		if ($isInstanceOf(@, "List[Any]"))
78	78		then @
79	79		else throw(($getType(@) + " couldn't be cast to List[Any]"))
80	80		}
81	81		if ((cfg == cfg))
82	82		then $Tuple5(valueOrErrorMessage({
83	83		let @ = cfg[4]
84	84		if ($isInstanceOf(@, "String"))
85	85		then @
86	86		else unit
87	87		}, "Can't get pool A asset id"), valueOrErrorMessage({
88	88		let @ = cfg[5]
89	89		if ($isInstanceOf(@, "String"))
90	90		then @
91	91		else unit
92	92		}, "Can't get pool B asset id"), 0, 0, valueOrErrorMessage({
93	93		let @ = cfg[3]
94	94		if ($isInstanceOf(@, "String"))
95	95		then @
96	96		else unit
97	97		}, "Can't get pool LP asset id"))
98	98		else throw("Strict value is not equal to itself.")
99	99		}
100	100
101	101
102	102		func getAxlyTotalPosition (pool) = valueOrElse(getInteger(this, (pool + kTotalPosition)), 0)
103	103
104	104
105	105		func getNewUserPositionNumber (pool,user) = (valueOrElse(getInteger(this, (((pool + "_") + user) + kUserPositionNum)), 0) + 1)
106	106
107	107
108	108		func getAxlyInFee (pool,withLoan) = if (withLoan)
109	109		then getIntegerValue(this, (pool + kAxlyInFeeWithLoan))
110	110		else getIntegerValue(this, (pool + kAxlyInFeeWithoutLoan))
111	111
112	112
113	113		func getSFFarmingAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kSFFarmingAddr), "Can't get swopfi farming addr")))
114	114
115	115
116	116		func getWXFarmingAddr (poolAddr) = {
117	117		let fContract = Address(fromBase58String(valueOrElse(getString(poolAddr, "%s__factoryContract"), "Can't get WX factory contract addr")))
118	118		let factroyCfg = split(valueOrElse(getString(fContract, "%s__factoryConfig"), "Can't get WX factory cfg"), "__")
119	119		Address(fromBase58String(factroyCfg[1]))
120	120		}
121	121
122	122
123	123		func getLendSrvAddr () = Address(fromBase58String(valueOrErrorMessage(getString(this, kLendService), "Can't get lend service addr")))
124	124
125	125
126	126		func assetIdToStr (assetId) = match assetId {
127	127		case id: ByteVector =>
128	128		toBase58String(id)
129	129		case waves: Unit =>
130	130		"WAVES"
131	131		case _ =>
132	132		throw("Match error")
133	133		}
134	134
135	135
136	136		func assetIdFromStr (assetId) = if ((assetId == "WAVES"))
137	137		then unit
138	138		else fromBase58String(assetId)
139	139
140	140
141	141		func getAssetDecimals (assetId) = if ((assetId == "WAVES"))
142	142		then 8
143	143		else match assetInfo(fromBase58String(assetId)) {
144	144		case asset: Asset =>
145	145		asset.decimals
146	146		case _ =>
147	147		throw("Can't find asset")
148	148		}
149	149
150	150
151	151		func replanishSwopFi (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,balA,balB,shareId) = {
152	152		let shareBalanceBefore = accountBalance(fromBase58String(shareId))
153	153		if ((shareBalanceBefore == shareBalanceBefore))
154	154		then {
155	155		let poolAddr = Address(fromBase58String(pool))
156	156		let ratioA = fraction(SCALE8, pmtA, balA)
157	157		let ratioB = fraction(SCALE8, pmtB, balB)
158	158		let $t050435335 = if ((ratioB > ratioA))
159	159		then {
160	160		let pmt = fraction(balB, ratioA, SCALE8, CEILING)
161	161		$Tuple4(pmtA, pmt, (pmtB - pmt), pmtAssetB)
162	162		}
163	163		else {
164	164		let pmt = fraction(balA, ratioB, SCALE8, CEILING)
165	165		$Tuple4(pmt, pmtB, (pmtA - pmt), pmtAssetA)
166	166		}
167	167		let pmtAmountA = $t050435335._1
168	168		let pmtAmountB = $t050435335._2
169	169		let change = $t050435335._3
170	170		let changeAssetId = $t050435335._4
171	171		let inv1 = if (if ((pmtAmountA > 0))
172	172		then (pmtAmountB > 0)
173	173		else false)
174	174		then {
175	175		let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
176	176		invoke(poolAddr, "callFunction", ["replenishWithTwoTokens", ["false", "0"]], payments)
177	177		}
178	178		else 0
179	179		if ((inv1 == inv1))
180	180		then {
181	181		let inv2 = if ((change > 0))
182	182		then {
183	183		let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
184	184		let vars = ["0", "false", "0"]
185	185		invoke(poolAddr, "replenishWithOneTokenV2", [false, 0], payments)
186	186		}
187	187		else 0
188	188		if ((inv2 == inv2))
189	189		then {
190	190		let shareBalanceAfter = accountBalance(fromBase58String(shareId))
191	191		let totalShare = (shareBalanceAfter - shareBalanceBefore)
192	192		let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
193	193		let userShareForStake = (totalShare - axlyInFee)
194	194		if ((0 >= userShareForStake))
195	195		then throw("amount of staked sharetokens must be > 0")
196	196		else {
197	197		let inv3 = invoke(getSFFarmingAddr(), "lockShareTokens", [pool, 0], [AttachedPayment(fromBase58String(shareId), userShareForStake)])
198	198		if ((inv3 == inv3))
199	199		then {
200	200		let totalAmount = getAxlyTotalPosition(pool)
201	201		let newPosNum = getNewUserPositionNumber(pool, user)
202	202		let baseEntry = [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))]
203	203		$Tuple2(baseEntry, userShareForStake)
204	204		}
205	205		else throw("Strict value is not equal to itself.")
206	206		}
207	207		}
208	208		else throw("Strict value is not equal to itself.")
209	209		}
210	210		else throw("Strict value is not equal to itself.")
211	211		}
212	212		else throw("Strict value is not equal to itself.")
213	213		}
214	214
215	215
216	216		func replanishWX (user,pool,withLoan,pmtA,pmtAssetA,pmtB,pmtAssetB,shareId) = {
217	217		let poolAddr = Address(fromBase58String(pool))
218	218		let $t072978116 = if (if ((pmtA > 0))
219	219		then (pmtB > 0)
220	220		else false)
221	221		then {
222	222		let evalPutInA = {
223	223		let @ = invoke(poolAddr, "evaluatePutByAmountAssetREADONLY", [pmtA], nil)
224	224		if ($isInstanceOf(@, "List[Any]"))
225	225		then @
226	226		else throw(($getType(@) + " couldn't be cast to List[Any]"))
227	227		}
228	228		if ((evalPutInA == evalPutInA))
229	229		then {
230	230		let evalPutInB = {
231	231		let @ = invoke(poolAddr, "evaluatePutByPriceAssetREADONLY", [pmtB], nil)
232	232		if ($isInstanceOf(@, "List[Any]"))
233	233		then @
234	234		else throw(($getType(@) + " couldn't be cast to List[Any]"))
235	235		}
236	236		if ((evalPutInB == evalPutInB))
237	237		then {
238	238		let lpInA = {
239	239		let @ = evalPutInA[0]
240	240		if ($isInstanceOf(@, "Int"))
241	241		then @
242	242		else throw(($getType(@) + " couldn't be cast to Int"))
243	243		}
244	244		let lpInB = {
245	245		let @ = evalPutInB[0]
246	246		if ($isInstanceOf(@, "Int"))
247	247		then @
248	248		else throw(($getType(@) + " couldn't be cast to Int"))
249	249		}
250	250		if ((lpInA > lpInB))
251	251		then {
252	252		let pmtInB = {
253	253		let @ = evalPutInB[7]
254	254		if ($isInstanceOf(@, "Int"))
255	255		then @
256	256		else throw(($getType(@) + " couldn't be cast to Int"))
257	257		}
258	258		$Tuple4(pmtA, pmtInB, (pmtB - pmtInB), pmtAssetB)
259	259		}
260	260		else {
261	261		let pmtInA = {
262	262		let @ = evalPutInB[6]
263	263		if ($isInstanceOf(@, "Int"))
264	264		then @
265	265		else throw(($getType(@) + " couldn't be cast to Int"))
266	266		}
267	267		$Tuple4(pmtInA, pmtB, (pmtA - pmtInA), pmtAssetA)
268	268		}
269	269		}
270	270		else throw("Strict value is not equal to itself.")
271	271		}
272	272		else throw("Strict value is not equal to itself.")
273	273		}
274	274		else if ((pmtA > 0))
275	275		then $Tuple4(pmtA, pmtB, pmtA, pmtAssetA)
276	276		else if ((pmtB > 0))
277	277		then $Tuple4(pmtA, pmtB, pmtB, pmtAssetB)
278	278		else throw("pmts must be > 0")
279	279		let pmtAmountA = $t072978116._1
280	280		let pmtAmountB = $t072978116._2
281	281		let change = $t072978116._3
282	282		let changeAssetId = $t072978116._4
283	283		let shareBalanceBefore = accountBalance(fromBase58String(shareId))
284	284		if ((shareBalanceBefore == shareBalanceBefore))
285	285		then {
286	286		let inv1 = if (if ((pmtAmountA > 0))
287	287		then (pmtAmountB > 0)
288	288		else false)
289	289		then {
290	290		let payments = [AttachedPayment(assetIdFromStr(pmtAssetA), pmtAmountA), AttachedPayment(assetIdFromStr(pmtAssetB), pmtAmountB)]
291	291		invoke(poolAddr, "put", [1, false], payments)
292	292		}
293	293		else 0
294	294		if ((inv1 == inv1))
295	295		then {
296	296		let inv2 = if ((change > 0))
297	297		then {
298	298		let payments = [AttachedPayment(assetIdFromStr(changeAssetId), change)]
299	299		invoke(poolAddr, "putOneTkn", [0, false], payments)
300	300		}
301	301		else 0
302	302		if ((inv2 == inv2))
303	303		then {
304	304		let shareBalanceAfter = accountBalance(fromBase58String(shareId))
305	305		let totalShare = (shareBalanceAfter - shareBalanceBefore)
306	306		let axlyInFee = fraction(totalShare, getAxlyInFee(pool, withLoan), FEE_SCALE6)
307	307		let userShareForStake = (totalShare - axlyInFee)
308	308		if ((0 >= userShareForStake))
309	309		then throw("amount of staked sharetokens must be > 0")
310	310		else {
311	311		let inv3 = invoke(getWXFarmingAddr(poolAddr), "stake", nil, [AttachedPayment(fromBase58String(shareId), userShareForStake)])
312	312		if ((inv3 == inv3))
313	313		then {
314	314		let totalAmount = getAxlyTotalPosition(pool)
315	315		let newPosNum = getNewUserPositionNumber(pool, user)
316	316		$Tuple2([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))], userShareForStake)
317	317		}
318	318		else throw("Strict value is not equal to itself.")
319	319		}
320	320		}
321	321		else throw("Strict value is not equal to itself.")
322	322		}
323	323		else throw("Strict value is not equal to itself.")
324	324		}
325	325		else throw("Strict value is not equal to itself.")
326	326		}
327	327
328	328
329	329		@Callable(i)
330	330		func replanish (pool,leverage,borrowAssetId) = if (if ((100 > leverage))
331	331		then true
332	332		else (leverage > 300))
333	333		then throw("Leverage can't be <100 and >300")
334	334		else {
335	335		let type = valueOrErrorMessage(getString(this, (kPool + pool)), "Pool is not inited")
336	336		let $t0996910220 = if ((type == SF_POS_TYPE))
337	337		then getSFPoolData(Address(fromBase58String(pool)))
338	338		else if ((type == WX_POS_TYPE))
339	339		then getWXPoolData(Address(fromBase58String(pool)))
340	340		else throw("Wrong pool type")
341	341		let AId = $t0996910220._1
342	342		let BId = $t0996910220._2
343	343		let balA = $t0996910220._3
344	344		let balB = $t0996910220._4
345	345		let shareId = $t0996910220._5
346	346		let $t01022310860 = if ((size(i.payments) == 2))
347	347		then if ((assetIdToStr(i.payments[0].assetId) != AId))
348	348		then throw("Wrong payment asset A")
349	349		else if ((assetIdToStr(i.payments[1].assetId) != BId))
350	350		then throw("Wrong payment asset B")
351	351		else $Tuple4(i.payments[0].amount, AId, i.payments[1].amount, BId)
352	352		else if ((size(i.payments) == 1))
353	353		then if ((assetIdToStr(i.payments[0].assetId) == AId))
354	354		then $Tuple4(i.payments[0].amount, AId, 0, BId)
355	355		else if ((assetIdToStr(i.payments[0].assetId) == BId))
356	356		then $Tuple4(0, AId, i.payments[0].amount, BId)
357	357		else throw("Wrong payment")
358	358		else throw("One or two payments expected")
359	359		let pmtA = $t01022310860._1
360	360		let pmtAssetA = $t01022310860._2
361	361		let pmtB = $t01022310860._3
362	362		let pmtAssetB = $t01022310860._4
363	363		if ((leverage > 100))
364	364		then {
365	365		let dPriceA = ( let @ = invoke(priceOracleAddr, "getTWAP60", [pmtAssetA, false], nil)
366	366		if ($isInstanceOf(@, "(Int, Int)"))
367	367		then @
368	368		else throw(($getType(@) + " couldn't be cast to (Int, Int)")))._1
369	369		let dPriceB = ( let @ = invoke(priceOracleAddr, "getTWAP60", [pmtAssetB, false], nil)
370	370		if ($isInstanceOf(@, "(Int, Int)"))
371	371		then @
372	372		else throw(($getType(@) + " couldn't be cast to (Int, Int)")))._1
373	373		let paydInDollar = (fraction(dPriceA, pmtA, pow(10, 0, getAssetDecimals(pmtAssetA), 0, 0, DOWN)) + fraction(dPriceB, pmtB, pow(10, 0, getAssetDecimals(pmtAssetB), 0, 0, DOWN)))
374	374		let borrowAmount = fraction(paydInDollar, (leverage - 100), 100)
375	375		let request = makeString([type, toString(i.caller), pool, toString(pmtA), pmtAssetA, toString(pmtB), pmtAssetB, toString(balA), toString(balB), shareId, borrowAssetId, toString(borrowAmount)], ",")
376	376		let newRequestId = {
377	377		let @ = invoke(this, "createNewRequest", [request], nil)
378	378		if ($isInstanceOf(@, "Int"))
379	379		then @
380	380		else unit
381	381		}
382	382		if ((newRequestId == newRequestId))
383	383		then {
384	384		let args = [toString(i.caller), shareId, borrowAssetId, borrowAmount, toString(this), "replanishFromLand", toString(valueOrErrorMessage(newRequestId, "Can't create new request"))]
385	385		let inv = reentrantInvoke(getLendSrvAddr(), "flashPosition", args, nil)
386		-	nil
	386	+	if ((inv == inv))
	387	+	then nil
	388	+	else throw("Strict value is not equal to itself.")
387	389		}
388	390		else throw("Strict value is not equal to itself.")
389	391		}
390	392		else if ((type == SF_POS_TYPE))
391	393		then replanishSwopFi(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, balA, balB, shareId)
392	394		else replanishWX(toString(i.caller), pool, false, pmtA, pmtAssetA, pmtB, pmtAssetB, shareId)
393	395		}
394	396
395	397
396	398
397	399		@Callable(i)
398	400		func replanishFromLand (requestId) = {
399	401		let request = split(valueOrErrorMessage(getString(this, (requestId + kRequestId)), ("No request with id " + requestId)), ",")
400	402		if ((size(i.payments) != 1))
401	403		then throw("Wrong payment size")
402	404		else if (if ((assetIdToStr(i.payments[0].assetId) != request[12]))
403	405		then true
404	406		else (i.payments[0].amount != parseIntValue(request[13])))
405	407		then throw("Wrong payment")
406	408		else {
407	409		let pmtA = if ((request[4] == assetIdToStr(i.payments[0].assetId)))
408	410		then (parseIntValue(request[3]) + i.payments[0].amount)
409	411		else parseIntValue(request[3])
410	412		let pmtB = if ((request[6] == assetIdToStr(i.payments[0].assetId)))
411	413		then (parseIntValue(request[5]) + i.payments[0].amount)
412	414		else parseIntValue(request[3])
413	415		if ((request[0] == SF_POS_TYPE))
414	416		then {
415		-	let $~~t01326313577~~ = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
416		-	let entries = $~~t01326313577~~._1
417		-	let lpAmount = $~~t01326313577~~._2
	417	+	let $t01326613580 = replanishSwopFi(request[1], request[2], true, pmtA, request[4], pmtB, request[6], parseIntValue(request[7]), parseIntValue(request[8]), request[9])
	418	+	let entries = $t01326613580._1
	419	+	let lpAmount = $t01326613580._2
418	420		$Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
419	421		}
420	422		else if ((request[0] == SF_POS_TYPE))
421	423		then {
422		-	let $~~t01368813918~~ = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
423		-	let entries = $~~t01368813918~~._1
424		-	let lpAmount = $~~t01368813918~~._2
	424	+	let $t01369113921 = replanishWX(request[1], request[2], true, pmtA, request[4], pmtB, request[6], request[9])
	425	+	let entries = $t01369113921._1
	426	+	let lpAmount = $t01369113921._2
425	427		$Tuple2((entries :+ DeleteEntry((requestId + kRequestId))), lpAmount)
426	428		}
427	429		else throw("Wrong request type")
428	430		}
429	431		}
430	432
431	433
432	434
433	435		@Callable(i)
434	436		func createNewRequest (params) = valueOrElse(isSelfCall(i), {
435	437		let newRequestId = (valueOrElse(getInteger(this, kRequestIter), 0) + 1)
436	438		$Tuple2([StringEntry((toString(newRequestId) + kRequestId), params)], newRequestId)
437	439		})
438	440
439	441
440	442
441	443		@Callable(i)
442	444		func initNewPool (type,poolAddr,inFeeNoLoan,inFeeLoan,capFee) = if (if ((type != SF_POS_TYPE))
443	445		then (type != WX_POS_TYPE)
444	446		else false)
445	447		then throw("Wrong type")
446	448		else [IntegerEntry((poolAddr + kAxlyInFeeWithoutLoan), inFeeNoLoan), IntegerEntry((poolAddr + kAxlyInFeeWithLoan), inFeeLoan), IntegerEntry((poolAddr + kAxlyCapFee), capFee), StringEntry((kPool + poolAddr), type)]
447	449
448	450
449	451		@Verifier(tx)
450	452		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
451	453

github/deemru/w8io/169f3d6 
61.24 ms ◑