w8 · tx · 2n2···j7Z

tx · 2n2W1esMCudU9czcvYterovpXA7NP4RjDPP8pxrJgj7Z

3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg:  -0.02000000 Waves

2023.12.17 19:52 [2890971] smart account 3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2n2W1esMCudU9czcvYterovpXA7NP4RjDPP8pxrJgj7Z",
    "fee": 2000000,
    "feeAssetId": null,
    "timestamp": 1702831992983,
    "version": 2,
    "chainId": 84,
    "sender": "3N7dQeENwSgKPp9Ki4aEHhRWWKVjn1DE9Qg",
    "senderPublicKey": "5BN6FQeKuMm2XJYToUZvbBX4UELGpE3Z47P4q6sP46PG",
    "proofs": [
        "2QGip2pUkWo2qgE3UEH1dRZ4gPsdPfsTY1jrRr5vGfqF755UVSR6jgtKzSgBdyRpKeCEeStoPTz9jXpb13mCY7F2"
    ],
    "script": "base64:BgI7CAISBAoCCAESAwoBARIAEgASBAoCCAESBQoDCAEBEgMKAQESABIDCgEIEgASAwoBCBIDCgEBEgMKAQFCAAhNSUxMSU9ONgCAgOmDsd4WAAlEQVlNSUxMSVMAgLiZKQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcl8FBGFkZHIBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQRhZGRyCQCsAgICFWFjcmVzTG9ja2VkRXRhQnlVc2VyXwUEYWRkcgATYWNyZXNTdGFrZWRUb3RhbEtleQIWYWNyZXNTdGFrZWRBbW91bnRUb3RhbAAKeHBOZXdTTGFuZADAlrECAA9EQUlMWVJFU0JZUElFQ0UAgPjSAQAVVVNEVDJBQ1JFU19NVUxUSVBMSUVSAAoBGmtleUlzQXdhcmRlZEJ5UHJvbW9BbmRVc2VyAgdwcm9tb0lkBGFkZHIJALkJAgkAzAgCAh8lcyVkJXNfX2lzQXdhcmRlZEJ5UHJvbW9BbmRVc2VyCQDMCAIJAKQDAQUHcHJvbW9JZAkAzAgCBQRhZGRyBQNuaWwCAl9fARZrZXlUaWNrZXRzVG90YWxCeVByb21vAQdwcm9tb0lkCQCsAgICGyVzJWRfX3RpY2tldHNUb3RhbEJ5UHJvbW9fXwkApAMBBQdwcm9tb0lkAR5rZXlUaWNrZXRzVG90YWxCeVByb21vQW5kUm91bmQCB3Byb21vSWQHcm91bmRJZAkAuQkCCQDMCAICIyVzJWQlZF9fdGlja2V0c1RvdGFsQnlQcm9tb0FuZFJvdW5kCQDMCAIJAKQDAQUHcHJvbW9JZAkAzAgCCQCkAwEFB3JvdW5kSWQFA25pbAICX18ABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACIzNQUUN1dkZidmg0TGtQVW5yblUxejNqbmJBMXA5bTNXTmh2AwkAAAIBAVQFByRtYXRjaDACIzNNdW1rR0d6dENLQVhwV0RxeGtkZG9mcVhTVWJxUWt2U0p5CQACAQINVW5rbm93biBjaGFpbgAMcHJvbW8yTWFwS2V5Aglwcm9tbzJNYXABFGtleVByb21vMk1hcEZvclJvdW5kAQdyb3VuZElkCQCsAgICE3Byb21vMk1hcEZvclJvdW5kX18JAKQDAQUHcm91bmRJZAEUa2V5UHJvbW8zTWFwRm9yUm91bmQBB3JvdW5kSWQJAKwCAgITcHJvbW8zTWFwRm9yUm91bmRfXwkApAMBBQdyb3VuZElkAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ABUlURVI2CQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwBD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAABFJZHhDZmdTdGFraW5nRGFwcAABABFJZHhDZmdFY29ub215RGFwcAACAA1JZHhDZmdXbGdEYXBwAAQAD0lkeENmZ0FjcmVzRGFwcAAIAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwAA1hY3Jlc0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUPSWR4Q2ZnQWNyZXNEYXBwABRhY3Jlc0lzc3VlZEFtb3VudEtleQIRYWNyZXNJc3N1ZWRBbW91bnQAD2FjcmVzQXNzZXRJZEtleQIMYWNyZXNBc3NldElkAAxhY3Jlc0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQ1hY3Jlc0NvbnRyYWN0BQ9hY3Jlc0Fzc2V0SWRLZXkCF0FDUkVTIGlzIG5vdCBpc3N1ZWQgeWV0ARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIWYWNyZXNTdGFrZWRUaW1lQnlVc2VyXwUEYWRkcgALSWR4RWZmVG90YWwAAAALcmFuZG9tRGVsYXkAAgEJa2V5Q29tbWl0AQdhZGRyZXNzCQCsAgICD2ZpbmlzaEJsb2NrRm9yXwUHYWRkcmVzcwERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQlvd25lckFkZHIJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FCW93bmVyQWRkcgEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ5hc1R3b0ludHNUdXBsZQEDdmFsBAckbWF0Y2gwBQN2YWwDCQABAgUHJG1hdGNoMAIKKEludCwgSW50KQQCdDIFByRtYXRjaDAFAnQyCQACAQIcZmFpbCB0byBjYXN0IGludG8gKEludCwgSW50KQERa2V5TGFzdFR4SWRCeVVzZXIBBGFkZHIJAKwCAgIPbGFzdFR4SWRCeVVzZXJfBQRhZGRyAQ5nZXRWb3RpbmdQb3dlcgESdXNlckFkZHJTdHJPckVtcHR5BAVwcm9wcwkAtQkCCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBEWtleVJlc1Byb3BvcnRpb25zAAILMF8wXzBfMF8wXzACAV8KAQVhZGRlcgIDYWNjBGl0ZW0JAGQCBQNhY2MJAQ1wYXJzZUludFZhbHVlAQUEaXRlbQQKdG90YWxQb3dlcgoAAiRsBQVwcm9wcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWRkZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYECnVzZXJzUG93ZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEFEnVzZXJBZGRyU3RyT3JFbXB0eQAACQDMCAIFCnRvdGFsUG93ZXIJAMwIAgUKdXNlcnNQb3dlcgUDbmlsAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAEEcGFkTAIDdmFsA2xlbgQEdmFsUwkApAMBBQN2YWwEBnplcm9lcwkAsAICCQCkAwEJAGwGAAoAAAkAZQIFA2xlbgkAsQIBBQR2YWxTAAAAAAUERE9XTgABCQCsAgIFBnplcm9lcwUEdmFsUwEPZ2V0UmFuZG9tTnVtYmVyAwhtYXhWYWx1ZQRzYWx0B2VudHJvcHkDCQBnAgAABQhtYXhWYWx1ZQkAAgECFm1heFZhbHVlIHNob3VsZCBiZSA+IDAECnJhbmRvbUhhc2gJAPcDAQkAywECBQRzYWx0BQdlbnRyb3B5CQBqAgkAsQkBBQpyYW5kb21IYXNoBQhtYXhWYWx1ZQAdTUlOX0FDUkVTX0FNT1VOVF9EVVJJTkdfUFJPTU8AgK3iBAAMQkxBQ0tMSVNURUQxAt8GM1AyTkdYNFE1bmdlMU1DYXV3UVc1YXFZTGRrY2NTR2oxRXBfM1AyeEZBSFc5eWh5Tm9oWW96V2Q0SEZoRVhadTNic05Tb1JfM1AyeUthWjJndm45WGU1dHRpODFhN1A5TFpoSGdqdlRvVjlfM1AzN3pRM2NmMmVjdTU1Um1KcUVpR1NpdmR6TjlhdnQzbTlfM1A0YXo2ZHR6c3ZHQ1dGQXhhOTRVZGV2S3pYeUV3eEVpRkdfM1A0a1pVNlgzVFRMRmNTVWU1NUpTeThCeVNxaXRjUGdNQnpfM1A1aEN4QkVoM05nTml6WmhOQnJleUJTcXRiaEpZTGtLUERfM1A3SEx2dWN5MTF5eHlNSlV3anpYRkhIS01FRHdpMUV3ZkNfM1A4SnVhcUg5UFRRQXY4RDVIQkdnUWZLYXVMVFl0Mk5RZnRfM1A5Z1REQjRydERFVmJwWDNhc1U2M0g0WmluaDJFblRtWkVfM1A5aU4zcXJ0ZkppY1VWeTdhbVplVnNldFZEM3ZVTWs4YmVfM1BDYTJCc0FhNkpCTGlyc3pRZlY1cjlmSnJ1amZod3R3ZlBfM1BEM2k0WE44S3R5Z2NGeDRyeTVNN1VHcWRmSDhWWXZ0UlRfM1BERU1ubkpOYzJreDljUEVtdlZ2aFhVcjhTdmhBTktoc2FfM1BER0U5dEtRaXphZVpGZUREcTVhWVN2ODlud1liZmlycFpfM1BETUtRVENyVVBaRUNWWEVKSjhtMXNIdHV0U3UxbmFTZjFfM1BHaDJRdTZZdng4R1RDUlJWTnZCVVZaTGRhaWRZU2F4bzVfM1BLa21BdGJTSzVEMmhRZG8xUmZFZzhlWHlNYkRjUlVjOTJfM1BMTW5ieHpzc1A4VzhFOFhqSjFSTEJCZzhVWkw4Q3ozUDJfM1BNdXhvNFBDQW94OXM0YTdSMWVzemg0aXFxdThnUzdqSHZfM1BOck10RVFDaHc4N1daVTFKQUo3YUdIeWtDYThUam5ETktfM1BQdUJYZldvQnkzRUVvcnk3Yzd2Z2k5VXNqa2E3bzV0QmpfM1BRd3lleUVoVDRZNmFHQUw2dGc3M2FRV0p0VjF6UnQzblJfM1BSR0RTaHVNR2I4NE1KdFRKdnRUZzhxRGZzd2tZV2NtM2UADVBST01PMV9BTU9VTlQAwq2vAgAXUFJPTU9fMl9TVEFSVF9USU1FU1RBTVAEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDAAgPC0+b4xAwkAAAIBAVQFByRtYXRjaDAAgOfQx74xCQACAQINVW5rbm93biBjaGFpbgAVUFJPTU9fMl9FTkRfVElNRVNUQU1QBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAP+/zfDAMQMJAAACAQFUBQckbWF0Y2gwAICI1+u+MQkAAgECDVVua25vd24gY2hhaW4AGVBST01PXzJfRElTVFJJQlVUSU9OX0ZVTkQAgJTr3AMAF3Byb21vM051bVByaXplc1BlclJvdW5kCQDMCAIAAQkAzAgCAAUFA25pbAATcHJvbW8zQXdhcmRQZXJSb3VuZAkAzAgCAIDKte4BCQDMCAIAgMLXLwUDbmlsARNpc0JsYWNrbGlzdGVkUHJvbW8xAQRhZGRyCQEIY29udGFpbnMCBQxCTEFDS0xJU1RFRDEFBGFkZHIBBnByb2xvZwAJAQVhc0ludAEJAP0HBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAESY2xhaW1BY3Jlc0ludGVybmFsAwRhZGRyC2FjcmVzQW1vdW50DWxhc3RDbGFpbVRpbWUECWRlbHRhVGltZQkAZQIIBQlsYXN0QmxvY2sJdGltZXN0YW1wBQ1sYXN0Q2xhaW1UaW1lBAhhdmFpbFJlcwkAawMFCWRlbHRhVGltZQkAaAIFD0RBSUxZUkVTQllQSUVDRQULYWNyZXNBbW91bnQJAGgCBQlEQVlNSUxMSVMFBU1VTFQ4BApjYW5HZXRVc2R0CQEFYXNJbnQBCQD8BwQFD2Vjb25vbXlDb250cmFjdAIac2VsbFJlc291cmNlc1dvcmxkUkVBRE9OTFkJAMwIAgUIYXZhaWxSZXMFA25pbAUDbmlsBAdnb3RVc2R0CQCWAwEJAMwIAgAACQDMCAIFCmNhbkdldFVzZHQFA25pbAkAaAIFB2dvdFVzZHQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgENY2xhaW1JbnRlcm5hbAMEYWRkcgthY3Jlc0Ftb3VudA1sYXN0Q2xhaW1UaW1lBAlkZWx0YVRpbWUJAGUCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUNbGFzdENsYWltVGltZQMJAGYCAAAFCWRlbHRhVGltZQkAAgEJAKwCAgkArAICCQCsAgICJlNhdmVkIHRpbWVzdGFtcCBpcyBpbiBmdXR1cmUsIHNhdmVkID0gCQCkAwEFDWxhc3RDbGFpbVRpbWUCDCwgY3VycmVudCA9IAkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQIYXZhaWxSZXMJAGsDBQlkZWx0YVRpbWUJAGgCBQ9EQUlMWVJFU0JZUElFQ0UFC2FjcmVzQW1vdW50CQBoAgUJREFZTUlMTElTBQVNVUxUOAQKY2FuR2V0VXNkdAkBBWFzSW50AQkA/AcEBQ9lY29ub215Q29udHJhY3QCGnNlbGxSZXNvdXJjZXNXb3JsZFJFQURPTkxZCQDMCAIFCGF2YWlsUmVzBQNuaWwFA25pbAQHZ290VXNkdAMJAGcCAAAFCmNhbkdldFVzZHQAAAgJAQ5hc1R3b0ludHNUdXBsZQEJAPwHBAUPZWNvbm9teUNvbnRyYWN0AhJzZWxsUmVzb3VyY2VzV29ybGQJAMwIAgUEYWRkcgkAzAgCBQhhdmFpbFJlcwUDbmlsBQNuaWwCXzEJAGgCBQdnb3RVc2R0BRVVU0RUMkFDUkVTX01VTFRJUExJRVIBC21lcmdlTG9ja2VkBAlvbGRBbW91bnQGb2xkRVRBCW5ld0Ftb3VudAZuZXdFVEEEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAEA2R0MQkAlgMBCQDMCAIAAAkAzAgCCQBlAgUGb2xkRVRBBQNub3cFA25pbAQDZHQyCQCWAwEJAMwIAgAACQDMCAIJAGUCBQZuZXdFVEEFA25vdwUDbmlsBANzdW0JAGQCBQlvbGRBbW91bnQFCW5ld0Ftb3VudAQCZHQDCQAAAgUDc3VtAAAAAAkAZAIJAGsDBQNkdDEFCW9sZEFtb3VudAUDc3VtCQBrAwUDZHQyBQluZXdBbW91bnQFA3N1bQkAZAIFA25vdwUCZHQNAWkBDWNvbnN0cnVjdG9yVjECCHJlc3RBZGRyDnVuc3Rha2VkUGllY2VzAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ9hY3Jlc0Fzc2V0SWRLZXkJAAIBAhNBbHJlYWR5IGluaXRpYWxpemVkBAhuZnRBY3JlcwkAZAIJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQIABQtJZHhFZmZUb3RhbAUOdW5zdGFrZWRQaWVjZXMEDGlzc3VlZEFtb3VudAkAZQIFCE1JTExJT042CQBoAgUIbmZ0QWNyZXMFBU1VTFQ4BAVpc3N1ZQkAwwgHAgVBQ1JFUwImV2F2ZXNMYW5kcyBsYW5kIGFjcmVzIGludmVzdG1lbnQgdG9rZW4FDGlzc3VlZEFtb3VudAAIBwUEdW5pdAAABAdhc3NldElkCQC4CAEFBWlzc3VlCQDMCAIFBWlzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQtCaW5hcnlFbnRyeQIFD2FjcmVzQXNzZXRJZEtleQUHYXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQEOa2V5UmVzdEFkZHJlc3MABQhyZXN0QWRkcgUDbmlsAWkBDHVuc3Rha2VBY3JlcwEGYW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkAZwIAAAUGYW1vdW50CQACAQIZQW1vdW50IHNob3VsZCBiZSBwb3NpdGl2ZQQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQHdGltZUtleQkBGGtleUFjcmVzU3Rha2VkVGltZUJ5VXNlcgEFB2FkZHJlc3MECWFtb3VudEtleQkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwQOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUJYW1vdW50S2V5AAADCQBmAgUGYW1vdW50BQ5vbGRBY3Jlc0Ftb3VudAkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFDm9sZEFjcmVzQW1vdW50AAgCICBBQ1JFUyBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBAxsb2NrZWRBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBGmtleUFjcmVzTG9ja2VkQW1vdW50QnlVc2VyAQUHYWRkcmVzcwAABAlsb2NrZWRFVEEJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBF2tleUFjcmVzTG9ja2VkRXRhQnlVc2VyAQUHYWRkcmVzcwAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGcCBQNub3cFF1BST01PXzJfU1RBUlRfVElNRVNUQU1QCQBnAgUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBQNub3cHCQACAQImWW91IGNhbm5vdCB1bnN0YWtlIEFDUkVTIGR1cmluZyBQcm9tbzIEEHVuc3Rha2FibGVBbW91bnQDCQETaXNCbGFja2xpc3RlZFByb21vMQEFB2FkZHJlc3MJAGUCCQBlAgUOb2xkQWNyZXNBbW91bnQFDGxvY2tlZEFtb3VudAUNUFJPTU8xX0FNT1VOVAkAZQIFDm9sZEFjcmVzQW1vdW50BQxsb2NrZWRBbW91bnQDAwkAZgIFCWxvY2tlZEVUQQUDbm93CQBmAgUGYW1vdW50BRB1bnN0YWthYmxlQW1vdW50BwkAAgEJAKwCAgkArAICCQCsAgICBU9ubHkgCQEKZml4ZWRQb2ludAIFEHVuc3Rha2FibGVBbW91bnQACAInIEFDUkVTIGNhbiBiZSB1bnN0YWtlZCBub3csIHdhaXQgdW50aWwgCQCkAwEFCWxvY2tlZEVUQQQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFDm9sZEFjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUJYW1vdW50S2V5CQBlAgUOb2xkQWNyZXNBbW91bnQFBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYWNyZXNTdGFrZWRUb3RhbEtleQkAZQIFCG9sZFRvdGFsBQZhbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBkAgUGYW1vdW50BQxjbGFpbWVkQWNyZXMFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUJd2xnUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCnN0YWtlQWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAUMYWNyZXNBc3NldElkCQACAQIUQUNSRVMgcGF5bWVudHMgb25seSEECXdsZ1Jlc3VsdAkA/AcEBQt3bGdDb250cmFjdAISb25TdGFrZVVuc3Rha2VMYW5kCQDMCAIFB2FkZHJlc3MFA25pbAUDbmlsAwkAAAIFCXdsZ1Jlc3VsdAUJd2xnUmVzdWx0BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwMJAGYCBRdQUk9NT18yX1NUQVJUX1RJTUVTVEFNUAUDbm93BgkAZgIFA25vdwUVUFJPTU9fMl9FTkRfVElNRVNUQU1QBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAxjbGFpbWVkQWNyZXMJAQ1jbGFpbUludGVybmFsAwUHYWRkcmVzcwUOb2xkQWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAACQCUCgIJAM0IAgkAzQgCCQDNCAIDCQAAAgUMY2xhaW1lZEFjcmVzAAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQNhbXQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFA2FtdAkAlAoCBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAMJAGYCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwUDYW10CQACAQkArAICCQCsAgICOU1pbiBzdGFrZWQgYW1vdW50IGR1cmluZyBwcm9tbyBhY3Rpb24gc2hvdWxkIGJlIGF0IGxlYXN0IAkBCmZpeGVkUG9pbnQCBR1NSU5fQUNSRVNfQU1PVU5UX0RVUklOR19QUk9NTwAIAgYgQUNSRVMEC3N0YWtlUmVzdWx0CQD8BwQFBHRoaXMCD3NlbmRMb2NrZWRBY3JlcwkAzAgCBQdhZGRyZXNzCQDMCAIFA2FtdAkAzAgCAB4FA25pbAUDbmlsBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgAEB25ld01hcDIDCQEIY29udGFpbnMCBQlwcm9tbzJNYXAFB2FkZHJlc3MEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQJb2xkQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAK8CAgkAsAICCQCRAwIFBXBhcnRzAAEAAQAOCQCsAgIJAKwCAgkArAICCQCsAgIJAJEDAgUFcGFydHMAAAUHYWRkcmVzcwIBOgkBBHBhZEwCCQBkAgUJb2xkQW1vdW50BQNhbXQADgkAsAICCQCRAwIFBXBhcnRzAAEADwQJZmluYWxQYXJ0CQCsAgIJAKwCAgUHYWRkcmVzcwIBOgkBBHBhZEwCBQNhbXQADgMJAAACBQlwcm9tbzJNYXACAAUJZmluYWxQYXJ0CQCsAgIJAKwCAgUJcHJvbW8yTWFwAgFfBQlmaW5hbFBhcnQJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCBQxwcm9tbzJNYXBLZXkFB25ld01hcDIFA25pbAkAlQoDBQxwcm9sb2dSZXN1bHQFCXdsZ1Jlc3VsdAULc3Rha2VSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5QWNyZXMABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0BAdhZGRyZXNzCQClCAEIBQFpBmNhbGxlcgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhAwkAZgIFBU1VTFQ2BQNhbXQJAAIBCQCsAgIJAKwCAgIWTWluIHBheW1lbnQgc2hvdWxkIGJlIAkBCmZpeGVkUG9pbnQCBQVNVUxUNgAGAgUgVVNEVAQLYWNyZXNBbW91bnQJAGgCBQNhbXQFFVVTRFQyQUNSRVNfTVVMVElQTElFUgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQdhZGRyZXNzCQDMCAIJAGsDBQp4cE5ld1NMYW5kBQthY3Jlc0Ftb3VudAkAaAIAGQUFTVVMVDgFA25pbAUDbmlsCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUPZWNvbm9teUNvbnRyYWN0BQNhbXQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYWNyZXNBbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJc2VuZEFjcmVzAgRhZGRyBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPZWNvbm9teUNvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyBQZhbW91bnQFDGFjcmVzQXNzZXRJZAUDbmlsBQZhbW91bnQBaQEPc2VuZExvY2tlZEFjcmVzAwRhZGRyBmFtb3VudAhsb2NrRGF5cwMDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAQIhPQIIBQFpBmNhbGxlcgUMcmVzdENvbnRyYWN0BwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUEYWRkcgQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyBA5vbGRBY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUTYWNyZXNTdGFrZWRUb3RhbEtleQAABAp0aW1lQWN0aW9uAwkBCWlzRGVmaW5lZAEJAJ8IAQUHdGltZUtleQUDbmlsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5BQNub3cFA25pbAQGZXRhS2V5CQEXa2V5QWNyZXNMb2NrZWRFdGFCeVVzZXIBBQRhZGRyBA9sb2NrZWRBbW91bnRLZXkJARprZXlBY3Jlc0xvY2tlZEFtb3VudEJ5VXNlcgEFBGFkZHIED29sZExvY2tlZEFtb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sb2NrZWRBbW91bnRLZXkAAAQMb2xkTG9ja2VkRVRBCQELdmFsdWVPckVsc2UCCQCfCAEFBmV0YUtleQAABAltZXJnZWRFVEEJAQttZXJnZUxvY2tlZAQFD29sZExvY2tlZEFtb3VudAUMb2xkTG9ja2VkRVRBBQZhbW91bnQJAGQCBQNub3cJAGgCBQhsb2NrRGF5cwUJREFZTUlMTElTCQCUCgIJAM0IAgkAzQgCCQDNCAIJAM0IAgUKdGltZUFjdGlvbgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFDm9sZEFjcmVzQW1vdW50BQZhbW91bnQJAQxJbnRlZ2VyRW50cnkCBRNhY3Jlc1N0YWtlZFRvdGFsS2V5CQBkAgUIb2xkVG90YWwFBmFtb3VudAkBDEludGVnZXJFbnRyeQIFBmV0YUtleQUJbWVyZ2VkRVRBCQEMSW50ZWdlckVudHJ5AgUPbG9ja2VkQW1vdW50S2V5CQBkAgUPb2xkTG9ja2VkQW1vdW50BQZhbW91bnQFBmFtb3VudAFpAQlidXJuQWNyZXMBBmFtb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQECmFtb3VudExlZnQJAGUCCQELdmFsdWVPckVsc2UCCQCfCAEFFGFjcmVzSXNzdWVkQW1vdW50S2V5AAAFBmFtb3VudAMJAGYCAAAFCmFtb3VudExlZnQJAAIBAidBdHRlbXB0IHRvIGJ1cm4gbW9yZSBBQ1JFUywgdGhhbiBleGlzdHMJAJQKAgkAzAgCCQEEQnVybgIFDGFjcmVzQXNzZXRJZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRhY3Jlc0lzc3VlZEFtb3VudEtleQUKYW1vdW50TGVmdAUDbmlsBQZhbW91bnQBaQEKY2xhaW1BY3JlcwAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQEB2FkZHJlc3MJAKUIAQgFAWkGY2FsbGVyAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQEB3RpbWVLZXkJARhrZXlBY3Jlc1N0YWtlZFRpbWVCeVVzZXIBBQdhZGRyZXNzBAlhbW91bnRLZXkJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFB2FkZHJlc3MEC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFCWFtb3VudEtleQAABAl3bGdSZXN1bHQJAPwHBAULd2xnQ29udHJhY3QCEm9uU3Rha2VVbnN0YWtlTGFuZAkAzAgCBQdhZGRyZXNzBQNuaWwFA25pbAQMY2xhaW1lZEFjcmVzCQENY2xhaW1JbnRlcm5hbAMFB2FkZHJlc3MFC2FjcmVzQW1vdW50CQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFDGNsYWltZWRBY3JlcwUMYWNyZXNBc3NldElkBQNuaWwJAJQKAgUMcHJvbG9nUmVzdWx0BQl3bGdSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQESY2xhaW1BY3Jlc1JFQURPTkxZAQdhZGRyZXNzBAd0aW1lS2V5CQEYa2V5QWNyZXNTdGFrZWRUaW1lQnlVc2VyAQUHYWRkcmVzcwQJYW1vdW50S2V5CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQdhZGRyZXNzBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdGltZUtleQAABAxjbGFpbWVkQWNyZXMJARJjbGFpbUFjcmVzSW50ZXJuYWwDBQdhZGRyZXNzBQthY3Jlc0Ftb3VudAUIbGFzdFRpbWUJAJQKAgUDbmlsCQDMCAIFDGNsYWltZWRBY3JlcwkAzAgCBQhsYXN0VGltZQUDbmlsAWkBC2NsYWltUHJvbW8yAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAQHYWRkcmVzcwkApQgBCAUBaQZjYWxsZXIDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAMJAGYCBRVQUk9NT18yX0VORF9USU1FU1RBTVAFA25vdwkAAgECF1Byb21vIDIgaXMgbm90IG92ZXIgeWV0BAphd2FyZGVkS2V5CQEaa2V5SXNBd2FyZGVkQnlQcm9tb0FuZFVzZXICAAIFB2FkZHJlc3MDCQELdmFsdWVPckVsc2UCCQCgCAEFCmF3YXJkZWRLZXkHCQACAQkArAICCQCsAgICDFlvdXIgd2FsbGV0IAUHYWRkcmVzcwIeIGlzIGFscmVhZHkgYXdhcmRlZCBpbiBwcm9tbyAyBAlwcm9tbzJNYXAJAQt2YWx1ZU9yRWxzZQIJAKIIAQUMcHJvbW8yTWFwS2V5AgADCQEBIQEJAQhjb250YWlucwIFCXByb21vMk1hcAUHYWRkcmVzcwkAAgECIllvdSBhcmUgbm90IHBhcnRpY2lwYW50IG9mIHByb21vIDIEBXBhcnRzCQC9CQIFCXByb21vMk1hcAUHYWRkcmVzcwQLYWNyZXNBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkArwICCQCwAgIJAJEDAgUFcGFydHMAAQABAA4EB3RpY2tldHMJAGkCBQthY3Jlc0Ftb3VudAUdTUlOX0FDUkVTX0FNT1VOVF9EVVJJTkdfUFJPTU8EC3RvdGFsVGlrZXRzCQELdmFsdWVPckVsc2UCCQCfCAEJARZrZXlUaWNrZXRzVG90YWxCeVByb21vAQACAAAEDSR0MDEyNTQ3MTI5ODcDCQAAAgULdG90YWxUaWtldHMAAAoBDGNvdW50VGlja2V0cwIDYWNjAmVsCQBkAgUDYWNjCQBpAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIJALUJAgUCZWwCAToAAQUdTUlOX0FDUkVTX0FNT1VOVF9EVVJJTkdfUFJPTU8EDHRpY2tldHNDb3VudAoAAiRsCQC9CQIFCXByb21vMk1hcAIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMY291bnRUaWNrZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFmtleVRpY2tldHNUb3RhbEJ5UHJvbW8BAAIFDHRpY2tldHNDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleVRpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAIAAgABBQx0aWNrZXRzQ291bnQFA25pbAUMdGlja2V0c0NvdW50CQCUCgIFA25pbAULdG90YWxUaWtldHMEDnRpY2tldHNBY3Rpb25zCAUNJHQwMTI1NDcxMjk4NwJfMQQKdG90YWxDb3VudAgFDSR0MDEyNTQ3MTI5ODcCXzIEBWF3YXJkCQBrAwUZUFJPTU9fMl9ESVNUUklCVVRJT05fRlVORAUHdGlja2V0cwUKdG90YWxDb3VudAQLc3Rha2VSZXN1bHQJAPwHBAUEdGhpcwIPc2VuZExvY2tlZEFjcmVzCQDMCAIFB2FkZHJlc3MJAMwIAgUFYXdhcmQJAMwIAgAeBQNuaWwFA25pbAkAlAoCCQDNCAIJAM0IAgUOdGlja2V0c0FjdGlvbnMJAQxCb29sZWFuRW50cnkCBQphd2FyZGVkS2V5BgkBC1N0cmluZ0VudHJ5AgkBFGtleVByb21vMk1hcEZvclJvdW5kAQABBQlwcm9tbzJNYXAFC3N0YWtlUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCmluaXRQcm9tbzMBCXByb21vM01hcAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkCgEMY291bnRUaWNrZXRzAgNhY2MCZWwJAGQCBQNhY2MJAQ1wYXJzZUludFZhbHVlAQkAkQMCCQC1CQIFAmVsAgE6AAEEDHRpY2tldHNUb3RhbAoAAiRsCQC9CQIFCXByb21vM01hcAIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMY291bnRUaWNrZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHmtleVRpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAIAAwABBQx0aWNrZXRzVG90YWwJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVByb21vM01hcEZvclJvdW5kAQABBQlwcm9tbzNNYXAFA25pbAUMdGlja2V0c1RvdGFsAWkBFGNvbW1pdEZvclByb21vM1JvdW5kAQdyb3VuZElkAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDAwkAZgIAAQUHcm91bmRJZAYJAGYCBQdyb3VuZElkAAIJAAIBCQCsAgICEUludmFsaWQgcm91bmRJZDogCQCkAwEFB3JvdW5kSWQEC2ZpbmlzaEJsb2NrCQBkAgUGaGVpZ2h0BQtyYW5kb21EZWxheQkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEJa2V5Q29tbWl0AQkArAICAgIzXwkApAMBBQdyb3VuZElkBQtmaW5pc2hCbG9jawUDbmlsBQtmaW5pc2hCbG9jawFpAQ9kcmF3UHJvbW8zUm91bmQBB3JvdW5kSWQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAMDCQBmAgABBQdyb3VuZElkBgkAZgIFB3JvdW5kSWQAAgkAAgEJAKwCAgIRSW52YWxpZCByb3VuZElkOiAJAKQDAQUHcm91bmRJZAQJZmluaXNoS2V5CQEJa2V5Q29tbWl0AQkArAICAgIzXwkApAMBBQdyb3VuZElkBAtmaW5pc2hCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFCWZpbmlzaEtleQkArAICCQCsAgICIVlvdSBoYXZlIHRvIGNvbW1pdEZvclByb21vM1JvdW5kKAkApAMBBQdyb3VuZElkAggpIGZpcnN0IQMJAGYCBQtmaW5pc2hCbG9jawUGaGVpZ2h0CQACAQkArAICCQCsAgIJAKwCAgkArAICAjRSYW5kb20gbnVtYmVyIGlzIG5vdCByZWFkeSB5ZXQsIHdhaXQgdW50aWwgaGVpZ2h0ID0gCQCkAwEFC2ZpbmlzaEJsb2NrAhMgKGN1cnJlbnQgaGVpZ2h0ID0gCQCkAwEFBmhlaWdodAIBKQQIbWF4VmFsdWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBHmtleVRpY2tldHNUb3RhbEJ5UHJvbW9BbmRSb3VuZAIAAwUHcm91bmRJZAAAAwkAAAIFCG1heFZhbHVlAAAJAAIBAhJObyB0aWNrZXRzIHRvIGRyYXcEB2VudHJvcHkJAQV2YWx1ZQEICQEFdmFsdWUBCQDtBwEFC2ZpbmlzaEJsb2NrA3ZyZgQEc2FsdAgFAWkNdHJhbnNhY3Rpb25JZAQJcHJvbW8zTWFwCQELdmFsdWVPckVsc2UCCQCiCAEJARRrZXlQcm9tbzNNYXBGb3JSb3VuZAEFB3JvdW5kSWQCAAoBCnNpbmdsZURyYXcCAmFjAWoDCQBnAgUBagkAkQMCBRdwcm9tbzNOdW1Qcml6ZXNQZXJSb3VuZAkAZQIFB3JvdW5kSWQAAQUCYWMEBHJhbmQJAQ9nZXRSYW5kb21OdW1iZXIDCAUCYWMCXzEIBQJhYwJfMgUHZW50cm9weQQKcHJvbW8zTGlzdAMJAAACCAUCYWMCXzMCAAUDbmlsCQC9CQIIBQJhYwJfMwIBXwoBDGNvdW50VGlja2V0cwIDYWNjAmVsBAVwYXJ0cwkAtQkCBQJlbAIBOgQEYWRkcgkAkQMCBQVwYXJ0cwAABAd0aWNrZXRzCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUFcGFydHMAAQQIbmV3VG90YWwJAGQCCAUDYWNjAl8xBQd0aWNrZXRzAwMJAAACCAUDYWNjAl8zAgAJAGYCBQhuZXdUb3RhbAUEcmFuZAcJAJUKAwUIbmV3VG90YWwFB3RpY2tldHMFBGFkZHIJAJUKAwUIbmV3VG90YWwIBQNhY2MCXzIIBQNhY2MCXzMEAXIKAAIkbAUKcHJvbW8zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwAAAAACAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMY291bnRUaWNrZXRzAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQEBndpbm5lcggFAXICXzMDCQAAAgUGd2lubmVyAgAFAmFjBAhtYXBQYXJ0cwkAvQkCCAUCYWMCXzMFBndpbm5lcgQGbmV3TWFwAwkAAAIJAJEDAgUIbWFwUGFydHMAAAIACQCwAgIJAJEDAgUIbWFwUGFydHMAAQAECQCsAgIJALMCAgkAkQMCBQhtYXBQYXJ0cwAAAAEJALACAgkAkQMCBQhtYXBQYXJ0cwABAAMEC3N0YWtlUmVzdWx0CQD8BwQFBHRoaXMCD3NlbmRMb2NrZWRBY3JlcwkAzAgCBQZ3aW5uZXIJAMwIAgkAkQMCBRNwcm9tbzNBd2FyZFBlclJvdW5kCQBlAgUHcm91bmRJZAABCQDMCAIAHgUDbmlsBQNuaWwEB25ld1NhbHQJANkEAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlMYXN0VHhJZEJ5VXNlcgEFBndpbm5lcgIHREVGQVVMVAkAlgoECQBlAggFAmFjAl8xCAUBcgJfMgUHbmV3U2FsdAUGbmV3TWFwCQDNCAIIBQJhYwJfNAULc3Rha2VSZXN1bHQEBWRyYXdzCgACJGwFBUlURVI2CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEBQhtYXhWYWx1ZQgFAWkNdHJhbnNhY3Rpb25JZAUJcHJvbW8zTWFwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnNpbmdsZURyYXcCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJAJQKAgkAzAgCCQELRGVsZXRlRW50cnkBBQlmaW5pc2hLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBFGtleVByb21vM01hcEZvclJvdW5kAQkAZAIFB3JvdW5kSWQAAQgFBWRyYXdzAl8zCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEea2V5VGlja2V0c1RvdGFsQnlQcm9tb0FuZFJvdW5kAgADCQBkAgUHcm91bmRJZAABCAUFZHJhd3MCXzEFA25pbAgFBWRyYXdzAl80ABq2ZMs=",
    "height": 2890971,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: KDZbuaYuM5yQNSeet7Nq97R8X9KckCCFTc8fBaf6Nv1
Next: B7rSLVnk7Tbfvz5SN81iVfcCjqekinxBH9Ydt7E7EkEp

Diff: 
Old New Differences
56 56  func u (o) = ("promo2MapForRound__" + toString(o))
57 57  
58 58  
59 - let v = "__"
60 - 
61 - let w = 1000000
62 - 
63 - let x = 100000000
64 - 
65 - let y = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
66 - 
67 - func z (A,B) = valueOrErrorMessage(getString(A, B), makeString(["mandatory ", toString(A), ".", B, " is not defined"], ""))
59 + func v (o) = ("promo3MapForRound__" + toString(o))
68 60  
69 61  
70 - let C = 1
62 + let w = "__"
71 63  
72 - let D = 2
64 + let x = 1000000
73 65  
74 - let E = 4
66 + let y = 100000000
75 67  
76 - let F = 8
68 + let z = [0, 1, 2, 3, 4, 5]
77 69  
78 - func G () = "%s__restConfig"
70 + func A (B,C) = valueOrErrorMessage(getString(B, C), makeString(["mandatory ", toString(B), ".", C, " is not defined"], ""))
79 71  
80 72  
81 - func H () = "%s__restAddr"
73 + let D = 1
74 + 
75 + let E = 2
76 + 
77 + let F = 4
78 + 
79 + let G = 8
80 + 
81 + func H () = "%s__restConfig"
82 82  
83 83  
84 - func I (J) = split_4C(z(J, G()), v)
84 + func I () = "%s__restAddr"
85 85  
86 86  
87 - func K (L,M) = valueOrErrorMessage(addressFromString(L[M]), ("Rest cfg doesn't contain address at index " + toString(M)))
87 + func J (K) = split_4C(A(K, H()), w)
88 88  
89 89  
90 - let N = addressFromStringValue(valueOrElse(getString(this, H()), s))
91 - 
92 - let L = I(N)
93 - 
94 - let O = K(L, C)
95 - 
96 - let P = K(L, D)
97 - 
98 - let Q = K(L, E)
99 - 
100 - let R = K(L, F)
101 - 
102 - let S = "acresIssuedAmount"
103 - 
104 - let T = "acresAssetId"
105 - 
106 - let U = valueOrErrorMessage(getBinary(R, T), "ACRES is not issued yet")
107 - 
108 - func V (d) = ("acresStakedTimeByUser_" + d)
90 + func L (M,N) = valueOrErrorMessage(addressFromString(M[N]), ("Rest cfg doesn't contain address at index " + toString(N)))
109 91  
110 92  
111 - let W = 0
93 + let O = addressFromStringValue(valueOrElse(getString(this, I()), s))
112 94  
113 - let X = 2
95 + let M = J(O)
114 96  
115 - func Y (A) = ("finishBlockFor_" + A)
97 + let P = L(M, D)
98 + 
99 + let Q = L(M, E)
100 + 
101 + let R = L(M, F)
102 + 
103 + let S = L(M, G)
104 + 
105 + let T = "acresIssuedAmount"
106 + 
107 + let U = "acresAssetId"
108 + 
109 + let V = valueOrErrorMessage(getBinary(S, U), "ACRES is not issued yet")
110 + 
111 + func W (d) = ("acresStakedTimeByUser_" + d)
116 112  
117 113  
118 - func Z () = "resTypesProportions"
114 + let X = 0
115 + 
116 + let Y = 2
117 + 
118 + func Z (B) = ("finishBlockFor_" + B)
119 119  
120 120  
121 - func aa (ab) = ("stakedPiecesByOwner_" + ab)
121 + func aa () = "resTypesProportions"
122 122  
123 123  
124 - func ac (ad) = {
125 -     let r = ad
124 + func ab (ac) = ("stakedPiecesByOwner_" + ac)
125 + 
126 + 
127 + func ad (ae) = {
128 +     let r = ae
126 129      if ($isInstanceOf(r, "Int"))
127 130          then {
128 -             let ae = r
129 -             ae
131 +             let af = r
132 +             af
130 133              }
131 134          else throw("fail to cast into Int")
132 135      }
133 136  
134 137  
135 - func af (ag) = {
136 -     let r = ag
138 + func ag (ah) = {
139 +     let r = ah
137 140      if ($isInstanceOf(r, "(Int, Int)"))
138 141          then {
139 -             let ah = r
140 -             ah
142 +             let ai = r
143 +             ai
141 144              }
142 145          else throw("fail to cast into (Int, Int)")
143 146      }
144 147  
145 148  
146 - func ai (d) = ("lastTxIdByUser_" + d)
149 + func aj (d) = ("lastTxIdByUser_" + d)
147 150  
148 151  
149 - func aj (ak) = {
150 -     let al = split(valueOrElse(getString(O, Z()), "0_0_0_0_0_0"), "_")
151 -     func am (an,ao) =     (an + parseIntValue(ao))
152 + func ak (al) = {
153 +     let am = split(valueOrElse(getString(P, aa()), "0_0_0_0_0_0"), "_")
154 +     func an (ao,ap) =     (ao + parseIntValue(ap))
152 155  
153 -     let ap = {
154 -         let aq = al
155 -         let ar = size(aq)
156 -         let as = 0
157 -         func at (au,av) =         if ((av >= ar))
158 -             then au
159 -             else am(au, aq[av])
156 +     let aq = {
157 +         let ar = am
158 +         let as = size(ar)
159 +         let at = 0
160 +         func au (av,aw) =         if ((aw >= as))
161 +             then av
162 +             else an(av, ar[aw])
160 163  
161 -         func aw (au,av) =         if ((av >= ar))
162 -             then au
164 +         func ax (av,aw) =         if ((aw >= as))
165 +             then av
163 166              else throw("List size exceeds 6")
164 167  
165 -         aw(at(at(at(at(at(at(as, 0), 1), 2), 3), 4), 5), 6)
168 +         ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
166 169          }
167 -     let ax = valueOrElse(getInteger(O, aa(ak)), 0)
168 - [ap, ax]
170 +     let ay = valueOrElse(getInteger(P, ab(al)), 0)
171 + [aq, ay]
169 172      }
170 173  
171 174  
172 - func ay (ag,az) = {
173 -     let aA = pow(10, 0, az, 0, 0, DOWN)
174 -     let aB = toString((ag % aA))
175 -     let aC = drop(toString(aA), (1 + size(aB)))
176 -     (((toString((ag / aA)) + ".") + aC) + aB)
175 + func az (ah,aA) = {
176 +     let aB = pow(10, 0, aA, 0, 0, DOWN)
177 +     let aC = toString((ah % aB))
178 +     let aD = drop(toString(aB), (1 + size(aC)))
179 +     (((toString((ah / aB)) + ".") + aD) + aC)
177 180      }
178 181  
179 182  
180 - func aD (ag,aE) = {
181 -     let aF = toString(ag)
182 -     let aC = drop(toString(pow(10, 0, (aE - size(aF)), 0, 0, DOWN)), 1)
183 -     (aC + aF)
183 + func aE (ah,aF) = {
184 +     let aG = toString(ah)
185 +     let aD = drop(toString(pow(10, 0, (aF - size(aG)), 0, 0, DOWN)), 1)
186 +     (aD + aG)
184 187      }
185 188  
186 189  
187 - func aG (aH,aI,aJ) = if ((0 >= aH))
190 + func aH (aI,aJ,aK) = if ((0 >= aI))
188 191      then throw("maxValue should be > 0")
189 192      else {
190 -         let aK = sha256((aI + aJ))
191 -         (toInt(aK) % aH)
193 +         let aL = sha256((aJ + aK))
194 +         (toInt(aL) % aI)
192 195          }
193 196  
194 197  
195 - let aL = 10000000
198 + let aM = 10000000
196 199  
197 - let aM = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
200 + let aN = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
198 201  
199 - let aN = 4970178
202 + let aO = 4970178
200 203  
201 - let aO = {
204 + let aP = {
202 205      let r = p
203 206      if ((base58'2W' == r))
204 207          then 1700524800000
207 210              else throw("Unknown chain")
208 211      }
209 212  
210 - let aP = {
213 + let aQ = {
211 214      let r = p
212 215      if ((base58'2W' == r))
213 216          then 1701043199999
216 219              else throw("Unknown chain")
217 220      }
218 221  
219 - let aQ = 1000000000
222 + let aR = 1000000000
220 223  
221 - let aR = [1, 3, 5, 20]
224 + let aS = [1, 5]
222 225  
223 - let aS = [500000000, 200000000, 100000000, 20000000]
226 + let aT = [500000000, 100000000]
224 227  
225 - func aT (d) = contains(aM, d)
228 + func aU (d) = contains(aN, d)
226 229  
227 230  
228 - func aU () = ac(reentrantInvoke(O, "saveLastTx", nil, nil))
231 + func aV () = ad(reentrantInvoke(P, "saveLastTx", nil, nil))
229 232  
230 233  
231 - func aV (d,aW,aX) = {
232 -     let aY = (lastBlock.timestamp - aX)
233 -     let aZ = fraction(aY, (i * aW), (b * x))
234 -     let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
235 -     let bb = max([0, ba])
236 -     (bb * j)
234 + func aW (d,aX,aY) = {
235 +     let aZ = (lastBlock.timestamp - aY)
236 +     let ba = fraction(aZ, (i * aX), (b * y))
237 +     let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
238 +     let bc = max([0, bb])
239 +     (bc * j)
237 240      }
238 241  
239 242  
240 - func bc (d,aW,aX) = {
241 -     let aY = (lastBlock.timestamp - aX)
242 -     if ((0 > aY))
243 -         then throw(((("Saved timestamp is in future, saved = " + toString(aX)) + ", current = ") + toString(lastBlock.timestamp)))
243 + func bd (d,aX,aY) = {
244 +     let aZ = (lastBlock.timestamp - aY)
245 +     if ((0 > aZ))
246 +         then throw(((("Saved timestamp is in future, saved = " + toString(aY)) + ", current = ") + toString(lastBlock.timestamp)))
244 247          else {
245 -             let aZ = fraction(aY, (i * aW), (b * x))
246 -             let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
247 -             let bb = if ((0 >= ba))
248 +             let ba = fraction(aZ, (i * aX), (b * y))
249 +             let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
250 +             let bc = if ((0 >= bb))
248 251                  then 0
249 -                 else af(invoke(P, "sellResourcesWorld", [d, aZ], nil))._1
250 -             (bb * j)
252 +                 else ag(invoke(Q, "sellResourcesWorld", [d, ba], nil))._1
253 +             (bc * j)
251 254              }
252 255      }
253 256  
254 257  
255 - func bd (be,bf,bg,bh) = {
256 -     let bi = lastBlock.timestamp
257 -     let bj = max([0, (bf - bi)])
258 -     let bk = max([0, (bh - bi)])
259 -     let bl = (be + bg)
260 -     let bm = if ((bl == 0))
258 + func be (bf,bg,bh,bi) = {
259 +     let bj = lastBlock.timestamp
260 +     let bk = max([0, (bg - bj)])
261 +     let bl = max([0, (bi - bj)])
262 +     let bm = (bf + bh)
263 +     let bn = if ((bm == 0))
261 264          then 0
262 -         else (fraction(bj, be, bl) + fraction(bk, bg, bl))
263 -     (bi + bm)
265 +         else (fraction(bk, bf, bm) + fraction(bl, bh, bm))
266 +     (bj + bn)
264 267      }
265 268  
266 269  
267 - @Callable(bn)
268 - func constructorV1 (bo,bp) = if ((bn.caller != this))
270 + @Callable(bo)
271 + func constructorV1 (bp,bq) = if ((bo.caller != this))
269 272      then throw("Permission denied")
270 -     else if (isDefined(getBinary(T)))
273 +     else if (isDefined(getBinary(U)))
271 274          then throw("Already initialized")
272 275          else {
273 -             let bq = (aj("")[W] + bp)
274 -             let br = (a - (bq * x))
275 -             let bs = Issue("ACRES", "WavesLands land acres investment token", br, 8, false, unit, 0)
276 -             let bt = calculateAssetId(bs)
277 - [bs, IntegerEntry(S, br), BinaryEntry(T, bt), StringEntry(H(), bo)]
276 +             let br = (ak("")[X] + bq)
277 +             let bs = (a - (br * y))
278 +             let bt = Issue("ACRES", "WavesLands land acres investment token", bs, 8, false, unit, 0)
279 +             let bu = calculateAssetId(bt)
280 + [bt, IntegerEntry(T, bs), BinaryEntry(U, bu), StringEntry(I(), bp)]
278 281              }
279 282  
280 283  
281 284  
282 - @Callable(bn)
283 - func unstakeAcres (bu) = {
284 -     let bv = aU()
285 -     if ((bv == bv))
286 -         then if ((0 >= bu))
285 + @Callable(bo)
286 + func unstakeAcres (bv) = {
287 +     let bw = aV()
288 +     if ((bw == bw))
289 +         then if ((0 >= bv))
287 290              then throw("Amount should be positive")
288 291              else {
289 -                 let A = toString(bn.caller)
290 -                 if ((size(bn.payments) != 0))
292 +                 let B = toString(bo.caller)
293 +                 if ((size(bo.payments) != 0))
291 294                      then throw("No payments required")
292 295                      else {
293 -                         let bw = V(A)
294 -                         let bx = c(A)
295 -                         let by = valueOrElse(getInteger(bx), 0)
296 -                         if ((bu > by))
297 -                             then throw(((("You have only " + ay(by, 8)) + " ACRES staked, tried to unstake ") + ay(bu, 8)))
296 +                         let bx = W(B)
297 +                         let by = c(B)
298 +                         let bz = valueOrElse(getInteger(by), 0)
299 +                         if ((bv > bz))
300 +                             then throw(((("You have only " + az(bz, 8)) + " ACRES staked, tried to unstake ") + az(bv, 8)))
298 301                              else {
299 -                                 let bz = valueOrElse(getInteger(e(A)), 0)
300 -                                 let bA = valueOrElse(getInteger(f(A)), 0)
301 -                                 let bi = lastBlock.timestamp
302 -                                 if (if ((bi >= aO))
303 -                                     then (aP >= bi)
302 +                                 let bA = valueOrElse(getInteger(e(B)), 0)
303 +                                 let bB = valueOrElse(getInteger(f(B)), 0)
304 +                                 let bj = lastBlock.timestamp
305 +                                 if (if ((bj >= aP))
306 +                                     then (aQ >= bj)
304 307                                      else false)
305 308                                      then throw("You cannot unstake ACRES during Promo2")
306 309                                      else {
307 -                                         let bB = if (aT(A))
308 -                                             then ((by - bz) - aN)
309 -                                             else (by - bz)
310 -                                         if (if ((bA > bi))
311 -                                             then (bu > bB)
310 +                                         let bC = if (aU(B))
311 +                                             then ((bz - bA) - aO)
312 +                                             else (bz - bA)
313 +                                         if (if ((bB > bj))
314 +                                             then (bv > bC)
312 315                                              else false)
313 -                                             then throw(((("Only " + ay(bB, 8)) + " ACRES can be unstaked now, wait until ") + toString(bA)))
316 +                                             then throw(((("Only " + az(bC, 8)) + " ACRES can be unstaked now, wait until ") + toString(bB)))
314 317                                              else {
315 -                                                 let bC = valueOrElse(getInteger(g), 0)
316 -                                                 let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
317 -                                                 let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
318 -                                                 $Tuple2([IntegerEntry(bw, lastBlock.timestamp), IntegerEntry(bx, (by - bu)), IntegerEntry(g, (bC - bu)), ScriptTransfer(bn.caller, (bu + bE), U)], $Tuple2(bv, bD))
318 +                                                 let bD = valueOrElse(getInteger(g), 0)
319 +                                                 let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
320 +                                                 let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
321 +                                                 $Tuple2([IntegerEntry(bx, lastBlock.timestamp), IntegerEntry(by, (bz - bv)), IntegerEntry(g, (bD - bv)), ScriptTransfer(bo.caller, (bv + bF), V)], $Tuple2(bw, bE))
319 322                                                  }
320 323                                          }
321 324                                  }
326 329  
327 330  
328 331  
329 - @Callable(bn)
332 + @Callable(bo)
330 333  func stakeAcres () = {
331 -     let bv = aU()
332 -     if ((bv == bv))
334 +     let bw = aV()
335 +     if ((bw == bw))
333 336          then {
334 -             let A = toString(bn.caller)
335 -             if ((size(bn.payments) != 1))
337 +             let B = toString(bo.caller)
338 +             if ((size(bo.payments) != 1))
336 339                  then throw("exactly 1 payment must be attached")
337 340                  else {
338 -                     let bF = bn.payments[0]
339 -                     let bG = bF.amount
340 -                     if (if (!(isDefined(bF.assetId)))
341 +                     let bG = bo.payments[0]
342 +                     let bH = bG.amount
343 +                     if (if (!(isDefined(bG.assetId)))
341 344                          then true
342 -                         else (value(bF.assetId) != U))
345 +                         else (value(bG.assetId) != V))
343 346                          then throw("ACRES payments only!")
344 347                          else {
345 -                             let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
346 -                             if ((bD == bD))
348 +                             let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
349 +                             if ((bE == bE))
347 350                                  then {
348 -                                     let bi = lastBlock.timestamp
349 -                                     if (if ((aO > bi))
351 +                                     let bj = lastBlock.timestamp
352 +                                     if (if ((aP > bj))
350 353                                          then true
351 -                                         else (bi > aP))
354 +                                         else (bj > aQ))
352 355                                          then {
353 -                                             let bw = V(A)
354 -                                             let bx = c(A)
355 -                                             let by = valueOrElse(getInteger(bx), 0)
356 -                                             let bC = valueOrElse(getInteger(g), 0)
357 -                                             let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
358 -                                             $Tuple2(((((if ((bE == 0))
356 +                                             let bx = W(B)
357 +                                             let by = c(B)
358 +                                             let bz = valueOrElse(getInteger(by), 0)
359 +                                             let bD = valueOrElse(getInteger(g), 0)
360 +                                             let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
361 +                                             $Tuple2(((((if ((bF == 0))
359 362                                                  then nil
360 -                                                 else [ScriptTransfer(bn.caller, bE, U)]) :+ IntegerEntry(bw, lastBlock.timestamp)) :+ IntegerEntry(bx, (by + bG))) :+ IntegerEntry(g, (bC + bG))), $Tuple2(bv, bD))
363 +                                                 else [ScriptTransfer(bo.caller, bF, V)]) :+ IntegerEntry(bx, lastBlock.timestamp)) :+ IntegerEntry(by, (bz + bH))) :+ IntegerEntry(g, (bD + bH))), $Tuple2(bw, bE))
361 364                                              }
362 -                                         else if ((aL > bG))
363 -                                             then throw((("Min staked amount during promo action should be at least " + ay(aL, 8)) + " ACRES"))
365 +                                         else if ((aM > bH))
366 +                                             then throw((("Min staked amount during promo action should be at least " + az(aM, 8)) + " ACRES"))
364 367                                              else {
365 -                                                 let bH = invoke(this, "sendLockedAcres", [A, bG, 30], nil)
366 -                                                 let bI = valueOrElse(getString(t), "")
367 -                                                 let bJ = if (contains(bI, A))
368 +                                                 let bI = invoke(this, "sendLockedAcres", [B, bH, 30], nil)
369 +                                                 let bJ = valueOrElse(getString(t), "")
370 +                                                 let bK = if (contains(bJ, B))
368 371                                                      then {
369 -                                                         let bK = split_51C(bI, A)
370 -                                                         let be = parseIntValue(take(drop(bK[1], 1), 14))
371 -                                                         ((((bK[0] + A) + ":") + aD((be + bG), 14)) + drop(bK[1], 15))
372 +                                                         let bL = split_51C(bJ, B)
373 +                                                         let bf = parseIntValue(take(drop(bL[1], 1), 14))
374 +                                                         ((((bL[0] + B) + ":") + aE((bf + bH), 14)) + drop(bL[1], 15))
372 375                                                          }
373 376                                                      else {
374 -                                                         let bL = ((A + ":") + aD(bG, 14))
375 -                                                         if ((bI == ""))
376 -                                                             then bL
377 -                                                             else ((bI + "_") + bL)
377 +                                                         let bM = ((B + ":") + aE(bH, 14))
378 +                                                         if ((bJ == ""))
379 +                                                             then bM
380 +                                                             else ((bJ + "_") + bM)
378 381                                                          }
379 -                                                 $Tuple2([StringEntry(t, bJ)], $Tuple3(bv, bD, bH))
382 +                                                 $Tuple2([StringEntry(t, bK)], $Tuple3(bw, bE, bI))
380 383                                                  }
381 384                                      }
382 385                                  else throw("Strict value is not equal to itself.")
388 391  
389 392  
390 393  
391 - @Callable(bn)
394 + @Callable(bo)
392 395  func buyAcres () = {
393 -     let bv = aU()
394 -     if ((bv == bv))
396 +     let bw = aV()
397 +     if ((bw == bw))
395 398          then {
396 -             let A = toString(bn.caller)
397 -             if ((size(bn.payments) != 1))
399 +             let B = toString(bo.caller)
400 +             if ((size(bo.payments) != 1))
398 401                  then throw("exactly 1 payment must be attached")
399 402                  else {
400 -                     let bF = bn.payments[0]
401 -                     let bG = bF.amount
402 -                     if (if (!(isDefined(bF.assetId)))
403 +                     let bG = bo.payments[0]
404 +                     let bH = bG.amount
405 +                     if (if (!(isDefined(bG.assetId)))
403 406                          then true
404 -                         else (value(bF.assetId) != q))
407 +                         else (value(bG.assetId) != q))
405 408                          then throw("USDT payments only!")
406 -                         else if ((w > bG))
407 -                             then throw((("Min payment should be " + ay(w, 6)) + " USDT"))
409 +                         else if ((x > bH))
410 +                             then throw((("Min payment should be " + az(x, 6)) + " USDT"))
408 411                              else {
409 -                                 let aW = (bG * j)
410 -                                 let bM = ac(invoke(O, "updateAccStats", [A, fraction(h, aW, (25 * x))], nil))
411 -                                 $Tuple2([ScriptTransfer(P, bG, q), ScriptTransfer(bn.caller, aW, U)], $Tuple2(bv, bM))
412 +                                 let aX = (bH * j)
413 +                                 let bN = ad(invoke(P, "updateAccStats", [B, fraction(h, aX, (25 * y))], nil))
414 +                                 $Tuple2([ScriptTransfer(Q, bH, q), ScriptTransfer(bo.caller, aX, V)], $Tuple2(bw, bN))
412 415                                  }
413 416                      }
414 417              }
417 420  
418 421  
419 422  
420 - @Callable(bn)
421 - func sendAcres (d,bu) = if ((bn.caller != P))
423 + @Callable(bo)
424 + func sendAcres (d,bv) = if ((bo.caller != Q))
422 425      then throw("Permission denied")
423 -     else $Tuple2([ScriptTransfer(addressFromStringValue(d), bu, U)], bu)
426 +     else $Tuple2([ScriptTransfer(addressFromStringValue(d), bv, V)], bv)
424 427  
425 428  
426 429  
427 - @Callable(bn)
428 - func sendLockedAcres (d,bu,bN) = if (if ((bn.caller != this))
429 -     then (bn.caller != N)
430 + @Callable(bo)
431 + func sendLockedAcres (d,bv,bO) = if (if ((bo.caller != this))
432 +     then (bo.caller != O)
430 433      else false)
431 434      then throw("Permission denied")
432 435      else {
433 -         let bi = lastBlock.timestamp
434 -         let bw = V(d)
435 -         let bx = c(d)
436 -         let by = valueOrElse(getInteger(bx), 0)
437 -         let bC = valueOrElse(getInteger(g), 0)
438 -         let bO = if (isDefined(getInteger(bw)))
436 +         let bj = lastBlock.timestamp
437 +         let bx = W(d)
438 +         let by = c(d)
439 +         let bz = valueOrElse(getInteger(by), 0)
440 +         let bD = valueOrElse(getInteger(g), 0)
441 +         let bP = if (isDefined(getInteger(bx)))
439 442              then nil
440 -             else [IntegerEntry(bw, bi)]
441 -         let bP = f(d)
442 -         let bQ = e(d)
443 -         let bR = valueOrElse(getInteger(bQ), 0)
444 -         let bS = valueOrElse(getInteger(bP), 0)
445 -         let bT = bd(bR, bS, bu, (bi + (bN * b)))
446 -         $Tuple2(((((bO :+ IntegerEntry(bx, (by + bu))) :+ IntegerEntry(g, (bC + bu))) :+ IntegerEntry(bP, bT)) :+ IntegerEntry(bQ, (bR + bu))), bu)
443 +             else [IntegerEntry(bx, bj)]
444 +         let bQ = f(d)
445 +         let bR = e(d)
446 +         let bS = valueOrElse(getInteger(bR), 0)
447 +         let bT = valueOrElse(getInteger(bQ), 0)
448 +         let bU = be(bS, bT, bv, (bj + (bO * b)))
449 +         $Tuple2(((((bP :+ IntegerEntry(by, (bz + bv))) :+ IntegerEntry(g, (bD + bv))) :+ IntegerEntry(bQ, bU)) :+ IntegerEntry(bR, (bS + bv))), bv)
447 450          }
448 451  
449 452  
450 453  
451 - @Callable(bn)
452 - func burnAcres (bu) = if ((bn.caller != O))
454 + @Callable(bo)
455 + func burnAcres (bv) = if ((bo.caller != P))
453 456      then throw("Permission denied")
454 457      else {
455 -         let bU = (valueOrElse(getInteger(S), 0) - bu)
456 -         if ((0 > bU))
458 +         let bV = (valueOrElse(getInteger(T), 0) - bv)
459 +         if ((0 > bV))
457 460              then throw("Attempt to burn more ACRES, than exists")
458 -             else $Tuple2([Burn(U, bu), IntegerEntry(S, bU)], bu)
461 +             else $Tuple2([Burn(V, bv), IntegerEntry(T, bV)], bv)
459 462          }
460 463  
461 464  
462 465  
463 - @Callable(bn)
466 + @Callable(bo)
464 467  func claimAcres () = {
465 -     let bv = aU()
466 -     if ((bv == bv))
468 +     let bw = aV()
469 +     if ((bw == bw))
467 470          then {
468 -             let A = toString(bn.caller)
469 -             if ((size(bn.payments) != 0))
471 +             let B = toString(bo.caller)
472 +             if ((size(bo.payments) != 0))
470 473                  then throw("No payments required")
471 474                  else {
472 -                     let bw = V(A)
473 -                     let bx = c(A)
474 -                     let aW = valueOrElse(getInteger(bx), 0)
475 -                     let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
476 -                     let bE = bc(A, aW, valueOrElse(getInteger(bw), 0))
477 -                     $Tuple2([IntegerEntry(bw, lastBlock.timestamp), ScriptTransfer(bn.caller, bE, U)], $Tuple2(bv, bD))
475 +                     let bx = W(B)
476 +                     let by = c(B)
477 +                     let aX = valueOrElse(getInteger(by), 0)
478 +                     let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
479 +                     let bF = bd(B, aX, valueOrElse(getInteger(bx), 0))
480 +                     $Tuple2([IntegerEntry(bx, lastBlock.timestamp), ScriptTransfer(bo.caller, bF, V)], $Tuple2(bw, bE))
478 481                      }
479 482              }
480 483          else throw("Strict value is not equal to itself.")
482 485  
483 486  
484 487  
485 - @Callable(bn)
486 - func claimAcresREADONLY (A) = {
487 -     let bw = V(A)
488 -     let bx = c(A)
489 -     let aW = valueOrElse(getInteger(bx), 0)
490 -     let bV = valueOrElse(getInteger(bw), 0)
491 -     let bE = aV(A, aW, bV)
492 -     $Tuple2(nil, [bE, bV])
488 + @Callable(bo)
489 + func claimAcresREADONLY (B) = {
490 +     let bx = W(B)
491 +     let by = c(B)
492 +     let aX = valueOrElse(getInteger(by), 0)
493 +     let bW = valueOrElse(getInteger(bx), 0)
494 +     let bF = aW(B, aX, bW)
495 +     $Tuple2(nil, [bF, bW])
493 496      }
494 497  
495 498  
496 499  
497 - @Callable(bn)
500 + @Callable(bo)
498 501  func claimPromo2 () = {
499 -     let bv = aU()
500 -     if ((bv == bv))
502 +     let bw = aV()
503 +     if ((bw == bw))
501 504          then {
502 -             let A = toString(bn.caller)
503 -             if ((size(bn.payments) != 0))
505 +             let B = toString(bo.caller)
506 +             if ((size(bo.payments) != 0))
504 507                  then throw("No payments required")
505 508                  else {
506 -                     let bi = lastBlock.timestamp
507 -                     if ((aP > bi))
509 +                     let bj = lastBlock.timestamp
510 +                     if ((aQ > bj))
508 511                          then throw("Promo 2 is not over yet")
509 512                          else {
510 -                             let bW = k(2, A)
511 -                             if (valueOrElse(getBoolean(bW), false))
512 -                                 then throw((("Your wallet " + A) + " is already awarded in promo 2"))
513 +                             let bX = k(2, B)
514 +                             if (valueOrElse(getBoolean(bX), false))
515 +                                 then throw((("Your wallet " + B) + " is already awarded in promo 2"))
513 516                                  else {
514 -                                     let bI = valueOrElse(getString(t), "")
515 -                                     if (!(contains(bI, A)))
517 +                                     let bJ = valueOrElse(getString(t), "")
518 +                                     if (!(contains(bJ, B)))
516 519                                          then throw("You are not participant of promo 2")
517 520                                          else {
518 -                                             let bK = split_51C(bI, A)
519 -                                             let aW = parseIntValue(take(drop(bK[1], 1), 14))
520 -                                             let bX = (aW / aL)
521 -                                             let bY = valueOrElse(getInteger(m(2)), 0)
522 -                                             let bZ = if ((bY == 0))
521 +                                             let bL = split_51C(bJ, B)
522 +                                             let aX = parseIntValue(take(drop(bL[1], 1), 14))
523 +                                             let bY = (aX / aM)
524 +                                             let bZ = valueOrElse(getInteger(m(2)), 0)
525 +                                             let ca = if ((bZ == 0))
523 526                                                  then {
524 -                                                     func ca (an,cb) =                                                     (an + (parseIntValue(split(cb, ":")[1]) / aL))
527 +                                                     func cb (ao,cc) =                                                     (ao + (parseIntValue(split(cc, ":")[1]) / aM))
525 528  
526 -                                                     let cc = {
527 -                                                         let aq = split_51C(bI, "_")
528 -                                                         let ar = size(aq)
529 -                                                         let as = 0
530 -                                                         func at (au,av) =                                                         if ((av >= ar))
531 -                                                             then au
532 -                                                             else ca(au, aq[av])
529 +                                                     let cd = {
530 +                                                         let ar = split_51C(bJ, "_")
531 +                                                         let as = size(ar)
532 +                                                         let at = 0
533 +                                                         func au (av,aw) =                                                         if ((aw >= as))
534 +                                                             then av
535 +                                                             else cb(av, ar[aw])
533 536  
534 -                                                         func aw (au,av) =                                                         if ((av >= ar))
535 -                                                             then au
537 +                                                         func ax (av,aw) =                                                         if ((aw >= as))
538 +                                                             then av
536 539                                                              else throw("List size exceeds 50")
537 540  
538 -                                                         aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 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)
541 +                                                         ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 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)
539 542                                                          }
540 -                                                     $Tuple2([IntegerEntry(m(2), cc), IntegerEntry(n(2, 1), cc)], cc)
543 +                                                     $Tuple2([IntegerEntry(m(2), cd), IntegerEntry(n(2, 1), cd)], cd)
541 544                                                      }
542 -                                                 else $Tuple2(nil, bY)
543 -                                             let cd = bZ._1
544 -                                             let ce = bZ._2
545 -                                             let cf = fraction(aQ, bX, ce)
546 -                                             let bH = invoke(this, "sendLockedAcres", [A, cf, 30], nil)
547 -                                             $Tuple2(((cd :+ BooleanEntry(bW, true)) :+ StringEntry(u(1), bI)), bH)
545 +                                                 else $Tuple2(nil, bZ)
546 +                                             let ce = ca._1
547 +                                             let cf = ca._2
548 +                                             let cg = fraction(aR, bY, cf)
549 +                                             let bI = invoke(this, "sendLockedAcres", [B, cg, 30], nil)
550 +                                             $Tuple2(((ce :+ BooleanEntry(bX, true)) :+ StringEntry(u(1), bJ)), bI)
548 551                                              }
549 552                                      }
550 553                              }
555 558  
556 559  
557 560  
558 - @Callable(bn)
559 - func commitForPromo2Round (o) = if ((bn.caller != this))
561 + @Callable(bo)
562 + func initPromo3 (ch) = if ((bo.caller != this))
563 +     then throw("Permission denied")
564 +     else {
565 +         func cb (ao,cc) =         (ao + parseIntValue(split(cc, ":")[1]))
566 + 
567 +         let ci = {
568 +             let ar = split_51C(ch, "_")
569 +             let as = size(ar)
570 +             let at = 0
571 +             func au (av,aw) =             if ((aw >= as))
572 +                 then av
573 +                 else cb(av, ar[aw])
574 + 
575 +             func ax (av,aw) =             if ((aw >= as))
576 +                 then av
577 +                 else throw("List size exceeds 20")
578 + 
579 +             ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
580 +             }
581 +         $Tuple2([IntegerEntry(n(3, 1), ci), StringEntry(v(1), ch)], ci)
582 +         }
583 + 
584 + 
585 + 
586 + @Callable(bo)
587 + func commitForPromo3Round (o) = if ((bo.caller != this))
560 588      then throw("Permission denied")
561 589      else if (if ((1 > o))
562 590          then true
563 -         else (o > 4))
591 +         else (o > 2))
564 592          then throw(("Invalid roundId: " + toString(o)))
565 593          else {
566 -             let cg = (height + X)
567 -             $Tuple2([IntegerEntry(Y(("2_" + toString(o))), cg)], cg)
594 +             let cj = (height + Y)
595 +             $Tuple2([IntegerEntry(Z(("3_" + toString(o))), cj)], cj)
568 596              }
569 597  
570 598  
571 599  
572 - @Callable(bn)
573 - func drawPromo2Round (o) = if ((bn.caller != this))
600 + @Callable(bo)
601 + func drawPromo3Round (o) = if ((bo.caller != this))
574 602      then throw("Permission denied")
575 603      else if (if ((1 > o))
576 604          then true
577 -         else (o > 4))
605 +         else (o > 2))
578 606          then throw(("Invalid roundId: " + toString(o)))
579 607          else {
580 -             let ch = Y(("2_" + toString(o)))
581 -             let cg = valueOrErrorMessage(getInteger(ch), (("You have to commitForPromo2Round(" + toString(o)) + ") first!"))
582 -             if ((cg > height))
583 -                 then throw((((("Random number is not ready yet, wait until height = " + toString(cg)) + " (current height = ") + toString(height)) + ")"))
608 +             let ck = Z(("3_" + toString(o)))
609 +             let cj = valueOrErrorMessage(getInteger(ck), (("You have to commitForPromo3Round(" + toString(o)) + ") first!"))
610 +             if ((cj > height))
611 +                 then throw((((("Random number is not ready yet, wait until height = " + toString(cj)) + " (current height = ") + toString(height)) + ")"))
584 612                  else {
585 -                     let aH = valueOrElse(getInteger(n(2, o)), 0)
586 -                     if ((aH == 0))
587 -                         then throw("No tickets to draw (was claimPromo2() called at least once?)")
613 +                     let aI = valueOrElse(getInteger(n(3, o)), 0)
614 +                     if ((aI == 0))
615 +                         then throw("No tickets to draw")
588 616                          else {
589 -                             let aJ = value(value(blockInfoByHeight(cg)).vrf)
590 -                             let aI = bn.transactionId
591 -                             let bI = valueOrElse(getString(u(o)), "")
592 -                             func ci (cj,ck) =                             if ((ck >= aR[(o - 1)]))
593 -                                 then cj
617 +                             let aK = value(value(blockInfoByHeight(cj)).vrf)
618 +                             let aJ = bo.transactionId
619 +                             let ch = valueOrElse(getString(v(o)), "")
620 +                             func cl (cm,cn) =                             if ((cn >= aS[(o - 1)]))
621 +                                 then cm
594 622                                  else {
595 -                                     let cl = aG(cj._1, cj._2, aJ)
596 -                                     let cm = if ((cj._3 == ""))
623 +                                     let co = aH(cm._1, cm._2, aK)
624 +                                     let cp = if ((cm._3 == ""))
597 625                                          then nil
598 -                                         else split_51C(cj._3, "_")
599 -                                     func ca (an,cb) =                                     {
600 -                                         let bK = split(cb, ":")
601 -                                         let d = bK[0]
602 -                                         let bX = (parseIntValue(bK[1]) / aL)
603 -                                         let cn = (an._1 + bX)
604 -                                         if (if ((an._3 == ""))
605 -                                             then (cn > cl)
626 +                                         else split_51C(cm._3, "_")
627 +                                     func cb (ao,cc) =                                     {
628 +                                         let bL = split(cc, ":")
629 +                                         let d = bL[0]
630 +                                         let bY = parseIntValue(bL[1])
631 +                                         let cq = (ao._1 + bY)
632 +                                         if (if ((ao._3 == ""))
633 +                                             then (cq > co)
606 634                                              else false)
607 -                                             then $Tuple3(cn, bX, d)
608 -                                             else $Tuple3(cn, an._2, an._3)
635 +                                             then $Tuple3(cq, bY, d)
636 +                                             else $Tuple3(cq, ao._2, ao._3)
609 637                                          }
610 638  
611 -                                     let co = {
612 -                                         let aq = cm
613 -                                         let ar = size(aq)
614 -                                         let as = $Tuple3(0, 0, "")
615 -                                         func at (au,av) =                                         if ((av >= ar))
616 -                                             then au
617 -                                             else ca(au, aq[av])
639 +                                     let cr = {
640 +                                         let ar = cp
641 +                                         let as = size(ar)
642 +                                         let at = $Tuple3(0, 0, "")
643 +                                         func au (av,aw) =                                         if ((aw >= as))
644 +                                             then av
645 +                                             else cb(av, ar[aw])
618 646  
619 -                                         func aw (au,av) =                                         if ((av >= ar))
620 -                                             then au
621 -                                             else throw("List size exceeds 50")
647 +                                         func ax (av,aw) =                                         if ((aw >= as))
648 +                                             then av
649 +                                             else throw("List size exceeds 20")
622 650  
623 -                                         aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 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)
651 +                                         ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
624 652                                          }
625 -                                     let cp = co._3
626 -                                     if ((cp == ""))
627 -                                         then cj
653 +                                     let cs = cr._3
654 +                                     if ((cs == ""))
655 +                                         then cm
628 656                                          else {
629 -                                             let cq = split_51C(cj._3, cp)
630 -                                             let cr = if ((cq[0] == ""))
631 -                                                 then drop(cq[1], 16)
632 -                                                 else (dropRight(cq[0], 1) + drop(cq[1], 15))
633 -                                             let bH = invoke(this, "sendLockedAcres", [cp, aS[(o - 1)], 30], nil)
634 -                                             $Tuple4((cj._1 - co._2), fromBase58String(getStringValue(O, ai(cp))), cr, (cj._4 :+ bH))
657 +                                             let ct = split_51C(cm._3, cs)
658 +                                             let cu = if ((ct[0] == ""))
659 +                                                 then drop(ct[1], 4)
660 +                                                 else (dropRight(ct[0], 1) + drop(ct[1], 3))
661 +                                             let bI = invoke(this, "sendLockedAcres", [cs, aT[(o - 1)], 30], nil)
662 +                                             let cv = fromBase58String(valueOrElse(getString(P, aj(cs)), "DEFAULT"))
663 +                                             $Tuple4((cm._1 - cr._2), cv, cu, (cm._4 :+ bI))
635 664                                              }
636 665                                      }
637 666  
638 -                             let cs = {
639 -                                 let aq = y
640 -                                 let ar = size(aq)
641 -                                 let as = $Tuple4(aH, bn.transactionId, bI, nil)
642 -                                 func at (au,av) =                                 if ((av >= ar))
643 -                                     then au
644 -                                     else ci(au, aq[av])
667 +                             let cw = {
668 +                                 let ar = z
669 +                                 let as = size(ar)
670 +                                 let at = $Tuple4(aI, bo.transactionId, ch, nil)
671 +                                 func au (av,aw) =                                 if ((aw >= as))
672 +                                     then av
673 +                                     else cl(av, ar[aw])
645 674  
646 -                                 func aw (au,av) =                                 if ((av >= ar))
647 -                                     then au
648 -                                     else throw("List size exceeds 20")
675 +                                 func ax (av,aw) =                                 if ((aw >= as))
676 +                                     then av
677 +                                     else throw("List size exceeds 6")
649 678  
650 -                                 aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
679 +                                 ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
651 680                                  }
652 -                             $Tuple2([DeleteEntry(ch), StringEntry(u((o + 1)), cs._3), IntegerEntry(n(2, (o + 1)), cs._1)], cs._4)
681 +                             $Tuple2([DeleteEntry(ck), StringEntry(v((o + 1)), cw._3), IntegerEntry(n(3, (o + 1)), cw._1)], cw._4)
653 682                              }
654 683                      }
655 684              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = 100000000000000
5 5  
6 6  let b = 86400000
7 7  
8 8  func c (d) = ("acresStakedAmountByUser_" + d)
9 9  
10 10  
11 11  func e (d) = ("acresLockedAmountByUser_" + d)
12 12  
13 13  
14 14  func f (d) = ("acresLockedEtaByUser_" + d)
15 15  
16 16  
17 17  let g = "acresStakedAmountTotal"
18 18  
19 19  let h = 5000000
20 20  
21 21  let i = 3456000
22 22  
23 23  let j = 10
24 24  
25 25  func k (l,d) = makeString(["%s%d%s__isAwardedByPromoAndUser", toString(l), d], "__")
26 26  
27 27  
28 28  func m (l) = ("%s%d__ticketsTotalByPromo__" + toString(l))
29 29  
30 30  
31 31  func n (l,o) = makeString(["%s%d%d__ticketsTotalByPromoAndRound", toString(l), toString(o)], "__")
32 32  
33 33  
34 34  let p = take(drop(this.bytes, 1), 1)
35 35  
36 36  let q = {
37 37      let r = p
38 38      if ((base58'2W' == r))
39 39          then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
40 40          else if ((base58'2T' == r))
41 41              then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
42 42              else throw("Unknown chain")
43 43      }
44 44  
45 45  let s = {
46 46      let r = p
47 47      if ((base58'2W' == r))
48 48          then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
49 49          else if ((base58'2T' == r))
50 50              then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
51 51              else throw("Unknown chain")
52 52      }
53 53  
54 54  let t = "promo2Map"
55 55  
56 56  func u (o) = ("promo2MapForRound__" + toString(o))
57 57  
58 58  
59 - let v = "__"
60 - 
61 - let w = 1000000
62 - 
63 - let x = 100000000
64 - 
65 - let y = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
66 - 
67 - func z (A,B) = valueOrErrorMessage(getString(A, B), makeString(["mandatory ", toString(A), ".", B, " is not defined"], ""))
59 + func v (o) = ("promo3MapForRound__" + toString(o))
68 60  
69 61  
70 - let C = 1
62 + let w = "__"
71 63  
72 - let D = 2
64 + let x = 1000000
73 65  
74 - let E = 4
66 + let y = 100000000
75 67  
76 - let F = 8
68 + let z = [0, 1, 2, 3, 4, 5]
77 69  
78 - func G () = "%s__restConfig"
70 + func A (B,C) = valueOrErrorMessage(getString(B, C), makeString(["mandatory ", toString(B), ".", C, " is not defined"], ""))
79 71  
80 72  
81 - func H () = "%s__restAddr"
73 + let D = 1
74 + 
75 + let E = 2
76 + 
77 + let F = 4
78 + 
79 + let G = 8
80 + 
81 + func H () = "%s__restConfig"
82 82  
83 83  
84 - func I (J) = split_4C(z(J, G()), v)
84 + func I () = "%s__restAddr"
85 85  
86 86  
87 - func K (L,M) = valueOrErrorMessage(addressFromString(L[M]), ("Rest cfg doesn't contain address at index " + toString(M)))
87 + func J (K) = split_4C(A(K, H()), w)
88 88  
89 89  
90 - let N = addressFromStringValue(valueOrElse(getString(this, H()), s))
91 - 
92 - let L = I(N)
93 - 
94 - let O = K(L, C)
95 - 
96 - let P = K(L, D)
97 - 
98 - let Q = K(L, E)
99 - 
100 - let R = K(L, F)
101 - 
102 - let S = "acresIssuedAmount"
103 - 
104 - let T = "acresAssetId"
105 - 
106 - let U = valueOrErrorMessage(getBinary(R, T), "ACRES is not issued yet")
107 - 
108 - func V (d) = ("acresStakedTimeByUser_" + d)
90 + func L (M,N) = valueOrErrorMessage(addressFromString(M[N]), ("Rest cfg doesn't contain address at index " + toString(N)))
109 91  
110 92  
111 - let W = 0
93 + let O = addressFromStringValue(valueOrElse(getString(this, I()), s))
112 94  
113 - let X = 2
95 + let M = J(O)
114 96  
115 - func Y (A) = ("finishBlockFor_" + A)
97 + let P = L(M, D)
98 + 
99 + let Q = L(M, E)
100 + 
101 + let R = L(M, F)
102 + 
103 + let S = L(M, G)
104 + 
105 + let T = "acresIssuedAmount"
106 + 
107 + let U = "acresAssetId"
108 + 
109 + let V = valueOrErrorMessage(getBinary(S, U), "ACRES is not issued yet")
110 + 
111 + func W (d) = ("acresStakedTimeByUser_" + d)
116 112  
117 113  
118 - func Z () = "resTypesProportions"
114 + let X = 0
115 + 
116 + let Y = 2
117 + 
118 + func Z (B) = ("finishBlockFor_" + B)
119 119  
120 120  
121 - func aa (ab) = ("stakedPiecesByOwner_" + ab)
121 + func aa () = "resTypesProportions"
122 122  
123 123  
124 - func ac (ad) = {
125 -     let r = ad
124 + func ab (ac) = ("stakedPiecesByOwner_" + ac)
125 + 
126 + 
127 + func ad (ae) = {
128 +     let r = ae
126 129      if ($isInstanceOf(r, "Int"))
127 130          then {
128 -             let ae = r
129 -             ae
131 +             let af = r
132 +             af
130 133              }
131 134          else throw("fail to cast into Int")
132 135      }
133 136  
134 137  
135 - func af (ag) = {
136 -     let r = ag
138 + func ag (ah) = {
139 +     let r = ah
137 140      if ($isInstanceOf(r, "(Int, Int)"))
138 141          then {
139 -             let ah = r
140 -             ah
142 +             let ai = r
143 +             ai
141 144              }
142 145          else throw("fail to cast into (Int, Int)")
143 146      }
144 147  
145 148  
146 - func ai (d) = ("lastTxIdByUser_" + d)
149 + func aj (d) = ("lastTxIdByUser_" + d)
147 150  
148 151  
149 - func aj (ak) = {
150 -     let al = split(valueOrElse(getString(O, Z()), "0_0_0_0_0_0"), "_")
151 -     func am (an,ao) =     (an + parseIntValue(ao))
152 + func ak (al) = {
153 +     let am = split(valueOrElse(getString(P, aa()), "0_0_0_0_0_0"), "_")
154 +     func an (ao,ap) =     (ao + parseIntValue(ap))
152 155  
153 -     let ap = {
154 -         let aq = al
155 -         let ar = size(aq)
156 -         let as = 0
157 -         func at (au,av) =         if ((av >= ar))
158 -             then au
159 -             else am(au, aq[av])
156 +     let aq = {
157 +         let ar = am
158 +         let as = size(ar)
159 +         let at = 0
160 +         func au (av,aw) =         if ((aw >= as))
161 +             then av
162 +             else an(av, ar[aw])
160 163  
161 -         func aw (au,av) =         if ((av >= ar))
162 -             then au
164 +         func ax (av,aw) =         if ((aw >= as))
165 +             then av
163 166              else throw("List size exceeds 6")
164 167  
165 -         aw(at(at(at(at(at(at(as, 0), 1), 2), 3), 4), 5), 6)
168 +         ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
166 169          }
167 -     let ax = valueOrElse(getInteger(O, aa(ak)), 0)
168 - [ap, ax]
170 +     let ay = valueOrElse(getInteger(P, ab(al)), 0)
171 + [aq, ay]
169 172      }
170 173  
171 174  
172 - func ay (ag,az) = {
173 -     let aA = pow(10, 0, az, 0, 0, DOWN)
174 -     let aB = toString((ag % aA))
175 -     let aC = drop(toString(aA), (1 + size(aB)))
176 -     (((toString((ag / aA)) + ".") + aC) + aB)
175 + func az (ah,aA) = {
176 +     let aB = pow(10, 0, aA, 0, 0, DOWN)
177 +     let aC = toString((ah % aB))
178 +     let aD = drop(toString(aB), (1 + size(aC)))
179 +     (((toString((ah / aB)) + ".") + aD) + aC)
177 180      }
178 181  
179 182  
180 - func aD (ag,aE) = {
181 -     let aF = toString(ag)
182 -     let aC = drop(toString(pow(10, 0, (aE - size(aF)), 0, 0, DOWN)), 1)
183 -     (aC + aF)
183 + func aE (ah,aF) = {
184 +     let aG = toString(ah)
185 +     let aD = drop(toString(pow(10, 0, (aF - size(aG)), 0, 0, DOWN)), 1)
186 +     (aD + aG)
184 187      }
185 188  
186 189  
187 - func aG (aH,aI,aJ) = if ((0 >= aH))
190 + func aH (aI,aJ,aK) = if ((0 >= aI))
188 191      then throw("maxValue should be > 0")
189 192      else {
190 -         let aK = sha256((aI + aJ))
191 -         (toInt(aK) % aH)
193 +         let aL = sha256((aJ + aK))
194 +         (toInt(aL) % aI)
192 195          }
193 196  
194 197  
195 - let aL = 10000000
198 + let aM = 10000000
196 199  
197 - let aM = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
200 + let aN = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
198 201  
199 - let aN = 4970178
202 + let aO = 4970178
200 203  
201 - let aO = {
204 + let aP = {
202 205      let r = p
203 206      if ((base58'2W' == r))
204 207          then 1700524800000
205 208          else if ((base58'2T' == r))
206 209              then 1700420400000
207 210              else throw("Unknown chain")
208 211      }
209 212  
210 - let aP = {
213 + let aQ = {
211 214      let r = p
212 215      if ((base58'2W' == r))
213 216          then 1701043199999
214 217          else if ((base58'2T' == r))
215 218              then 1700496000000
216 219              else throw("Unknown chain")
217 220      }
218 221  
219 - let aQ = 1000000000
222 + let aR = 1000000000
220 223  
221 - let aR = [1, 3, 5, 20]
224 + let aS = [1, 5]
222 225  
223 - let aS = [500000000, 200000000, 100000000, 20000000]
226 + let aT = [500000000, 100000000]
224 227  
225 - func aT (d) = contains(aM, d)
228 + func aU (d) = contains(aN, d)
226 229  
227 230  
228 - func aU () = ac(reentrantInvoke(O, "saveLastTx", nil, nil))
231 + func aV () = ad(reentrantInvoke(P, "saveLastTx", nil, nil))
229 232  
230 233  
231 - func aV (d,aW,aX) = {
232 -     let aY = (lastBlock.timestamp - aX)
233 -     let aZ = fraction(aY, (i * aW), (b * x))
234 -     let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
235 -     let bb = max([0, ba])
236 -     (bb * j)
234 + func aW (d,aX,aY) = {
235 +     let aZ = (lastBlock.timestamp - aY)
236 +     let ba = fraction(aZ, (i * aX), (b * y))
237 +     let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
238 +     let bc = max([0, bb])
239 +     (bc * j)
237 240      }
238 241  
239 242  
240 - func bc (d,aW,aX) = {
241 -     let aY = (lastBlock.timestamp - aX)
242 -     if ((0 > aY))
243 -         then throw(((("Saved timestamp is in future, saved = " + toString(aX)) + ", current = ") + toString(lastBlock.timestamp)))
243 + func bd (d,aX,aY) = {
244 +     let aZ = (lastBlock.timestamp - aY)
245 +     if ((0 > aZ))
246 +         then throw(((("Saved timestamp is in future, saved = " + toString(aY)) + ", current = ") + toString(lastBlock.timestamp)))
244 247          else {
245 -             let aZ = fraction(aY, (i * aW), (b * x))
246 -             let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
247 -             let bb = if ((0 >= ba))
248 +             let ba = fraction(aZ, (i * aX), (b * y))
249 +             let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
250 +             let bc = if ((0 >= bb))
248 251                  then 0
249 -                 else af(invoke(P, "sellResourcesWorld", [d, aZ], nil))._1
250 -             (bb * j)
252 +                 else ag(invoke(Q, "sellResourcesWorld", [d, ba], nil))._1
253 +             (bc * j)
251 254              }
252 255      }
253 256  
254 257  
255 - func bd (be,bf,bg,bh) = {
256 -     let bi = lastBlock.timestamp
257 -     let bj = max([0, (bf - bi)])
258 -     let bk = max([0, (bh - bi)])
259 -     let bl = (be + bg)
260 -     let bm = if ((bl == 0))
258 + func be (bf,bg,bh,bi) = {
259 +     let bj = lastBlock.timestamp
260 +     let bk = max([0, (bg - bj)])
261 +     let bl = max([0, (bi - bj)])
262 +     let bm = (bf + bh)
263 +     let bn = if ((bm == 0))
261 264          then 0
262 -         else (fraction(bj, be, bl) + fraction(bk, bg, bl))
263 -     (bi + bm)
265 +         else (fraction(bk, bf, bm) + fraction(bl, bh, bm))
266 +     (bj + bn)
264 267      }
265 268  
266 269  
267 - @Callable(bn)
268 - func constructorV1 (bo,bp) = if ((bn.caller != this))
270 + @Callable(bo)
271 + func constructorV1 (bp,bq) = if ((bo.caller != this))
269 272      then throw("Permission denied")
270 -     else if (isDefined(getBinary(T)))
273 +     else if (isDefined(getBinary(U)))
271 274          then throw("Already initialized")
272 275          else {
273 -             let bq = (aj("")[W] + bp)
274 -             let br = (a - (bq * x))
275 -             let bs = Issue("ACRES", "WavesLands land acres investment token", br, 8, false, unit, 0)
276 -             let bt = calculateAssetId(bs)
277 - [bs, IntegerEntry(S, br), BinaryEntry(T, bt), StringEntry(H(), bo)]
276 +             let br = (ak("")[X] + bq)
277 +             let bs = (a - (br * y))
278 +             let bt = Issue("ACRES", "WavesLands land acres investment token", bs, 8, false, unit, 0)
279 +             let bu = calculateAssetId(bt)
280 + [bt, IntegerEntry(T, bs), BinaryEntry(U, bu), StringEntry(I(), bp)]
278 281              }
279 282  
280 283  
281 284  
282 - @Callable(bn)
283 - func unstakeAcres (bu) = {
284 -     let bv = aU()
285 -     if ((bv == bv))
286 -         then if ((0 >= bu))
285 + @Callable(bo)
286 + func unstakeAcres (bv) = {
287 +     let bw = aV()
288 +     if ((bw == bw))
289 +         then if ((0 >= bv))
287 290              then throw("Amount should be positive")
288 291              else {
289 -                 let A = toString(bn.caller)
290 -                 if ((size(bn.payments) != 0))
292 +                 let B = toString(bo.caller)
293 +                 if ((size(bo.payments) != 0))
291 294                      then throw("No payments required")
292 295                      else {
293 -                         let bw = V(A)
294 -                         let bx = c(A)
295 -                         let by = valueOrElse(getInteger(bx), 0)
296 -                         if ((bu > by))
297 -                             then throw(((("You have only " + ay(by, 8)) + " ACRES staked, tried to unstake ") + ay(bu, 8)))
296 +                         let bx = W(B)
297 +                         let by = c(B)
298 +                         let bz = valueOrElse(getInteger(by), 0)
299 +                         if ((bv > bz))
300 +                             then throw(((("You have only " + az(bz, 8)) + " ACRES staked, tried to unstake ") + az(bv, 8)))
298 301                              else {
299 -                                 let bz = valueOrElse(getInteger(e(A)), 0)
300 -                                 let bA = valueOrElse(getInteger(f(A)), 0)
301 -                                 let bi = lastBlock.timestamp
302 -                                 if (if ((bi >= aO))
303 -                                     then (aP >= bi)
302 +                                 let bA = valueOrElse(getInteger(e(B)), 0)
303 +                                 let bB = valueOrElse(getInteger(f(B)), 0)
304 +                                 let bj = lastBlock.timestamp
305 +                                 if (if ((bj >= aP))
306 +                                     then (aQ >= bj)
304 307                                      else false)
305 308                                      then throw("You cannot unstake ACRES during Promo2")
306 309                                      else {
307 -                                         let bB = if (aT(A))
308 -                                             then ((by - bz) - aN)
309 -                                             else (by - bz)
310 -                                         if (if ((bA > bi))
311 -                                             then (bu > bB)
310 +                                         let bC = if (aU(B))
311 +                                             then ((bz - bA) - aO)
312 +                                             else (bz - bA)
313 +                                         if (if ((bB > bj))
314 +                                             then (bv > bC)
312 315                                              else false)
313 -                                             then throw(((("Only " + ay(bB, 8)) + " ACRES can be unstaked now, wait until ") + toString(bA)))
316 +                                             then throw(((("Only " + az(bC, 8)) + " ACRES can be unstaked now, wait until ") + toString(bB)))
314 317                                              else {
315 -                                                 let bC = valueOrElse(getInteger(g), 0)
316 -                                                 let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
317 -                                                 let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
318 -                                                 $Tuple2([IntegerEntry(bw, lastBlock.timestamp), IntegerEntry(bx, (by - bu)), IntegerEntry(g, (bC - bu)), ScriptTransfer(bn.caller, (bu + bE), U)], $Tuple2(bv, bD))
318 +                                                 let bD = valueOrElse(getInteger(g), 0)
319 +                                                 let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
320 +                                                 let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
321 +                                                 $Tuple2([IntegerEntry(bx, lastBlock.timestamp), IntegerEntry(by, (bz - bv)), IntegerEntry(g, (bD - bv)), ScriptTransfer(bo.caller, (bv + bF), V)], $Tuple2(bw, bE))
319 322                                                  }
320 323                                          }
321 324                                  }
322 325                          }
323 326                  }
324 327          else throw("Strict value is not equal to itself.")
325 328      }
326 329  
327 330  
328 331  
329 - @Callable(bn)
332 + @Callable(bo)
330 333  func stakeAcres () = {
331 -     let bv = aU()
332 -     if ((bv == bv))
334 +     let bw = aV()
335 +     if ((bw == bw))
333 336          then {
334 -             let A = toString(bn.caller)
335 -             if ((size(bn.payments) != 1))
337 +             let B = toString(bo.caller)
338 +             if ((size(bo.payments) != 1))
336 339                  then throw("exactly 1 payment must be attached")
337 340                  else {
338 -                     let bF = bn.payments[0]
339 -                     let bG = bF.amount
340 -                     if (if (!(isDefined(bF.assetId)))
341 +                     let bG = bo.payments[0]
342 +                     let bH = bG.amount
343 +                     if (if (!(isDefined(bG.assetId)))
341 344                          then true
342 -                         else (value(bF.assetId) != U))
345 +                         else (value(bG.assetId) != V))
343 346                          then throw("ACRES payments only!")
344 347                          else {
345 -                             let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
346 -                             if ((bD == bD))
348 +                             let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
349 +                             if ((bE == bE))
347 350                                  then {
348 -                                     let bi = lastBlock.timestamp
349 -                                     if (if ((aO > bi))
351 +                                     let bj = lastBlock.timestamp
352 +                                     if (if ((aP > bj))
350 353                                          then true
351 -                                         else (bi > aP))
354 +                                         else (bj > aQ))
352 355                                          then {
353 -                                             let bw = V(A)
354 -                                             let bx = c(A)
355 -                                             let by = valueOrElse(getInteger(bx), 0)
356 -                                             let bC = valueOrElse(getInteger(g), 0)
357 -                                             let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
358 -                                             $Tuple2(((((if ((bE == 0))
356 +                                             let bx = W(B)
357 +                                             let by = c(B)
358 +                                             let bz = valueOrElse(getInteger(by), 0)
359 +                                             let bD = valueOrElse(getInteger(g), 0)
360 +                                             let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
361 +                                             $Tuple2(((((if ((bF == 0))
359 362                                                  then nil
360 -                                                 else [ScriptTransfer(bn.caller, bE, U)]) :+ IntegerEntry(bw, lastBlock.timestamp)) :+ IntegerEntry(bx, (by + bG))) :+ IntegerEntry(g, (bC + bG))), $Tuple2(bv, bD))
363 +                                                 else [ScriptTransfer(bo.caller, bF, V)]) :+ IntegerEntry(bx, lastBlock.timestamp)) :+ IntegerEntry(by, (bz + bH))) :+ IntegerEntry(g, (bD + bH))), $Tuple2(bw, bE))
361 364                                              }
362 -                                         else if ((aL > bG))
363 -                                             then throw((("Min staked amount during promo action should be at least " + ay(aL, 8)) + " ACRES"))
365 +                                         else if ((aM > bH))
366 +                                             then throw((("Min staked amount during promo action should be at least " + az(aM, 8)) + " ACRES"))
364 367                                              else {
365 -                                                 let bH = invoke(this, "sendLockedAcres", [A, bG, 30], nil)
366 -                                                 let bI = valueOrElse(getString(t), "")
367 -                                                 let bJ = if (contains(bI, A))
368 +                                                 let bI = invoke(this, "sendLockedAcres", [B, bH, 30], nil)
369 +                                                 let bJ = valueOrElse(getString(t), "")
370 +                                                 let bK = if (contains(bJ, B))
368 371                                                      then {
369 -                                                         let bK = split_51C(bI, A)
370 -                                                         let be = parseIntValue(take(drop(bK[1], 1), 14))
371 -                                                         ((((bK[0] + A) + ":") + aD((be + bG), 14)) + drop(bK[1], 15))
372 +                                                         let bL = split_51C(bJ, B)
373 +                                                         let bf = parseIntValue(take(drop(bL[1], 1), 14))
374 +                                                         ((((bL[0] + B) + ":") + aE((bf + bH), 14)) + drop(bL[1], 15))
372 375                                                          }
373 376                                                      else {
374 -                                                         let bL = ((A + ":") + aD(bG, 14))
375 -                                                         if ((bI == ""))
376 -                                                             then bL
377 -                                                             else ((bI + "_") + bL)
377 +                                                         let bM = ((B + ":") + aE(bH, 14))
378 +                                                         if ((bJ == ""))
379 +                                                             then bM
380 +                                                             else ((bJ + "_") + bM)
378 381                                                          }
379 -                                                 $Tuple2([StringEntry(t, bJ)], $Tuple3(bv, bD, bH))
382 +                                                 $Tuple2([StringEntry(t, bK)], $Tuple3(bw, bE, bI))
380 383                                                  }
381 384                                      }
382 385                                  else throw("Strict value is not equal to itself.")
383 386                              }
384 387                      }
385 388              }
386 389          else throw("Strict value is not equal to itself.")
387 390      }
388 391  
389 392  
390 393  
391 - @Callable(bn)
394 + @Callable(bo)
392 395  func buyAcres () = {
393 -     let bv = aU()
394 -     if ((bv == bv))
396 +     let bw = aV()
397 +     if ((bw == bw))
395 398          then {
396 -             let A = toString(bn.caller)
397 -             if ((size(bn.payments) != 1))
399 +             let B = toString(bo.caller)
400 +             if ((size(bo.payments) != 1))
398 401                  then throw("exactly 1 payment must be attached")
399 402                  else {
400 -                     let bF = bn.payments[0]
401 -                     let bG = bF.amount
402 -                     if (if (!(isDefined(bF.assetId)))
403 +                     let bG = bo.payments[0]
404 +                     let bH = bG.amount
405 +                     if (if (!(isDefined(bG.assetId)))
403 406                          then true
404 -                         else (value(bF.assetId) != q))
407 +                         else (value(bG.assetId) != q))
405 408                          then throw("USDT payments only!")
406 -                         else if ((w > bG))
407 -                             then throw((("Min payment should be " + ay(w, 6)) + " USDT"))
409 +                         else if ((x > bH))
410 +                             then throw((("Min payment should be " + az(x, 6)) + " USDT"))
408 411                              else {
409 -                                 let aW = (bG * j)
410 -                                 let bM = ac(invoke(O, "updateAccStats", [A, fraction(h, aW, (25 * x))], nil))
411 -                                 $Tuple2([ScriptTransfer(P, bG, q), ScriptTransfer(bn.caller, aW, U)], $Tuple2(bv, bM))
412 +                                 let aX = (bH * j)
413 +                                 let bN = ad(invoke(P, "updateAccStats", [B, fraction(h, aX, (25 * y))], nil))
414 +                                 $Tuple2([ScriptTransfer(Q, bH, q), ScriptTransfer(bo.caller, aX, V)], $Tuple2(bw, bN))
412 415                                  }
413 416                      }
414 417              }
415 418          else throw("Strict value is not equal to itself.")
416 419      }
417 420  
418 421  
419 422  
420 - @Callable(bn)
421 - func sendAcres (d,bu) = if ((bn.caller != P))
423 + @Callable(bo)
424 + func sendAcres (d,bv) = if ((bo.caller != Q))
422 425      then throw("Permission denied")
423 -     else $Tuple2([ScriptTransfer(addressFromStringValue(d), bu, U)], bu)
426 +     else $Tuple2([ScriptTransfer(addressFromStringValue(d), bv, V)], bv)
424 427  
425 428  
426 429  
427 - @Callable(bn)
428 - func sendLockedAcres (d,bu,bN) = if (if ((bn.caller != this))
429 -     then (bn.caller != N)
430 + @Callable(bo)
431 + func sendLockedAcres (d,bv,bO) = if (if ((bo.caller != this))
432 +     then (bo.caller != O)
430 433      else false)
431 434      then throw("Permission denied")
432 435      else {
433 -         let bi = lastBlock.timestamp
434 -         let bw = V(d)
435 -         let bx = c(d)
436 -         let by = valueOrElse(getInteger(bx), 0)
437 -         let bC = valueOrElse(getInteger(g), 0)
438 -         let bO = if (isDefined(getInteger(bw)))
436 +         let bj = lastBlock.timestamp
437 +         let bx = W(d)
438 +         let by = c(d)
439 +         let bz = valueOrElse(getInteger(by), 0)
440 +         let bD = valueOrElse(getInteger(g), 0)
441 +         let bP = if (isDefined(getInteger(bx)))
439 442              then nil
440 -             else [IntegerEntry(bw, bi)]
441 -         let bP = f(d)
442 -         let bQ = e(d)
443 -         let bR = valueOrElse(getInteger(bQ), 0)
444 -         let bS = valueOrElse(getInteger(bP), 0)
445 -         let bT = bd(bR, bS, bu, (bi + (bN * b)))
446 -         $Tuple2(((((bO :+ IntegerEntry(bx, (by + bu))) :+ IntegerEntry(g, (bC + bu))) :+ IntegerEntry(bP, bT)) :+ IntegerEntry(bQ, (bR + bu))), bu)
443 +             else [IntegerEntry(bx, bj)]
444 +         let bQ = f(d)
445 +         let bR = e(d)
446 +         let bS = valueOrElse(getInteger(bR), 0)
447 +         let bT = valueOrElse(getInteger(bQ), 0)
448 +         let bU = be(bS, bT, bv, (bj + (bO * b)))
449 +         $Tuple2(((((bP :+ IntegerEntry(by, (bz + bv))) :+ IntegerEntry(g, (bD + bv))) :+ IntegerEntry(bQ, bU)) :+ IntegerEntry(bR, (bS + bv))), bv)
447 450          }
448 451  
449 452  
450 453  
451 - @Callable(bn)
452 - func burnAcres (bu) = if ((bn.caller != O))
454 + @Callable(bo)
455 + func burnAcres (bv) = if ((bo.caller != P))
453 456      then throw("Permission denied")
454 457      else {
455 -         let bU = (valueOrElse(getInteger(S), 0) - bu)
456 -         if ((0 > bU))
458 +         let bV = (valueOrElse(getInteger(T), 0) - bv)
459 +         if ((0 > bV))
457 460              then throw("Attempt to burn more ACRES, than exists")
458 -             else $Tuple2([Burn(U, bu), IntegerEntry(S, bU)], bu)
461 +             else $Tuple2([Burn(V, bv), IntegerEntry(T, bV)], bv)
459 462          }
460 463  
461 464  
462 465  
463 - @Callable(bn)
466 + @Callable(bo)
464 467  func claimAcres () = {
465 -     let bv = aU()
466 -     if ((bv == bv))
468 +     let bw = aV()
469 +     if ((bw == bw))
467 470          then {
468 -             let A = toString(bn.caller)
469 -             if ((size(bn.payments) != 0))
471 +             let B = toString(bo.caller)
472 +             if ((size(bo.payments) != 0))
470 473                  then throw("No payments required")
471 474                  else {
472 -                     let bw = V(A)
473 -                     let bx = c(A)
474 -                     let aW = valueOrElse(getInteger(bx), 0)
475 -                     let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
476 -                     let bE = bc(A, aW, valueOrElse(getInteger(bw), 0))
477 -                     $Tuple2([IntegerEntry(bw, lastBlock.timestamp), ScriptTransfer(bn.caller, bE, U)], $Tuple2(bv, bD))
475 +                     let bx = W(B)
476 +                     let by = c(B)
477 +                     let aX = valueOrElse(getInteger(by), 0)
478 +                     let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
479 +                     let bF = bd(B, aX, valueOrElse(getInteger(bx), 0))
480 +                     $Tuple2([IntegerEntry(bx, lastBlock.timestamp), ScriptTransfer(bo.caller, bF, V)], $Tuple2(bw, bE))
478 481                      }
479 482              }
480 483          else throw("Strict value is not equal to itself.")
481 484      }
482 485  
483 486  
484 487  
485 - @Callable(bn)
486 - func claimAcresREADONLY (A) = {
487 -     let bw = V(A)
488 -     let bx = c(A)
489 -     let aW = valueOrElse(getInteger(bx), 0)
490 -     let bV = valueOrElse(getInteger(bw), 0)
491 -     let bE = aV(A, aW, bV)
492 -     $Tuple2(nil, [bE, bV])
488 + @Callable(bo)
489 + func claimAcresREADONLY (B) = {
490 +     let bx = W(B)
491 +     let by = c(B)
492 +     let aX = valueOrElse(getInteger(by), 0)
493 +     let bW = valueOrElse(getInteger(bx), 0)
494 +     let bF = aW(B, aX, bW)
495 +     $Tuple2(nil, [bF, bW])
493 496      }
494 497  
495 498  
496 499  
497 - @Callable(bn)
500 + @Callable(bo)
498 501  func claimPromo2 () = {
499 -     let bv = aU()
500 -     if ((bv == bv))
502 +     let bw = aV()
503 +     if ((bw == bw))
501 504          then {
502 -             let A = toString(bn.caller)
503 -             if ((size(bn.payments) != 0))
505 +             let B = toString(bo.caller)
506 +             if ((size(bo.payments) != 0))
504 507                  then throw("No payments required")
505 508                  else {
506 -                     let bi = lastBlock.timestamp
507 -                     if ((aP > bi))
509 +                     let bj = lastBlock.timestamp
510 +                     if ((aQ > bj))
508 511                          then throw("Promo 2 is not over yet")
509 512                          else {
510 -                             let bW = k(2, A)
511 -                             if (valueOrElse(getBoolean(bW), false))
512 -                                 then throw((("Your wallet " + A) + " is already awarded in promo 2"))
513 +                             let bX = k(2, B)
514 +                             if (valueOrElse(getBoolean(bX), false))
515 +                                 then throw((("Your wallet " + B) + " is already awarded in promo 2"))
513 516                                  else {
514 -                                     let bI = valueOrElse(getString(t), "")
515 -                                     if (!(contains(bI, A)))
517 +                                     let bJ = valueOrElse(getString(t), "")
518 +                                     if (!(contains(bJ, B)))
516 519                                          then throw("You are not participant of promo 2")
517 520                                          else {
518 -                                             let bK = split_51C(bI, A)
519 -                                             let aW = parseIntValue(take(drop(bK[1], 1), 14))
520 -                                             let bX = (aW / aL)
521 -                                             let bY = valueOrElse(getInteger(m(2)), 0)
522 -                                             let bZ = if ((bY == 0))
521 +                                             let bL = split_51C(bJ, B)
522 +                                             let aX = parseIntValue(take(drop(bL[1], 1), 14))
523 +                                             let bY = (aX / aM)
524 +                                             let bZ = valueOrElse(getInteger(m(2)), 0)
525 +                                             let ca = if ((bZ == 0))
523 526                                                  then {
524 -                                                     func ca (an,cb) =                                                     (an + (parseIntValue(split(cb, ":")[1]) / aL))
527 +                                                     func cb (ao,cc) =                                                     (ao + (parseIntValue(split(cc, ":")[1]) / aM))
525 528  
526 -                                                     let cc = {
527 -                                                         let aq = split_51C(bI, "_")
528 -                                                         let ar = size(aq)
529 -                                                         let as = 0
530 -                                                         func at (au,av) =                                                         if ((av >= ar))
531 -                                                             then au
532 -                                                             else ca(au, aq[av])
529 +                                                     let cd = {
530 +                                                         let ar = split_51C(bJ, "_")
531 +                                                         let as = size(ar)
532 +                                                         let at = 0
533 +                                                         func au (av,aw) =                                                         if ((aw >= as))
534 +                                                             then av
535 +                                                             else cb(av, ar[aw])
533 536  
534 -                                                         func aw (au,av) =                                                         if ((av >= ar))
535 -                                                             then au
537 +                                                         func ax (av,aw) =                                                         if ((aw >= as))
538 +                                                             then av
536 539                                                              else throw("List size exceeds 50")
537 540  
538 -                                                         aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 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)
541 +                                                         ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 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)
539 542                                                          }
540 -                                                     $Tuple2([IntegerEntry(m(2), cc), IntegerEntry(n(2, 1), cc)], cc)
543 +                                                     $Tuple2([IntegerEntry(m(2), cd), IntegerEntry(n(2, 1), cd)], cd)
541 544                                                      }
542 -                                                 else $Tuple2(nil, bY)
543 -                                             let cd = bZ._1
544 -                                             let ce = bZ._2
545 -                                             let cf = fraction(aQ, bX, ce)
546 -                                             let bH = invoke(this, "sendLockedAcres", [A, cf, 30], nil)
547 -                                             $Tuple2(((cd :+ BooleanEntry(bW, true)) :+ StringEntry(u(1), bI)), bH)
545 +                                                 else $Tuple2(nil, bZ)
546 +                                             let ce = ca._1
547 +                                             let cf = ca._2
548 +                                             let cg = fraction(aR, bY, cf)
549 +                                             let bI = invoke(this, "sendLockedAcres", [B, cg, 30], nil)
550 +                                             $Tuple2(((ce :+ BooleanEntry(bX, true)) :+ StringEntry(u(1), bJ)), bI)
548 551                                              }
549 552                                      }
550 553                              }
551 554                      }
552 555              }
553 556          else throw("Strict value is not equal to itself.")
554 557      }
555 558  
556 559  
557 560  
558 - @Callable(bn)
559 - func commitForPromo2Round (o) = if ((bn.caller != this))
561 + @Callable(bo)
562 + func initPromo3 (ch) = if ((bo.caller != this))
563 +     then throw("Permission denied")
564 +     else {
565 +         func cb (ao,cc) =         (ao + parseIntValue(split(cc, ":")[1]))
566 + 
567 +         let ci = {
568 +             let ar = split_51C(ch, "_")
569 +             let as = size(ar)
570 +             let at = 0
571 +             func au (av,aw) =             if ((aw >= as))
572 +                 then av
573 +                 else cb(av, ar[aw])
574 + 
575 +             func ax (av,aw) =             if ((aw >= as))
576 +                 then av
577 +                 else throw("List size exceeds 20")
578 + 
579 +             ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
580 +             }
581 +         $Tuple2([IntegerEntry(n(3, 1), ci), StringEntry(v(1), ch)], ci)
582 +         }
583 + 
584 + 
585 + 
586 + @Callable(bo)
587 + func commitForPromo3Round (o) = if ((bo.caller != this))
560 588      then throw("Permission denied")
561 589      else if (if ((1 > o))
562 590          then true
563 -         else (o > 4))
591 +         else (o > 2))
564 592          then throw(("Invalid roundId: " + toString(o)))
565 593          else {
566 -             let cg = (height + X)
567 -             $Tuple2([IntegerEntry(Y(("2_" + toString(o))), cg)], cg)
594 +             let cj = (height + Y)
595 +             $Tuple2([IntegerEntry(Z(("3_" + toString(o))), cj)], cj)
568 596              }
569 597  
570 598  
571 599  
572 - @Callable(bn)
573 - func drawPromo2Round (o) = if ((bn.caller != this))
600 + @Callable(bo)
601 + func drawPromo3Round (o) = if ((bo.caller != this))
574 602      then throw("Permission denied")
575 603      else if (if ((1 > o))
576 604          then true
577 -         else (o > 4))
605 +         else (o > 2))
578 606          then throw(("Invalid roundId: " + toString(o)))
579 607          else {
580 -             let ch = Y(("2_" + toString(o)))
581 -             let cg = valueOrErrorMessage(getInteger(ch), (("You have to commitForPromo2Round(" + toString(o)) + ") first!"))
582 -             if ((cg > height))
583 -                 then throw((((("Random number is not ready yet, wait until height = " + toString(cg)) + " (current height = ") + toString(height)) + ")"))
608 +             let ck = Z(("3_" + toString(o)))
609 +             let cj = valueOrErrorMessage(getInteger(ck), (("You have to commitForPromo3Round(" + toString(o)) + ") first!"))
610 +             if ((cj > height))
611 +                 then throw((((("Random number is not ready yet, wait until height = " + toString(cj)) + " (current height = ") + toString(height)) + ")"))
584 612                  else {
585 -                     let aH = valueOrElse(getInteger(n(2, o)), 0)
586 -                     if ((aH == 0))
587 -                         then throw("No tickets to draw (was claimPromo2() called at least once?)")
613 +                     let aI = valueOrElse(getInteger(n(3, o)), 0)
614 +                     if ((aI == 0))
615 +                         then throw("No tickets to draw")
588 616                          else {
589 -                             let aJ = value(value(blockInfoByHeight(cg)).vrf)
590 -                             let aI = bn.transactionId
591 -                             let bI = valueOrElse(getString(u(o)), "")
592 -                             func ci (cj,ck) =                             if ((ck >= aR[(o - 1)]))
593 -                                 then cj
617 +                             let aK = value(value(blockInfoByHeight(cj)).vrf)
618 +                             let aJ = bo.transactionId
619 +                             let ch = valueOrElse(getString(v(o)), "")
620 +                             func cl (cm,cn) =                             if ((cn >= aS[(o - 1)]))
621 +                                 then cm
594 622                                  else {
595 -                                     let cl = aG(cj._1, cj._2, aJ)
596 -                                     let cm = if ((cj._3 == ""))
623 +                                     let co = aH(cm._1, cm._2, aK)
624 +                                     let cp = if ((cm._3 == ""))
597 625                                          then nil
598 -                                         else split_51C(cj._3, "_")
599 -                                     func ca (an,cb) =                                     {
600 -                                         let bK = split(cb, ":")
601 -                                         let d = bK[0]
602 -                                         let bX = (parseIntValue(bK[1]) / aL)
603 -                                         let cn = (an._1 + bX)
604 -                                         if (if ((an._3 == ""))
605 -                                             then (cn > cl)
626 +                                         else split_51C(cm._3, "_")
627 +                                     func cb (ao,cc) =                                     {
628 +                                         let bL = split(cc, ":")
629 +                                         let d = bL[0]
630 +                                         let bY = parseIntValue(bL[1])
631 +                                         let cq = (ao._1 + bY)
632 +                                         if (if ((ao._3 == ""))
633 +                                             then (cq > co)
606 634                                              else false)
607 -                                             then $Tuple3(cn, bX, d)
608 -                                             else $Tuple3(cn, an._2, an._3)
635 +                                             then $Tuple3(cq, bY, d)
636 +                                             else $Tuple3(cq, ao._2, ao._3)
609 637                                          }
610 638  
611 -                                     let co = {
612 -                                         let aq = cm
613 -                                         let ar = size(aq)
614 -                                         let as = $Tuple3(0, 0, "")
615 -                                         func at (au,av) =                                         if ((av >= ar))
616 -                                             then au
617 -                                             else ca(au, aq[av])
639 +                                     let cr = {
640 +                                         let ar = cp
641 +                                         let as = size(ar)
642 +                                         let at = $Tuple3(0, 0, "")
643 +                                         func au (av,aw) =                                         if ((aw >= as))
644 +                                             then av
645 +                                             else cb(av, ar[aw])
618 646  
619 -                                         func aw (au,av) =                                         if ((av >= ar))
620 -                                             then au
621 -                                             else throw("List size exceeds 50")
647 +                                         func ax (av,aw) =                                         if ((aw >= as))
648 +                                             then av
649 +                                             else throw("List size exceeds 20")
622 650  
623 -                                         aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 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)
651 +                                         ax(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
624 652                                          }
625 -                                     let cp = co._3
626 -                                     if ((cp == ""))
627 -                                         then cj
653 +                                     let cs = cr._3
654 +                                     if ((cs == ""))
655 +                                         then cm
628 656                                          else {
629 -                                             let cq = split_51C(cj._3, cp)
630 -                                             let cr = if ((cq[0] == ""))
631 -                                                 then drop(cq[1], 16)
632 -                                                 else (dropRight(cq[0], 1) + drop(cq[1], 15))
633 -                                             let bH = invoke(this, "sendLockedAcres", [cp, aS[(o - 1)], 30], nil)
634 -                                             $Tuple4((cj._1 - co._2), fromBase58String(getStringValue(O, ai(cp))), cr, (cj._4 :+ bH))
657 +                                             let ct = split_51C(cm._3, cs)
658 +                                             let cu = if ((ct[0] == ""))
659 +                                                 then drop(ct[1], 4)
660 +                                                 else (dropRight(ct[0], 1) + drop(ct[1], 3))
661 +                                             let bI = invoke(this, "sendLockedAcres", [cs, aT[(o - 1)], 30], nil)
662 +                                             let cv = fromBase58String(valueOrElse(getString(P, aj(cs)), "DEFAULT"))
663 +                                             $Tuple4((cm._1 - cr._2), cv, cu, (cm._4 :+ bI))
635 664                                              }
636 665                                      }
637 666  
638 -                             let cs = {
639 -                                 let aq = y
640 -                                 let ar = size(aq)
641 -                                 let as = $Tuple4(aH, bn.transactionId, bI, nil)
642 -                                 func at (au,av) =                                 if ((av >= ar))
643 -                                     then au
644 -                                     else ci(au, aq[av])
667 +                             let cw = {
668 +                                 let ar = z
669 +                                 let as = size(ar)
670 +                                 let at = $Tuple4(aI, bo.transactionId, ch, nil)
671 +                                 func au (av,aw) =                                 if ((aw >= as))
672 +                                     then av
673 +                                     else cl(av, ar[aw])
645 674  
646 -                                 func aw (au,av) =                                 if ((av >= ar))
647 -                                     then au
648 -                                     else throw("List size exceeds 20")
675 +                                 func ax (av,aw) =                                 if ((aw >= as))
676 +                                     then av
677 +                                     else throw("List size exceeds 6")
649 678  
650 -                                 aw(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(at(as, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
679 +                                 ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
651 680                                  }
652 -                             $Tuple2([DeleteEntry(ch), StringEntry(u((o + 1)), cs._3), IntegerEntry(n(2, (o + 1)), cs._1)], cs._4)
681 +                             $Tuple2([DeleteEntry(ck), StringEntry(v((o + 1)), cw._3), IntegerEntry(n(3, (o + 1)), cw._1)], cw._4)
653 682                              }
654 683                      }
655 684              }
656 685  
657 686

Old	New		Differences
56	56		func u (o) = ("promo2MapForRound__" + toString(o))
57	57
58	58
59		-	let v = "__"
60		-
61		-	let w = 1000000
62		-
63		-	let x = 100000000
64		-
65		-	let y = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
66		-
67		-	func z (A,B) = valueOrErrorMessage(getString(A, B), makeString(["mandatory ", toString(A), ".", B, " is not defined"], ""))
	59	+	func v (o) = ("promo3MapForRound__" + toString(o))
68	60
69	61
70		-	let C = 1
	62	+	let w = "__"
71	63
72		-	let D = 2
	64	+	let x = 1000000
73	65
74		-	let E = 4
	66	+	let y = 100000000
75	67
76		-	let F = 8
	68	+	let z = [0, 1, 2, 3, 4, 5]
77	69
78		-	func G () = "~~%s__restConfig~~"
	70	+	func A (B,C) = valueOrErrorMessage(getString(B, C), makeString(["mandatory ", toString(B), ".", C, " is not defined"], ""))
79	71
80	72
81		-	func H () = "%s__restAddr"
	73	+	let D = 1
	74	+
	75	+	let E = 2
	76	+
	77	+	let F = 4
	78	+
	79	+	let G = 8
	80	+
	81	+	func H () = "%s__restConfig"
82	82
83	83
84		-	func I (J) = ~~split~~_~~4C(z(J, G()), v)~~
	84	+	func I () = "%s__restAddr"
85	85
86	86
87		-	func K (~~L,M~~) = ~~valueOrErrorMessage~~(~~addressFromString~~(~~L[M]~~), ~~("Rest cfg doesn't contain address at index " + toString(M~~)))
	87	+	func J (K) = split_4C(A(K, H()), w)
88	88
89	89
90		-	let N = addressFromStringValue(valueOrElse(getString(this, H()), s))
91		-
92		-	let L = I(N)
93		-
94		-	let O = K(L, C)
95		-
96		-	let P = K(L, D)
97		-
98		-	let Q = K(L, E)
99		-
100		-	let R = K(L, F)
101		-
102		-	let S = "acresIssuedAmount"
103		-
104		-	let T = "acresAssetId"
105		-
106		-	let U = valueOrErrorMessage(getBinary(R, T), "ACRES is not issued yet")
107		-
108		-	func V (d) = ("acresStakedTimeByUser_" + d)
	90	+	func L (M,N) = valueOrErrorMessage(addressFromString(M[N]), ("Rest cfg doesn't contain address at index " + toString(N)))
109	91
110	92
111		-	let W = 0
	93	+	let O = addressFromStringValue(valueOrElse(getString(this, I()), s))
112	94
113		-	let X = 2
	95	+	let M = J(O)
114	96
115		-	func Y (A) = ("finishBlockFor_" + A)
	97	+	let P = L(M, D)
	98	+
	99	+	let Q = L(M, E)
	100	+
	101	+	let R = L(M, F)
	102	+
	103	+	let S = L(M, G)
	104	+
	105	+	let T = "acresIssuedAmount"
	106	+
	107	+	let U = "acresAssetId"
	108	+
	109	+	let V = valueOrErrorMessage(getBinary(S, U), "ACRES is not issued yet")
	110	+
	111	+	func W (d) = ("acresStakedTimeByUser_" + d)
116	112
117	113
118		-	func Z () = "resTypesProportions"
	114	+	let X = 0
	115	+
	116	+	let Y = 2
	117	+
	118	+	func Z (B) = ("finishBlockFor_" + B)
119	119
120	120
121		-	func aa (ab) = ("~~stakedPiecesByOwner_~~" ~~+ ab)~~
	121	+	func aa () = "resTypesProportions"
122	122
123	123
124		-	func ac (ad) = {
125		-	let r = ad
	124	+	func ab (ac) = ("stakedPiecesByOwner_" + ac)
	125	+
	126	+
	127	+	func ad (ae) = {
	128	+	let r = ae
126	129		if ($isInstanceOf(r, "Int"))
127	130		then {
128		-	let ae = r
129		-	ae
	131	+	let af = r
	132	+	af
130	133		}
131	134		else throw("fail to cast into Int")
132	135		}
133	136
134	137
135		-	func af (ag) = {
136		-	let r = ag
	138	+	func ag (ah) = {
	139	+	let r = ah
137	140		if ($isInstanceOf(r, "(Int, Int)"))
138	141		then {
139		-	let ah = r
140		-	ah
	142	+	let ai = r
	143	+	ai
141	144		}
142	145		else throw("fail to cast into (Int, Int)")
143	146		}
144	147
145	148
146		-	func ai (d) = ("lastTxIdByUser_" + d)
	149	+	func aj (d) = ("lastTxIdByUser_" + d)
147	150
148	151
149		-	func aj (ak) = {
150		-	let al = split(valueOrElse(getString(O, Z()), "0_0_0_0_0_0"), "_")
151		-	func am (an,ao) = (an + parseIntValue(ao))
	152	+	func ak (al) = {
	153	+	let am = split(valueOrElse(getString(P, aa()), "0_0_0_0_0_0"), "_")
	154	+	func an (ao,ap) = (ao + parseIntValue(ap))
152	155
153		-	let ap = {
154		-	let aq = al
155		-	let ar = size(aq)
156		-	let as = 0
157		-	func at (au,av) = if ((av >= ar))
158		-	then au
159		-	else am(au, aq[av])
	156	+	let aq = {
	157	+	let ar = am
	158	+	let as = size(ar)
	159	+	let at = 0
	160	+	func au (av,aw) = if ((aw >= as))
	161	+	then av
	162	+	else an(av, ar[aw])
160	163
161		-	func aw (au,av) = if ((av >= ar))
162		-	then au
	164	+	func ax (av,aw) = if ((aw >= as))
	165	+	then av
163	166		else throw("List size exceeds 6")
164	167
165		-	aw(at~~(at(at(at(at(at(as~~, 0), 1), 2), 3), 4), 5), 6)
	168	+	ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
166	169		}
167		-	let ax = valueOrElse(getInteger(O, aa(ak)), 0)
168		-	[ap, ax]
	170	+	let ay = valueOrElse(getInteger(P, ab(al)), 0)
	171	+	[aq, ay]
169	172		}
170	173
171	174
172		-	func ay (ag,az) = {
173		-	let aA = pow(10, 0, az, 0, 0, DOWN)
174		-	let aB = toString((ag % aA))
175		-	let aC = drop(toString(aA), (1 + size(aB)))
176		-	(((toString((ag / aA)) + ".") + aC) + aB)
	175	+	func az (ah,aA) = {
	176	+	let aB = pow(10, 0, aA, 0, 0, DOWN)
	177	+	let aC = toString((ah % aB))
	178	+	let aD = drop(toString(aB), (1 + size(aC)))
	179	+	(((toString((ah / aB)) + ".") + aD) + aC)
177	180		}
178	181
179	182
180		-	func aD (ag,aE) = {
181		-	let aF = toString(ag)
182		-	let aC = drop(toString(pow(10, 0, (aE - size(aF)), 0, 0, DOWN)), 1)
183		-	(aC + aF)
	183	+	func aE (ah,aF) = {
	184	+	let aG = toString(ah)
	185	+	let aD = drop(toString(pow(10, 0, (aF - size(aG)), 0, 0, DOWN)), 1)
	186	+	(aD + aG)
184	187		}
185	188
186	189
187		-	func aG (~~aH,~~aI,aJ) = if ((0 >= aH))
	190	+	func aH (aI,aJ,aK) = if ((0 >= aI))
188	191		then throw("maxValue should be > 0")
189	192		else {
190		-	let aK = sha256((aI + aJ))
191		-	(toInt(aK) % aH)
	193	+	let aL = sha256((aJ + aK))
	194	+	(toInt(aL) % aI)
192	195		}
193	196
194	197
195		-	let aL = 10000000
	198	+	let aM = 10000000
196	199
197		-	let aM = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
	200	+	let aN = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
198	201
199		-	let aN = 4970178
	202	+	let aO = 4970178
200	203
201		-	let aO = {
	204	+	let aP = {
202	205		let r = p
203	206		if ((base58'2W' == r))
204	207		then 1700524800000

207	210		else throw("Unknown chain")
208	211		}
209	212
210		-	let aP = {
	213	+	let aQ = {
211	214		let r = p
212	215		if ((base58'2W' == r))
213	216		then 1701043199999

216	219		else throw("Unknown chain")
217	220		}
218	221
219		-	let aQ = 1000000000
	222	+	let aR = 1000000000
220	223
221		-	let aR = [1, 3, 5~~, 20~~]
	224	+	let aS = [1, 5]
222	225
223		-	let aS = [500000000, ~~200000000,~~ 100000000~~, 20000000~~]
	226	+	let aT = [500000000, 100000000]
224	227
225		-	func aT (d) = contains(aM, d)
	228	+	func aU (d) = contains(aN, d)
226	229
227	230
228		-	func aU () = ac(reentrantInvoke(O, "saveLastTx", nil, nil))
	231	+	func aV () = ad(reentrantInvoke(P, "saveLastTx", nil, nil))
229	232
230	233
231		-	func aV (d,aW,aX) = {
232		-	let aY = (lastBlock.timestamp - aX)
233		-	let aZ = fraction(aY, (i * aW), (b * x))
234		-	let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
235		-	let bb = max([0, ba])
236		-	(bb * j)
	234	+	func aW (d,aX,aY) = {
	235	+	let aZ = (lastBlock.timestamp - aY)
	236	+	let ba = fraction(aZ, (i * aX), (b * y))
	237	+	let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
	238	+	let bc = max([0, bb])
	239	+	(bc * j)
237	240		}
238	241
239	242
240		-	func bc (d,aW,aX) = {
241		-	let aY = (lastBlock.timestamp - aX)
242		-	if ((0 > aY))
243		-	then throw(((("Saved timestamp is in future, saved = " + toString(aX)) + ", current = ") + toString(lastBlock.timestamp)))
	243	+	func bd (d,aX,aY) = {
	244	+	let aZ = (lastBlock.timestamp - aY)
	245	+	if ((0 > aZ))
	246	+	then throw(((("Saved timestamp is in future, saved = " + toString(aY)) + ", current = ") + toString(lastBlock.timestamp)))
244	247		else {
245		-	let aZ = fraction(aY, (i * aW), (b * x))
246		-	let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
247		-	let bb = if ((0 >= ba))
	248	+	let ba = fraction(aZ, (i * aX), (b * y))
	249	+	let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
	250	+	let bc = if ((0 >= bb))
248	251		then 0
249		-	else af(invoke(P, "sellResourcesWorld", [d, aZ], nil))._1
250		-	(bb * j)
	252	+	else ag(invoke(Q, "sellResourcesWorld", [d, ba], nil))._1
	253	+	(bc * j)
251	254		}
252	255		}
253	256
254	257
255		-	func bd (~~be,~~bf,bg,bh) = {
256		-	let bi = lastBlock.timestamp
257		-	let bj = max([0, (~~bf - bi~~)])
258		-	let bk = max([0, (~~bh - bi~~)])
259		-	let bl = (be + bg)
260		-	let bm = if ((bl == 0))
	258	+	func be (bf,bg,bh,bi) = {
	259	+	let bj = lastBlock.timestamp
	260	+	let bk = max([0, (bg - bj)])
	261	+	let bl = max([0, (bi - bj)])
	262	+	let bm = (bf + bh)
	263	+	let bn = if ((bm == 0))
261	264		then 0
262		-	else (fraction(bj, be, bl) + fraction(bk, bg, bl))
263		-	(bi + bm)
	265	+	else (fraction(bk, bf, bm) + fraction(bl, bh, bm))
	266	+	(bj + bn)
264	267		}
265	268
266	269
267		-	@Callable(bn)
268		-	func constructorV1 (bo,bp) = if ((bn.caller != this))
	270	+	@Callable(bo)
	271	+	func constructorV1 (bp,bq) = if ((bo.caller != this))
269	272		then throw("Permission denied")
270		-	else if (isDefined(getBinary(T)))
	273	+	else if (isDefined(getBinary(U)))
271	274		then throw("Already initialized")
272	275		else {
273		-	let bq = (aj("")[W] + bp)
274		-	let br = (a - (bq * x))
275		-	let bs = Issue("ACRES", "WavesLands land acres investment token", br, 8, false, unit, 0)
276		-	let bt = calculateAssetId(bs)
277		-	[bs, IntegerEntry(S, br), BinaryEntry(T, bt), StringEntry(H(), bo)]
	276	+	let br = (ak("")[X] + bq)
	277	+	let bs = (a - (br * y))
	278	+	let bt = Issue("ACRES", "WavesLands land acres investment token", bs, 8, false, unit, 0)
	279	+	let bu = calculateAssetId(bt)
	280	+	[bt, IntegerEntry(T, bs), BinaryEntry(U, bu), StringEntry(I(), bp)]
278	281		}
279	282
280	283
281	284
282		-	@Callable(bn)
283		-	func unstakeAcres (bu) = {
284		-	let bv = aU()
285		-	if ((bv == bv))
286		-	then if ((0 >= bu))
	285	+	@Callable(bo)
	286	+	func unstakeAcres (bv) = {
	287	+	let bw = aV()
	288	+	if ((bw == bw))
	289	+	then if ((0 >= bv))
287	290		then throw("Amount should be positive")
288	291		else {
289		-	let A = toString(bn.caller)
290		-	if ((size(bn.payments) != 0))
	292	+	let B = toString(bo.caller)
	293	+	if ((size(bo.payments) != 0))
291	294		then throw("No payments required")
292	295		else {
293		-	let bw = V(A)
294		-	let bx = c(A)
295		-	let by = valueOrElse(getInteger(bx), 0)
296		-	if ((bu > by))
297		-	then throw(((("You have only " + ay(by, 8)) + " ACRES staked, tried to unstake ") + ay(bu, 8)))
	296	+	let bx = W(B)
	297	+	let by = c(B)
	298	+	let bz = valueOrElse(getInteger(by), 0)
	299	+	if ((bv > bz))
	300	+	then throw(((("You have only " + az(bz, 8)) + " ACRES staked, tried to unstake ") + az(bv, 8)))
298	301		else {
299		-	let bz = valueOrElse(getInteger(e(A)), 0)
300		-	let bA = valueOrElse(getInteger(f(A)), 0)
301		-	let bi = lastBlock.timestamp
302		-	if (if ((bi >= aO))
303		-	then (aP >= bi)
	302	+	let bA = valueOrElse(getInteger(e(B)), 0)
	303	+	let bB = valueOrElse(getInteger(f(B)), 0)
	304	+	let bj = lastBlock.timestamp
	305	+	if (if ((bj >= aP))
	306	+	then (aQ >= bj)
304	307		else false)
305	308		then throw("You cannot unstake ACRES during Promo2")
306	309		else {
307		-	let bB = if (aT(A))
308		-	then ((~~by - bz~~) - aN)
309		-	else (~~by - bz~~)
310		-	if (if ((bA > bi))
311		-	then (bu > bB)
	310	+	let bC = if (aU(B))
	311	+	then ((bz - bA) - aO)
	312	+	else (bz - bA)
	313	+	if (if ((bB > bj))
	314	+	then (bv > bC)
312	315		else false)
313		-	then throw(((("Only " + ay(bB, 8)) + " ACRES can be unstaked now, wait until ") + toString(bA)))
	316	+	then throw(((("Only " + az(bC, 8)) + " ACRES can be unstaked now, wait until ") + toString(bB)))
314	317		else {
315		-	let bC = valueOrElse(getInteger(g), 0)
316		-	let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
317		-	let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
318		-	$Tuple2([IntegerEntry(bw, lastBlock.timestamp), IntegerEntry(bx, (~~by - bu~~)), IntegerEntry(g, (~~bC - bu~~)), ScriptTransfer(bn.caller, (bu + bE), U)], $Tuple2(bv, bD))
	318	+	let bD = valueOrElse(getInteger(g), 0)
	319	+	let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
	320	+	let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
	321	+	$Tuple2([IntegerEntry(bx, lastBlock.timestamp), IntegerEntry(by, (bz - bv)), IntegerEntry(g, (bD - bv)), ScriptTransfer(bo.caller, (bv + bF), V)], $Tuple2(bw, bE))
319	322		}
320	323		}
321	324		}

326	329
327	330
328	331
329		-	@Callable(bn)
	332	+	@Callable(bo)
330	333		func stakeAcres () = {
331		-	let bv = aU()
332		-	if ((bv == bv))
	334	+	let bw = aV()
	335	+	if ((bw == bw))
333	336		then {
334		-	let A = toString(bn.caller)
335		-	if ((size(bn.payments) != 1))
	337	+	let B = toString(bo.caller)
	338	+	if ((size(bo.payments) != 1))
336	339		then throw("exactly 1 payment must be attached")
337	340		else {
338		-	let bF = bn.payments[0]
339		-	let bG = bF.amount
340		-	if (if (!(isDefined(bF.assetId)))
	341	+	let bG = bo.payments[0]
	342	+	let bH = bG.amount
	343	+	if (if (!(isDefined(bG.assetId)))
341	344		then true
342		-	else (value(bF.assetId) != U))
	345	+	else (value(bG.assetId) != V))
343	346		then throw("ACRES payments only!")
344	347		else {
345		-	let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
346		-	if ((bD == bD))
	348	+	let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
	349	+	if ((bE == bE))
347	350		then {
348		-	let bi = lastBlock.timestamp
349		-	if (if ((aO > bi))
	351	+	let bj = lastBlock.timestamp
	352	+	if (if ((aP > bj))
350	353		then true
351		-	else (bi > aP))
	354	+	else (bj > aQ))
352	355		then {
353		-	let bw = V(A)
354		-	let bx = c(A)
355		-	let by = valueOrElse(getInteger(bx), 0)
356		-	let bC = valueOrElse(getInteger(g), 0)
357		-	let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
358		-	$Tuple2(((((if ((bE == 0))
	356	+	let bx = W(B)
	357	+	let by = c(B)
	358	+	let bz = valueOrElse(getInteger(by), 0)
	359	+	let bD = valueOrElse(getInteger(g), 0)
	360	+	let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
	361	+	$Tuple2(((((if ((bF == 0))
359	362		then nil
360		-	else [ScriptTransfer(bn.caller, bE, U)]) :+ IntegerEntry(bw, lastBlock.timestamp)) :+ IntegerEntry(bx, (by + bG))) :+ IntegerEntry(g, (bC + bG))), $Tuple2(bv, bD))
	363	+	else [ScriptTransfer(bo.caller, bF, V)]) :+ IntegerEntry(bx, lastBlock.timestamp)) :+ IntegerEntry(by, (bz + bH))) :+ IntegerEntry(g, (bD + bH))), $Tuple2(bw, bE))
361	364		}
362		-	else if ((aL > bG))
363		-	then throw((("Min staked amount during promo action should be at least " + ay(aL, 8)) + " ACRES"))
	365	+	else if ((aM > bH))
	366	+	then throw((("Min staked amount during promo action should be at least " + az(aM, 8)) + " ACRES"))
364	367		else {
365		-	let bH = invoke(this, "sendLockedAcres", [A, bG, 30], nil)
366		-	let bI = valueOrElse(getString(t), "")
367		-	let bJ = if (contains(bI, A))
	368	+	let bI = invoke(this, "sendLockedAcres", [B, bH, 30], nil)
	369	+	let bJ = valueOrElse(getString(t), "")
	370	+	let bK = if (contains(bJ, B))
368	371		then {
369		-	let bK = split_51C(bI, A)
370		-	let be = parseIntValue(take(drop(bK[1], 1), 14))
371		-	((((bK[0] + A) + ":") + aD((be + bG), 14)) + drop(bK[1], 15))
	372	+	let bL = split_51C(bJ, B)
	373	+	let bf = parseIntValue(take(drop(bL[1], 1), 14))
	374	+	((((bL[0] + B) + ":") + aE((bf + bH), 14)) + drop(bL[1], 15))
372	375		}
373	376		else {
374		-	let bL = ((A + ":") + aD(bG, 14))
375		-	if ((bI == ""))
376		-	then bL
377		-	else ((bI + "_") + bL)
	377	+	let bM = ((B + ":") + aE(bH, 14))
	378	+	if ((bJ == ""))
	379	+	then bM
	380	+	else ((bJ + "_") + bM)
378	381		}
379		-	$Tuple2([StringEntry(t, bJ)], $Tuple3(bv, bD, bH))

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = 100000000000000
5	5
6	6		let b = 86400000
7	7
8	8		func c (d) = ("acresStakedAmountByUser_" + d)
9	9
10	10
11	11		func e (d) = ("acresLockedAmountByUser_" + d)
12	12
13	13
14	14		func f (d) = ("acresLockedEtaByUser_" + d)
15	15
16	16
17	17		let g = "acresStakedAmountTotal"
18	18
19	19		let h = 5000000
20	20
21	21		let i = 3456000
22	22
23	23		let j = 10
24	24
25	25		func k (l,d) = makeString(["%s%d%s__isAwardedByPromoAndUser", toString(l), d], "__")
26	26
27	27
28	28		func m (l) = ("%s%d__ticketsTotalByPromo__" + toString(l))
29	29
30	30
31	31		func n (l,o) = makeString(["%s%d%d__ticketsTotalByPromoAndRound", toString(l), toString(o)], "__")
32	32
33	33
34	34		let p = take(drop(this.bytes, 1), 1)
35	35
36	36		let q = {
37	37		let r = p
38	38		if ((base58'2W' == r))
39	39		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
40	40		else if ((base58'2T' == r))
41	41		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
42	42		else throw("Unknown chain")
43	43		}
44	44
45	45		let s = {
46	46		let r = p
47	47		if ((base58'2W' == r))
48	48		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
49	49		else if ((base58'2T' == r))
50	50		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
51	51		else throw("Unknown chain")
52	52		}
53	53
54	54		let t = "promo2Map"
55	55
56	56		func u (o) = ("promo2MapForRound__" + toString(o))
57	57
58	58
59		-	let v = "__"
60		-
61		-	let w = 1000000
62		-
63		-	let x = 100000000
64		-
65		-	let y = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19]
66		-
67		-	func z (A,B) = valueOrErrorMessage(getString(A, B), makeString(["mandatory ", toString(A), ".", B, " is not defined"], ""))
	59	+	func v (o) = ("promo3MapForRound__" + toString(o))
68	60
69	61
70		-	let C = 1
	62	+	let w = "__"
71	63
72		-	let D = 2
	64	+	let x = 1000000
73	65
74		-	let E = 4
	66	+	let y = 100000000
75	67
76		-	let F = 8
	68	+	let z = [0, 1, 2, 3, 4, 5]
77	69
78		-	func G () = "~~%s__restConfig~~"
	70	+	func A (B,C) = valueOrErrorMessage(getString(B, C), makeString(["mandatory ", toString(B), ".", C, " is not defined"], ""))
79	71
80	72
81		-	func H () = "%s__restAddr"
	73	+	let D = 1
	74	+
	75	+	let E = 2
	76	+
	77	+	let F = 4
	78	+
	79	+	let G = 8
	80	+
	81	+	func H () = "%s__restConfig"
82	82
83	83
84		-	func I (J) = ~~split~~_~~4C(z(J, G()), v)~~
	84	+	func I () = "%s__restAddr"
85	85
86	86
87		-	func K (~~L,M~~) = ~~valueOrErrorMessage~~(~~addressFromString~~(~~L[M]~~), ~~("Rest cfg doesn't contain address at index " + toString(M~~)))
	87	+	func J (K) = split_4C(A(K, H()), w)
88	88
89	89
90		-	let N = addressFromStringValue(valueOrElse(getString(this, H()), s))
91		-
92		-	let L = I(N)
93		-
94		-	let O = K(L, C)
95		-
96		-	let P = K(L, D)
97		-
98		-	let Q = K(L, E)
99		-
100		-	let R = K(L, F)
101		-
102		-	let S = "acresIssuedAmount"
103		-
104		-	let T = "acresAssetId"
105		-
106		-	let U = valueOrErrorMessage(getBinary(R, T), "ACRES is not issued yet")
107		-
108		-	func V (d) = ("acresStakedTimeByUser_" + d)
	90	+	func L (M,N) = valueOrErrorMessage(addressFromString(M[N]), ("Rest cfg doesn't contain address at index " + toString(N)))
109	91
110	92
111		-	let W = 0
	93	+	let O = addressFromStringValue(valueOrElse(getString(this, I()), s))
112	94
113		-	let X = 2
	95	+	let M = J(O)
114	96
115		-	func Y (A) = ("finishBlockFor_" + A)
	97	+	let P = L(M, D)
	98	+
	99	+	let Q = L(M, E)
	100	+
	101	+	let R = L(M, F)
	102	+
	103	+	let S = L(M, G)
	104	+
	105	+	let T = "acresIssuedAmount"
	106	+
	107	+	let U = "acresAssetId"
	108	+
	109	+	let V = valueOrErrorMessage(getBinary(S, U), "ACRES is not issued yet")
	110	+
	111	+	func W (d) = ("acresStakedTimeByUser_" + d)
116	112
117	113
118		-	func Z () = "resTypesProportions"
	114	+	let X = 0
	115	+
	116	+	let Y = 2
	117	+
	118	+	func Z (B) = ("finishBlockFor_" + B)
119	119
120	120
121		-	func aa (ab) = ("~~stakedPiecesByOwner_~~" ~~+ ab)~~
	121	+	func aa () = "resTypesProportions"
122	122
123	123
124		-	func ac (ad) = {
125		-	let r = ad
	124	+	func ab (ac) = ("stakedPiecesByOwner_" + ac)
	125	+
	126	+
	127	+	func ad (ae) = {
	128	+	let r = ae
126	129		if ($isInstanceOf(r, "Int"))
127	130		then {
128		-	let ae = r
129		-	ae
	131	+	let af = r
	132	+	af
130	133		}
131	134		else throw("fail to cast into Int")
132	135		}
133	136
134	137
135		-	func af (ag) = {
136		-	let r = ag
	138	+	func ag (ah) = {
	139	+	let r = ah
137	140		if ($isInstanceOf(r, "(Int, Int)"))
138	141		then {
139		-	let ah = r
140		-	ah
	142	+	let ai = r
	143	+	ai
141	144		}
142	145		else throw("fail to cast into (Int, Int)")
143	146		}
144	147
145	148
146		-	func ai (d) = ("lastTxIdByUser_" + d)
	149	+	func aj (d) = ("lastTxIdByUser_" + d)
147	150
148	151
149		-	func aj (ak) = {
150		-	let al = split(valueOrElse(getString(O, Z()), "0_0_0_0_0_0"), "_")
151		-	func am (an,ao) = (an + parseIntValue(ao))
	152	+	func ak (al) = {
	153	+	let am = split(valueOrElse(getString(P, aa()), "0_0_0_0_0_0"), "_")
	154	+	func an (ao,ap) = (ao + parseIntValue(ap))
152	155
153		-	let ap = {
154		-	let aq = al
155		-	let ar = size(aq)
156		-	let as = 0
157		-	func at (au,av) = if ((av >= ar))
158		-	then au
159		-	else am(au, aq[av])
	156	+	let aq = {
	157	+	let ar = am
	158	+	let as = size(ar)
	159	+	let at = 0
	160	+	func au (av,aw) = if ((aw >= as))
	161	+	then av
	162	+	else an(av, ar[aw])
160	163
161		-	func aw (au,av) = if ((av >= ar))
162		-	then au
	164	+	func ax (av,aw) = if ((aw >= as))
	165	+	then av
163	166		else throw("List size exceeds 6")
164	167
165		-	aw(at~~(at(at(at(at(at(as~~, 0), 1), 2), 3), 4), 5), 6)
	168	+	ax(au(au(au(au(au(au(at, 0), 1), 2), 3), 4), 5), 6)
166	169		}
167		-	let ax = valueOrElse(getInteger(O, aa(ak)), 0)
168		-	[ap, ax]
	170	+	let ay = valueOrElse(getInteger(P, ab(al)), 0)
	171	+	[aq, ay]
169	172		}
170	173
171	174
172		-	func ay (ag,az) = {
173		-	let aA = pow(10, 0, az, 0, 0, DOWN)
174		-	let aB = toString((ag % aA))
175		-	let aC = drop(toString(aA), (1 + size(aB)))
176		-	(((toString((ag / aA)) + ".") + aC) + aB)
	175	+	func az (ah,aA) = {
	176	+	let aB = pow(10, 0, aA, 0, 0, DOWN)
	177	+	let aC = toString((ah % aB))
	178	+	let aD = drop(toString(aB), (1 + size(aC)))
	179	+	(((toString((ah / aB)) + ".") + aD) + aC)
177	180		}
178	181
179	182
180		-	func aD (ag,aE) = {
181		-	let aF = toString(ag)
182		-	let aC = drop(toString(pow(10, 0, (aE - size(aF)), 0, 0, DOWN)), 1)
183		-	(aC + aF)
	183	+	func aE (ah,aF) = {
	184	+	let aG = toString(ah)
	185	+	let aD = drop(toString(pow(10, 0, (aF - size(aG)), 0, 0, DOWN)), 1)
	186	+	(aD + aG)
184	187		}
185	188
186	189
187		-	func aG (~~aH,~~aI,aJ) = if ((0 >= aH))
	190	+	func aH (aI,aJ,aK) = if ((0 >= aI))
188	191		then throw("maxValue should be > 0")
189	192		else {
190		-	let aK = sha256((aI + aJ))
191		-	(toInt(aK) % aH)
	193	+	let aL = sha256((aJ + aK))
	194	+	(toInt(aL) % aI)
192	195		}
193	196
194	197
195		-	let aL = 10000000
	198	+	let aM = 10000000
196	199
197		-	let aM = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
	200	+	let aN = "3P2NGX4Q5nge1MCauwQW5aqYLdkccSGj1Ep_3P2xFAHW9yhyNohYozWd4HFhEXZu3bsNSoR_3P2yKaZ2gvn9Xe5tti81a7P9LZhHgjvToV9_3P37zQ3cf2ecu55RmJqEiGSivdzN9avt3m9_3P4az6dtzsvGCWFAxa94UdevKzXyEwxEiFG_3P4kZU6X3TTLFcSUe55JSy8BySqitcPgMBz_3P5hCxBEh3NgNizZhNBreyBSqtbhJYLkKPD_3P7HLvucy11yxyMJUwjzXFHHKMEDwi1EwfC_3P8JuaqH9PTQAv8D5HBGgQfKauLTYt2NQft_3P9gTDB4rtDEVbpX3asU63H4Zinh2EnTmZE_3P9iN3qrtfJicUVy7amZeVsetVD3vUMk8be_3PCa2BsAa6JBLirszQfV5r9fJrujfhwtwfP_3PD3i4XN8KtygcFx4ry5M7UGqdfH8VYvtRT_3PDEMnnJNc2kx9cPEmvVvhXUr8SvhANKhsa_3PDGE9tKQizaeZFeDDq5aYSv89nwYbfirpZ_3PDMKQTCrUPZECVXEJJ8m1sHtutSu1naSf1_3PGh2Qu6Yvx8GTCRRVNvBUVZLdaidYSaxo5_3PKkmAtbSK5D2hQdo1RfEg8eXyMbDcRUc92_3PLMnbxzssP8W8E8XjJ1RLBBg8UZL8Cz3P2_3PMuxo4PCAox9s4a7R1eszh4iqqu8gS7jHv_3PNrMtEQChw87WZU1JAJ7aGHykCa8TjnDNK_3PPuBXfWoBy3EEory7c7vgi9Usjka7o5tBj_3PQwyeyEhT4Y6aGAL6tg73aQWJtV1zRt3nR_3PRGDShuMGb84MJtTJvtTg8qDfswkYWcm3e"
198	201
199		-	let aN = 4970178
	202	+	let aO = 4970178
200	203
201		-	let aO = {
	204	+	let aP = {
202	205		let r = p
203	206		if ((base58'2W' == r))
204	207		then 1700524800000
205	208		else if ((base58'2T' == r))
206	209		then 1700420400000
207	210		else throw("Unknown chain")
208	211		}
209	212
210		-	let aP = {
	213	+	let aQ = {
211	214		let r = p
212	215		if ((base58'2W' == r))
213	216		then 1701043199999
214	217		else if ((base58'2T' == r))
215	218		then 1700496000000
216	219		else throw("Unknown chain")
217	220		}
218	221
219		-	let aQ = 1000000000
	222	+	let aR = 1000000000
220	223
221		-	let aR = [1, 3, 5~~, 20~~]
	224	+	let aS = [1, 5]
222	225
223		-	let aS = [500000000, ~~200000000,~~ 100000000~~, 20000000~~]
	226	+	let aT = [500000000, 100000000]
224	227
225		-	func aT (d) = contains(aM, d)
	228	+	func aU (d) = contains(aN, d)
226	229
227	230
228		-	func aU () = ac(reentrantInvoke(O, "saveLastTx", nil, nil))
	231	+	func aV () = ad(reentrantInvoke(P, "saveLastTx", nil, nil))
229	232
230	233
231		-	func aV (d,aW,aX) = {
232		-	let aY = (lastBlock.timestamp - aX)
233		-	let aZ = fraction(aY, (i * aW), (b * x))
234		-	let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
235		-	let bb = max([0, ba])
236		-	(bb * j)
	234	+	func aW (d,aX,aY) = {
	235	+	let aZ = (lastBlock.timestamp - aY)
	236	+	let ba = fraction(aZ, (i * aX), (b * y))
	237	+	let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
	238	+	let bc = max([0, bb])
	239	+	(bc * j)
237	240		}
238	241
239	242
240		-	func bc (d,aW,aX) = {
241		-	let aY = (lastBlock.timestamp - aX)
242		-	if ((0 > aY))
243		-	then throw(((("Saved timestamp is in future, saved = " + toString(aX)) + ", current = ") + toString(lastBlock.timestamp)))
	243	+	func bd (d,aX,aY) = {
	244	+	let aZ = (lastBlock.timestamp - aY)
	245	+	if ((0 > aZ))
	246	+	then throw(((("Saved timestamp is in future, saved = " + toString(aY)) + ", current = ") + toString(lastBlock.timestamp)))
244	247		else {
245		-	let aZ = fraction(aY, (i * aW), (b * x))
246		-	let ba = ac(invoke(P, "sellResourcesWorldREADONLY", [aZ], nil))
247		-	let bb = if ((0 >= ba))
	248	+	let ba = fraction(aZ, (i * aX), (b * y))
	249	+	let bb = ad(invoke(Q, "sellResourcesWorldREADONLY", [ba], nil))
	250	+	let bc = if ((0 >= bb))
248	251		then 0
249		-	else af(invoke(P, "sellResourcesWorld", [d, aZ], nil))._1
250		-	(bb * j)
	252	+	else ag(invoke(Q, "sellResourcesWorld", [d, ba], nil))._1
	253	+	(bc * j)
251	254		}
252	255		}
253	256
254	257
255		-	func bd (~~be,~~bf,bg,bh) = {
256		-	let bi = lastBlock.timestamp
257		-	let bj = max([0, (~~bf - bi~~)])
258		-	let bk = max([0, (~~bh - bi~~)])
259		-	let bl = (be + bg)
260		-	let bm = if ((bl == 0))
	258	+	func be (bf,bg,bh,bi) = {
	259	+	let bj = lastBlock.timestamp
	260	+	let bk = max([0, (bg - bj)])
	261	+	let bl = max([0, (bi - bj)])
	262	+	let bm = (bf + bh)
	263	+	let bn = if ((bm == 0))
261	264		then 0
262		-	else (fraction(bj, be, bl) + fraction(bk, bg, bl))
263		-	(bi + bm)
	265	+	else (fraction(bk, bf, bm) + fraction(bl, bh, bm))
	266	+	(bj + bn)
264	267		}
265	268
266	269
267		-	@Callable(bn)
268		-	func constructorV1 (bo,bp) = if ((bn.caller != this))
	270	+	@Callable(bo)
	271	+	func constructorV1 (bp,bq) = if ((bo.caller != this))
269	272		then throw("Permission denied")
270		-	else if (isDefined(getBinary(T)))
	273	+	else if (isDefined(getBinary(U)))
271	274		then throw("Already initialized")
272	275		else {
273		-	let bq = (aj("")[W] + bp)
274		-	let br = (a - (bq * x))
275		-	let bs = Issue("ACRES", "WavesLands land acres investment token", br, 8, false, unit, 0)
276		-	let bt = calculateAssetId(bs)
277		-	[bs, IntegerEntry(S, br), BinaryEntry(T, bt), StringEntry(H(), bo)]
	276	+	let br = (ak("")[X] + bq)
	277	+	let bs = (a - (br * y))
	278	+	let bt = Issue("ACRES", "WavesLands land acres investment token", bs, 8, false, unit, 0)
	279	+	let bu = calculateAssetId(bt)
	280	+	[bt, IntegerEntry(T, bs), BinaryEntry(U, bu), StringEntry(I(), bp)]
278	281		}
279	282
280	283
281	284
282		-	@Callable(bn)
283		-	func unstakeAcres (bu) = {
284		-	let bv = aU()
285		-	if ((bv == bv))
286		-	then if ((0 >= bu))
	285	+	@Callable(bo)
	286	+	func unstakeAcres (bv) = {
	287	+	let bw = aV()
	288	+	if ((bw == bw))
	289	+	then if ((0 >= bv))
287	290		then throw("Amount should be positive")
288	291		else {
289		-	let A = toString(bn.caller)
290		-	if ((size(bn.payments) != 0))
	292	+	let B = toString(bo.caller)
	293	+	if ((size(bo.payments) != 0))
291	294		then throw("No payments required")
292	295		else {
293		-	let bw = V(A)
294		-	let bx = c(A)
295		-	let by = valueOrElse(getInteger(bx), 0)
296		-	if ((bu > by))
297		-	then throw(((("You have only " + ay(by, 8)) + " ACRES staked, tried to unstake ") + ay(bu, 8)))
	296	+	let bx = W(B)
	297	+	let by = c(B)
	298	+	let bz = valueOrElse(getInteger(by), 0)
	299	+	if ((bv > bz))
	300	+	then throw(((("You have only " + az(bz, 8)) + " ACRES staked, tried to unstake ") + az(bv, 8)))
298	301		else {
299		-	let bz = valueOrElse(getInteger(e(A)), 0)
300		-	let bA = valueOrElse(getInteger(f(A)), 0)
301		-	let bi = lastBlock.timestamp
302		-	if (if ((bi >= aO))
303		-	then (aP >= bi)
	302	+	let bA = valueOrElse(getInteger(e(B)), 0)
	303	+	let bB = valueOrElse(getInteger(f(B)), 0)
	304	+	let bj = lastBlock.timestamp
	305	+	if (if ((bj >= aP))
	306	+	then (aQ >= bj)
304	307		else false)
305	308		then throw("You cannot unstake ACRES during Promo2")
306	309		else {
307		-	let bB = if (aT(A))
308		-	then ((~~by - bz~~) - aN)
309		-	else (~~by - bz~~)
310		-	if (if ((bA > bi))
311		-	then (bu > bB)
	310	+	let bC = if (aU(B))
	311	+	then ((bz - bA) - aO)
	312	+	else (bz - bA)
	313	+	if (if ((bB > bj))
	314	+	then (bv > bC)
312	315		else false)
313		-	then throw(((("Only " + ay(bB, 8)) + " ACRES can be unstaked now, wait until ") + toString(bA)))
	316	+	then throw(((("Only " + az(bC, 8)) + " ACRES can be unstaked now, wait until ") + toString(bB)))
314	317		else {
315		-	let bC = valueOrElse(getInteger(g), 0)
316		-	let bD = invoke(Q, "onStakeUnstakeLand", [A], nil)
317		-	let bE = bc(A, by, valueOrElse(getInteger(bw), 0))
318		-	$Tuple2([IntegerEntry(bw, lastBlock.timestamp), IntegerEntry(bx, (~~by - bu~~)), IntegerEntry(g, (~~bC - bu~~)), ScriptTransfer(bn.caller, (bu + bE), U)], $Tuple2(bv, bD))
	318	+	let bD = valueOrElse(getInteger(g), 0)
	319	+	let bE = invoke(R, "onStakeUnstakeLand", [B], nil)
	320	+	let bF = bd(B, bz, valueOrElse(getInteger(bx), 0))
	321	+	$Tuple2([IntegerEntry(bx, lastBlock.timestamp), IntegerEntry(by, (bz - bv)), IntegerEntry(g, (bD - bv)), ScriptTransfer(bo.caller, (bv + bF), V)], $Tuple2(bw, bE))
319	322		}
320	323		}
321	324		}
322	325		}
323	326		}
324	327		else throw("Strict value is not equal to itself.")
325	328		}
326	329
327	330
328	331
329		-	@Callable(bn)
	332	+	@Callable(bo)
330	333		func stakeAcres () = {
331		-	let bv = aU()
332		-	if ((bv == bv))
	334	+	let bw = aV()
	335	+	if ((bw == bw))
333	336		then {
334		-	let A = toString(bn.caller)
335		-	if ((size(bn.payments) != 1))
	337	+	let B = toString(bo.caller)
	338	+	if ((size(bo.payments) != 1))
336	339		then throw("exactly 1 payment must be attached")
337	340		else {
338		-	let bF = bn.payments[0]
339		-	let bG = bF.amount
340		-	if (if (!(isDefined(bF.assetId)))
	341	+	let bG = bo.payments[0]
	342	+	let bH = bG.amount
	343	+	if (if (!(isDefined(bG.assetId)))
341	344		then true
342		-	else (value(bF.assetId) != U))
	345	+	else (value(bG.assetId) != V))
343	346		then throw("ACRES payments only!")

github/deemru/w8io/169f3d6 
274.79 ms ◑