w8 · tx · 9gm···cSm

tx · 9gmf5RJcQbewMGKxx6K7fcnDpRESXNZcodpFrVUQbcSm

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.01300000 Waves

2023.11.23 20:24 [2856325] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9gmf5RJcQbewMGKxx6K7fcnDpRESXNZcodpFrVUQbcSm",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1700760319777,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "XniKct8JiKZacHtMfhML7oKs8o5JeXD2jR6CX8bphLv18WpEzkkmFLrHd1GHXrvg1H59omWpYSL6dRyVdbvfNJu"
    ],
    "script": "base64:BgIqCAISBAoCCAESAwoBARIAEgASBAoCCAESBQoDCAEBEgMKAQESABIDCgEINQAITUlMTElPTjYAgIDpg7HeFgAJREFZTUlMTElTAIC4mSkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQRhZGRyCQCsAgICGGFjcmVzU3Rha2VkQW1vdW50QnlVc2VyXwUEYWRkcgEaa2V5QWNyZXNMb2NrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNMb2NrZWRBbW91bnRCeVVzZXJfBQRhZGRyARdrZXlBY3Jlc0xvY2tlZEV0YUJ5VXNlcgEEYWRkcgkArAICAhVhY3Jlc0xvY2tlZEV0YUJ5VXNlcl8FBGFkZHIAE2FjcmVzU3Rha2VkVG90YWxLZXkCFmFjcmVzU3Rha2VkQW1vdW50VG90YWwACnhwTmV3U0xhbmQAwJaxAgAPREFJTFlSRVNCWVBJRUNFAID40gEAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4ADHByb21vMk1hcEtleQIJcHJvbW8yTWFwAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAA1JZHhDZmdXbGdEYXBwAAQAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwAA1hY3Jlc0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUPSWR4Q2ZnQWNyZXNEYXBwABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ1hY3Jlc0NvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgALSWR4RWZmVG90YWwAAAERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBBRJ1c2VyQWRkclN0ck9yRW1wdHkAAAkAzAgCBQp0b3RhbFBvd2VyCQDMCAIFCnVzZXJzUG93ZXIFA25pbAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQBBHBhZEwCA3ZhbANsZW4EBHZhbFMJAKQDAQUDdmFsBAZ6ZXJvZXMJALACAgkApAMBCQBsBgAKAAAJAGUCBQNsZW4JALECAQUEdmFsUwAAAAAFBERPV04AAQkArAICBQZ6ZXJvZXMFBHZhbFMAHU1JTl9BQ1JFU19BTU9VTlRfRFVSSU5HX1BST01PAICt4gQADEJMQUNLTElTVEVEMQLfBjNQMk5HWDRRNW5nZTFNQ2F1d1FXNWFxWUxka2NjU0dqMUVwXzNQMnhGQUhXOXloeU5vaFlveldkNEhGaEVYWnUzYnNOU29SXzNQMnlLYVoyZ3ZuOVhlNXR0aTgxYTdQOUxaaEhnanZUb1Y5XzNQMzd6UTNjZjJlY3U1NVJtSnFFaUdTaXZkek45YXZ0M205XzNQNGF6NmR0enN2R0NXRkF4YTk0VWRldkt6WHlFd3hFaUZHXzNQNGtaVTZYM1RUTEZjU1VlNTVKU3k4QnlTcWl0Y1BnTUJ6XzNQNWhDeEJFaDNOZ05pelpoTkJyZXlCU3F0YmhKWUxrS1BEXzNQN0hMdnVjeTExeXh5TUpVd2p6WEZISEtNRUR3aTFFd2ZDXzNQOEp1YXFIOVBUUUF2OEQ1SEJHZ1FmS2F1TFRZdDJOUWZ0XzNQOWdUREI0cnRERVZicFgzYXNVNjNINFppbmgyRW5UbVpFXzNQOWlOM3FydGZKaWNVVnk3YW1aZVZzZXRWRDN2VU1rOGJlXzNQQ2EyQnNBYTZKQkxpcnN6UWZWNXI5ZkpydWpmaHd0d2ZQXzNQRDNpNFhOOEt0eWdjRng0cnk1TTdVR3FkZkg4Vll2dFJUXzNQREVNbm5KTmMya3g5Y1BFbXZWdmhYVXI4U3ZoQU5LaHNhXzNQREdFOXRLUWl6YWVaRmVERHE1YVlTdjg5bndZYmZpcnBaXzNQRE1LUVRDclVQWkVDVlhFSko4bTFzSHR1dFN1MW5hU2YxXzNQR2gyUXU2WXZ4OEdUQ1JSVk52QlVWWkxkYWlkWVNheG81XzNQS2ttQXRiU0s1RDJoUWRvMVJmRWc4ZVh5TWJEY1JVYzkyXzNQTE1uYnh6c3NQOFc4RThYakoxUkxCQmc4VVpMOEN6M1AyXzNQTXV4bzRQQ0FveDlzNGE3UjFlc3poNGlxcXU4Z1M3akh2XzNQTnJNdEVRQ2h3ODdXWlUxSkFKN2FHSHlrQ2E4VGpuRE5LXzNQUHVCWGZXb0J5M0VFb3J5N2M3dmdpOVVzamthN281dEJqXzNQUXd5ZXlFaFQ0WTZhR0FMNnRnNzNhUVdKdFYxelJ0M25SXzNQUkdEU2h1TUdiODRNSnRUSnZ0VGc4cURmc3drWVdjbTNlAA1QUk9NTzFfQU1PVU5UAMKtrwIAF1BST01PXzJfU1RBUlRfVElNRVNUQU1QBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAIDwtPm+MQMJAAACAQFUBQckbWF0Y2gwAIDn0Me+MQkAAgECDVVua25vd24gY2hhaW4AFVBST01PXzJfRU5EX1RJTUVTVEFNUAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAD/v83wwDEDCQAAAgEBVAUHJG1hdGNoMACAiNfrvjEJAAIBAg1Vbmtub3duIGNoYWluARNpc0JsYWNrbGlzdGVkUHJvbW8xAQRhZGRyCQEIY29udGFpbnMCBQxCTEFDS0xJU1RFRDEFBGFkZHIBBnByb2xvZwAJAQVhc0ludAEJAP0HBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIBC21lcmdlTG9ja2VkBAlvbGRBbW91bnQGb2xkRVRBCW5ld0Ftb3VudAZuZXdFVEEEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEA2R0MQkAlgMBCQDMCAIAAAkAzAgCCQBlAgUGb2xkRVRBBQNub3cFA25pbAQDZHQyCQCWAwEJAMwIAgAACQDMCAIJAGUCBQZuZXdFVEEFA25vdwUDbmlsBANzdW0JAGQCBQlvbGRBbW91bnQFCW5ld0Ftb3VudAQCZHQDCQAAAgUDc3VtAAAAAAkAZAIJAGsDBQNkdDEFCW9sZEFtb3VudAUDc3VtCQBrAwUDZHQyBQluZXdBbW91bnQFA3N1bQkAZAIFA25vdwUCZHQJAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDHVuc3Rha2VBY3JlcwEGYW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAxsb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwAABAlsb2NrZWRFVEEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQUHYWRkcmVzcwAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGcCBQNub3cFF1BST01PXzJfU1RBUlRfVElNRVNUQU1QCQBnAgUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBQNub3cHCQACAQImWW91IGNhbm5vdCB1bnN0YWtlIEFDUkVTIGR1cmluZyBQcm9tbzIEEHVuc3Rha2FibGVBbW91bnQDCQETaXNCbGFja2xpc3RlZFByb21vMQEFB2FkZHJlc3MJAGUCCQBlAgUOb2xkQWNyZXNBbW91bnQFDGxvY2tlZEFtb3VudAUNUFJPTU8xX0FNT1VOVAkAZQIFDm9sZEFjcmVzQW1vdW50BQxsb2NrZWRBbW91bnQDAwkAZgIFCWxvY2tlZEVUQQUDbm93CQBmAgUGYW1vdW50BRB1bnN0YWthYmxlQW1vdW50BwkAAgEJAKwCAgkArAICCQCsAgICBU9ubHkgCQEKZml4ZWRQb2ludAIFEHVuc3Rha2FibGVBbW91bnQACAInIEFDUkVTIGNhbiBiZSB1bnN0YWtlZCBub3csIHdhaXQgdW50aWwgCQCkAwEFCWxvY2tlZEVUQQQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCXdsZ1Jlc3VsdAUJd2xnUmVzdWx0BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGYCBRdQUk9NT18yX1NUQVJUX1RJTUVTVEFNUAUDbm93BgkAZgIFA25vdwUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAMJAGYCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwUDYW10CQACAQkArAICCQCsAgICOU1pbiBzdGFrZWQgYW1vdW50IGR1cmluZyBwcm9tbyBhY3Rpb24gc2hvdWxkIGJlIGF0IGxlYXN0IAkBCmZpeGVkUG9pbnQCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwAIAgYgQUNSRVMEC3N0YWtlUmVzdWx0CQD8BwQFBHRoaXMCD3NlbmRMb2NrZWRBY3JlcwkAzAgCBQdhZGRyZXNzCQDMCAIFA2FtdAkAzAgCAB4FA25pbAUDbmlsBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgAEB25ld01hcDIDCQEIY29udGFpbnMCBQlwcm9tbzJNYXAFB2FkZHJlc3MEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQJb2xkQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAK8CAgkAsAICCQCRAwIFBXBhcnRzAAEAAQAOCQCsAgIJAKwCAgkArAICCQCsAgIJAJEDAgUFcGFydHMAAAUHYWRkcmVzcwIBOgkBBHBhZEwCCQBkAgUJb2xkQW1vdW50BQNhbXQADgkAsAICCQCRAwIFBXBhcnRzAAEADwQJZmluYWxQYXJ0CQCsAgIJAKwCAgUHYWRkcmVzcwIBOgkBBHBhZEwCBQNhbXQADgMJAAACBQlwcm9tbzJNYXACAAUJZmluYWxQYXJ0CQCsAgIJAKwCAgUJcHJvbW8yTWFwAgFfBQlmaW5hbFBhcnQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQxwcm9tbzJNYXBLZXkFB25ld01hcDIFA25pbAkAlQoDBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAULc3Rha2VSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJc2VuZEFjcmVzAgRhZGRyBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPZWNvbm9teUNvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyBQZhbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsBQZhbW91bnQBaQEPc2VuZExvY2tlZEFjcmVzAwRhZGRyBmFtb3VudAhsb2NrRGF5cwMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAQIhPQIIBQFpBmNhbGxlcgUMcmVzdENvbnRyYWN0BwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUEYWRkcgQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAdvbGRUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkFA25vdwQGZXRhS2V5CQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQRhZGRyBA9sb2NrZWRBbW91bnRLZXkJARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEFBGFkZHIED29sZExvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sb2NrZWRBbW91bnRLZXkAAAQMb2xkTG9ja2VkRVRBCQELdmFsdWVPckVsc2UCCQCfCAEFBmV0YUtleQAABAltZXJnZWRFVEEJAQttZXJnZUxvY2tlZAQFD29sZExvY2tlZEFtb3VudAUMb2xkTG9ja2VkRVRBBQZhbW91bnQJAGQCBQNub3cJAGgCBQhsb2NrRGF5cwUJREFZTUlMTElTCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkFB29sZFRpbWUJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFE2FjcmVzU3Rha2VkVG90YWxLZXkJAGQCBQhvbGRUb3RhbAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZldGFLZXkFCW1lcmdlZEVUQQkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbG9ja2VkQW1vdW50S2V5CQBkAgUPb2xkTG9ja2VkQW1vdW50BQZhbW91bnQFA25pbAUGYW1vdW50AWkBCWJ1cm5BY3JlcwEGYW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQKYW1vdW50TGVmdAkAZQIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUYWNyZXNJc3N1ZWRBbW91bnRLZXkAAAUGYW1vdW50AwkAZgIAAAUKYW1vdW50TGVmdAkAAgECJ0F0dGVtcHQgdG8gYnVybiBtb3JlIEFDUkVTLCB0aGFuIGV4aXN0cwkAlAoCCQDMCAIJAQRCdXJuAgUMYWNyZXNBc3NldElkBQZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFGFjcmVzSXNzdWVkQW1vdW50S2V5BQphbW91bnRMZWZ0BQNuaWwFBmFtb3VudAFpAQpjbGFpbUFjcmVzAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAAECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsBAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwULYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFB3RpbWVLZXkIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUMY2xhaW1lZEFjcmVzBQxhY3Jlc0Fzc2V0SWQFA25pbAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARJjbGFpbUFjcmVzUkVBRE9OTFkBB2FkZHJlc3MEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd0aW1lS2V5AAAEDGNsYWltZWRBY3JlcwkBEmNsYWltQWNyZXNJbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50BQhsYXN0VGltZQkAlAoCBQNuaWwJAMwIAgUMY2xhaW1lZEFjcmVzCQDMCAIFCGxhc3RUaW1lBQNuaWwAmWuMTg==",
    "height": 2856325,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BGvizN92u9sZsWk31nuG8jFjXjeqFEuggia5JXhAVH26
Next: Amj5RL6rhLAdkb3chBndRjcga93XYgq4KYd4mNSSQF2D

Diff: 
Old New Differences
176 176          if ((base58'2W' == $match0))
177 177              then 1701043199999
178 178              else if ((base58'2T' == $match0))
179 -                 then 1700508600000
179 +                 then 1700496000000
180 180                  else throw("Unknown chain")
181 181  }
182 182  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let MILLION6 = 100000000000000
5 5  
6 6  let DAYMILLIS = 86400000
7 7  
8 8  func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9 9  
10 10  
11 11  func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12 12  
13 13  
14 14  func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15 15  
16 16  
17 17  let acresStakedTotalKey = "acresStakedAmountTotal"
18 18  
19 19  let xpNewSLand = 5000000
20 20  
21 21  let DAILYRESBYPIECE = 3456000
22 22  
23 23  let USDT2ACRES_MULTIPLIER = 10
24 24  
25 25  let chain = take(drop(this.bytes, 1), 1)
26 26  
27 27  let usdtAssetId = match chain {
28 28      case _ => 
29 29          if ((base58'2W' == $match0))
30 30              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31 31              else if ((base58'2T' == $match0))
32 32                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33 33                  else throw("Unknown chain")
34 34  }
35 35  
36 36  let defaultRestAddressStr = match chain {
37 37      case _ => 
38 38          if ((base58'2W' == $match0))
39 39              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40 40              else if ((base58'2T' == $match0))
41 41                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42 42                  else throw("Unknown chain")
43 43  }
44 44  
45 45  let promo2MapKey = "promo2Map"
46 46  
47 47  let SEP = "__"
48 48  
49 49  let MULT6 = 1000000
50 50  
51 51  let MULT8 = 100000000
52 52  
53 53  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
54 54  
55 55  
56 56  let IdxCfgStakingDapp = 1
57 57  
58 58  let IdxCfgEconomyDapp = 2
59 59  
60 60  let IdxCfgWlgDapp = 4
61 61  
62 62  let IdxCfgAcresDapp = 8
63 63  
64 64  func keyRestCfg () = "%s__restConfig"
65 65  
66 66  
67 67  func keyRestAddress () = "%s__restAddr"
68 68  
69 69  
70 70  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
71 71  
72 72  
73 73  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
74 74  
75 75  
76 76  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
77 77  
78 78  let restCfg = readRestCfgOrFail(restContract)
79 79  
80 80  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
81 81  
82 82  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
83 83  
84 84  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
85 85  
86 86  let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
87 87  
88 88  let acresIssuedAmountKey = "acresIssuedAmount"
89 89  
90 90  let acresAssetIdKey = "acresAssetId"
91 91  
92 92  let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
93 93  
94 94  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
95 95  
96 96  
97 97  let IdxEffTotal = 0
98 98  
99 99  func keyResProportions () = "resTypesProportions"
100 100  
101 101  
102 102  func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
103 103  
104 104  
105 105  func asInt (v) = match v {
106 106      case n: Int => 
107 107          n
108 108      case _ => 
109 109          throw("fail to cast into Int")
110 110  }
111 111  
112 112  
113 113  func asTwoIntsTuple (val) = match val {
114 114      case t2: (Int, Int) => 
115 115          t2
116 116      case _ => 
117 117          throw("fail to cast into (Int, Int)")
118 118  }
119 119  
120 120  
121 121  func getVotingPower (userAddrStrOrEmpty) = {
122 122      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
123 123      func adder (acc,item) =     (acc + parseIntValue(item))
124 124  
125 125      let totalPower = {
126 126          let $l = props
127 127          let $s = size($l)
128 128          let $acc0 = 0
129 129          func $f0_1 ($a,$i) =         if (($i >= $s))
130 130              then $a
131 131              else adder($a, $l[$i])
132 132  
133 133          func $f0_2 ($a,$i) =         if (($i >= $s))
134 134              then $a
135 135              else throw("List size exceeds 6")
136 136  
137 137          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
138 138          }
139 139      let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
140 140  [totalPower, usersPower]
141 141      }
142 142  
143 143  
144 144  func fixedPoint (val,decimals) = {
145 145      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
146 146      let lowPart = toString((val % tenPow))
147 147      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
148 148      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
149 149      }
150 150  
151 151  
152 152  func padL (val,len) = {
153 153      let valS = toString(val)
154 154      let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
155 155      (zeroes + valS)
156 156      }
157 157  
158 158  
159 159  let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
160 160  
161 161  let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
162 162  
163 163  let PROMO1_AMOUNT = 4970178
164 164  
165 165  let PROMO_2_START_TIMESTAMP = match chain {
166 166      case _ => 
167 167          if ((base58'2W' == $match0))
168 168              then 1700524800000
169 169              else if ((base58'2T' == $match0))
170 170                  then 1700420400000
171 171                  else throw("Unknown chain")
172 172  }
173 173  
174 174  let PROMO_2_END_TIMESTAMP = match chain {
175 175      case _ => 
176 176          if ((base58'2W' == $match0))
177 177              then 1701043199999
178 178              else if ((base58'2T' == $match0))
179 -                 then 1700508600000
179 +                 then 1700496000000
180 180                  else throw("Unknown chain")
181 181  }
182 182  
183 183  func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184 184  
185 185  
186 186  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
187 187  
188 188  
189 189  func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
190 190      let deltaTime = (lastBlock.timestamp - lastClaimTime)
191 191      let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
192 192      let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
193 193      let gotUsdt = max([0, canGetUsdt])
194 194      (gotUsdt * USDT2ACRES_MULTIPLIER)
195 195      }
196 196  
197 197  
198 198  func claimInternal (addr,acresAmount,lastClaimTime) = {
199 199      let deltaTime = (lastBlock.timestamp - lastClaimTime)
200 200      if ((0 > deltaTime))
201 201          then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
202 202          else {
203 203              let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
204 204              let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
205 205              let gotUsdt = if ((0 >= canGetUsdt))
206 206                  then 0
207 207                  else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
208 208              (gotUsdt * USDT2ACRES_MULTIPLIER)
209 209              }
210 210      }
211 211  
212 212  
213 213  func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
214 214      let now = lastBlock.timestamp
215 215      let dt1 = max([0, (oldETA - now)])
216 216      let dt2 = max([0, (newETA - now)])
217 217      let sum = (oldAmount + newAmount)
218 218      let dt = if ((sum == 0))
219 219          then 0
220 220          else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
221 221      (now + dt)
222 222      }
223 223  
224 224  
225 225  @Callable(i)
226 226  func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
227 227      then throw("Permission denied")
228 228      else if (isDefined(getBinary(acresAssetIdKey)))
229 229          then throw("Already initialized")
230 230          else {
231 231              let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
232 232              let issuedAmount = (MILLION6 - (nftAcres * MULT8))
233 233              let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
234 234              let assetId = calculateAssetId(issue)
235 235  [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
236 236              }
237 237  
238 238  
239 239  
240 240  @Callable(i)
241 241  func unstakeAcres (amount) = {
242 242      let prologResult = prolog()
243 243      if ((prologResult == prologResult))
244 244          then if ((0 >= amount))
245 245              then throw("Amount should be positive")
246 246              else {
247 247                  let address = toString(i.caller)
248 248                  if ((size(i.payments) != 0))
249 249                      then throw("No payments required")
250 250                      else {
251 251                          let timeKey = keyAcresStakedTimeByUser(address)
252 252                          let amountKey = keyAcresStakedAmountByUser(address)
253 253                          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
254 254                          if ((amount > oldAcresAmount))
255 255                              then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
256 256                              else {
257 257                                  let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
258 258                                  let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
259 259                                  let now = lastBlock.timestamp
260 260                                  if (if ((now >= PROMO_2_START_TIMESTAMP))
261 261                                      then (PROMO_2_END_TIMESTAMP >= now)
262 262                                      else false)
263 263                                      then throw("You cannot unstake ACRES during Promo2")
264 264                                      else {
265 265                                          let unstakableAmount = if (isBlacklistedPromo1(address))
266 266                                              then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
267 267                                              else (oldAcresAmount - lockedAmount)
268 268                                          if (if ((lockedETA > now))
269 269                                              then (amount > unstakableAmount)
270 270                                              else false)
271 271                                              then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
272 272                                              else {
273 273                                                  let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
274 274                                                  let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
275 275                                                  let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
276 276                                                  $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
277 277                                                  }
278 278                                          }
279 279                                  }
280 280                          }
281 281                  }
282 282          else throw("Strict value is not equal to itself.")
283 283      }
284 284  
285 285  
286 286  
287 287  @Callable(i)
288 288  func stakeAcres () = {
289 289      let prologResult = prolog()
290 290      if ((prologResult == prologResult))
291 291          then {
292 292              let address = toString(i.caller)
293 293              if ((size(i.payments) != 1))
294 294                  then throw("exactly 1 payment must be attached")
295 295                  else {
296 296                      let pmt = i.payments[0]
297 297                      let amt = pmt.amount
298 298                      if (if (!(isDefined(pmt.assetId)))
299 299                          then true
300 300                          else (value(pmt.assetId) != acresAssetId))
301 301                          then throw("ACRES payments only!")
302 302                          else {
303 303                              let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
304 304                              if ((wlgResult == wlgResult))
305 305                                  then {
306 306                                      let now = lastBlock.timestamp
307 307                                      if (if ((PROMO_2_START_TIMESTAMP > now))
308 308                                          then true
309 309                                          else (now > PROMO_2_END_TIMESTAMP))
310 310                                          then {
311 311                                              let timeKey = keyAcresStakedTimeByUser(address)
312 312                                              let amountKey = keyAcresStakedAmountByUser(address)
313 313                                              let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
314 314                                              let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
315 315                                              let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
316 316                                              $Tuple2(((((if ((claimedAcres == 0))
317 317                                                  then nil
318 318                                                  else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
319 319                                              }
320 320                                          else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
321 321                                              then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
322 322                                              else {
323 323                                                  let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
324 324                                                  let promo2Map = valueOrElse(getString(promo2MapKey), "")
325 325                                                  let newMap2 = if (contains(promo2Map, address))
326 326                                                      then {
327 327                                                          let parts = split_51C(promo2Map, address)
328 328                                                          let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
329 329                                                          ((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
330 330                                                          }
331 331                                                      else {
332 332                                                          let finalPart = ((address + ":") + padL(amt, 14))
333 333                                                          if ((promo2Map == ""))
334 334                                                              then finalPart
335 335                                                              else ((promo2Map + "_") + finalPart)
336 336                                                          }
337 337                                                  $Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
338 338                                                  }
339 339                                      }
340 340                                  else throw("Strict value is not equal to itself.")
341 341                              }
342 342                      }
343 343              }
344 344          else throw("Strict value is not equal to itself.")
345 345      }
346 346  
347 347  
348 348  
349 349  @Callable(i)
350 350  func buyAcres () = {
351 351      let prologResult = prolog()
352 352      if ((prologResult == prologResult))
353 353          then {
354 354              let address = toString(i.caller)
355 355              if ((size(i.payments) != 1))
356 356                  then throw("exactly 1 payment must be attached")
357 357                  else {
358 358                      let pmt = i.payments[0]
359 359                      let amt = pmt.amount
360 360                      if (if (!(isDefined(pmt.assetId)))
361 361                          then true
362 362                          else (value(pmt.assetId) != usdtAssetId))
363 363                          then throw("USDT payments only!")
364 364                          else if ((MULT6 > amt))
365 365                              then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
366 366                              else {
367 367                                  let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
368 368                                  let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
369 369                                  $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
370 370                                  }
371 371                      }
372 372              }
373 373          else throw("Strict value is not equal to itself.")
374 374      }
375 375  
376 376  
377 377  
378 378  @Callable(i)
379 379  func sendAcres (addr,amount) = if ((i.caller != economyContract))
380 380      then throw("Permission denied")
381 381      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
382 382  
383 383  
384 384  
385 385  @Callable(i)
386 386  func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
387 387      then (i.caller != restContract)
388 388      else false)
389 389      then throw("Permission denied")
390 390      else {
391 391          let now = lastBlock.timestamp
392 392          let timeKey = keyAcresStakedTimeByUser(addr)
393 393          let amountKey = keyAcresStakedAmountByUser(addr)
394 394          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
395 395          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
396 396          let oldTime = valueOrElse(getInteger(timeKey), now)
397 397          let etaKey = keyAcresLockedEtaByUser(addr)
398 398          let lockedAmountKey = keyAcresLockedAmountByUser(addr)
399 399          let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
400 400          let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
401 401          let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
402 402          $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
403 403          }
404 404  
405 405  
406 406  
407 407  @Callable(i)
408 408  func burnAcres (amount) = if ((i.caller != stakingContract))
409 409      then throw("Permission denied")
410 410      else {
411 411          let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
412 412          if ((0 > amountLeft))
413 413              then throw("Attempt to burn more ACRES, than exists")
414 414              else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
415 415          }
416 416  
417 417  
418 418  
419 419  @Callable(i)
420 420  func claimAcres () = {
421 421      let prologResult = prolog()
422 422      if ((prologResult == prologResult))
423 423          then {
424 424              let address = toString(i.caller)
425 425              if ((size(i.payments) != 0))
426 426                  then throw("No payments required")
427 427                  else {
428 428                      let timeKey = keyAcresStakedTimeByUser(address)
429 429                      let amountKey = keyAcresStakedAmountByUser(address)
430 430                      let acresAmount = valueOrElse(getInteger(amountKey), 0)
431 431                      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
432 432                      let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
433 433                      $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
434 434                      }
435 435              }
436 436          else throw("Strict value is not equal to itself.")
437 437      }
438 438  
439 439  
440 440  
441 441  @Callable(i)
442 442  func claimAcresREADONLY (address) = {
443 443      let timeKey = keyAcresStakedTimeByUser(address)
444 444      let amountKey = keyAcresStakedAmountByUser(address)
445 445      let acresAmount = valueOrElse(getInteger(amountKey), 0)
446 446      let lastTime = valueOrElse(getInteger(timeKey), 0)
447 447      let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
448 448      $Tuple2(nil, [claimedAcres, lastTime])
449 449      }
450 450  
451 451

Old	New		Differences
176	176		if ((base58'2W' == $match0))
177	177		then 1701043199999
178	178		else if ((base58'2T' == $match0))
179		-	then ~~1700508600000~~
	179	+	then 1700496000000
180	180		else throw("Unknown chain")
181	181		}
182	182

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let MILLION6 = 100000000000000
5	5
6	6		let DAYMILLIS = 86400000
7	7
8	8		func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
9	9
10	10
11	11		func keyAcresLockedAmountByUser (addr) = ("acresLockedAmountByUser_" + addr)
12	12
13	13
14	14		func keyAcresLockedEtaByUser (addr) = ("acresLockedEtaByUser_" + addr)
15	15
16	16
17	17		let acresStakedTotalKey = "acresStakedAmountTotal"
18	18
19	19		let xpNewSLand = 5000000
20	20
21	21		let DAILYRESBYPIECE = 3456000
22	22
23	23		let USDT2ACRES_MULTIPLIER = 10
24	24
25	25		let chain = take(drop(this.bytes, 1), 1)
26	26
27	27		let usdtAssetId = match chain {
28	28		case _ =>
29	29		if ((base58'2W' == $match0))
30	30		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31	31		else if ((base58'2T' == $match0))
32	32		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33	33		else throw("Unknown chain")
34	34		}
35	35
36	36		let defaultRestAddressStr = match chain {
37	37		case _ =>
38	38		if ((base58'2W' == $match0))
39	39		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40	40		else if ((base58'2T' == $match0))
41	41		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42	42		else throw("Unknown chain")
43	43		}
44	44
45	45		let promo2MapKey = "promo2Map"
46	46
47	47		let SEP = "__"
48	48
49	49		let MULT6 = 1000000
50	50
51	51		let MULT8 = 100000000
52	52
53	53		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
54	54
55	55
56	56		let IdxCfgStakingDapp = 1
57	57
58	58		let IdxCfgEconomyDapp = 2
59	59
60	60		let IdxCfgWlgDapp = 4
61	61
62	62		let IdxCfgAcresDapp = 8
63	63
64	64		func keyRestCfg () = "%s__restConfig"
65	65
66	66
67	67		func keyRestAddress () = "%s__restAddr"
68	68
69	69
70	70		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
71	71
72	72
73	73		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
74	74
75	75
76	76		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
77	77
78	78		let restCfg = readRestCfgOrFail(restContract)
79	79
80	80		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
81	81
82	82		let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
83	83
84	84		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
85	85
86	86		let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
87	87
88	88		let acresIssuedAmountKey = "acresIssuedAmount"
89	89
90	90		let acresAssetIdKey = "acresAssetId"
91	91
92	92		let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
93	93
94	94		func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
95	95
96	96
97	97		let IdxEffTotal = 0
98	98
99	99		func keyResProportions () = "resTypesProportions"
100	100
101	101
102	102		func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
103	103
104	104
105	105		func asInt (v) = match v {
106	106		case n: Int =>
107	107		n
108	108		case _ =>
109	109		throw("fail to cast into Int")
110	110		}
111	111
112	112
113	113		func asTwoIntsTuple (val) = match val {
114	114		case t2: (Int, Int) =>
115	115		t2
116	116		case _ =>
117	117		throw("fail to cast into (Int, Int)")
118	118		}
119	119
120	120
121	121		func getVotingPower (userAddrStrOrEmpty) = {
122	122		let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
123	123		func adder (acc,item) = (acc + parseIntValue(item))
124	124
125	125		let totalPower = {
126	126		let $l = props
127	127		let $s = size($l)
128	128		let $acc0 = 0
129	129		func $f0_1 ($a,$i) = if (($i >= $s))
130	130		then $a
131	131		else adder($a, $l[$i])
132	132
133	133		func $f0_2 ($a,$i) = if (($i >= $s))
134	134		then $a
135	135		else throw("List size exceeds 6")
136	136
137	137		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
138	138		}
139	139		let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
140	140		[totalPower, usersPower]
141	141		}
142	142
143	143
144	144		func fixedPoint (val,decimals) = {
145	145		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
146	146		let lowPart = toString((val % tenPow))
147	147		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
148	148		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
149	149		}
150	150
151	151
152	152		func padL (val,len) = {
153	153		let valS = toString(val)
154	154		let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
155	155		(zeroes + valS)
156	156		}
157	157
158	158
159	159		let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
160	160
161	161		let BLACKLISTED1 = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
162	162
163	163		let PROMO1_AMOUNT = 4970178
164	164
165	165		let PROMO_2_START_TIMESTAMP = match chain {
166	166		case _ =>
167	167		if ((base58'2W' == $match0))
168	168		then 1700524800000
169	169		else if ((base58'2T' == $match0))
170	170		then 1700420400000
171	171		else throw("Unknown chain")
172	172		}
173	173
174	174		let PROMO_2_END_TIMESTAMP = match chain {
175	175		case _ =>
176	176		if ((base58'2W' == $match0))
177	177		then 1701043199999
178	178		else if ((base58'2T' == $match0))
179		-	then ~~1700508600000~~
	179	+	then 1700496000000
180	180		else throw("Unknown chain")
181	181		}
182	182
183	183		func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184	184
185	185
186	186		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
187	187
188	188
189	189		func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
190	190		let deltaTime = (lastBlock.timestamp - lastClaimTime)
191	191		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
192	192		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
193	193		let gotUsdt = max([0, canGetUsdt])
194	194		(gotUsdt * USDT2ACRES_MULTIPLIER)
195	195		}
196	196
197	197
198	198		func claimInternal (addr,acresAmount,lastClaimTime) = {
199	199		let deltaTime = (lastBlock.timestamp - lastClaimTime)
200	200		if ((0 > deltaTime))
201	201		then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
202	202		else {
203	203		let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
204	204		let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
205	205		let gotUsdt = if ((0 >= canGetUsdt))
206	206		then 0
207	207		else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
208	208		(gotUsdt * USDT2ACRES_MULTIPLIER)
209	209		}
210	210		}
211	211
212	212
213	213		func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
214	214		let now = lastBlock.timestamp
215	215		let dt1 = max([0, (oldETA - now)])
216	216		let dt2 = max([0, (newETA - now)])
217	217		let sum = (oldAmount + newAmount)
218	218		let dt = if ((sum == 0))
219	219		then 0
220	220		else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
221	221		(now + dt)
222	222		}
223	223
224	224
225	225		@Callable(i)
226	226		func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
227	227		then throw("Permission denied")
228	228		else if (isDefined(getBinary(acresAssetIdKey)))
229	229		then throw("Already initialized")
230	230		else {
231	231		let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
232	232		let issuedAmount = (MILLION6 - (nftAcres * MULT8))
233	233		let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
234	234		let assetId = calculateAssetId(issue)
235	235		[issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
236	236		}
237	237
238	238
239	239
240	240		@Callable(i)
241	241		func unstakeAcres (amount) = {
242	242		let prologResult = prolog()
243	243		if ((prologResult == prologResult))
244	244		then if ((0 >= amount))
245	245		then throw("Amount should be positive")
246	246		else {
247	247		let address = toString(i.caller)
248	248		if ((size(i.payments) != 0))
249	249		then throw("No payments required")
250	250		else {
251	251		let timeKey = keyAcresStakedTimeByUser(address)
252	252		let amountKey = keyAcresStakedAmountByUser(address)
253	253		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
254	254		if ((amount > oldAcresAmount))
255	255		then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
256	256		else {
257	257		let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
258	258		let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
259	259		let now = lastBlock.timestamp
260	260		if (if ((now >= PROMO_2_START_TIMESTAMP))
261	261		then (PROMO_2_END_TIMESTAMP >= now)
262	262		else false)
263	263		then throw("You cannot unstake ACRES during Promo2")
264	264		else {
265	265		let unstakableAmount = if (isBlacklistedPromo1(address))
266	266		then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
267	267		else (oldAcresAmount - lockedAmount)
268	268		if (if ((lockedETA > now))
269	269		then (amount > unstakableAmount)
270	270		else false)
271	271		then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
272	272		else {
273	273		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
274	274		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
275	275		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
276	276		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
277	277		}
278	278		}
279	279		}
280	280		}
281	281		}
282	282		else throw("Strict value is not equal to itself.")
283	283		}
284	284
285	285
286	286
287	287		@Callable(i)
288	288		func stakeAcres () = {
289	289		let prologResult = prolog()
290	290		if ((prologResult == prologResult))
291	291		then {
292	292		let address = toString(i.caller)
293	293		if ((size(i.payments) != 1))
294	294		then throw("exactly 1 payment must be attached")
295	295		else {
296	296		let pmt = i.payments[0]
297	297		let amt = pmt.amount
298	298		if (if (!(isDefined(pmt.assetId)))
299	299		then true
300	300		else (value(pmt.assetId) != acresAssetId))
301	301		then throw("ACRES payments only!")
302	302		else {
303	303		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
304	304		if ((wlgResult == wlgResult))
305	305		then {
306	306		let now = lastBlock.timestamp
307	307		if (if ((PROMO_2_START_TIMESTAMP > now))
308	308		then true
309	309		else (now > PROMO_2_END_TIMESTAMP))
310	310		then {
311	311		let timeKey = keyAcresStakedTimeByUser(address)
312	312		let amountKey = keyAcresStakedAmountByUser(address)
313	313		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
314	314		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
315	315		let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
316	316		$Tuple2(((((if ((claimedAcres == 0))
317	317		then nil
318	318		else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
319	319		}
320	320		else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
321	321		then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
322	322		else {
323	323		let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
324	324		let promo2Map = valueOrElse(getString(promo2MapKey), "")
325	325		let newMap2 = if (contains(promo2Map, address))
326	326		then {
327	327		let parts = split_51C(promo2Map, address)
328	328		let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
329	329		((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
330	330		}
331	331		else {
332	332		let finalPart = ((address + ":") + padL(amt, 14))
333	333		if ((promo2Map == ""))
334	334		then finalPart
335	335		else ((promo2Map + "_") + finalPart)
336	336		}
337	337		$Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
338	338		}
339	339		}
340	340		else throw("Strict value is not equal to itself.")
341	341		}
342	342		}
343	343		}
344	344		else throw("Strict value is not equal to itself.")
345	345		}
346	346
347	347
348	348
349	349		@Callable(i)
350	350		func buyAcres () = {
351	351		let prologResult = prolog()
352	352		if ((prologResult == prologResult))
353	353		then {
354	354		let address = toString(i.caller)
355	355		if ((size(i.payments) != 1))
356	356		then throw("exactly 1 payment must be attached")
357	357		else {
358	358		let pmt = i.payments[0]
359	359		let amt = pmt.amount
360	360		if (if (!(isDefined(pmt.assetId)))
361	361		then true
362	362		else (value(pmt.assetId) != usdtAssetId))
363	363		then throw("USDT payments only!")
364	364		else if ((MULT6 > amt))
365	365		then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
366	366		else {
367	367		let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
368	368		let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
369	369		$Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
370	370		}
371	371		}
372	372		}
373	373		else throw("Strict value is not equal to itself.")
374	374		}
375	375
376	376
377	377
378	378		@Callable(i)
379	379		func sendAcres (addr,amount) = if ((i.caller != economyContract))
380	380		then throw("Permission denied")
381	381		else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
382	382
383	383
384	384
385	385		@Callable(i)
386	386		func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
387	387		then (i.caller != restContract)
388	388		else false)
389	389		then throw("Permission denied")
390	390		else {
391	391		let now = lastBlock.timestamp
392	392		let timeKey = keyAcresStakedTimeByUser(addr)
393	393		let amountKey = keyAcresStakedAmountByUser(addr)
394	394		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
395	395		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
396	396		let oldTime = valueOrElse(getInteger(timeKey), now)
397	397		let etaKey = keyAcresLockedEtaByUser(addr)
398	398		let lockedAmountKey = keyAcresLockedAmountByUser(addr)
399	399		let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
400	400		let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
401	401		let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
402	402		$Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
403	403		}
404	404
405	405
406	406
407	407		@Callable(i)
408	408		func burnAcres (amount) = if ((i.caller != stakingContract))
409	409		then throw("Permission denied")
410	410		else {
411	411		let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
412	412		if ((0 > amountLeft))
413	413		then throw("Attempt to burn more ACRES, than exists")
414	414		else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
415	415		}
416	416
417	417
418	418
419	419		@Callable(i)
420	420		func claimAcres () = {
421	421		let prologResult = prolog()
422	422		if ((prologResult == prologResult))
423	423		then {
424	424		let address = toString(i.caller)
425	425		if ((size(i.payments) != 0))
426	426		then throw("No payments required")
427	427		else {
428	428		let timeKey = keyAcresStakedTimeByUser(address)
429	429		let amountKey = keyAcresStakedAmountByUser(address)
430	430		let acresAmount = valueOrElse(getInteger(amountKey), 0)
431	431		let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
432	432		let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
433	433		$Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
434	434		}
435	435		}
436	436		else throw("Strict value is not equal to itself.")
437	437		}
438	438
439	439
440	440
441	441		@Callable(i)
442	442		func claimAcresREADONLY (address) = {
443	443		let timeKey = keyAcresStakedTimeByUser(address)
444	444		let amountKey = keyAcresStakedAmountByUser(address)
445	445		let acresAmount = valueOrElse(getInteger(amountKey), 0)
446	446		let lastTime = valueOrElse(getInteger(timeKey), 0)
447	447		let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
448	448		$Tuple2(nil, [claimedAcres, lastTime])
449	449		}
450	450
451	451

github/deemru/w8io/169f3d6 
50.46 ms ◑