w8 · tx · 2pG···JQz

tx · 2pGnswLWZWkj5N5fHfEaDcYe3rfVQbN76WoAvDuYgJQz

3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S:  -0.01100000 Waves

2023.11.23 08:15 [3921465] smart account 3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2pGnswLWZWkj5N5fHfEaDcYe3rfVQbN76WoAvDuYgJQz",
    "fee": 1100000,
    "feeAssetId": null,
    "timestamp": 1700716523193,
    "version": 2,
    "chainId": 87,
    "sender": "3PLQehZiwBYVKCrW8aAxKhVge6ecsujbK2S",
    "senderPublicKey": "33eckRoXnCjLErhAuK5EKSVyuSzBNsNr6Rawz3YSppLR",
    "proofs": [
        "4V2b77kc87SYrXbpLQjv1VrimCtnBBhKNB8KZxR526JEc4cj7tniVh6AHwSUyMvmu2U5iT1RQ5AnNyScoEkF9FBK"
    ],
    "script": "base64:BgI0CAISBgoECAgBARIAEgASBAoCCAgSAwoBCBIDCgEIEgMKAQESAwoBARIAEgMKAQESAwoBCBsAA1NFUAICX18AB2ZlZVJhbmsAkE4ADnNidFRva2VuRGlnaXRzAIDC1y8ACXd4QXNzZXRJZAEgkwEcq6nHbiVXzmaecba9qmv4POhYCyru2aBOuzzcFLEACnNidEFzc2V0SWQBIOmMrhOoGxRwWa/UC1htuu2zMp3enjG435ONRkUu2sqxAA13YXZlc0V4Y2hhbmdlARoBV7Pm5lUYEWmw5DMPiFFDpJyu1tVLA0sRWAAVY2xhaW1XeFJld2FyZENvbnRyYWN0ARoBV6al3Fpb40hngYwQyvTFWQUu9rO8ZhsXzQAQaXNDb25zdHJ1Y3RlZEtleQIOaXNfY29uc3RydWN0ZWQAD2FkbWluQWRkcmVzc0tleQINYWRtaW5fYWRkcmVzcwAOc2JXeEFzc2V0SWRLZXkCDnNiX3d4X2Fzc2V0X2lkAApscFBvb2xzS2V5AghscF9wb29scwAXYWRkaXRpb25hbFJld2FyZFBvb2xLZXkCFmFkZGl0aW9uYWxfcmV3YXJkX3Bvb2wAGmFkZGl0aW9uYWxSZXdhcmRQb29sRmVlS2V5AhphZGRpdGlvbmFsX3Jld2FyZF9wb29sX2ZlZQAPc2J0U3Rha2VQb29sS2V5Ag5zYnRfc3Rha2VfcG9vbAASc2J0U3Rha2VQb29sRmVlS2V5AhJzYnRfc3Rha2VfcG9vbF9mZWUAEHRvdGFsV1hMb2NrZWRLZXkCD3RvdGFsX3d4X2xvY2tlZAAZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQIZaW5pdGlhbF9TQlRfdG9rZW5zX2Ftb3VudAAmYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW5LZXkCKmJhc2VfU0JUX3Rva2VuX2Ftb3VudF9mb3Jfb25lX3Jld2FyZF90b2tlbgEWcG9vbFRvdGFsU2J0Q2xhaW1lZEtleQEEcG9vbAkArAICCQCsAgIFBHBvb2wFA1NFUAIRdG90YWxfc2J0X2NsYWltZWQBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEEcG9vbAkArAICCQCsAgIFBHBvb2wFA1NFUAIQdG90YWxfd3hfY2xhaW1lZAEJYXNQYXltZW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACD0F0dGFjaGVkUGF5bWVudAQBcAUHJG1hdGNoMAUBcAkAAgECIWZhaWwgdG8gY2FzdCBpbnRvIEF0dGFjaGVkUGF5bWVudAEMYXNCeXRlVmVjdG9yAQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAXAFByRtYXRjaDAFAXAJAAIBAhxmYWlsIHRvIGNhc3QgaW50byBCeXRlVmVjdG9yAQVhc0ludAEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIDSW50BAZ2YWxJbnQFByRtYXRjaDAFBnZhbEludAkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEPYXNBZGRyZXNzU3RyaW5nAQdhZGRyZXNzBAckbWF0Y2gwCQCmCAEFB2FkZHJlc3MDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAkApQgBBQFhCQACAQIgZmFpbCB0byBjYXN0IGludG8gQWRkcmVzcyBTdHJpbmcBH2NhbGN1bGF0ZUN1cnJlbnRSZXdhcmRTQlRBbW91bnQBEHJld2FyZFRva2VuQ291bnQEI2Jhc2VTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzBSZiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbktleQQWaW5pdGlhbFNCVFRva2Vuc0Ftb3VudAkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwUZaW5pdGlhbFNCVFRva2Vuc0Ftb3VudEtleQQXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UJAPAHAgUEdGhpcwUKc2J0QXNzZXRJZAMJAAACBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQAAAAAEJmN1cnJlbnRTQlRUb2tlbkFtb3VudEZvck9uZVJld2FyZFRva2VuCQBrAwUjYmFzZVNCVFRva2VuQW1vdW50Rm9yT25lUmV3YXJkVG9rZW4FF2N1cnJlbnRTQlRUb2tlbnNCYWxhbmNlBRZpbml0aWFsU0JUVG9rZW5zQW1vdW50BAlhbW91bnRTQlQJAGsDBRByZXdhcmRUb2tlbkNvdW50BSZjdXJyZW50U0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbgUOc2J0VG9rZW5EaWdpdHMDCQBmAgUJYW1vdW50U0JUBRdjdXJyZW50U0JUVG9rZW5zQmFsYW5jZQUXY3VycmVudFNCVFRva2Vuc0JhbGFuY2UFCWFtb3VudFNCVAEQaXNBdXRob3JpemVkUG9vbAEEcG9vbAQLY2hlY2tlZFBvb2wJAQ9hc0FkZHJlc3NTdHJpbmcBBQRwb29sBAdscFBvb2xzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQpscFBvb2xzS2V5CQEIY29udGFpbnMCBQdscFBvb2xzBQtjaGVja2VkUG9vbAELZ2V0UG9vbERhdGEBBHBvb2wDCQEBIQEJARBpc0F1dGhvcml6ZWRQb29sAQUEcG9vbAkAAgECE05vdCBhdXRob3JpemVkIHBvb2wEC3Bvb2xMcFRva2VuCQERQGV4dHJOYXRpdmUoMTA1MykCCQERQGV4dHJOYXRpdmUoMTA2MikBBQRwb29sAgV0b2tlbgQYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBQRwb29sCQCUCgIFC3Bvb2xMcFRva2VuBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MLAWkBC2NvbnN0cnVjdG9yBAxhZG1pbkFkZHJlc3MMc2J0U3Rha2VQb29sFmluaXRpYWxTQlRUb2tlbnNBbW91bnQac2J0VG9rZW5zRm9yT25lUmV3YXJkVG9rZW4DCQEJaXNEZWZpbmVkAQkAoAgBBRBpc0NvbnN0cnVjdGVkS2V5CQACAQIiQ29uc3RydWN0b3IgY2FuIGJlIGNhbGxlZCBvbmUgdGltZQQEc2JXeAkAwwgHAgRzYldYAgAAAAAIBgUEdW5pdAAABAdhc3NldElkCQC4CAEFBHNiV3gEE3NidFN0YWtlUG9vbENoZWNrZWQJAQ9hc0FkZHJlc3NTdHJpbmcBBQxzYnRTdGFrZVBvb2wJAMwIAgUEc2JXeAkAzAgCCQELU3RyaW5nRW50cnkCBQ5zYld4QXNzZXRJZEtleQkA2AQBBQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIFD2FkbWluQWRkcmVzc0tleQkBD2FzQWRkcmVzc1N0cmluZwEFDGFkbWluQWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCBQ9zYnRTdGFrZVBvb2xLZXkFE3NidFN0YWtlUG9vbENoZWNrZWQJAMwIAgkBDEludGVnZXJFbnRyeQIFEnNidFN0YWtlUG9vbEZlZUtleQD4CgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFnBvb2xUb3RhbFNidENsYWltZWRLZXkBBRNzYnRTdGFrZVBvb2xDaGVja2VkAAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBRNzYnRTdGFrZVBvb2xDaGVja2VkAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgUKbHBQb29sc0tleQIACQDMCAIJAQtTdHJpbmdFbnRyeQIFF2FkZGl0aW9uYWxSZXdhcmRQb29sS2V5AgAJAMwIAgkBDEludGVnZXJFbnRyeQIFGmFkZGl0aW9uYWxSZXdhcmRQb29sRmVlS2V5ANgECQDMCAIJAQxCb29sZWFuRW50cnkCBRBpc0NvbnN0cnVjdGVkS2V5BgkAzAgCCQEMSW50ZWdlckVudHJ5AgUQdG90YWxXWExvY2tlZEtleQAACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlpbml0aWFsU0JUVG9rZW5zQW1vdW50S2V5BRZpbml0aWFsU0JUVG9rZW5zQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBSZiYXNlU0JUVG9rZW5BbW91bnRGb3JPbmVSZXdhcmRUb2tlbktleQUac2J0VG9rZW5zRm9yT25lUmV3YXJkVG9rZW4FA25pbAFpAQhtaW50U2JXeAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhRPbmUgUGF5bWVudCBleHBlY3RlZAQHcGF5bWVudAkBCWFzUGF5bWVudAEJAJEDAggFAWkIcGF5bWVudHMAAAQGYW1vdW50CAUHcGF5bWVudAZhbW91bnQDAwkBAiE9AggFB3BheW1lbnQHYXNzZXRJZAUJd3hBc3NldElkBgkAZwIAAAUGYW1vdW50CQACAQIYV3JvbmcgQXNzZXQgaWQgb3IgYW1vdW50BA10b3RhbFdYTG9ja2VkCQERQGV4dHJOYXRpdmUoMTA1NSkBBRB0b3RhbFdYTG9ja2VkS2V5BAtzYld4QXNzZXRJZAkBEUBleHRyTmF0aXZlKDEwNTgpAQUOc2JXeEFzc2V0SWRLZXkEEXdhdmVzRXhjaGFuZ2VJbmZvCQD8BwQJAQdBZGRyZXNzAQUNd2F2ZXNFeGNoYW5nZQIXdXNlck1heER1cmF0aW9uUkVBRE9OTFkJAMwIAgkA2AQBCAUEdGhpcwVieXRlcwUDbmlsBQNuaWwDCQAAAgURd2F2ZXNFeGNoYW5nZUluZm8FEXdhdmVzRXhjaGFuZ2VJbmZvBAckbWF0Y2gwBRF3YXZlc0V4Y2hhbmdlSW5mbwMJAAECBQckbWF0Y2gwAg0oU3RyaW5nLCBJbnQpBAV0dXBsZQUHJG1hdGNoMAQMZnVuY3Rpb25OYW1lCAUFdHVwbGUCXzEED21heExvY2tEdXJhdGlvbggFBXR1cGxlAl8yBAZyZXN1bHQJAPwHBAkBB0FkZHJlc3MBBQ13YXZlc0V4Y2hhbmdlBQxmdW5jdGlvbk5hbWUJAMwIAgUPbWF4TG9ja0R1cmF0aW9uBQNuaWwJAMwIAgUHcGF5bWVudAUDbmlsAwkAAAIFBnJlc3VsdAUGcmVzdWx0BARzYld4CQDZBAEFC3NiV3hBc3NldElkCQDMCAIJAQdSZWlzc3VlAwUEc2JXeAUGYW1vdW50BgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEICAUBaQZjYWxsZXIFYnl0ZXMFBmFtb3VudAUEc2JXeAkAzAgCCQEMSW50ZWdlckVudHJ5AgUQdG90YWxXWExvY2tlZEtleQkAZAIFDXRvdGFsV1hMb2NrZWQFBmFtb3VudAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIYRkFUQUw6IEluY29uc2lzdGVudCBkYXRhCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFWNsYWltV3hTdGFraW5nUmV3YXJkcwAEE2N1cnJlbnRXeE9uQ29udHJhY3QJAPAHAgUEdGhpcwUJd3hBc3NldElkAwkAAAIFE2N1cnJlbnRXeE9uQ29udHJhY3QFE2N1cnJlbnRXeE9uQ29udHJhY3QEC2NsYWltUmVzdWx0CQD8BwQJAQdBZGRyZXNzAQUVY2xhaW1XeFJld2FyZENvbnRyYWN0AgtjbGFpbVJld2FyZAUDbmlsBQNuaWwDCQAAAgULY2xhaW1SZXN1bHQFC2NsYWltUmVzdWx0BA9uZXdXeE9uQ29udHJhY3QJAPAHAgUEdGhpcwUJd3hBc3NldElkBAdjbGFpbWVkCQBlAgUPbmV3V3hPbkNvbnRyYWN0BRNjdXJyZW50V3hPbkNvbnRyYWN0AwkAAAIFB2NsYWltZWQAAAkAAgECEE5vdGhpbmcgdG8gY2xhaW0EDHNidFN0YWtlUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BBNzYnRTdGFrZVBvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBQxzYnRTdGFrZVBvb2wJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQxzYnRTdGFrZVBvb2wJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUMc2J0U3Rha2VQb29sBQdjbGFpbWVkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE3NidFN0YWtlUG9vbEFkZHJlc3MFB2NsYWltZWQFCXd4QXNzZXRJZAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBB2FkZFBvb2wCB2FkZHJlc3MYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzAwkBAiE9AgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQERQGV4dHJOYXRpdmUoMTA1OCkBBQ9hZG1pbkFkZHJlc3NLZXkJAAIBAiFPbmx5IEFkbWluIGNhbiBjYWxsIHRoaXMgZnVuY3Rpb24EB2xwUG9vbHMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFCmxwUG9vbHNLZXkDCQEQaXNBdXRob3JpemVkUG9vbAEFB2FkZHJlc3MJAAIBAhJQb29sIGFscmVhZHkgYWRkZWQECG5ld1Bvb2xzAwkAAAIJALECAQUHbHBQb29scwAABQdhZGRyZXNzCQCsAgIJAKwCAgUHbHBQb29scwUDU0VQBQdhZGRyZXNzCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkFCG5ld1Bvb2xzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ9hc0FkZHJlc3NTdHJpbmcBBQdhZGRyZXNzCQEPYXNBZGRyZXNzU3RyaW5nAQUYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEWcG9vbFRvdGFsU2J0Q2xhaW1lZEtleQEFB2FkZHJlc3MAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEFB2FkZHJlc3MAAAUDbmlsAWkBCnJlbW92ZVBvb2wBB2FkZHJlc3MDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgQHbHBQb29scwkBEUBleHRyTmF0aXZlKDEwNTgpAQUKbHBQb29sc0tleQMJAQEhAQkBEGlzQXV0aG9yaXplZFBvb2wBBQdhZGRyZXNzCQACAQIOUG9vbCBub3QgZm91bmQECnBvb2xzQXJyYXkJALwJAgUHbHBQb29scwUDU0VQBAlwb29sSW5kZXgJAQVhc0ludAEJAM8IAgUKcG9vbHNBcnJheQUHYWRkcmVzcwQIbmV3UG9vbHMJALoJAgkA0QgCBQpwb29sc0FycmF5BQlwb29sSW5kZXgFA1NFUAkAzggCCQDMCAIJAQtTdHJpbmdFbnRyeQIFCmxwUG9vbHNLZXkFCG5ld1Bvb2xzCQDMCAIJAQtEZWxldGVFbnRyeQEFB2FkZHJlc3MFA25pbAMJAAACCQERQGV4dHJOYXRpdmUoMTA1OCkBBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQUHYWRkcmVzcwkAzAgCCQELU3RyaW5nRW50cnkCBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQIABQNuaWwFA25pbAFpARhzZXRBZGRpdGlvbmFsUmV3YXJkc1Bvb2wBB2FkZHJlc3MDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgMJAQEhAQkBEGlzQXV0aG9yaXplZFBvb2wBBQdhZGRyZXNzCQACAQI7T25seSBhdXRob3JpemVkIHBvb2wgY2FuIGJlIGFkZGVkIGFzIGFkZGl0aW9uYWwgcmV3YXJkIHBvb2wJAMwIAgkBC1N0cmluZ0VudHJ5AgUXYWRkaXRpb25hbFJld2FyZFBvb2xLZXkFB2FkZHJlc3MFA25pbAFpARtzZXRBZGRpdGlvbmFsUmV3YXJkc1Bvb2xGZWUBA2ZlZQMJAQIhPQIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwkBEUBleHRyTmF0aXZlKDEwNTgpAQUPYWRtaW5BZGRyZXNzS2V5CQACAQIhT25seSBBZG1pbiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uAwkAZgIFA2ZlZQDQDwkAAgECHEZlZSBjYW4ndCBiZSBiaWdnZXIgdGhhbiAyMCUDCQBmAgAABQNmZWUJAAIBAhVGZWUgY2FuJ3QgYmUgbmVnYXRpdmUJAMwIAgkBDEludGVnZXJFbnRyeQIFGmFkZGl0aW9uYWxSZXdhcmRQb29sRmVlS2V5BQNmZWUFA25pbAFpAQ1zZXRTYnRQb29sRmVlAQNmZWUDCQECIT0CCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJARFAZXh0ck5hdGl2ZSgxMDU4KQEFD2FkbWluQWRkcmVzc0tleQkAAgECIU9ubHkgQWRtaW4gY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgMJAGYCBQNmZWUA0A8JAAIBAhxGZWUgY2FuJ3QgYmUgYmlnZ2VyIHRoYW4gMjAlAwkAZgIAAAUDZmVlCQACAQIVRmVlIGNhbid0IGJlIG5lZ2F0aXZlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJzYnRTdGFrZVBvb2xGZWVLZXkFA2ZlZQUDbmlsAWkBDHN0YWtlUG9vbExwcwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAhRPbmUgUGF5bWVudCBleHBlY3RlZAQIcG9vbERhdGEJAQtnZXRQb29sRGF0YQEJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQLcG9vbExwVG9rZW4IBQhwb29sRGF0YQJfMQQYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCAUIcG9vbERhdGECXzIEB3BheW1lbnQJAQlhc1BheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAADAwkBAiE9AggFB3BheW1lbnQHYXNzZXRJZAkA2QQBBQtwb29sTHBUb2tlbgYJAGcCAAAIBQdwYXltZW50BmFtb3VudAkAAgECG1dyb25nIExQIEFzc2V0IGlkIG9yIGFtb3VudAQGcmVzdWx0CQD8BwQFGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwIFc3Rha2UFA25pbAkAzAgCBQdwYXltZW50BQNuaWwDCQAAAgUGcmVzdWx0BQZyZXN1bHQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ93aXRoZHJhd1Bvb2xMcHMBBmFtb3VudAQIcG9vbERhdGEJAQtnZXRQb29sRGF0YQEJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQLcG9vbExwVG9rZW4IBQhwb29sRGF0YQJfMQQYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCAUIcG9vbERhdGECXzIEBnJlc3VsdAkA/AcEBRh3YXZlc0V4Y2hhbmdlUG9vbEFkZHJlc3MCB3Vuc3Rha2UJAMwIAgULcG9vbExwVG9rZW4JAMwIAgUGYW1vdW50BQNuaWwFA25pbAMJAAACBQZyZXN1bHQFBnJlc3VsdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEHQWRkcmVzcwEICAUBaQZjYWxsZXIFYnl0ZXMFBmFtb3VudAkA2QQBBQtwb29sTHBUb2tlbgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEGNsYWltUG9vbFJld2FyZHMBBHBvb2wEC3Bvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBQRwb29sBAhwb29sRGF0YQkBC2dldFBvb2xEYXRhAQUEcG9vbAQLcG9vbExwVG9rZW4IBQhwb29sRGF0YQJfMQQYd2F2ZXNFeGNoYW5nZVBvb2xBZGRyZXNzCAUIcG9vbERhdGECXzIEE2N1cnJlbnRXWE9uQ29udHJhY3QJAPAHAgUEdGhpcwUJd3hBc3NldElkAwkAAAIFE2N1cnJlbnRXWE9uQ29udHJhY3QFE2N1cnJlbnRXWE9uQ29udHJhY3QEC2NsYWltUmVzdWx0CQD8BwQFGHdhdmVzRXhjaGFuZ2VQb29sQWRkcmVzcwIHY2xhaW1XeAkAzAgCBQtwb29sTHBUb2tlbgUDbmlsBQNuaWwDCQAAAgULY2xhaW1SZXN1bHQFC2NsYWltUmVzdWx0BA9uZXdXWE9uQ29udHJhY3QJAPAHAgUEdGhpcwUJd3hBc3NldElkBAdjbGFpbWVkCQBlAgUPbmV3V1hPbkNvbnRyYWN0BRNjdXJyZW50V1hPbkNvbnRyYWN0AwkAAAIFB2NsYWltZWQAAAkAAgECEE5vdGhpbmcgdG8gY2xhaW0ED3NidFJld2FyZEFtb3VudAkBH2NhbGN1bGF0ZUN1cnJlbnRSZXdhcmRTQlRBbW91bnQBBQdjbGFpbWVkBBBzYnRSZXdhcmRBY3Rpb25zAwkAAAIFD3NidFJld2FyZEFtb3VudAAABQNuaWwJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULcG9vbEFkZHJlc3MJAGQCBQ9zYnRSZXdhcmRBbW91bnQFE2N1cnJlbnRXWE9uQ29udHJhY3QFCnNidEFzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUEcG9vbAkAZAIJARFAZXh0ck5hdGl2ZSgxMDU1KQEJARZwb29sVG90YWxTYnRDbGFpbWVkS2V5AQUEcG9vbAUPc2J0UmV3YXJkQW1vdW50BQNuaWwEDHNidFN0YWtlUG9vbAkBEUBleHRyTmF0aXZlKDEwNTgpAQUPc2J0U3Rha2VQb29sS2V5BBNzYnRTdGFrZVBvb2xBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBQxzYnRTdGFrZVBvb2wED3NidFN0YWtlUG9vbEZlZQkBEUBleHRyTmF0aXZlKDEwNTUpAQUSc2J0U3Rha2VQb29sRmVlS2V5BBJzYnRTdGFrZVBvb2xBbW91bnQJAG4EBQdjbGFpbWVkBQ9zYnRTdGFrZVBvb2xGZWUFB2ZlZVJhbmsFBkhBTEZVUAQTc2J0U3Rha2VQb29sQWN0aW9ucwMJAAACBRJzYnRTdGFrZVBvb2xBbW91bnQAAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFE3NidFN0YWtlUG9vbEFkZHJlc3MFEnNidFN0YWtlUG9vbEFtb3VudAUJd3hBc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUMc2J0U3Rha2VQb29sCQBkAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEFDHNidFN0YWtlUG9vbAUSc2J0U3Rha2VQb29sQW1vdW50BQNuaWwEFGFkZGl0aW9uYWxSZXdhcmRQb29sCQERQGV4dHJOYXRpdmUoMTA1OCkBBRdhZGRpdGlvbmFsUmV3YXJkUG9vbEtleQQYYWRkaXRpb25hbFJld2FyZFBvb2xGcmVlCQERQGV4dHJOYXRpdmUoMTA1NSkBBRphZGRpdGlvbmFsUmV3YXJkUG9vbEZlZUtleQQaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQDCQAAAgkAsQIBBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAAAAAADCQECIT0CBRRhZGRpdGlvbmFsUmV3YXJkUG9vbAUEcG9vbAkAbgQFB2NsYWltZWQFGGFkZGl0aW9uYWxSZXdhcmRQb29sRnJlZQUHZmVlUmFuawUGSEFMRlVQAAAEHGFkZGl0aW9uYWxSZXdhcmRzUG9vbEFjdGlvbnMDCQAAAgUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQAAAUDbmlsCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFFGFkZGl0aW9uYWxSZXdhcmRQb29sBRphZGRpdGlvbmFsUmV3YXJkUG9vbEFtb3VudAUJd3hBc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUUYWRkaXRpb25hbFJld2FyZFBvb2wJAGQCCQERQGV4dHJOYXRpdmUoMTA1NSkBCQEVcG9vbFRvdGFsV3hDbGFpbWVkS2V5AQUUYWRkaXRpb25hbFJld2FyZFBvb2wFGmFkZGl0aW9uYWxSZXdhcmRQb29sQW1vdW50BQNuaWwEC3Bvb2xDbGFpbWVkCQBlAgkAZQIFB2NsYWltZWQFEnNidFN0YWtlUG9vbEFtb3VudAUaYWRkaXRpb25hbFJld2FyZFBvb2xBbW91bnQJAM4IAgkAzggCCQDOCAIFEHNidFJld2FyZEFjdGlvbnMFE3NidFN0YWtlUG9vbEFjdGlvbnMFHGFkZGl0aW9uYWxSZXdhcmRzUG9vbEFjdGlvbnMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwULcG9vbEFkZHJlc3MFC3Bvb2xDbGFpbWVkBQl3eEFzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARVwb29sVG90YWxXeENsYWltZWRLZXkBBQRwb29sCQBkAgkBEUBleHRyTmF0aXZlKDEwNTUpAQkBFXBvb2xUb3RhbFd4Q2xhaW1lZEtleQEFBHBvb2wFC3Bvb2xDbGFpbWVkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AkdeHPA==",
    "height": 3921465,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: D1hCCC4LMfNu1pdNbeGrPDDcqR5da5vEAgrzB73TjVom
Next: C1MfCsLjtJFwKJhq2V33BzwyUhbyKrXwFMXbu51fnfjr

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

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

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

github/deemru/w8io/3ef1775 
47.50 ms ◑