w8 · tx · 2FJ···dQN

tx · 2FJwcuoCwfTB9wVEWV7b9gFtggxXR3dmjFx2uU1xfdQN

3PEHSJtFLJYyooEUq3sgwR7nX8vXM2qkGQi:  -0.02000000 Waves

2023.11.27 23:57 [3928195] smart account 3PEHSJtFLJYyooEUq3sgwR7nX8vXM2qkGQi > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2FJwcuoCwfTB9wVEWV7b9gFtggxXR3dmjFx2uU1xfdQN",
    "fee": 2000000,
    "feeAssetId": null,
    "timestamp": 1701118686822,
    "version": 2,
    "chainId": 87,
    "sender": "3PEHSJtFLJYyooEUq3sgwR7nX8vXM2qkGQi",
    "senderPublicKey": "AGD9BV1hvxrebUM68EhHEhphX86dVmKQXmRqxtndDQ48",
    "proofs": [
        "L6FtL5fuRCXVzrD6deaeVjMWen94WhdQ1qh9d2oCgm2wx6iTMrRjN9QJoK4n1RbSgBvfBpyUfq993xaiNNkjaHY"
    ],
    "script": "base64:BgI2CAISBAoCCAESAwoBARIAEgASBAoCCAESBQoDCAEBEgMKAQESABIDCgEIEgASAwoBARIDCgEBQQAITUlMTElPTjYAgIDpg7HeFgAJREFZTUlMTElTAIC4mSkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQRhZGRyCQCsAgICGGFjcmVzU3Rha2VkQW1vdW50QnlVc2VyXwUEYWRkcgEaa2V5QWNyZXNMb2NrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNMb2NrZWRBbW91bnRCeVVzZXJfBQRhZGRyARdrZXlBY3Jlc0xvY2tlZEV0YUJ5VXNlcgEEYWRkcgkArAICAhVhY3Jlc0xvY2tlZEV0YUJ5VXNlcl8FBGFkZHIAE2FjcmVzU3Rha2VkVG90YWxLZXkCFmFjcmVzU3Rha2VkQW1vdW50VG90YWwACnhwTmV3U0xhbmQAwJaxAgAPREFJTFlSRVNCWVBJRUNFAID40gEAFVVTRFQyQUNSRVNfTVVMVElQTElFUgAKARprZXlJc0F3YXJkZWRCeVByb21vQW5kVXNlcgIHcHJvbW9JZARhZGRyCQC5CQIJAMwIAgIfJXMlZCVzX19pc0F3YXJkZWRCeVByb21vQW5kVXNlcgkAzAgCCQCkAwEFB3Byb21vSWQJAMwIAgUEYWRkcgUDbmlsAgJfXwEWa2V5VGlja2V0c1RvdGFsQnlQcm9tbwEHcHJvbW9JZAkArAICAhslcyVkX190aWNrZXRzVG90YWxCeVByb21vX18JAKQDAQUHcHJvbW9JZAEea2V5VGlja2V0c1RvdGFsQnlQcm9tb0FuZFJvdW5kAgdwcm9tb0lkB3JvdW5kSWQJALkJAgkAzAgCAiMlcyVkJWRfX3RpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAkAzAgCCQCkAwEFB3Byb21vSWQJAMwIAgkApAMBBQdyb3VuZElkBQNuaWwCAl9fAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4ADHByb21vMk1hcEtleQIJcHJvbW8yTWFwARRrZXlQcm9tbzJNYXBGb3JSb3VuZAEHcm91bmRJZAkArAICAhNwcm9tbzJNYXBGb3JSb3VuZF9fCQCkAwEFB3JvdW5kSWQAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwAGSVRFUjIwCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFCQDMCAIABgkAzAgCAAcJAMwIAgAICQDMCAIACQkAzAgCAAoJAMwIAgALCQDMCAIADAkAzAgCAA0JAMwIAgAOCQDMCAIADwkAzAgCABAJAMwIAgARCQDMCAIAEgkAzAgCABMFA25pbAEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIADUlkeENmZ1dsZ0RhcHAABAAPSWR4Q2ZnQWNyZXNEYXBwAAgBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEOa2V5UmVzdEFkZHJlc3MAAgwlc19fcmVzdEFkZHIBEXJlYWRSZXN0Q2ZnT3JGYWlsAQRyZXN0CQC8CQIJAQ9nZXRTdHJpbmdPckZhaWwCBQRyZXN0CQEKa2V5UmVzdENmZwAFA1NFUAEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgdyZXN0Q2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHcmVzdENmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADHJlc3RDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEOa2V5UmVzdEFkZHJlc3MABRVkZWZhdWx0UmVzdEFkZHJlc3NTdHIAB3Jlc3RDZmcJARFyZWFkUmVzdENmZ09yRmFpbAEFDHJlc3RDb250cmFjdAAPc3Rha2luZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnU3Rha2luZ0RhcHAAD2Vjb25vbXlDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ0Vjb25vbXlEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFDUlkeENmZ1dsZ0RhcHAADWFjcmVzQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ9JZHhDZmdBY3Jlc0RhcHAAFGFjcmVzSXNzdWVkQW1vdW50S2V5AhFhY3Jlc0lzc3VlZEFtb3VudAAPYWNyZXNBc3NldElkS2V5AgxhY3Jlc0Fzc2V0SWQADGFjcmVzQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFDWFjcmVzQ29udHJhY3QFD2FjcmVzQXNzZXRJZEtleQIXQUNSRVMgaXMgbm90IGlzc3VlZCB5ZXQBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEEYWRkcgkArAICAhZhY3Jlc1N0YWtlZFRpbWVCeVVzZXJfBQRhZGRyAAtJZHhFZmZUb3RhbAAAAAtyYW5kb21EZWxheQACAQlrZXlDb21taXQBB2FkZHJlc3MJAKwCAgIPZmluaXNoQmxvY2tGb3JfBQdhZGRyZXNzARFrZXlSZXNQcm9wb3J0aW9ucwACE3Jlc1R5cGVzUHJvcG9ydGlvbnMBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUJb3duZXJBZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDmFzVHdvSW50c1R1cGxlAQN2YWwEByRtYXRjaDAFA3ZhbAMJAAECBQckbWF0Y2gwAgooSW50LCBJbnQpBAJ0MgUHJG1hdGNoMAUCdDIJAAIBAhxmYWlsIHRvIGNhc3QgaW50byAoSW50LCBJbnQpARFrZXlMYXN0VHhJZEJ5VXNlcgEEYWRkcgkArAICAg9sYXN0VHhJZEJ5VXNlcl8FBGFkZHIBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AQRwYWRMAgN2YWwDbGVuBAR2YWxTCQCkAwEFA3ZhbAQGemVyb2VzCQCwAgIJAKQDAQkAbAYACgAACQBlAgUDbGVuCQCxAgEFBHZhbFMAAAAABQRET1dOAAEJAKwCAgUGemVyb2VzBQR2YWxTAQ9nZXRSYW5kb21OdW1iZXIDCG1heFZhbHVlBHNhbHQHZW50cm9weQMJAGcCAAAFCG1heFZhbHVlCQACAQIWbWF4VmFsdWUgc2hvdWxkIGJlID4gMAQKcmFuZG9tSGFzaAkA9wMBCQDLAQIFBHNhbHQFB2VudHJvcHkJAGoCCQCxCQEFCnJhbmRvbUhhc2gFCG1heFZhbHVlAB1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwCAreIEAAxCTEFDS0xJU1RFRDEC3wYzUDJOR1g0UTVuZ2UxTUNhdXdRVzVhcVlMZGtjY1NHajFFcF8zUDJ4RkFIVzl5aHlOb2hZb3pXZDRIRmhFWFp1M2JzTlNvUl8zUDJ5S2FaMmd2bjlYZTV0dGk4MWE3UDlMWmhIZ2p2VG9WOV8zUDM3elEzY2YyZWN1NTVSbUpxRWlHU2l2ZHpOOWF2dDNtOV8zUDRhejZkdHpzdkdDV0ZBeGE5NFVkZXZLelh5RXd4RWlGR18zUDRrWlU2WDNUVExGY1NVZTU1SlN5OEJ5U3FpdGNQZ01Cel8zUDVoQ3hCRWgzTmdOaXpaaE5CcmV5QlNxdGJoSllMa0tQRF8zUDdITHZ1Y3kxMXl4eU1KVXdqelhGSEhLTUVEd2kxRXdmQ18zUDhKdWFxSDlQVFFBdjhENUhCR2dRZkthdUxUWXQyTlFmdF8zUDlnVERCNHJ0REVWYnBYM2FzVTYzSDRaaW5oMkVuVG1aRV8zUDlpTjNxcnRmSmljVVZ5N2FtWmVWc2V0VkQzdlVNazhiZV8zUENhMkJzQWE2SkJMaXJzelFmVjVyOWZKcnVqZmh3dHdmUF8zUEQzaTRYTjhLdHlnY0Z4NHJ5NU03VUdxZGZIOFZZdnRSVF8zUERFTW5uSk5jMmt4OWNQRW12VnZoWFVyOFN2aEFOS2hzYV8zUERHRTl0S1FpemFlWkZlRERxNWFZU3Y4OW53WWJmaXJwWl8zUERNS1FUQ3JVUFpFQ1ZYRUpKOG0xc0h0dXRTdTFuYVNmMV8zUEdoMlF1Nll2eDhHVENSUlZOdkJVVlpMZGFpZFlTYXhvNV8zUEtrbUF0YlNLNUQyaFFkbzFSZkVnOGVYeU1iRGNSVWM5Ml8zUExNbmJ4enNzUDhXOEU4WGpKMVJMQkJnOFVaTDhDejNQMl8zUE11eG80UENBb3g5czRhN1IxZXN6aDRpcXF1OGdTN2pIdl8zUE5yTXRFUUNodzg3V1pVMUpBSjdhR0h5a0NhOFRqbkROS18zUFB1QlhmV29CeTNFRW9yeTdjN3ZnaTlVc2prYTdvNXRCal8zUFF3eWV5RWhUNFk2YUdBTDZ0ZzczYVFXSnRWMXpSdDNuUl8zUFJHRFNodU1HYjg0TUp0VEp2dFRnOHFEZnN3a1lXY20zZQANUFJPTU8xX0FNT1VOVADCra8CABdQUk9NT18yX1NUQVJUX1RJTUVTVEFNUAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMACA8LT5vjEDCQAAAgEBVAUHJG1hdGNoMACA59DHvjEJAAIBAg1Vbmtub3duIGNoYWluABVQUk9NT18yX0VORF9USU1FU1RBTVAEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDAA/7/N8MAxAwkAAAIBAVQFByRtYXRjaDAAgIjX674xCQACAQINVW5rbm93biBjaGFpbgAZUFJPTU9fMl9ESVNUUklCVVRJT05fRlVORACAlOvcAwAXcHJvbW8yTnVtUHJpemVzUGVyUm91bmQJAMwIAgABCQDMCAIAAwkAzAgCAAUJAMwIAgAUBQNuaWwAE3Byb21vMkF3YXJkUGVyUm91bmQJAMwIAgCAyrXuAQkAzAgCAICEr18JAMwIAgCAwtcvCQDMCAIAgNrECQUDbmlsARNpc0JsYWNrbGlzdGVkUHJvbW8xAQRhZGRyCQEIY29udGFpbnMCBQxCTEFDS0xJU1RFRDEFBGFkZHIBBnByb2xvZwAJAQVhc0ludAEJAP0HBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIBC21lcmdlTG9ja2VkBAlvbGRBbW91bnQGb2xkRVRBCW5ld0Ftb3VudAZuZXdFVEEEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEA2R0MQkAlgMBCQDMCAIAAAkAzAgCCQBlAgUGb2xkRVRBBQNub3cFA25pbAQDZHQyCQCWAwEJAMwIAgAACQDMCAIJAGUCBQZuZXdFVEEFA25vdwUDbmlsBANzdW0JAGQCBQlvbGRBbW91bnQFCW5ld0Ftb3VudAQCZHQDCQAAAgUDc3VtAAAAAAkAZAIJAGsDBQNkdDEFCW9sZEFtb3VudAUDc3VtCQBrAwUDZHQyBQluZXdBbW91bnQFA3N1bQkAZAIFA25vdwUCZHQMAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDHVuc3Rha2VBY3JlcwEGYW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAxsb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwAABAlsb2NrZWRFVEEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQUHYWRkcmVzcwAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGcCBQNub3cFF1BST01PXzJfU1RBUlRfVElNRVNUQU1QCQBnAgUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBQNub3cHCQACAQImWW91IGNhbm5vdCB1bnN0YWtlIEFDUkVTIGR1cmluZyBQcm9tbzIEEHVuc3Rha2FibGVBbW91bnQDCQETaXNCbGFja2xpc3RlZFByb21vMQEFB2FkZHJlc3MJAGUCCQBlAgUOb2xkQWNyZXNBbW91bnQFDGxvY2tlZEFtb3VudAUNUFJPTU8xX0FNT1VOVAkAZQIFDm9sZEFjcmVzQW1vdW50BQxsb2NrZWRBbW91bnQDAwkAZgIFCWxvY2tlZEVUQQUDbm93CQBmAgUGYW1vdW50BRB1bnN0YWthYmxlQW1vdW50BwkAAgEJAKwCAgkArAICCQCsAgICBU9ubHkgCQEKZml4ZWRQb2ludAIFEHVuc3Rha2FibGVBbW91bnQACAInIEFDUkVTIGNhbiBiZSB1bnN0YWtlZCBub3csIHdhaXQgdW50aWwgCQCkAwEFCWxvY2tlZEVUQQQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCXdsZ1Jlc3VsdAUJd2xnUmVzdWx0BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGYCBRdQUk9NT18yX1NUQVJUX1RJTUVTVEFNUAUDbm93BgkAZgIFA25vdwUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAMJAGYCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwUDYW10CQACAQkArAICCQCsAgICOU1pbiBzdGFrZWQgYW1vdW50IGR1cmluZyBwcm9tbyBhY3Rpb24gc2hvdWxkIGJlIGF0IGxlYXN0IAkBCmZpeGVkUG9pbnQCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwAIAgYgQUNSRVMEC3N0YWtlUmVzdWx0CQD8BwQFBHRoaXMCD3NlbmRMb2NrZWRBY3JlcwkAzAgCBQdhZGRyZXNzCQDMCAIFA2FtdAkAzAgCAB4FA25pbAUDbmlsBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgAEB25ld01hcDIDCQEIY29udGFpbnMCBQlwcm9tbzJNYXAFB2FkZHJlc3MEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQJb2xkQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAK8CAgkAsAICCQCRAwIFBXBhcnRzAAEAAQAOCQCsAgIJAKwCAgkArAICCQCsAgIJAJEDAgUFcGFydHMAAAUHYWRkcmVzcwIBOgkBBHBhZEwCCQBkAgUJb2xkQW1vdW50BQNhbXQADgkAsAICCQCRAwIFBXBhcnRzAAEADwQJZmluYWxQYXJ0CQCsAgIJAKwCAgUHYWRkcmVzcwIBOgkBBHBhZEwCBQNhbXQADgMJAAACBQlwcm9tbzJNYXACAAUJZmluYWxQYXJ0CQCsAgIJAKwCAgUJcHJvbW8yTWFwAgFfBQlmaW5hbFBhcnQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQxwcm9tbzJNYXBLZXkFB25ld01hcDIFA25pbAkAlQoDBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAULc3Rha2VSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJc2VuZEFjcmVzAgRhZGRyBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPZWNvbm9teUNvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyBQZhbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsBQZhbW91bnQBaQEPc2VuZExvY2tlZEFjcmVzAwRhZGRyBmFtb3VudAhsb2NrRGF5cwMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAQIhPQIIBQFpBmNhbGxlcgUMcmVzdENvbnRyYWN0BwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUEYWRkcgQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAp0aW1lQWN0aW9uAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5BQNub3cFA25pbAQGZXRhS2V5CQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQRhZGRyBA9sb2NrZWRBbW91bnRLZXkJARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEFBGFkZHIED29sZExvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sb2NrZWRBbW91bnRLZXkAAAQMb2xkTG9ja2VkRVRBCQELdmFsdWVPckVsc2UCCQCfCAEFBmV0YUtleQAABAltZXJnZWRFVEEJAQttZXJnZUxvY2tlZAQFD29sZExvY2tlZEFtb3VudAUMb2xkTG9ja2VkRVRBBQZhbW91bnQJAGQCBQNub3cJAGgCBQhsb2NrRGF5cwUJREFZTUlMTElTCQCUCgIJAM0IAgkAzQgCCQDNCAIJAM0IAgUKdGltZUFjdGlvbgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFBmFtb3VudAkBDEludGVnZXJFbnRyeQIFBmV0YUtleQUJbWVyZ2VkRVRBCQEMSW50ZWdlckVudHJ5AgUPbG9ja2VkQW1vdW50S2V5CQBkAgUPb2xkTG9ja2VkQW1vdW50BQZhbW91bnQFBmFtb3VudAFpAQlidXJuQWNyZXMBBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQECmFtb3VudExlZnQJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFFGFjcmVzSXNzdWVkQW1vdW50S2V5AAAFBmFtb3VudAMJAGYCAAAFCmFtb3VudExlZnQJAAIBAidBdHRlbXB0IHRvIGJ1cm4gbW9yZSBBQ1JFUywgdGhhbiBleGlzdHMJAJQKAgkAzAgCCQEEQnVybgIFDGFjcmVzQXNzZXRJZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUKYW1vdW50TGVmdAUDbmlsBQZhbW91bnQBaQEKY2xhaW1BY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQESY2xhaW1BY3Jlc1JFQURPTkxZAQdhZGRyZXNzBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAABAxjbGFpbWVkQWNyZXMJARJjbGFpbUFjcmVzSW50ZXJuYWwDBQdhZGRyZXNzBQthY3Jlc0Ftb3VudAUIbGFzdFRpbWUJAJQKAgUDbmlsCQDMCAIFDGNsYWltZWRBY3JlcwkAzAgCBQhsYXN0VGltZQUDbmlsAWkBC2NsYWltUHJvbW8yAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAMJAGYCBRVQUk9NT18yX0VORF9USU1FU1RBTVAFA25vdwkAAgECF1Byb21vIDIgaXMgbm90IG92ZXIgeWV0BAphd2FyZGVkS2V5CQEaa2V5SXNBd2FyZGVkQnlQcm9tb0FuZFVzZXICAAIFB2FkZHJlc3MDCQELdmFsdWVPckVsc2UCCQCgCAEFCmF3YXJkZWRLZXkHCQACAQkArAICCQCsAgICDFlvdXIgd2FsbGV0IAUHYWRkcmVzcwIeIGlzIGFscmVhZHkgYXdhcmRlZCBpbiBwcm9tbyAyBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgADCQEBIQEJAQhjb250YWlucwIFCXByb21vMk1hcAUHYWRkcmVzcwkAAgECIllvdSBhcmUgbm90IHBhcnRpY2lwYW50IG9mIHByb21vIDIEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkArwICCQCwAgIJAJEDAgUFcGFydHMAAQABAA4EB3RpY2tldHMJAGkCBQthY3Jlc0Ftb3VudAUdTUlOX0FDUkVTX0FNT1VOVF9EVVJJTkdfUFJPTU8EC3RvdGFsVGlrZXRzCQELdmFsdWVPckVsc2UCCQCfCAEJARZrZXlUaWNrZXRzVG90YWxCeVByb21vAQACAAAEDSR0MDEyMzgxMTI4MjEDCQAAAgULdG90YWxUaWtldHMAAAoBDGNvdW50VGlja2V0cwIDYWNjAmVsCQBkAgUDYWNjCQBpAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIJALUJAgUCZWwCAToAAQUdTUlOX0FDUkVTX0FNT1VOVF9EVVJJTkdfUFJPTU8EDHRpY2tldHNDb3VudAoAAiRsCQC9CQIFCXByb21vMk1hcAIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMY291bnRUaWNrZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleVRpY2tldHNUb3RhbEJ5UHJvbW8BAAIFDHRpY2tldHNDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleVRpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAIAAgABBQx0aWNrZXRzQ291bnQFA25pbAUMdGlja2V0c0NvdW50CQCUCgIFA25pbAULdG90YWxUaWtldHMEDnRpY2tldHNBY3Rpb25zCAUNJHQwMTIzODExMjgyMQJfMQQKdG90YWxDb3VudAgFDSR0MDEyMzgxMTI4MjECXzIEBWF3YXJkCQBrAwUZUFJPTU9fMl9ESVNUUklCVVRJT05fRlVORAUHdGlja2V0cwUKdG90YWxDb3VudAQLc3Rha2VSZXN1bHQJAPwHBAUEdGhpcwIPc2VuZExvY2tlZEFjcmVzCQDMCAIFB2FkZHJlc3MJAMwIAgUFYXdhcmQJAMwIAgAeBQNuaWwFA25pbAkAlAoCCQDNCAIJAM0IAgUOdGlja2V0c0FjdGlvbnMJAQxCb29sZWFuRW50cnkCBQphd2FyZGVkS2V5BgkBC1N0cmluZ0VudHJ5AgkBFGtleVByb21vMk1hcEZvclJvdW5kAQABBQlwcm9tbzJNYXAFC3N0YWtlUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFGNvbW1pdEZvclByb21vMlJvdW5kAQdyb3VuZElkAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDAwkAZgIAAQUHcm91bmRJZAYJAGYCBQdyb3VuZElkAAQJAAIBCQCsAgICEUludmFsaWQgcm91bmRJZDogCQCkAwEFB3JvdW5kSWQEC2ZpbmlzaEJsb2NrCQBkAgUGaGVpZ2h0BQtyYW5kb21EZWxheQkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEJa2V5Q29tbWl0AQkArAICAgIyXwkApAMBBQdyb3VuZElkBQtmaW5pc2hCbG9jawUDbmlsBQtmaW5pc2hCbG9jawFpAQ9kcmF3UHJvbW8yUm91bmQBB3JvdW5kSWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAMDCQBmAgABBQdyb3VuZElkBgkAZgIFB3JvdW5kSWQABAkAAgEJAKwCAgIRSW52YWxpZCByb3VuZElkOiAJAKQDAQUHcm91bmRJZAQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQkArAICAgIyXwkApAMBBQdyb3VuZElkBAtmaW5pc2hCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFCWZpbmlzaEtleQkArAICCQCsAgICIVlvdSBoYXZlIHRvIGNvbW1pdEZvclByb21vMlJvdW5kKAkApAMBBQdyb3VuZElkAggpIGZpcnN0IQMJAGYCBQtmaW5pc2hCbG9jawUGaGVpZ2h0CQACAQkArAICCQCsAgIJAKwCAgkArAICAjRSYW5kb20gbnVtYmVyIGlzIG5vdCByZWFkeSB5ZXQsIHdhaXQgdW50aWwgaGVpZ2h0ID0gCQCkAwEFC2ZpbmlzaEJsb2NrAhMgKGN1cnJlbnQgaGVpZ2h0ID0gCQCkAwEFBmhlaWdodAIBKQQIbWF4VmFsdWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBHmtleVRpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAIAAgUHcm91bmRJZAAAAwkAAAIFCG1heFZhbHVlAAAJAAIBAjxObyB0aWNrZXRzIHRvIGRyYXcgKHdhcyBjbGFpbVByb21vMigpIGNhbGxlZCBhdCBsZWFzdCBvbmNlPykEB2VudHJvcHkJAQV2YWx1ZQEICQEFdmFsdWUBCQDtBwEFC2ZpbmlzaEJsb2NrA3ZyZgQEc2FsdAgFAWkNdHJhbnNhY3Rpb25JZAQJcHJvbW8yTWFwCQELdmFsdWVPckVsc2UCCQCiCAEJARRrZXlQcm9tbzJNYXBGb3JSb3VuZAEFB3JvdW5kSWQCAAoBCnNpbmdsZURyYXcCAmFjAWoDCQBnAgUBagkAkQMCBRdwcm9tbzJOdW1Qcml6ZXNQZXJSb3VuZAkAZQIFB3JvdW5kSWQAAQUCYWMEBHJhbmQJAQ9nZXRSYW5kb21OdW1iZXIDCAUCYWMCXzEIBQJhYwJfMgUHZW50cm9weQQKcHJvbW8yTGlzdAMJAAACCAUCYWMCXzMCAAUDbmlsCQC9CQIIBQJhYwJfMwIBXwoBDGNvdW50VGlja2V0cwIDYWNjAmVsBAVwYXJ0cwkAtQkCBQJlbAIBOgQEYWRkcgkAkQMCBQVwYXJ0cwAABAd0aWNrZXRzCQBpAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBXBhcnRzAAEFHU1JTl9BQ1JFU19BTU9VTlRfRFVSSU5HX1BST01PBAhuZXdUb3RhbAkAZAIIBQNhY2MCXzEFB3RpY2tldHMDAwkAAAIIBQNhY2MCXzMCAAkAZgIFCG5ld1RvdGFsBQRyYW5kBwkAlQoDBQhuZXdUb3RhbAUHdGlja2V0cwUEYWRkcgkAlQoDBQhuZXdUb3RhbAgFA2FjYwJfMggFA2FjYwJfMwQBcgoAAiRsBQpwcm9tbzJMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDAAAAAAIACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQxjb3VudFRpY2tldHMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDUwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoACwAMAA0ADgAPABAAEQASABMAFAAVABYAFwAYABkAGgAbABwAHQAeAB8AIAAhACIAIwAkACUAJgAnACgAKQAqACsALAAtAC4ALwAwADEAMgQGd2lubmVyCAUBcgJfMwMJAAACBQZ3aW5uZXICAAUCYWMECG1hcFBhcnRzCQC9CQIIBQJhYwJfMwUGd2lubmVyBAZuZXdNYXADCQAAAgkAkQMCBQhtYXBQYXJ0cwAAAgAJALACAgkAkQMCBQhtYXBQYXJ0cwABABAJAKwCAgkAswICCQCRAwIFCG1hcFBhcnRzAAAAAQkAsAICCQCRAwIFCG1hcFBhcnRzAAEADwQLc3Rha2VSZXN1bHQJAPwHBAUEdGhpcwIPc2VuZExvY2tlZEFjcmVzCQDMCAIFBndpbm5lcgkAzAgCCQCRAwIFE3Byb21vMkF3YXJkUGVyUm91bmQJAGUCBQdyb3VuZElkAAEJAMwIAgAeBQNuaWwFA25pbAkAlgoECQBlAggFAmFjAl8xCAUBcgJfMgkA2QQBCQERQGV4dHJOYXRpdmUoMTA1MykCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlMYXN0VHhJZEJ5VXNlcgEFBndpbm5lcgUGbmV3TWFwCQDNCAIIBQJhYwJfNAULc3Rha2VSZXN1bHQEBWRyYXdzCgACJGwFBklURVIyMAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUIbWF4VmFsdWUIBQFpDXRyYW5zYWN0aW9uSWQFCXByb21vMk1hcAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQpzaW5nbGVEcmF3AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQJAJQKAgkAzAgCCQELRGVsZXRlRW50cnkBBQlmaW5pc2hLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVByb21vMk1hcEZvclJvdW5kAQkAZAIFB3JvdW5kSWQAAQgFBWRyYXdzAl8zCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEea2V5VGlja2V0c1RvdGFsQnlQcm9tb0FuZFJvdW5kAgACCQBkAgUHcm91bmRJZAABCAUFZHJhd3MCXzEFA25pbAgFBWRyYXdzAl80ACioVFU=",
    "height": 3928195,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Cb2sJsYuHizd2fwd83jz6qyn3x1zJPp4NCfBkAPpeFmc
Next: 4a54rjFZo9uvckEWpx9PvB9JwZ8igWPTouGhF1BgYqHS

Diff: 
Old New Differences
22 22  
23 23  let USDT2ACRES_MULTIPLIER = 10
24 24  
25 + func keyIsAwardedByPromoAndUser (promoId,addr) = makeString(["%s%d%s__isAwardedByPromoAndUser", toString(promoId), addr], "__")
26 + 
27 + 
28 + func keyTicketsTotalByPromo (promoId) = ("%s%d__ticketsTotalByPromo__" + toString(promoId))
29 + 
30 + 
31 + func keyTicketsTotalByPromoAndRound (promoId,roundId) = makeString(["%s%d%d__ticketsTotalByPromoAndRound", toString(promoId), toString(roundId)], "__")
32 + 
33 + 
25 34  let chain = take(drop(this.bytes, 1), 1)
26 35  
27 36  let usdtAssetId = match chain {
44 53  
45 54  let promo2MapKey = "promo2Map"
46 55  
56 + func keyPromo2MapForRound (roundId) = ("promo2MapForRound__" + toString(roundId))
57 + 
58 + 
47 59  let SEP = "__"
48 60  
49 61  let MULT6 = 1000000
50 62  
51 63  let MULT8 = 100000000
64 + 
65 + let ITER20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
52 66  
53 67  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
54 68  
96 110  
97 111  let IdxEffTotal = 0
98 112  
113 + let randomDelay = 2
114 + 
115 + func keyCommit (address) = ("finishBlockFor_" + address)
116 + 
117 + 
99 118  func keyResProportions () = "resTypesProportions"
100 119  
101 120  
116 135      case _ => 
117 136          throw("fail to cast into (Int, Int)")
118 137  }
138 + 
139 + 
140 + func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
119 141  
120 142  
121 143  func getVotingPower (userAddrStrOrEmpty) = {
156 178      }
157 179  
158 180  
181 + func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
182 +     then throw("maxValue should be > 0")
183 +     else {
184 +         let randomHash = sha256((salt + entropy))
185 +         (toInt(randomHash) % maxValue)
186 +         }
187 + 
188 + 
159 189  let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
160 190  
161 191  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"
179 209                  then 1700496000000
180 210                  else throw("Unknown chain")
181 211  }
212 + 
213 + let PROMO_2_DISTRIBUTION_FUND = 1000000000
214 + 
215 + let promo2NumPrizesPerRound = [1, 3, 5, 20]
216 + 
217 + let promo2AwardPerRound = [500000000, 200000000, 100000000, 20000000]
182 218  
183 219  func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184 220  
393 429          let amountKey = keyAcresStakedAmountByUser(addr)
394 430          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
395 431          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
396 -         let oldTime = valueOrElse(getInteger(timeKey), now)
432 +         let timeAction = if (isDefined(getInteger(timeKey)))
433 +             then nil
434 +             else [IntegerEntry(timeKey, now)]
397 435          let etaKey = keyAcresLockedEtaByUser(addr)
398 436          let lockedAmountKey = keyAcresLockedAmountByUser(addr)
399 437          let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
400 438          let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
401 439          let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
402 -         $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
440 +         $Tuple2(((((timeAction :+ IntegerEntry(amountKey, (oldAcresAmount + amount))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amount))) :+ IntegerEntry(etaKey, mergedETA)) :+ IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))), amount)
403 441          }
404 442  
405 443  
449 487      }
450 488  
451 489  
490 + 
491 + @Callable(i)
492 + func claimPromo2 () = {
493 +     let prologResult = prolog()
494 +     if ((prologResult == prologResult))
495 +         then {
496 +             let address = toString(i.caller)
497 +             if ((size(i.payments) != 0))
498 +                 then throw("No payments required")
499 +                 else {
500 +                     let now = lastBlock.timestamp
501 +                     if ((PROMO_2_END_TIMESTAMP > now))
502 +                         then throw("Promo 2 is not over yet")
503 +                         else {
504 +                             let awardedKey = keyIsAwardedByPromoAndUser(2, address)
505 +                             if (valueOrElse(getBoolean(awardedKey), false))
506 +                                 then throw((("Your wallet " + address) + " is already awarded in promo 2"))
507 +                                 else {
508 +                                     let promo2Map = valueOrElse(getString(promo2MapKey), "")
509 +                                     if (!(contains(promo2Map, address)))
510 +                                         then throw("You are not participant of promo 2")
511 +                                         else {
512 +                                             let parts = split_51C(promo2Map, address)
513 +                                             let acresAmount = parseIntValue(take(drop(parts[1], 1), 14))
514 +                                             let tickets = (acresAmount / MIN_ACRES_AMOUNT_DURING_PROMO)
515 +                                             let totalTikets = valueOrElse(getInteger(keyTicketsTotalByPromo(2)), 0)
516 +                                             let $t01238112821 = if ((totalTikets == 0))
517 +                                                 then {
518 +                                                     func countTickets (acc,el) =                                                     (acc + (parseIntValue(split(el, ":")[1]) / MIN_ACRES_AMOUNT_DURING_PROMO))
519 + 
520 +                                                     let ticketsCount = {
521 +                                                         let $l = split_51C(promo2Map, "_")
522 +                                                         let $s = size($l)
523 +                                                         let $acc0 = 0
524 +                                                         func $f0_1 ($a,$i) =                                                         if (($i >= $s))
525 +                                                             then $a
526 +                                                             else countTickets($a, $l[$i])
527 + 
528 +                                                         func $f0_2 ($a,$i) =                                                         if (($i >= $s))
529 +                                                             then $a
530 +                                                             else throw("List size exceeds 50")
531 + 
532 +                                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
533 +                                                         }
534 +                                                     $Tuple2([IntegerEntry(keyTicketsTotalByPromo(2), ticketsCount), IntegerEntry(keyTicketsTotalByPromoAndRound(2, 1), ticketsCount)], ticketsCount)
535 +                                                     }
536 +                                                 else $Tuple2(nil, totalTikets)
537 +                                             let ticketsActions = $t01238112821._1
538 +                                             let totalCount = $t01238112821._2
539 +                                             let award = fraction(PROMO_2_DISTRIBUTION_FUND, tickets, totalCount)
540 +                                             let stakeResult = invoke(this, "sendLockedAcres", [address, award, 30], nil)
541 +                                             $Tuple2(((ticketsActions :+ BooleanEntry(awardedKey, true)) :+ StringEntry(keyPromo2MapForRound(1), promo2Map)), stakeResult)
542 +                                             }
543 +                                     }
544 +                             }
545 +                     }
546 +             }
547 +         else throw("Strict value is not equal to itself.")
548 +     }
549 + 
550 + 
551 + 
552 + @Callable(i)
553 + func commitForPromo2Round (roundId) = if ((i.caller != this))
554 +     then throw("Permission denied")
555 +     else if (if ((1 > roundId))
556 +         then true
557 +         else (roundId > 4))
558 +         then throw(("Invalid roundId: " + toString(roundId)))
559 +         else {
560 +             let finishBlock = (height + randomDelay)
561 +             $Tuple2([IntegerEntry(keyCommit(("2_" + toString(roundId))), finishBlock)], finishBlock)
562 +             }
563 + 
564 + 
565 + 
566 + @Callable(i)
567 + func drawPromo2Round (roundId) = if ((i.caller != this))
568 +     then throw("Permission denied")
569 +     else if (if ((1 > roundId))
570 +         then true
571 +         else (roundId > 4))
572 +         then throw(("Invalid roundId: " + toString(roundId)))
573 +         else {
574 +             let finishKey = keyCommit(("2_" + toString(roundId)))
575 +             let finishBlock = valueOrErrorMessage(getInteger(finishKey), (("You have to commitForPromo2Round(" + toString(roundId)) + ") first!"))
576 +             if ((finishBlock > height))
577 +                 then throw((((("Random number is not ready yet, wait until height = " + toString(finishBlock)) + " (current height = ") + toString(height)) + ")"))
578 +                 else {
579 +                     let maxValue = valueOrElse(getInteger(keyTicketsTotalByPromoAndRound(2, roundId)), 0)
580 +                     if ((maxValue == 0))
581 +                         then throw("No tickets to draw (was claimPromo2() called at least once?)")
582 +                         else {
583 +                             let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
584 +                             let salt = i.transactionId
585 +                             let promo2Map = valueOrElse(getString(keyPromo2MapForRound(roundId)), "")
586 +                             func singleDraw (ac,j) =                             if ((j >= promo2NumPrizesPerRound[(roundId - 1)]))
587 +                                 then ac
588 +                                 else {
589 +                                     let rand = getRandomNumber(ac._1, ac._2, entropy)
590 +                                     let promo2List = if ((ac._3 == ""))
591 +                                         then nil
592 +                                         else split_51C(ac._3, "_")
593 +                                     func countTickets (acc,el) =                                     {
594 +                                         let parts = split(el, ":")
595 +                                         let addr = parts[0]
596 +                                         let tickets = (parseIntValue(parts[1]) / MIN_ACRES_AMOUNT_DURING_PROMO)
597 +                                         let newTotal = (acc._1 + tickets)
598 +                                         if (if ((acc._3 == ""))
599 +                                             then (newTotal > rand)
600 +                                             else false)
601 +                                             then $Tuple3(newTotal, tickets, addr)
602 +                                             else $Tuple3(newTotal, acc._2, acc._3)
603 +                                         }
604 + 
605 +                                     let r = {
606 +                                         let $l = promo2List
607 +                                         let $s = size($l)
608 +                                         let $acc0 = $Tuple3(0, 0, "")
609 +                                         func $f0_1 ($a,$i) =                                         if (($i >= $s))
610 +                                             then $a
611 +                                             else countTickets($a, $l[$i])
612 + 
613 +                                         func $f0_2 ($a,$i) =                                         if (($i >= $s))
614 +                                             then $a
615 +                                             else throw("List size exceeds 50")
616 + 
617 +                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
618 +                                         }
619 +                                     let winner = r._3
620 +                                     if ((winner == ""))
621 +                                         then ac
622 +                                         else {
623 +                                             let mapParts = split_51C(ac._3, winner)
624 +                                             let newMap = if ((mapParts[0] == ""))
625 +                                                 then drop(mapParts[1], 16)
626 +                                                 else (dropRight(mapParts[0], 1) + drop(mapParts[1], 15))
627 +                                             let stakeResult = invoke(this, "sendLockedAcres", [winner, promo2AwardPerRound[(roundId - 1)], 30], nil)
628 +                                             $Tuple4((ac._1 - r._2), fromBase58String(getStringValue(stakingContract, keyLastTxIdByUser(winner))), newMap, (ac._4 :+ stakeResult))
629 +                                             }
630 +                                     }
631 + 
632 +                             let draws = {
633 +                                 let $l = ITER20
634 +                                 let $s = size($l)
635 +                                 let $acc0 = $Tuple4(maxValue, i.transactionId, promo2Map, nil)
636 +                                 func $f0_1 ($a,$i) =                                 if (($i >= $s))
637 +                                     then $a
638 +                                     else singleDraw($a, $l[$i])
639 + 
640 +                                 func $f0_2 ($a,$i) =                                 if (($i >= $s))
641 +                                     then $a
642 +                                     else throw("List size exceeds 20")
643 + 
644 +                                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
645 +                                 }
646 +                             $Tuple2([DeleteEntry(finishKey), StringEntry(keyPromo2MapForRound((roundId + 1)), draws._3), IntegerEntry(keyTicketsTotalByPromoAndRound(2, (roundId + 1)), draws._1)], draws._4)
647 +                             }
648 +                     }
649 +             }
650 + 
651 + 
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 + func keyIsAwardedByPromoAndUser (promoId,addr) = makeString(["%s%d%s__isAwardedByPromoAndUser", toString(promoId), addr], "__")
26 + 
27 + 
28 + func keyTicketsTotalByPromo (promoId) = ("%s%d__ticketsTotalByPromo__" + toString(promoId))
29 + 
30 + 
31 + func keyTicketsTotalByPromoAndRound (promoId,roundId) = makeString(["%s%d%d__ticketsTotalByPromoAndRound", toString(promoId), toString(roundId)], "__")
32 + 
33 + 
25 34  let chain = take(drop(this.bytes, 1), 1)
26 35  
27 36  let usdtAssetId = match chain {
28 37      case _ => 
29 38          if ((base58'2W' == $match0))
30 39              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
31 40              else if ((base58'2T' == $match0))
32 41                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
33 42                  else throw("Unknown chain")
34 43  }
35 44  
36 45  let defaultRestAddressStr = match chain {
37 46      case _ => 
38 47          if ((base58'2W' == $match0))
39 48              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
40 49              else if ((base58'2T' == $match0))
41 50                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
42 51                  else throw("Unknown chain")
43 52  }
44 53  
45 54  let promo2MapKey = "promo2Map"
46 55  
56 + func keyPromo2MapForRound (roundId) = ("promo2MapForRound__" + toString(roundId))
57 + 
58 + 
47 59  let SEP = "__"
48 60  
49 61  let MULT6 = 1000000
50 62  
51 63  let MULT8 = 100000000
64 + 
65 + let ITER20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
52 66  
53 67  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
54 68  
55 69  
56 70  let IdxCfgStakingDapp = 1
57 71  
58 72  let IdxCfgEconomyDapp = 2
59 73  
60 74  let IdxCfgWlgDapp = 4
61 75  
62 76  let IdxCfgAcresDapp = 8
63 77  
64 78  func keyRestCfg () = "%s__restConfig"
65 79  
66 80  
67 81  func keyRestAddress () = "%s__restAddr"
68 82  
69 83  
70 84  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
71 85  
72 86  
73 87  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
74 88  
75 89  
76 90  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
77 91  
78 92  let restCfg = readRestCfgOrFail(restContract)
79 93  
80 94  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
81 95  
82 96  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
83 97  
84 98  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
85 99  
86 100  let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
87 101  
88 102  let acresIssuedAmountKey = "acresIssuedAmount"
89 103  
90 104  let acresAssetIdKey = "acresAssetId"
91 105  
92 106  let acresAssetId = valueOrErrorMessage(getBinary(acresContract, acresAssetIdKey), "ACRES is not issued yet")
93 107  
94 108  func keyAcresStakedTimeByUser (addr) = ("acresStakedTimeByUser_" + addr)
95 109  
96 110  
97 111  let IdxEffTotal = 0
98 112  
113 + let randomDelay = 2
114 + 
115 + func keyCommit (address) = ("finishBlockFor_" + address)
116 + 
117 + 
99 118  func keyResProportions () = "resTypesProportions"
100 119  
101 120  
102 121  func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
103 122  
104 123  
105 124  func asInt (v) = match v {
106 125      case n: Int => 
107 126          n
108 127      case _ => 
109 128          throw("fail to cast into Int")
110 129  }
111 130  
112 131  
113 132  func asTwoIntsTuple (val) = match val {
114 133      case t2: (Int, Int) => 
115 134          t2
116 135      case _ => 
117 136          throw("fail to cast into (Int, Int)")
118 137  }
138 + 
139 + 
140 + func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
119 141  
120 142  
121 143  func getVotingPower (userAddrStrOrEmpty) = {
122 144      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
123 145      func adder (acc,item) =     (acc + parseIntValue(item))
124 146  
125 147      let totalPower = {
126 148          let $l = props
127 149          let $s = size($l)
128 150          let $acc0 = 0
129 151          func $f0_1 ($a,$i) =         if (($i >= $s))
130 152              then $a
131 153              else adder($a, $l[$i])
132 154  
133 155          func $f0_2 ($a,$i) =         if (($i >= $s))
134 156              then $a
135 157              else throw("List size exceeds 6")
136 158  
137 159          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
138 160          }
139 161      let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
140 162  [totalPower, usersPower]
141 163      }
142 164  
143 165  
144 166  func fixedPoint (val,decimals) = {
145 167      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
146 168      let lowPart = toString((val % tenPow))
147 169      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
148 170      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
149 171      }
150 172  
151 173  
152 174  func padL (val,len) = {
153 175      let valS = toString(val)
154 176      let zeroes = drop(toString(pow(10, 0, (len - size(valS)), 0, 0, DOWN)), 1)
155 177      (zeroes + valS)
156 178      }
157 179  
158 180  
181 + func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
182 +     then throw("maxValue should be > 0")
183 +     else {
184 +         let randomHash = sha256((salt + entropy))
185 +         (toInt(randomHash) % maxValue)
186 +         }
187 + 
188 + 
159 189  let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
160 190  
161 191  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 192  
163 193  let PROMO1_AMOUNT = 4970178
164 194  
165 195  let PROMO_2_START_TIMESTAMP = match chain {
166 196      case _ => 
167 197          if ((base58'2W' == $match0))
168 198              then 1700524800000
169 199              else if ((base58'2T' == $match0))
170 200                  then 1700420400000
171 201                  else throw("Unknown chain")
172 202  }
173 203  
174 204  let PROMO_2_END_TIMESTAMP = match chain {
175 205      case _ => 
176 206          if ((base58'2W' == $match0))
177 207              then 1701043199999
178 208              else if ((base58'2T' == $match0))
179 209                  then 1700496000000
180 210                  else throw("Unknown chain")
181 211  }
212 + 
213 + let PROMO_2_DISTRIBUTION_FUND = 1000000000
214 + 
215 + let promo2NumPrizesPerRound = [1, 3, 5, 20]
216 + 
217 + let promo2AwardPerRound = [500000000, 200000000, 100000000, 20000000]
182 218  
183 219  func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184 220  
185 221  
186 222  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
187 223  
188 224  
189 225  func claimAcresInternal (addr,acresAmount,lastClaimTime) = {
190 226      let deltaTime = (lastBlock.timestamp - lastClaimTime)
191 227      let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
192 228      let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
193 229      let gotUsdt = max([0, canGetUsdt])
194 230      (gotUsdt * USDT2ACRES_MULTIPLIER)
195 231      }
196 232  
197 233  
198 234  func claimInternal (addr,acresAmount,lastClaimTime) = {
199 235      let deltaTime = (lastBlock.timestamp - lastClaimTime)
200 236      if ((0 > deltaTime))
201 237          then throw(((("Saved timestamp is in future, saved = " + toString(lastClaimTime)) + ", current = ") + toString(lastBlock.timestamp)))
202 238          else {
203 239              let availRes = fraction(deltaTime, (DAILYRESBYPIECE * acresAmount), (DAYMILLIS * MULT8))
204 240              let canGetUsdt = asInt(invoke(economyContract, "sellResourcesWorldREADONLY", [availRes], nil))
205 241              let gotUsdt = if ((0 >= canGetUsdt))
206 242                  then 0
207 243                  else asTwoIntsTuple(invoke(economyContract, "sellResourcesWorld", [addr, availRes], nil))._1
208 244              (gotUsdt * USDT2ACRES_MULTIPLIER)
209 245              }
210 246      }
211 247  
212 248  
213 249  func mergeLocked (oldAmount,oldETA,newAmount,newETA) = {
214 250      let now = lastBlock.timestamp
215 251      let dt1 = max([0, (oldETA - now)])
216 252      let dt2 = max([0, (newETA - now)])
217 253      let sum = (oldAmount + newAmount)
218 254      let dt = if ((sum == 0))
219 255          then 0
220 256          else (fraction(dt1, oldAmount, sum) + fraction(dt2, newAmount, sum))
221 257      (now + dt)
222 258      }
223 259  
224 260  
225 261  @Callable(i)
226 262  func constructorV1 (restAddr,unstakedPieces) = if ((i.caller != this))
227 263      then throw("Permission denied")
228 264      else if (isDefined(getBinary(acresAssetIdKey)))
229 265          then throw("Already initialized")
230 266          else {
231 267              let nftAcres = (getVotingPower("")[IdxEffTotal] + unstakedPieces)
232 268              let issuedAmount = (MILLION6 - (nftAcres * MULT8))
233 269              let issue = Issue("ACRES", "WavesLands land acres investment token", issuedAmount, 8, false, unit, 0)
234 270              let assetId = calculateAssetId(issue)
235 271  [issue, IntegerEntry(acresIssuedAmountKey, issuedAmount), BinaryEntry(acresAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr)]
236 272              }
237 273  
238 274  
239 275  
240 276  @Callable(i)
241 277  func unstakeAcres (amount) = {
242 278      let prologResult = prolog()
243 279      if ((prologResult == prologResult))
244 280          then if ((0 >= amount))
245 281              then throw("Amount should be positive")
246 282              else {
247 283                  let address = toString(i.caller)
248 284                  if ((size(i.payments) != 0))
249 285                      then throw("No payments required")
250 286                      else {
251 287                          let timeKey = keyAcresStakedTimeByUser(address)
252 288                          let amountKey = keyAcresStakedAmountByUser(address)
253 289                          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
254 290                          if ((amount > oldAcresAmount))
255 291                              then throw(((("You have only " + fixedPoint(oldAcresAmount, 8)) + " ACRES staked, tried to unstake ") + fixedPoint(amount, 8)))
256 292                              else {
257 293                                  let lockedAmount = valueOrElse(getInteger(keyAcresLockedAmountByUser(address)), 0)
258 294                                  let lockedETA = valueOrElse(getInteger(keyAcresLockedEtaByUser(address)), 0)
259 295                                  let now = lastBlock.timestamp
260 296                                  if (if ((now >= PROMO_2_START_TIMESTAMP))
261 297                                      then (PROMO_2_END_TIMESTAMP >= now)
262 298                                      else false)
263 299                                      then throw("You cannot unstake ACRES during Promo2")
264 300                                      else {
265 301                                          let unstakableAmount = if (isBlacklistedPromo1(address))
266 302                                              then ((oldAcresAmount - lockedAmount) - PROMO1_AMOUNT)
267 303                                              else (oldAcresAmount - lockedAmount)
268 304                                          if (if ((lockedETA > now))
269 305                                              then (amount > unstakableAmount)
270 306                                              else false)
271 307                                              then throw(((("Only " + fixedPoint(unstakableAmount, 8)) + " ACRES can be unstaked now, wait until ") + toString(lockedETA)))
272 308                                              else {
273 309                                                  let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
274 310                                                  let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
275 311                                                  let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
276 312                                                  $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), IntegerEntry(amountKey, (oldAcresAmount - amount)), IntegerEntry(acresStakedTotalKey, (oldTotal - amount)), ScriptTransfer(i.caller, (amount + claimedAcres), acresAssetId)], $Tuple2(prologResult, wlgResult))
277 313                                                  }
278 314                                          }
279 315                                  }
280 316                          }
281 317                  }
282 318          else throw("Strict value is not equal to itself.")
283 319      }
284 320  
285 321  
286 322  
287 323  @Callable(i)
288 324  func stakeAcres () = {
289 325      let prologResult = prolog()
290 326      if ((prologResult == prologResult))
291 327          then {
292 328              let address = toString(i.caller)
293 329              if ((size(i.payments) != 1))
294 330                  then throw("exactly 1 payment must be attached")
295 331                  else {
296 332                      let pmt = i.payments[0]
297 333                      let amt = pmt.amount
298 334                      if (if (!(isDefined(pmt.assetId)))
299 335                          then true
300 336                          else (value(pmt.assetId) != acresAssetId))
301 337                          then throw("ACRES payments only!")
302 338                          else {
303 339                              let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
304 340                              if ((wlgResult == wlgResult))
305 341                                  then {
306 342                                      let now = lastBlock.timestamp
307 343                                      if (if ((PROMO_2_START_TIMESTAMP > now))
308 344                                          then true
309 345                                          else (now > PROMO_2_END_TIMESTAMP))
310 346                                          then {
311 347                                              let timeKey = keyAcresStakedTimeByUser(address)
312 348                                              let amountKey = keyAcresStakedAmountByUser(address)
313 349                                              let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
314 350                                              let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
315 351                                              let claimedAcres = claimInternal(address, oldAcresAmount, valueOrElse(getInteger(timeKey), 0))
316 352                                              $Tuple2(((((if ((claimedAcres == 0))
317 353                                                  then nil
318 354                                                  else [ScriptTransfer(i.caller, claimedAcres, acresAssetId)]) :+ IntegerEntry(timeKey, lastBlock.timestamp)) :+ IntegerEntry(amountKey, (oldAcresAmount + amt))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amt))), $Tuple2(prologResult, wlgResult))
319 355                                              }
320 356                                          else if ((MIN_ACRES_AMOUNT_DURING_PROMO > amt))
321 357                                              then throw((("Min staked amount during promo action should be at least " + fixedPoint(MIN_ACRES_AMOUNT_DURING_PROMO, 8)) + " ACRES"))
322 358                                              else {
323 359                                                  let stakeResult = invoke(this, "sendLockedAcres", [address, amt, 30], nil)
324 360                                                  let promo2Map = valueOrElse(getString(promo2MapKey), "")
325 361                                                  let newMap2 = if (contains(promo2Map, address))
326 362                                                      then {
327 363                                                          let parts = split_51C(promo2Map, address)
328 364                                                          let oldAmount = parseIntValue(take(drop(parts[1], 1), 14))
329 365                                                          ((((parts[0] + address) + ":") + padL((oldAmount + amt), 14)) + drop(parts[1], 15))
330 366                                                          }
331 367                                                      else {
332 368                                                          let finalPart = ((address + ":") + padL(amt, 14))
333 369                                                          if ((promo2Map == ""))
334 370                                                              then finalPart
335 371                                                              else ((promo2Map + "_") + finalPart)
336 372                                                          }
337 373                                                  $Tuple2([StringEntry(promo2MapKey, newMap2)], $Tuple3(prologResult, wlgResult, stakeResult))
338 374                                                  }
339 375                                      }
340 376                                  else throw("Strict value is not equal to itself.")
341 377                              }
342 378                      }
343 379              }
344 380          else throw("Strict value is not equal to itself.")
345 381      }
346 382  
347 383  
348 384  
349 385  @Callable(i)
350 386  func buyAcres () = {
351 387      let prologResult = prolog()
352 388      if ((prologResult == prologResult))
353 389          then {
354 390              let address = toString(i.caller)
355 391              if ((size(i.payments) != 1))
356 392                  then throw("exactly 1 payment must be attached")
357 393                  else {
358 394                      let pmt = i.payments[0]
359 395                      let amt = pmt.amount
360 396                      if (if (!(isDefined(pmt.assetId)))
361 397                          then true
362 398                          else (value(pmt.assetId) != usdtAssetId))
363 399                          then throw("USDT payments only!")
364 400                          else if ((MULT6 > amt))
365 401                              then throw((("Min payment should be " + fixedPoint(MULT6, 6)) + " USDT"))
366 402                              else {
367 403                                  let acresAmount = (amt * USDT2ACRES_MULTIPLIER)
368 404                                  let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [address, fraction(xpNewSLand, acresAmount, (25 * MULT8))], nil))
369 405                                  $Tuple2([ScriptTransfer(economyContract, amt, usdtAssetId), ScriptTransfer(i.caller, acresAmount, acresAssetId)], $Tuple2(prologResult, accStatsResult))
370 406                                  }
371 407                      }
372 408              }
373 409          else throw("Strict value is not equal to itself.")
374 410      }
375 411  
376 412  
377 413  
378 414  @Callable(i)
379 415  func sendAcres (addr,amount) = if ((i.caller != economyContract))
380 416      then throw("Permission denied")
381 417      else $Tuple2([ScriptTransfer(addressFromStringValue(addr), amount, acresAssetId)], amount)
382 418  
383 419  
384 420  
385 421  @Callable(i)
386 422  func sendLockedAcres (addr,amount,lockDays) = if (if ((i.caller != this))
387 423      then (i.caller != restContract)
388 424      else false)
389 425      then throw("Permission denied")
390 426      else {
391 427          let now = lastBlock.timestamp
392 428          let timeKey = keyAcresStakedTimeByUser(addr)
393 429          let amountKey = keyAcresStakedAmountByUser(addr)
394 430          let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
395 431          let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
396 -         let oldTime = valueOrElse(getInteger(timeKey), now)
432 +         let timeAction = if (isDefined(getInteger(timeKey)))
433 +             then nil
434 +             else [IntegerEntry(timeKey, now)]
397 435          let etaKey = keyAcresLockedEtaByUser(addr)
398 436          let lockedAmountKey = keyAcresLockedAmountByUser(addr)
399 437          let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
400 438          let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
401 439          let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
402 -         $Tuple2([IntegerEntry(timeKey, oldTime), IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
440 +         $Tuple2(((((timeAction :+ IntegerEntry(amountKey, (oldAcresAmount + amount))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amount))) :+ IntegerEntry(etaKey, mergedETA)) :+ IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))), amount)
403 441          }
404 442  
405 443  
406 444  
407 445  @Callable(i)
408 446  func burnAcres (amount) = if ((i.caller != stakingContract))
409 447      then throw("Permission denied")
410 448      else {
411 449          let amountLeft = (valueOrElse(getInteger(acresIssuedAmountKey), 0) - amount)
412 450          if ((0 > amountLeft))
413 451              then throw("Attempt to burn more ACRES, than exists")
414 452              else $Tuple2([Burn(acresAssetId, amount), IntegerEntry(acresIssuedAmountKey, amountLeft)], amount)
415 453          }
416 454  
417 455  
418 456  
419 457  @Callable(i)
420 458  func claimAcres () = {
421 459      let prologResult = prolog()
422 460      if ((prologResult == prologResult))
423 461          then {
424 462              let address = toString(i.caller)
425 463              if ((size(i.payments) != 0))
426 464                  then throw("No payments required")
427 465                  else {
428 466                      let timeKey = keyAcresStakedTimeByUser(address)
429 467                      let amountKey = keyAcresStakedAmountByUser(address)
430 468                      let acresAmount = valueOrElse(getInteger(amountKey), 0)
431 469                      let wlgResult = invoke(wlgContract, "onStakeUnstakeLand", [address], nil)
432 470                      let claimedAcres = claimInternal(address, acresAmount, valueOrElse(getInteger(timeKey), 0))
433 471                      $Tuple2([IntegerEntry(timeKey, lastBlock.timestamp), ScriptTransfer(i.caller, claimedAcres, acresAssetId)], $Tuple2(prologResult, wlgResult))
434 472                      }
435 473              }
436 474          else throw("Strict value is not equal to itself.")
437 475      }
438 476  
439 477  
440 478  
441 479  @Callable(i)
442 480  func claimAcresREADONLY (address) = {
443 481      let timeKey = keyAcresStakedTimeByUser(address)
444 482      let amountKey = keyAcresStakedAmountByUser(address)
445 483      let acresAmount = valueOrElse(getInteger(amountKey), 0)
446 484      let lastTime = valueOrElse(getInteger(timeKey), 0)
447 485      let claimedAcres = claimAcresInternal(address, acresAmount, lastTime)
448 486      $Tuple2(nil, [claimedAcres, lastTime])
449 487      }
450 488  
451 489  
490 + 
491 + @Callable(i)
492 + func claimPromo2 () = {
493 +     let prologResult = prolog()
494 +     if ((prologResult == prologResult))
495 +         then {
496 +             let address = toString(i.caller)
497 +             if ((size(i.payments) != 0))
498 +                 then throw("No payments required")
499 +                 else {
500 +                     let now = lastBlock.timestamp
501 +                     if ((PROMO_2_END_TIMESTAMP > now))
502 +                         then throw("Promo 2 is not over yet")
503 +                         else {
504 +                             let awardedKey = keyIsAwardedByPromoAndUser(2, address)
505 +                             if (valueOrElse(getBoolean(awardedKey), false))
506 +                                 then throw((("Your wallet " + address) + " is already awarded in promo 2"))
507 +                                 else {
508 +                                     let promo2Map = valueOrElse(getString(promo2MapKey), "")
509 +                                     if (!(contains(promo2Map, address)))
510 +                                         then throw("You are not participant of promo 2")
511 +                                         else {
512 +                                             let parts = split_51C(promo2Map, address)
513 +                                             let acresAmount = parseIntValue(take(drop(parts[1], 1), 14))
514 +                                             let tickets = (acresAmount / MIN_ACRES_AMOUNT_DURING_PROMO)
515 +                                             let totalTikets = valueOrElse(getInteger(keyTicketsTotalByPromo(2)), 0)
516 +                                             let $t01238112821 = if ((totalTikets == 0))
517 +                                                 then {
518 +                                                     func countTickets (acc,el) =                                                     (acc + (parseIntValue(split(el, ":")[1]) / MIN_ACRES_AMOUNT_DURING_PROMO))
519 + 
520 +                                                     let ticketsCount = {
521 +                                                         let $l = split_51C(promo2Map, "_")
522 +                                                         let $s = size($l)
523 +                                                         let $acc0 = 0
524 +                                                         func $f0_1 ($a,$i) =                                                         if (($i >= $s))
525 +                                                             then $a
526 +                                                             else countTickets($a, $l[$i])
527 + 
528 +                                                         func $f0_2 ($a,$i) =                                                         if (($i >= $s))
529 +                                                             then $a
530 +                                                             else throw("List size exceeds 50")
531 + 
532 +                                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
533 +                                                         }
534 +                                                     $Tuple2([IntegerEntry(keyTicketsTotalByPromo(2), ticketsCount), IntegerEntry(keyTicketsTotalByPromoAndRound(2, 1), ticketsCount)], ticketsCount)
535 +                                                     }
536 +                                                 else $Tuple2(nil, totalTikets)
537 +                                             let ticketsActions = $t01238112821._1
538 +                                             let totalCount = $t01238112821._2
539 +                                             let award = fraction(PROMO_2_DISTRIBUTION_FUND, tickets, totalCount)
540 +                                             let stakeResult = invoke(this, "sendLockedAcres", [address, award, 30], nil)
541 +                                             $Tuple2(((ticketsActions :+ BooleanEntry(awardedKey, true)) :+ StringEntry(keyPromo2MapForRound(1), promo2Map)), stakeResult)
542 +                                             }
543 +                                     }
544 +                             }
545 +                     }
546 +             }
547 +         else throw("Strict value is not equal to itself.")
548 +     }
549 + 
550 + 
551 + 
552 + @Callable(i)
553 + func commitForPromo2Round (roundId) = if ((i.caller != this))
554 +     then throw("Permission denied")
555 +     else if (if ((1 > roundId))
556 +         then true
557 +         else (roundId > 4))
558 +         then throw(("Invalid roundId: " + toString(roundId)))
559 +         else {
560 +             let finishBlock = (height + randomDelay)
561 +             $Tuple2([IntegerEntry(keyCommit(("2_" + toString(roundId))), finishBlock)], finishBlock)
562 +             }
563 + 
564 + 
565 + 
566 + @Callable(i)
567 + func drawPromo2Round (roundId) = if ((i.caller != this))
568 +     then throw("Permission denied")
569 +     else if (if ((1 > roundId))
570 +         then true
571 +         else (roundId > 4))
572 +         then throw(("Invalid roundId: " + toString(roundId)))
573 +         else {
574 +             let finishKey = keyCommit(("2_" + toString(roundId)))
575 +             let finishBlock = valueOrErrorMessage(getInteger(finishKey), (("You have to commitForPromo2Round(" + toString(roundId)) + ") first!"))
576 +             if ((finishBlock > height))
577 +                 then throw((((("Random number is not ready yet, wait until height = " + toString(finishBlock)) + " (current height = ") + toString(height)) + ")"))
578 +                 else {
579 +                     let maxValue = valueOrElse(getInteger(keyTicketsTotalByPromoAndRound(2, roundId)), 0)
580 +                     if ((maxValue == 0))
581 +                         then throw("No tickets to draw (was claimPromo2() called at least once?)")
582 +                         else {
583 +                             let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
584 +                             let salt = i.transactionId
585 +                             let promo2Map = valueOrElse(getString(keyPromo2MapForRound(roundId)), "")
586 +                             func singleDraw (ac,j) =                             if ((j >= promo2NumPrizesPerRound[(roundId - 1)]))
587 +                                 then ac
588 +                                 else {
589 +                                     let rand = getRandomNumber(ac._1, ac._2, entropy)
590 +                                     let promo2List = if ((ac._3 == ""))
591 +                                         then nil
592 +                                         else split_51C(ac._3, "_")
593 +                                     func countTickets (acc,el) =                                     {
594 +                                         let parts = split(el, ":")
595 +                                         let addr = parts[0]
596 +                                         let tickets = (parseIntValue(parts[1]) / MIN_ACRES_AMOUNT_DURING_PROMO)
597 +                                         let newTotal = (acc._1 + tickets)
598 +                                         if (if ((acc._3 == ""))
599 +                                             then (newTotal > rand)
600 +                                             else false)
601 +                                             then $Tuple3(newTotal, tickets, addr)
602 +                                             else $Tuple3(newTotal, acc._2, acc._3)
603 +                                         }
604 + 
605 +                                     let r = {
606 +                                         let $l = promo2List
607 +                                         let $s = size($l)
608 +                                         let $acc0 = $Tuple3(0, 0, "")
609 +                                         func $f0_1 ($a,$i) =                                         if (($i >= $s))
610 +                                             then $a
611 +                                             else countTickets($a, $l[$i])
612 + 
613 +                                         func $f0_2 ($a,$i) =                                         if (($i >= $s))
614 +                                             then $a
615 +                                             else throw("List size exceeds 50")
616 + 
617 +                                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
618 +                                         }
619 +                                     let winner = r._3
620 +                                     if ((winner == ""))
621 +                                         then ac
622 +                                         else {
623 +                                             let mapParts = split_51C(ac._3, winner)
624 +                                             let newMap = if ((mapParts[0] == ""))
625 +                                                 then drop(mapParts[1], 16)
626 +                                                 else (dropRight(mapParts[0], 1) + drop(mapParts[1], 15))
627 +                                             let stakeResult = invoke(this, "sendLockedAcres", [winner, promo2AwardPerRound[(roundId - 1)], 30], nil)
628 +                                             $Tuple4((ac._1 - r._2), fromBase58String(getStringValue(stakingContract, keyLastTxIdByUser(winner))), newMap, (ac._4 :+ stakeResult))
629 +                                             }
630 +                                     }
631 + 
632 +                             let draws = {
633 +                                 let $l = ITER20
634 +                                 let $s = size($l)
635 +                                 let $acc0 = $Tuple4(maxValue, i.transactionId, promo2Map, nil)
636 +                                 func $f0_1 ($a,$i) =                                 if (($i >= $s))
637 +                                     then $a
638 +                                     else singleDraw($a, $l[$i])
639 + 
640 +                                 func $f0_2 ($a,$i) =                                 if (($i >= $s))
641 +                                     then $a
642 +                                     else throw("List size exceeds 20")
643 + 
644 +                                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
645 +                                 }
646 +                             $Tuple2([DeleteEntry(finishKey), StringEntry(keyPromo2MapForRound((roundId + 1)), draws._3), IntegerEntry(keyTicketsTotalByPromoAndRound(2, (roundId + 1)), draws._1)], draws._4)
647 +                             }
648 +                     }
649 +             }
650 + 
651 +

Old	New		Differences
22	22
23	23		let USDT2ACRES_MULTIPLIER = 10
24	24
	25	+	func keyIsAwardedByPromoAndUser (promoId,addr) = makeString(["%s%d%s__isAwardedByPromoAndUser", toString(promoId), addr], "__")
	26	+
	27	+
	28	+	func keyTicketsTotalByPromo (promoId) = ("%s%d__ticketsTotalByPromo__" + toString(promoId))
	29	+
	30	+
	31	+	func keyTicketsTotalByPromoAndRound (promoId,roundId) = makeString(["%s%d%d__ticketsTotalByPromoAndRound", toString(promoId), toString(roundId)], "__")
	32	+
	33	+
25	34		let chain = take(drop(this.bytes, 1), 1)
26	35
27	36		let usdtAssetId = match chain {

44	53
45	54		let promo2MapKey = "promo2Map"
46	55
	56	+	func keyPromo2MapForRound (roundId) = ("promo2MapForRound__" + toString(roundId))
	57	+
	58	+
47	59		let SEP = "__"
48	60
49	61		let MULT6 = 1000000
50	62
51	63		let MULT8 = 100000000
	64	+
	65	+	let ITER20 = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
52	66
53	67		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
54	68

96	110
97	111		let IdxEffTotal = 0
98	112
	113	+	let randomDelay = 2
	114	+
	115	+	func keyCommit (address) = ("finishBlockFor_" + address)
	116	+
	117	+
99	118		func keyResProportions () = "resTypesProportions"
100	119
101	120

116	135		case _ =>
117	136		throw("fail to cast into (Int, Int)")
118	137		}
	138	+
	139	+
	140	+	func keyLastTxIdByUser (addr) = ("lastTxIdByUser_" + addr)
119	141
120	142
121	143		func getVotingPower (userAddrStrOrEmpty) = {

156	178		}
157	179
158	180
	181	+	func getRandomNumber (maxValue,salt,entropy) = if ((0 >= maxValue))
	182	+	then throw("maxValue should be > 0")
	183	+	else {
	184	+	let randomHash = sha256((salt + entropy))
	185	+	(toInt(randomHash) % maxValue)
	186	+	}
	187	+
	188	+
159	189		let MIN_ACRES_AMOUNT_DURING_PROMO = 10000000
160	190
161	191		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"

179	209		then 1700496000000
180	210		else throw("Unknown chain")
181	211		}
	212	+
	213	+	let PROMO_2_DISTRIBUTION_FUND = 1000000000
	214	+
	215	+	let promo2NumPrizesPerRound = [1, 3, 5, 20]
	216	+
	217	+	let promo2AwardPerRound = [500000000, 200000000, 100000000, 20000000]
182	218
183	219		func isBlacklistedPromo1 (addr) = contains(BLACKLISTED1, addr)
184	220

393	429		let amountKey = keyAcresStakedAmountByUser(addr)
394	430		let oldAcresAmount = valueOrElse(getInteger(amountKey), 0)
395	431		let oldTotal = valueOrElse(getInteger(acresStakedTotalKey), 0)
396		-	let oldTime = valueOrElse(getInteger(timeKey), now)
	432	+	let timeAction = if (isDefined(getInteger(timeKey)))
	433	+	then nil
	434	+	else [IntegerEntry(timeKey, now)]
397	435		let etaKey = keyAcresLockedEtaByUser(addr)
398	436		let lockedAmountKey = keyAcresLockedAmountByUser(addr)
399	437		let oldLockedAmount = valueOrElse(getInteger(lockedAmountKey), 0)
400	438		let oldLockedETA = valueOrElse(getInteger(etaKey), 0)
401	439		let mergedETA = mergeLocked(oldLockedAmount, oldLockedETA, amount, (now + (lockDays * DAYMILLIS)))
402		-	$Tuple2(~~[IntegerEntry~~(~~timeKey, oldTime),~~ IntegerEntry(amountKey, (oldAcresAmount + amount)), IntegerEntry(acresStakedTotalKey, (oldTotal + amount)), IntegerEntry(etaKey, mergedETA), IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))], amount)
	440	+	$Tuple2(((((timeAction :+ IntegerEntry(amountKey, (oldAcresAmount + amount))) :+ IntegerEntry(acresStakedTotalKey, (oldTotal + amount))) :+ IntegerEntry(etaKey, mergedETA)) :+ IntegerEntry(lockedAmountKey, (oldLockedAmount + amount))), amount)
403	441		}
404	442
405	443

449	487		}
450	488
451	489
	490	+
	491	+	@Callable(i)
	492	+	func claimPromo2 () = {
	493	+	let prologResult = prolog()
	494	+	if ((prologResult == prologResult))
	495	+	then {
	496	+	let address = toString(i.caller)
	497	+	if ((size(i.payments) != 0))
	498	+	then throw("No payments required")
	499	+	else {
	500	+	let now = lastBlock.timestamp
	501	+	if ((PROMO_2_END_TIMESTAMP > now))
	502	+	then throw("Promo 2 is not over yet")
	503	+	else {
	504	+	let awardedKey = keyIsAwardedByPromoAndUser(2, address)
	505	+	if (valueOrElse(getBoolean(awardedKey), false))
	506	+	then throw((("Your wallet " + address) + " is already awarded in promo 2"))
	507	+	else {
	508	+	let promo2Map = valueOrElse(getString(promo2MapKey), "")
	509	+	if (!(contains(promo2Map, address)))
	510	+	then throw("You are not participant of promo 2")
	511	+	else {
	512	+	let parts = split_51C(promo2Map, address)
	513	+	let acresAmount = parseIntValue(take(drop(parts[1], 1), 14))
	514	+	let tickets = (acresAmount / MIN_ACRES_AMOUNT_DURING_PROMO)
	515	+	let totalTikets = valueOrElse(getInteger(keyTicketsTotalByPromo(2)), 0)
	516	+	let $t01238112821 = if ((totalTikets == 0))
	517	+	then {
	518	+	func countTickets (acc,el) = (acc + (parseIntValue(split(el, ":")[1]) / MIN_ACRES_AMOUNT_DURING_PROMO))
	519	+
	520	+	let ticketsCount = {
	521	+	let $l = split_51C(promo2Map, "_")
	522	+	let $s = size($l)
	523	+	let $acc0 = 0
	524	+	func $f0_1 ($a,$i) = if (($i >= $s))
	525	+	then $a
	526	+	else countTickets($a, $l[$i])
	527	+
	528	+	func $f0_2 ($a,$i) = if (($i >= $s))
	529	+	then $a
	530	+	else throw("List size exceeds 50")
	531	+
	532	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
	533	+	}
	534	+	$Tuple2([IntegerEntry(keyTicketsTotalByPromo(2), ticketsCount), IntegerEntry(keyTicketsTotalByPromoAndRound(2, 1), ticketsCount)], ticketsCount)
	535	+	}
	536	+	else $Tuple2(nil, totalTikets)
	537	+	let ticketsActions = $t01238112821._1
	538	+	let totalCount = $t01238112821._2
	539	+	let award = fraction(PROMO_2_DISTRIBUTION_FUND, tickets, totalCount)
	540	+	let stakeResult = invoke(this, "sendLockedAcres", [address, award, 30], nil)
	541	+	$Tuple2(((ticketsActions :+ BooleanEntry(awardedKey, true)) :+ StringEntry(keyPromo2MapForRound(1), promo2Map)), stakeResult)
	542	+	}
	543	+	}
	544	+	}
	545	+	}
	546	+	}
	547	+	else throw("Strict value is not equal to itself.")
	548	+	}
	549	+
	550	+
	551	+
	552	+	@Callable(i)
	553	+	func commitForPromo2Round (roundId) = if ((i.caller != this))
	554	+	then throw("Permission denied")
	555	+	else if (if ((1 > roundId))
	556	+	then true
	557	+	else (roundId > 4))
	558	+	then throw(("Invalid roundId: " + toString(roundId)))
	559	+	else {
	560	+	let finishBlock = (height + randomDelay)
	561	+	$Tuple2([IntegerEntry(keyCommit(("2_" + toString(roundId))), finishBlock)], finishBlock)
	562	+	}
	563	+
	564	+
	565	+
	566	+	@Callable(i)
	567	+	func drawPromo2Round (roundId) = if ((i.caller != this))
	568	+	then throw("Permission denied")
	569	+	else if (if ((1 > roundId))
	570	+	then true
	571	+	else (roundId > 4))
	572	+	then throw(("Invalid roundId: " + toString(roundId)))
	573	+	else {
	574	+	let finishKey = keyCommit(("2_" + toString(roundId)))
	575	+	let finishBlock = valueOrErrorMessage(getInteger(finishKey), (("You have to commitForPromo2Round(" + toString(roundId)) + ") first!"))
	576	+	if ((finishBlock > height))
	577	+	then throw((((("Random number is not ready yet, wait until height = " + toString(finishBlock)) + " (current height = ") + toString(height)) + ")"))
	578	+	else {
	579	+	let maxValue = valueOrElse(getInteger(keyTicketsTotalByPromoAndRound(2, roundId)), 0)
	580	+	if ((maxValue == 0))
	581	+	then throw("No tickets to draw (was claimPromo2() called at least once?)")
	582	+	else {
	583	+	let entropy = value(value(blockInfoByHeight(finishBlock)).vrf)
	584	+	let salt = i.transactionId
	585	+	let promo2Map = valueOrElse(getString(keyPromo2MapForRound(roundId)), "")
	586	+	func singleDraw (ac,j) = if ((j >= promo2NumPrizesPerRound[(roundId - 1)]))
	587	+	then ac
	588	+	else {
	589	+	let rand = getRandomNumber(ac._1, ac._2, entropy)
	590	+	let promo2List = if ((ac._3 == ""))
	591	+	then nil
	592	+	else split_51C(ac._3, "_")
	593	+	func countTickets (acc,el) = {
	594	+	let parts = split(el, ":")
	595	+	let addr = parts[0]
	596	+	let tickets = (parseIntValue(parts[1]) / MIN_ACRES_AMOUNT_DURING_PROMO)
	597	+	let newTotal = (acc._1 + tickets)
	598	+	if (if ((acc._3 == ""))
	599	+	then (newTotal > rand)
	600	+	else false)
	601	+	then $Tuple3(newTotal, tickets, addr)
	602	+	else $Tuple3(newTotal, acc._2, acc._3)
	603	+	}
	604	+
	605	+	let r = {
	606	+	let $l = promo2List
	607	+	let $s = size($l)
	608	+	let $acc0 = $Tuple3(0, 0, "")
	609	+	func $f0_1 ($a,$i) = if (($i >= $s))
	610	+	then $a
	611	+	else countTickets($a, $l[$i])
	612	+
	613	+	func $f0_2 ($a,$i) = if (($i >= $s))
	614	+	then $a
	615	+	else throw("List size exceeds 50")
	616	+
	617	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
	618	+	}
	619	+	let winner = r._3
	620	+	if ((winner == ""))
	621	+	then ac
	622	+	else {
	623	+	let mapParts = split_51C(ac._3, winner)
	624	+	let newMap = if ((mapParts[0] == ""))
	625	+	then drop(mapParts[1], 16)
	626	+	else (dropRight(mapParts[0], 1) + drop(mapParts[1], 15))
	627	+	let stakeResult = invoke(this, "sendLockedAcres", [winner, promo2AwardPerRound[(roundId - 1)], 30], nil)
	628	+	$Tuple4((ac._1 - r._2), fromBase58String(getStringValue(stakingContract, keyLastTxIdByUser(winner))), newMap, (ac._4 :+ stakeResult))
	629	+	}
	630	+	}
	631	+
	632	+	let draws = {
	633	+	let $l = ITER20
	634	+	let $s = size($l)
	635	+	let $acc0 = $Tuple4(maxValue, i.transactionId, promo2Map, nil)
	636	+	func $f0_1 ($a,$i) = if (($i >= $s))
	637	+	then $a
	638	+	else singleDraw($a, $l[$i])
	639	+
	640	+	func $f0_2 ($a,$i) = if (($i >= $s))
	641	+	then $a
	642	+	else throw("List size exceeds 20")
	643	+
	644	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
	645	+	}
	646	+	$Tuple2([DeleteEntry(finishKey), StringEntry(keyPromo2MapForRound((roundId + 1)), draws._3), IntegerEntry(keyTicketsTotalByPromoAndRound(2, (roundId + 1)), draws._1)], draws._4)
	647	+	}
	648	+	}
	649	+	}
	650	+
	651	+

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

github/deemru/w8io/3ef1775 
60.37 ms ◑