tx · 93LLEGpaTxdSghoy9iyk4BYK1vjmrmC8FuQLtLDSEVbi

3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S:  -0.01200000 Waves

2023.12.15 07:24 [3953218] smart account 3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "93LLEGpaTxdSghoy9iyk4BYK1vjmrmC8FuQLtLDSEVbi",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1702614325699,
    "version": 2,
    "chainId": 87,
    "sender": "3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S",
    "senderPublicKey": "33eckRoXnCjLErhAuK5EKSVyuSzBNsNr6Rawz3YSppLR",
    "proofs": [
        "39JGytArhb1DdKe3Qav9Swhs98aZNw2nUJitAsa2re7eVo45JwVuhVKiLApWSHM6CCc1aBikRQNDecRB6mgPv4jJ"
    ],
    "script": "base64:BgI0CAISBgoECAgBARIAEgASBAoCCAgSAwoBCBIDCgEIEgMKAQESAwoBARIAEgMKAQESAwoBCBwAA1NFUAICX18AB2ZlZVJhbmsAkE4ADnNidFRva2VuRGlnaXRzAIDC1y8AGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lAgpjaGVja3BvaW50AAl3eEFzc2V0SWQBIJMBHKupx24lV85mnnG2vapr+DzoWAsq7tmgTrs83BSxAApzYnRBc3NldElkASANnpTk33kiuX5wTQyOMZs9Bw+Csn3lkAbk5J4HoOpRwgANd2F2ZXNFeGNoYW5nZQEaAVez5uZVGBFpsOQzD4hRQ6ScrtbVSwNLEVgAFWNsYWltV3hSZXdhcmRDb250cmFjdAEaAVempdxaW+NIZ4GMEMr0xVkFLvazvGYbF80AEGlzQ29uc3RydWN0ZWRLZXkCDmlzX2NvbnN0cnVjdGVkAA9hZG1pbkFkZHJlc3NLZXkCDWFkbWluX2FkZHJlc3MADnNiV3hBc3NldElkS2V5Ag5zYl93eF9hc3NldF9pZAAKbHBQb29sc0tleQIIbHBfcG9vbHMAF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AhZhZGRpdGlvbmFsX3Jld2FyZF9wb29sABphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQIaYWRkaXRpb25hbF9yZXdhcmRfcG9vbF9mZWUAD3NidFN0YWtlUG9vbEtleQIOc2J0X3N0YWtlX3Bvb2wAEnNidFN0YWtlUG9vbEZlZUtleQISc2J0X3N0YWtlX3Bvb2xfZmVlABB0b3RhbFdYTG9ja2VkS2V5Ag90b3RhbF93eF9sb2NrZWQAGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkCGWluaXRpYWxfU0JUX3Rva2Vuc19hbW91bnQAJmJhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuS2V5AipiYXNlX1NCVF90b2tlbl9hbW91bnRfZm9yX29uZV9yZXdhcmRfdG9rZW4BFnBvb2xUb3RhbFNidENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEXRvdGFsX3NidF9jbGFpbWVkARVwb29sVG90YWxXeENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEHRvdGFsX3d4X2NsYWltZWQBCWFzUGF5bWVudAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAg9BdHRhY2hlZFBheW1lbnQEAXAFByRtYXRjaDAFAXAJAAIBAiFmYWlsIHRvIGNhc3QgaW50byBBdHRhY2hlZFBheW1lbnQBDGFzQnl0ZVZlY3RvcgEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFwBQckbWF0Y2gwBQFwCQACAQIcZmFpbCB0byBjYXN0IGludG8gQnl0ZVZlY3RvcgEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBD2FzQWRkcmVzc1N0cmluZwEHYWRkcmVzcwQHJG1hdGNoMAkApggBBQdhZGRyZXNzAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAJAKUIAQUBYQkAAgECIGZhaWwgdG8gY2FzdCBpbnRvIEFkZHJlc3MgU3RyaW5nAR9jYWxjdWxhdGVDdXJyZW50UmV3YXJkU0JUQW1vdW50ARByZXdhcmRUb2tlbkNvdW50BCNiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkEFmluaXRpYWxTQlRUb2tlbnNBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkEF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlCQDwBwIFBHRoaXMFCnNidEFzc2V0SWQDCQAAAgUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UAAAAABCZjdXJyZW50U0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkAawMFI2Jhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAQJYW1vdW50U0JUCQBrAwUQcmV3YXJkVG9rZW5Db3VudAUmY3VycmVudFNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW4FDnNidFRva2VuRGlnaXRzAwkAZgIFCWFtb3VudFNCVAUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UFF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlBQlhbW91bnRTQlQBEGlzQXV0aG9yaXplZFBvb2wBBHBvb2wEC2NoZWNrZWRQb29sCQEPYXNBZGRyZXNzU3RyaW5nAQUEcG9vbAQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQkBCGNvbnRhaW5zAgUHbHBQb29scwULY2hlY2tlZFBvb2wBC2dldFBvb2xEYXRhAQRwb29sAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFBHBvb2wJAAIBAhNOb3QgYXV0aG9yaXplZCBwb29sBAtwb29sTHBUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTMpAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUEcG9vbAIFdG9rZW4EGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUEcG9vbAkAlAoCBQtwb29sTHBUb2tlbgUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCwFpAQtjb25zdHJ1Y3RvcgQMYWRtaW5BZGRyZXNzDHNidFN0YWtlUG9vbBZpbml0aWFsU0JUVG9rZW5zQW1vdW50GnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuAwkBCWlzRGVmaW5lZAEJAKAIAQUQaXNDb25zdHJ1Y3RlZEtleQkAAgECIkNvbnN0cnVjdG9yIGNhbiBiZSBjYWxsZWQgb25lIHRpbWUEBHNiV3gJAMMIBwIEc2JXWAIAAAAACAYFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQRzYld4BBNzYnRTdGFrZVBvb2xDaGVja2VkCQEPYXNBZGRyZXNzU3RyaW5nAQUMc2J0U3Rha2VQb29sCQDMCAIFBHNiV3gJAMwIAgkBC1N0cmluZ0VudHJ5AgUOc2JXeEFzc2V0SWRLZXkJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQ9hZG1pbkFkZHJlc3NLZXkJAQ9hc0FkZHJlc3NTdHJpbmcBBQxhZG1pbkFkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUPc2J0U3Rha2VQb29sS2V5BRNzYnRTdGFrZVBvb2xDaGVja2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJzYnRTdGFrZVBvb2xGZWVLZXkA+AoJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkCAAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQDYBAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUQaXNDb25zdHJ1Y3RlZEtleQYJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkFGnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuBQNuaWwBaQEIbWludFNiV3gAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIUT25lIFBheW1lbnQgZXhwZWN0ZWQEB3BheW1lbnQJAQlhc1BheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFB3BheW1lbnQGYW1vdW50AwMJAQIhPQIIBQdwYXltZW50B2Fzc2V0SWQFCXd4QXNzZXRJZAYJAGcCAAAFBmFtb3VudAkAAgECGFdyb25nIEFzc2V0IGlkIG9yIGFtb3VudAQNdG90YWxXWExvY2tlZAkBEUBleHRyTmF0aXZlKDEwNTUpAQUQdG90YWxXWExvY2tlZEtleQQLc2JXeEFzc2V0SWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEFDnNiV3hBc3NldElkS2V5BBF3YXZlc0V4Y2hhbmdlSW5mbwkA/AcECQEHQWRkcmVzcwEFDXdhdmVzRXhjaGFuZ2UCF3VzZXJNYXhEdXJhdGlvblJFQURPTkxZCQDMCAIJANgEAQgFBHRoaXMFYnl0ZXMFA25pbAUDbmlsAwkAAAIFEXdhdmVzRXhjaGFuZ2VJbmZvBRF3YXZlc0V4Y2hhbmdlSW5mbwQHJG1hdGNoMAURd2F2ZXNFeGNoYW5nZUluZm8DCQABAgUHJG1hdGNoMAINKFN0cmluZywgSW50KQQFdHVwbGUFByRtYXRjaDAEDGZ1bmN0aW9uTmFtZQgFBXR1cGxlAl8xBA9tYXhMb2NrRHVyYXRpb24IBQV0dXBsZQJfMgQGcmVzdWx0CQD8BwQJAQdBZGRyZXNzAQUNd2F2ZXNFeGNoYW5nZQUMZnVuY3Rpb25OYW1lCQDMCAIFD21heExvY2tEdXJhdGlvbgUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAQEc2JXeAkA2QQBBQtzYld4QXNzZXRJZAkAzAgCCQEHUmVpc3N1ZQMFBHNiV3gFBmFtb3VudAYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzBQZhbW91bnQFBHNiV3gJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkJAGQCBQ10b3RhbFdYTG9ja2VkBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECGEZBVEFMOiBJbmNvbnNpc3RlbnQgZGF0YQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARVjbGFpbVd4U3Rha2luZ1Jld2FyZHMABBNjdXJyZW50V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V3hPbkNvbnRyYWN0BRNjdXJyZW50V3hPbkNvbnRyYWN0BAtjbGFpbVJlc3VsdAkA/AcECQEHQWRkcmVzcwEFFWNsYWltV3hSZXdhcmRDb250cmFjdAILY2xhaW1SZXdhcmQFA25pbAUDbmlsAwkAAAIFC2NsYWltUmVzdWx0BQtjbGFpbVJlc3VsdAQPbmV3V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1d4T25Db250cmFjdAUTY3VycmVudFd4T25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAJAAIBAhBOb3RoaW5nIHRvIGNsYWltBAxzYnRTdGFrZVBvb2wJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD3NidFN0YWtlUG9vbEtleQQTc2J0U3Rha2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUMc2J0U3Rha2VQb29sBBBjaGVja3BvaW50UmVzdWx0CQD8BwQFE3NidFN0YWtlUG9vbEFkZHJlc3MFGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCXd4QXNzZXRJZAUHY2xhaW1lZAUDbmlsAwkAAAIFEGNoZWNrcG9pbnRSZXN1bHQFEGNoZWNrcG9pbnRSZXN1bHQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQxzYnRTdGFrZVBvb2wJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUMc2J0U3Rha2VQb29sBQdjbGFpbWVkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYWRkUG9vbAIHYWRkcmVzcxh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQMJARBpc0F1dGhvcml6ZWRQb29sAQUHYWRkcmVzcwkAAgECElBvb2wgYWxyZWFkeSBhZGRlZAQIbmV3UG9vbHMDCQAAAgkAsQIBBQdscFBvb2xzAAAFB2FkZHJlc3MJAKwCAgkArAICBQdscFBvb2xzBQNTRVAFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2FzQWRkcmVzc1N0cmluZwEFB2FkZHJlc3MJAQ9hc0FkZHJlc3NTdHJpbmcBBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHYWRkcmVzcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUHYWRkcmVzcwAABQNuaWwBaQEKcmVtb3ZlUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5AwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAg5Qb29sIG5vdCBmb3VuZAQScG9vbExwVG9rZW5zQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1MCkCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAgZ0b2tlbnMEF3Bvb2xSb290Q29udHJhY3RBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAg1yb290X2NvbnRyYWN0AwMJAGYCBRJwb29sTHBUb2tlbnNBbW91bnQAAAkBAiE9AgUXcG9vbFJvb3RDb250cmFjdEFkZHJlc3MCAAcJAAIBAhxXaXRoZHJhdyBhbGwgTFAgdG9rZW5zIGZpcnN0BBppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAMJAAACBRdwb29sUm9vdENvbnRyYWN0QWRkcmVzcwIABQNuaWwJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwIjaW52YWxpZGF0ZV9yb290X2NvbnRyYWN0X2Nvbm5lY3Rpb24FA25pbAUDbmlsAwkAAAIFGmludmFsaWRhdGVDb25uZWN0aW9uUmVzdWx0BRppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAQKcG9vbHNBcnJheQkAvAkCBQdscFBvb2xzBQNTRVAECXBvb2xJbmRleAkBBWFzSW50AQkAzwgCBQpwb29sc0FycmF5BQdhZGRyZXNzBAhuZXdQb29scwkAugkCCQDRCAIFCnBvb2xzQXJyYXkFCXBvb2xJbmRleAUDU0VQCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHYWRkcmVzcwUDbmlsAwkAAAIJARFAZXh0ck5hdGl2ZSgxMDU4KQEFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5BQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AgAFA25pbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGHNldEFkZGl0aW9uYWxSZXdhcmRzUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAjtPbmx5IGF1dGhvcml6ZWQgcG9vbCBjYW4gYmUgYWRkZWQgYXMgYWRkaXRpb25hbCByZXdhcmQgcG9vbAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQUHYWRkcmVzcwUDbmlsAWkBG3NldEFkZGl0aW9uYWxSZXdhcmRzUG9vbEZlZQEDZmVlAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24DCQBmAgUDZmVlANAPCQACAQIcRmVlIGNhbid0IGJlIGJpZ2dlciB0aGFuIDIwJQMJAGYCAAAFA2ZlZQkAAgECFUZlZSBjYW4ndCBiZSBuZWdhdGl2ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkFA2ZlZQUDbmlsAWkBDXNldFNidFBvb2xGZWUBA2ZlZQMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkAZgIFA2ZlZQDQDwkAAgECHEZlZSBjYW4ndCBiZSBiaWdnZXIgdGhhbiAyMCUDCQBmAgAABQNmZWUJAAIBAhVGZWUgY2FuJ3QgYmUgbmVnYXRpdmUJAMwIAgkBDEludGVnZXJFbnRyeQIFEnNidFN0YWtlUG9vbEZlZUtleQUDZmVlBQNuaWwBaQEMc3Rha2VQb29sTHBzAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECFE9uZSBQYXltZW50IGV4cGVjdGVkBAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQHcGF5bWVudAkBCWFzUGF5bWVudAEJAJEDAggFAWkIcGF5bWVudHMAAAMDCQECIT0CCAUHcGF5bWVudAdhc3NldElkCQDZBAEFC3Bvb2xMcFRva2VuBgkAZwIAAAgFB3BheW1lbnQGYW1vdW50CQACAQIbV3JvbmcgTFAgQXNzZXQgaWQgb3IgYW1vdW50BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgVzdGFrZQUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBD3dpdGhkcmF3UG9vbExwcwEGYW1vdW50BAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQGcmVzdWx0CQD8BwQFGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwIHdW5zdGFrZQkAzAgCBQtwb29sTHBUb2tlbgkAzAgCBQZhbW91bnQFA25pbAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwUGYW1vdW50CQDZBAEFC3Bvb2xMcFRva2VuBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQY2xhaW1Qb29sUmV3YXJkcwEEcG9vbAQLcG9vbEFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wECHBvb2xEYXRhCQELZ2V0UG9vbERhdGEBBQRwb29sBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQTY3VycmVudFdYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQDCQAAAgUTY3VycmVudFdYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAQLY2xhaW1SZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgdjbGFpbVd4CQDMCAIFC3Bvb2xMcFRva2VuBQNuaWwFA25pbAMJAAACBQtjbGFpbVJlc3VsdAULY2xhaW1SZXN1bHQED25ld1dYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QDCQAAAgUHY2xhaW1lZAAACQCUCgIFA25pbAcED3NidFJld2FyZEFtb3VudAkBH2NhbGN1bGF0ZUN1cnJlbnRSZXdhcmRTQlRBbW91bnQBBQdjbGFpbWVkBAxzYnRTdGFrZVBvb2wJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD3NidFN0YWtlUG9vbEtleQQPc2J0U3Rha2VQb29sRmVlCQERQGV4dHJOYXRpdmUoMTA1NSkBBRJzYnRTdGFrZVBvb2xGZWVLZXkEEnNidFN0YWtlUG9vbEFtb3VudAkAbgQFB2NsYWltZWQFD3NidFN0YWtlUG9vbEZlZQUHZmVlUmFuawUGSEFMRlVQBBRhZGRpdGlvbmFsUmV3YXJkUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUXYWRkaXRpb25hbFJld2FyZFBvb2xLZXkEGGFkZGl0aW9uYWxSZXdhcmRQb29sRnJlZQkBEUBleHRyTmF0aXZlKDEwNTUpAQUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkEGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50AwkAAAIJALECAQUUYWRkaXRpb25hbFJld2FyZFBvb2wAAAAAAwkBAiE9AgUUYWRkaXRpb25hbFJld2FyZFBvb2wFBHBvb2wJAG4EBQdjbGFpbWVkBRhhZGRpdGlvbmFsUmV3YXJkUG9vbEZyZWUFB2ZlZVJhbmsFBkhBTEZVUAAABAtwb29sQ2xhaW1lZAkAZQIJAGUCBQdjbGFpbWVkBRJzYnRTdGFrZVBvb2xBbW91bnQFGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50BAdyZXdhcmRzCQDMCAIJAJUKAwUEcG9vbAUKc2J0QXNzZXRJZAUPc2J0UmV3YXJkQW1vdW50CQDMCAIJAJUKAwUMc2J0U3Rha2VQb29sBQl3eEFzc2V0SWQJAGQCBRJzYnRTdGFrZVBvb2xBbW91bnQFE2N1cnJlbnRXWE9uQ29udHJhY3QJAMwIAgkAlQoDBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAUJd3hBc3NldElkBRphZGRpdGlvbmFsUmV3YXJkUG9vbEFtb3VudAkAzAgCCQCVCgMFBHBvb2wFCXd4QXNzZXRJZAULcG9vbENsYWltZWQFA25pbAoBCmFjY291bnRpbmcCA2FjYwF0BAdhZGRyZXNzCAUBdAJfMQQHYXNzZXRJZAgFAXQCXzIEBmFtb3VudAgFAXQCXzMDCQAAAgUGYW1vdW50AAAFA2FjYwQDa2V5AwkAAAIFB2Fzc2V0SWQFCXd4QXNzZXRJZAkBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEFB2FkZHJlc3MJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHYWRkcmVzcwkAzggCBQNhY2MJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQkAZAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEFA2tleQUGYW1vdW50BQNuaWwEEWFjY291bnRpbmdBY3Rpb25zCgACJGwFB3Jld2FyZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCmFjY291bnRpbmcCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAQGY2FsbGVyCQClCAEIBQFpBmNhbGxlcgoBDHRyYW5zZmVycmluZwIDYWNjAXQEB2FkZHJlc3MIBQF0Al8xBAdhc3NldElkCAUBdAJfMgQGYW1vdW50CAUBdAJfMwMJAAACBQZhbW91bnQAAAUDYWNjAwkAAAIFB2FkZHJlc3MFBmNhbGxlcgkAzggCBQNhY2MJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUGYW1vdW50BQdhc3NldElkBQNuaWwECmNoZWNrcG9pbnQJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwUacG9vbENoZWNrcG9pbnRGdW5jdGlvbk5hbWUFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgUHYXNzZXRJZAUGYW1vdW50BQNuaWwDCQAAAgUKY2hlY2twb2ludAUKY2hlY2twb2ludAUDYWNjCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuBBN0cmFuc2ZlcnJpbmdBY3Rpb25zCgACJGwFB3Jld2FyZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDHRyYW5zZmVycmluZwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAECQCUCgIJAM4IAgUTdHJhbnNmZXJyaW5nQWN0aW9ucwURYWNjb3VudGluZ0FjdGlvbnMJAGYCCQCQAwEFE3RyYW5zZmVycmluZ0FjdGlvbnMAAAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAXxb6E",
    "height": 3953218,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5P6mmUuAcoh6tAhUKjwxn1BkxETVDQYd2mAVyEe4a2wk
Next: 3SDBNUKvbHFx9EvfuoicTK769BoFLqHcqdqjpNWzG1W6

Diff: 

OldNewDifferences
1111 
1212 let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
1313 
14-let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
14+let sbtAssetId = base58'vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13'
1515 
1616 let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
1717 
316316                     let newWXOnContract = assetBalance(this, wxAssetId)
317317                     let claimed = (newWXOnContract - currentWXOnContract)
318318                     if ((claimed == 0))
319-                        then throw("Nothing to claim")
319+                        then $Tuple2(nil, false)
320320                         else {
321321                             let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
322-                            let sbtRewardActions = if ((sbtRewardAmount == 0))
323-                                then nil
324-                                else {
325-                                    let regularTransferAction = if ((poolAddress == i.caller))
326-                                        then [ScriptTransfer(poolAddress, sbtRewardAmount, sbtAssetId)]
322+                            let sbtStakePool = getStringValue(sbtStakePoolKey)
323+                            let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
324+                            let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
325+                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
326+                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
327+                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
328+                                then 0
329+                                else if ((additionalRewardPool != pool))
330+                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
331+                                    else 0
332+                            let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
333+                            let rewards = [$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + currentWXOnContract)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
334+                            func accounting (acc,t) =                             {
335+                                let address = t._1
336+                                let assetId = t._2
337+                                let amount = t._3
338+                                if ((amount == 0))
339+                                    then acc
340+                                    else {
341+                                        let key = if ((assetId == wxAssetId))
342+                                            then poolTotalWxClaimedKey(address)
343+                                            else poolTotalSbtClaimedKey(address)
344+                                        (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
345+                                        }
346+                                }
347+
348+                            let accountingActions = {
349+                                let $l = rewards
350+                                let $s = size($l)
351+                                let $acc0 = nil
352+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
353+                                    then $a
354+                                    else accounting($a, $l[$i])
355+
356+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
357+                                    then $a
358+                                    else throw("List size exceeds 4")
359+
360+                                $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
361+                                }
362+                            let caller = toString(i.caller)
363+                            func transferring (acc,t) =                             {
364+                                let address = t._1
365+                                let assetId = t._2
366+                                let amount = t._3
367+                                if ((amount == 0))
368+                                    then acc
369+                                    else if ((address == caller))
370+                                        then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
327371                                         else {
328-                                            let checkpointResult = invoke(poolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(sbtAssetId, sbtRewardAmount)])
329-                                            if ((checkpointResult == checkpointResult))
330-                                                then nil
372+                                            let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
373+                                            if ((checkpoint == checkpoint))
374+                                                then acc
331375                                                 else throw("Strict value is not equal to itself.")
332376                                             }
333-                                    if ((regularTransferAction == regularTransferAction))
334-                                        then (regularTransferAction ++ [IntegerEntry(poolTotalSbtClaimedKey(pool), (getIntegerValue(poolTotalSbtClaimedKey(pool)) + sbtRewardAmount))])
335-                                        else throw("Strict value is not equal to itself.")
336-                                    }
337-                            if ((sbtRewardActions == sbtRewardActions))
338-                                then {
339-                                    let sbtStakePool = getStringValue(sbtStakePoolKey)
340-                                    let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
341-                                    let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
342-                                    let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
343-                                    let sbtStakePoolActions = if ((sbtStakePoolAmount == 0))
344-                                        then nil
345-                                        else {
346-                                            let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, (sbtStakePoolAmount + currentWXOnContract))])
347-                                            if ((checkpointResult == checkpointResult))
348-                                                then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + sbtStakePoolAmount))]
349-                                                else throw("Strict value is not equal to itself.")
350-                                            }
351-                                    if ((sbtStakePoolActions == sbtStakePoolActions))
352-                                        then {
353-                                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
354-                                            let additionalRewardPoolAddress = addressFromStringValue(additionalRewardPool)
355-                                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
356-                                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
357-                                                then 0
358-                                                else if ((additionalRewardPool != pool))
359-                                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
360-                                                    else 0
361-                                            let additionalRewardsPoolActions = if ((additionalRewardPoolAmount == 0))
362-                                                then nil
363-                                                else {
364-                                                    let regularTransferAction = if ((additionalRewardPoolAddress == i.caller))
365-                                                        then [ScriptTransfer(additionalRewardPoolAddress, additionalRewardPoolAmount, wxAssetId)]
366-                                                        else {
367-                                                            let checkpointResult = invoke(additionalRewardPoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, additionalRewardPoolAmount)])
368-                                                            if ((checkpointResult == checkpointResult))
369-                                                                then nil
370-                                                                else throw("Strict value is not equal to itself.")
371-                                                            }
372-                                                    if ((regularTransferAction == regularTransferAction))
373-                                                        then (regularTransferAction ++ [IntegerEntry(poolTotalWxClaimedKey(additionalRewardPool), (getIntegerValue(poolTotalWxClaimedKey(additionalRewardPool)) + additionalRewardPoolAmount))])
374-                                                        else throw("Strict value is not equal to itself.")
375-                                                    }
376-                                            if ((additionalRewardsPoolActions == additionalRewardsPoolActions))
377-                                                then {
378-                                                    let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
379-                                                    let regularTransferAction = if ((poolAddress == i.caller))
380-                                                        then [ScriptTransfer(poolAddress, poolClaimed, wxAssetId)]
381-                                                        else {
382-                                                            let checkpointResult = invoke(poolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, poolClaimed)])
383-                                                            if ((checkpointResult == checkpointResult))
384-                                                                then nil
385-                                                                else throw("Strict value is not equal to itself.")
386-                                                            }
387-                                                    if ((regularTransferAction == regularTransferAction))
388-                                                        then ((((sbtRewardActions ++ sbtStakePoolActions) ++ additionalRewardsPoolActions) ++ regularTransferAction) ++ [IntegerEntry(poolTotalWxClaimedKey(pool), (getIntegerValue(poolTotalWxClaimedKey(pool)) + poolClaimed))])
389-                                                        else throw("Strict value is not equal to itself.")
390-                                                    }
391-                                                else throw("Strict value is not equal to itself.")
392-                                            }
393-                                        else throw("Strict value is not equal to itself.")
394-                                    }
395-                                else throw("Strict value is not equal to itself.")
377+                                }
378+
379+                            let transferringActions = {
380+                                let $l = rewards
381+                                let $s = size($l)
382+                                let $acc0 = nil
383+                                func $f1_1 ($a,$i) =                                 if (($i >= $s))
384+                                    then $a
385+                                    else transferring($a, $l[$i])
386+
387+                                func $f1_2 ($a,$i) =                                 if (($i >= $s))
388+                                    then $a
389+                                    else throw("List size exceeds 4")
390+
391+                                $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
392+                                }
393+                            $Tuple2((transferringActions ++ accountingActions), (size(transferringActions) > 0))
396394                             }
397395                     }
398396                 else throw("Strict value is not equal to itself.")

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let SEP = "__"
55 
66 let feeRank = 10000
77 
88 let sbtTokenDigits = 100000000
99 
1010 let poolCheckpointFunctionName = "checkpoint"
1111 
1212 let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
1313 
14-let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
14+let sbtAssetId = base58'vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13'
1515 
1616 let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
1717 
1818 let claimWxRewardContract = base58'3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n'
1919 
2020 let isConstructedKey = "is_constructed"
2121 
2222 let adminAddressKey = "admin_address"
2323 
2424 let sbWxAssetIdKey = "sb_wx_asset_id"
2525 
2626 let lpPoolsKey = "lp_pools"
2727 
2828 let additionalRewardPoolKey = "additional_reward_pool"
2929 
3030 let additionalRewardPoolFeeKey = "additional_reward_pool_fee"
3131 
3232 let sbtStakePoolKey = "sbt_stake_pool"
3333 
3434 let sbtStakePoolFeeKey = "sbt_stake_pool_fee"
3535 
3636 let totalWXLockedKey = "total_wx_locked"
3737 
3838 let initialSBTTokensAmountKey = "initial_SBT_tokens_amount"
3939 
4040 let baseSBTTokenAmountForOneRewardTokenKey = "base_SBT_token_amount_for_one_reward_token"
4141 
4242 func poolTotalSbtClaimedKey (pool) = ((pool + SEP) + "total_sbt_claimed")
4343 
4444 
4545 func poolTotalWxClaimedKey (pool) = ((pool + SEP) + "total_wx_claimed")
4646 
4747 
4848 func asPayment (v) = match v {
4949     case p: AttachedPayment => 
5050         p
5151     case _ => 
5252         throw("fail to cast into AttachedPayment")
5353 }
5454 
5555 
5656 func asByteVector (v) = match v {
5757     case p: ByteVector => 
5858         p
5959     case _ => 
6060         throw("fail to cast into ByteVector")
6161 }
6262 
6363 
6464 func asInt (val) = match val {
6565     case valInt: Int => 
6666         valInt
6767     case _ => 
6868         throw("fail to cast into Int")
6969 }
7070 
7171 
7272 func asAddressString (address) = match addressFromString(address) {
7373     case a: Address => 
7474         toString(a)
7575     case _ => 
7676         throw("fail to cast into Address String")
7777 }
7878 
7979 
8080 func calculateCurrentRewardSBTAmount (rewardTokenCount) = {
8181     let baseSBTTokenAmountForOneRewardToken = getIntegerValue(this, baseSBTTokenAmountForOneRewardTokenKey)
8282     let initialSBTTokensAmount = getIntegerValue(this, initialSBTTokensAmountKey)
8383     let currentSBTTokensBalance = assetBalance(this, sbtAssetId)
8484     if ((currentSBTTokensBalance == 0))
8585         then 0
8686         else {
8787             let currentSBTTokenAmountForOneRewardToken = fraction(baseSBTTokenAmountForOneRewardToken, currentSBTTokensBalance, initialSBTTokensAmount)
8888             let amountSBT = fraction(rewardTokenCount, currentSBTTokenAmountForOneRewardToken, sbtTokenDigits)
8989             if ((amountSBT > currentSBTTokensBalance))
9090                 then currentSBTTokensBalance
9191                 else amountSBT
9292             }
9393     }
9494 
9595 
9696 func isAuthorizedPool (pool) = {
9797     let checkedPool = asAddressString(pool)
9898     let lpPools = getStringValue(lpPoolsKey)
9999     contains(lpPools, checkedPool)
100100     }
101101 
102102 
103103 func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
104104     then throw("Not authorized pool")
105105     else {
106106         let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
107107         let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
108108         $Tuple2(poolLpToken, wavesExchangePoolAddress)
109109         }
110110 
111111 
112112 @Callable(i)
113113 func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
114114     then throw("Constructor can be called one time")
115115     else {
116116         let sbWx = Issue("sbWX", "", 0, 8, true, unit, 0)
117117         let assetId = calculateAssetId(sbWx)
118118         let sbtStakePoolChecked = asAddressString(sbtStakePool)
119119 [sbWx, StringEntry(sbWxAssetIdKey, toBase58String(assetId)), StringEntry(adminAddressKey, asAddressString(adminAddress)), StringEntry(sbtStakePoolKey, sbtStakePoolChecked), IntegerEntry(sbtStakePoolFeeKey, 1400), IntegerEntry(poolTotalSbtClaimedKey(sbtStakePoolChecked), 0), IntegerEntry(poolTotalWxClaimedKey(sbtStakePoolChecked), 0), StringEntry(lpPoolsKey, ""), StringEntry(additionalRewardPoolKey, ""), IntegerEntry(additionalRewardPoolFeeKey, 600), BooleanEntry(isConstructedKey, true), IntegerEntry(totalWXLockedKey, 0), IntegerEntry(initialSBTTokensAmountKey, initialSBTTokensAmount), IntegerEntry(baseSBTTokenAmountForOneRewardTokenKey, sbtTokensForOneRewardToken)]
120120         }
121121 
122122 
123123 
124124 @Callable(i)
125125 func mintSbWx () = if ((size(i.payments) != 1))
126126     then throw("One Payment expected")
127127     else {
128128         let payment = asPayment(i.payments[0])
129129         let amount = payment.amount
130130         if (if ((payment.assetId != wxAssetId))
131131             then true
132132             else (0 >= amount))
133133             then throw("Wrong Asset id or amount")
134134             else {
135135                 let totalWXLocked = getIntegerValue(totalWXLockedKey)
136136                 let sbWxAssetId = getStringValue(sbWxAssetIdKey)
137137                 let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", [toBase58String(this.bytes)], nil)
138138                 if ((wavesExchangeInfo == wavesExchangeInfo))
139139                     then                     match wavesExchangeInfo {
140140                         case tuple: (String, Int) => 
141141                             let functionName = tuple._1
142142                             let maxLockDuration = tuple._2
143143                             let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
144144                             if ((result == result))
145145                                 then {
146146                                     let sbWx = fromBase58String(sbWxAssetId)
147147 [Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
148148                                     }
149149                                 else throw("Strict value is not equal to itself.")
150150                         case _ => 
151151                             throw("FATAL: Inconsistent data")
152152                     }
153153                     else throw("Strict value is not equal to itself.")
154154                 }
155155         }
156156 
157157 
158158 
159159 @Callable(i)
160160 func claimWxStakingRewards () = {
161161     let currentWxOnContract = assetBalance(this, wxAssetId)
162162     if ((currentWxOnContract == currentWxOnContract))
163163         then {
164164             let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
165165             if ((claimResult == claimResult))
166166                 then {
167167                     let newWxOnContract = assetBalance(this, wxAssetId)
168168                     let claimed = (newWxOnContract - currentWxOnContract)
169169                     if ((claimed == 0))
170170                         then throw("Nothing to claim")
171171                         else {
172172                             let sbtStakePool = getStringValue(sbtStakePoolKey)
173173                             let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
174174                             let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, claimed)])
175175                             if ((checkpointResult == checkpointResult))
176176                                 then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + claimed))]
177177                                 else throw("Strict value is not equal to itself.")
178178                             }
179179                     }
180180                 else throw("Strict value is not equal to itself.")
181181             }
182182         else throw("Strict value is not equal to itself.")
183183     }
184184 
185185 
186186 
187187 @Callable(i)
188188 func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
189189     then throw("Only Admin can call this function")
190190     else {
191191         let lpPools = getStringValue(lpPoolsKey)
192192         if (isAuthorizedPool(address))
193193             then throw("Pool already added")
194194             else {
195195                 let newPools = if ((size(lpPools) == 0))
196196                     then address
197197                     else ((lpPools + SEP) + address)
198198 [StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress)), IntegerEntry(poolTotalSbtClaimedKey(address), 0), IntegerEntry(poolTotalWxClaimedKey(address), 0)]
199199                 }
200200         }
201201 
202202 
203203 
204204 @Callable(i)
205205 func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
206206     then throw("Only Admin can call this function")
207207     else {
208208         let lpPools = getStringValue(lpPoolsKey)
209209         if (!(isAuthorizedPool(address)))
210210             then throw("Pool not found")
211211             else {
212212                 let poolLpTokensAmount = getIntegerValue(addressFromStringValue(address), "tokens")
213213                 let poolRootContractAddress = getStringValue(addressFromStringValue(address), "root_contract")
214214                 if (if ((poolLpTokensAmount > 0))
215215                     then (poolRootContractAddress != "")
216216                     else false)
217217                     then throw("Withdraw all LP tokens first")
218218                     else {
219219                         let invalidateConnectionResult = if ((poolRootContractAddress == ""))
220220                             then nil
221221                             else invoke(addressFromStringValue(address), "invalidate_root_contract_connection", nil, nil)
222222                         if ((invalidateConnectionResult == invalidateConnectionResult))
223223                             then {
224224                                 let poolsArray = split_4C(lpPools, SEP)
225225                                 let poolIndex = asInt(indexOf(poolsArray, address))
226226                                 let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
227227                                 ([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
228228                                     then [StringEntry(additionalRewardPoolKey, "")]
229229                                     else nil))
230230                                 }
231231                             else throw("Strict value is not equal to itself.")
232232                         }
233233                 }
234234         }
235235 
236236 
237237 
238238 @Callable(i)
239239 func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
240240     then throw("Only Admin can call this function")
241241     else if (!(isAuthorizedPool(address)))
242242         then throw("Only authorized pool can be added as additional reward pool")
243243         else [StringEntry(additionalRewardPoolKey, address)]
244244 
245245 
246246 
247247 @Callable(i)
248248 func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
249249     then throw("Only Admin can call this function")
250250     else if ((fee > 2000))
251251         then throw("Fee can't be bigger than 20%")
252252         else if ((0 > fee))
253253             then throw("Fee can't be negative")
254254             else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
255255 
256256 
257257 
258258 @Callable(i)
259259 func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
260260     then throw("Only Admin can call this function")
261261     else if ((fee > 2000))
262262         then throw("Fee can't be bigger than 20%")
263263         else if ((0 > fee))
264264             then throw("Fee can't be negative")
265265             else [IntegerEntry(sbtStakePoolFeeKey, fee)]
266266 
267267 
268268 
269269 @Callable(i)
270270 func stakePoolLps () = if ((size(i.payments) != 1))
271271     then throw("One Payment expected")
272272     else {
273273         let poolData = getPoolData(toBase58String(i.caller.bytes))
274274         let poolLpToken = poolData._1
275275         let wavesExchangePoolAddress = poolData._2
276276         let payment = asPayment(i.payments[0])
277277         if (if ((payment.assetId != fromBase58String(poolLpToken)))
278278             then true
279279             else (0 >= payment.amount))
280280             then throw("Wrong LP Asset id or amount")
281281             else {
282282                 let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
283283                 if ((result == result))
284284                     then nil
285285                     else throw("Strict value is not equal to itself.")
286286                 }
287287         }
288288 
289289 
290290 
291291 @Callable(i)
292292 func withdrawPoolLps (amount) = {
293293     let poolData = getPoolData(toBase58String(i.caller.bytes))
294294     let poolLpToken = poolData._1
295295     let wavesExchangePoolAddress = poolData._2
296296     let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
297297     if ((result == result))
298298         then [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
299299         else throw("Strict value is not equal to itself.")
300300     }
301301 
302302 
303303 
304304 @Callable(i)
305305 func claimPoolRewards (pool) = {
306306     let poolAddress = addressFromStringValue(pool)
307307     let poolData = getPoolData(pool)
308308     let poolLpToken = poolData._1
309309     let wavesExchangePoolAddress = poolData._2
310310     let currentWXOnContract = assetBalance(this, wxAssetId)
311311     if ((currentWXOnContract == currentWXOnContract))
312312         then {
313313             let claimResult = invoke(wavesExchangePoolAddress, "claimWx", [poolLpToken], nil)
314314             if ((claimResult == claimResult))
315315                 then {
316316                     let newWXOnContract = assetBalance(this, wxAssetId)
317317                     let claimed = (newWXOnContract - currentWXOnContract)
318318                     if ((claimed == 0))
319-                        then throw("Nothing to claim")
319+                        then $Tuple2(nil, false)
320320                         else {
321321                             let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
322-                            let sbtRewardActions = if ((sbtRewardAmount == 0))
323-                                then nil
324-                                else {
325-                                    let regularTransferAction = if ((poolAddress == i.caller))
326-                                        then [ScriptTransfer(poolAddress, sbtRewardAmount, sbtAssetId)]
322+                            let sbtStakePool = getStringValue(sbtStakePoolKey)
323+                            let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
324+                            let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
325+                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
326+                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
327+                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
328+                                then 0
329+                                else if ((additionalRewardPool != pool))
330+                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
331+                                    else 0
332+                            let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
333+                            let rewards = [$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + currentWXOnContract)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
334+                            func accounting (acc,t) =                             {
335+                                let address = t._1
336+                                let assetId = t._2
337+                                let amount = t._3
338+                                if ((amount == 0))
339+                                    then acc
340+                                    else {
341+                                        let key = if ((assetId == wxAssetId))
342+                                            then poolTotalWxClaimedKey(address)
343+                                            else poolTotalSbtClaimedKey(address)
344+                                        (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
345+                                        }
346+                                }
347+
348+                            let accountingActions = {
349+                                let $l = rewards
350+                                let $s = size($l)
351+                                let $acc0 = nil
352+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
353+                                    then $a
354+                                    else accounting($a, $l[$i])
355+
356+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
357+                                    then $a
358+                                    else throw("List size exceeds 4")
359+
360+                                $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
361+                                }
362+                            let caller = toString(i.caller)
363+                            func transferring (acc,t) =                             {
364+                                let address = t._1
365+                                let assetId = t._2
366+                                let amount = t._3
367+                                if ((amount == 0))
368+                                    then acc
369+                                    else if ((address == caller))
370+                                        then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
327371                                         else {
328-                                            let checkpointResult = invoke(poolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(sbtAssetId, sbtRewardAmount)])
329-                                            if ((checkpointResult == checkpointResult))
330-                                                then nil
372+                                            let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
373+                                            if ((checkpoint == checkpoint))
374+                                                then acc
331375                                                 else throw("Strict value is not equal to itself.")
332376                                             }
333-                                    if ((regularTransferAction == regularTransferAction))
334-                                        then (regularTransferAction ++ [IntegerEntry(poolTotalSbtClaimedKey(pool), (getIntegerValue(poolTotalSbtClaimedKey(pool)) + sbtRewardAmount))])
335-                                        else throw("Strict value is not equal to itself.")
336-                                    }
337-                            if ((sbtRewardActions == sbtRewardActions))
338-                                then {
339-                                    let sbtStakePool = getStringValue(sbtStakePoolKey)
340-                                    let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
341-                                    let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
342-                                    let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
343-                                    let sbtStakePoolActions = if ((sbtStakePoolAmount == 0))
344-                                        then nil
345-                                        else {
346-                                            let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, (sbtStakePoolAmount + currentWXOnContract))])
347-                                            if ((checkpointResult == checkpointResult))
348-                                                then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + sbtStakePoolAmount))]
349-                                                else throw("Strict value is not equal to itself.")
350-                                            }
351-                                    if ((sbtStakePoolActions == sbtStakePoolActions))
352-                                        then {
353-                                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
354-                                            let additionalRewardPoolAddress = addressFromStringValue(additionalRewardPool)
355-                                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
356-                                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
357-                                                then 0
358-                                                else if ((additionalRewardPool != pool))
359-                                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
360-                                                    else 0
361-                                            let additionalRewardsPoolActions = if ((additionalRewardPoolAmount == 0))
362-                                                then nil
363-                                                else {
364-                                                    let regularTransferAction = if ((additionalRewardPoolAddress == i.caller))
365-                                                        then [ScriptTransfer(additionalRewardPoolAddress, additionalRewardPoolAmount, wxAssetId)]
366-                                                        else {
367-                                                            let checkpointResult = invoke(additionalRewardPoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, additionalRewardPoolAmount)])
368-                                                            if ((checkpointResult == checkpointResult))
369-                                                                then nil
370-                                                                else throw("Strict value is not equal to itself.")
371-                                                            }
372-                                                    if ((regularTransferAction == regularTransferAction))
373-                                                        then (regularTransferAction ++ [IntegerEntry(poolTotalWxClaimedKey(additionalRewardPool), (getIntegerValue(poolTotalWxClaimedKey(additionalRewardPool)) + additionalRewardPoolAmount))])
374-                                                        else throw("Strict value is not equal to itself.")
375-                                                    }
376-                                            if ((additionalRewardsPoolActions == additionalRewardsPoolActions))
377-                                                then {
378-                                                    let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
379-                                                    let regularTransferAction = if ((poolAddress == i.caller))
380-                                                        then [ScriptTransfer(poolAddress, poolClaimed, wxAssetId)]
381-                                                        else {
382-                                                            let checkpointResult = invoke(poolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, poolClaimed)])
383-                                                            if ((checkpointResult == checkpointResult))
384-                                                                then nil
385-                                                                else throw("Strict value is not equal to itself.")
386-                                                            }
387-                                                    if ((regularTransferAction == regularTransferAction))
388-                                                        then ((((sbtRewardActions ++ sbtStakePoolActions) ++ additionalRewardsPoolActions) ++ regularTransferAction) ++ [IntegerEntry(poolTotalWxClaimedKey(pool), (getIntegerValue(poolTotalWxClaimedKey(pool)) + poolClaimed))])
389-                                                        else throw("Strict value is not equal to itself.")
390-                                                    }
391-                                                else throw("Strict value is not equal to itself.")
392-                                            }
393-                                        else throw("Strict value is not equal to itself.")
394-                                    }
395-                                else throw("Strict value is not equal to itself.")
377+                                }
378+
379+                            let transferringActions = {
380+                                let $l = rewards
381+                                let $s = size($l)
382+                                let $acc0 = nil
383+                                func $f1_1 ($a,$i) =                                 if (($i >= $s))
384+                                    then $a
385+                                    else transferring($a, $l[$i])
386+
387+                                func $f1_2 ($a,$i) =                                 if (($i >= $s))
388+                                    then $a
389+                                    else throw("List size exceeds 4")
390+
391+                                $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
392+                                }
393+                            $Tuple2((transferringActions ++ accountingActions), (size(transferringActions) > 0))
396394                             }
397395                     }
398396                 else throw("Strict value is not equal to itself.")
399397             }
400398         else throw("Strict value is not equal to itself.")
401399     }
402400 
403401 
github/deemru/w8io/6500d08 
51.31 ms ◑