tx · 2fH2zrLqYubNKe1bdojmeKV4fLHNp3UNSpz32UECRmRw

3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S:  -0.01700000 Waves

2023.12.16 08:55 [3954771] smart account 3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2fH2zrLqYubNKe1bdojmeKV4fLHNp3UNSpz32UECRmRw",
    "fee": 1700000,
    "feeAssetId": null,
    "timestamp": 1702706111208,
    "version": 2,
    "chainId": 87,
    "sender": "3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S",
    "senderPublicKey": "33eckRoXnCjLErhAuK5EKSVyuSzBNsNr6Rawz3YSppLR",
    "proofs": [
        "2J9X6HmhEo9AygYwS9Q4F8ByL4UaFwv3paPuS2vG3EjvnkNKmGzJvwSL7Kr44HXpabaRHE1H7gpHYmtod8f6d2Xm"
    ],
    "script": "base64:BgJDCAISBgoECAgBARIAEgASBAoCCAgSAwoBCBIDCgEIEgMKAQESAwoBARIAEgMKAQESBgoECAEBBBIDCgEIEgASAwoBCB0AA1NFUAICX18AB2ZlZVJhbmsAkE4ADnNidFRva2VuRGlnaXRzAIDC1y8AGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lAgpjaGVja3BvaW50AAl3eEFzc2V0SWQBIJMBHKupx24lV85mnnG2vapr+DzoWAsq7tmgTrs83BSxAApzYnRBc3NldElkASANnpTk33kiuX5wTQyOMZs9Bw+Csn3lkAbk5J4HoOpRwgANd2F2ZXNFeGNoYW5nZQEaAVez5uZVGBFpsOQzD4hRQ6ScrtbVSwNLEVgAFWNsYWltV3hSZXdhcmRDb250cmFjdAEaAVempdxaW+NIZ4GMEMr0xVkFLvazvGYbF80AEGlzQ29uc3RydWN0ZWRLZXkCDmlzX2NvbnN0cnVjdGVkAA9hZG1pbkFkZHJlc3NLZXkCDWFkbWluX2FkZHJlc3MADnNiV3hBc3NldElkS2V5Ag5zYl93eF9hc3NldF9pZAAKbHBQb29sc0tleQIIbHBfcG9vbHMAF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AhZhZGRpdGlvbmFsX3Jld2FyZF9wb29sABphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQIaYWRkaXRpb25hbF9yZXdhcmRfcG9vbF9mZWUAD3NidFN0YWtlUG9vbEtleQIOc2J0X3N0YWtlX3Bvb2wAEnNidFN0YWtlUG9vbEZlZUtleQISc2J0X3N0YWtlX3Bvb2xfZmVlABB0b3RhbFdYTG9ja2VkS2V5Ag90b3RhbF93eF9sb2NrZWQAGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkCGWluaXRpYWxfU0JUX3Rva2Vuc19hbW91bnQAJmJhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuS2V5AipiYXNlX1NCVF90b2tlbl9hbW91bnRfZm9yX29uZV9yZXdhcmRfdG9rZW4BFnBvb2xUb3RhbFNidENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEXRvdGFsX3NidF9jbGFpbWVkARVwb29sVG90YWxXeENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEHRvdGFsX3d4X2NsYWltZWQBCWFzUGF5bWVudAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAg9BdHRhY2hlZFBheW1lbnQEAXAFByRtYXRjaDAFAXAJAAIBAiFmYWlsIHRvIGNhc3QgaW50byBBdHRhY2hlZFBheW1lbnQBDGFzQnl0ZVZlY3RvcgEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFwBQckbWF0Y2gwBQFwCQACAQIcZmFpbCB0byBjYXN0IGludG8gQnl0ZVZlY3RvcgEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBD2FzQWRkcmVzc1N0cmluZwEHYWRkcmVzcwQHJG1hdGNoMAkApggBBQdhZGRyZXNzAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAJAKUIAQUBYQkAAgECIGZhaWwgdG8gY2FzdCBpbnRvIEFkZHJlc3MgU3RyaW5nAR9jYWxjdWxhdGVDdXJyZW50UmV3YXJkU0JUQW1vdW50ARByZXdhcmRUb2tlbkNvdW50BCNiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkEFmluaXRpYWxTQlRUb2tlbnNBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkEF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlCQDwBwIFBHRoaXMFCnNidEFzc2V0SWQDCQAAAgUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UAAAAABCZjdXJyZW50U0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkAawMFI2Jhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAQJYW1vdW50U0JUCQBrAwUQcmV3YXJkVG9rZW5Db3VudAUmY3VycmVudFNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW4FDnNidFRva2VuRGlnaXRzAwkAZgIFCWFtb3VudFNCVAUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UFF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlBQlhbW91bnRTQlQBHmNhbGN1bGF0ZVJld2FyZHNBbmRQcmVyYXJlRGF0YQMEcG9vbAdjbGFpbWVkBnd4RHVzdAMJAGcCAAAFB2NsYWltZWQFA25pbAQPc2J0UmV3YXJkQW1vdW50CQEfY2FsY3VsYXRlQ3VycmVudFJld2FyZFNCVEFtb3VudAEFB2NsYWltZWQEDHNidFN0YWtlUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BA9zYnRTdGFrZVBvb2xGZWUJARFAZXh0ck5hdGl2ZSgxMDU1KQEFEnNidFN0YWtlUG9vbEZlZUtleQQSc2J0U3Rha2VQb29sQW1vdW50CQBuBAUHY2xhaW1lZAUPc2J0U3Rha2VQb29sRmVlBQdmZWVSYW5rBQZIQUxGVVAEFGFkZGl0aW9uYWxSZXdhcmRQb29sCQERQGV4dHJOYXRpdmUoMTA1OCkBBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQQYYWRkaXRpb25hbFJld2FyZFBvb2xGcmVlCQERQGV4dHJOYXRpdmUoMTA1NSkBBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQQaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQDCQAAAgkAsQIBBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAAAAAADCQECIT0CBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAUEcG9vbAkAbgQFB2NsYWltZWQFGGFkZGl0aW9uYWxSZXdhcmRQb29sRnJlZQUHZmVlUmFuawUGSEFMRlVQAAAEC3Bvb2xDbGFpbWVkCQBlAgkAZQIFB2NsYWltZWQFEnNidFN0YWtlUG9vbEFtb3VudAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQJAMwIAgkAlQoDBQRwb29sBQpzYnRBc3NldElkBQ9zYnRSZXdhcmRBbW91bnQJAMwIAgkAlQoDBQxzYnRTdGFrZVBvb2wFCXd4QXNzZXRJZAkAZAIFEnNidFN0YWtlUG9vbEFtb3VudAUGd3hEdXN0CQDMCAIJAJUKAwUUYWRkaXRpb25hbFJld2FyZFBvb2wFCXd4QXNzZXRJZAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQJAMwIAgkAlQoDBQRwb29sBQl3eEFzc2V0SWQFC3Bvb2xDbGFpbWVkBQNuaWwBEGlzQXV0aG9yaXplZFBvb2wBBHBvb2wEC2NoZWNrZWRQb29sCQEPYXNBZGRyZXNzU3RyaW5nAQUEcG9vbAQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQkBCGNvbnRhaW5zAgUHbHBQb29scwULY2hlY2tlZFBvb2wBC2dldFBvb2xEYXRhAQRwb29sAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFBHBvb2wJAAIBAhNOb3QgYXV0aG9yaXplZCBwb29sBAtwb29sTHBUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTMpAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUEcG9vbAIFdG9rZW4EGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUEcG9vbAkAlAoCBQtwb29sTHBUb2tlbgUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzDgFpAQtjb25zdHJ1Y3RvcgQMYWRtaW5BZGRyZXNzDHNidFN0YWtlUG9vbBZpbml0aWFsU0JUVG9rZW5zQW1vdW50GnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuAwkBCWlzRGVmaW5lZAEJAKAIAQUQaXNDb25zdHJ1Y3RlZEtleQkAAgECIkNvbnN0cnVjdG9yIGNhbiBiZSBjYWxsZWQgb25lIHRpbWUEBHNiV3gJAMMIBwIEc2JXWAIAAAAACAYFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQRzYld4BBNzYnRTdGFrZVBvb2xDaGVja2VkCQEPYXNBZGRyZXNzU3RyaW5nAQUMc2J0U3Rha2VQb29sCQDMCAIFBHNiV3gJAMwIAgkBC1N0cmluZ0VudHJ5AgUOc2JXeEFzc2V0SWRLZXkJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQ9hZG1pbkFkZHJlc3NLZXkJAQ9hc0FkZHJlc3NTdHJpbmcBBQxhZG1pbkFkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUPc2J0U3Rha2VQb29sS2V5BRNzYnRTdGFrZVBvb2xDaGVja2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJzYnRTdGFrZVBvb2xGZWVLZXkA+AoJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkCAAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQDYBAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUQaXNDb25zdHJ1Y3RlZEtleQYJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkFGnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuBQNuaWwBaQEIbWludFNiV3gAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIUT25lIFBheW1lbnQgZXhwZWN0ZWQEB3BheW1lbnQJAQlhc1BheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFB3BheW1lbnQGYW1vdW50AwMJAQIhPQIIBQdwYXltZW50B2Fzc2V0SWQFCXd4QXNzZXRJZAYJAGcCAAAFBmFtb3VudAkAAgECGFdyb25nIEFzc2V0IGlkIG9yIGFtb3VudAQNdG90YWxXWExvY2tlZAkBEUBleHRyTmF0aXZlKDEwNTUpAQUQdG90YWxXWExvY2tlZEtleQQLc2JXeEFzc2V0SWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEFDnNiV3hBc3NldElkS2V5BBF3YXZlc0V4Y2hhbmdlSW5mbwkA/AcECQEHQWRkcmVzcwEFDXdhdmVzRXhjaGFuZ2UCF3VzZXJNYXhEdXJhdGlvblJFQURPTkxZCQDMCAIJANgEAQgFBHRoaXMFYnl0ZXMFA25pbAUDbmlsAwkAAAIFEXdhdmVzRXhjaGFuZ2VJbmZvBRF3YXZlc0V4Y2hhbmdlSW5mbwQHJG1hdGNoMAURd2F2ZXNFeGNoYW5nZUluZm8DCQABAgUHJG1hdGNoMAINKFN0cmluZywgSW50KQQFdHVwbGUFByRtYXRjaDAEDGZ1bmN0aW9uTmFtZQgFBXR1cGxlAl8xBA9tYXhMb2NrRHVyYXRpb24IBQV0dXBsZQJfMgQGcmVzdWx0CQD8BwQJAQdBZGRyZXNzAQUNd2F2ZXNFeGNoYW5nZQUMZnVuY3Rpb25OYW1lCQDMCAIFD21heExvY2tEdXJhdGlvbgUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAQEc2JXeAkA2QQBBQtzYld4QXNzZXRJZAkAzAgCCQEHUmVpc3N1ZQMFBHNiV3gFBmFtb3VudAYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzBQZhbW91bnQFBHNiV3gJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkJAGQCBQ10b3RhbFdYTG9ja2VkBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECGEZBVEFMOiBJbmNvbnNpc3RlbnQgZGF0YQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARVjbGFpbVd4U3Rha2luZ1Jld2FyZHMABBNjdXJyZW50V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V3hPbkNvbnRyYWN0BRNjdXJyZW50V3hPbkNvbnRyYWN0BAtjbGFpbVJlc3VsdAkA/AcECQEHQWRkcmVzcwEFFWNsYWltV3hSZXdhcmRDb250cmFjdAILY2xhaW1SZXdhcmQFA25pbAUDbmlsAwkAAAIFC2NsYWltUmVzdWx0BQtjbGFpbVJlc3VsdAQPbmV3V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1d4T25Db250cmFjdAUTY3VycmVudFd4T25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAJAAIBAhBOb3RoaW5nIHRvIGNsYWltBAxzYnRTdGFrZVBvb2wJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD3NidFN0YWtlUG9vbEtleQQTc2J0U3Rha2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUMc2J0U3Rha2VQb29sBBBjaGVja3BvaW50UmVzdWx0CQD8BwQFE3NidFN0YWtlUG9vbEFkZHJlc3MFGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCXd4QXNzZXRJZAUHY2xhaW1lZAUDbmlsAwkAAAIFEGNoZWNrcG9pbnRSZXN1bHQFEGNoZWNrcG9pbnRSZXN1bHQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQxzYnRTdGFrZVBvb2wJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUMc2J0U3Rha2VQb29sBQdjbGFpbWVkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYWRkUG9vbAIHYWRkcmVzcxh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQMJARBpc0F1dGhvcml6ZWRQb29sAQUHYWRkcmVzcwkAAgECElBvb2wgYWxyZWFkeSBhZGRlZAQIbmV3UG9vbHMDCQAAAgkAsQIBBQdscFBvb2xzAAAFB2FkZHJlc3MJAKwCAgkArAICBQdscFBvb2xzBQNTRVAFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2FzQWRkcmVzc1N0cmluZwEFB2FkZHJlc3MJAQ9hc0FkZHJlc3NTdHJpbmcBBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHYWRkcmVzcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUHYWRkcmVzcwAABQNuaWwBaQEKcmVtb3ZlUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5AwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAg5Qb29sIG5vdCBmb3VuZAQScG9vbExwVG9rZW5zQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1MCkCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAgZ0b2tlbnMEF3Bvb2xSb290Q29udHJhY3RBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAg1yb290X2NvbnRyYWN0AwMJAGYCBRJwb29sTHBUb2tlbnNBbW91bnQAAAkBAiE9AgUXcG9vbFJvb3RDb250cmFjdEFkZHJlc3MCAAcJAAIBAhxXaXRoZHJhdyBhbGwgTFAgdG9rZW5zIGZpcnN0BBppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAMJAAACBRdwb29sUm9vdENvbnRyYWN0QWRkcmVzcwIABQNuaWwJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwIjaW52YWxpZGF0ZV9yb290X2NvbnRyYWN0X2Nvbm5lY3Rpb24FA25pbAUDbmlsAwkAAAIFGmludmFsaWRhdGVDb25uZWN0aW9uUmVzdWx0BRppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAQKcG9vbHNBcnJheQkAvAkCBQdscFBvb2xzBQNTRVAECXBvb2xJbmRleAkBBWFzSW50AQkAzwgCBQpwb29sc0FycmF5BQdhZGRyZXNzBAhuZXdQb29scwkAugkCCQDRCAIFCnBvb2xzQXJyYXkFCXBvb2xJbmRleAUDU0VQCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHYWRkcmVzcwUDbmlsAwkAAAIJARFAZXh0ck5hdGl2ZSgxMDU4KQEFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5BQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AgAFA25pbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGHNldEFkZGl0aW9uYWxSZXdhcmRzUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAjtPbmx5IGF1dGhvcml6ZWQgcG9vbCBjYW4gYmUgYWRkZWQgYXMgYWRkaXRpb25hbCByZXdhcmQgcG9vbAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQUHYWRkcmVzcwUDbmlsAWkBG3NldEFkZGl0aW9uYWxSZXdhcmRzUG9vbEZlZQEDZmVlAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24DCQBmAgUDZmVlANAPCQACAQIcRmVlIGNhbid0IGJlIGJpZ2dlciB0aGFuIDIwJQMJAGYCAAAFA2ZlZQkAAgECFUZlZSBjYW4ndCBiZSBuZWdhdGl2ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkFA2ZlZQUDbmlsAWkBDXNldFNidFBvb2xGZWUBA2ZlZQMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkAZgIFA2ZlZQDQDwkAAgECHEZlZSBjYW4ndCBiZSBiaWdnZXIgdGhhbiAyMCUDCQBmAgAABQNmZWUJAAIBAhVGZWUgY2FuJ3QgYmUgbmVnYXRpdmUJAMwIAgkBDEludGVnZXJFbnRyeQIFEnNidFN0YWtlUG9vbEZlZUtleQUDZmVlBQNuaWwBaQEMc3Rha2VQb29sTHBzAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECFE9uZSBQYXltZW50IGV4cGVjdGVkBAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQHcGF5bWVudAkBCWFzUGF5bWVudAEJAJEDAggFAWkIcGF5bWVudHMAAAMDCQECIT0CCAUHcGF5bWVudAdhc3NldElkCQDZBAEFC3Bvb2xMcFRva2VuBgkAZwIAAAgFB3BheW1lbnQGYW1vdW50CQACAQIbV3JvbmcgTFAgQXNzZXQgaWQgb3IgYW1vdW50BBNjdXJyZW50V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgVzdGFrZQUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAQPbmV3V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1dYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAFA25pbAQQZGlzdHJpYnV0ZVJlc3VsdAkA/AcEBQR0aGlzAhFkaXN0cmlidXRlQ2xhaW1lZAkAzAgCCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgUHY2xhaW1lZAkAzAgCBRNjdXJyZW50V1hPbkNvbnRyYWN0CQDMCAIGBQNuaWwFA25pbAMJAAACBRBkaXN0cmlidXRlUmVzdWx0BRBkaXN0cmlidXRlUmVzdWx0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPd2l0aGRyYXdQb29sTHBzAQZhbW91bnQECHBvb2xEYXRhCQELZ2V0UG9vbERhdGEBCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEC3Bvb2xMcFRva2VuCAUIcG9vbERhdGECXzEEGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwgFCHBvb2xEYXRhAl8yBBNjdXJyZW50V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgd1bnN0YWtlCQDMCAIFC3Bvb2xMcFRva2VuCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQED25ld1dYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QEC2Jhc2VBY3Rpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwUGYW1vdW50CQDZBAEFC3Bvb2xMcFRva2VuBQNuaWwDCQAAAgUHY2xhaW1lZAAABQtiYXNlQWN0aW9ucwQQZGlzdHJpYnV0ZVJlc3VsdAkA/AcEBQR0aGlzAhFkaXN0cmlidXRlQ2xhaW1lZAkAzAgCCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgUHY2xhaW1lZAkAzAgCBRNjdXJyZW50V1hPbkNvbnRyYWN0CQDMCAIGBQNuaWwFA25pbAMJAAACBRBkaXN0cmlidXRlUmVzdWx0BRBkaXN0cmlidXRlUmVzdWx0BQtiYXNlQWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARBkaXN0dWJ1dGVDbGFpbWVkBARwb29sB2NsYWltZWQGd3hEdXN0EnVzZVJlZ3VsYXJUcmFuc2ZlcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECDnNlbGYgY2FsbCBvbmx5BAdyZXdhcmRzCQEeY2FsY3VsYXRlUmV3YXJkc0FuZFByZXJhcmVEYXRhAwUEcG9vbAUHY2xhaW1lZAAACgEKYWNjb3VudGluZwIDYWNjAXQEB2FkZHJlc3MIBQF0Al8xBAdhc3NldElkCAUBdAJfMgQGYW1vdW50CAUBdAJfMwMJAAACBQZhbW91bnQAAAUDYWNjBANrZXkDCQAAAgUHYXNzZXRJZAUJd3hBc3NldElkCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUHYWRkcmVzcwkBFnBvb2xUb3RhbFNidENsYWltZWRLZXkBBQdhZGRyZXNzCQDOCAIFA2FjYwkAzAgCCQEMSW50ZWdlckVudHJ5AgUDa2V5CQBkAgkBEUBleHRyTmF0aXZlKDEwNTUpAQUDa2V5BQZhbW91bnQFA25pbAQRYWNjb3VudGluZ0FjdGlvbnMKAAIkbAUHcmV3YXJkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEKYWNjb3VudGluZwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAECgEMdHJhbnNmZXJyaW5nAgNhY2MBdAQHYWRkcmVzcwgFAXQCXzEEB2Fzc2V0SWQIBQF0Al8yBAZhbW91bnQIBQF0Al8zAwkAAAIFBmFtb3VudAAABQNhY2MDBRJ1c2VSZWd1bGFyVHJhbnNmZXIJAM4IAgUDYWNjCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFBmFtb3VudAUHYXNzZXRJZAUDbmlsBApjaGVja3BvaW50CQD8BwQJARFAZXh0ck5hdGl2ZSgxMDYyKQEFB2FkZHJlc3MFGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFB2Fzc2V0SWQFBmFtb3VudAUDbmlsAwkAAAIFCmNoZWNrcG9pbnQFCmNoZWNrcG9pbnQFA2FjYwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQTdHJhbnNmZXJyaW5nQWN0aW9ucwoAAiRsBQdyZXdhcmRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQx0cmFuc2ZlcnJpbmcCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAkAzggCBRN0cmFuc2ZlcnJpbmdBY3Rpb25zBRFhY2NvdW50aW5nQWN0aW9ucwFpARBjbGFpbVBvb2xSZXdhcmRzAQRwb29sBAtwb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEcG9vbAQIcG9vbERhdGEJAQtnZXRQb29sRGF0YQEFBHBvb2wEC3Bvb2xMcFRva2VuCAUIcG9vbERhdGECXzEEGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwgFCHBvb2xEYXRhAl8yBBNjdXJyZW50V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0BAtjbGFpbVJlc3VsdAkA/AcEBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MCB2NsYWltV3gJAMwIAgULcG9vbExwVG9rZW4FA25pbAUDbmlsAwkAAAIFC2NsYWltUmVzdWx0BQtjbGFpbVJlc3VsdAQPbmV3V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1dYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAFA25pbAQGaXNQb29sCQAAAgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBQRwb29sBBBkaXN0cmlidXRlUmVzdWx0CQD8BwQFBHRoaXMCEWRpc3RyaWJ1dGVDbGFpbWVkCQDMCAIFBHBvb2wJAMwIAgUHY2xhaW1lZAkAzAgCBRNjdXJyZW50V1hPbkNvbnRyYWN0CQDMCAIFBmlzUG9vbAUDbmlsBQNuaWwDCQAAAgUQZGlzdHJpYnV0ZVJlc3VsdAUQZGlzdHJpYnV0ZVJlc3VsdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGXNldFRvdGFsQ2xhaW1lZEZvclNCVFBvb2wABAdzYnRQb29sCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9zYnRTdGFrZVBvb2xLZXkJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQdzYnRQb29sAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHc2J0UG9vbAAABQNuaWwBaQEMc2V0X3ZlcmlmaWVyAQh2ZXJpZmllcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECDnNlbGYgY2FsbCBvbmx5BAlhZGRyZXNzT0sEByRtYXRjaDAJAKYIAQUIdmVyaWZpZXIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAYHAwkBASEBBQlhZGRyZXNzT0sJAAIBCQCsAgICF3ZlcmlmaWVyIHdyb25nIGFkZHJlc3MgBQh2ZXJpZmllcgMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMCCHZlcmlmaWVyCQACAQIYdmVyaWZpZXIgYWxyZWFkeSBkZWZpbmVkCQDMCAIJAQtTdHJpbmdFbnRyeQICCHZlcmlmaWVyBQh2ZXJpZmllcgUDbmlsAQJ0eAEGdmVyaWZ5AAQHJG1hdGNoMAkAnQgCBQR0aGlzAgh2ZXJpZmllcgMJAAECBQckbWF0Y2gwAgZTdHJpbmcECHZlcmlmaWVyBQckbWF0Y2gwCQELdmFsdWVPckVsc2UCCQCbCAIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCHZlcmlmaWVyCQCsAgIJAKwCAgkArAICAgdzdGF0dXNfCQClCAEFBHRoaXMCAV8JANgEAQgFAnR4AmlkBwkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tlediE7XE=",
    "height": 3954771,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2agHvEFb7BKeox6HePDprpUwTdap94gbDgHqrdAZd8JC
Next: 5NASMkCGGtpX2UfqGekTuiL6nsHnkNsA73Rw3Ma57M18

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 
9393     }
9494 
9595 
96+func calculateRewardsAndPrerareData (pool,claimed,wxDust) = if ((0 >= claimed))
97+    then nil
98+    else {
99+        let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
100+        let sbtStakePool = getStringValue(sbtStakePoolKey)
101+        let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
102+        let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
103+        let additionalRewardPool = getStringValue(additionalRewardPoolKey)
104+        let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
105+        let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
106+            then 0
107+            else if ((additionalRewardPool != pool))
108+                then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
109+                else 0
110+        let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
111+[$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + wxDust)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
112+        }
113+
114+
96115 func isAuthorizedPool (pool) = {
97116     let checkedPool = asAddressString(pool)
98117     let lpPools = getStringValue(lpPoolsKey)
107126         let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
108127         $Tuple2(poolLpToken, wavesExchangePoolAddress)
109128         }
110-
111-
112-@Callable(i)
113-func changeSBTStakePool (address) = if ((i.caller != this))
114-    then throw("Only self")
115-    else [StringEntry(sbtStakePoolKey, asAddressString(address))]
116-
117129 
118130 
119131 @Callable(i)
286298             else (0 >= payment.amount))
287299             then throw("Wrong LP Asset id or amount")
288300             else {
289-                let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
290-                if ((result == result))
291-                    then nil
301+                let currentWXOnContract = assetBalance(this, wxAssetId)
302+                if ((currentWXOnContract == currentWXOnContract))
303+                    then {
304+                        let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
305+                        if ((result == result))
306+                            then {
307+                                let newWXOnContract = assetBalance(this, wxAssetId)
308+                                let claimed = (newWXOnContract - currentWXOnContract)
309+                                if ((claimed == 0))
310+                                    then nil
311+                                    else {
312+                                        let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
313+                                        if ((distributeResult == distributeResult))
314+                                            then nil
315+                                            else throw("Strict value is not equal to itself.")
316+                                        }
317+                                }
318+                            else throw("Strict value is not equal to itself.")
319+                        }
292320                     else throw("Strict value is not equal to itself.")
293321                 }
294322         }
300328     let poolData = getPoolData(toBase58String(i.caller.bytes))
301329     let poolLpToken = poolData._1
302330     let wavesExchangePoolAddress = poolData._2
303-    let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
304-    if ((result == result))
305-        then [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
331+    let currentWXOnContract = assetBalance(this, wxAssetId)
332+    if ((currentWXOnContract == currentWXOnContract))
333+        then {
334+            let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
335+            if ((result == result))
336+                then {
337+                    let newWXOnContract = assetBalance(this, wxAssetId)
338+                    let claimed = (newWXOnContract - currentWXOnContract)
339+                    let baseActions = [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
340+                    if ((claimed == 0))
341+                        then baseActions
342+                        else {
343+                            let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
344+                            if ((distributeResult == distributeResult))
345+                                then baseActions
346+                                else throw("Strict value is not equal to itself.")
347+                            }
348+                    }
349+                else throw("Strict value is not equal to itself.")
350+            }
306351         else throw("Strict value is not equal to itself.")
307352     }
353+
354+
355+
356+@Callable(i)
357+func distubuteClaimed (pool,claimed,wxDust,useRegularTransfer) = if ((i.caller != this))
358+    then throw("self call only")
359+    else {
360+        let rewards = calculateRewardsAndPrerareData(pool, claimed, 0)
361+        func accounting (acc,t) =         {
362+            let address = t._1
363+            let assetId = t._2
364+            let amount = t._3
365+            if ((amount == 0))
366+                then acc
367+                else {
368+                    let key = if ((assetId == wxAssetId))
369+                        then poolTotalWxClaimedKey(address)
370+                        else poolTotalSbtClaimedKey(address)
371+                    (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
372+                    }
373+            }
374+
375+        let accountingActions = {
376+            let $l = rewards
377+            let $s = size($l)
378+            let $acc0 = nil
379+            func $f0_1 ($a,$i) =             if (($i >= $s))
380+                then $a
381+                else accounting($a, $l[$i])
382+
383+            func $f0_2 ($a,$i) =             if (($i >= $s))
384+                then $a
385+                else throw("List size exceeds 4")
386+
387+            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
388+            }
389+        func transferring (acc,t) =         {
390+            let address = t._1
391+            let assetId = t._2
392+            let amount = t._3
393+            if ((amount == 0))
394+                then acc
395+                else if (useRegularTransfer)
396+                    then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
397+                    else {
398+                        let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
399+                        if ((checkpoint == checkpoint))
400+                            then acc
401+                            else throw("Strict value is not equal to itself.")
402+                        }
403+            }
404+
405+        let transferringActions = {
406+            let $l = rewards
407+            let $s = size($l)
408+            let $acc0 = nil
409+            func $f1_1 ($a,$i) =             if (($i >= $s))
410+                then $a
411+                else transferring($a, $l[$i])
412+
413+            func $f1_2 ($a,$i) =             if (($i >= $s))
414+                then $a
415+                else throw("List size exceeds 4")
416+
417+            $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
418+            }
419+        (transferringActions ++ accountingActions)
420+        }
308421 
309422 
310423 
323436                     let newWXOnContract = assetBalance(this, wxAssetId)
324437                     let claimed = (newWXOnContract - currentWXOnContract)
325438                     if ((claimed == 0))
326-                        then $Tuple2(nil, false)
439+                        then nil
327440                         else {
328-                            let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
329-                            let sbtStakePool = getStringValue(sbtStakePoolKey)
330-                            let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
331-                            let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
332-                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
333-                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
334-                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
335-                                then 0
336-                                else if ((additionalRewardPool != pool))
337-                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
338-                                    else 0
339-                            let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
340-                            let rewards = [$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + currentWXOnContract)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
341-                            func accounting (acc,t) =                             {
342-                                let address = t._1
343-                                let assetId = t._2
344-                                let amount = t._3
345-                                if ((amount == 0))
346-                                    then acc
347-                                    else {
348-                                        let key = if ((assetId == wxAssetId))
349-                                            then poolTotalWxClaimedKey(address)
350-                                            else poolTotalSbtClaimedKey(address)
351-                                        (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
352-                                        }
353-                                }
354-
355-                            let accountingActions = {
356-                                let $l = rewards
357-                                let $s = size($l)
358-                                let $acc0 = nil
359-                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
360-                                    then $a
361-                                    else accounting($a, $l[$i])
362-
363-                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
364-                                    then $a
365-                                    else throw("List size exceeds 4")
366-
367-                                $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
368-                                }
369-                            let caller = toString(i.caller)
370-                            func transferring (acc,t) =                             {
371-                                let address = t._1
372-                                let assetId = t._2
373-                                let amount = t._3
374-                                if ((amount == 0))
375-                                    then acc
376-                                    else if ((address == caller))
377-                                        then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
378-                                        else {
379-                                            let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
380-                                            if ((checkpoint == checkpoint))
381-                                                then acc
382-                                                else throw("Strict value is not equal to itself.")
383-                                            }
384-                                }
385-
386-                            let transferringActions = {
387-                                let $l = rewards
388-                                let $s = size($l)
389-                                let $acc0 = nil
390-                                func $f1_1 ($a,$i) =                                 if (($i >= $s))
391-                                    then $a
392-                                    else transferring($a, $l[$i])
393-
394-                                func $f1_2 ($a,$i) =                                 if (($i >= $s))
395-                                    then $a
396-                                    else throw("List size exceeds 4")
397-
398-                                $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
399-                                }
400-                            $Tuple2((transferringActions ++ accountingActions), (size(transferringActions) > 0))
441+                            let isPool = (toBase58String(i.caller.bytes) == pool)
442+                            let distributeResult = invoke(this, "distributeClaimed", [pool, claimed, currentWXOnContract, isPool], nil)
443+                            if ((distributeResult == distributeResult))
444+                                then nil
445+                                else throw("Strict value is not equal to itself.")
401446                             }
402447                     }
403448                 else throw("Strict value is not equal to itself.")
404449             }
405450         else throw("Strict value is not equal to itself.")
451+    }
452+
453+
454+
455+@Callable(i)
456+func setTotalClaimedForSBTPool () = {
457+    let sbtPool = getStringValue(sbtStakePoolKey)
458+[IntegerEntry(poolTotalWxClaimedKey(sbtPool), 0), IntegerEntry(poolTotalSbtClaimedKey(sbtPool), 0)]
406459     }
407460 
408461 

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 
96+func calculateRewardsAndPrerareData (pool,claimed,wxDust) = if ((0 >= claimed))
97+    then nil
98+    else {
99+        let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
100+        let sbtStakePool = getStringValue(sbtStakePoolKey)
101+        let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
102+        let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
103+        let additionalRewardPool = getStringValue(additionalRewardPoolKey)
104+        let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
105+        let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
106+            then 0
107+            else if ((additionalRewardPool != pool))
108+                then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
109+                else 0
110+        let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
111+[$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + wxDust)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
112+        }
113+
114+
96115 func isAuthorizedPool (pool) = {
97116     let checkedPool = asAddressString(pool)
98117     let lpPools = getStringValue(lpPoolsKey)
99118     contains(lpPools, checkedPool)
100119     }
101120 
102121 
103122 func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
104123     then throw("Not authorized pool")
105124     else {
106125         let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
107126         let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
108127         $Tuple2(poolLpToken, wavesExchangePoolAddress)
109128         }
110-
111-
112-@Callable(i)
113-func changeSBTStakePool (address) = if ((i.caller != this))
114-    then throw("Only self")
115-    else [StringEntry(sbtStakePoolKey, asAddressString(address))]
116-
117129 
118130 
119131 @Callable(i)
120132 func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
121133     then throw("Constructor can be called one time")
122134     else {
123135         let sbWx = Issue("sbWX", "", 0, 8, true, unit, 0)
124136         let assetId = calculateAssetId(sbWx)
125137         let sbtStakePoolChecked = asAddressString(sbtStakePool)
126138 [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)]
127139         }
128140 
129141 
130142 
131143 @Callable(i)
132144 func mintSbWx () = if ((size(i.payments) != 1))
133145     then throw("One Payment expected")
134146     else {
135147         let payment = asPayment(i.payments[0])
136148         let amount = payment.amount
137149         if (if ((payment.assetId != wxAssetId))
138150             then true
139151             else (0 >= amount))
140152             then throw("Wrong Asset id or amount")
141153             else {
142154                 let totalWXLocked = getIntegerValue(totalWXLockedKey)
143155                 let sbWxAssetId = getStringValue(sbWxAssetIdKey)
144156                 let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", [toBase58String(this.bytes)], nil)
145157                 if ((wavesExchangeInfo == wavesExchangeInfo))
146158                     then                     match wavesExchangeInfo {
147159                         case tuple: (String, Int) => 
148160                             let functionName = tuple._1
149161                             let maxLockDuration = tuple._2
150162                             let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
151163                             if ((result == result))
152164                                 then {
153165                                     let sbWx = fromBase58String(sbWxAssetId)
154166 [Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
155167                                     }
156168                                 else throw("Strict value is not equal to itself.")
157169                         case _ => 
158170                             throw("FATAL: Inconsistent data")
159171                     }
160172                     else throw("Strict value is not equal to itself.")
161173                 }
162174         }
163175 
164176 
165177 
166178 @Callable(i)
167179 func claimWxStakingRewards () = {
168180     let currentWxOnContract = assetBalance(this, wxAssetId)
169181     if ((currentWxOnContract == currentWxOnContract))
170182         then {
171183             let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
172184             if ((claimResult == claimResult))
173185                 then {
174186                     let newWxOnContract = assetBalance(this, wxAssetId)
175187                     let claimed = (newWxOnContract - currentWxOnContract)
176188                     if ((claimed == 0))
177189                         then throw("Nothing to claim")
178190                         else {
179191                             let sbtStakePool = getStringValue(sbtStakePoolKey)
180192                             let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
181193                             let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, claimed)])
182194                             if ((checkpointResult == checkpointResult))
183195                                 then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + claimed))]
184196                                 else throw("Strict value is not equal to itself.")
185197                             }
186198                     }
187199                 else throw("Strict value is not equal to itself.")
188200             }
189201         else throw("Strict value is not equal to itself.")
190202     }
191203 
192204 
193205 
194206 @Callable(i)
195207 func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
196208     then throw("Only Admin can call this function")
197209     else {
198210         let lpPools = getStringValue(lpPoolsKey)
199211         if (isAuthorizedPool(address))
200212             then throw("Pool already added")
201213             else {
202214                 let newPools = if ((size(lpPools) == 0))
203215                     then address
204216                     else ((lpPools + SEP) + address)
205217 [StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress)), IntegerEntry(poolTotalSbtClaimedKey(address), 0), IntegerEntry(poolTotalWxClaimedKey(address), 0)]
206218                 }
207219         }
208220 
209221 
210222 
211223 @Callable(i)
212224 func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
213225     then throw("Only Admin can call this function")
214226     else {
215227         let lpPools = getStringValue(lpPoolsKey)
216228         if (!(isAuthorizedPool(address)))
217229             then throw("Pool not found")
218230             else {
219231                 let poolLpTokensAmount = getIntegerValue(addressFromStringValue(address), "tokens")
220232                 let poolRootContractAddress = getStringValue(addressFromStringValue(address), "root_contract")
221233                 if (if ((poolLpTokensAmount > 0))
222234                     then (poolRootContractAddress != "")
223235                     else false)
224236                     then throw("Withdraw all LP tokens first")
225237                     else {
226238                         let invalidateConnectionResult = if ((poolRootContractAddress == ""))
227239                             then nil
228240                             else invoke(addressFromStringValue(address), "invalidate_root_contract_connection", nil, nil)
229241                         if ((invalidateConnectionResult == invalidateConnectionResult))
230242                             then {
231243                                 let poolsArray = split_4C(lpPools, SEP)
232244                                 let poolIndex = asInt(indexOf(poolsArray, address))
233245                                 let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
234246                                 ([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
235247                                     then [StringEntry(additionalRewardPoolKey, "")]
236248                                     else nil))
237249                                 }
238250                             else throw("Strict value is not equal to itself.")
239251                         }
240252                 }
241253         }
242254 
243255 
244256 
245257 @Callable(i)
246258 func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
247259     then throw("Only Admin can call this function")
248260     else if (!(isAuthorizedPool(address)))
249261         then throw("Only authorized pool can be added as additional reward pool")
250262         else [StringEntry(additionalRewardPoolKey, address)]
251263 
252264 
253265 
254266 @Callable(i)
255267 func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
256268     then throw("Only Admin can call this function")
257269     else if ((fee > 2000))
258270         then throw("Fee can't be bigger than 20%")
259271         else if ((0 > fee))
260272             then throw("Fee can't be negative")
261273             else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
262274 
263275 
264276 
265277 @Callable(i)
266278 func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
267279     then throw("Only Admin can call this function")
268280     else if ((fee > 2000))
269281         then throw("Fee can't be bigger than 20%")
270282         else if ((0 > fee))
271283             then throw("Fee can't be negative")
272284             else [IntegerEntry(sbtStakePoolFeeKey, fee)]
273285 
274286 
275287 
276288 @Callable(i)
277289 func stakePoolLps () = if ((size(i.payments) != 1))
278290     then throw("One Payment expected")
279291     else {
280292         let poolData = getPoolData(toBase58String(i.caller.bytes))
281293         let poolLpToken = poolData._1
282294         let wavesExchangePoolAddress = poolData._2
283295         let payment = asPayment(i.payments[0])
284296         if (if ((payment.assetId != fromBase58String(poolLpToken)))
285297             then true
286298             else (0 >= payment.amount))
287299             then throw("Wrong LP Asset id or amount")
288300             else {
289-                let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
290-                if ((result == result))
291-                    then nil
301+                let currentWXOnContract = assetBalance(this, wxAssetId)
302+                if ((currentWXOnContract == currentWXOnContract))
303+                    then {
304+                        let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
305+                        if ((result == result))
306+                            then {
307+                                let newWXOnContract = assetBalance(this, wxAssetId)
308+                                let claimed = (newWXOnContract - currentWXOnContract)
309+                                if ((claimed == 0))
310+                                    then nil
311+                                    else {
312+                                        let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
313+                                        if ((distributeResult == distributeResult))
314+                                            then nil
315+                                            else throw("Strict value is not equal to itself.")
316+                                        }
317+                                }
318+                            else throw("Strict value is not equal to itself.")
319+                        }
292320                     else throw("Strict value is not equal to itself.")
293321                 }
294322         }
295323 
296324 
297325 
298326 @Callable(i)
299327 func withdrawPoolLps (amount) = {
300328     let poolData = getPoolData(toBase58String(i.caller.bytes))
301329     let poolLpToken = poolData._1
302330     let wavesExchangePoolAddress = poolData._2
303-    let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
304-    if ((result == result))
305-        then [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
331+    let currentWXOnContract = assetBalance(this, wxAssetId)
332+    if ((currentWXOnContract == currentWXOnContract))
333+        then {
334+            let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
335+            if ((result == result))
336+                then {
337+                    let newWXOnContract = assetBalance(this, wxAssetId)
338+                    let claimed = (newWXOnContract - currentWXOnContract)
339+                    let baseActions = [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
340+                    if ((claimed == 0))
341+                        then baseActions
342+                        else {
343+                            let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
344+                            if ((distributeResult == distributeResult))
345+                                then baseActions
346+                                else throw("Strict value is not equal to itself.")
347+                            }
348+                    }
349+                else throw("Strict value is not equal to itself.")
350+            }
306351         else throw("Strict value is not equal to itself.")
307352     }
353+
354+
355+
356+@Callable(i)
357+func distubuteClaimed (pool,claimed,wxDust,useRegularTransfer) = if ((i.caller != this))
358+    then throw("self call only")
359+    else {
360+        let rewards = calculateRewardsAndPrerareData(pool, claimed, 0)
361+        func accounting (acc,t) =         {
362+            let address = t._1
363+            let assetId = t._2
364+            let amount = t._3
365+            if ((amount == 0))
366+                then acc
367+                else {
368+                    let key = if ((assetId == wxAssetId))
369+                        then poolTotalWxClaimedKey(address)
370+                        else poolTotalSbtClaimedKey(address)
371+                    (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
372+                    }
373+            }
374+
375+        let accountingActions = {
376+            let $l = rewards
377+            let $s = size($l)
378+            let $acc0 = nil
379+            func $f0_1 ($a,$i) =             if (($i >= $s))
380+                then $a
381+                else accounting($a, $l[$i])
382+
383+            func $f0_2 ($a,$i) =             if (($i >= $s))
384+                then $a
385+                else throw("List size exceeds 4")
386+
387+            $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
388+            }
389+        func transferring (acc,t) =         {
390+            let address = t._1
391+            let assetId = t._2
392+            let amount = t._3
393+            if ((amount == 0))
394+                then acc
395+                else if (useRegularTransfer)
396+                    then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
397+                    else {
398+                        let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
399+                        if ((checkpoint == checkpoint))
400+                            then acc
401+                            else throw("Strict value is not equal to itself.")
402+                        }
403+            }
404+
405+        let transferringActions = {
406+            let $l = rewards
407+            let $s = size($l)
408+            let $acc0 = nil
409+            func $f1_1 ($a,$i) =             if (($i >= $s))
410+                then $a
411+                else transferring($a, $l[$i])
412+
413+            func $f1_2 ($a,$i) =             if (($i >= $s))
414+                then $a
415+                else throw("List size exceeds 4")
416+
417+            $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
418+            }
419+        (transferringActions ++ accountingActions)
420+        }
308421 
309422 
310423 
311424 @Callable(i)
312425 func claimPoolRewards (pool) = {
313426     let poolAddress = addressFromStringValue(pool)
314427     let poolData = getPoolData(pool)
315428     let poolLpToken = poolData._1
316429     let wavesExchangePoolAddress = poolData._2
317430     let currentWXOnContract = assetBalance(this, wxAssetId)
318431     if ((currentWXOnContract == currentWXOnContract))
319432         then {
320433             let claimResult = invoke(wavesExchangePoolAddress, "claimWx", [poolLpToken], nil)
321434             if ((claimResult == claimResult))
322435                 then {
323436                     let newWXOnContract = assetBalance(this, wxAssetId)
324437                     let claimed = (newWXOnContract - currentWXOnContract)
325438                     if ((claimed == 0))
326-                        then $Tuple2(nil, false)
439+                        then nil
327440                         else {
328-                            let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
329-                            let sbtStakePool = getStringValue(sbtStakePoolKey)
330-                            let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
331-                            let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
332-                            let additionalRewardPool = getStringValue(additionalRewardPoolKey)
333-                            let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
334-                            let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
335-                                then 0
336-                                else if ((additionalRewardPool != pool))
337-                                    then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
338-                                    else 0
339-                            let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
340-                            let rewards = [$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + currentWXOnContract)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
341-                            func accounting (acc,t) =                             {
342-                                let address = t._1
343-                                let assetId = t._2
344-                                let amount = t._3
345-                                if ((amount == 0))
346-                                    then acc
347-                                    else {
348-                                        let key = if ((assetId == wxAssetId))
349-                                            then poolTotalWxClaimedKey(address)
350-                                            else poolTotalSbtClaimedKey(address)
351-                                        (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
352-                                        }
353-                                }
354-
355-                            let accountingActions = {
356-                                let $l = rewards
357-                                let $s = size($l)
358-                                let $acc0 = nil
359-                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
360-                                    then $a
361-                                    else accounting($a, $l[$i])
362-
363-                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
364-                                    then $a
365-                                    else throw("List size exceeds 4")
366-
367-                                $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
368-                                }
369-                            let caller = toString(i.caller)
370-                            func transferring (acc,t) =                             {
371-                                let address = t._1
372-                                let assetId = t._2
373-                                let amount = t._3
374-                                if ((amount == 0))
375-                                    then acc
376-                                    else if ((address == caller))
377-                                        then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
378-                                        else {
379-                                            let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
380-                                            if ((checkpoint == checkpoint))
381-                                                then acc
382-                                                else throw("Strict value is not equal to itself.")
383-                                            }
384-                                }
385-
386-                            let transferringActions = {
387-                                let $l = rewards
388-                                let $s = size($l)
389-                                let $acc0 = nil
390-                                func $f1_1 ($a,$i) =                                 if (($i >= $s))
391-                                    then $a
392-                                    else transferring($a, $l[$i])
393-
394-                                func $f1_2 ($a,$i) =                                 if (($i >= $s))
395-                                    then $a
396-                                    else throw("List size exceeds 4")
397-
398-                                $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
399-                                }
400-                            $Tuple2((transferringActions ++ accountingActions), (size(transferringActions) > 0))
441+                            let isPool = (toBase58String(i.caller.bytes) == pool)
442+                            let distributeResult = invoke(this, "distributeClaimed", [pool, claimed, currentWXOnContract, isPool], nil)
443+                            if ((distributeResult == distributeResult))
444+                                then nil
445+                                else throw("Strict value is not equal to itself.")
401446                             }
402447                     }
403448                 else throw("Strict value is not equal to itself.")
404449             }
405450         else throw("Strict value is not equal to itself.")
451+    }
452+
453+
454+
455+@Callable(i)
456+func setTotalClaimedForSBTPool () = {
457+    let sbtPool = getStringValue(sbtStakePoolKey)
458+[IntegerEntry(poolTotalWxClaimedKey(sbtPool), 0), IntegerEntry(poolTotalSbtClaimedKey(sbtPool), 0)]
406459     }
407460 
408461 
409462 
410463 @Callable(i)
411464 func set_verifier (verifier) = if ((i.caller != this))
412465     then throw("self call only")
413466     else {
414467         let addressOK =         match addressFromString(verifier) {
415468             case a: Address => 
416469                 true
417470             case _ => 
418471                 false
419472         }
420473         if (!(addressOK))
421474             then throw(("verifier wrong address " + verifier))
422475             else if (isDefined(getString(this, "verifier")))
423476                 then throw("verifier already defined")
424477                 else [StringEntry("verifier", verifier)]
425478         }
426479 
427480 
428481 @Verifier(tx)
429482 func verify () = match getString(this, "verifier") {
430483     case verifier: String => 
431484         valueOrElse(getBoolean(addressFromStringValue(verifier), ((("status_" + toString(this)) + "_") + toBase58String(tx.id))), false)
432485     case _ => 
433486         sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
434487 }
435488 
github/deemru/w8io/3ef1775 
45.83 ms ◑