w8 · tx · 8G8···h1J

tx · 8G8AksTcVhiBBQyKZtGLM1Tv7WABjeAGToSLL3xP8h1J

3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S:  -0.01700000 Waves

2023.12.19 11:27 [3959236] smart account 3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8G8AksTcVhiBBQyKZtGLM1Tv7WABjeAGToSLL3xP8h1J",
    "fee": 1700000,
    "feeAssetId": null,
    "timestamp": 1702974470587,
    "version": 2,
    "chainId": 87,
    "sender": "3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S",
    "senderPublicKey": "33eckRoXnCjLErhAuK5EKSVyuSzBNsNr6Rawz3YSppLR",
    "proofs": [
        "5egdTFjkppAcvJCYGqdwSB2S5oCRFQhHXf66AFG4gg5UEvtRWEip7Suy4pnugxNLZPqUtQMRzdbax2r3V3yy8MjZ"
    ],
    "script": "base64:BgJDCAISBgoECAgBARIAEgASBAoCCAgSAwoBCBIDCgEIEgMKAQESAwoBARIAEgMKAQESBgoECAEBBBIDCgEIEgASAwoBCB0AA1NFUAICX18AB2ZlZVJhbmsAkE4ADnNidFRva2VuRGlnaXRzAIDC1y8AGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lAgpjaGVja3BvaW50AAl3eEFzc2V0SWQBIJMBHKupx24lV85mnnG2vapr+DzoWAsq7tmgTrs83BSxAApzYnRBc3NldElkASDpjK4TqBsUcFmv1AtYbbrtszKd3p4xuN+TjUZFLtrKsQANd2F2ZXNFeGNoYW5nZQEaAVez5uZVGBFpsOQzD4hRQ6ScrtbVSwNLEVgAFWNsYWltV3hSZXdhcmRDb250cmFjdAEaAVempdxaW+NIZ4GMEMr0xVkFLvazvGYbF80AEGlzQ29uc3RydWN0ZWRLZXkCDmlzX2NvbnN0cnVjdGVkAA9hZG1pbkFkZHJlc3NLZXkCDWFkbWluX2FkZHJlc3MADnNiV3hBc3NldElkS2V5Ag5zYl93eF9hc3NldF9pZAAKbHBQb29sc0tleQIIbHBfcG9vbHMAF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AhZhZGRpdGlvbmFsX3Jld2FyZF9wb29sABphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQIaYWRkaXRpb25hbF9yZXdhcmRfcG9vbF9mZWUAD3NidFN0YWtlUG9vbEtleQIOc2J0X3N0YWtlX3Bvb2wAEnNidFN0YWtlUG9vbEZlZUtleQISc2J0X3N0YWtlX3Bvb2xfZmVlABB0b3RhbFdYTG9ja2VkS2V5Ag90b3RhbF93eF9sb2NrZWQAGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkCGWluaXRpYWxfU0JUX3Rva2Vuc19hbW91bnQAJmJhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuS2V5AipiYXNlX1NCVF90b2tlbl9hbW91bnRfZm9yX29uZV9yZXdhcmRfdG9rZW4BFnBvb2xUb3RhbFNidENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEXRvdGFsX3NidF9jbGFpbWVkARVwb29sVG90YWxXeENsYWltZWRLZXkBBHBvb2wJAKwCAgkArAICBQRwb29sBQNTRVACEHRvdGFsX3d4X2NsYWltZWQBCWFzUGF5bWVudAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAg9BdHRhY2hlZFBheW1lbnQEAXAFByRtYXRjaDAFAXAJAAIBAiFmYWlsIHRvIGNhc3QgaW50byBBdHRhY2hlZFBheW1lbnQBDGFzQnl0ZVZlY3RvcgEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFwBQckbWF0Y2gwBQFwCQACAQIcZmFpbCB0byBjYXN0IGludG8gQnl0ZVZlY3RvcgEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBD2FzQWRkcmVzc1N0cmluZwEHYWRkcmVzcwQHJG1hdGNoMAkApggBBQdhZGRyZXNzAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAJAKUIAQUBYQkAAgECIGZhaWwgdG8gY2FzdCBpbnRvIEFkZHJlc3MgU3RyaW5nAR9jYWxjdWxhdGVDdXJyZW50UmV3YXJkU0JUQW1vdW50ARByZXdhcmRUb2tlbkNvdW50BCNiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkEFmluaXRpYWxTQlRUb2tlbnNBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkEF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlCQDwBwIFBHRoaXMFCnNidEFzc2V0SWQDCQAAAgUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UAAAAABCZjdXJyZW50U0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkAawMFI2Jhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAQJYW1vdW50U0JUCQBrAwUQcmV3YXJkVG9rZW5Db3VudAUmY3VycmVudFNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW4FDnNidFRva2VuRGlnaXRzAwkAZgIFCWFtb3VudFNCVAUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UFF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlBQlhbW91bnRTQlQBHmNhbGN1bGF0ZVJld2FyZHNBbmRQcmVyYXJlRGF0YQMEcG9vbAdjbGFpbWVkBnd4RHVzdAMJAGcCAAAFB2NsYWltZWQFA25pbAQPc2J0UmV3YXJkQW1vdW50CQEfY2FsY3VsYXRlQ3VycmVudFJld2FyZFNCVEFtb3VudAEFB2NsYWltZWQEDHNidFN0YWtlUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BA9zYnRTdGFrZVBvb2xGZWUJARFAZXh0ck5hdGl2ZSgxMDU1KQEFEnNidFN0YWtlUG9vbEZlZUtleQQSc2J0U3Rha2VQb29sQW1vdW50CQBuBAUHY2xhaW1lZAUPc2J0U3Rha2VQb29sRmVlBQdmZWVSYW5rBQZIQUxGVVAEFGFkZGl0aW9uYWxSZXdhcmRQb29sCQERQGV4dHJOYXRpdmUoMTA1OCkBBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQQYYWRkaXRpb25hbFJld2FyZFBvb2xGcmVlCQERQGV4dHJOYXRpdmUoMTA1NSkBBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQQaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQDCQAAAgkAsQIBBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAAAAAADCQECIT0CBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAUEcG9vbAkAbgQFB2NsYWltZWQFGGFkZGl0aW9uYWxSZXdhcmRQb29sRnJlZQUHZmVlUmFuawUGSEFMRlVQAAAEC3Bvb2xDbGFpbWVkCQBlAgkAZQIFB2NsYWltZWQFEnNidFN0YWtlUG9vbEFtb3VudAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQJAMwIAgkAlQoDBQRwb29sBQpzYnRBc3NldElkBQ9zYnRSZXdhcmRBbW91bnQJAMwIAgkAlQoDBQxzYnRTdGFrZVBvb2wFCXd4QXNzZXRJZAkAZAIFEnNidFN0YWtlUG9vbEFtb3VudAUGd3hEdXN0CQDMCAIJAJUKAwUUYWRkaXRpb25hbFJld2FyZFBvb2wFCXd4QXNzZXRJZAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQJAMwIAgkAlQoDBQRwb29sBQl3eEFzc2V0SWQFC3Bvb2xDbGFpbWVkBQNuaWwBEGlzQXV0aG9yaXplZFBvb2wBBHBvb2wEC2NoZWNrZWRQb29sCQEPYXNBZGRyZXNzU3RyaW5nAQUEcG9vbAQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQkBCGNvbnRhaW5zAgUHbHBQb29scwULY2hlY2tlZFBvb2wBC2dldFBvb2xEYXRhAQRwb29sAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFBHBvb2wJAAIBAhNOb3QgYXV0aG9yaXplZCBwb29sBAtwb29sTHBUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTMpAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUEcG9vbAIFdG9rZW4EGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUEcG9vbAkAlAoCBQtwb29sTHBUb2tlbgUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzDgFpAQtjb25zdHJ1Y3RvcgQMYWRtaW5BZGRyZXNzDHNidFN0YWtlUG9vbBZpbml0aWFsU0JUVG9rZW5zQW1vdW50GnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuAwkBCWlzRGVmaW5lZAEJAKAIAQUQaXNDb25zdHJ1Y3RlZEtleQkAAgECIkNvbnN0cnVjdG9yIGNhbiBiZSBjYWxsZWQgb25lIHRpbWUEBHNiV3gJAMMIBwIEc2JXWAIAAAAACAYFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQRzYld4BBNzYnRTdGFrZVBvb2xDaGVja2VkCQEPYXNBZGRyZXNzU3RyaW5nAQUMc2J0U3Rha2VQb29sCQDMCAIFBHNiV3gJAMwIAgkBC1N0cmluZ0VudHJ5AgUOc2JXeEFzc2V0SWRLZXkJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQ9hZG1pbkFkZHJlc3NLZXkJAQ9hc0FkZHJlc3NTdHJpbmcBBQxhZG1pbkFkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUPc2J0U3Rha2VQb29sS2V5BRNzYnRTdGFrZVBvb2xDaGVja2VkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJzYnRTdGFrZVBvb2xGZWVLZXkA+AoJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUTc2J0U3Rha2VQb29sQ2hlY2tlZAAACQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkCAAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQDYBAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUQaXNDb25zdHJ1Y3RlZEtleQYJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkFGnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuBQNuaWwBaQEIbWludFNiV3gAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIUT25lIFBheW1lbnQgZXhwZWN0ZWQEB3BheW1lbnQJAQlhc1BheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFB3BheW1lbnQGYW1vdW50AwMJAQIhPQIIBQdwYXltZW50B2Fzc2V0SWQFCXd4QXNzZXRJZAYJAGcCAAAFBmFtb3VudAkAAgECGFdyb25nIEFzc2V0IGlkIG9yIGFtb3VudAQNdG90YWxXWExvY2tlZAkBEUBleHRyTmF0aXZlKDEwNTUpAQUQdG90YWxXWExvY2tlZEtleQQLc2JXeEFzc2V0SWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEFDnNiV3hBc3NldElkS2V5BBF3YXZlc0V4Y2hhbmdlSW5mbwkA/AcECQEHQWRkcmVzcwEFDXdhdmVzRXhjaGFuZ2UCF3VzZXJNYXhEdXJhdGlvblJFQURPTkxZCQDMCAIJANgEAQgFBHRoaXMFYnl0ZXMFA25pbAUDbmlsAwkAAAIFEXdhdmVzRXhjaGFuZ2VJbmZvBRF3YXZlc0V4Y2hhbmdlSW5mbwQHJG1hdGNoMAURd2F2ZXNFeGNoYW5nZUluZm8DCQABAgUHJG1hdGNoMAINKFN0cmluZywgSW50KQQFdHVwbGUFByRtYXRjaDAEDGZ1bmN0aW9uTmFtZQgFBXR1cGxlAl8xBA9tYXhMb2NrRHVyYXRpb24IBQV0dXBsZQJfMgQGcmVzdWx0CQD8BwQJAQdBZGRyZXNzAQUNd2F2ZXNFeGNoYW5nZQUMZnVuY3Rpb25OYW1lCQDMCAIFD21heExvY2tEdXJhdGlvbgUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAQEc2JXeAkA2QQBBQtzYld4QXNzZXRJZAkAzAgCCQEHUmVpc3N1ZQMFBHNiV3gFBmFtb3VudAYJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBB0FkZHJlc3MBCAgFAWkGY2FsbGVyBWJ5dGVzBQZhbW91bnQFBHNiV3gJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkJAGQCBQ10b3RhbFdYTG9ja2VkBQZhbW91bnQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECGEZBVEFMOiBJbmNvbnNpc3RlbnQgZGF0YQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARVjbGFpbVd4U3Rha2luZ1Jld2FyZHMABBNjdXJyZW50V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V3hPbkNvbnRyYWN0BRNjdXJyZW50V3hPbkNvbnRyYWN0BAtjbGFpbVJlc3VsdAkA/AcECQEHQWRkcmVzcwEFFWNsYWltV3hSZXdhcmRDb250cmFjdAILY2xhaW1SZXdhcmQFA25pbAUDbmlsAwkAAAIFC2NsYWltUmVzdWx0BQtjbGFpbVJlc3VsdAQPbmV3V3hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1d4T25Db250cmFjdAUTY3VycmVudFd4T25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAJAAIBAhBOb3RoaW5nIHRvIGNsYWltBAxzYnRTdGFrZVBvb2wJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD3NidFN0YWtlUG9vbEtleQQTc2J0U3Rha2VQb29sQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNjIpAQUMc2J0U3Rha2VQb29sBBBjaGVja3BvaW50UmVzdWx0CQD8BwQFE3NidFN0YWtlUG9vbEFkZHJlc3MFGnBvb2xDaGVja3BvaW50RnVuY3Rpb25OYW1lBQNuaWwJAMwIAgkBD0F0dGFjaGVkUGF5bWVudAIFCXd4QXNzZXRJZAUHY2xhaW1lZAUDbmlsAwkAAAIFEGNoZWNrcG9pbnRSZXN1bHQFEGNoZWNrcG9pbnRSZXN1bHQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQxzYnRTdGFrZVBvb2wJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUMc2J0U3Rha2VQb29sBQdjbGFpbWVkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHYWRkUG9vbAIHYWRkcmVzcxh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQMJARBpc0F1dGhvcml6ZWRQb29sAQUHYWRkcmVzcwkAAgECElBvb2wgYWxyZWFkeSBhZGRlZAQIbmV3UG9vbHMDCQAAAgkAsQIBBQdscFBvb2xzAAAFB2FkZHJlc3MJAKwCAgkArAICBQdscFBvb2xzBQNTRVAFB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC1N0cmluZ0VudHJ5AgkBD2FzQWRkcmVzc1N0cmluZwEFB2FkZHJlc3MJAQ9hc0FkZHJlc3NTdHJpbmcBBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHYWRkcmVzcwAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUHYWRkcmVzcwAABQNuaWwBaQEKcmVtb3ZlUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5AwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAg5Qb29sIG5vdCBmb3VuZAQScG9vbExwVG9rZW5zQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1MCkCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAgZ0b2tlbnMEF3Bvb2xSb290Q29udHJhY3RBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzAg1yb290X2NvbnRyYWN0AwMJAGYCBRJwb29sTHBUb2tlbnNBbW91bnQAAAkBAiE9AgUXcG9vbFJvb3RDb250cmFjdEFkZHJlc3MCAAcJAAIBAhxXaXRoZHJhdyBhbGwgTFAgdG9rZW5zIGZpcnN0BBppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAMJAAACBRdwb29sUm9vdENvbnRyYWN0QWRkcmVzcwIABQNuaWwJAPwHBAkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWRkcmVzcwIjaW52YWxpZGF0ZV9yb290X2NvbnRyYWN0X2Nvbm5lY3Rpb24FA25pbAUDbmlsAwkAAAIFGmludmFsaWRhdGVDb25uZWN0aW9uUmVzdWx0BRppbnZhbGlkYXRlQ29ubmVjdGlvblJlc3VsdAQKcG9vbHNBcnJheQkAvAkCBQdscFBvb2xzBQNTRVAECXBvb2xJbmRleAkBBWFzSW50AQkAzwgCBQpwb29sc0FycmF5BQdhZGRyZXNzBAhuZXdQb29scwkAugkCCQDRCAIFCnBvb2xzQXJyYXkFCXBvb2xJbmRleAUDU0VQCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHYWRkcmVzcwUDbmlsAwkAAAIJARFAZXh0ck5hdGl2ZSgxMDU4KQEFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5BQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AgAFA25pbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBGHNldEFkZGl0aW9uYWxSZXdhcmRzUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAjtPbmx5IGF1dGhvcml6ZWQgcG9vbCBjYW4gYmUgYWRkZWQgYXMgYWRkaXRpb25hbCByZXdhcmQgcG9vbAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQUHYWRkcmVzcwUDbmlsAWkBG3NldEFkZGl0aW9uYWxSZXdhcmRzUG9vbEZlZQEDZmVlAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24DCQBmAgUDZmVlANAPCQACAQIcRmVlIGNhbid0IGJlIGJpZ2dlciB0aGFuIDIwJQMJAGYCAAAFA2ZlZQkAAgECFUZlZSBjYW4ndCBiZSBuZWdhdGl2ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkFA2ZlZQUDbmlsAWkBDXNldFNidFBvb2xGZWUBA2ZlZQMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkAZgIFA2ZlZQDQDwkAAgECHEZlZSBjYW4ndCBiZSBiaWdnZXIgdGhhbiAyMCUDCQBmAgAABQNmZWUJAAIBAhVGZWUgY2FuJ3QgYmUgbmVnYXRpdmUJAMwIAgkBDEludGVnZXJFbnRyeQIFEnNidFN0YWtlUG9vbEZlZUtleQUDZmVlBQNuaWwBaQEMc3Rha2VQb29sTHBzAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECFE9uZSBQYXltZW50IGV4cGVjdGVkBAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQHcGF5bWVudAkBCWFzUGF5bWVudAEJAJEDAggFAWkIcGF5bWVudHMAAAMDCQECIT0CCAUHcGF5bWVudAdhc3NldElkCQDZBAEFC3Bvb2xMcFRva2VuBgkAZwIAAAgFB3BheW1lbnQGYW1vdW50CQACAQIbV3JvbmcgTFAgQXNzZXQgaWQgb3IgYW1vdW50BBNjdXJyZW50V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgVzdGFrZQUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAQPbmV3V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAQHY2xhaW1lZAkAZQIFD25ld1dYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAMJAAACBQdjbGFpbWVkAAAFA25pbAQQZGlzdHJpYnV0ZVJlc3VsdAkA/AcEBQR0aGlzAhFkaXN0cmlidXRlQ2xhaW1lZAkAzAgCCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgUHY2xhaW1lZAkAzAgCBRNjdXJyZW50V1hPbkNvbnRyYWN0CQDMCAIGBQNuaWwFA25pbAMJAAACBRBkaXN0cmlidXRlUmVzdWx0BRBkaXN0cmlidXRlUmVzdWx0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPd2l0aGRyYXdQb29sTHBzAQZhbW91bnQECHBvb2xEYXRhCQELZ2V0UG9vbERhdGEBCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEC3Bvb2xMcFRva2VuCAUIcG9vbERhdGECXzEEGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwgFCHBvb2xEYXRhAl8yBBNjdXJyZW50V1hPbkNvbnRyYWN0CQDwBwIFBHRoaXMFCXd4QXNzZXRJZAMJAAACBRNjdXJyZW50V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgd1bnN0YWtlCQDMCAIFC3Bvb2xMcFRva2VuCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQED25ld1dYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QEC2Jhc2VBY3Rpb25zCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwUGYW1vdW50CQDZBAEFC3Bvb2xMcFRva2VuBQNuaWwDCQAAAgUHY2xhaW1lZAAABQtiYXNlQWN0aW9ucwQQZGlzdHJpYnV0ZVJlc3VsdAkA/AcEBQR0aGlzAhFkaXN0cmlidXRlQ2xhaW1lZAkAzAgCCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAMwIAgUHY2xhaW1lZAkAzAgCBRNjdXJyZW50V1hPbkNvbnRyYWN0CQDMCAIGBQNuaWwFA25pbAMJAAACBRBkaXN0cmlidXRlUmVzdWx0BRBkaXN0cmlidXRlUmVzdWx0BQtiYXNlQWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFkaXN0cmlidXRlQ2xhaW1lZAQEcG9vbAdjbGFpbWVkBnd4RHVzdBJ1c2VSZWd1bGFyVHJhbnNmZXIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAg5zZWxmIGNhbGwgb25seQQHcmV3YXJkcwkBHmNhbGN1bGF0ZVJld2FyZHNBbmRQcmVyYXJlRGF0YQMFBHBvb2wFB2NsYWltZWQAAAoBCmFjY291bnRpbmcCA2FjYwF0BAdhZGRyZXNzCAUBdAJfMQQHYXNzZXRJZAgFAXQCXzIEBmFtb3VudAgFAXQCXzMDCQAAAgUGYW1vdW50AAAFA2FjYwQDa2V5AwkAAAIFB2Fzc2V0SWQFCXd4QXNzZXRJZAkBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEFB2FkZHJlc3MJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUHYWRkcmVzcwkAzggCBQNhY2MJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQkAZAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEFA2tleQUGYW1vdW50BQNuaWwEEWFjY291bnRpbmdBY3Rpb25zCgACJGwFB3Jld2FyZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCmFjY291bnRpbmcCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAoBDHRyYW5zZmVycmluZwIDYWNjAXQEB2FkZHJlc3MIBQF0Al8xBAdhc3NldElkCAUBdAJfMgQGYW1vdW50CAUBdAJfMwMJAAACBQZhbW91bnQAAAUDYWNjAwUSdXNlUmVndWxhclRyYW5zZmVyCQDOCAIFA2FjYwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQZhbW91bnQFB2Fzc2V0SWQFA25pbAQKY2hlY2twb2ludAkA/AcECQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBRpwb29sQ2hlY2twb2ludEZ1bmN0aW9uTmFtZQUDbmlsCQDMCAIJAQ9BdHRhY2hlZFBheW1lbnQCBQdhc3NldElkBQZhbW91bnQFA25pbAMJAAACBQpjaGVja3BvaW50BQpjaGVja3BvaW50BQNhY2MJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4EE3RyYW5zZmVycmluZ0FjdGlvbnMKAAIkbAUHcmV3YXJkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMdHJhbnNmZXJyaW5nAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA0CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQJAM4IAgUTdHJhbnNmZXJyaW5nQWN0aW9ucwURYWNjb3VudGluZ0FjdGlvbnMBaQEQY2xhaW1Qb29sUmV3YXJkcwEEcG9vbAQLcG9vbEFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wECHBvb2xEYXRhCQELZ2V0UG9vbERhdGEBBQRwb29sBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQTY3VycmVudFdYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQDCQAAAgUTY3VycmVudFdYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAQLY2xhaW1SZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgdjbGFpbVd4CQDMCAIFC3Bvb2xMcFRva2VuBQNuaWwFA25pbAMJAAACBQtjbGFpbVJlc3VsdAULY2xhaW1SZXN1bHQED25ld1dYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QDCQAAAgUHY2xhaW1lZAAABQNuaWwEBmlzUG9vbAkAAAIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwUEcG9vbAQQZGlzdHJpYnV0ZVJlc3VsdAkA/AcEBQR0aGlzAhFkaXN0cmlidXRlQ2xhaW1lZAkAzAgCBQRwb29sCQDMCAIFB2NsYWltZWQJAMwIAgUTY3VycmVudFdYT25Db250cmFjdAkAzAgCBQZpc1Bvb2wFA25pbAUDbmlsAwkAAAIFEGRpc3RyaWJ1dGVSZXN1bHQFEGRpc3RyaWJ1dGVSZXN1bHQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARlzZXRUb3RhbENsYWltZWRGb3JTQlRQb29sAAQHc2J0UG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUHc2J0UG9vbAAACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWcG9vbFRvdGFsU2J0Q2xhaW1lZEtleQEFB3NidFBvb2wAAAUDbmlsAWkBDHNldF92ZXJpZmllcgEIdmVyaWZpZXIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAg5zZWxmIGNhbGwgb25seQQJYWRkcmVzc09LBAckbWF0Y2gwCQCmCAEFCHZlcmlmaWVyAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAGBwMJAQEhAQUJYWRkcmVzc09LCQACAQkArAICAhd2ZXJpZmllciB3cm9uZyBhZGRyZXNzIAUIdmVyaWZpZXIDCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzAgh2ZXJpZmllcgkAAgECGHZlcmlmaWVyIGFscmVhZHkgZGVmaW5lZAkAzAgCCQELU3RyaW5nRW50cnkCAgh2ZXJpZmllcgUIdmVyaWZpZXIFA25pbAECdHgBBnZlcmlmeQAEByRtYXRjaDAJAJ0IAgUEdGhpcwIIdmVyaWZpZXIDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAh2ZXJpZmllcgUHJG1hdGNoMAkBC3ZhbHVlT3JFbHNlAgkAmwgCCQERQGV4dHJOYXRpdmUoMTA2MikBBQh2ZXJpZmllcgkArAICCQCsAgIJAKwCAgIHc3RhdHVzXwkApQgBBQR0aGlzAgFfCQDYBAEIBQJ0eAJpZAcJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXl4J2P6",
    "height": 3959236,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GhRiKKgjqrJYyaJFWqZdijEasiuW17MHnWcDh6RTsGUk
Next: none

Diff: 
Old New Differences
11 11  
12 12  let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
13 13  
14 - let sbtAssetId = base58'vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13'
14 + let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
15 15  
16 16  let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
17 17  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SEP = "__"
5 5  
6 6  let feeRank = 10000
7 7  
8 8  let sbtTokenDigits = 100000000
9 9  
10 10  let poolCheckpointFunctionName = "checkpoint"
11 11  
12 12  let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
13 13  
14 - let sbtAssetId = base58'vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13'
14 + let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
15 15  
16 16  let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
17 17  
18 18  let claimWxRewardContract = base58'3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n'
19 19  
20 20  let isConstructedKey = "is_constructed"
21 21  
22 22  let adminAddressKey = "admin_address"
23 23  
24 24  let sbWxAssetIdKey = "sb_wx_asset_id"
25 25  
26 26  let lpPoolsKey = "lp_pools"
27 27  
28 28  let additionalRewardPoolKey = "additional_reward_pool"
29 29  
30 30  let additionalRewardPoolFeeKey = "additional_reward_pool_fee"
31 31  
32 32  let sbtStakePoolKey = "sbt_stake_pool"
33 33  
34 34  let sbtStakePoolFeeKey = "sbt_stake_pool_fee"
35 35  
36 36  let totalWXLockedKey = "total_wx_locked"
37 37  
38 38  let initialSBTTokensAmountKey = "initial_SBT_tokens_amount"
39 39  
40 40  let baseSBTTokenAmountForOneRewardTokenKey = "base_SBT_token_amount_for_one_reward_token"
41 41  
42 42  func poolTotalSbtClaimedKey (pool) = ((pool + SEP) + "total_sbt_claimed")
43 43  
44 44  
45 45  func poolTotalWxClaimedKey (pool) = ((pool + SEP) + "total_wx_claimed")
46 46  
47 47  
48 48  func asPayment (v) = match v {
49 49      case p: AttachedPayment => 
50 50          p
51 51      case _ => 
52 52          throw("fail to cast into AttachedPayment")
53 53  }
54 54  
55 55  
56 56  func asByteVector (v) = match v {
57 57      case p: ByteVector => 
58 58          p
59 59      case _ => 
60 60          throw("fail to cast into ByteVector")
61 61  }
62 62  
63 63  
64 64  func asInt (val) = match val {
65 65      case valInt: Int => 
66 66          valInt
67 67      case _ => 
68 68          throw("fail to cast into Int")
69 69  }
70 70  
71 71  
72 72  func asAddressString (address) = match addressFromString(address) {
73 73      case a: Address => 
74 74          toString(a)
75 75      case _ => 
76 76          throw("fail to cast into Address String")
77 77  }
78 78  
79 79  
80 80  func calculateCurrentRewardSBTAmount (rewardTokenCount) = {
81 81      let baseSBTTokenAmountForOneRewardToken = getIntegerValue(this, baseSBTTokenAmountForOneRewardTokenKey)
82 82      let initialSBTTokensAmount = getIntegerValue(this, initialSBTTokensAmountKey)
83 83      let currentSBTTokensBalance = assetBalance(this, sbtAssetId)
84 84      if ((currentSBTTokensBalance == 0))
85 85          then 0
86 86          else {
87 87              let currentSBTTokenAmountForOneRewardToken = fraction(baseSBTTokenAmountForOneRewardToken, currentSBTTokensBalance, initialSBTTokensAmount)
88 88              let amountSBT = fraction(rewardTokenCount, currentSBTTokenAmountForOneRewardToken, sbtTokenDigits)
89 89              if ((amountSBT > currentSBTTokensBalance))
90 90                  then currentSBTTokensBalance
91 91                  else amountSBT
92 92              }
93 93      }
94 94  
95 95  
96 96  func calculateRewardsAndPrerareData (pool,claimed,wxDust) = if ((0 >= claimed))
97 97      then nil
98 98      else {
99 99          let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
100 100          let sbtStakePool = getStringValue(sbtStakePoolKey)
101 101          let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
102 102          let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
103 103          let additionalRewardPool = getStringValue(additionalRewardPoolKey)
104 104          let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
105 105          let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
106 106              then 0
107 107              else if ((additionalRewardPool != pool))
108 108                  then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
109 109                  else 0
110 110          let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
111 111  [$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + wxDust)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
112 112          }
113 113  
114 114  
115 115  func isAuthorizedPool (pool) = {
116 116      let checkedPool = asAddressString(pool)
117 117      let lpPools = getStringValue(lpPoolsKey)
118 118      contains(lpPools, checkedPool)
119 119      }
120 120  
121 121  
122 122  func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
123 123      then throw("Not authorized pool")
124 124      else {
125 125          let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
126 126          let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
127 127          $Tuple2(poolLpToken, wavesExchangePoolAddress)
128 128          }
129 129  
130 130  
131 131  @Callable(i)
132 132  func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
133 133      then throw("Constructor can be called one time")
134 134      else {
135 135          let sbWx = Issue("sbWX", "", 0, 8, true, unit, 0)
136 136          let assetId = calculateAssetId(sbWx)
137 137          let sbtStakePoolChecked = asAddressString(sbtStakePool)
138 138  [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)]
139 139          }
140 140  
141 141  
142 142  
143 143  @Callable(i)
144 144  func mintSbWx () = if ((size(i.payments) != 1))
145 145      then throw("One Payment expected")
146 146      else {
147 147          let payment = asPayment(i.payments[0])
148 148          let amount = payment.amount
149 149          if (if ((payment.assetId != wxAssetId))
150 150              then true
151 151              else (0 >= amount))
152 152              then throw("Wrong Asset id or amount")
153 153              else {
154 154                  let totalWXLocked = getIntegerValue(totalWXLockedKey)
155 155                  let sbWxAssetId = getStringValue(sbWxAssetIdKey)
156 156                  let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", [toBase58String(this.bytes)], nil)
157 157                  if ((wavesExchangeInfo == wavesExchangeInfo))
158 158                      then                     match wavesExchangeInfo {
159 159                          case tuple: (String, Int) => 
160 160                              let functionName = tuple._1
161 161                              let maxLockDuration = tuple._2
162 162                              let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
163 163                              if ((result == result))
164 164                                  then {
165 165                                      let sbWx = fromBase58String(sbWxAssetId)
166 166  [Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
167 167                                      }
168 168                                  else throw("Strict value is not equal to itself.")
169 169                          case _ => 
170 170                              throw("FATAL: Inconsistent data")
171 171                      }
172 172                      else throw("Strict value is not equal to itself.")
173 173                  }
174 174          }
175 175  
176 176  
177 177  
178 178  @Callable(i)
179 179  func claimWxStakingRewards () = {
180 180      let currentWxOnContract = assetBalance(this, wxAssetId)
181 181      if ((currentWxOnContract == currentWxOnContract))
182 182          then {
183 183              let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
184 184              if ((claimResult == claimResult))
185 185                  then {
186 186                      let newWxOnContract = assetBalance(this, wxAssetId)
187 187                      let claimed = (newWxOnContract - currentWxOnContract)
188 188                      if ((claimed == 0))
189 189                          then throw("Nothing to claim")
190 190                          else {
191 191                              let sbtStakePool = getStringValue(sbtStakePoolKey)
192 192                              let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
193 193                              let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, claimed)])
194 194                              if ((checkpointResult == checkpointResult))
195 195                                  then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + claimed))]
196 196                                  else throw("Strict value is not equal to itself.")
197 197                              }
198 198                      }
199 199                  else throw("Strict value is not equal to itself.")
200 200              }
201 201          else throw("Strict value is not equal to itself.")
202 202      }
203 203  
204 204  
205 205  
206 206  @Callable(i)
207 207  func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
208 208      then throw("Only Admin can call this function")
209 209      else {
210 210          let lpPools = getStringValue(lpPoolsKey)
211 211          if (isAuthorizedPool(address))
212 212              then throw("Pool already added")
213 213              else {
214 214                  let newPools = if ((size(lpPools) == 0))
215 215                      then address
216 216                      else ((lpPools + SEP) + address)
217 217  [StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress)), IntegerEntry(poolTotalSbtClaimedKey(address), 0), IntegerEntry(poolTotalWxClaimedKey(address), 0)]
218 218                  }
219 219          }
220 220  
221 221  
222 222  
223 223  @Callable(i)
224 224  func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
225 225      then throw("Only Admin can call this function")
226 226      else {
227 227          let lpPools = getStringValue(lpPoolsKey)
228 228          if (!(isAuthorizedPool(address)))
229 229              then throw("Pool not found")
230 230              else {
231 231                  let poolLpTokensAmount = getIntegerValue(addressFromStringValue(address), "tokens")
232 232                  let poolRootContractAddress = getStringValue(addressFromStringValue(address), "root_contract")
233 233                  if (if ((poolLpTokensAmount > 0))
234 234                      then (poolRootContractAddress != "")
235 235                      else false)
236 236                      then throw("Withdraw all LP tokens first")
237 237                      else {
238 238                          let invalidateConnectionResult = if ((poolRootContractAddress == ""))
239 239                              then nil
240 240                              else invoke(addressFromStringValue(address), "invalidate_root_contract_connection", nil, nil)
241 241                          if ((invalidateConnectionResult == invalidateConnectionResult))
242 242                              then {
243 243                                  let poolsArray = split_4C(lpPools, SEP)
244 244                                  let poolIndex = asInt(indexOf(poolsArray, address))
245 245                                  let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
246 246                                  ([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
247 247                                      then [StringEntry(additionalRewardPoolKey, "")]
248 248                                      else nil))
249 249                                  }
250 250                              else throw("Strict value is not equal to itself.")
251 251                          }
252 252                  }
253 253          }
254 254  
255 255  
256 256  
257 257  @Callable(i)
258 258  func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
259 259      then throw("Only Admin can call this function")
260 260      else if (!(isAuthorizedPool(address)))
261 261          then throw("Only authorized pool can be added as additional reward pool")
262 262          else [StringEntry(additionalRewardPoolKey, address)]
263 263  
264 264  
265 265  
266 266  @Callable(i)
267 267  func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
268 268      then throw("Only Admin can call this function")
269 269      else if ((fee > 2000))
270 270          then throw("Fee can't be bigger than 20%")
271 271          else if ((0 > fee))
272 272              then throw("Fee can't be negative")
273 273              else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
274 274  
275 275  
276 276  
277 277  @Callable(i)
278 278  func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
279 279      then throw("Only Admin can call this function")
280 280      else if ((fee > 2000))
281 281          then throw("Fee can't be bigger than 20%")
282 282          else if ((0 > fee))
283 283              then throw("Fee can't be negative")
284 284              else [IntegerEntry(sbtStakePoolFeeKey, fee)]
285 285  
286 286  
287 287  
288 288  @Callable(i)
289 289  func stakePoolLps () = if ((size(i.payments) != 1))
290 290      then throw("One Payment expected")
291 291      else {
292 292          let poolData = getPoolData(toBase58String(i.caller.bytes))
293 293          let poolLpToken = poolData._1
294 294          let wavesExchangePoolAddress = poolData._2
295 295          let payment = asPayment(i.payments[0])
296 296          if (if ((payment.assetId != fromBase58String(poolLpToken)))
297 297              then true
298 298              else (0 >= payment.amount))
299 299              then throw("Wrong LP Asset id or amount")
300 300              else {
301 301                  let currentWXOnContract = assetBalance(this, wxAssetId)
302 302                  if ((currentWXOnContract == currentWXOnContract))
303 303                      then {
304 304                          let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
305 305                          if ((result == result))
306 306                              then {
307 307                                  let newWXOnContract = assetBalance(this, wxAssetId)
308 308                                  let claimed = (newWXOnContract - currentWXOnContract)
309 309                                  if ((claimed == 0))
310 310                                      then nil
311 311                                      else {
312 312                                          let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
313 313                                          if ((distributeResult == distributeResult))
314 314                                              then nil
315 315                                              else throw("Strict value is not equal to itself.")
316 316                                          }
317 317                                  }
318 318                              else throw("Strict value is not equal to itself.")
319 319                          }
320 320                      else throw("Strict value is not equal to itself.")
321 321                  }
322 322          }
323 323  
324 324  
325 325  
326 326  @Callable(i)
327 327  func withdrawPoolLps (amount) = {
328 328      let poolData = getPoolData(toBase58String(i.caller.bytes))
329 329      let poolLpToken = poolData._1
330 330      let wavesExchangePoolAddress = poolData._2
331 331      let currentWXOnContract = assetBalance(this, wxAssetId)
332 332      if ((currentWXOnContract == currentWXOnContract))
333 333          then {
334 334              let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
335 335              if ((result == result))
336 336                  then {
337 337                      let newWXOnContract = assetBalance(this, wxAssetId)
338 338                      let claimed = (newWXOnContract - currentWXOnContract)
339 339                      let baseActions = [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
340 340                      if ((claimed == 0))
341 341                          then baseActions
342 342                          else {
343 343                              let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
344 344                              if ((distributeResult == distributeResult))
345 345                                  then baseActions
346 346                                  else throw("Strict value is not equal to itself.")
347 347                              }
348 348                      }
349 349                  else throw("Strict value is not equal to itself.")
350 350              }
351 351          else throw("Strict value is not equal to itself.")
352 352      }
353 353  
354 354  
355 355  
356 356  @Callable(i)
357 357  func distributeClaimed (pool,claimed,wxDust,useRegularTransfer) = if ((i.caller != this))
358 358      then throw("self call only")
359 359      else {
360 360          let rewards = calculateRewardsAndPrerareData(pool, claimed, 0)
361 361          func accounting (acc,t) =         {
362 362              let address = t._1
363 363              let assetId = t._2
364 364              let amount = t._3
365 365              if ((amount == 0))
366 366                  then acc
367 367                  else {
368 368                      let key = if ((assetId == wxAssetId))
369 369                          then poolTotalWxClaimedKey(address)
370 370                          else poolTotalSbtClaimedKey(address)
371 371                      (acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
372 372                      }
373 373              }
374 374  
375 375          let accountingActions = {
376 376              let $l = rewards
377 377              let $s = size($l)
378 378              let $acc0 = nil
379 379              func $f0_1 ($a,$i) =             if (($i >= $s))
380 380                  then $a
381 381                  else accounting($a, $l[$i])
382 382  
383 383              func $f0_2 ($a,$i) =             if (($i >= $s))
384 384                  then $a
385 385                  else throw("List size exceeds 4")
386 386  
387 387              $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
388 388              }
389 389          func transferring (acc,t) =         {
390 390              let address = t._1
391 391              let assetId = t._2
392 392              let amount = t._3
393 393              if ((amount == 0))
394 394                  then acc
395 395                  else if (useRegularTransfer)
396 396                      then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
397 397                      else {
398 398                          let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
399 399                          if ((checkpoint == checkpoint))
400 400                              then acc
401 401                              else throw("Strict value is not equal to itself.")
402 402                          }
403 403              }
404 404  
405 405          let transferringActions = {
406 406              let $l = rewards
407 407              let $s = size($l)
408 408              let $acc0 = nil
409 409              func $f1_1 ($a,$i) =             if (($i >= $s))
410 410                  then $a
411 411                  else transferring($a, $l[$i])
412 412  
413 413              func $f1_2 ($a,$i) =             if (($i >= $s))
414 414                  then $a
415 415                  else throw("List size exceeds 4")
416 416  
417 417              $f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
418 418              }
419 419          (transferringActions ++ accountingActions)
420 420          }
421 421  
422 422  
423 423  
424 424  @Callable(i)
425 425  func claimPoolRewards (pool) = {
426 426      let poolAddress = addressFromStringValue(pool)
427 427      let poolData = getPoolData(pool)
428 428      let poolLpToken = poolData._1
429 429      let wavesExchangePoolAddress = poolData._2
430 430      let currentWXOnContract = assetBalance(this, wxAssetId)
431 431      if ((currentWXOnContract == currentWXOnContract))
432 432          then {
433 433              let claimResult = invoke(wavesExchangePoolAddress, "claimWx", [poolLpToken], nil)
434 434              if ((claimResult == claimResult))
435 435                  then {
436 436                      let newWXOnContract = assetBalance(this, wxAssetId)
437 437                      let claimed = (newWXOnContract - currentWXOnContract)
438 438                      if ((claimed == 0))
439 439                          then nil
440 440                          else {
441 441                              let isPool = (toBase58String(i.caller.bytes) == pool)
442 442                              let distributeResult = invoke(this, "distributeClaimed", [pool, claimed, currentWXOnContract, isPool], nil)
443 443                              if ((distributeResult == distributeResult))
444 444                                  then nil
445 445                                  else throw("Strict value is not equal to itself.")
446 446                              }
447 447                      }
448 448                  else throw("Strict value is not equal to itself.")
449 449              }
450 450          else throw("Strict value is not equal to itself.")
451 451      }
452 452  
453 453  
454 454  
455 455  @Callable(i)
456 456  func setTotalClaimedForSBTPool () = {
457 457      let sbtPool = getStringValue(sbtStakePoolKey)
458 458  [IntegerEntry(poolTotalWxClaimedKey(sbtPool), 0), IntegerEntry(poolTotalSbtClaimedKey(sbtPool), 0)]
459 459      }
460 460  
461 461  
462 462  
463 463  @Callable(i)
464 464  func set_verifier (verifier) = if ((i.caller != this))
465 465      then throw("self call only")
466 466      else {
467 467          let addressOK =         match addressFromString(verifier) {
468 468              case a: Address => 
469 469                  true
470 470              case _ => 
471 471                  false
472 472          }
473 473          if (!(addressOK))
474 474              then throw(("verifier wrong address " + verifier))
475 475              else if (isDefined(getString(this, "verifier")))
476 476                  then throw("verifier already defined")
477 477                  else [StringEntry("verifier", verifier)]
478 478          }
479 479  
480 480  
481 481  @Verifier(tx)
482 482  func verify () = match getString(this, "verifier") {
483 483      case verifier: String => 
484 484          valueOrElse(getBoolean(addressFromStringValue(verifier), ((("status_" + toString(this)) + "_") + toBase58String(tx.id))), false)
485 485      case _ => 
486 486          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
487 487  }
488 488

Old	New		Differences
11	11
12	12		let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
13	13
14		-	let sbtAssetId = base58'~~vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13~~'
	14	+	let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
15	15
16	16		let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
17	17

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SEP = "__"
5	5
6	6		let feeRank = 10000
7	7
8	8		let sbtTokenDigits = 100000000
9	9
10	10		let poolCheckpointFunctionName = "checkpoint"
11	11
12	12		let wxAssetId = base58'Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on'
13	13
14		-	let sbtAssetId = base58'~~vAYvjoLheNuvi2wRdQYK9NUjJ6ZQ5EkAtx7jy36rK13~~'
	14	+	let sbtAssetId = base58'GigQssEJGdf3kpDvHP5gjY5osEXVNXkR7Csc3oYeM7aG'
15	15
16	16		let wavesExchange = base58'3PJL8Hn8LACaSBWLQ3UVhctA5cTQLBFwBAP'
17	17
18	18		let claimWxRewardContract = base58'3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n'
19	19
20	20		let isConstructedKey = "is_constructed"
21	21
22	22		let adminAddressKey = "admin_address"
23	23
24	24		let sbWxAssetIdKey = "sb_wx_asset_id"
25	25
26	26		let lpPoolsKey = "lp_pools"
27	27
28	28		let additionalRewardPoolKey = "additional_reward_pool"
29	29
30	30		let additionalRewardPoolFeeKey = "additional_reward_pool_fee"
31	31
32	32		let sbtStakePoolKey = "sbt_stake_pool"
33	33
34	34		let sbtStakePoolFeeKey = "sbt_stake_pool_fee"
35	35
36	36		let totalWXLockedKey = "total_wx_locked"
37	37
38	38		let initialSBTTokensAmountKey = "initial_SBT_tokens_amount"
39	39
40	40		let baseSBTTokenAmountForOneRewardTokenKey = "base_SBT_token_amount_for_one_reward_token"
41	41
42	42		func poolTotalSbtClaimedKey (pool) = ((pool + SEP) + "total_sbt_claimed")
43	43
44	44
45	45		func poolTotalWxClaimedKey (pool) = ((pool + SEP) + "total_wx_claimed")
46	46
47	47
48	48		func asPayment (v) = match v {
49	49		case p: AttachedPayment =>
50	50		p
51	51		case _ =>
52	52		throw("fail to cast into AttachedPayment")
53	53		}
54	54
55	55
56	56		func asByteVector (v) = match v {
57	57		case p: ByteVector =>
58	58		p
59	59		case _ =>
60	60		throw("fail to cast into ByteVector")
61	61		}
62	62
63	63
64	64		func asInt (val) = match val {
65	65		case valInt: Int =>
66	66		valInt
67	67		case _ =>
68	68		throw("fail to cast into Int")
69	69		}
70	70
71	71
72	72		func asAddressString (address) = match addressFromString(address) {
73	73		case a: Address =>
74	74		toString(a)
75	75		case _ =>
76	76		throw("fail to cast into Address String")
77	77		}
78	78
79	79
80	80		func calculateCurrentRewardSBTAmount (rewardTokenCount) = {
81	81		let baseSBTTokenAmountForOneRewardToken = getIntegerValue(this, baseSBTTokenAmountForOneRewardTokenKey)
82	82		let initialSBTTokensAmount = getIntegerValue(this, initialSBTTokensAmountKey)
83	83		let currentSBTTokensBalance = assetBalance(this, sbtAssetId)
84	84		if ((currentSBTTokensBalance == 0))
85	85		then 0
86	86		else {
87	87		let currentSBTTokenAmountForOneRewardToken = fraction(baseSBTTokenAmountForOneRewardToken, currentSBTTokensBalance, initialSBTTokensAmount)
88	88		let amountSBT = fraction(rewardTokenCount, currentSBTTokenAmountForOneRewardToken, sbtTokenDigits)
89	89		if ((amountSBT > currentSBTTokensBalance))
90	90		then currentSBTTokensBalance
91	91		else amountSBT
92	92		}
93	93		}
94	94
95	95
96	96		func calculateRewardsAndPrerareData (pool,claimed,wxDust) = if ((0 >= claimed))
97	97		then nil
98	98		else {
99	99		let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
100	100		let sbtStakePool = getStringValue(sbtStakePoolKey)
101	101		let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
102	102		let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
103	103		let additionalRewardPool = getStringValue(additionalRewardPoolKey)
104	104		let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
105	105		let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
106	106		then 0
107	107		else if ((additionalRewardPool != pool))
108	108		then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
109	109		else 0
110	110		let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
111	111		[$Tuple3(pool, sbtAssetId, sbtRewardAmount), $Tuple3(sbtStakePool, wxAssetId, (sbtStakePoolAmount + wxDust)), $Tuple3(additionalRewardPool, wxAssetId, additionalRewardPoolAmount), $Tuple3(pool, wxAssetId, poolClaimed)]
112	112		}
113	113
114	114
115	115		func isAuthorizedPool (pool) = {
116	116		let checkedPool = asAddressString(pool)
117	117		let lpPools = getStringValue(lpPoolsKey)
118	118		contains(lpPools, checkedPool)
119	119		}
120	120
121	121
122	122		func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
123	123		then throw("Not authorized pool")
124	124		else {
125	125		let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
126	126		let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
127	127		$Tuple2(poolLpToken, wavesExchangePoolAddress)
128	128		}
129	129
130	130
131	131		@Callable(i)
132	132		func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
133	133		then throw("Constructor can be called one time")
134	134		else {
135	135		let sbWx = Issue("sbWX", "", 0, 8, true, unit, 0)
136	136		let assetId = calculateAssetId(sbWx)
137	137		let sbtStakePoolChecked = asAddressString(sbtStakePool)
138	138		[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)]
139	139		}
140	140
141	141
142	142
143	143		@Callable(i)
144	144		func mintSbWx () = if ((size(i.payments) != 1))
145	145		then throw("One Payment expected")
146	146		else {
147	147		let payment = asPayment(i.payments[0])
148	148		let amount = payment.amount
149	149		if (if ((payment.assetId != wxAssetId))
150	150		then true
151	151		else (0 >= amount))
152	152		then throw("Wrong Asset id or amount")
153	153		else {
154	154		let totalWXLocked = getIntegerValue(totalWXLockedKey)
155	155		let sbWxAssetId = getStringValue(sbWxAssetIdKey)
156	156		let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", [toBase58String(this.bytes)], nil)
157	157		if ((wavesExchangeInfo == wavesExchangeInfo))
158	158		then match wavesExchangeInfo {
159	159		case tuple: (String, Int) =>
160	160		let functionName = tuple._1
161	161		let maxLockDuration = tuple._2
162	162		let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
163	163		if ((result == result))
164	164		then {
165	165		let sbWx = fromBase58String(sbWxAssetId)
166	166		[Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
167	167		}
168	168		else throw("Strict value is not equal to itself.")
169	169		case _ =>
170	170		throw("FATAL: Inconsistent data")
171	171		}
172	172		else throw("Strict value is not equal to itself.")
173	173		}
174	174		}
175	175
176	176
177	177
178	178		@Callable(i)
179	179		func claimWxStakingRewards () = {
180	180		let currentWxOnContract = assetBalance(this, wxAssetId)
181	181		if ((currentWxOnContract == currentWxOnContract))
182	182		then {
183	183		let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
184	184		if ((claimResult == claimResult))
185	185		then {
186	186		let newWxOnContract = assetBalance(this, wxAssetId)
187	187		let claimed = (newWxOnContract - currentWxOnContract)
188	188		if ((claimed == 0))
189	189		then throw("Nothing to claim")
190	190		else {
191	191		let sbtStakePool = getStringValue(sbtStakePoolKey)
192	192		let sbtStakePoolAddress = addressFromStringValue(sbtStakePool)
193	193		let checkpointResult = invoke(sbtStakePoolAddress, poolCheckpointFunctionName, nil, [AttachedPayment(wxAssetId, claimed)])
194	194		if ((checkpointResult == checkpointResult))
195	195		then [IntegerEntry(poolTotalWxClaimedKey(sbtStakePool), (getIntegerValue(poolTotalWxClaimedKey(sbtStakePool)) + claimed))]
196	196		else throw("Strict value is not equal to itself.")
197	197		}
198	198		}
199	199		else throw("Strict value is not equal to itself.")
200	200		}
201	201		else throw("Strict value is not equal to itself.")
202	202		}
203	203
204	204
205	205
206	206		@Callable(i)
207	207		func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
208	208		then throw("Only Admin can call this function")
209	209		else {
210	210		let lpPools = getStringValue(lpPoolsKey)
211	211		if (isAuthorizedPool(address))
212	212		then throw("Pool already added")
213	213		else {
214	214		let newPools = if ((size(lpPools) == 0))
215	215		then address
216	216		else ((lpPools + SEP) + address)
217	217		[StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress)), IntegerEntry(poolTotalSbtClaimedKey(address), 0), IntegerEntry(poolTotalWxClaimedKey(address), 0)]
218	218		}
219	219		}
220	220
221	221
222	222
223	223		@Callable(i)
224	224		func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
225	225		then throw("Only Admin can call this function")
226	226		else {
227	227		let lpPools = getStringValue(lpPoolsKey)
228	228		if (!(isAuthorizedPool(address)))
229	229		then throw("Pool not found")
230	230		else {
231	231		let poolLpTokensAmount = getIntegerValue(addressFromStringValue(address), "tokens")
232	232		let poolRootContractAddress = getStringValue(addressFromStringValue(address), "root_contract")
233	233		if (if ((poolLpTokensAmount > 0))
234	234		then (poolRootContractAddress != "")
235	235		else false)
236	236		then throw("Withdraw all LP tokens first")
237	237		else {
238	238		let invalidateConnectionResult = if ((poolRootContractAddress == ""))
239	239		then nil
240	240		else invoke(addressFromStringValue(address), "invalidate_root_contract_connection", nil, nil)
241	241		if ((invalidateConnectionResult == invalidateConnectionResult))
242	242		then {
243	243		let poolsArray = split_4C(lpPools, SEP)
244	244		let poolIndex = asInt(indexOf(poolsArray, address))
245	245		let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
246	246		([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
247	247		then [StringEntry(additionalRewardPoolKey, "")]
248	248		else nil))
249	249		}
250	250		else throw("Strict value is not equal to itself.")
251	251		}
252	252		}
253	253		}
254	254
255	255
256	256
257	257		@Callable(i)
258	258		func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
259	259		then throw("Only Admin can call this function")
260	260		else if (!(isAuthorizedPool(address)))
261	261		then throw("Only authorized pool can be added as additional reward pool")
262	262		else [StringEntry(additionalRewardPoolKey, address)]
263	263
264	264
265	265
266	266		@Callable(i)
267	267		func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
268	268		then throw("Only Admin can call this function")
269	269		else if ((fee > 2000))
270	270		then throw("Fee can't be bigger than 20%")
271	271		else if ((0 > fee))
272	272		then throw("Fee can't be negative")
273	273		else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
274	274
275	275
276	276
277	277		@Callable(i)
278	278		func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
279	279		then throw("Only Admin can call this function")
280	280		else if ((fee > 2000))
281	281		then throw("Fee can't be bigger than 20%")
282	282		else if ((0 > fee))
283	283		then throw("Fee can't be negative")
284	284		else [IntegerEntry(sbtStakePoolFeeKey, fee)]
285	285
286	286
287	287
288	288		@Callable(i)
289	289		func stakePoolLps () = if ((size(i.payments) != 1))
290	290		then throw("One Payment expected")
291	291		else {
292	292		let poolData = getPoolData(toBase58String(i.caller.bytes))
293	293		let poolLpToken = poolData._1
294	294		let wavesExchangePoolAddress = poolData._2
295	295		let payment = asPayment(i.payments[0])
296	296		if (if ((payment.assetId != fromBase58String(poolLpToken)))
297	297		then true
298	298		else (0 >= payment.amount))
299	299		then throw("Wrong LP Asset id or amount")
300	300		else {
301	301		let currentWXOnContract = assetBalance(this, wxAssetId)
302	302		if ((currentWXOnContract == currentWXOnContract))
303	303		then {
304	304		let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
305	305		if ((result == result))
306	306		then {
307	307		let newWXOnContract = assetBalance(this, wxAssetId)
308	308		let claimed = (newWXOnContract - currentWXOnContract)
309	309		if ((claimed == 0))
310	310		then nil
311	311		else {
312	312		let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
313	313		if ((distributeResult == distributeResult))
314	314		then nil
315	315		else throw("Strict value is not equal to itself.")
316	316		}
317	317		}
318	318		else throw("Strict value is not equal to itself.")
319	319		}
320	320		else throw("Strict value is not equal to itself.")
321	321		}
322	322		}
323	323
324	324
325	325
326	326		@Callable(i)
327	327		func withdrawPoolLps (amount) = {
328	328		let poolData = getPoolData(toBase58String(i.caller.bytes))
329	329		let poolLpToken = poolData._1
330	330		let wavesExchangePoolAddress = poolData._2
331	331		let currentWXOnContract = assetBalance(this, wxAssetId)
332	332		if ((currentWXOnContract == currentWXOnContract))
333	333		then {
334	334		let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
335	335		if ((result == result))
336	336		then {
337	337		let newWXOnContract = assetBalance(this, wxAssetId)
338	338		let claimed = (newWXOnContract - currentWXOnContract)
339	339		let baseActions = [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
340	340		if ((claimed == 0))
341	341		then baseActions
342	342		else {
343	343		let distributeResult = invoke(this, "distributeClaimed", [toBase58String(i.caller.bytes), claimed, currentWXOnContract, true], nil)
344	344		if ((distributeResult == distributeResult))
345	345		then baseActions
346	346		else throw("Strict value is not equal to itself.")
347	347		}
348	348		}
349	349		else throw("Strict value is not equal to itself.")
350	350		}
351	351		else throw("Strict value is not equal to itself.")
352	352		}
353	353
354	354
355	355
356	356		@Callable(i)
357	357		func distributeClaimed (pool,claimed,wxDust,useRegularTransfer) = if ((i.caller != this))
358	358		then throw("self call only")
359	359		else {
360	360		let rewards = calculateRewardsAndPrerareData(pool, claimed, 0)
361	361		func accounting (acc,t) = {
362	362		let address = t._1
363	363		let assetId = t._2
364	364		let amount = t._3
365	365		if ((amount == 0))
366	366		then acc
367	367		else {
368	368		let key = if ((assetId == wxAssetId))
369	369		then poolTotalWxClaimedKey(address)
370	370		else poolTotalSbtClaimedKey(address)
371	371		(acc ++ [IntegerEntry(key, (getIntegerValue(key) + amount))])
372	372		}
373	373		}
374	374
375	375		let accountingActions = {
376	376		let $l = rewards
377	377		let $s = size($l)
378	378		let $acc0 = nil
379	379		func $f0_1 ($a,$i) = if (($i >= $s))
380	380		then $a
381	381		else accounting($a, $l[$i])
382	382
383	383		func $f0_2 ($a,$i) = if (($i >= $s))
384	384		then $a
385	385		else throw("List size exceeds 4")
386	386
387	387		$f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
388	388		}
389	389		func transferring (acc,t) = {
390	390		let address = t._1
391	391		let assetId = t._2
392	392		let amount = t._3
393	393		if ((amount == 0))
394	394		then acc
395	395		else if (useRegularTransfer)
396	396		then (acc ++ [ScriptTransfer(addressFromStringValue(address), amount, assetId)])
397	397		else {
398	398		let checkpoint = invoke(addressFromStringValue(address), poolCheckpointFunctionName, nil, [AttachedPayment(assetId, amount)])
399	399		if ((checkpoint == checkpoint))
400	400		then acc
401	401		else throw("Strict value is not equal to itself.")
402	402		}
403	403		}
404	404
405	405		let transferringActions = {
406	406		let $l = rewards
407	407		let $s = size($l)
408	408		let $acc0 = nil
409	409		func $f1_1 ($a,$i) = if (($i >= $s))
410	410		then $a
411	411		else transferring($a, $l[$i])
412	412
413	413		func $f1_2 ($a,$i) = if (($i >= $s))
414	414		then $a
415	415		else throw("List size exceeds 4")
416	416
417	417		$f1_2($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4)
418	418		}
419	419		(transferringActions ++ accountingActions)
420	420		}
421	421
422	422
423	423
424	424		@Callable(i)
425	425		func claimPoolRewards (pool) = {
426	426		let poolAddress = addressFromStringValue(pool)
427	427		let poolData = getPoolData(pool)
428	428		let poolLpToken = poolData._1
429	429		let wavesExchangePoolAddress = poolData._2
430	430		let currentWXOnContract = assetBalance(this, wxAssetId)
431	431		if ((currentWXOnContract == currentWXOnContract))
432	432		then {
433	433		let claimResult = invoke(wavesExchangePoolAddress, "claimWx", [poolLpToken], nil)
434	434		if ((claimResult == claimResult))
435	435		then {
436	436		let newWXOnContract = assetBalance(this, wxAssetId)
437	437		let claimed = (newWXOnContract - currentWXOnContract)
438	438		if ((claimed == 0))
439	439		then nil
440	440		else {
441	441		let isPool = (toBase58String(i.caller.bytes) == pool)
442	442		let distributeResult = invoke(this, "distributeClaimed", [pool, claimed, currentWXOnContract, isPool], nil)
443	443		if ((distributeResult == distributeResult))
444	444		then nil
445	445		else throw("Strict value is not equal to itself.")
446	446		}
447	447		}
448	448		else throw("Strict value is not equal to itself.")
449	449		}
450	450		else throw("Strict value is not equal to itself.")
451	451		}
452	452
453	453
454	454
455	455		@Callable(i)
456	456		func setTotalClaimedForSBTPool () = {
457	457		let sbtPool = getStringValue(sbtStakePoolKey)
458	458		[IntegerEntry(poolTotalWxClaimedKey(sbtPool), 0), IntegerEntry(poolTotalSbtClaimedKey(sbtPool), 0)]
459	459		}
460	460
461	461
462	462
463	463		@Callable(i)
464	464		func set_verifier (verifier) = if ((i.caller != this))
465	465		then throw("self call only")
466	466		else {
467	467		let addressOK = match addressFromString(verifier) {
468	468		case a: Address =>
469	469		true
470	470		case _ =>
471	471		false
472	472		}
473	473		if (!(addressOK))
474	474		then throw(("verifier wrong address " + verifier))
475	475		else if (isDefined(getString(this, "verifier")))
476	476		then throw("verifier already defined")
477	477		else [StringEntry("verifier", verifier)]
478	478		}
479	479
480	480
481	481		@Verifier(tx)
482	482		func verify () = match getString(this, "verifier") {
483	483		case verifier: String =>
484	484		valueOrElse(getBoolean(addressFromStringValue(verifier), ((("status_" + toString(this)) + "_") + toBase58String(tx.id))), false)
485	485		case _ =>
486	486		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
487	487		}
488	488

github/deemru/w8io/6500d08 
55.81 ms ◑