w8 · tx · Cmt···M5a

tx · CmtxmCYWtcJeupfrW2k3w5DFiMHnF2u77qdv9DoTLM5a

3N4r7DNT8t9WqaQWr8or1Hakm4AJfVDk6mS:  -0.01000000 Waves

2023.11.10 16:03 [2837282] smart account 3N4r7DNT8t9WqaQWr8or1Hakm4AJfVDk6mS > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CmtxmCYWtcJeupfrW2k3w5DFiMHnF2u77qdv9DoTLM5a",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1699621405209,
    "version": 2,
    "chainId": 84,
    "sender": "3N4r7DNT8t9WqaQWr8or1Hakm4AJfVDk6mS",
    "senderPublicKey": "CMMtdSwXAf6tvNvyJDrdC5VGmRkcXU5CqmsapxKNPhLu",
    "proofs": [
        "4BFwLbv42FKDHHfbJT1hqsP1shcx6BA1XK9kbEuXrpZJaG4KAeZKSG52ugdVBrT4BR84R3Vk3BkZjJscLTYArMom"
    ],
    "script": "base64:BgI5CAISBgoECAgBARIDCgEIEgASABIECgIICBIDCgEIEgMKAQgSAwoBARIDCgEBEgASAwoBARIDCgEIGQADU0VQAgJfXwAHZmVlUmFuawCQTgAJd3hBc3NldElkASB6bQLDKkAdN6wf+7trwy200VZFDNDd29aFKJLgHB2a4wAKc2J0QXNzZXRJZAEg7b51XE58aMp9lj9uI5FGnnl/9BHmO+37TVRB3Im5ctkADXdhdmVzRXhjaGFuZ2UBGgFU/Dsuc5FpNxWwmLp+YyVh+q94Okzod8AfABVjbGFpbVd4UmV3YXJkQ29udHJhY3QBGgFU/Dsuc5FpNxWwmLp+YyVh+q94Okzod8AfABBpc0NvbnN0cnVjdGVkS2V5Ag5pc19jb25zdHJ1Y3RlZAAPYWRtaW5BZGRyZXNzS2V5Ag1hZG1pbl9hZGRyZXNzAA5zYld4QXNzZXRJZEtleQIOc2Jfd3hfYXNzZXRfaWQACmxwUG9vbHNLZXkCCGxwX3Bvb2xzABdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIWYWRkaXRpb25hbF9yZXdhcmRfcG9vbAAaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkCGmFkZGl0aW9uYWxfcmV3YXJkX3Bvb2xfZmVlAA9zYnRTdGFrZVBvb2xLZXkCDnNidF9zdGFrZV9wb29sABJzYnRTdGFrZVBvb2xGZWVLZXkCEnNidF9zdGFrZV9wb29sX2ZlZQAbc2J0U3Rha2VQb29sVG90YWxDbGFpbWVkS2V5AhxzYnRfc3Rha2VfcG9vbF90b3RhbF9jbGFpbWVkABB0b3RhbFdYTG9ja2VkS2V5Ag90b3RhbF93eF9sb2NrZWQAGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkCGWluaXRpYWxfU0JUX3Rva2Vuc19hbW91bnQAJmJhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuS2V5AipiYXNlX1NCVF90b2tlbl9hbW91bnRfZm9yX29uZV9yZXdhcmRfdG9rZW4BCWFzUGF5bWVudAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAg9BdHRhY2hlZFBheW1lbnQEAXAFByRtYXRjaDAFAXAJAAIBAiFmYWlsIHRvIGNhc3QgaW50byBBdHRhY2hlZFBheW1lbnQBDGFzQnl0ZVZlY3RvcgEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFwBQckbWF0Y2gwBQFwCQACAQIcZmFpbCB0byBjYXN0IGludG8gQnl0ZVZlY3RvcgEFYXNJbnQBA3ZhbAQHJG1hdGNoMAUDdmFsAwkAAQIFByRtYXRjaDACA0ludAQGdmFsSW50BQckbWF0Y2gwBQZ2YWxJbnQJAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBD2FzQWRkcmVzc1N0cmluZwEHYWRkcmVzcwQHJG1hdGNoMAkApggBBQdhZGRyZXNzAwkAAQIFByRtYXRjaDACB0FkZHJlc3MEAWEFByRtYXRjaDAJAKUIAQUBYQkAAgECIGZhaWwgdG8gY2FzdCBpbnRvIEFkZHJlc3MgU3RyaW5nAR9jYWxjdWxhdGVDdXJyZW50UmV3YXJkU0JUQW1vdW50ARByZXdhcmRUb2tlbkNvdW50BCNiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkEFmluaXRpYWxTQlRUb2tlbnNBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMFGWluaXRpYWxTQlRUb2tlbnNBbW91bnRLZXkEF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlCQDwBwIFBHRoaXMFCnNidEFzc2V0SWQDCQAAAgUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UAAAAABCZjdXJyZW50U0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgkAawMFI2Jhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAQJYW1vdW50U0JUCQBoAgUQcmV3YXJkVG9rZW5Db3VudAUmY3VycmVudFNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW4DCQBmAgUJYW1vdW50U0JUBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UFCWFtb3VudFNCVAEQaXNBdXRob3JpemVkUG9vbAEEcG9vbAQLY2hlY2tlZFBvb2wJAQ9hc0FkZHJlc3NTdHJpbmcBBQRwb29sBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5CQEIY29udGFpbnMCBQdscFBvb2xzBQtjaGVja2VkUG9vbAELZ2V0UG9vbERhdGEBBHBvb2wDCQEBIQEJARBpc0F1dGhvcml6ZWRQb29sAQUEcG9vbAkAAgECE05vdCBhdXRob3JpemVkIHBvb2wEC3Bvb2xMcFRva2VuCQERQGV4dHJOYXRpdmUoMTA1MykCCQERQGV4dHJOYXRpdmUoMTA2MikBBQRwb29sAgV0b2tlbgQYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBQRwb29sCQCUCgIFC3Bvb2xMcFRva2VuBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MMAWkBC2NvbnN0cnVjdG9yBAxhZG1pbkFkZHJlc3MMc2J0U3Rha2VQb29sFmluaXRpYWxTQlRUb2tlbnNBbW91bnQac2J0VG9rZW5zRm9yT25lUmV3YXJkVG9rZW4DCQEJaXNEZWZpbmVkAQkAoAgBBRBpc0NvbnN0cnVjdGVkS2V5CQACAQIiQ29uc3RydWN0b3IgY2FuIGJlIGNhbGxlZCBvbmUgdGltZQQEc2JXeAkAwwgHAgh0ZXN0U2JXWAIAAAAACAYFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQRzYld4CQDMCAIFBHNiV3gJAMwIAgkBC1N0cmluZ0VudHJ5AgUOc2JXeEFzc2V0SWRLZXkJANgEAQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCBQ9hZG1pbkFkZHJlc3NLZXkJAQ9hc0FkZHJlc3NTdHJpbmcBBQxhZG1pbkFkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgUPc2J0U3Rha2VQb29sS2V5CQEPYXNBZGRyZXNzU3RyaW5nAQUMc2J0U3Rha2VQb29sCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJzYnRTdGFrZVBvb2xGZWVLZXkA+AoJAMwIAgkBDEludGVnZXJFbnRyeQIFG3NidFN0YWtlUG9vbFRvdGFsQ2xhaW1lZEtleQAACQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkCAAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQDYBAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUQaXNDb25zdHJ1Y3RlZEtleQYJAMwIAgkBDEludGVnZXJFbnRyeQIFEHRvdGFsV1hMb2NrZWRLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQUWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkFGnNidFRva2Vuc0Zvck9uZVJld2FyZFRva2VuBQNuaWwBaQEUY2hhbmdlU0JUUG9vbEFkZHJlc3MBB2FkZHJlc3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BQdhZGRyZXNzBQNuaWwBaQEIbWludFNiV3gAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIUT25lIFBheW1lbnQgZXhwZWN0ZWQEB3BheW1lbnQJAQlhc1BheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFB3BheW1lbnQGYW1vdW50AwMJAQIhPQIIBQdwYXltZW50B2Fzc2V0SWQFCXd4QXNzZXRJZAYJAGcCAAAFBmFtb3VudAkAAgECGFdyb25nIEFzc2V0IGlkIG9yIGFtb3VudAQNdG90YWxXWExvY2tlZAkBEUBleHRyTmF0aXZlKDEwNTUpAQUQdG90YWxXWExvY2tlZEtleQQLc2JXeEFzc2V0SWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEFDnNiV3hBc3NldElkS2V5BBF3YXZlc0V4Y2hhbmdlSW5mbwkA/AcECQEHQWRkcmVzcwEFDXdhdmVzRXhjaGFuZ2UCF3VzZXJNYXhEdXJhdGlvblJFQURPTkxZBQNuaWwFA25pbAMJAAACBRF3YXZlc0V4Y2hhbmdlSW5mbwURd2F2ZXNFeGNoYW5nZUluZm8EByRtYXRjaDAFEXdhdmVzRXhjaGFuZ2VJbmZvAwkAAQIFByRtYXRjaDACDShTdHJpbmcsIEludCkEBXR1cGxlBQckbWF0Y2gwBAxmdW5jdGlvbk5hbWUIBQV0dXBsZQJfMQQPbWF4TG9ja0R1cmF0aW9uCAUFdHVwbGUCXzIEBnJlc3VsdAkA/AcECQEHQWRkcmVzcwEFDXdhdmVzRXhjaGFuZ2UFDGZ1bmN0aW9uTmFtZQkAzAgCBQ9tYXhMb2NrRHVyYXRpb24FA25pbAkAzAgCBQdwYXltZW50BQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQEBHNiV3gJANkEAQULc2JXeEFzc2V0SWQJAMwIAgkBB1JlaXNzdWUDBQRzYld4BQZhbW91bnQGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwUGYW1vdW50BQRzYld4CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRB0b3RhbFdYTG9ja2VkS2V5CQBkAgUNdG90YWxXWExvY2tlZAUGYW1vdW50BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAhhGQVRBTDogSW5jb25zaXN0ZW50IGRhdGEJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVY2xhaW1XeFN0YWtpbmdSZXdhcmRzAAQTY3VycmVudFd4T25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQDCQAAAgUTY3VycmVudFd4T25Db250cmFjdAUTY3VycmVudFd4T25Db250cmFjdAQLY2xhaW1SZXN1bHQJAPwHBAkBB0FkZHJlc3MBBRVjbGFpbVd4UmV3YXJkQ29udHJhY3QCC2NsYWltUmV3YXJkBQNuaWwFA25pbAMJAAACBQtjbGFpbVJlc3VsdAULY2xhaW1SZXN1bHQED25ld1d4T25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXeE9uQ29udHJhY3QFE2N1cnJlbnRXeE9uQ29udHJhY3QDCQAAAgUHY2xhaW1lZAAACQACAQIQTm90aGluZyB0byBjbGFpbQQYc2J0U3Rha2VQb29sVG90YWxDbGFpbWVkCQERQGV4dHJOYXRpdmUoMTA1NSkBBRtzYnRTdGFrZVBvb2xUb3RhbENsYWltZWRLZXkJAMwIAgkBDEludGVnZXJFbnRyeQIFG3NidFN0YWtlUG9vbFRvdGFsQ2xhaW1lZEtleQkAZAIFGHNidFN0YWtlUG9vbFRvdGFsQ2xhaW1lZAUHY2xhaW1lZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9zYnRTdGFrZVBvb2xLZXkFB2NsYWltZWQFCXd4QXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2FkZFBvb2wCB2FkZHJlc3MYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24EB2xwUG9vbHMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFCmxwUG9vbHNLZXkDCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAhJQb29sIGFscmVhZHkgYWRkZWQECG5ld1Bvb2xzAwkAAAIJALECAQUHbHBQb29scwAABQdhZGRyZXNzCQCsAgIJAKwCAgUHbHBQb29scwUDU0VQBQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkFCG5ld1Bvb2xzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9hc0FkZHJlc3NTdHJpbmcBBQdhZGRyZXNzCQEPYXNBZGRyZXNzU3RyaW5nAQUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzBQNuaWwBaQEKcmVtb3ZlUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5AwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAg5Qb29sIG5vdCBmb3VuZAQKcG9vbHNBcnJheQkAvAkCBQdscFBvb2xzBQNTRVAECXBvb2xJbmRleAkBBWFzSW50AQkAzwgCBQpwb29sc0FycmF5BQdhZGRyZXNzBAhuZXdQb29scwkAugkCCQDRCAIFCnBvb2xzQXJyYXkFCXBvb2xJbmRleAUDU0VQCQDOCAIJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQUIbmV3UG9vbHMJAMwIAgkBC0RlbGV0ZUVudHJ5AQUHYWRkcmVzcwUDbmlsAwkAAAIJARFAZXh0ck5hdGl2ZSgxMDU4KQEFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5BQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AgAFA25pbAUDbmlsAWkBGHNldEFkZGl0aW9uYWxSZXdhcmRzUG9vbAEHYWRkcmVzcwMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkBASEBCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAjtPbmx5IGF1dGhvcml6ZWQgcG9vbCBjYW4gYmUgYWRkZWQgYXMgYWRkaXRpb25hbCByZXdhcmQgcG9vbAkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQUHYWRkcmVzcwUDbmlsAWkBG3NldEFkZGl0aW9uYWxSZXdhcmRzUG9vbEZlZQEDZmVlAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24DCQBmAgUDZmVlANAPCQACAQIcRmVlIGNhbid0IGJlIGJpZ2dlciB0aGFuIDIwJQMJAGYCAAAFA2ZlZQkAAgECFUZlZSBjYW4ndCBiZSBuZWdhdGl2ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkFA2ZlZQUDbmlsAWkBDXNldFNidFBvb2xGZWUBA2ZlZQMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkAZgIFA2ZlZQDQDwkAAgECHEZlZSBjYW4ndCBiZSBiaWdnZXIgdGhhbiAyMCUDCQBmAgAABQNmZWUJAAIBAhVGZWUgY2FuJ3QgYmUgbmVnYXRpdmUJAMwIAgkBDEludGVnZXJFbnRyeQIFEnNidFN0YWtlUG9vbEZlZUtleQUDZmVlBQNuaWwBaQEMc3Rha2VQb29sTHBzAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECFE9uZSBQYXltZW50IGV4cGVjdGVkBAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQHcGF5bWVudAkBCWFzUGF5bWVudAEJAJEDAggFAWkIcGF5bWVudHMAAAMDCQECIT0CCAUHcGF5bWVudAdhc3NldElkCQDZBAEFC3Bvb2xMcFRva2VuBgkAZwIAAAgFB3BheW1lbnQGYW1vdW50CQACAQIbV3JvbmcgTFAgQXNzZXQgaWQgb3IgYW1vdW50BAZyZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgVzdGFrZQUDbmlsCQDMCAIFB3BheW1lbnQFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBD3dpdGhkcmF3UG9vbExwcwEGYW1vdW50BAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQGcmVzdWx0CQD8BwQFGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwIHdW5zdGFrZQkAzAgCBQtwb29sTHBUb2tlbgkAzAgCBQZhbW91bnQFA25pbAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQdBZGRyZXNzAQgIBQFpBmNhbGxlcgVieXRlcwUGYW1vdW50CQDZBAEFC3Bvb2xMcFRva2VuBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEQY2xhaW1Qb29sUmV3YXJkcwEEcG9vbAQLcG9vbEFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHBvb2wECHBvb2xEYXRhCQELZ2V0UG9vbERhdGEBBQRwb29sBAtwb29sTHBUb2tlbggFCHBvb2xEYXRhAl8xBBh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MIBQhwb29sRGF0YQJfMgQTY3VycmVudFdYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQDCQAAAgUTY3VycmVudFdYT25Db250cmFjdAUTY3VycmVudFdYT25Db250cmFjdAQLY2xhaW1SZXN1bHQJAPwHBAUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAgdjbGFpbVdYCQDMCAIFC3Bvb2xMcFRva2VuBQNuaWwFA25pbAMJAAACBQtjbGFpbVJlc3VsdAULY2xhaW1SZXN1bHQED25ld1dYT25Db250cmFjdAkA8AcCBQR0aGlzBQl3eEFzc2V0SWQEB2NsYWltZWQJAGUCBQ9uZXdXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QDCQAAAgUHY2xhaW1lZAAACQACAQIQTm90aGluZyB0byBjbGFpbQQPc2J0UmV3YXJkQW1vdW50CQEfY2FsY3VsYXRlQ3VycmVudFJld2FyZFNCVEFtb3VudAEFB2NsYWltZWQEEHNidFJld2FyZEFjdGlvbnMDCQAAAgUPc2J0UmV3YXJkQW1vdW50AAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQtwb29sQWRkcmVzcwUPc2J0UmV3YXJkQW1vdW50BQpzYnRBc3NldElkBQNuaWwEDHNidFN0YWtlUG9vbAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BA9zYnRTdGFrZVBvb2xGZWUJARFAZXh0ck5hdGl2ZSgxMDU1KQEFEnNidFN0YWtlUG9vbEZlZUtleQQYc2J0U3Rha2VQb29sVG90YWxDbGFpbWVkCQERQGV4dHJOYXRpdmUoMTA1NSkBBRtzYnRTdGFrZVBvb2xUb3RhbENsYWltZWRLZXkEEnNidFN0YWtlUG9vbEFtb3VudAkAbgQFB2NsYWltZWQFD3NidFN0YWtlUG9vbEZlZQUHZmVlUmFuawUGSEFMRlVQBBNzYnRTdGFrZVBvb2xBY3Rpb25zAwkAAAIFEnNidFN0YWtlUG9vbEFtb3VudAAABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUMc2J0U3Rha2VQb29sBRJzYnRTdGFrZVBvb2xBbW91bnQFCXd4QXNzZXRJZAUDbmlsBBRhZGRpdGlvbmFsUmV3YXJkUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUXYWRkaXRpb25hbFJld2FyZFBvb2xLZXkEGGFkZGl0aW9uYWxSZXdhcmRQb29sRnJlZQkBEUBleHRyTmF0aXZlKDEwNTUpAQUaYWRkaXRpb25hbFJld2FyZFBvb2xGZWVLZXkEGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50AwkAAAIJALECAQUUYWRkaXRpb25hbFJld2FyZFBvb2wAAAAAAwkBAiE9AgUUYWRkaXRpb25hbFJld2FyZFBvb2wFBHBvb2wJAG4EBQdjbGFpbWVkBRhhZGRpdGlvbmFsUmV3YXJkUG9vbEZyZWUFB2ZlZVJhbmsFBkhBTEZVUAAABBxhZGRpdGlvbmFsUmV3YXJkc1Bvb2xBY3Rpb25zAwkAAAIFGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50AAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQFCXd4QXNzZXRJZAUDbmlsBAtwb29sQ2xhaW1lZAkAZQIJAGUCBQdjbGFpbWVkBRJzYnRTdGFrZVBvb2xBbW91bnQFGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50CQDOCAIJAM4IAgkAzggCBRBzYnRSZXdhcmRBY3Rpb25zBRNzYnRTdGFrZVBvb2xBY3Rpb25zBRxhZGRpdGlvbmFsUmV3YXJkc1Bvb2xBY3Rpb25zCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRtzYnRTdGFrZVBvb2xUb3RhbENsYWltZWRLZXkJAGQCBRhzYnRTdGFrZVBvb2xUb3RhbENsYWltZWQFEnNidFN0YWtlUG9vbEFtb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQtwb29sQWRkcmVzcwULcG9vbENsYWltZWQFCXd4QXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAJr9IZo=",
    "height": 2837282,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2vEt6ShmPrHdpMYcndhbUHtAKLch7hXdam5nVxhBpZ9z
Next: EAdvzzmBtUyshwxbECnqyAVPPqin7LdNatUhPRF2rCR7

Diff: 
Old New Differences
109 109          let assetId = calculateAssetId(sbWx)
110 110  [sbWx, StringEntry(sbWxAssetIdKey, toBase58String(assetId)), StringEntry(adminAddressKey, asAddressString(adminAddress)), StringEntry(sbtStakePoolKey, asAddressString(sbtStakePool)), IntegerEntry(sbtStakePoolFeeKey, 1400), IntegerEntry(sbtStakePoolTotalClaimedKey, 0), StringEntry(lpPoolsKey, ""), StringEntry(additionalRewardPoolKey, ""), IntegerEntry(additionalRewardPoolFeeKey, 600), BooleanEntry(isConstructedKey, true), IntegerEntry(totalWXLockedKey, 0), IntegerEntry(initialSBTTokensAmountKey, initialSBTTokensAmount), IntegerEntry(baseSBTTokenAmountForOneRewardTokenKey, sbtTokensForOneRewardToken)]
111 111          }
112 + 
113 + 
114 + 
115 + @Callable(i)
116 + func changeSBTPoolAddress (address) = [StringEntry(getStringValue(sbtStakePoolKey), address)]
112 117  
113 118  
114 119  
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 wxAssetId = base58'9Eu9de5GPPgLzY16bevCaxF4rFr4jA9wqyTfqcjksU82'
9 9  
10 10  let sbtAssetId = base58'H144sePa8bNCDFTzZNkUnk6QMz387T2ruKPMQ5DJ3DyS'
11 11  
12 12  let wavesExchange = base58'3NCukxG6cc7pqKoEwTZsr1CRrHMHfvGM7ok'
13 13  
14 14  let claimWxRewardContract = base58'3NCukxG6cc7pqKoEwTZsr1CRrHMHfvGM7ok'
15 15  
16 16  let isConstructedKey = "is_constructed"
17 17  
18 18  let adminAddressKey = "admin_address"
19 19  
20 20  let sbWxAssetIdKey = "sb_wx_asset_id"
21 21  
22 22  let lpPoolsKey = "lp_pools"
23 23  
24 24  let additionalRewardPoolKey = "additional_reward_pool"
25 25  
26 26  let additionalRewardPoolFeeKey = "additional_reward_pool_fee"
27 27  
28 28  let sbtStakePoolKey = "sbt_stake_pool"
29 29  
30 30  let sbtStakePoolFeeKey = "sbt_stake_pool_fee"
31 31  
32 32  let sbtStakePoolTotalClaimedKey = "sbt_stake_pool_total_claimed"
33 33  
34 34  let totalWXLockedKey = "total_wx_locked"
35 35  
36 36  let initialSBTTokensAmountKey = "initial_SBT_tokens_amount"
37 37  
38 38  let baseSBTTokenAmountForOneRewardTokenKey = "base_SBT_token_amount_for_one_reward_token"
39 39  
40 40  func asPayment (v) = match v {
41 41      case p: AttachedPayment => 
42 42          p
43 43      case _ => 
44 44          throw("fail to cast into AttachedPayment")
45 45  }
46 46  
47 47  
48 48  func asByteVector (v) = match v {
49 49      case p: ByteVector => 
50 50          p
51 51      case _ => 
52 52          throw("fail to cast into ByteVector")
53 53  }
54 54  
55 55  
56 56  func asInt (val) = match val {
57 57      case valInt: Int => 
58 58          valInt
59 59      case _ => 
60 60          throw("fail to cast into Int")
61 61  }
62 62  
63 63  
64 64  func asAddressString (address) = match addressFromString(address) {
65 65      case a: Address => 
66 66          toString(a)
67 67      case _ => 
68 68          throw("fail to cast into Address String")
69 69  }
70 70  
71 71  
72 72  func calculateCurrentRewardSBTAmount (rewardTokenCount) = {
73 73      let baseSBTTokenAmountForOneRewardToken = getIntegerValue(this, baseSBTTokenAmountForOneRewardTokenKey)
74 74      let initialSBTTokensAmount = getIntegerValue(this, initialSBTTokensAmountKey)
75 75      let currentSBTTokensBalance = assetBalance(this, sbtAssetId)
76 76      if ((currentSBTTokensBalance == 0))
77 77          then 0
78 78          else {
79 79              let currentSBTTokenAmountForOneRewardToken = fraction(baseSBTTokenAmountForOneRewardToken, currentSBTTokensBalance, initialSBTTokensAmount)
80 80              let amountSBT = (rewardTokenCount * currentSBTTokenAmountForOneRewardToken)
81 81              if ((amountSBT > currentSBTTokensBalance))
82 82                  then currentSBTTokensBalance
83 83                  else amountSBT
84 84              }
85 85      }
86 86  
87 87  
88 88  func isAuthorizedPool (pool) = {
89 89      let checkedPool = asAddressString(pool)
90 90      let lpPools = getStringValue(lpPoolsKey)
91 91      contains(lpPools, checkedPool)
92 92      }
93 93  
94 94  
95 95  func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
96 96      then throw("Not authorized pool")
97 97      else {
98 98          let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
99 99          let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
100 100          $Tuple2(poolLpToken, wavesExchangePoolAddress)
101 101          }
102 102  
103 103  
104 104  @Callable(i)
105 105  func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
106 106      then throw("Constructor can be called one time")
107 107      else {
108 108          let sbWx = Issue("testSbWX", "", 0, 8, true, unit, 0)
109 109          let assetId = calculateAssetId(sbWx)
110 110  [sbWx, StringEntry(sbWxAssetIdKey, toBase58String(assetId)), StringEntry(adminAddressKey, asAddressString(adminAddress)), StringEntry(sbtStakePoolKey, asAddressString(sbtStakePool)), IntegerEntry(sbtStakePoolFeeKey, 1400), IntegerEntry(sbtStakePoolTotalClaimedKey, 0), StringEntry(lpPoolsKey, ""), StringEntry(additionalRewardPoolKey, ""), IntegerEntry(additionalRewardPoolFeeKey, 600), BooleanEntry(isConstructedKey, true), IntegerEntry(totalWXLockedKey, 0), IntegerEntry(initialSBTTokensAmountKey, initialSBTTokensAmount), IntegerEntry(baseSBTTokenAmountForOneRewardTokenKey, sbtTokensForOneRewardToken)]
111 111          }
112 + 
113 + 
114 + 
115 + @Callable(i)
116 + func changeSBTPoolAddress (address) = [StringEntry(getStringValue(sbtStakePoolKey), address)]
112 117  
113 118  
114 119  
115 120  @Callable(i)
116 121  func mintSbWx () = if ((size(i.payments) != 1))
117 122      then throw("One Payment expected")
118 123      else {
119 124          let payment = asPayment(i.payments[0])
120 125          let amount = payment.amount
121 126          if (if ((payment.assetId != wxAssetId))
122 127              then true
123 128              else (0 >= amount))
124 129              then throw("Wrong Asset id or amount")
125 130              else {
126 131                  let totalWXLocked = getIntegerValue(totalWXLockedKey)
127 132                  let sbWxAssetId = getStringValue(sbWxAssetIdKey)
128 133                  let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", nil, nil)
129 134                  if ((wavesExchangeInfo == wavesExchangeInfo))
130 135                      then                     match wavesExchangeInfo {
131 136                          case tuple: (String, Int) => 
132 137                              let functionName = tuple._1
133 138                              let maxLockDuration = tuple._2
134 139                              let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
135 140                              if ((result == result))
136 141                                  then {
137 142                                      let sbWx = fromBase58String(sbWxAssetId)
138 143  [Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
139 144                                      }
140 145                                  else throw("Strict value is not equal to itself.")
141 146                          case _ => 
142 147                              throw("FATAL: Inconsistent data")
143 148                      }
144 149                      else throw("Strict value is not equal to itself.")
145 150                  }
146 151          }
147 152  
148 153  
149 154  
150 155  @Callable(i)
151 156  func claimWxStakingRewards () = {
152 157      let currentWxOnContract = assetBalance(this, wxAssetId)
153 158      if ((currentWxOnContract == currentWxOnContract))
154 159          then {
155 160              let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
156 161              if ((claimResult == claimResult))
157 162                  then {
158 163                      let newWxOnContract = assetBalance(this, wxAssetId)
159 164                      let claimed = (newWxOnContract - currentWxOnContract)
160 165                      if ((claimed == 0))
161 166                          then throw("Nothing to claim")
162 167                          else {
163 168                              let sbtStakePoolTotalClaimed = getIntegerValue(sbtStakePoolTotalClaimedKey)
164 169  [IntegerEntry(sbtStakePoolTotalClaimedKey, (sbtStakePoolTotalClaimed + claimed)), ScriptTransfer(addressFromStringValue(getStringValue(sbtStakePoolKey)), claimed, wxAssetId)]
165 170                              }
166 171                      }
167 172                  else throw("Strict value is not equal to itself.")
168 173              }
169 174          else throw("Strict value is not equal to itself.")
170 175      }
171 176  
172 177  
173 178  
174 179  @Callable(i)
175 180  func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
176 181      then throw("Only Admin can call this function")
177 182      else {
178 183          let lpPools = getStringValue(lpPoolsKey)
179 184          if (isAuthorizedPool(address))
180 185              then throw("Pool already added")
181 186              else {
182 187                  let newPools = if ((size(lpPools) == 0))
183 188                      then address
184 189                      else ((lpPools + SEP) + address)
185 190  [StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress))]
186 191                  }
187 192          }
188 193  
189 194  
190 195  
191 196  @Callable(i)
192 197  func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
193 198      then throw("Only Admin can call this function")
194 199      else {
195 200          let lpPools = getStringValue(lpPoolsKey)
196 201          if (!(isAuthorizedPool(address)))
197 202              then throw("Pool not found")
198 203              else {
199 204                  let poolsArray = split_4C(lpPools, SEP)
200 205                  let poolIndex = asInt(indexOf(poolsArray, address))
201 206                  let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
202 207                  ([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
203 208                      then [StringEntry(additionalRewardPoolKey, "")]
204 209                      else nil))
205 210                  }
206 211          }
207 212  
208 213  
209 214  
210 215  @Callable(i)
211 216  func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
212 217      then throw("Only Admin can call this function")
213 218      else if (!(isAuthorizedPool(address)))
214 219          then throw("Only authorized pool can be added as additional reward pool")
215 220          else [StringEntry(additionalRewardPoolKey, address)]
216 221  
217 222  
218 223  
219 224  @Callable(i)
220 225  func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
221 226      then throw("Only Admin can call this function")
222 227      else if ((fee > 2000))
223 228          then throw("Fee can't be bigger than 20%")
224 229          else if ((0 > fee))
225 230              then throw("Fee can't be negative")
226 231              else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
227 232  
228 233  
229 234  
230 235  @Callable(i)
231 236  func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
232 237      then throw("Only Admin can call this function")
233 238      else if ((fee > 2000))
234 239          then throw("Fee can't be bigger than 20%")
235 240          else if ((0 > fee))
236 241              then throw("Fee can't be negative")
237 242              else [IntegerEntry(sbtStakePoolFeeKey, fee)]
238 243  
239 244  
240 245  
241 246  @Callable(i)
242 247  func stakePoolLps () = if ((size(i.payments) != 1))
243 248      then throw("One Payment expected")
244 249      else {
245 250          let poolData = getPoolData(toBase58String(i.caller.bytes))
246 251          let poolLpToken = poolData._1
247 252          let wavesExchangePoolAddress = poolData._2
248 253          let payment = asPayment(i.payments[0])
249 254          if (if ((payment.assetId != fromBase58String(poolLpToken)))
250 255              then true
251 256              else (0 >= payment.amount))
252 257              then throw("Wrong LP Asset id or amount")
253 258              else {
254 259                  let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
255 260                  if ((result == result))
256 261                      then nil
257 262                      else throw("Strict value is not equal to itself.")
258 263                  }
259 264          }
260 265  
261 266  
262 267  
263 268  @Callable(i)
264 269  func withdrawPoolLps (amount) = {
265 270      let poolData = getPoolData(toBase58String(i.caller.bytes))
266 271      let poolLpToken = poolData._1
267 272      let wavesExchangePoolAddress = poolData._2
268 273      let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
269 274      if ((result == result))
270 275          then [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
271 276          else throw("Strict value is not equal to itself.")
272 277      }
273 278  
274 279  
275 280  
276 281  @Callable(i)
277 282  func claimPoolRewards (pool) = {
278 283      let poolAddress = addressFromStringValue(pool)
279 284      let poolData = getPoolData(pool)
280 285      let poolLpToken = poolData._1
281 286      let wavesExchangePoolAddress = poolData._2
282 287      let currentWXOnContract = assetBalance(this, wxAssetId)
283 288      if ((currentWXOnContract == currentWXOnContract))
284 289          then {
285 290              let claimResult = invoke(wavesExchangePoolAddress, "claimWX", [poolLpToken], nil)
286 291              if ((claimResult == claimResult))
287 292                  then {
288 293                      let newWXOnContract = assetBalance(this, wxAssetId)
289 294                      let claimed = (newWXOnContract - currentWXOnContract)
290 295                      if ((claimed == 0))
291 296                          then throw("Nothing to claim")
292 297                          else {
293 298                              let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
294 299                              let sbtRewardActions = if ((sbtRewardAmount == 0))
295 300                                  then nil
296 301                                  else [ScriptTransfer(poolAddress, sbtRewardAmount, sbtAssetId)]
297 302                              let sbtStakePool = addressFromStringValue(getStringValue(sbtStakePoolKey))
298 303                              let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
299 304                              let sbtStakePoolTotalClaimed = getIntegerValue(sbtStakePoolTotalClaimedKey)
300 305                              let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
301 306                              let sbtStakePoolActions = if ((sbtStakePoolAmount == 0))
302 307                                  then nil
303 308                                  else [ScriptTransfer(sbtStakePool, sbtStakePoolAmount, wxAssetId)]
304 309                              let additionalRewardPool = getStringValue(additionalRewardPoolKey)
305 310                              let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
306 311                              let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
307 312                                  then 0
308 313                                  else if ((additionalRewardPool != pool))
309 314                                      then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
310 315                                      else 0
311 316                              let additionalRewardsPoolActions = if ((additionalRewardPoolAmount == 0))
312 317                                  then nil
313 318                                  else [ScriptTransfer(addressFromStringValue(additionalRewardPool), additionalRewardPoolAmount, wxAssetId)]
314 319                              let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
315 320                              (((sbtRewardActions ++ sbtStakePoolActions) ++ additionalRewardsPoolActions) ++ [IntegerEntry(sbtStakePoolTotalClaimedKey, (sbtStakePoolTotalClaimed + sbtStakePoolAmount)), ScriptTransfer(poolAddress, poolClaimed, wxAssetId)])
316 321                              }
317 322                      }
318 323                  else throw("Strict value is not equal to itself.")
319 324              }
320 325          else throw("Strict value is not equal to itself.")
321 326      }
322 327  
323 328

Old	New		Differences
109	109		let assetId = calculateAssetId(sbWx)
110	110		[sbWx, StringEntry(sbWxAssetIdKey, toBase58String(assetId)), StringEntry(adminAddressKey, asAddressString(adminAddress)), StringEntry(sbtStakePoolKey, asAddressString(sbtStakePool)), IntegerEntry(sbtStakePoolFeeKey, 1400), IntegerEntry(sbtStakePoolTotalClaimedKey, 0), StringEntry(lpPoolsKey, ""), StringEntry(additionalRewardPoolKey, ""), IntegerEntry(additionalRewardPoolFeeKey, 600), BooleanEntry(isConstructedKey, true), IntegerEntry(totalWXLockedKey, 0), IntegerEntry(initialSBTTokensAmountKey, initialSBTTokensAmount), IntegerEntry(baseSBTTokenAmountForOneRewardTokenKey, sbtTokensForOneRewardToken)]
111	111		}
	112	+
	113	+
	114	+
	115	+	@Callable(i)
	116	+	func changeSBTPoolAddress (address) = [StringEntry(getStringValue(sbtStakePoolKey), address)]
112	117
113	118
114	119

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 wxAssetId = base58'9Eu9de5GPPgLzY16bevCaxF4rFr4jA9wqyTfqcjksU82'
9	9
10	10		let sbtAssetId = base58'H144sePa8bNCDFTzZNkUnk6QMz387T2ruKPMQ5DJ3DyS'
11	11
12	12		let wavesExchange = base58'3NCukxG6cc7pqKoEwTZsr1CRrHMHfvGM7ok'
13	13
14	14		let claimWxRewardContract = base58'3NCukxG6cc7pqKoEwTZsr1CRrHMHfvGM7ok'
15	15
16	16		let isConstructedKey = "is_constructed"
17	17
18	18		let adminAddressKey = "admin_address"
19	19
20	20		let sbWxAssetIdKey = "sb_wx_asset_id"
21	21
22	22		let lpPoolsKey = "lp_pools"
23	23
24	24		let additionalRewardPoolKey = "additional_reward_pool"
25	25
26	26		let additionalRewardPoolFeeKey = "additional_reward_pool_fee"
27	27
28	28		let sbtStakePoolKey = "sbt_stake_pool"
29	29
30	30		let sbtStakePoolFeeKey = "sbt_stake_pool_fee"
31	31
32	32		let sbtStakePoolTotalClaimedKey = "sbt_stake_pool_total_claimed"
33	33
34	34		let totalWXLockedKey = "total_wx_locked"
35	35
36	36		let initialSBTTokensAmountKey = "initial_SBT_tokens_amount"
37	37
38	38		let baseSBTTokenAmountForOneRewardTokenKey = "base_SBT_token_amount_for_one_reward_token"
39	39
40	40		func asPayment (v) = match v {
41	41		case p: AttachedPayment =>
42	42		p
43	43		case _ =>
44	44		throw("fail to cast into AttachedPayment")
45	45		}
46	46
47	47
48	48		func asByteVector (v) = match v {
49	49		case p: ByteVector =>
50	50		p
51	51		case _ =>
52	52		throw("fail to cast into ByteVector")
53	53		}
54	54
55	55
56	56		func asInt (val) = match val {
57	57		case valInt: Int =>
58	58		valInt
59	59		case _ =>
60	60		throw("fail to cast into Int")
61	61		}
62	62
63	63
64	64		func asAddressString (address) = match addressFromString(address) {
65	65		case a: Address =>
66	66		toString(a)
67	67		case _ =>
68	68		throw("fail to cast into Address String")
69	69		}
70	70
71	71
72	72		func calculateCurrentRewardSBTAmount (rewardTokenCount) = {
73	73		let baseSBTTokenAmountForOneRewardToken = getIntegerValue(this, baseSBTTokenAmountForOneRewardTokenKey)
74	74		let initialSBTTokensAmount = getIntegerValue(this, initialSBTTokensAmountKey)
75	75		let currentSBTTokensBalance = assetBalance(this, sbtAssetId)
76	76		if ((currentSBTTokensBalance == 0))
77	77		then 0
78	78		else {
79	79		let currentSBTTokenAmountForOneRewardToken = fraction(baseSBTTokenAmountForOneRewardToken, currentSBTTokensBalance, initialSBTTokensAmount)
80	80		let amountSBT = (rewardTokenCount * currentSBTTokenAmountForOneRewardToken)
81	81		if ((amountSBT > currentSBTTokensBalance))
82	82		then currentSBTTokensBalance
83	83		else amountSBT
84	84		}
85	85		}
86	86
87	87
88	88		func isAuthorizedPool (pool) = {
89	89		let checkedPool = asAddressString(pool)
90	90		let lpPools = getStringValue(lpPoolsKey)
91	91		contains(lpPools, checkedPool)
92	92		}
93	93
94	94
95	95		func getPoolData (pool) = if (!(isAuthorizedPool(pool)))
96	96		then throw("Not authorized pool")
97	97		else {
98	98		let poolLpToken = getStringValue(addressFromStringValue(pool), "token")
99	99		let wavesExchangePoolAddress = addressFromStringValue(getStringValue(pool))
100	100		$Tuple2(poolLpToken, wavesExchangePoolAddress)
101	101		}
102	102
103	103
104	104		@Callable(i)
105	105		func constructor (adminAddress,sbtStakePool,initialSBTTokensAmount,sbtTokensForOneRewardToken) = if (isDefined(getBoolean(isConstructedKey)))
106	106		then throw("Constructor can be called one time")
107	107		else {
108	108		let sbWx = Issue("testSbWX", "", 0, 8, true, unit, 0)
109	109		let assetId = calculateAssetId(sbWx)
110	110		[sbWx, StringEntry(sbWxAssetIdKey, toBase58String(assetId)), StringEntry(adminAddressKey, asAddressString(adminAddress)), StringEntry(sbtStakePoolKey, asAddressString(sbtStakePool)), IntegerEntry(sbtStakePoolFeeKey, 1400), IntegerEntry(sbtStakePoolTotalClaimedKey, 0), StringEntry(lpPoolsKey, ""), StringEntry(additionalRewardPoolKey, ""), IntegerEntry(additionalRewardPoolFeeKey, 600), BooleanEntry(isConstructedKey, true), IntegerEntry(totalWXLockedKey, 0), IntegerEntry(initialSBTTokensAmountKey, initialSBTTokensAmount), IntegerEntry(baseSBTTokenAmountForOneRewardTokenKey, sbtTokensForOneRewardToken)]
111	111		}
	112	+
	113	+
	114	+
	115	+	@Callable(i)
	116	+	func changeSBTPoolAddress (address) = [StringEntry(getStringValue(sbtStakePoolKey), address)]
112	117
113	118
114	119
115	120		@Callable(i)
116	121		func mintSbWx () = if ((size(i.payments) != 1))
117	122		then throw("One Payment expected")
118	123		else {
119	124		let payment = asPayment(i.payments[0])
120	125		let amount = payment.amount
121	126		if (if ((payment.assetId != wxAssetId))
122	127		then true
123	128		else (0 >= amount))
124	129		then throw("Wrong Asset id or amount")
125	130		else {
126	131		let totalWXLocked = getIntegerValue(totalWXLockedKey)
127	132		let sbWxAssetId = getStringValue(sbWxAssetIdKey)
128	133		let wavesExchangeInfo = invoke(Address(wavesExchange), "userMaxDurationREADONLY", nil, nil)
129	134		if ((wavesExchangeInfo == wavesExchangeInfo))
130	135		then match wavesExchangeInfo {
131	136		case tuple: (String, Int) =>
132	137		let functionName = tuple._1
133	138		let maxLockDuration = tuple._2
134	139		let result = invoke(Address(wavesExchange), functionName, [maxLockDuration], [payment])
135	140		if ((result == result))
136	141		then {
137	142		let sbWx = fromBase58String(sbWxAssetId)
138	143		[Reissue(sbWx, amount, true), ScriptTransfer(Address(i.caller.bytes), amount, sbWx), IntegerEntry(totalWXLockedKey, (totalWXLocked + amount))]
139	144		}
140	145		else throw("Strict value is not equal to itself.")
141	146		case _ =>
142	147		throw("FATAL: Inconsistent data")
143	148		}
144	149		else throw("Strict value is not equal to itself.")
145	150		}
146	151		}
147	152
148	153
149	154
150	155		@Callable(i)
151	156		func claimWxStakingRewards () = {
152	157		let currentWxOnContract = assetBalance(this, wxAssetId)
153	158		if ((currentWxOnContract == currentWxOnContract))
154	159		then {
155	160		let claimResult = invoke(Address(claimWxRewardContract), "claimReward", nil, nil)
156	161		if ((claimResult == claimResult))
157	162		then {
158	163		let newWxOnContract = assetBalance(this, wxAssetId)
159	164		let claimed = (newWxOnContract - currentWxOnContract)
160	165		if ((claimed == 0))
161	166		then throw("Nothing to claim")
162	167		else {
163	168		let sbtStakePoolTotalClaimed = getIntegerValue(sbtStakePoolTotalClaimedKey)
164	169		[IntegerEntry(sbtStakePoolTotalClaimedKey, (sbtStakePoolTotalClaimed + claimed)), ScriptTransfer(addressFromStringValue(getStringValue(sbtStakePoolKey)), claimed, wxAssetId)]
165	170		}
166	171		}
167	172		else throw("Strict value is not equal to itself.")
168	173		}
169	174		else throw("Strict value is not equal to itself.")
170	175		}
171	176
172	177
173	178
174	179		@Callable(i)
175	180		func addPool (address,wavesExchangePoolAddress) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
176	181		then throw("Only Admin can call this function")
177	182		else {
178	183		let lpPools = getStringValue(lpPoolsKey)
179	184		if (isAuthorizedPool(address))
180	185		then throw("Pool already added")
181	186		else {
182	187		let newPools = if ((size(lpPools) == 0))
183	188		then address
184	189		else ((lpPools + SEP) + address)
185	190		[StringEntry(lpPoolsKey, newPools), StringEntry(asAddressString(address), asAddressString(wavesExchangePoolAddress))]
186	191		}
187	192		}
188	193
189	194
190	195
191	196		@Callable(i)
192	197		func removePool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
193	198		then throw("Only Admin can call this function")
194	199		else {
195	200		let lpPools = getStringValue(lpPoolsKey)
196	201		if (!(isAuthorizedPool(address)))
197	202		then throw("Pool not found")
198	203		else {
199	204		let poolsArray = split_4C(lpPools, SEP)
200	205		let poolIndex = asInt(indexOf(poolsArray, address))
201	206		let newPools = makeString_2C(removeByIndex(poolsArray, poolIndex), SEP)
202	207		([StringEntry(lpPoolsKey, newPools), DeleteEntry(address)] ++ (if ((getStringValue(additionalRewardPoolKey) == address))
203	208		then [StringEntry(additionalRewardPoolKey, "")]
204	209		else nil))
205	210		}
206	211		}
207	212
208	213
209	214
210	215		@Callable(i)
211	216		func setAdditionalRewardsPool (address) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
212	217		then throw("Only Admin can call this function")
213	218		else if (!(isAuthorizedPool(address)))
214	219		then throw("Only authorized pool can be added as additional reward pool")
215	220		else [StringEntry(additionalRewardPoolKey, address)]
216	221
217	222
218	223
219	224		@Callable(i)
220	225		func setAdditionalRewardsPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
221	226		then throw("Only Admin can call this function")
222	227		else if ((fee > 2000))
223	228		then throw("Fee can't be bigger than 20%")
224	229		else if ((0 > fee))
225	230		then throw("Fee can't be negative")
226	231		else [IntegerEntry(additionalRewardPoolFeeKey, fee)]
227	232
228	233
229	234
230	235		@Callable(i)
231	236		func setSbtPoolFee (fee) = if ((toBase58String(i.caller.bytes) != getStringValue(adminAddressKey)))
232	237		then throw("Only Admin can call this function")
233	238		else if ((fee > 2000))
234	239		then throw("Fee can't be bigger than 20%")
235	240		else if ((0 > fee))
236	241		then throw("Fee can't be negative")
237	242		else [IntegerEntry(sbtStakePoolFeeKey, fee)]
238	243
239	244
240	245
241	246		@Callable(i)
242	247		func stakePoolLps () = if ((size(i.payments) != 1))
243	248		then throw("One Payment expected")
244	249		else {
245	250		let poolData = getPoolData(toBase58String(i.caller.bytes))
246	251		let poolLpToken = poolData._1
247	252		let wavesExchangePoolAddress = poolData._2
248	253		let payment = asPayment(i.payments[0])
249	254		if (if ((payment.assetId != fromBase58String(poolLpToken)))
250	255		then true
251	256		else (0 >= payment.amount))
252	257		then throw("Wrong LP Asset id or amount")
253	258		else {
254	259		let result = invoke(wavesExchangePoolAddress, "stake", nil, [payment])
255	260		if ((result == result))
256	261		then nil
257	262		else throw("Strict value is not equal to itself.")
258	263		}
259	264		}
260	265
261	266
262	267
263	268		@Callable(i)
264	269		func withdrawPoolLps (amount) = {
265	270		let poolData = getPoolData(toBase58String(i.caller.bytes))
266	271		let poolLpToken = poolData._1
267	272		let wavesExchangePoolAddress = poolData._2
268	273		let result = invoke(wavesExchangePoolAddress, "unstake", [poolLpToken, amount], nil)
269	274		if ((result == result))
270	275		then [ScriptTransfer(Address(i.caller.bytes), amount, fromBase58String(poolLpToken))]
271	276		else throw("Strict value is not equal to itself.")
272	277		}
273	278
274	279
275	280
276	281		@Callable(i)
277	282		func claimPoolRewards (pool) = {
278	283		let poolAddress = addressFromStringValue(pool)
279	284		let poolData = getPoolData(pool)
280	285		let poolLpToken = poolData._1
281	286		let wavesExchangePoolAddress = poolData._2
282	287		let currentWXOnContract = assetBalance(this, wxAssetId)
283	288		if ((currentWXOnContract == currentWXOnContract))
284	289		then {
285	290		let claimResult = invoke(wavesExchangePoolAddress, "claimWX", [poolLpToken], nil)
286	291		if ((claimResult == claimResult))
287	292		then {
288	293		let newWXOnContract = assetBalance(this, wxAssetId)
289	294		let claimed = (newWXOnContract - currentWXOnContract)
290	295		if ((claimed == 0))
291	296		then throw("Nothing to claim")
292	297		else {
293	298		let sbtRewardAmount = calculateCurrentRewardSBTAmount(claimed)
294	299		let sbtRewardActions = if ((sbtRewardAmount == 0))
295	300		then nil
296	301		else [ScriptTransfer(poolAddress, sbtRewardAmount, sbtAssetId)]
297	302		let sbtStakePool = addressFromStringValue(getStringValue(sbtStakePoolKey))
298	303		let sbtStakePoolFee = getIntegerValue(sbtStakePoolFeeKey)
299	304		let sbtStakePoolTotalClaimed = getIntegerValue(sbtStakePoolTotalClaimedKey)
300	305		let sbtStakePoolAmount = fraction(claimed, sbtStakePoolFee, feeRank, HALFUP)
301	306		let sbtStakePoolActions = if ((sbtStakePoolAmount == 0))
302	307		then nil
303	308		else [ScriptTransfer(sbtStakePool, sbtStakePoolAmount, wxAssetId)]
304	309		let additionalRewardPool = getStringValue(additionalRewardPoolKey)
305	310		let additionalRewardPoolFree = getIntegerValue(additionalRewardPoolFeeKey)
306	311		let additionalRewardPoolAmount = if ((size(additionalRewardPool) == 0))
307	312		then 0
308	313		else if ((additionalRewardPool != pool))
309	314		then fraction(claimed, additionalRewardPoolFree, feeRank, HALFUP)
310	315		else 0
311	316		let additionalRewardsPoolActions = if ((additionalRewardPoolAmount == 0))
312	317		then nil
313	318		else [ScriptTransfer(addressFromStringValue(additionalRewardPool), additionalRewardPoolAmount, wxAssetId)]
314	319		let poolClaimed = ((claimed - sbtStakePoolAmount) - additionalRewardPoolAmount)
315	320		(((sbtRewardActions ++ sbtStakePoolActions) ++ additionalRewardsPoolActions) ++ [IntegerEntry(sbtStakePoolTotalClaimedKey, (sbtStakePoolTotalClaimed + sbtStakePoolAmount)), ScriptTransfer(poolAddress, poolClaimed, wxAssetId)])
316	321		}
317	322		}
318	323		else throw("Strict value is not equal to itself.")
319	324		}
320	325		else throw("Strict value is not equal to itself.")
321	326		}
322	327
323	328

github/deemru/w8io/873ac7e 
54.00 ms ◑